diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib')
2087 files changed, 3477 insertions, 59375 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3d.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3d.cs deleted file mode 100644 index 53b542a0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3d.cs +++ /dev/null @@ -1,4517 +0,0 @@ -// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team -// -//This program is free software: you can redistribute it and/or modify -// it under the terms of the GNU General Public License as published by -// the Free Software Foundation; either version 3 of the License, or -// (at your option) any later version. -// -// This program is distributed in the hope that it will be useful, -// but WITHOUT ANY WARRANTY; without even the implied warranty of -// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -// GNU General Public License for more details. -// -// You should have received a copy of the GNU General Public License -// along with this program. If not, see <http://www.gnu.org/licenses/> -// - -println("ketcindylib3d(2017.06.02) loaded"); - -//help:start(); - -Ketinit3d():=Ketinit3d(1); -Ketinit3d(sf):=( - regional(tmp); - tmp=round(4*SW.y)/4; -// Ketinit3d(sf,[round(SW.x)+1,tmp-0.5,tmp-1]); - Ketinit3d(sf,[-5,tmp-0.5,tmp-1]); -); -Ketinit3d(subflg,position):=( -//help:Ketinit3d(subflg=1) - regional(ctr,tmp,tmp1,tmp2,tmp3,tmp4,xPos,yTh,yPh); -// println("KETCindy3d V.2.3.5(2016.02.03)"); - BezierNumber3=1; //15.02.28 - if(!islist(BZLIST3), - BZLIST3=[]; //15.02.28 - , - tmp=apply(allpoints(),text(#)); - tmp1=select(tmp,substring(#,length(#)-1,length(#))=="p"); - tmp2=[]; - forall(tmp1,ctr, - tmp=substring(ctr,0,length(ctr)-1); - tmp=select(BZLIST3,#_1==tmp); - if(length(tmp)>0, - tmp2=append(tmp2,tmp_1); - ); - ); - BZLIST3=tmp2; - ); - SUBSCR=subflg; - Setwindow("Msg=no"); - if(length(position)>2, - xPos=position_1; - yTh=position_2; - yPh=position_3; - , - xPos=0; - yTh=position_1; - yPh=position_2; - ); -// THETA=60*pi/180; -// PHI=30*pi/180; - FocusPoint=[0,0,0]; - EyePoint=[5,5,5]; - Listplot("th",[[xPos,yTh],[xPos+9,yTh]],["notex","linecolor->[0,1,0]","Msg=no"]); - Listplot("ph",[[xPos,yPh],[xPos+9,yPh]],["notex","linecolor->[0,1,0]","Msg=no"]); - //16.02.10 - PutonCurve("TH",sgth,[xPos,xPos+9,"Msg=no"]); - PutonCurve("FI",sgph,[xPos,xPos+9,"Msg=no"]); - THETA=(TH.x-xPos)*20*pi/180; - PHI=(FI.x-xPos)*40*pi/180; -// Defvar("THETA",THETA); // 16.06.20 -// Defvar("PHI",PHI); // 16.06.20 - drawtext([xPos-0.8,yTh-0.1],Sprintf((TH.x-xPos)*20,2),align->"right"); //17.05.02 - drawtext([xPos-0.8,yPh-0.1],Sprintf((FI.x-xPos)*40,2),align->"right"); //17.05.02 - tmp="Setangle("+text((TH.x-xPos)*20)+","+text((FI.x-xPos)*40)+")"; - GLIST=append(GLIST,tmp); - Addax(0); - TSIZE=10; - TSIZEZ=10; - ErrFlg=0; -); - -Start3d():=Start3d([]); //16.11.12 -Start3d(ptexception):=( //16.11.12 -//help:Start3d(); -//help:Start3d(execptionptlist); - regional(xmn,xMx,ymn,yMx,pt,pt3,pt2, - xPos,yTh,yPh,Eps,tmp,tmp1,tmp2,tmp3,tmp4); - GCLIST=[]; - GLIST=[]; - FUNLIST=[]; - COM0thlist=[]; - COM1stlist=[]; - COM2ndlist=[]; - SEG3dlist=[]; - SCIWRLIST=[]; - SCIRELIST=[]; - OutFileList=[]; - FigPdfList=[]; // 16.04.08 - ErrFlag=0; - OBJCMD=[]; // 16.11.29from - OCNAME=Fhead; - OCOPTION=["m","v"];// 16.11.29upto - ArrowlineNumber=1; // 16.01.31 - ArrowheadNumber=1; - BezierNumber=1; //16.01.31 - BezierNumber3=1; //16.08.19 - Fnametex=Fhead+".tex"; // 15.04.06 - Fnamesci=Fhead+".sce"; - Fnamescibody=Fhead+"body.sce"; - Fnameout=Fhead+".txt"; -// Ketinit3d(SUBSCR); // 16.06.20 - Setwindow("Msg=no"); // 16.06.20from - tmp=round(4*SW.y)/4; - xPos=-5;yTh=tmp-0.5;yPh=tmp-1; - Listplot("th",[[xPos,yTh],[xPos+9,yTh]], - ["notex","linecolor->[0,1,0]","Msg=no"]); - Listplot("ph",[[xPos,yPh],[xPos+9,yPh]], - ["notex","linecolor->[0,1,0]","Msg=no"]); - //16.02.10 - PutonCurve("TH",sgth,[xPos,xPos+9,"Msg=no"]); - PutonCurve("FI",sgph,[xPos,xPos+9,"Msg=no"]); - drawtext([xPos-0.8,yTh-0.1],Sprintf((TH.x-xPos)*20,2),align->"right"); //17.05.02 - drawtext([xPos-0.8,yPh-0.1],Sprintf((FI.x-xPos)*40,2),align->"right"); //17.05.02 - tmp="Setangle(" - +format((TH.x-xPos)*20,5)+"," - +format((FI.x-xPos)*40,5)+")"; - GLIST=append(GLIST,tmp); - THETA=(TH.x-xPos)*20*pi/180; - PHI=(FI.x-xPos)*40*pi/180; // 16.06.20upto - if(isselected(TH) % isselected(FI), // 17.05.18from - if(length(Ch)>0, - ChNum=Ch_(length(Ch)); - if(ChNum==0, ChNum=1); - , - ChNum=1; - ); - Ch=[0]; - );// 17.05.18upto - if(length(VLIST)==0, // 16.06.20 - tmp=remove(allpoints(),[NE,SW,TH,FI,O,X,Y,Z]);//17.06.02 - tmp4=remove(tmp,ptexception); - forall(tmp4,pt, - tmp1=text(pt); - tmp=substring(tmp1,length(tmp1)-1,length(tmp1)); - if(tmp!="z", - tmp=parse(tmp1+"z.y"); - pt3=Xyzcoord(pt.x,pt.y,tmp); - Defvar(tmp1+"3d",pt3); - pt2=Parapt(pt3); // 16.05.28from - Defvar(tmp1+"2d",pt2); // 16.05.28upto - ); - ); - , - if(isselected(NE) % isselected(SW), - tmp=remove(allpoints(),[NE,SW,TH,FI]); - tmp4=remove(tmp,ptexception); - forall(tmp4,pt, - tmp1=text(pt); - tmp=substring(tmp1,length(tmp1)-1,length(tmp1)); - if(tmp!="z", - tmp=select(VLIST,#_1==tmp1+"3d="); - pt3=tmp_1_2; - tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];"; - parse(tmp); -// if(SUBSCR==1, -// tmp=tmp1+"z"+".x=NE.x-SW.x+"+tmp1+".x"; -// parse(tmp); -// ); - ); - ); - , - tmp=remove(allpoints(),[NE,SW,TH,FI]); - tmp4=remove(tmp,ptexception); - forall(tmp4,pt, - tmp1=text(pt); - tmp=substring(tmp1,length(tmp1)-1,length(tmp1)); - if(tmp!="z", - tmp2=parse(tmp1+"z"); - if(isselected(pt) % isselected(tmp2), - Defvar(tmp1+"2d",pt.xy); - tmp=parse(tmp1+"z.y"); - tmp=Xyzcoord(pt.x,pt.y,tmp); - Defvar(tmp1+"3d",tmp); - ); - ); - ); - ); - ); - if(SUBSCR==1, - xmn=SW.x+NE.x-SW.x; - xMx=NE.x+NE.x-SW.x; - ymn=SW.y; - yMx=NE.y; - drawpoly([[xMx,yMx],[xmn,yMx], - [xmn,ymn],[xMx,ymn]],color->[1,1,1]); - connect([[NE.x-SW.x,yMx],[NE.x-SW.x,ymn]], - color->[0.5,0.5,0.5]); - ); - // for Presentation //17.07.01from - letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0]; - shadowc=[0,0,0,0.5]; mboxc="yellow"; //17.03.02 regional debugged - SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3, - letterc,mboxc,mboxc,mboxc,62,2,letterc]; - ThinDense=0.1; //17.07.01upto - Ptseg3data(ptexception); //16.08.23 -); - -Setangle(theta,phi):=( //16.12.24 -//help:Setangle(60,30); - regional(xmn,xMx,ymn,yMx,pt,pt3,pt2, - xPos,yTh,yPh,Eps,tmp,tmp1,tmp2,tmp3,tmp4); - tmp=round(4*SW.y)/4; - xPos=-5;yTh=tmp-0.5;yPh=tmp-1; - if(theta=="",theta=THETA*180/pi); // 17.01.19 - if(phi=="",phi=PHI*180/pi); - THETA=theta*pi/180; - TH.x=theta/20+xPos; - PHI=phi*pi/180; - FI.x=phi/40+xPos; -// drawtext([xPos-0.8,yTh-0.1],text(theta)); //17.05.05 -// drawtext([xPos-0.8,yPh-0.1],text(phi)); - tmp="Setangle(" - +format(theta,5)+","+format(phi,5)+")"; - GLIST=append(GLIST,tmp); - if(length(VLIST)==0, // 16.06.20 - tmp=remove(allpoints(),[NE,SW,TH,FI]); - tmp4=remove(tmp,ptexception); - forall(tmp4,pt, - tmp1=text(pt); - tmp=substring(tmp1,length(tmp1)-1,length(tmp1)); - if(tmp!="z", - tmp=parse(tmp1+"z.y"); - pt3=Xyzcoord(pt.x,pt.y,tmp); - Defvar(tmp1+"3d",pt3); - pt2=Parapt(pt3); // 16.05.28from - Defvar(tmp1+"2d",pt2); // 16.05.28upto - ); - ); - , - if(isselected(NE) % isselected(SW), - tmp=remove(allpoints(),[NE,SW,TH,FI]); - tmp4=remove(tmp,ptexception); - forall(tmp4,pt, - tmp1=text(pt); - tmp=substring(tmp1,length(tmp1)-1,length(tmp1)); - if(tmp!="z", - tmp=select(VLIST,#_1==tmp1+"3d="); - pt3=tmp_1_2; - tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];"; - parse(tmp); - ); - ); - , - tmp=remove(allpoints(),[NE,SW,TH,FI]); - tmp4=remove(tmp,ptexception); - forall(tmp4,pt, - tmp1=text(pt); - tmp=substring(tmp1,length(tmp1)-1,length(tmp1)); - if(tmp!="z", - tmp2=parse(tmp1+"z"); - if(isselected(pt) % isselected(tmp2), - Defvar(tmp1+"2d",pt.xy); - tmp=parse(tmp1+"z.y"); - tmp=Xyzcoord(pt.x,pt.y,tmp); - Defvar(tmp1+"3d",tmp); - ); - ); - ); - ); - ); - forall(Datalist3d(),#, - tmp1=replace(#,"3d","2d"); - tmp2=Projpara(#,["nodata"]); - tmp=tmp1+"="+textformat(tmp2,5); - parse(tmp); - ); - Ptseg3data(ptexception); -); - -Changestyle3d(nameL,style):=( -//help:Changestyle3d(["geoseg3d","ax3d"],["notex"]); - regional(nmL,name,tmp,tmp1,tmp2); - if(islist(nameL),nmL=nameL,nmL=[nameL]); - tmp1=[]; - forall(nmL,name, - tmp=parse(name); - if(isstring(tmp_1), - tmp1=concat(tmp1,tmp); - , - tmp1=append(tmp1,name); - ); - tmp=apply(tmp1,replace(#,"3d","2d")); - Changestyle(tmp,style); - tmp=apply(tmp,"sub"+#); // 15.05.24 - Changestyle(tmp,style); - ); -); - -Dist3d(pt1):=Dist3d(pt1,[0,0,0]); -Dist3d(pt1,pt2):=( -//help:Dist3d(A3d,B3d); -//help:Dist3d(A,B); -//help:Dist3d("A","B"); - regional(p1,p2); - if(islist(pt1), - p1=pt1; - , - if(ispoint(pt1),p1=text(pt1),p1=pt1); - p1=parse(p1+"3d"); - ); - if(islist(pt2), - p2=pt2; - , - if(ispoint(pt2),p2=text(pt2),p2=pt2); - p2=parse(p2+"3d"); - ); - sqrt((p2-p1)*(p2-p1)); -); - -Findangle(vec):=( -//help:Findangle([2,1,4]); -//help:Findangle([0,0,1,0]); - regional(vec3,vec2,Eps,th,ph,tmp); - Eps=10^(-4); - vec3=vec_(1..3); - vec2=vec_(1..2); - th=arccos(vec_3/|vec3|); - if(|vec2|>Eps, - ph=arccos(vec_1/|vec2|); - if(vec_2<0, - ph=2*pi-ph; // 15.03.28 - ); - , - if(length(vec)>3,ph=vec_4*pi/180,ph=PHI); - ); - [th,ph]; -); - -Cancoordpara(pc):=( -//help:Cancoordpara([1,2,0]); - regional(Xz,Yz,Zz,tmp1,tmp2,tmp3); - Xz=pc_1; Yz=pc_2; Zz=pc_3; - tmp1=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA); - tmp2=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA); - tmp3=Yz*sin(THETA)+Zz*cos(THETA); - [tmp1,tmp2,tmp3]; -); - -Zparapt(cc):=( - regional(x,y,z); - x=cc_1; y=cc_2; z=cc_3; - x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA); -); - -Projcoordpara(cc):=( -//help:Projcoordpara([3,1,2]); - regional(tmp); - tmp=Parapt(cc); - [tmp_1,tmp_2,Zparapt(cc)]; -); - -Parapt(pt):=( -//help:Parapt([2,1,5]); - regional(Xz,Yz); - Xz=-pt_1*sin(PHI)+pt_2*cos(PHI); - Yz=-pt_1*cos(PHI)*cos(THETA)-pt_2*sin(PHI)*cos(THETA)+pt_3*sin(THETA); - [Xz,Yz]; -); - -ProjCurve(crv):=( -//help:Projcurve("sl3d1"); - regional(CurveL,Curve,Eps,AnsL,Out,sp,cp,st,,ct,ii,pt, - Xz,Yz,tmp,tmp1,tmp2); - Eps=10^(-6); - sp=sin(PHI); cp=cos(PHI); - st=sin(THETA); ct=cos(THETA); - if(isstring(crv),CurveL=parse(crv),CurveL=crv); - if(MeasureDepth(CurveL)==1,CurveL=[CurveL]); - Out=[]; - forall(CurveL,Curve, - AnsL=[]; - forall(1..length(Curve),ii, - pt=Curve_ii; - if(pt_1!="inf", - Xz=-pt_1*sp+pt_2*cp; - Yz=-pt_1*cp*ct-pt_2*sp*ct+pt_3*st; - tmp=[Xz,Yz]; - if(ii==1, - AnsL=[tmp]; - , - tmp1=AnsL_(length(AnsL)); - if(tmp1_1=="inf" % |tmp-tmp1|>Eps, - AnsL=append(AnsL,tmp); - ); - ); - , - AnsL=append(AnsL,["inf"]); - ); - ); - tmp1=[]; - tmp2=select(1..length(AnsL),AnsL_#==["inf"]); - tmp=1; - forall(tmp2, - if(#>tmp, - tmp1=concat(tmp1,[AnsL_(tmp..(#-1))]) - ); - tmp=#+1; - ); - if(tmp<length(AnsL), - tmp1=concat(tmp1,[AnsL_(tmp..length(AnsL))]); - ); - AnsL=tmp1; - if(length(AnsL)==1,AnsL=AnsL_1); - Out=append(Out,AnsL); - ); - if(length(Out)==1, - Out=Out_1; - ); - Out; -); - -Projpara(ptdata):=Projpara(ptdata,[]); -Projpara(ptdata,options):=( - regional(name2,name3,Ltype,Noflg,opcindy,dtL,ptL,tmp,Out); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - if(islist(ptdata),dtL=ptdata,dtL=[ptdata]); - Out=[]; - forall(dtL,name3, -// name3=#; - if(indexof(name3,"3d")>0, //17.05.24 - name2=replace(name3,"3d","2d"); - , - name2="para"+name3; - ); - ptL=Projcurve(name3); - ptL=select(ptL,length(#)>1);//17.06.02 - if(length(ptL)==1, - ptL=ptL_1; - ); - Out=append(Out,ptL); - if(Noflg<3, - println("generate projparadata "+name2); - tmp=name2+"="+textformat(ptL,5); - parse(tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - ); - ); - if(length(Out)==1,Out=Out_1); -// Out=Flattenlist(Out); - if(length(Out)==1,Out=Out_1); // 15.02.24 - tmp=[]; - forall(Out, - if(length(#)>0,tmp=append(tmp,#)); - ); - Out=tmp; - Out; -); - -InvparaptPp(pt,pd):=( - regional(Eps,fk,nfk,ph,fh,ah,bh,ak,bk,v1,v2, - nn,s0,t2,out,tmp,tmp1,tmp2,flg); - Eps=10^(-4); - if(isstring(pd), - fk=pd; - , - fk=textformat(pd,5); - ); - nfk=Numptcrv(parse(fk)); - flg=0; - tmp=pt; - if(length(tmp)==1, - ph=tmp; - fh=pd; - , - fh=Projpara(fk,["nodata"]); - if(nfk>2, - tmp1=Nearestpt(tmp,fh); - ph=tmp1_2; - , - ah=Ptcrv(1,fh); bh=Ptcrv(2,fh); - v1=tmp-ah; v2=bh-ah; - tmp1=Crossprod(v1,v2); - if(abs(tmp1)>Eps, - println(" Not on the line"); - out=[]; - flg=1; - , - ph=Dotprod(v1,v2)/|v2|^2+1; - ); - ); - ); - if(flg==0, - if(nfk>2, - nn=floor(ph); - s0=ph-nn; - if(ph>Numptcrv(fh)-Eps, - out=[Ptend(fk),Numptcrv(fh)]; - flg=1; - ); - , - nn=1; - s0=ph-1; - ); - ); - if(flg==0, - ak=Ptcrv(nn,fk); bk=Ptcrv(nn+1,fk); - ah=Ptcrv(nn,fh); bh=Ptcrv(nn+1,fh); - ph=(1-s0)*ah+a0*bh; - t2=s0; - pk=(1-t2)*ak+t2*bk; - out=[pk,nn+t2]; - ); - out; -); - -Invparapt(pt,pd):=( - regional(tmp); - tmp=InvparaptPp(pt,pd); - tmp_1; -); - -Subgraph(name,opcindy):=( - regional(tht,tmp,tmp1); - tht=THETA; THETA=pi/2; - tmp=Projpara(name3,["nodata"]); - if(length(tmp)>0, //15.08.17 - tmp=Translatedata("",[tmp],[NE.x-SW.x,0],["nodata"]); - tmp1=replace("sub"+name,"3d","2d"); - tmp=tmp1+"="+Textformat(tmp,5); - parse(tmp); - GCLIST=append(GCLIST,[tmp1,0,opcindy]); - ); - THETA=tht; // 15.11.03 -); - -Spaceline(ptlist):=Spaceline(ptlist,[]); // 16.02.22 from -Spaceline(Arg1,Arg2):=( - regional(name,tmp,tmp1,tmp2); - if(isstring(Arg1), - Spaceline(Arg1,Arg2,[]); - , - tmp=text(Arg1); - tmp=substring(tmp,1,length(tmp)-1); - name="-"+replace(tmp,",",""); - Spaceline(name,Arg1,Arg2); - ); -); // 16.02.22 upto -Spaceline(nm,ptlistorg,optionorg):=( -//help:Spaceline("1",[[2,5,1],[4,2,3]]); -//help:Spaceline([A,B]); - regional(name2,name3,options,Out,tmp,tmp1,tmp2, - opstr,opcindy,Ltype,Noflg,eqL,ptlist, Msg); - ptlist=apply(ptlistorg,if(ispoint(#),parse(text(#)+"3d"),#)); // 16.02.10 - if(substring(nm,0,2)=="bz", - name2=replace(nm,"bz","bz2d"); - name3=replace(nm,"bz","bz3d"); - , - if(substring(nm,0,1)=="-", - tmp=substring(nm,1,length(nm)); - if(indexof(tmp,"3d")>0,name3=tmp,name3=tmp+"3d"); - name2=replace(name3,"3d","2d"); - , - name2="sl2d"+nm; - name3="sl3d"+nm; - ); - ); - options=select(optionorg,length(#)>0); // 160415 - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - eqL=tmp_5; - opcindy=tmp_(length(tmp)); - Msg=1; - forall(eqL, - tmp=substring(#,0,1); - if(Toupper(tmp)=="M", - tmp=indexof(#,"="); - tmp1=substring(#,tmp,tmp+1); - if(Toupper(tmp1)=="N", - Msg=0; - ); - ); - ); - if(Noflg<3, - if(Msg==1, - println("generate Spaceline "+name3); - ); - tmp=name3+"="+ptlist; - parse(tmp); - tmp1=Projpara(name3,["nodata"]); - tmp=name2+"="+textformat(tmp1,5); - parse(tmp); - tmp="["; - forall(ptlist, //17.07.13from - if(isstring(#), - tmp=tmp+#+","; - , - tmp=tmp+textformat(#,5)+","; - ); - ); - tmp=substring(tmp,0,length(tmp)-1)+"]"; - tmp=name3+"=Spaceline("+tmp+")"; //17.07.13upto -// tmp=name3+"=Spaceline("+textformat(ptlist,5)+")"; //17.05.24 - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - if(SUBSCR==1, // 15.02.11 - Subgraph(name3,opcindy); - ); - ); - ptlist; -); - -Spacecurve(nm,funstr,variable):=Spacecurve(nm,funstr,variable,[]); -Spacecurve(nm,funstr,variable,optionorg):=( -//help:Spacecurve("1","[cos(t),sin(t),0.5*t]","t=[0,4*pi]",["Num=200"]); - regional(name2,name3,options,Out,tmp,tmp1,tmp2,vname,tmpfn,str,Rng,Num,Msg, - Ec,Exfun,Dc,opstr,opcindy,Fntmp,Vatmp,Ltype,Noflg,eqL,t1,t2,dt,tt,pa,ke); - if(substring(nm,0,2)=="bz", - name2=replace(nm,"bz","bz2d"); - name3=replace(nm,"bz","bz3d"); - , - name2="sc2d"+nm; - name3="sc3d"+nm; - ); - Eps=10^(-4); - Num=50; - Ec=[]; - Exfun=""; - Dc=1000; - options=select(optionorg,length(#)>0); // 160415 - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - eqL=tmp_5; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - Msg=1; - forall(eqL, - tmp=substring(#,0,1); - if(Toupper(tmp)=="M", - tmp=indexof(#,"="); - tmp1=substring(#,tmp,tmp+2); - if(Toupper(tmp1)=="NO", - Msg=0; - ); - ); - tmp=indexof(#,"N="); - if(tmp>0, - tmp1=substring(#,tmp+1,length(#)); - Num=parse(tmp1); - opstr=opstr+",'"+#+"'"; - ); - tmp=indexof(#,"Num="); - if(tmp>0, - tmp1=substring(#,tmp+3,length(#)); - Num=parse(tmp1); - opstr=opstr+",'"+#+"'"; - ); - tmp=indexof(#,"E="); - if(tmp>0, - tmp1=substring(#,tmp+1,length(#)); - if(substring(tmp1,0,1)=="[", - Ec=parse(tmp1); - , - Exfun=tmp1; - ); - opstr=opstr+",'"+#+"'"; - ); - tmp=indexof(#,"Exc="); - if(tmp>0, - tmp1=substring(#,tmp+3,length(#)); - if(substring(tmp1,0,1)=="[", - Ec=parse(tmp1); - , - Exfun=tmp1; - ); - ); - ); - tmp=indexof(variable,"="); - vname=substring(variable,0,tmp-1); - str=substring(variable,tmp,length(variable)); - Rng=parse(str); - t1=Rng_1; t2=Rng_2; - dt=(t2-t1)/Num; // differ from Scilab - tmp="tmpfn("+vname+"):="+funstr+";"; - parse(tmp); - Out=[]; - Ec=append(sort(Ec),10000); - ke=1; - forall(0..Num, - pt=[]; - tt=Rng_1+#*dt; - if(tt-Ec_ke<-Eps, - pa=tmpfn(tt); - ); - if(abs(tt-Ec_ke)<=Eps, - if(length(Out)>0, - if(Out_(length(Out))_1!="inf", - pa=["inf"]; - ); - ); - ); - if(tt-Ec_ke>Eps, - pa=tmpfn(tt); - ke=ke+1; - ); - if(length(pa)>0, - if(pa_1=="inf", - Out=append(Out,pa); - , - if(length(Out)==0, - Out=[pa]; - , - tmp=Out_(length(Out)); - if(tmp_1=="inf", - Out=append(Out,pa); - , - if(|tmp-pa|<Dc, - Out=append(Out,pa); - , - Out=concat(Out,[["inf"],pa]); - ); - ); - ); - ); - ); - ); - tmp1=[]; - tmp2=select(1..length(Out),Out_#==["inf"]); - tmp=1; - forall(tmp2, - if(#>tmp, - tmp1=concat(tmp1,[Out_(tmp..(#-1))]) - ); - tmp=#+1; - ); - if(tmp<length(Out), - tmp1=concat(tmp1,[Out_(tmp..length(Out))]); - ); - if(length(Out)==1, - Out=Out_1; - ); - if(Noflg<3, - if(Msg==1, - println("generate Spacecurve "+name3); - ); - tmp=name3+"="+textformat(Out,5); - parse(tmp); - tmp1=Projpara(name3,["nodata"]); - tmp=name2+"="+textformat(tmp1,5); - parse(tmp); - tmp=name3+"=Spacecurve(Assign('"+funstr+"'),'"+variable+"'"+opstr+")"; - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - if(SUBSCR==1, // 15.02.11 - tmp=parse(name2); // 15.08.17 - if(length(tmp)>0, - Subgraph(name3,opcindy); - ); // 15.08.17 - ); - ); - Out; -); - -Partcrv3d(nm,pA,pB,PkLstr):=Partcrv3d(nm,pA,pB,PkLstr,[]); -Partcrv3d(nm,pA,pB,PkLstr,options):=( -//help:Partcrv3d("1",A,B,"sl3d1"); -//help:Partcrv3d("1",1.3,2.5,"sl3d1"); - regional(p1,p2,q1,q2,dt1,dts,dt3,tmp,tmp1,tmp2); - if(isreal(pA), - p1=pA; q1=pA; - , - if(islist(pA), - tmp=pA; - , - if(ispoint(pA),tmp=text(pA),tmp=pA); - tmp=parse(tmp+"3d"); - ); - p1=parapt(tmp); - q1=[p1_1,tmp_3]+[NE.x-SW.x,0]; - ); - if(isreal(pB), - p2=pB; q2=pB; - , - if(islist(pB), - tmp=pB; - , - if(ispoint(pB),tmp=text(pB),tmp=pB); - tmp=parse(tmp+"3d"); - ); - p2=parapt(tmp); - q2=[p2_1,tmp_3]+[NE.x-SW.x,0]; - ); - tmp=replace(PkLstr,"3d","2d"); - dt1=partcrv("",p1,p2,tmp,["nodata"]); - dts=partcrv("",q1,q2,"sub"+tmp,["nodata"]); - dt=apply(1..length(dt1), - Xyzcoord(dt1_#_1,dt1_#_2,dts_#_2)); - Spaceline("-part3d"+nm,dt,options); -); - -Joincrvs3d(nm,plotstrL):=Joincrvs3d(nm,plotstrL,[]);//16.10.06 -Joincrvs3d(nm,plotstrL,options):=( -//help:Joincrvs3d("1",["bz3da1","bz3da1"]); - regional(PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN, - opcindy,tmp,tmp1,tmp2,str,name2,name3,Ltype,Noflg); - name2="join2d"+nm; - name3="join3d"+nm; - QdL=[]; - forall(plotstrL,str, - if(isstring(str), - tmp=parse(str); - , - tmp=str; - ); - QdL=append(QdL,tmp); - ); - Eps=10^(-4); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - tmp1=tmp_6; - if(length(tmp1)>0,Eps=tmp1_1); - Flg=0; - if(length(QdL)==0, - PtL=[]; - Flg=1; - ); - if(Flg==0, - PtL=QdL_1; - forall(2..length(QdL),Ni, - Qd=QdL_Ni; - if(length(Qd)>1, - pP=PtL_1; - pS=PtL_(length(PtL)); - pQ=Qd_1; - pR=Qd_(length(Qd)); - rMN=min([norm(pP-pQ),norm(pP-pR), - norm(pS-pQ),norm(pS-pR)]); - if(rMN==norm(pP-pR), - Qd=reverse(Qd); - , - if(rMN==norm(pS-pQ), - PtL=reverse(PtL); - , - if(rMN==norm(pS-pR), - PtL=reverse(PtL); - Qd=reverse(Qd); - ); - ); - ); - ); - if(rMN>Eps, - PtL=concat(PtL,Qd); - , - PtL=concat(PtL,Qd_(2..length(Qd))); - ); - ); - ); - if(Noflg<3, - println("generate Joincurves3d "+name3); - tmp=name3+"="+textformat(PtL,5); - parse(tmp); - tmp1=Projpara(name3,["nodata"]); - tmp=name2+"="+textformat(tmp1,5); - parse(tmp); - tmp=text(plotstrL); - tmp=substring(tmp,1,length(tmp)-1); - tmp=name3+"=Joincrvs("+tmp+")"; - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - if(SUBSCR==1, // 15.02.11 - tmp=parse(name2); // 15.08.17 - if(length(tmp)>0, - Subgraph(name3,opcindy); - ); // 15.08.17 - ); - ); - PtL; -); - -Xyzax3data(nm,Xrange,Yrange,Zrange):= - Xyzax3data(nm,Xrange,Yrange,Zrange,[]); -Xyzax3data(nm,Xrange,Yrange,Zrange,options):=( -//help:Xyzax3data("","x=[-5,5]","y=[-5,5]","z=[-5,5]"); -//help:Xyzax3data(Options2=["a1","Osw"]); - regional(name2,name3,Out,tmp,tmp1,tmp2,eqL,reL,strL, - opstr,opcindy,Ltype,Noflg,Axname,Arrow,Origin); - name2="ax2d"+nm; - name3="ax3d"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - eqL=tmp_5; - reL=tmp_6; - strL=tmp_7; - opcindy=tmp_(length(tmp)); - Axname=1; - Arrow=0; // 16.08.14 - Origin=""; // 16.08.14 - if(length(reL)>0, - Axname=reL_1; - ); - forall(strL, // 16.08.14from - tmp1=Toupper(substring(#,0,1)); - if(tmp1=="A", - tmp=substring(#,1,length(#)); - if(length(tmp)>0, - Arrow=parse(tmp); - , - Arrow=1; - ); - ); - if(tmp1=="O", - tmp=indexof(#,","); - if(tmp>0, - Origin=substring(#,tmp,length(#)); - , - tmp=substring(#,1,length(#)); - if(length(tmp)>0, - Origin=tmp; - , - Origin="sw"; - ); - ); - ); - ); // 16.08.14upto - tmp1=indexof(Xrange,"="); - tmp=parse(substring(Xrange,tmp1,length(Xrange))); - Px=[tmp_1,0,0]; Qx=[tmp_2,0,0]; - tmp1=indexof(Yrange,"="); - tmp=parse(substring(Yrange,tmp1,length(Yrange))); - Py=[0,tmp_1,0]; Qy=[0,tmp_2,0]; - tmp1=indexof(Zrange,"="); - tmp=parse(substring(Zrange,tmp1,length(Zrange))); - Pz=[0,0,tmp_1]; Qz=[0,0,tmp_2]; - Out=[[Px,Qx],[Py,Qy],[Pz,Qz]]; - if(Axname>0, - Xyzaxparaname(Xrange,Yrange,Zrange,[Axname]); - ); - if(Noflg<3, - println("generate axes "+name3); - tmp=name3+"="+textformat(Out,5); - parse(tmp); - tmp1=Projpara([name3],["nodata"]); - tmp=name2+"="+textformat(tmp1,5); - parse(tmp); - tmp=name3+"=Xyzax3data("+ - Dq+Xrange+Dq+","+Dq+Yrange+Dq+","+Dq+Zrange+Dq+")"; - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - if(Noflg<1, // 16.08.14from - if(Arrow>0, - tmp1=Parapt(Px); tmp2=Parapt(Qx); - Arrowhead(tmp2,tmp2-tmp1,[Arrow]); - tmp1=Parapt(Py); tmp2=Parapt(Qy); - Arrowhead(tmp2,tmp2-tmp1,[Arrow]); - tmp1=Parapt(Pz); tmp2=Parapt(Qz); - Arrowhead(tmp2,tmp2-tmp1,[Arrow]); - ); - if(length(Origin)>0, - Letter([Parapt([0,0,0]),Origin,"O"]); - ); - ); // 16.08.14upto - if(SUBSCR==1, // 15.02.11 - Subgraph(name3,opcindy); - ); - ); - Out; -); - -Xyzaxparaname(Xrange,Yrange,Zrange):= - Xyzaxparaname(Xrange,Yrange,Zrange,[]); -Xyzaxparaname(Xrange,Yrange,Zrange,options):=( - regional(tmp,tmp1,tmp2,Eps,Dr,Noflg,Xname,Yname,Zname, - px,qx,py,qy,pz,qz,ph,qh,rr,ch); - Eps=10.0^(-6); - Dr=0.19*1000/2.54/MilliIn; - Noflg=0; - forall(options, - if(isreal(#),Dr=Dr*#); - ); - tmp=indexof(Xrange,"="); - Xname=substring(Xrange,0,tmp-1); - tmp=parse(substring(Xrange,tmp,length(Xrange))); - px=[tmp_1,0,0]; qx=[tmp_2,0,0]; - tmp=indexof(Yrange,"="); - Yname=substring(Yrange,0,tmp-1); - tmp=parse(substring(Yrange,tmp,length(Yrange))); - py=[0,tmp_1,0]; qy=[0,tmp_2,0]; - tmp=indexof(Zrange,"="); - Zname=substring(Zrange,0,tmp-1); - tmp=parse(substring(Zrange,tmp,length(Zrange))); - pz=[0,0,tmp_1]; qz=[0,0,tmp_2]; - ph=Parapt(px); qh=Parapt(qx); rr=|ph-qh|; - if(rr>Eps, - ch=qh+Dr/rr*(qh-ph); - Expr(ch,"c",Xname); - ); - ph=Parapt(py); qh=Parapt(qy); rr=|ph-qh|; - if(rr>Eps, - ch=qh+Dr/rr*(qh-ph); - Expr(ch,"c",Yname); - ); - ph=Parapt(pz); qh=Parapt(qz); rr=|ph-qh|; - if(rr>Eps, - ch=qh+Dr/rr*(qh-ph); - Expr(ch,"c",Zname); - ); -); - -Datalist3d():=( -//help:Datalist3d(); - regional(out,tmp,tmp2,tmp3); - tmp=apply(GCLIST,#_1); - tmp=select(tmp,indexof(#,"2d")>0); - tmp2=select(tmp,indexof(#,"sub")==0); - tmp3=apply(tmp2,replace(#,"2d","3d")); - out=tmp3; -); - -Datalist2d():=( -//help:Datalist2d(); - regional(out,tmp,tmp2,tmp3); - tmp=apply(GCLIST,#_1); - tmp=select(tmp,indexof(#,"2d")>0); - tmp2=select(tmp,indexof(#,"sub")==0); -// tmp3=apply(tmp2,replace(#,"2d","3d")); - out=tmp2; -); - -Embed(nm,Pd2str,funstr,varstr):= - Embed(nm,Pd2str,funstr,varstr,[]); -Embed(nm,Pd2str,funstr,varstr,options):=( -//help:Embed("1",["gr1"],"A3d+x*(B3d-A3d)+y*(C3d-A3d)","[x,y]"); - regional(name2,name3,Pd2L,Pd2,tmp,tmp1,xstr,ystr, - Ltype,Noflg,opstr,opcindy,Out); - name2="em2d"+nm; - name3="em3d"+nm; - if(!islist(Pd2str),Pd2L=[Pd2str],Pd2L=Pd2str); // 15.03.06 - tmp1=[]; // 15.10.31 - forall(Pd2L, - if(isstring(#),tmp=parse(#),tmp=#); - if(MeasureDepth(tmp)==2, - tmp1=concat(tmp1,tmp); - ); - if(MeasureDepth(tmp)==1, - tmp1=append(tmp1,tmp); - ); - ); - Pd2L=tmp1; - tmp=substring(varstr,0,1); - if(tmp=="[" % tmp=="(", - tmp1=substring(varstr,1,length(varstr)-1); - , - tmp1=varstr; - ); - tmp=indexof(tmp1,","); - xstr=substring(tmp1,0,tmp-1); - ystr=substring(tmp1,tmp,length(tmp1)); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - Out=[]; - forall(Pd2L,Pd2, - tmp1=[]; - forall(Pd2, - tmp=Assign(funstr,xstr,"("+textformat(#_1,5)+")"); - tmp=Assign(tmp,ystr,"("+textformat(#_2,5)+")"); - tmp=parse(tmp); - tmp1=append(tmp1,tmp); - ); - Out=append(Out,tmp1); - ); - if(length(Out)==1, - Out=Out_1; - ); - if(Noflg<3, - println("generate Embed "+name3); - if(length(Out)>0, - tmp=name3+"="+textformat(Out,5); - parse(tmp); - tmp1=Projpara(name3,["nodata"]); - tmp=name2+"="+textformat(tmp1,5); - parse(tmp); - ); - if(!islist(Pd2str), - tmp=Pd2str; - , - tmp=text(Pd2str); - tmp="list("+substring(tmp,1,length(tmp)-1)+")"; - ); - tmp=name3+"=Embed("+tmp+",'"+funstr+"','"+varstr+"'"+")"; - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - if(length(Out)>0, - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - if(SUBSCR==1, // 15.02.11 - Subgraph(name3,opcindy); - ); - ); - ); - Out; -); - -Rotatept3d(point,w1,w2):=Rotate3pt(point,w1,w2); -Rotatept3d(point,w1,w2,center):=Rotate3pt(point,w1,w2,center); -//help:Rotatept3d(pt3d,[0,0,1],pi/2); -//help:Rotatept3d(pt3d,[0,0,1],pi/2,[1,1,1]); -Rotate3pt(point,w1,w2):=Rotate3pt(point,w1,w2,[0,0,0]); -Rotate3pt(point,w1,w2,center):=( -//help:Rotate3pt(pt3d,[0,0,1],pi/2); -//help:Rotate3pt(pt3d,[0,0,1],pi/2,[1,1,1]); - regional(Eps,ct,st,v3,v1,v2,Ans,ns,PtL,num, - pt,tmp,tmp1,tmp2,Retflg,x,y,z,xx,yy,zz,flg); - Eps=10^(-4); - Retflg=0; - if(length(w2)==1, - ct=cos(w2); - st=sin(w2); - v3=1/|w1|*w1; - if(v3_1==0, - tmp=[1,0,0]; - , - tmp=[0,1,0]; - ); - w1=[tmp_2*v3_3-tmp_3*v3_2, - tmp_3*v3_1-tmp_1*v3_3, - tmp_1*v3_2-tmp_2*v3_1]; - v1=1/|w1|*w1; - v2=[v3_2*v1_3-v3_3*v1_2, - v3_3*v1_1-v3_1*v1_3, - v3_1*v1_2-v3_2*v1_1]; - , - tmp=[w1_2*w2_3-w1_3*w2_2, - w1_3*w2_1-w1_1*w2_3, - w1_1*w2_2-w1_2*w2_1]; - if(|tmp|<Eps, - Ans=point; - Retflg=1; - ); - if(Retflg==0, - v1=1/|w1|*w1; - ns=v1_1*w2_1+v1_2*w2_2+v1_3*w2_3; - tmp=w2-ns*v1; - v2=1/|tmp|*tmp; - tmp=[v1_2*v2_3-v1_3*v2_2, - v1_3*v2_1-v1_1*v2_3, - v1_1*v2_2-v1_2*v2_1]; - v3=1/|tmp|*tmp; - ct=ns/|w2|; - st=sqrt(1-ct^2); - ); - ); - if(Retflg==0, - if(|tmp|<Eps, - Ans=point; - Retflg=1; - ); - ); - if(Retflg==0, - if(MeasureDepth(point)>0, - PtL=point; - , - PtL=[point]; - ); - Ans=[]; - flg=0; - forall(1..length(PtL),num, - pt=PtL_num; - if(pt_1=="inf", - Ans=append(Ans,["inf"]); - flg=1; - ); - if(flg==0, - x=pt_1-center_1; y=pt_2-center_2; z=pt_3-center_3; - xx=((v1_1*ct+v2_1*st)*v1_1+ (-v1_1*st+v2_1*ct)*v2_1+v3_1^2)*x - +((v1_1*ct+v2_1*st)*v1_2+(-v1_1*st+v2_1*ct)*v2_2+v3_1*v3_2)*y - +((v1_1*ct+v2_1*st)*v1_3+(-v1_1*st+v2_1*ct)*v2_3+v3_1*v3_3)*z; - yy=((v1_2*ct+v2_2*st)*v1_1+(-v1_2*st+v2_2*ct)*v2_1+v3_1*v3_2)*x - +((v1_2*ct+v2_2*st)*v1_2+(-v1_2*st+v2_2*ct)*v2_2+v3_2^2)*y - +((v1_2*ct+v2_2*st)*v1_3+(-v1_2*st+v2_2*ct)*v2_3+v3_2*v3_3)*z; - zz=((v1_3*ct+v2_3*st)*v1_1+(-v1_3*st+v2_3*ct)*v2_1+v3_1*v3_3)*x - +((v1_3*ct+v2_3*st)*v1_2+(-v1_3*st+v2_3*ct)*v2_2+v3_2*v3_3)*y - +((v1_3*ct+v2_3*st)*v1_3+(-v1_3*st+v2_3*ct)*v2_3+v3_3^2)*z; - Ans=append(Ans,center+[xx,yy,zz]); - ); - ); - if(length(Ans)==1, - Ans=Ans_1; - ); - ); - Ans; -); - -Rotatedata3d(nm,P3data,w1,w2):=Rotate3data(nm,P3data,w1,w2); -Rotatedata3d(nm,P3data,w1,w2,options):= - Rotate3data(nm,P3data,w1,w2,options); -//help:Rotatedata3d("1",["sl3d1","sc3d2"],[0,0,1],pi/3); -Rotate3data(nm,P3data,w1,w2):=Rotate3data(nm,P3data,w1,w2,[]); -Rotate3data(nm,P3data,w1,w2,options):=( - regional(name3,name2,center,pdata,Pd3,Pd,Out,tmp,tmp1, - Ltype,Noflg,opcindy,opstr); - name3="rot3d"+nm; - name2="rot2d"+nm; - center=[0,0,0]; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - tmp1=tmp_6; - if(length(tmp1)>0, - center=tmp1_1; - ); - if(islist(P3data) & isstring(P3data_1),Pd3=P3data,Pd3=[P3data]); - Out=[]; - forall(Pd3,Pd, - if(isstring(Pd),Pd=parse(Pd)); - if(MeasureDepth(Pd)==1,Pd=[Pd]); - Ans=[]; - forall(Pd, - tmp=Rotate3pt(#,w1,w2,center); - Ans=append(Ans,tmp); - ); - Out=append(Out,Ans); - ); - Out=Flattenlist(Out); - if(length(Out)==1,Out=Out_1); - if(Noflg<3, - println("generate Rotate3data "+name3); - tmp=name3+"="+textformat(Out,5); - parse(tmp); - tmp1=Projpara(name3,["nodata"]); - tmp=name2+"="+textformat(tmp1,5); - parse(tmp); - tmp=text(P3data); - tmp=replace(tmp,"[","list("); - tmp=replace(tmp,"]",")"); - tmp=name3+"=Rotate3data("+tmp+"," - +textformat(w1,5)+","+textformat(w2,5)+opstr+")"; - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - if(SUBSCR==1, // 15.02.11 - Subgraph(name3,opcindy); - ); - ); - Out; -); - -Translatept3d(point,w1):=Translate3pt(point,w1); -//help:Translatept3d(pt3d,[1,2,3]); -Translate3pt(point,w1):=( - regional(Eps,Ans,PtL,pt,num,xx,yy,zz,flg); - Eps=10^(-4); - if(MeasureDepth(point)>0, - PtL=point; - , - PtL=[point]; - ); - Ans=[]; - flg=0; - forall(1..length(PtL),num, - pt=PtL_num; - if(pt_1=="inf", - Ans=append(Ans,["inf"]); - flg=1; - ); - if(flg==0, - xx=pt_1+w1_1; yy=pt_2+w1_2; zz=pt_3+w1_3; - Ans=append(Ans,[xx,yy,zz]); - ); - ); - if(length(Ans)==1, - Ans=Ans_1; - ); - Ans; -); - -Translatedata3d(nm,P3data,w1):=Translate3data(nm,P3data,w1); -Translatedata3d(nm,P3data,w1,options):= - Translate3data(nm,P3data,w1,options); -//help:Translatedata3d("1",["sl3d1"],[1,2,3]); -Translate3data(nm,P3data,w1):=Translate3data(nm,P3data,w1,[]); -Translate3data(nm,P3data,w1,options):=( - regional(name3,name2,pdata,Pd3,Pd,Out,tmp,tmp1, - Ltype,Noflg,opcindy); - name3="tra3d"+nm; - name2="tra2d"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - if(islist(P3data) & isstring(P3data_1),Pd3=P3data,Pd3=[P3data]); - Out=[]; - forall(Pd3,Pd, - if(isstring(Pd),Pd=parse(Pd)); - if(MeasureDepth(Pd)==1,Pd=[Pd]); - Ans=[]; - forall(Pd, - tmp=Translate3pt(#,w1); - Ans=append(Ans,tmp); - ); - Out=append(Out,Ans); - ); - Out=Flattenlist(Out); - if(length(Out)==1,Out=Out_1); - if(Noflg<3, - println("generate Translate3data "+name3); - tmp=name3+"="+textformat(Out,5); - parse(tmp); - tmp1=Projpara(name3,["nodata"]); - tmp=name2+"="+textformat(tmp1,5); - parse(tmp); - tmp=text(P3data); - tmp=replace(tmp,"[","list("); - tmp=replace(tmp,"]",")"); - tmp=name3+"=Translate3data("+tmp+","+textformat(w1,5)+")"; - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - if(SUBSCR==1, // 15.02.11 - Subgraph(name3,opcindy); - ); - ); - Out; -); - -Reflectpoint3d(point,vecL):=Reflect3point(point,vecL); -Reflectpt3d(point,vecL):=Reflect3pt(point,vecL); -//help:Reflectpoint3d(pt3d,[v1,v2,v3]); -Reflect3point(point,vecL):=Reflect3pt(point,vecL); -Reflect3pt(point,vecL):=( - regional(ans,v1,v2,v3,tmp,tmp1); - if(length(vecL)==1, - v1=vecL_1; - ans=2*v1-point; - ); - if(length(vecL)==2, - v1=vecL_1; - v2=vecL_2; - v3=(v2-v1)/|v2-v1|; - tmp=v1+Dotprod(point-v1,v3)*v3; - ans=2*tmp-point; - ); - if(length(vecL)==3, - v1=vecL_1; - v2=vecL_2; - v3=vecL_3; - tmp=Crossprod(v2-v1,v3-v1); - tmp1=point-Dotprod(tmp,point-v1)/|tmp|^2*tmp; - ans=2*tmp1-point; - ); - ans; -); - -Xyzcoord(X,Y,z):=( -//help:Xyzcoord(A.x,A.y,Az.y); - regional(Eps,x3d,y3d,z3d); - x3d=(-X*sin(PHI)*cos(THETA)-Y*cos(PHI)+z*cos(PHI)*sin(THETA))/cos(THETA); - y3d=(X*cos(PHI)*cos(THETA)-Y*sin(PHI)+z*sin(PHI)*sin(THETA))/cos(THETA); - z3d=z; - [x3d,y3d,z3d]; -); - -PutonCurve3d(name,pdstr):=( -//help:PutonCurve3d("T","sc3d1"); - regional(pt,pd2str,tmp,tmp1,tmp2); - pd2str=replace(pdstr,"3d","2d"); - PutonCurve(name,pd2str); - pt=parse(name+".xy"); - tmp=Nearestpt(pt,pd2str); // 15.03.13 - tmp1=ParamonCurve(tmp_1,tmp_2,pd2str); - tmp="sub"+pd2str; - tmp2=PointonCurve(tmp1,tmp); - pt=append(pt,tmp2_2); - pt=Xyzcoord(pt_1,pt_2,pt_3); // 15.03.13 - tmp=name+"z.xy="+textformat(tmp2,5); - parse(tmp); - VLIST=select(VLIST,#_1!=name+"3d="); - Defvar(name+"3d",pt); -); - -Mkpointlist():=Mkpointlist([]); //16.11.12 -Mkpointlist(options):=( //16.11.12 - regional(Eps,pos,ptL,plist,ilist,plistrest, - inforest,free,pt,pt3,ptz,par,vlistpre, - tmp,tmp1,tmp2,tmp3,tmp4,p1,p2,flg); - Eps=10^(-4); - tmp=Finddef(NE); - free=tmp_1; - pos=[NE.x+1,NE.y]; - tmp=remove(allpoints(),[NE,SW,TH,FI]); - tmp=remove(tmp,options); //16.11.12 - plist=select(tmp, - substring(text(#),length(text(#))-1,length(text(#)))!="z" - ); - if(SUBSCR==0,plist=[]); - ptL=[]; - plistrest=[]; - inforest=[]; - forall(plist,pt, - inspect(pt,"ptsize",3); - inspect(pt,"color",2); - inspect(pt,"textsize",TSIZE); - ptz=text(pt)+"z"; - tmp=Finddef(pt); - if(indexof(tmp_1,free)>0, // free point - tmp=select(VLIST,#_1==text(pt)+"3d="); - if(length(tmp)==0, - tmp=pt.x+NE.x-SW.x; - Putpoint(ptz,[tmp,0],[tmp,parse(ptz+".y")]); - pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y")); - Defvar(text(pt)+"3d",pt3); - Defvar(text(pt)+"fix",0); - vlistpre=VLIST; //16.08.20 - ); - flg=0; - if(isselected(pt), - if(parse(text(pt)+"fix")!=1, // 15.03.01 - tmp=pt.x+NE.x-SW.x; - Putpoint(ptz,[tmp,0],[tmp,parse(ptz+".y")]); - pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y")); - VLIST=select(VLIST,#_1!=text(pt)+"3d="); - Defvar(text(pt)+"3d",pt3); - vlistpre=VLIST; //16.08.20 - flg=1; - ); - ); - inspect(parse(ptz),"ptsize",3); - inspect(parse(ptz),"color",3); - inspect(parse(ptz),"textsize",TSIZEZ); - if(isselected(parse(ptz)), - if(parse(ptz+"fix")!=1, // 15.03.01 - tmp=select(vlistpre,#_1==text(pt)+"3d="); //16.08.20 - pt3=tmp_1_2; - pt3_3=parse(ptz+".y"); - pt.xy=Parapt(pt3); - tmp=ptz+".x=pt.x+NE.x-SW.x"; - parse(tmp); - VLIST=select(VLIST,#_1!=text(pt)+"3d="); - Defvar(text(pt)+"3d",pt3); - flg=2; - ); - ); - if(flg==0, - tmp=select(VLIST,#_1==text(pt)+"3d="); - pt3=tmp_1_2; - pt.xy=Parapt(pt3); - tmp=ptz+".x=pt.x+NE.x-SW.x"; - parse(tmp); - ); - if(isselected(pt) % isselected(parse(ptz)), - drawtext(pos,text(pt3)); - ); - if(!contains(["p","q"],text(pt)), - ptL=append(ptL,pt); - ); - , - tmp=Findgeoinfo(pt); - tmp1=[parse(tmp_1),parse(tmp_2),parse(tmp_3)]; - plistrest=append(plistrest,pt); - inforest=append(inforest,tmp); - ); - ); - if(length(plistrest)>0, - tmp=Sortpointlist([plistrest,inforest]); - plist=tmp_1; - ilist=tmp_2; - forall(1..length(plist), - pt=plist_#; - ptz=text(pt)+"z"; - tmp=ilist_#; - p1=parse(tmp_3); - p2=p1+parse(tmp_2)-parse(tmp_1); - tmp1=p2-p1; - tmp2=pt-p1; - if(abs(tmp1_1)>abs(tmp1_2), - par=tmp2_1/tmp1_1; - , - par=tmp2_2/tmp1_2; - ); - tmp=ilist_#; - tmp1=parse(tmp_1+"3d"); - tmp2=parse(tmp_2+"3d"); - tmp3=parse(tmp_3+"3d"); - tmp1=(1-par)*tmp3+par*(tmp3+tmp2-tmp1); - Putpoint(ptz,[pt.x+NE.x-SW.x,tmp1_3]); - inspect(parse(ptz),"ptsize",3); - inspect(parse(ptz),"color",3); - inspect(parse(ptz),"textsize",TSIZEZ); - pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y")); - VLIST=select(VLIST,#_1!=tmp1+"3d="); - Defvar(text(pt)+"3d",pt3); - vlistpre=VLIST; //16.08.20 - if(isselected(pt) % isselected(parse(ptz)), - drawtext(pos,text(pt3)); - ); - if(!contains(["p","q"],text(pt)), - ptL=append(ptL,pt); - ); - ); - ); - ptL; -); - -Mkseg3d():=Mkseg3d([]); -Mkseg3d(options):=( - regional(seg,nmseg,def,ptA,ptB,segL,opstr,opcindy, - name,strg,Ltype,Noflg,tht,tmp,tmp1,tmp2,tmp3); - name="geoseg3d"; - strg=name+"=list("; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - segL=[]; - forall(allsegments(),seg, - inspect(seg,"labeled",false); - tmp=Finddef(seg); - def=tmp_1; - ptA=tmp_2; - ptB=tmp_3; - if(ispoint(parse(ptA)) & ispoint(parse(ptB)), - tmp1=select(VLIST,indexof(#_1,ptA+"3d=")>0); - tmp2=select(VLIST,indexof(#_1,ptB+"3d=")>0); - if(length(tmp1)>0 & length(tmp2)>0, - tmp1="["+ptA+"3d,"+ptB+"3d]"; - nmseg=ptA+ptB; -// Spaceline(nmseg,parse(tmp1),append(options,"Msg=nodisp")); //15.06.15 - Spaceline("-"+nmseg+"3d",[ptA+"3d",ptB+"3d"], // 16.04.07 - append(options,"Msg=nodisp")); //15.06.15 - segL=append(segL,nmseg+"3d");// 16.04.07 - strg=strg+nmseg+"3d,";// 16.04.07 - ); - ); - ); - println("generate totally "+name); - if(length(segL)>0, // 15.03.06 - strg=substring(strg,0,length(strg)-1)+")"; - if(Noflg<3, - GLIST=append(GLIST,strg); - ); - tmp1=apply(segL,Dq+#+Dq); //15.03.02 - tmp=name+"="+text(tmp1); - parse(tmp); - ); - segL; -); - -Ptseg3data():=Ptseg3data([]); -//help:Ptseg3data(); -//help:Ptseg3data([A,B]); -Ptseg3data(options):=( - regional(pt,pt3,plist,tmp,tmp1,tmp2); - if(isselected(TH) % isselected(FI), - tmp=remove(allpoints(),[NE,SW,TH,FI]); - tmp=remove(tmp,options); //16.11.12 - tmp=apply(tmp,text(#)); - plist=select(tmp,substring(#,length(#)-1,length(#))!="z"); - forall(plist,pt, - tmp1=text(pt); - tmp=select(VLIST,#_1==tmp1+"3d="); - if(length(tmp)>0, - pt3=tmp_1_2; - tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];"; - parse(tmp); - if(SUBSCR==1, - tmp=tmp1+"z"+".x=NE.x-SW.x+"+tmp1+".x"; - parse(tmp); - ); - ); - ); - , - Mkpointlist(options); // 16.12.18 - ); - forall(alllines(), - #.color=[0.5,0.5,1]; - ); - SEG3dlist=Mkseg3d(options); - SEG3dlist; -); - -Putonseg3d(name,ptL):=Putonseg3d(name,ptL_1,ptL_2,[]); -Putonseg3d(name,Arg1,Arg2):=( - if(islist(Arg1), - Putonseg3d(name,Arg1_1,Arg1_2,Arg2); - , - Putonseg3d(name,Arg1,Arg2,[]); - ); -); -Putonseg3d(name,pt1,pt2,options):=( -//help:Putonseg3d("C",[A,B]); -//help:Putonseg3d("C",A,B); - regional(par,pn1,pn2,tmp,tmp1,tmp2,tmp3); - par=0.5; - tmp=divoptions(options); - if(length(tmp_6)>0, - par=tmp_6_1; - ); - Putonseg(name,pt1,pt2,[par]); - inspect(parse(name),"ptsize",3); - inspect(parse(name),"color",2); - inspect(parse(name),"textsize",TSIZEZ); - Putpoint(name+"z",[parse(name+".x"),0]); - inspect(parse(name+"z"),"ptsize",3); - inspect(parse(name+"z"),"color",3); - inspect(parse(name+"z"),"textsize",TSIZEZ); - pn1=text(pt1); - pn2=text(pt2); - tmp1=replace("PTCz.y=PTAz.y+|PTC-PTA|/|PTB-PTA|*(PTBz.y-PTAz.y)","PTC",name); - tmp1=replace(tmp1,"PTA",pn1); - tmp1=replace(tmp1,"PTB",pn2); - tmp2=replace("PTCz.x=PTAz.x+|PTC-PTA|/|PTB-PTA|*(PTBz.x-PTAz.x)","PTC",name); - tmp2=replace(tmp2,"PTA",pn1); - tmp2=replace(tmp2,"PTB",pn2); - parse(tmp2); - parse(tmp1); - tmp1=parse(name+".x"); - tmp2=parse(name+".y"); - tmp3=parse(name+"z.y"); - tmp=Xyzcoord(tmp1,tmp2,tmp3); - Defvar(name+"3d",tmp); -); - -Putpoint3d(ptslist):=Putpoint3d(ptslist,"",0); -Putpoint3d(Arg1,Arg2):=( // 16.03.02 from - if(islist(Arg1), - Putpoint3d(Arg1,Arg2,0); - , - Putpoint3d(Arg1,Arg2,"fix"); - ); -); -Putpoint3d(Arg1,Arg2,Arg3):=( -//help:Putpoint3d(["A",[2,1,3]]); -//help:Putpoint3d(["A",[2,1,3]],"fix"); -//help:Putpoint3d("A",[2,1,3]); -//help:Putpoint3d(["A",[2,1,3]],["fix"]); - regional(nn,kk,pt,pt3,ptslist,fixstr,tmp,tmp1,tmp2,tmp3); //16.08.19 - if(isstring(Arg1), - ptslist=[Arg1,Arg2]; - fixstr=Arg3; - , - ptslist=Arg1; - fixstr=Arg2; - ); - if(islist(fixstr),fixstr=fixstr_1);// 16.03.02 upto - nn=length(ptslist)/2; - forall(1..nn,kk, // 16.08.19from - tmp1=ptslist_(2*kk-1); - pt3=ptslist_(2*kk); // 16.08.19upto - VLIST=select(VLIST,#_1!=tmp1+"3d="); - tmp2=parse(tmp1); - if(ispoint(tmp2), // 16.05.26from - if(islist(fixstr),tmp=fixstr_1,tmp=fixstr); - tmp=Toupper(tmp); - if(tmp!="FIX", - tmp=Xyzcoord(tmp2.x,tmp2.y,parse(tmp1+"z").y); - , - tmp=pt3; - ); - Defvar(tmp1+"3d",tmp); - , - Defvar(tmp1+"3d",pt3); - ); // 16.05.26upto - Defvar(tmp1+"fix",0); - pt=Parapt(pt3); - Putpoint(tmp1,pt,parse(tmp1+".xy")); - inspect(parse(tmp1),"ptsize",3); - inspect(parse(tmp1),"color",2); - inspect(parse(tmp1),"textsize",TSIZE); - if(SUBSCR==1, - tmp2=tmp1+"z"; - tmp=[pt.x+NE.x-SW.x,pt3_3]; - tmp1="[NE.x-SW.x+"+tmp1+".x,"+tmp2+"y]"; - Putpoint(tmp2,tmp,parse(tmp1)); - inspect(parse(tmp2),"ptsize",3); - inspect(parse(tmp2),"color",3); - inspect(parse(tmp2),"textsize",TSIZEZ); - ); - ); - if(islist(fixstr),tmp=fixstr_1,tmp=fixstr); - if(tmp=="fix" % tmp=="Fix", - Fixpoint3d(ptslist); - ); -); - -Fixpoint3d(ptlist):=( -// help:Fixpoint3d(["O",[0,0,0],"X",[1,0,0]]); - regional(name,pt3,pt2,tmp,tmp1,tmp2); - forall(1..(length(ptlist)/2), - name=ptlist_(2*#-1); - Defvar(name+"fix",1); - pt3=ptlist_(2*#); - pt2=Parapt(pt3); - tmp1=textformat(pt2_1,5); - tmp2=textformat(pt2_2,5); - tmp=name+".xy=["+tmp1+","+tmp2+"]"; - parse(tmp); - tmp1=name+".x+NE.x-SW.x"; - tmp2=textformat(pt3_3,5); - tmp=name+"z.xy=["+tmp1+","+tmp2+"];"; - parse(tmp); - ); -); - -Perppt(name,ptstr,pLstr):=Putperp(name,ptstr,pLstr,"draw"); -Perppt(name,ptstr,pLstr,option):=Putperp(name,ptstr,pLstr,option); -Putperp(name,ptstr,pLstr):=Putperp(name,ptstr,pLstr,"put"); -Putperp(name,ptstr,pLstr,option):=( -//help:Perppt("N","O","A-B-C"); -//help:Perppt("N","O","A-B-C","put"); -//help:Perppt("N","O","A-B","none"); - regional(out,Eps,N3d,sgstr,pP,pA,pB,pC,tmp,tmp1,flgpL); - Eps=10^(-4); - pP=parse(ptstr+"3d"); - tmp=indexof(pLstr,"-"); - pA=parse(substring(pLstr,0,tmp-1)+"3d"); - tmp1=substring(pLstr,tmp,length(pLstr)); - tmp=indexof(tmp1,"-"); - if(tmp>0, - pB=parse(substring(tmp1,0,tmp-1)+"3d"); - pC=parse(substring(tmp1,tmp,length(tmp1))+"3d"); - flgpL=1; - , - pB=parse(tmp1+"3d"); - flgpL=0; - ); - if(flgpL==1, - tmp=Crossprod(pB-pA,pC-pA); - if(abs(tmp)<Eps, - err("not a plane"); - , - tmp=tmp/|tmp|; - N3d=pP+tmp; - Defvar("tmp3d",N3d); // temporary - sgstr=ptstr+"-tmp"; - tmp=IntersectsgpL(name,sgstr,pLstr,"none"); - VLIST=select(VLIST,#_1!="tmp3d="); - out=tmp_1; - Defvar(name+"3d",tmp_1); - ); - , - if(|pB-pA|<Eps, - err("on the line"); - , - tmp1=(pB-pA)/|pB-pA|; - tmp=Dotprod(pP-pA,tmp1); - out=pA+tmp*tmp1; - Defvar(name+"3d",out); - ); - ); - if(islist(option),tmp=option_1,tmp=option); - tmp=substring(tmp,0,1); - if(tmp=="P" % tmp=="p", - Putpoint3d([name,out]); - Fixpoint3d([name,out]); - ); - if(tmp=="D" % tmp=="d", - Drawpoint3d(out); - ); - out; -); - -Perpplane(name,ptstr,nvec):= - Perpplane(name,ptstr,nvec,"draw"); -Perpplane(name,ptstr,nstr,option):=( -//help:Perpplane("A-B","P",[1,3,2]); -//help:Perpplane("A-B","P",[0,0,1,0]); - regional(Eps,nvec,sgstr,pP,v1,v2,v3, - th,ph,pA,pB,tmp,tmp1,tmp2); - Eps=10^(-4); - if(isstring(nstr),nvec=parse(nstr+"3d"),nvec=nstr); - pP=parse(ptstr+"3d"); - v3=nvec/|nvec|; - th=THETA; ph=PHI; - tmp=findangle(v3); - THETA=tmp_1; PHI=tmp_2; - v1=Cancoordpara([1,0,0]); - v2=Cancoordpara([0,1,0]); - THETA=th; PHI=ph; - tmp=indexof(pLstr,"-"); - pA=pP+v1; - pB=pP+v2; - if(islist(option),tmp=option_1,tmp=option); - tmp=Toupper(substring(tmp,0,1)); // 16.06.19 - if(tmp=="P", - tmp=indexof(name,"-"); - tmp1=substring(name,0,tmp-1); - tmp2=substring(name,tmp,length(name)); - Putpoint3d([tmp1,pA,tmp2,pB],["fix"]); - ); - if(tmp=="D", - Drawpoint3d(pA); - Drawpoint3d(pB); - ); - [pA,pB]; -); - -Drawpoint3d(pt3):=( -//help:Drawpoint3d(pt3d); - regional(ptL,tmp,tmp1,tmp2); - if(MeasureDepth(pt3)==0,ptL=[pt3],ptL=pt3); - forall(ptL, - tmp=parapt(#); - draw(tmp_(1..2)); - if(SUBSCR==1, - draw([tmp_1+NE.x-SW.x, #_3]); - ); - ); -); - -Putaxes3d(size):=( -//help:Putaxes3d(5); -//help:Putaxes3d([1,2,3]); - regional(sL); - if(islist(size),sL=size,sL=[size,size,size]); - Putpoint3d(["O",[0,0,0]],"fix"); //17.06.02from - Putpoint3d(["X",[sL_1,0,0]],"fix"); - Putpoint3d(["Y",[0,sL_2,0]],"fix"); - Putpoint3d(["Z",[0,0,sL_3]],"fix"); -// Fixpoint3d(["O",[0,0,0]]); -// Fixpoint3d(["X",[sL_1,0,0],"Y",[0,sL_2,0],"Z",[0,0,sL_3]]);//17.06.02fupto -); - -IntersectsgpL(name,sgstr,pLstr):= - IntersectsgpL(name,sgstr,pLstr,"draw"); -IntersectsgpL(name,sgstr,pLstr,option):=( -//help:IntersectsgpL("R","P-Q","A-B-C"); -//help:IntersectsgpL("R","P-Q","A-B-C","put"); -//// help:IntersectsgpL("","P-Q","A-B-C","none"); -//help:IntersectsgpL("",[p1,p2],[p3,p4,p5],"draw"); - regional(opstr,out,pP,pQ,pA,pB,pC,pH,pK,pR,tseg,tt,ss,Eps,flg, - nvec,tmp,tmp1,tmp2,tmp3,tmp4); - if(islist(option),opstr=option_1,opstr=option); - Eps=10^(-4); - flg=0; - if(!isstring(sgstr), // 15.05.29 - pP=sgstr_1; - pQ=sgstr_2; - , - tmp=indexof(sgstr,"-"); - if(tmp>0, // 15.05.28 - pP=parse(substring(sgstr,0,tmp-1)+"3d"); - pQ=parse(substring(sgstr,tmp,length(sgstr))+"3d"); - , - tmp1=parse(sgstr); - pP=tmp1_1; - pQ=tmp1_2; - ); - ); - if(!isstring(pLstr), // 16.02.02 - pA=pLstr_1; - pB=pLstr_2; - pC=pLstr_3; - , - tmp=indexof(pLstr,"-"); - pA=parse(substring(pLstr,0,tmp-1)+"3d"); - tmp1=substring(pLstr,tmp,length(pLstr)); - tmp=indexof(tmp1,"-"); - pB=parse(substring(tmp1,0,tmp-1)+"3d"); - pC=parse(substring(tmp1,tmp,length(tmp1))+"3d"); - ); - nvec=Crossprod(pB-pA,pC-pA); - if(abs(Dotprod(nvec,pQ-pP))>Eps, - pH=(Reflect3point(pP,[pA,pB,pC])+pP)/2; - pK=(Reflect3point(pQ,[pA,pB,pC])+pQ)/2; - tmp1=pP-pH; - tmp2=tmp1+pK-pQ; - tmp=select(tmp2,abs(#)==max(apply(tmp2,abs(#)))); - tmp=select(1..3,tmp2_#==tmp_1); - tmp=tmp_1; - tseg=tmp1_tmp/tmp2_tmp; - pR=(1-tseg)*pH+tseg*pK; - tmp=substring(opstr,0,1); - if(Toupper(tmp)=="P", - Putpoint3d([name,pR]); - Fixpoint3d([name,pR]); - ); - if(Toupper(tmp)=="D", - Drawpoint3d(pR); - ); - tmp=Dotprod(pB-pA,pC-pA); - tmp1=Dotprod(pB-pA,pB-pA); - tmp2=Dotprod(pC-pA,pC-pA); - tmp3=Dotprod(pR-pA,pB-pA); - tmp4=Dotprod(pR-pA,pC-pA); - ss=-(tmp*tmp4-tmp3*tmp2)/(tmp1*tmp2-tmp^2); - tt=(tmp1*tmp4-tmp*tmp3)/(tmp1*tmp2-tmp^2); - out=[pR,tseg,ss,tt]; - , - if(Toupper(substring(opstr,0,1))!="N", - println(" "+sgstr+","+pLstr+" are parallel"); - ); - out=[]; - ); - out; -); - -Bezier3d(nm,ptctrlist):=Bezier3(nm,ptctrlist); -Bezier3d(nm,Ag1,Ag2):=Bezier3(nm,Ag1,Ag2); -Bezier3d(nm,ptlistorg,ctrlistorg,options):= - Bezier3(nm,ptlistorg,ctrlistorg,options); -//help:Bezier3d("1",["A","B","C"],["D","E","F","G"]); -Bezier3(nm,ptctrlist):=Bezier3(nm,ptctrlist_1,ptctrlist_2,[]); -Bezier3(nm,Ag1,Ag2):=( - if(MeasureDepth(Ag1)==0, - Bezier3(nm,Ag1,Ag2,[]); - , - if(MeasureDepth(Ag1)>1, - Bezier3(nm,Ag1_1,Ag1_2,Ag2); - , - if(isstring(Ag_1_1), - Bezier3(nm,Ag1,Ag2,[]); - , - Bezier3(nm,Ag1_1,Ag1_2,Ag2); - ); - ); - ); -); -Bezier3(nm,ptlistorg,ctrlistorg,options):=( - regional(name,name3,name2,tmp,tmp1,tmp2, - Ltype,Noflg,opstr,eqL,ii,knt,ctr,out); - name="bz"+nm; - name3="bz3d"+nm; - name2="bz2d"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - eqL=tmp_5; - opcindy=tmp_(length(tmp)); - tmp1=select(eqL,indexof(#,"Num")>0); - if(length(tmp1)==0,eqL=append(eqL,"Num=20")); - ptlist=ptlistorg; - if(isstring(ptlistorg_1),ptlist=apply(ptlistorg,parse(#+"3d"))); - ctrlist=ctrlistorg; - if(isstring(ctrlistorg_1),ctrlist=apply(ctrlistorg,parse(#+"3d"))); - out=[]; - forall(1..(length(ptlist)-1),ii, - knt=[ptlist_ii,ptlist_(ii+1)]; - ctr=[ctrlist_(2*ii-1),ctrlist_(2*ii)]; - tmp="Bezierpt(T,ptlist,ctrlist)";//17.01.04 - tmp=Assign(tmp,"ptlist",knt); - tmp=Assign(tmp,"ctrlist",ctr); - Spacecurve(name+text(ii),tmp,"T=[0,1]",append(eqL,"nodisp"));//17.01.04 - out=append(out,name3+text(ii)); - ); - tmp1=[]; - forall(1..length(out), - tmp=parse(out_#); - if(#==1,tmp1=tmp,tmp1=concat(tmp1,tmp_(2..length(tmp)))); - ); - if(Noflg<3, - println("generate Beziercurve "+name3); - tmp2=Spaceline("",tmp1,["nodata"]); - tmp=name3+"="+tmp2; - parse(tmp); - tmp1=Projpara(name3,["nodata"]); - tmp=name2+"="+textformat(tmp1,5); - parse(tmp); - tmp1=text(out); - tmp1=substring(tmp1,1,length(tmp1)-1); - tmp=name3+"=Joincrvs("+tmp1+")"; - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - if(SUBSCR==1, // 15.02.11 - Subgraph(name3,opcindy); - ); - ); - out; -); - -Putbezier3data(name,pt3Lorg):=Putbezier3data(name,pt3Lorg,[]); -Putbezier3data(name,pt3Lorg,options):=( - regional(pt3L,psize,Deg,nn,numstr, - tmp,tmp1,tmp2,tmp3,pts,ctrpts); - tmp=Divoptions(options); - Deg=3; - tmp1=tmp_5; - forall(tmp1, - if(substring(#,0,1)=="D", - tmp=indexof(#,"="); - Deg=parse(substring(#,tmp,length(#))); - ); - ); - pt3L=pt3Lorg; - if(isstring(pt3L_1),pt3L=apply(pt3L,parse(#+"3d"))); - ctrpts=[]; - forall(2..length(pt3L),nn, // 16.08.19from -// if(nn==2,numstr="",numstr=text(nn-2)); - numstr=text(nn-1); // 16.08.19 - if(Deg==3, - tmp1=name+numstr+"p"; - tmp2=(2*pt3L_(nn-1)+pt3L_(nn))/3; - VLIST=select(VLIST,#_1!=tmp1+"3d="); // 16.08.19from -// if(length(tmp)==0, - Putpoint3d([tmp1,tmp2]); -// );// 16.08.19upto - ctrpts=append(ctrpts,tmp1); - tmp1=name+numstr+"q"; - tmp3=(pt3L_(nn-1)+2*pt3L_nn)/3; - VLIST=select(VLIST,#_1!=tmp1+"3d="); -// if(length(tmp)==0, - Putpoint3d([tmp1,tmp3]); -// ); - ctrpts=append(ctrpts,tmp1); - , - tmp1=name+numstr+"p"; - tmp2=(pt3L_(nn-1)+pt3L_nn)/2; - VLIST=select(VLIST,#_1!=tmp1+"3d="); // 16.08.19upto -// if(length(tmp)==0, - Putpoint3d([tmp1,tmp2]); -// ); - ctrpts=append(ctrpts,tmp1); - ); - ); - ctrpts; -); - -Mkbezierptcrv3d(ptdata):=Mkbezierptcrv3(ptdata); -Mkbezierptcrv3d(ptdata,options):=Mkbezierptcrv3(ptdata,options); -//help:Mkbezierptcrv3d(["A","B","C","D"]); -Mkbezierptcrv3(ptdata):=Mkbezierptcrv3(ptdata,[]); -Mkbezierptcrv3(ptdata,options):=( - regional(Eps,ptlist,nn,pt3L,name,bz,pt,p1,p2,p13d,p23d,pt3, - Out,tt,pos,tmp,tmp1,tmp2); - Eps=10^(-4); - pos=[NE.x+1,NE.y]; - if(MeasureDepth(ptdata)==0,ptlist=[ptdata],ptlist=[ptdata]); - Out=[]; - forall(1..length(ptlist),nn, - nn=1; - pt3L=ptlist_nn; - tmp=floor((BezierNumber3-1)/26);// 15.02.23 from - if(tmp==0,tmp="",tmp=text(tmp)); - tmp2=mod(BezierNumber3,26); - if(tmp2==0,tmp2=26); - name=unicode(text(96+tmp2),base->10)+tmp; - tmp2=Putbezier3data(name,pt3L,options); - Bezier3(name,pt3L,tmp2,options); -// BZLIST3=append(BZLIST3,[name,pt3L]); - Out=append(Out,tmp2); - BezierNumber3=BezierNumber3+1; - ); - Out; -); - - -/////////////////////////////////////////// - -Readobj(filename):=Readobj(filename,[]); -Readobj(filename,options):=( -//help:Readobj("file.obj",["size=-3"]); - regional(eqL,size,vL,fnL,tmp,tmp1,tmp2); - size=1; - tmp=Divoptions(options); - eqL=tmp_5; - forall(eqL, - if(Toupper(substring(#,0,1))=="S", - tmp=indexof(#,"="); - size=parse(substring(#,tmp,length(#))); - ); - ); - tmp=load(filename); - tmp=tokenize(tmp,"v"); - tmp1=tmp_(2..(length(tmp)-1)); - tmp2=tmp_(length(tmp)); - tmp2=tokenize(tmp2,"f"); - tmp1=append(tmp1,tmp2_1); - tmp1=apply(tmp1,Removespace(#)); - tmp1=apply(tmp1,replace(#," "," ")); - tmp1=apply(tmp1,"["+replace(#," ",",")+"]"); - vL=apply(tmp1,size*parse(#)); - tmp2=tmp2_(2..(length(tmp2))); - tmp2=apply(tmp2,Removespace(#)); - tmp2=apply(tmp2,replace(#," "," ")); - tmp2=apply(tmp2,"["+replace(#," ",",")+"]"); - fnL=apply(tmp2,parse(#)); - [vL,fnL]; -); - -///////////////////////////////////////// - -Readobj(filename,options):=( -//help:Readobj("file.obj",["size=-3"]); - regional(eqL,size,vL,fnL,dtL,numer,flg,flg2, - tmp,tmp1,tmp2,tmp3,tmp4,tmp5); - size=1; - tmp=Divoptions(options); - eqL=tmp_5; - forall(eqL, - if(Toupper(substring(#,0,1))=="S", - tmp=indexof(#,"="); - size=parse(substring(#,tmp,length(#))); - ); - ); - numer="-0123456789"; - tmp=load(filename); - dtL=tokenize(tmp,"v "); - vL=[]; - fnL=[]; - flg=0; - flg2=0; - forall(dtL,dt, - tmp1=Removespace(dt); - if(indexof(numer,substring(tmp1,0,1))>0, - tmp2=""; - tmp=indexof(tmp1,"f"); - if(tmp>0, - tmp2=substring(tmp1,tmp-1,length(tmp1)); - tmp1=substring(tmp1,0,tmp-1); - if(substring(tmp1,length(tmp1)-1,length(tmp1))=="#", - tmp2="#"+tmp2; - tmp1=substring(tmp1,0,length(tmp1)-1); - ); -// tmp=indexof(tmp2,"#"); -// if(tmp>0, -// tmp2=substring(tmp2,0,tmp-1); -// ); - ); - if(flg==1, - tmp1=""; - flg=0; - ); - if(length(tmp1)>0, - tmp=indexof(tmp1,"#"); - if(tmp>0, - tmp1=substring(tmp1,0,tmp-1); - flg=1; - ); - tmp=indexof(tmp1,"vt"); - if(tmp>0, - tmp1=substring(tmp1,0,tmp-1); - ); - tmp1=replace(tmp1," ",","); - tmp1=replace(tmp1," ",","); - tmp1="["+tmp1+"]"; - tmp1=size*parse(tmp1); - vL=append(vL,tmp1); - ); - if(length(tmp2)>0, - tmp2=tokenize(tmp2,"f"); - if(length(tmp2_1)==0, - tmp2=tmp2_(2..length(tmp2)); - // , - // if(tmp2_1=="#", -// tmp2=tmp2_(2..length(tmp2)); -// tmp2_1="#"+tmp2_1; -// ); - ); - forall(1..length(tmp2),tmp3, - tmp=tmp2_tmp3; - if(substring(tmp,length(tmp)-1,length(tmp))=="#", - tmp2_(tmp3+1)="#"+Removespace(tmp2_(tmp3+1)); - tmp2_tmp3=substring(tmp,0,length(tmp)-1); - ); - tmp5=""; - if(length(tmp2_tmp3)>0, - tmp4=tokenize(tmp2_tmp3," "); - forall(tmp4, - if(length(text(#))>0, - if(indexof(text(#),"/")==0, - tmp=text(#); - , - tmp=tokenize(text(#),"/"); - tmp=tmp_1; - ); - if(length(tmp)>0, - tmp5=tmp5+tmp+","; - ); - ); - ); - tmp5=substring(tmp5,0,length(tmp5)-1); - if(length(tmp5)>0, - if(substring(tmp5,0,1)!="#", - tmp5="["+tmp5+"]"; - fnL=append(fnL,parse(tmp5)); - ); - ); - ); - ); - ); - ); - ); - [vL,fnL]; -); - -Concatobj(objL):=Concatobj(objL,[]); -Concatobj(objL,options):=( -//help:Concatobj([polyhed,triangle]); -//help:Concatobj([polyhed,triangle],["Rmf=no"]); -//help:Concatobj([[A,B,C],[A,C,D]]); - regional(obj,vL,fL,vadd,vtx,faces,fnew,face,jj,kk,vctr,eps, - tmp,tmp1,tmp2,tmp3,eqL,rmf); - tmp=divoptions(options); - eqL=tmp_5; - rmf="y"; // 16.08.19 - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=Toupper(substring(#,tmp,tmp+1)); - if(tmp1=="R", - if(tmp2=="Y",rmf="y"); // 16.08.14 - ); - ); - eps=10^(-4); - vL=[]; - fL=[]; - vctr=0; - forall(objL,obj, - if(isstring(obj), - tmp1=parse(obj); - , - tmp1=obj; - ); - if(length(tmp1)>2, // 16.02.28 - tmp=1..length(tmp1); - tmp1=[tmp1,[tmp]]; - ); - vtx=tmp1_1; // 16.02.11 from - faces=tmp1_2; - fnew=faces; - vctr=0; - vadd=[]; - forall(1..length(vtx),jj, - tmp1=vtx_jj; - tmp=select(1..length(vL),dist3d(vL_#,tmp1)<eps); - if(length(tmp)==0, - vadd=append(vadd,tmp1); - vctr=vctr+1; - tmp2=length(vL)+vctr; - , - tmp2=tmp_1; - ); - forall(1..length(faces),kk, - face=faces_kk; - tmp=select(1..length(face),face_#==jj); - if(length(tmp)>0, - tmp1=tmp_1; - fnew_kk_tmp1=tmp2; - ); - ); - ); - vL=concat(vL,vadd); - fL=concat(fL,fnew); // 16.02.11 upto - ); - tmp2=apply(1..length(fL),1); - if(rmf=="y", - forall(1..length(fL),jj, - tmp=fL_jj; - tmp1=select((jj+1)..length(fL),fL_#==tmp); - forall(tmp1,tmp2_#=0); - ); - tmp=select(1..length(tmp2),tmp2_#==1); - fL=fL_tmp; - ); - [vL,fL]; -); - -if(1==0, - -Mkobjfile(fname,objL):=Mkobjfile(Dirwork,fname,objL); -Mkobjfile(path,fnameorg,objL):=( -//help:Mkobj(filename,objlist); - regional(fname,obj,vtx,face,tmp,tmp1,tmp2); - fname=fnameorg; - if(indexof(fname,".")==0,fname=fname+".obj"); - vtx=objL_1; - face=objL_2; - setdirectory(path); - SCEOUTPUT = openfile(fname); - forall(vtx,tmp1, - tmp2=tmp1; - if(ispoint(tmp1), - tmp2=parse(text(tmp1)+"3d"); - ); - tmp="v "+format(tmp2_1,5)+" "+format(tmp2_2,5)+" "+format(tmp2_3,5); - println(SCEOUTPUT,tmp); - ); - forall(face,tmp1, - tmp="f"; - forall(tmp1, - tmp=tmp+" "+text(#); - ); - println(SCEOUTPUT,tmp); - ); - closefile(SCEOUTPUT); - setdirectory(Dirwork); -); - -); - -VertexandEdge(nm,vfnL):=VertexEdgeFace(nm,vfnL,[]); -VertexandEdge(nm,vfnL,options):=VertexEdgeFace(nm,vfnL,options); -VertexEdgeFace(nm,vfnL):=VertexEdgeFace(nm,vfnL,[]); // 16.02.10 -//help:VertexEdgeFace("1",[vL,fnL]); -//help:VertexEdgeFace("1",["A","B","C"]); -//help:VertexEdgeFace(options=["Pt=fix","Edg=geo"]); -VertexEdgeFace(nm,vfnLorg,optionorg):=( - regional(name3,namev,namee,namef,vfnL,options,Noflg,eqL,strL, - vL,eL,enL,face,edge,vtx,vname,fixflg,edgflg,tmp,tmp1,tmp2); - name3="phvef"+nm; - namev="phv3d"+nm; - namee="phe3d"+nm; - namef="phf3d"+nm; - options=optionorg; - vfnL=vfnLorg; // 16.06.19from - if(length(vfnL)>2, - vfnL=[vfnL,[1..length(vfnL)]]; - ); - if(length(vfnL)==1, - vfnL=[vfnL_1,[1..length(vfnL_1)]]; - ); // 16.06.19upto - tmp=Divoptions(options); - Noflg=tmp_2; - eqL=tmp_5; - strL=tmp_7; - fixflg=1; - edgflg=1; - forall(eqL, - tmp1=Toupper(substring(#,0,1)); - tmp=indexof(#,"="); - tmp2=Toupper(substring(#,tmp,length(#))); - if(tmp1=="P", - if(tmp2=="FREE", fixflg=0); - options=remove(options,[#]); - ); - if(tmp1=="E", - if(substring(tmp2,0,1)=="N", edgflg=0); - options=remove(options,[#]); - ); - ); - forall(strL, - if(Toupper(#)=="FREE", - fixflg=0; - options=remove(options,[#]); - ); - ); - vL=[]; - forall(1..length(vfnL_1), - vtx=vfnL_1_#; // 16.02.10 from - if(isstring(vtx),vtx=parse(vtx)); // 16.06.19 - if(ispoint(vtx), - tmp=parse(text(vtx)+"3d"); - vname=text(vtx); -// tmp=parse(text(vtx)+"3d"); -// tmp="v"+text(#)+"3d="+textformat(tmp,5); -// parse(tmp); - , - vname="v"+text(#); - if(fixflg==1, - Putpoint3d(["v"+text(#),vtx],"fix"); - ); - ); - vL=append(vL,vname); // 16.02.10 upto - ); - eL=[]; - forall(vfnL_2,face, - forall(1..length(face), - tmp1=face_#; - if(#<length(face), - tmp2=face_(#+1); - , - tmp2=face_1; - ); - if(tmp2<tmp1, - tmp=tmp2; tmp2=tmp1; tmp1=tmp; - ); -// tmp1="v"+text(tmp1)+"3d"; -// tmp2="v"+text(tmp2)+"3d"; - tmp1=vL_tmp1+"3d"; - tmp2=vL_tmp2+"3d"; - tmp=select(eL,#==[tmp1,tmp2] % #==[tmp2,tmp1]); - if(length(tmp)==0, - eL=append(eL,[tmp1,tmp2]); - ); - ); - ); - if(Noflg<3, - enL=[]; - forall(eL,edge, - if(edgflg==0, - if(Noflg<2, - tmp1=edge_1;//parse(edge_1); - tmp2=edge_2;//parse(edge_2); - tmp="sl3d"+edge_1+edge_2; - if(islist(parse(tmp)), - Changestyle3d([tmp],["nodisp"]); - ); - tmp="sl3d"+edge_2+edge_1; - if(islist(parse(tmp)), - Changestyle3d([tmp],["nodisp"]); - ); - tmp=replace(edge_1+edge_2,"3d",""); - options=append(options,"Msg=no"); - Spaceline("-"+tmp,[tmp1,tmp2],options); //16.02.28 - ); - enL=append(enL,tmp+"3d"); //16.02.29 - , - tmp1=replace(edge_1,"3d",""); - tmp2=replace(edge_2,"3d",""); - tmp=tmp1+tmp2; - create([tmp],"Segment",[parse(tmp1),parse(tmp2)]); - enL=append(enL,tmp+"3d");//16.02.29 - ); - ); - if(Noflg<2, - println("generate "+name3); - println(" generate totally "+namee); - println(" generate vertexes "+namev); - println(" generate faces "+namef); - ); - tmp1=""; - forall(enL, - tmp1=tmp1+Dq+#+Dq+","; - ); - tmp1=substring(tmp1,0,length(tmp1)-1); - tmp=namee+"=["+tmp1+"]"; - parse(tmp); - tmp=namee+"=list("+tmp1+")"; - tmp=replace(tmp,Dq,""); - GLIST=append(GLIST,tmp); - tmp1=apply(vL,Dq+#+"3d"+Dq); - tmp1=text(tmp1); - tmp1=substring(tmp1,1,length(tmp1)-1); - tmp=namev+"=["+tmp1+"]"; - parse(tmp); - tmp1=replace(tmp1,Dq,""); - tmp=namev+"=list("+tmp1+")"; - GLIST=append(GLIST,tmp); - tmp1=text(vfnL_2); - tmp1=substring(tmp1,1,length(tmp1)-1); - tmp=namef+"=["+tmp1+"]"; - parse(tmp); - tmp=namef+"=list("+tmp1+")"; - GLIST=append(GLIST,tmp); - ); - [namev,namee,namef]; -); - -Phparadata(nm,nmvf):=( - regional(tmp1,tmp2); - tmp1=parse("phv3d"+nmvf); - tmp2=parse("phf3d"+nmvf); - Phparadata(nm,nmvf,[tmp1,tmp2]); -); -Phparadata(nm,nmvf,Arg1):=( - regional(vfL,options,tmp1,tmp2); - if(islist(Arg1) & !islist(Arg1_1), - tmp1=parse("phv3d"+nmvf); - tmp2=parse("phf3d"+nmvf); - vfL=[tmp1,tmp2]; - options=Arg1; - , - vfL=Arg1; - options=[]; - ); - Phparadata(nm,nmvf,vfL,options); -); -Phparadata(nm,nmvf,vfL,options):=( -//help:Phparadata("1","1",["do"]); - regional(name2,name3,nameh2,nameh3,Ltype,Noflg,eqL,Hidden, - opstr,opcindy,Outflg,Inflg,pdata1,tmp,tmp1,tmp2); - name2="php2d"+nm; - name3="php3d"+nm; - nameh2="phh2d"+nm; - nameh3="phh3d"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - Inflg=tmp_3; - Outflg=tmp_4; - if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15 - eqL=tmp_5; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - Hidden=""; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="H", - Hidden=tmp2; - ); - ); - if(Noflg<3, - if(Outflg>=1, - println("Output Phparadata "+name3); - if(isstring(vfL_1), // 2015.05.27 from - tmp1=vfL_1; - , - tmp1="list("; - forall(vfL_1, - tmp1=tmp1+#+","; - ); - tmp1=substring(tmp1,0,length(tmp1)-1)+")"; - ); - if(isstring(vfL_2), - tmp2=vfL_2; - , - tmp2="list("; - forall(vfL_2, - tmp2=tmp2+text(#)+","; - ); - tmp2=substring(tmp2,0,length(tmp2)-1)+")"; - ); // 2015.05.27 upto - tmp=name3+"=Phparadata("+tmp1+","+tmp2+opstr+")"; - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - tmp=nameh3+"=PhHiddenData()"; - GLIST=append(GLIST,tmp); - tmp=nameh2+"=Projpara("+nameh3+")"; - GLIST=append(GLIST,tmp); - if(Outflg==1, - SCIWRLIST=append(SCIWRLIST,name3); - SCIWRLIST=append(SCIWRLIST,name2); - SCIWRLIST=append(SCIWRLIST,nameh3); - SCIWRLIST=append(SCIWRLIST,nameh2); - ); - ); - if(Inflg==1, - if(length(SCIRELIST)==0, - ReadOutData(Fnameout); - ); - tmp=parse(name2); - if(islist(tmp), - Extractdata(name2,["nodisp"]); // 12.19 - ); - SCIRELIST=append(SCIRELIST,name3); - SCIRELIST=append(SCIRELIST,name2); - ); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - if(Inflg==1, -// tmp=apply(pltdata1,replace(#,"3d","2d")); // 15.05.18 from - Changestyle3d("phe3d"+nmvf,["nodisp"]); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - ); - ); - if(Hidden!="", - Drawlinetype(nameh2,Hidden); - if(Inflg==1, - tmp1=Toupper(substring(Hidden,0,2)); - if(tmp1=="DR",Ltype=0); - if(tmp1=="DA",Ltype=1); - if(tmp1=="DO",Ltype=3); - if(tmp1=="ID",Ltype=1); - GCLIST=append(GCLIST,[nameh2,Ltype,opcindy]); - ); - ); -); - -Nohiddenseg(seg,rng,triang):=( -// help:Nohiddenseg("1",seg1,[0,1],["v1","v2","v3"]); - regional(Eps,pA3,pB3,pC3,pA,pB,pC,sg1,sg2,ss1,ss2,parL,flgL,flg1,flg2, - veB,veC,sgnoh,sghid,added,tristr,tmp,tmp1,tmp2,tmp3,tmp4,tmp5); - Eps=10^(-4); - sgnoh=[0,1]; - pA3=if(isstring(triang_1),parse(triang_1+"3d"),triang_1); //16.06.19 - pA=Parapt(pA3); - pB3=if(isstring(triang_2),parse(triang_2+"3d"),triang_2); //16.06.19 - pB=Parapt(pB3); - pC3=if(isstring(triang_3),parse(triang_3+"3d"),triang_3); //16.06.19 - pC=Parapt(pC3); - sg1=seg_1+rng_1*(seg_2-seg_1); - sg2=seg_1+rng_2*(seg_2-seg_1); - ss1=Parapt(sg1); - ss2=Parapt(sg2); - tristr=replace(text(triang),",","-"); - tristr=substring(tristr,1,length(tristr)-1); - if(|ss2-ss1|>Eps & abs(Crossprod(pB-pA,pC-pA))>Eps, - tmp=IntersectcrvsPp([ss1,ss2],[pA,pB,pC,pA]); - parL=apply(tmp,#_2-1); - parL=sort(parL); - if(length(parL)==0, - parL=[0,1]; - , - if(parL_1>Eps,parL=prepend(0,parL)); - if(parL_(length(parL))<1-Eps,parL=append(parL,1)); - ); - tmp1=Crossprod(pB3-pA3,pC3-pA3); - if(abs(Dotprod(tmp1,sg2-sg1))>Eps, - tmp=IntersectsgpL("",[sg1,sg2],tristr,["nodisp"]); - if(tmp_2>-Eps & tmp_2<1+Eps, - if(tmp_3>-Eps & tmp_4>-Eps & tmp_3+tmp_4<1+Eps, - tmp1=select(parL,abs(tmp_2-#)<Eps); - if(length(tmp1)==0, - parL=sort(append(parL,tmp_2)); - ); - ); - ); - ); - flgL=[]; - forall(parL, - tmp1=sg1+#*(sg2-sg1); - tmp=Projcoordpara(tmp1); - tmp_3=tmp_3+1; - tmp2=Cancoordpara(tmp); - tmp=IntersectsgpL("",[tmp1,tmp2],tristr,["nodisp"]); - tmp1=Projcoordpara(tmp1); - tmp2=Projcoordpara(tmp_1); - flg1=0; - if(tmp1_3<tmp2_3-Eps,flg1=-1); - if(tmp1_3>tmp2_3+Eps,flg1=1); - flgL=append(flgL,flg1); - ); - sgnoh=[]; - forall(2..length(flgL), - added=[]; - flg1=flgL_(#-1); - flg2=flgL_#; - if(max([flg1,flg2])==1 % flg1+flg2==0, - added=[parL_(#-1),parL_#]; - , - sghid=[parL_(#-1),parL_#]; - tmp1=ss1+sghid_1*(ss2-ss1); - tmp2=ss1+sghid_2*(ss2-ss1); - tmp=IntersectcrvsPp([tmp1,tmp2],[pA,pB,pC,pA]); - if(length(tmp)<2, - veB=pB-pA; - veC=pC-pA; - tmp3=tmp1-pA; - tmp4=tmp2-pA; - tmp5=Crossprod(veB,veC); - tmp1=(tmp3_1*veC_2-tmp3_2*veC_1)/tmp5; - tmp2=(-tmp3_1*veB_2+tmp3_2*veB_1)/tmp5; - if(tmp1>-Eps & tmp2>-Eps & tmp1+tmp2<1+Eps,flg1=1,flg1=0); - tmp1=(tmp4_1*veC_2-tmp4_2*veC_1)/tmp5; - tmp2=(-tmp4_1*veB_2+tmp4_2*veB_1)/tmp5; - if(tmp1>-Eps & tmp2>-Eps & tmp1+tmp2<1+Eps,flg2=1,flg2=0); - if(flg1==1 & flg2==0, - if(length(tmp)>0, - tmp1=tmp_1_2-1; - tmp1=sghid_1+(sghid_2-sghid_1)*tmp1; - , - tmp1=sghid_1; - ); - added=[tmp1,sghid_2]; -// added=[tmp1+Eps,sghid_2]; // <--- USUI 2016.02.27 - ); - if(flg1==0 & flg2==1, - if(length(tmp)>0, - tmp1=tmp_1_2-1; - tmp1=sghid_1+(sghid_2-sghid_1)*tmp1; - , - tmp1=sghid_2; - ); - added=[sghid_1,tmp1]; - ); - if(flg1+flg2==0, - added=sghid; - ); - ); - if(length(tmp)==2, - if(min([flg1,flg2])>=0,added=sghid,added=[]); - ); - ); - if(length(added)>0, - if(length(sgnoh)==0, - sgnoh=added; - , - if(sgnoh_(length(sgnoh))<added_1-Eps, - sgnoh=concat(sgnoh,added); - , - sgnoh=sgnoh_(1..(length(sgnoh)-1)); - sgnoh=concat(sgnoh,added_(2..length(added))); - ); - ); - ); - ); - ); - sgnoh=apply(sgnoh,rng_1+#*(rng_2-rng_1)); - sgnoh; -); - -Nohiddensegs(seg,range,faceno,vtxL):=( - regional(Eps,rng,face,vtx,out,ra,rb,tmp,tmp1,tmp2); - Eps=10^(-4); - face=apply(faceno,vtxL_#); // 16.02.10 - rng=range; - out=rng; - forall(2..(length(face)-1),vtx, - tmp1=[face_1,face_vtx,face_(vtx+1)]; - forall(1..(length(rng)/2), - tmp=[rng_(2*#-1),rng_(2*#)]; - out=remove(out,tmp); - tmp2=Nohiddenseg(seg,tmp,tmp1); - if(length(tmp2)>0, - out=remove(out,tmp); - out=concat(out,tmp2); - ); - ); - tmp=sort(out); - out=[]; - forall(1..(length(tmp)/2), - ra=tmp_(2*#-1); - rb=tmp_(2*#); - if(ra<rb-Eps, - if(length(out)==0, - out=[ra,rb]; - , - if(out_(length(out))<ra-Eps, - out=concat(out,[ra,rb]); - , - out_(length(out))=rb; - ); - ); - ); - ); - rng=out; - ); - rng; -); - -Nohiddenbyfaces(nm,facestr):= - Nohiddenbyfaces(nm,Datalist3d(),facestr,[],["do"]); -Nohiddenbyfaces(nm,Arg1,Arg2):=( - regional(segstr,facestr,options); - if(islist(Arg2), - segstr=Datalist3d(); - facestr=Arg1; - options=Arg2; - , - segstr=Arg1; - facestr=Arg2; - options=[]; - ); - Nohiddenbyfaces(nm,segstr,facestr,options,["do"]); -); -Nohiddenbyfaces(nm,Arg1,Arg2,Arg3):=( - regional(segstr,facestr,options,optionsh); - if(islist(Arg2), - segstr=Datalist3d(); - facestr=Arg1; - options=Arg2; - optionsh=Arg3; - , - segstr=Arg1; - facestr=Arg2; - options=Arg3; - optionsh=["do"]; - ); - Nohiddenbyfaces(nm,segstr,facestr,options,optionsh); // 16.02.21 -); -Nohiddenbyfaces(nm,segstr,facestr,optionorg,optionsh):=( -//help:Nohiddenbyfaces("1","phf3d1"); -//help:Nohiddenbyfaces("1","ax3d","phf3d1"); -//help:Nohiddenbyfaces(options1=["dr"]); -//help:Nohiddenbyfaces(options2=["do"]); - regional(Eps,namen,nameh,options,segL,faceL,vtxL,rng,seg,face, - flg,ctr,tmp,tmp1,tmp2,Ltype,Noflg,eqL,opstr,opcindy,frnL,frhL); - Eps=10^(-4); - namen="frn"+nm; - nameh="frh"+nm; - if(isstring(segstr), -// segL=parse(segstr); - segL=[segstr]; // 16.08.19 - , - segL=segstr; - ); - tmp2=[]; // 16.02.29 from - forall(segL,seg, - tmp=replace(seg,"3d","2d"); - tmp1=select(GCLIST,#_1==tmp); - tmp1=tmp1_1; - if(tmp1_2==0, - tmp2=append(tmp2,seg); - ); - ); - segL=tmp2; - Changestyle3d(segL,["nodisp"]); // 16.02.29 upto - if(islist(segL), - if(isstring(segL_1), - segL=apply(segL,parse(#)); - ); - ); - segL=Flattenlist(segL); - flg=0; - if(isstring(facestr), - if(substring(facestr,0,3)=="phf", // 16.08.19from - faceL=parse(facestr); - tmp=replace(facestr,"phf","phv"); // 16.02.10 from - tmp=parse(tmp); - vtxL=apply(tmp,replace(#,"3d","")); // 16.02.10 upto - flg=1; - , - faceL=parse(facestr); - ); - ); - if(flg==0, - if(length(faceL)==2, // 16.08.19upto - vtxL=facestr_1; - faceL=facestr_2; - , - vtxL=facestr; - faceL=[1..length(vtxL)]; - ); - ); -// Hidden=""; - options=optionorg; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - eqL=tmp_5; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); -// forall(eqL, -// tmp=indexof(#,"="); -// tmp1=Toupper(substring(#,0,1)); -// tmp2=substring(#,tmp,length(#)); -// if(tmp1=="H", -// Hidden=tmp2; -// ); -// ); - - ctr=1; - frnL=[]; - frhL=[]; - forall(segL,seg, - rng=[0,1]; - forall(faceL,face, - rng=Nohiddensegs(seg,rng,face,vtxL); - ); - forall(1..length(rng)/2, - tmp=rng_(2*#-1); - tmp1=seg_1+tmp*(seg_2-seg_1); - tmp=rng_(2*#); - tmp2=seg_1+tmp*(seg_2-seg_1); -// tmp=remove(options,eqL); - tmp=append(options,"Msg=nodisp"); // 15.06.22 - Spaceline("-"+namen+"n"+text(ctr),[tmp1,tmp2],tmp); - frnL=append(frnL,namen+"n"+text(ctr)+"3d"); - ctr=ctr+1; - ); - if(length(rng)==0, - rng=[0,1]; - , - if(rng_1>0+Eps, - rng=prepend(0,rng); - , - rng=rng_(2..length(rng)); - ); - if(rng_(length(rng))<1-Eps, - rng=append(rng,1); - , - rng=rng_(1..(length(rng)-1)); - ); - ); - forall(1..length(rng)/2, - tmp=rng_(2*#-1); - tmp1=seg_1+tmp*(seg_2-seg_1); - tmp=rng_(2*#); - tmp2=seg_1+tmp*(seg_2-seg_1); - if(length(optionsh)>0,tmp=optionsh,tmp=["do"]); - tmp=append(tmp,"Msg=nodisp"); // 15.06.22 - Spaceline("-"+nameh+"n"+text(ctr),[tmp1,tmp2],tmp); - frhL=append(frhL,nameh+"n"+text(ctr)+"3d"); - ctr=ctr+1; - ); - ); - tmp1=apply(frnL,Dq+#+Dq); - tmp="frn3d"+nm+"="+text(tmp1); - parse(tmp); - println(" generate totally "+"frn3d"+nm); - tmp1=apply(frhL,Dq+#+Dq); - tmp="frh3d"+nm+"="+text(tmp1); - parse(tmp); - println(" generate totally "+"frh3d"+nm); -); - -Faceremovaldata(nm,vfdata,crvdata):=Faceremovaldata(nm,vfdata,crvdata,[]); -Faceremovaldata(nm,vfdata,crvdata,options):=( - regional(name2,name3,nameh2,nameh3,Ltype,Noflg,eqL,Hidden, - opstr,opcindy,Outflg,Inflg,tmp,tmp1,tmp2); - name2="frc2d"+nm; - name3="frc3d"+nm; - nameh2="frch2d"+nm; - nameh3="frch3d"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - Inflg=tmp_3; - Outflg=tmp_4; - if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15 - eqL=tmp_5; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - Hidden=""; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="H", - Hidden=tmp2; - ); - ); - if(Noflg<3, - if(Outflg>=1, - println("Output Faceremovaldata "+name3); - if(MeasureDepth(vfdata)==1, - tmp1=text(apply(vfdata,#_[1,3])); - , - tmp1=text([vfdata_[1,3]]); - ); - tmp1=replace(tmp1,"[","list("); - tmp1=replace(tmp1,"]",")"); - tmp2=text(crvdata); - tmp2=replace(tmp2,"[","list("); - tmp2=replace(tmp2,"]",")"); -// tmp2="Flattenlist("+tmp2+")"; - tmp=name3+"=Faceremovaldata("+tmp1+","+tmp2+opstr+","+Dq+"para"+Dq+")"; - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - tmp=nameh3+"=PhHiddenData()"; - GLIST=append(GLIST,tmp); - tmp=nameh2+"=Projpara("+nameh3+")"; - GLIST=append(GLIST,tmp); - if(Outflg==1, - SCIWRLIST=append(SCIWRLIST,name3); - SCIWRLIST=append(SCIWRLIST,name2); - SCIWRLIST=append(SCIWRLIST,nameh3); - SCIWRLIST=append(SCIWRLIST,nameh2); - ); - ); - if(Inflg==1, - if(length(SCIRELIST)==0, - ReadOutData(Fnameout); - ); - tmp=parse(name2); - if(islist(tmp), - Extractdata(name2,["nodisp"]); // 12.19 - ); - SCIRELIST=append(SCIRELIST,name3); - SCIRELIST=append(SCIRELIST,name2); - ); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - if(Inflg==1, - if(MeasureDepth(vfdata)==1, - tmp1=apply(vfdata,parse(#_2)); - , - tmp1=[parse(vfdata_2)]; - ); - forall(tmp1, - Changestyle3d(#,["nodisp"]); - ); - Changestyle3d(crvdata,["nodisp"]); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - ); - ); - if(Hidden!="", - Drawlinetype(nameh2,Hidden); - if(Inflg==1, - tmp1=Toupper(substring(Hidden,0,2)); - if(tmp1=="DR",Ltype=0); - if(tmp1=="DA",Ltype=1); - if(tmp1=="DO",Ltype=3); - if(tmp1=="ID",Ltype=1); - GCLIST=append(GCLIST,[nameh2,Ltype,opcindy]); - ); - ); -); - -Fullformfunc(FdL):=( - regional(Out,nn,ii,Jrg,flg,Urg,Vrg,kk,Uname, - Zf,Xname,Xf,Yname,Yf,tmp,tmp1,tmp2); - Out=[FdL_1]; - nn=length(FdL); - flg=0; - forall(1..nn, - if(flg==0, - tmp=FdL_#; - if(substring(tmp,length(tmp)-1,length(tmp))=="]", - Jrg=#; - Urg=FdL_Jrg; - flg=1; - ); - ); - ); - kk=indexof(Urg,"="); - Uname=Removespace(substring(Urg,0,kk-1)); - tmp=substring(Urg,kk,length(Urg)); - Urg=Uname+"="+tmp; -// tmp1=parse(tmp); -// Urg=Uname+"="+textformat(tmp1,5); - Vrg=FdL_(Jrg+1); - kk=indexof(Vrg,"="); - Vname=Removespace(substring(Vrg,0,kk-1)); - tmp=substring(Vrg,kk,length(Vrg)); - Vrg=Vname+"="+tmp; -// tmp1=parse(tmp); -// Vrg=Vname+"="+textformat(tmp1,5); - if(Jrg==2, - tmp=FdL_1; - kk=indexof(tmp,"="); - Zf=substring(tmp,kk,length(tmp)); - tmp=[Uname,Vname,Zf,Urg,Vrg]; - Out=concat(Out,tmp); - , - if(Jrg==4, - tmp=FdL_1; - kk=indexof(tmp,"="); - Zf=substring(tmp,kk,length(tmp)); - tmp=FdL_2; - kk=indexof(tmp,"="); - Xname=Removespace(substring(tmp,0,kk-1)); - Xf=substring(tmp,kk,length(tmp)); - tmp=FdL_3; - kk=indexof(tmp,"="); - Yname=Removespace(substring(tmp,0,kk-1)); - Yf=substring(tmp,kk,length(tmp)); - tmp=replace(Zf,Xname,"("+Xf+")"); - Zf=replace(tmp,Yname,"("+Yf+")"); - Tmp=[Xf,Yf,Zf,Urg,Vrg]; - Out=concat(Out,Tmp); - , - tmp=FdL_2; - kk=indexof(tmp,"="); - Xf=substring(tmp,kk,length(tmp)); - tmp=FdL_3; - kk=indexof(tmp,"="); - Yf=substring(tmp,kk,length(tmp)); - tmp=FdL_4; - kk=indexof(tmp,"="); - Zf=substring(tmp,kk,length(tmp)); - tmp=[Xf,Yf,Zf,Urg,Vrg]; - Out=concat(Out,tmp); - ); - ); - DrwS="enws"; - BdyL=[]; - forall((Jrg+2)..length(FdL),ii, - tmp=FdL_ii; - if(isstring(tmp), - if(length(tmp)==0, - tmp=" "; - ); - DrwS=tmp; - ); - if(islist(tmp) & length(tmp_1)>1, - BdyL=tmp; - ); - ); - tmp=[DrwS,BdyL]; - Out=concat(Out,tmp); -); - -Surffun(nm,Fd):=( - regional(name,coord,var1,var2,rng1,rng2,bdy,tmp,tmp1,tmp2); - tmp=Fullformfunc(Fd); - rng1=tmp_5; - rng2=tmp_6; - bdy=tmp_7; - coord="["+tmp_2+","+tmp_3+","+tmp_4+"]"; - tmp=indexof(rng1,"="); - var1=substring(rng1,0,tmp-1); - rng1=substring(rng1,tmp,length(rng1)); - tmp=indexof(rng2,"="); - var2=substring(rng2,0,tmp-1); - rng2=substring(rng2,tmp,length(rng2)); - name="Sfn"+nm+"("+var1+","+var2+")"; - Deffun(name,["regional(tmp)","tmp="+coord,"tmp"]); - [name,var1,rng1,var2,rng2,bdy]; -); - -Sf3data(nm,fdata):=Sf3data(nm,fdata,[]); -Sf3data(nm,fdata,optionorg):=( - regional(tmp,tmp1,tmp2); - tmp=Surffun(nm,fdata); - tmp1=tmp_2+"="+tmp_3; - tmp2=tmp_4+"="+tmp_5; - Sf3data(nm,tmp_1,tmp1,tmp2,optionorg); -); -Sf3data(nm,funstr,var1,var2):=Sf3data(nm,funstr,var1,var2,[]); -Sf3data(nm,funstr,var1org,var2org,optionorg):=( -//help:Sf3data("1",Fd); -//help:Sf3data(options=["Num=[25,25]","Wire=[20,20]"]); - regional(name2,name3,var1,var2,Ltype,Noflg,opstr,opcindy,eqL,Num, - Wire,varu,varv,rngu,rngv,sfdtuL,sfdtvL,options, - tmp,tmp1,tmp2,tmp3); - var1=replace(var1org,"%pi","pi"); - var2=replace(var2org,"%pi","pi"); - tmp=Divoptions(optionorg); - Ltype=tmp_1; - Noflg=tmp_2; - eqL=tmp_5; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - options=optionorg; - Num=[25,25]; - Wire=[20,20]; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,0,tmp-1); - tmp2=substring(#,tmp,length(#)); // 16.05.25 - tmp=Toupper(substring(tmp1,0,1)); - if(tmp=="N", - tmp2=parse(tmp2); - if(!islist(tmp2),tmp2=[tmp2,tmp2]); - Num=tmp2; - options=remove(options,[#]); - ); - if(tmp=="W", - tmp2=parse(tmp2); - if(!islist(tmp2),tmp2=[tmp2,tmp2]); - Wire=tmp2; - options=remove(options,[#]); - ); - ); - tmp=indexof(var1,"="); - varu=substring(var1,0,tmp-1); - rngu=parse(substring(var1,tmp,length(var1))); - tmp=indexof(var2,"="); - varv=substring(var2,0,tmp-1); - rngv=parse(substring(var2,tmp,length(var2))); - sfdtuL=[]; - forall(0..Wire_2, - tmp=rngv_1+#/Wire_2*(rngv_2-rngv_1); - tmp1=replace(funstr,varv,textformat(tmp,5)); - tmp="Num="+text(Num_2); - tmp2=concat(options,["Msg=no",tmp]); - Spacecurve(nm+"u"+#,tmp1,var1,tmp2); - sfdtuL=append(sfdtuL,"sc3d"+nm+"u"+#); - ); - sfdtvL=[]; - forall(0..Wire_1, - tmp=rngu_1+#/Wire_1*(rngu_2-rngu_1); - tmp1=replace(funstr,varu,textformat(tmp,5)); - tmp="Num="+text(Num_1); - tmp2=concat(options,["Msg=no",tmp]); - Spacecurve(nm+"v"+#,tmp1,var2,tmp2); - sfdtvL=append(sfdtvL,"sc3d"+nm+"v"+#); - ); - if(Noflg<3, - println(" generate totally "+"sf3d"+nm); - tmp1=""; - forall(sfdtuL, - tmp1=tmp1+Dq+#+Dq+","; - ); - tmp1=substring(tmp1,0,length(tmp1)-1); - tmp2=""; - forall(sfdtvL, - tmp2=tmp2+Dq+#+Dq+","; - ); - tmp2=substring(tmp2,0,length(tmp2)-1); - tmp="sf3d"+nm+"=[["+tmp1+"],["+tmp2+"]]"; - parse(tmp); - ); - [sfdtuL,sfdtvL]; -); - -Sfbdparadata(nm,fd):= - Sfbdparadata(nm,fd,[],["nodisp"]); -Sfbdparadata(nm,fd,options):= - Sfbdparadata(nm,fd,options,["nodisp"]); -Sfbdparadata(nm,fdorg,optionorg,optionsh):=( -//help:Sfbdparadata("1",Fd); -//help:Sfbdparadata(options2=["Wait=30",limit1([0.05,1], limit2(0.2)]); - regional(fd,options,name2,name3,name2h,name3h,waiting, - eqL,reL,strL,fname,outreg,tmp,tmp1,tmp2,flg,wflg); - name2="sfbd2d"+nm; - name3="sfbd3d"+nm; - name2h="sfbdh2d"+nm; - name3h="sfbdh3d"+nm; - fname=Fhead+"sfbd"+nm+".txt"; - fd=apply(fdorg,if(isstring(#),"'"+#+"'",#)); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; - strL=tmp_7; - waiting=30; - outreg=0; // 16.08.20 - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); -// if(tmp1=="O", // 16.08.20 -// tmp=Toupper(substring(tmp2,0,1)); -// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0); -// options=remove(options,[#]); -// ); - ); - options=remove(options,reL); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - cmdL=MkprecommandS(5); // 16.02.01 - tmp=[ - Dq+fname+Dq, - Dq+name3+Dq,name3, - Dq+name2+Dq,name2, - Dq+name3h+Dq,name3h, - Dq+name2h+Dq,name2h, - Dq+"HIDDENDATA"+Dq,"HIDDENDATA", // 16.08.20from - Dq+"PARTITIONPT"+Dq,"PARTITIONPT", - Dq+"OTHERPARTITION"+Dq,"OTHERPARTITION" // 16.08.20upto - ]; - fd=apply(fd,replace(#,"_1","(1)")); // 16.05.25from - fd=apply(fd,replace(#,"_2","(2)")); - fd=apply(fd,replace(#,"_3","(3)")); // 16.05.25upto - cmdL=concat(cmdL,[ - name3+"=Sfbdparadata",concat([fd,"Error"],reL), - name2+"=Projpara",[name3], - name3h+"=BorderHiddenData()",[], - name2h+"=Projpara",[name3h], - "function Ot=Hiddend(),global HIDDENDATA,Ot=HIDDENDATA,endfunction)" - ,[], // 16.08.20from - "function Ot=Otherp(),global OTHERPARTITION,Ot=OTHERPARTITION,endfunction)" - ,[], - "HIDDENDATA=Hiddend()",[], - "PARTITIONPT=PartitionPt()",[], - "OTHERPARTITION=Otherp()",[], - "for J=1:length(OTHERPARTITION)",[], - " Tmp1=OTHERPARTITION(J)",[], - " Tmp2=[]",[], - " for K=1:length(Tmp1)",[], - " Tmp2=[Tmp2;Tmp1(K),1000]",[], - " end",[], - " OTHERPARTITION(J)=Tmp2",[], - "end",[], - "WriteOutData",tmp - ]); - options=append(options,"Wait="+text(waiting)); - if(wflg==1,options=concat(options,["m"])); // 16.08.20 - if(wflg==-1,options=concat(options,["r"])); - if(ErrFlag==0, - CalcbyS("sfbd"+nm,cmdL,options); - ); - if(ErrFlag==1, - err("Sfbdparadata not completed"); - , - if(outreg==1, - OutFileList=remove(OutFileList,[fname]); - OutFileList=append(OutFileList,fname); - ); - ReadOutData(fname); - if(islist(parse(name2)), - Extractdata(name2,options); - if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]); - Extractdata(name2h,tmp); - , - ErrFlag=1; - ); - ); -); - -Wireparadata(nm,out,wr1,wr2,fd):= - Wireparadata(nm,out,fd,wr1,wr2,[],["nodisp"]); -Wireparadata(nm,out,fd,wr1,wr2,options):= - Wireparadata(nm,out,fd,wr1,wr2,options,["nodisp"]); -Wireparadata(nm,outstr,fdorg,wr1,wr2,optionorg,optionsh):=( -//help:Wireparadata("1","sfbd3d1",fd,5,5); -//help:Wireparadata(options2=["Wait=40"]); - regional(out,fd,options,name2,name3,name2h,name3h,outreg, - eqL,reL,strL,fname,outfname,waiting,tmp,tmp1,tmp2,flg,wflg); - name2="wire2d"+nm; - name3="wiref3d"+nm; - name2h="wireh2d"+nm; - name3h="wireh3d"+nm; - fname=Fhead+"wire"+nm+".txt"; - tmp=replace(outstr,"3d",""); - outfname=Fhead+tmp+".txt"; // 16.08.20 - out=parse(outstr); - if(!islist(out), ErrFlag=1); - fd=apply(fdorg,if(isstring(#),"'"+#+"'",#)); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; - strL=tmp_7; - waiting=40; - outreg=0; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); -// if(tmp1=="O", // 16.08.20from -// tmp=Toupper(substring(tmp2,0,1)); -// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0); -// options=remove(options,[#]); -// );// 16.08.20upto - ); - options=remove(options,reL); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - flg=0; - tmp1=floor(5*1000/WaitUnit); - repeat(tmp1, - if(flg==0, - tmp=load(Fhead+replace(outstr,"3d","")+".txt"); - if(length(tmp)>=4, - tmp2=substring(tmp,length(tmp)-4,length(tmp)); - if(tmp2=="////", - flg=1; - ); - , - wait(WaitUnit); - ); - ); - ); - if(flg==0, - Err(outstr+" file not copleted"); - ErrFlag=1; - ); - if(ErrFlag==0, -// Writeoutdata(outfname,["Out",out]); - ); - cmdL=MkprecommandS(5); // 16.02.01 - tmp=[ - Dq+fname+Dq, - Dq+name3+Dq,name3, - Dq+name2+Dq,name2, - Dq+name3h+Dq,name3h, - Dq+name2h+Dq,name2h - ]; - fd=apply(fd,if(isstring(#),replace(#,"_1","(1)"),#)); // 16.05.25 08.17from - fd=apply(fd,if(isstring(#),replace(#,"_2","(2)"),#)); - fd=apply(fd,if(isstring(#),replace(#,"_3","(3)"),#)); // 16.05.25 08.17upto - cmdL=concat(cmdL,[ - "disp('Running Wireparadata')",[], - "tmp=ReadOutData",[Dq+outfname+Dq], - "execstr(tmp)",[], - "function SetHidd(Dt),global HIDDENDATA,HIDDENDATA=Dt,endfunction)", - [], // 16.08.20from - "function SetPart(Dt),global PARTITIONPT,PARTITIONPT=Dt,endfunction)", - [], - "function SetOther(Dt),global OTHERPARTITION,OTHERPARTITION=Dt,endfunction)", - [], - "if type(HIDDENDATA)~=15,HIDDENDATA=list(HIDDENDATA),end",[], - "if type(PARTITIONPT)~=15,PARTITIONPT=list(PARTITIONPT),end",[], - "if type(OTHERPARTITION)~=15,OTHERPARTITION=list(OTHERPARTITION),end",[], - "for J=1:length(OTHERPARTITION)",[], - " Tmp=OTHERPARTITION(J)",[], - " OTHERPARTITION(J)=Tmp(:,1)",[], - "end",[], - "SetHidd(HIDDENDATA)",[], - "SetPart(PARTITIONPT)",[], - "SetOther(OTHERPARTITION)",[], - "if type("+outstr+")~=15,"+outstr+"=list("+outstr+"),end",[], // 16.08.20upto - name3+"=Wireparadata",concat([outstr,fd,wr1,wr2,"Error"],reL), - name2+"=Projpara",[name3], - name3h+"=WireHiddenData()",[], - name2h+"=Projpara",[name3h], - "WriteOutData",tmp - ]); - options=append(options,"Wait="+text(waiting)); - if(wflg==1,options=concat(options,["m"])); - if(wflg==-1,options=concat(options,["r"])); - if(ErrFlag==0, - CalcbyS("wire"+nm,cmdL,options); - ); - if(ErrFlag==1, - err("Wireparadata not completed"); - , - if(outreg==1, -// OutFileList=remove(OutFileList,[fname]); -// OutFileList=append(OutFileList,fname); - ); - ReadOutData(fname); - if(!islist(parse(name2)), ErrFlag=1); - if(ErrFlag==0, - Extractdata(name2,options); - if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]); - Extractdata(name2h,tmp); - ); - ); -); - -Crvsfparadata(nm,gd,out,fd):= - Crvsfparadata(nm,gd,out,fd,[],["nodisp"]); -Crvsfparadata(nm,gd,out,fd,options):= - Crvsfparadata(nm,gd,out,fd,options,["nodisp"]); -Crvsfparadata(nm,gdstr,outstr,fdorg,optionorg,optionsh):=( -//help:Crvsfparadata("1","ax3d","sfbd3d1",fd); -//help:Crvsfparadata(options2=["Wait=20"]); - regional(gd,out,fd,options,name2,name3,name2h,name3h,outreg, - eqL,reL,strL,fname,gdfname,outfname,waiting,tmp,tmp1,tmp2,flg,wflg); - name2="crvsf2d"+nm; - name3="crvsf3d"+nm; - name2h="crvsfh2d"+nm; - name3h="crvsfh3d"+nm; - fname=Fhead+"crvsf"+nm+".txt"; - gdfname=Fhead+"crv"+nm+".txt"; - tmp=replace(outstr,"3d",""); - outfname=Fhead+tmp+".txt"; // 16.08.20 - gd=parse(gdstr); - out=parse(outstr); - if(!islist(out), ErrFlag=1); - fd=apply(fdorg,if(isstring(#),"'"+#+"'",#)); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; - strL=tmp_7; - waiting=20; - outreg=1; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); -// if(tmp1=="O", -// tmp=Toupper(substring(tmp2,0,1)); -// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0); -// options=remove(options,[#]); -// ); - ); - options=remove(options,reL); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - flg=0; - tmp1=floor(5*1000/WaitUnit); - repeat(tmp1, - if(flg==0, - tmp=load(Fhead+replace(outstr,"3d","")+".txt"); - if(length(tmp)>=4, - tmp2=substring(tmp,length(tmp)-4,length(tmp)); - if(tmp2=="////", - flg=1; - ); - , - wait(WaitUnit); - ); - ); - ); - if(flg==0, - Err(outstr+" file not copleted"); - ErrFlag=1; - ); - if(wflg==0, - tmp=load(fname); - if(length(tmp)==0,wflg=1); - ); - if(ErrFlag==0, -// Writeoutdata(outfname,["Gc",gd,"Out",out]); -// wait(WaitUnit); - ); - cmdL=MkprecommandS(5); // 16.02.01 - tmp=[ - Dq+fname+Dq, - Dq+name3+Dq,name3, - Dq+name2+Dq,name2, - Dq+name3h+Dq,name3h, - Dq+name2h+Dq,name2h - ]; - fd=apply(fd,if(isstring(#),replace(#,"_1","(1)"),#)); // 16.05.25 08.17from - fd=apply(fd,if(isstring(#),replace(#,"_2","(2)"),#)); - fd=apply(fd,if(isstring(#),replace(#,"_3","(3)"),#)); // 16.05.25 08.17upto - cmdL=concat(cmdL,[ - "disp('Running Crvsfparadata')",[], - "tmp=ReadOutData",[Dq+outfname+Dq], - "execstr(tmp)",[], - "function SetHidd(Dt),global HIDDENDATA,HIDDENDATA=Dt,endfunction)", - [], // 16.08.20from - "function SetPart(Dt),global PARTITIONPT,PARTITIONPT=Dt,endfunction)", - [], - "function SetOther(Dt),global OTHERPARTITION,OTHERPARTITION=Dt,endfunction)", - [], - "if type(HIDDENDATA)~=15,HIDDENDATA=list(HIDDENDATA),end",[], - "if type(PARTITIONPT)~=15,PARTITIONPT=list(PARTITIONPT),end",[], - "if type(OTHERPARTITION)~=15,OTHERPARTITION=list(OTHERPARTITION),end",[], - "for J=1:length(OTHERPARTITION)",[], - " Tmp=OTHERPARTITION(J)",[], - " OTHERPARTITION(J)=Tmp(:,1)",[], - "end",[], - "SetHidd(HIDDENDATA)",[], - "SetPart(PARTITIONPT)",[], - "SetOther(OTHERPARTITION)",[], - "if type("+outstr+")~=15,"+outstr+"=list("+outstr+"),end",[], // 16.08.20upto - name3+"=Crvsfparadata",concat([gdstr,outstr,fd,"Error"],reL), - name2+"=Projpara",[name3], - name3h+"=CrvsfHiddenData()",[], - name2h+"=Projpara",[name3h], - "WriteOutData",tmp - ]); - options=append(options,"Wait="+text(waiting)); - if(wflg==1,options=concat(options,["m"])); - if(wflg==-1,options=concat(options,["r"])); - if(ErrFlag==0, - CalcbyS("crvsf"+nm,cmdL,options); - ); - if(ErrFlag==1, - err("Crvsfparadata not completed"); - , - if(outreg==1, - OutFileList=remove(OutFileList,[fname]); - OutFileList=append(OutFileList,fname); - ); - ReadOutData(fname); - tmp=replace(gdstr,"3d","2d"); - Changestyle([tmp],["nodisp"]); - Extractdata(name2,options); - if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]); - Extractdata(name2h,tmp); - ); -); - -Intersectcrvsf(nm,gd,fd):= - Intersectcrvsf(nm,gd,fd,[]); -Intersectcrvsf(nm,gdstr,fdorg,optionorg):=( -//help:Intersectcrvsf("1",ax3d_1,fd); -//help:Intersectcrvsf(options=["Wait=10",50,0.05]); - regional(name,gd,fd,options,reL,fname,gdfname, - waiting,tmp,tmp1,tmp2,flg,wflg,pts); - name="intpts"+nm; - fname=Fhead+name+".txt"; - gdfname=Fhead+"crv"+nm+".txt"; - gd=parse(gdstr); - fd=apply(fdorg,if(isstring(#),"'"+#+"'",#)); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; - strL=tmp_7; - waiting=10; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - ); - options=remove(options,reL); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - if(wflg>-1, - Writeoutdata(gdfname,["Gd",gd]); -// wait(WaitUnit); - ); - fd=apply(fd,replace(#,"_1","(1)")); // 16.05.25from - fd=apply(fd,replace(#,"_2","(2)")); - fd=apply(fd,replace(#,"_3","(3)")); // 16.05.25upto - cmdL=[ - "disp('Finding Intersectcrvsf')",[], - "Setangle",[THETA,PHI]*180/pi, - "tmp=ReadOutData",[Dq+gdfname+Dq], - "execstr(tmp)",[], - "Intpts=Intersectcrvsf",concat(["Gd",fd,"Error"],reL), - "tmp1='['",[], - "for J=1:length(Intpts)",[], - " tmp2=Intpts(J)",[], - " for K=1:length(tmp2)",[], - " if K==1",[], - " tmp1=tmp1+'['",[], - " end",[], - " tmp1=tmp1+string(tmp2(K))",[], - " if K<length(tmp2)",[], - " tmp1=tmp1+','",[], - " else",[], - " tmp1=tmp1+']'",[], - " end",[], - " end",[], - " if J<length(Intpts)",[], - " tmp1=tmp1+','",[], - " else",[], - " tmp1=tmp1+']||||'",[], //16.08.09 - " end",[], - "end",[], - "fid=mopen('"+fname+"','w')",[], - " mputl(tmp1,fid)",[], - "mclose(fid)",[] - ]; - options=append(options,"Wait="+text(waiting)); - if(wflg==1,options=concat(options,["m"])); - if(wflg==-1,options=concat(options,["r"])); - if(ErrFlag==0, - CalcbyS(name,cmdL,options); // 16.08.14 - ); - if(ErrFlag==1, - err("Intersectcrvsf not completed"); - , - println(name+" obtained"); //16.08.14from - pts=load(fname); - pts=replace(pts,"||||",""); - tmp=name+"="+pts; - parse(tmp); - parse(pts); //16.08.14upto - ); -); - -Skeletonparadata2(nm):=Skeletonparadata2(nm,[]); -Skeletonparadata2(nm,options):=( - regional(tmp,tmp2,tmp3); - // tmp=apply(GCLIST,#_1); - // tmp=select(tmp,indexo(#,"2d")>0); - // tmp2=select(tmp,indexof(#,"sub")==0); - tmp3=Datalist3d(); - Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22 - // tmp3=apply(tmp2,replace(#,"2d","3d")); - Skeletonparadata2(nm,"",tmp3,tmp3,options); -); -Skeletonparadata2(nm,Arg1,Arg2):=( - regional(nme,pltdata1,pltdata2,options); - if(isstring(Arg1) & islist(Arg2), - nme=Arg1; -// pltdata1=parse("phe3d"+nme); - pltdata1="phe3d"+nme; - pltdata2=pltdata1; - options=Arg2; - , - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=[]; - ); - Skeletonparadata2(nm,nme,pltdata1,pltdata2,options); -); -Skeletonparadata2(nm,Arg1,Arg2,Arg3):=( - regional(nme,pltdata1,pltdata2,options); - if(!isstring(Arg1), - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=Arg3; - , - if(isstring(Arg2) & !isstring(Arg3), - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=Arg3; - , - nme=Arg1; - pltdata1=Arg2; - pltdata2=Arg3; - options=[]; - ); - ); - Skeletonparadata2(nm,nme,pltdata1,pltdata2,options); // 15.07.09 -); -Skeletonparadata2(nm,nme,pltdata1,pltdata2,options):=( - regional(name2,name3,count,Ltype,Noflg,PdL,tmp,tmp1,tmp2, - opstr,opcindy,Str,Outflg,Inflg,realL,pdata1,pdata2,level); - name2="sk2d"+nm; - name3="sk3d"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - Inflg=tmp_3; - Outflg=tmp_4; - if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15 - realL=tmp_6; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - if(Noflg<3, - if(Outflg>=1, - println("Output Skeletonparadata2 "+name3); - if(isstring(pltdata1), // 15.05.27 from - tmp1=pltdata1; - , - tmp1=""; - forall(pltdata1, - tmp1=tmp1+#+","; - ); - tmp1="list("+substring(tmp1,0,length(tmp1)-1)+")"; - ); - if(isstring(pltdata2), - tmp2=pltdata2; - , - tmp2=""; - forall(pltdata2, - tmp2=tmp2+#+","; - ); - tmp2="list("+substring(tmp2,0,length(tmp2)-1)+")"; - ); - Str="Skeletonpara3data("+tmp1+","+tmp2+opstr+")"; // 15.05.27 upto - GLIST=append(GLIST,name3+"="+Str); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - if(Outflg==1, - SCIWRLIST=append(SCIWRLIST,name3); - SCIWRLIST=append(SCIWRLIST,name2); - ); - ); - if(Inflg==1, - if(length(SCIRELIST)==0, - ReadOutData(Fnameout); - ); - tmp=parse(name2); - if(islist(tmp), - Extractdata(name2,["nodisp"]); // 12.19 - ); - SCIRELIST=append(SCIRELIST,name3); - SCIRELIST=append(SCIRELIST,name2); - ); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - if(Inflg==1, -// tmp=apply(pltdata1,replace(#,"3d","2d")); // 15.05.18 from - if(nme!="", // 15.05.27 - Changestyle3d("phe3d"+nme,["nodisp"]); - , - forall(pltdata1, // 15.07.16 - tmp=replace(#,"3d","2d"); - if(contains(GCLIST,tmp), - Changestyle3d(#,["nodisp"]); - ); - ); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - ); - ); -); - -Skeletonparadata(nm):=Skeletonparadata(nm,[]); -Skeletonparadata(nm,options):=( - regional(tmp,tmp2,tmp3); - tmp3=Datalist3d(); - Skeletonparadata(nm,"",tmp3,tmp3,options); -// Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22 -); -Skeletonparadata(nm,Arg1,Arg2):=( -//help:Skeletonparadata("1"); -//help:Skeletonparadata("1",[pdata1,pdata2],[pdata3]); -//help:Skeletonparadata(options2=[width(1), "Wait=20]); - regional(nme,pltdata1,pltdata2,options); - if(isstring(Arg1) & islist(Arg2), - nme=Arg1; -// pltdata1=parse("phe3d"+nme); - pltdata1="phe3d"+nme; - pltdata2=pltdata1; - options=Arg2; - , - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=[]; - ); - Skeletonparadata(nm,nme,pltdata1,pltdata2,options); -); -Skeletonparadata(nm,Arg1,Arg2,Arg3):=( - regional(nme,pltdata1,pltdata2,options); - if(!isstring(Arg1), - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=Arg3; - , - if(isstring(Arg2) & !isstring(Arg3), - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=Arg3; - , - nme=Arg1; - pltdata1=Arg2; - pltdata2=Arg3; - options=[]; - ); - ); - Skeletonparadata(nm,nme,pltdata1,pltdata2,options); // 15.07.09 -); -Skeletonparadata(nm,nme,pltdata1org,pltdata2org,optionorg):=( - regional(name2,name3,eqL,strL,options,fname,outreg,waiting, - reL, pltdata1,pltdata2,wflg,opcindy,width,pdata, - tmp,tmp1,tmp2); - name2="sk2d"+nm; - name3="sk3d"+nm; - fname=Fhead+"sk"+nm+".txt"; - pltdata1=[];// 16.01.31 - forall(pltdata1org,tmp1, - tmp=parse(tmp1); - if(isstring(tmp_1), - pltdata1=concat(pltdata1,tmp); - , - pltdata1=append(pltdata1,tmp1); - ); - ); - pltdata2=[];// 16.01.31 - forall(pltdata2org,tmp1, - tmp=parse(tmp1); - if(isstring(tmp_1), - pltdata2=concat(pltdata2,tmp); - , - pltdata2=append(pltdata2,tmp1); - ); - ); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; //16.02.28 - strL=tmp_7; - opcindy=tmp_9; - waiting=20; - outreg=0; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="O", - tmp=Toupper(substring(tmp2,0,1)); - if(tmp=="T" % tmp=="Y", outreg=1,outreg=0); - options=remove(options,[#]); - ); - ); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - width=1; - if(length(reL)>0, //16.02.28 - width=reL_1; - ); - forall(pltdata1,pdata, - tmp=select(GLIST,indexof(#,pdata+"=")>0); - if(tmp==0, - Defvar(pdata,parse(pdata)); - ); - ); - forall(pltdata2,pdata, - tmp=select(GLIST,indexof(#,pdata+"=")>0); - if(tmp==0, - tmp=select(VLIST,#_1==pdata+"="); - if(tmp==0, - Defvar(pdata,parse(pdata)); - ); - ); - ); - cmdL=MkprecommandS(4); - tmp2=[ - Dq+fname+Dq, - Dq+name3+Dq,name3, - Dq+name2+Dq,name2 - ]; - cmdL=concat(cmdL,[ - "Setangle",[THETA,PHI]*180/pi, - name3+"=Skeletonpara3data",[pltdata1,pltdata2,width,"Error"], - name2+"=Projpara",[name3], - "WriteOutData",tmp2 - ]); - options=append(options,"Wait="+text(waiting)); - if(wflg==1,options=concat(options,["m"])); - if(wflg==-1,options=concat(options,["r"])); - if(ErrFlag==0, - CalcbyS("sk"+nm,cmdL,options); - ); - if(ErrFlag==1, - err("Skeletonparadata not completed"); - , - if(outreg==1, - OutFileList=remove(OutFileList,[fname]); - OutFileList=append(OutFileList,fname); - ); - ReadOutData(fname); - if(islist(parse(name2)), - Extractdata(name2,options); -// if(isstring(pltdata1_1), // 16.01.31 - tmp=apply(pltdata1,replace(#,"3d","2d")); -// , -// tmp=replace(pltdata1org,"3d","2d"); -// ); - Changestyle(tmp,["nodisp"]); -// Changestyle3d(pltdata1,["nodisp"]); - , - ErrFlag=1; - ); - ); -); - -Skeletondatacindy(nm):=Skeletondatacindy(nm,[]); -Skeletondatacindy(nm,options):=( - regional(tmp); - tmp=Datalist3d(); - Skeletondatacindy(nm,tmp,tmp,options); -); -Skeletondatacindy(nm,pltdata1,pltdata2):= - Skeletondatacindy(nm,pltdata1,pltdata2,[]); -Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=( -//help:Skeletondatacindy("1"); -//help:Skeletondatacindy("1",[pdata1,pdata2],[pdata3]); -//help:Skeletondatacindy(options2=[1(width)]); - regional(Eps,Eps2,name2,name3,Ltype,Noflg,reL,opcindy, - Out,ObjL,Plt3L,Rr,pltdata1,pltdata2,Plt2L,ObjL,ii,Data, - Obj3,jj,Gd,PtD,size,tmp,tmp1,tmp2); - name2="sk2d"+nm; - name3="sk3d"+nm; - pltdata1=[];// 16.01.31 - forall(pltdata1org,tmp1, - tmp=parse(tmp1); - pltdata1=append(pltdata1,tmp); - ); - pltdata2=[];// 16.01.31 - forall(pltdata2org,tmp1, - tmp=parse(tmp1); - pltdata2=append(pltdata2,tmp); - ); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - reL=tmp_6; //16.02.28 - opcindy=tmp_9; - Rr=0.075*1000/2.54/MilliIn; - size=1; - Eps2=0.05; - if(length(reL)>0, //16.02.28 - size=reL_1; - Rr=size*Rr; - if(length(reL)>1,Eps2=reL_2); - ); - Eps=10^(-4); - ObjL=Flattenlist(pltdata1); - Plt3L=Flattenlist(pltdata2); - tmp=apply(Plt3L,ProjcoordCurve(#)); - Plt2L=Flattenlist(tmp); -/////////// tmp=apply(pltdata1,replace(#,"3d","2d")); - Out=[]; - forall(1..(length(ObjL)),ii, - Obj3=ObjL_ii; - tmp=ProjcoordCurve(Obj3); - Data=Makeskeletondata([tmp],Plt2L,Rr,Eps2); - forall(1..(length(Data)),jj, - Gd=Data_jj; - if((length(Gd)>1) - & (norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))>Eps), - PtD=[]; - forall(1..(length(Gd)), - tmp=Gd_#; - tmp1=Invparapt(tmp,Obj3); - PtD=append(PtD,tmp1); - ); - Out=append(Out,PtD); - ); - ); - ); - Out=select(Out,length(Projcurve(#))>0); // 16.12.19 - tmp1=apply(Out,textformat(#,5)); - tmp=name3+"="+tmp1; - parse(tmp); - tmp=name2+"=Projcurve("+tmp1+");"; - parse(tmp); - Changestyle3d(pltdata1org,["nodisp"]); - if(Noflg<3, - println("generate skeleton :"+name3); - tmp1=text(pltdata1org); - tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")"; - tmp2=text(pltdata2org); - tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")"; - tmp=name3+"=Skeletonpara3data("+tmp1+","+tmp2+","; - tmp=tmp+text(size)+")"; - GLIST=append(GLIST,tmp); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - if(SUBSCR==1, - Subgraph(name3,opcindy); - ); - ); - Out; -); - -Makeskeletondata(Obj2L,Plt2L,R0,Eps2):=( - regional(Allres,Eps,Dmat,Dind,ii,Dt,nn1,nn2,Nind,Nobj, - Plt2,PhL,ClipL,ns,pt1,pt2,pt,pta,ptb,za,zb,z1,z2,t1,t2,te, - koc,KukanL,nn,tt,Rr,Flg,ii,jj,ptq,hh,Ku,Res,contflg,breakflg); - Eps=10.0^(-4); - Dmat=[]; - Dind=[]; - forall(1..(length(Plt2L)),ii, - Dt=Plt2L_ii; - nn1=length(Dmat)+1; - Dmat=concat(Dmat,Dt); - nn2=length(Dmat); - Dind=append(Dind,[nn1,nn2]); - ); - Nind=length(Dind); - Allres=[]; - forall(1..(length(Obj2L)),Nobj, - Plt2=Obj2L_Nobj; - PhL=Columnlist(Plt2,1..2); - ClipL=[]; - forall(1..(length(PhL)-1),ns, - pt1=PhL_(ns..(ns+1)); - forall(1..(length(Dind)),ii, - tmp=Dind_ii; - tmp=Dmat_(Dind_ii_1..Dind_ii_2); - pt2=Columnlist(tmp,1..2); - koc=IntersectcrvsPp(pt1,pt2,[Eps]); - if(length(koc)>0, - breakflg=0; - forall(1..(length(koc)),jj, - contflg=0; - if(breakflg==0, - pt=Op(1,Op(jj,koc)); - tmp=Op(2,Op(jj,koc)); - if((tmp<1+Eps) & (ns==1), - contflg=1; - ); - if(contflg==0, - if((tmp>length(pt1)-Eps) - & (ns==length(PhL)-1), - contflg=1; - ); - ); - if(contflg==0, - nn1=ns; - nn2=Op(3,Op(jj,koc)); - tmp=Plt2_nn1; - pta=tmp_(1..2); - za=tmp_3; - tmp=Plt2_(nn1+1); - ptb=tmp_(1..2); - zb=tmp_3; - if(norm(pta-ptb)<Eps, - contflg=1; - ); - ); - if(contflg==0, - t1=norm(pta-pt)/norm(pta-ptb); - z1=(1-t1)*za+t1*zb; - tmp=Dmat_(Dind_ii_1..Dind_ii_2); - tmp1=tmp_nn2; - pta=tmp1_(1..2); - za=tmp1_3; - tmp2=tmp_(nn2+1); - ptb=tmp2_(1..2); - zb=tmp2_3; - if(norm(pta-ptb)<Eps, - contflg=1; - ); - ); - if(contflg==0, - t2=norm(pta-pt)/norm(pta-ptb); - z2=(1-t2)*za+t2*zb; - if(z1<z2-Eps2, - if(length(ClipL)==0, - tmp=1; - , - tmp1=column(ClipL,1); - tmp1=apply(tmp1,#-pt_1); - tmp2=column(ClipL,2); - tmp2=apply(tmp2,#-pt_2); - tmp3=apply(tmp1,#^2)+apply(tmp2,#^2); - tmp=min(tmp3); - ); - if(tmp>Eps^2, - tmp1=pt1_2-pt1_1; - tmp2=ptb-pta; - tmp3=Dotprod(tmp1,tmp2); - tmp3=tmp3/norm(tmp1)/norm(tmp2); - tmp=1-0.5*tmp3^2; - tmp1=concat(pt,[nn1,t1,R0/tmp]); - ClipL=append(ClipL,tmp1); - ); - ); - ); - ); - ); - ); - ); - ); - te=length(Plt2); - KukanL=[[1.0,te]]; - pt1=PhL; - if(length(ClipL)>0, - forall(1..(length(ClipL)),ii, - tmp=ClipL_ii; - pt=tmp_(1..2); - nn=tmp_3; - tt=nn+tmp_4; - Rr=tmp_5; - Flg=0; - breakflg=0; - forall(reverse(1..nn),jj, - contflg=0; - if(breakflg==0, - ptq=PointonCurve(jj,pt1); - if(norm(pt-ptq)<Rr, - contflg=1; - ); - if(contflg==0, - Flg=jj; - breakflg=1; - contflg=1; - ); - ); - ); - if(Flg==0, - t1=1; - , - t1=Flg; t2=tt; - hh=t2-t1; - forall(1..10, - hh=hh*0.5; - ptq=PointonCurve(t1+hh,pt1); - if(norm(pt-ptq)<Rr, - t2=t2-hh; - , - t1=t1+hh; - ); - ); - ); - Ku=[t1]; - Flg=0; - breakflg=0; - forall((nn+1)..te,jj, - contflg=0; - if(breakflg==0, - ptq=PointonCurve(jj,pt1); - if(norm(pt-ptq)<Rr, - contflg=1; - ); - if(contflg==0, - Flg=jj; - breakflg=1; - contflg=1; - ); - ); - ); - if(Flg==0, - t2=te; - , - t1=tt; t2=Flg; - hh=t2-t1; - forall(1..10, - hh=hh*0.5; - ptq=PointonCurve(t1+hh,pt1); - if(norm(pt-ptq)<Rr, - t1=t1+hh; - , - t2=t2-hh; - ); - ); - ); - Ku=append(Ku,t2); - KukanL=Kukannozoku(Ku,KukanL); - ); - ); - Res=[]; - forall(1..(length(KukanL)),ii, - tmp=KukanL_ii; - t1=tmp_1; nn1=floor(t1); - t2=tmp_2; nn2=floor(t2); - PtL=[]; - if(t1-nn1<1-Eps, - tmp=PointonCurve(t1,pt1); - PtL=[tmp]; - ); - forall((nn1+1)..nn2,jj, - tmp=PointonCurve(jj,pt1); - PtL=append(PtL,tmp); - ); - if(t2-nn2>Eps, - tmp=PointonCurve(t2,pt1); - PtL=append(PtL,tmp); - ); - tmp=Listplot("",PtL,["nodata"]); - Res=append(Res,tmp); - ); - Allres=concat(Allres,Res); - ); - Allres; -); - -Kukannozoku(Jokyo,KukanL):=( - regional(Res,Eps,nn,ii,t1,t2,Ku,Flg,contflg,tmp,tmp1); - Eps=10^(-6); - nn=length(KukanL); - t1=Jokyo_1; t2=Jokyo_2; - tmp=KukanL_1; - t1=max(t1,tmp_1); - tmp=KukanL_nn; - t2=min(t2,tmp_2); - Res=[]; - Flg=0; - contflg=0; - forall(1..nn,ii, - if(contflg==0, - Ku=KukanL_ii; - if(Flg==0, - if(Ku_2<t1, - Res=append(Res,Ku); - , - Flg=1; - if(Ku_1<t1-Eps, - tmp=[Ku_1,t1]; - Res=append(Res,tmp); - ); - if(Ku_2>t2+Eps, - tmp=[t2,Ku_2]; - Res=append(Res,tmp); - ); - ); - , - if(Flg==1, - if(Ku_2<t2, - contflg=1; - , - if(contflg==0, - Flg=2; - if(Ku_1<t2-Eps, - Ku=[t2,Ku_2]; - ); - Res=append(Res,Ku); - ); - ); - , - if(contflg==0, - Res=append(Res,Ku); - ); - ); - ); - ); - ); - Res; -); - -ProjcoordCurve(Curve):=( - regional(SP,CP,ST,CT,Out,jj,pt,x,y,z,xz,yz,zz); - SP=sin(PHI); CP=cos(PHI); - ST=sin(THETA); CT=cos(THETA); - Out=[]; - forall(1..(length(Curve)),jj, - pt=Curve_jj; - x=pt_1; y=pt_2; z=pt_3; - xz=-x*SP+y*CP; - yz=-x*CP*CT-y*SP*CT+z*ST; - zz=x*CP*ST+y*SP*ST+z*CT; - Out=append(Out,[xz,yz,zz]); - ); - Out; -); - -Divnohidhid(nm,dt3dorg,nvec):=Divnohidhid(nm,dt3dorg,nvec,[],["do"]); -Divnohidhid(nm,dt3dorg,nvec,optionorg,options2):=( -//help:Divnohidhid("1","sc3d1",nvec,["Num=100"],["Num=100","do"]); - regional(name,dt3d,options,pvec,disp,nohid,hid,flg,tmp,tmp1,eqL); - name="nh"+nm; - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - disp="Y"; - forall(eqL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="D", - tmp=indexof(#,"="); - disp=Toupper(substring(#,tmp,tmp+1)); - options=remove(options,[#]); - ); - ); - if(isstring(dt3dorg),dt3d=parse(dt3dorg),dt3d=dt3dorg); - pvec=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; - nohid=[]; - hid=[]; - flg=0; - forall(1..(length(dt3d)-1), - p1=dt3d_#; - p2=dt3d_(#+1); - tmp=assign(nvec,["x",p1_1,"y",p1_2,"z",p1_3]); - tmp=parse(tmp); - if(Dotprod(tmp,pvec)>0, - if(flg==0 % flg==-1, - nohid=append(nohid,[p1,p2]); - flg=1; - ); - if(flg==1, - nohid_(length(nohid))=append(nohid_(length(nohid)),p2); - ); - , - if(flg==0 % flg==1, - hid=append(hid,[p1,p2]); - flg=-1; - ); - if(flg==-1, - hid_(length(hid))=append(hid_(length(hid)),p2); - ); - ); - ); - if(disp=="Y", - Changestyle3d([dt3dorg],["nodisp"]); - forall(1..length(nohid), - Spaceline(name+"nh"+text(#),nohid_#,options); - ); - forall(1..length(hid), - Spaceline(name+"h"+text(#),hid_#,options2); - ); - ); - tmp1="["; - forall(nohid,tmp1=tmp1+textformat(#,5)+","); - tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; - parse(name+"nh="+tmp1); - tmp1="["; - forall(hid,tmp1=tmp1+textformat(#,5)+","); - tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; - parse(name+"h="+tmp1); - [nohid,hid]; -); - -Beziersurf(nm,m,n,pL):=( -//help:Beziersurf("pt",2,2,pL); - regional(p3dL,ptlistx,ptlilsty,ptlistz); - factorial(n):=( - regional(out); - out=1; - forall(1..n, - out=out*#; - ); - out; - ); - Deffun("Comb(n,r)",[ - "regional(y)", - "y=factorial(n)/(factorial(r)*factorial(n-r))", - "y" - ]); - Deffun("Bterm(u,v,m,n,i,j)",[ - "regional(y)", - "y=Comb(m,i)*u^i*(1-u)^(m-i)", - "y=y*Comb(n,j)*v^j*(1-v)^(n-j)", - "y" - ]); - Deffun("Ball(u,v,m,n,pL)",[ - "regional(y,ii,jj,tmp,tmp1)", - "y=0", - "forall(0..m,ii, - forall(0..n,jj, - tmp=(n+1)*ii+jj+1; - tmp1=Op(tmp,pL); - tmp1=tmp1*Bterm(u,v,m,n,ii,jj); - y=y+tmp1; - ) - )", - "y" - ]); - if(ispoint(pL_1), - p3dL=apply(pL,parse(text(#)+"3d")); - , - p3dL=apply(pL,parse(#+"3d")); - ); - ptlistx=apply(p3dL,#_1); - ptlisty=apply(p3dL,#_2); - ptlistz=apply(p3dL,#_3); - Defvar(nm+"x",ptlistx); - Defvar(nm+"y",ptlisty); - Defvar(nm+"z",ptlistz); - tmp=[ - "p", - "x=Ball(U,V,2,2,"+nm+"x)", - "y=Ball(U,V,2,2,"+nm+"y)", - "z=Ball(U,V,2,2,"+nm+"z)", - "U=[0,1]", - "V=[0,1]" - ]; - tmp; -); - -//help:end(); diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlog.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlog.txt deleted file mode 100644 index 63f107b7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlog.txt +++ /dev/null @@ -1,295 +0,0 @@ -// s: 2017.07.13 -// Spaceline debugged ( ["A3d","B3d"] =>[A3d,B3d] ) -// s: 2017.07.01 -// Start3d changed (debugged) ( Initialize SlideColorList ) -// s: 2017.06.02 -// Putaxes3d debugged ( for THETA=90 ) -// Projpara debugged ( list with length <2 removed) -// s: 2017.05.18 -// Start3d changed ( Ch,ChNum added ) -// s: 2017.05.02 -// Ketinit3d, Start3d changed ( Sprintf(*.2) used ) -// s: 2017.04.14 -// Makeskeleton debugged ( Eps=10^(-4) ) -// s: 2017.01.19 -// Setangle changed ( for "" ) -// s: 2017.01.04 -// Bezier3 debugged ( t => T) -// s: 2016.12.24 -// Setangle added -// s: 2016.12.19 -// Skeletondatacindy debugged ( for null 2d data); -// s: 2016.12.18 -// Ptseg3data debugged ( points to be removed ); -// s: 2016.11.29 -// Start3d changed ( CONCATCMD,OCNAME added ) -// s: 2016.11.12 -// Start3d changed ( option:ptexception added ) -// ( with Ptseg3data, Mkpointlist ); -// s: 2016.11.11 -// Skeletondatacindy added -// ( with Makeskeletondata, Kukannozoku,ProjcoordCurve ) -// s: 2016.11.02 -// Divnohidhid added -// s: 2016.10.06 -// Joincrvs3d added -// s: 2016.08.20(22) -// Ptseg3data included in Start3d -// Wait option adjusted -// s: 2016.08.20(21) -// Mkpointlist changed ( x,y fixed when ptz changes ) -// Sfbdparadata,Wireparadata,Crvsfparadata debugged ( global var, for non list ) -// s: 2016.08.19 -// Nohiddenbyfaces, Mkbezierptcrv3d changed -// Start3d debugged ( BezierNumber3 added ) -// Concatobj changed ( Default : "rmf=y" ) -// s: 2016.08.17 -// Wireparadata debugged -// s: 2016.08.14 -// Xyzax3data changed ( options "a1","Osw" added ) -// Intersectcrvsf debugged -// s: 2016.08.09 -// Intersectcrvsf debugged ( //// => |||| ) -// s: 2016.06.20 -// Start3d changed ( no ketinit3d ) -// s: 2016.06.19 -// VertexEdgeFace changed ( for ptdata alone ) -// Putpoint3d debugged -// s: 2016.05.26 -// Putpoint3d debugged -// Beziersurf added -// s: 2016.05.26 -// Start3d changed ( pt2d added) - -///////////// -// s: 2014.12.13 v1.0.0(beta) -// Ketinit3d, Projpara, Parapt, Spaceline, Spacecurve, Xyzax3data -// e: 2014.12.14 -// Skeletonparadata -// e: 2014.12.18 -// Embed added -// e: 2014.12.19 -// Skeletonparadata debugged ( Extractdata used ) -// Dotprod, Crossprod added -// e: 2014.12.22 -// Skeletonparadata changed and debugged -// Rotate3pt, Rotate3data added -// Translate3pt, Translate3data added -// e: 2014.12.27 -// Projcurve changed ( options ) -// e: 2015.02.02 -// Ketinit3d changed ( slider position ) -// e: 2015.02.06 -// xyzcoord, Mkpointlist, Mkseg3d, Putpoint3d, Makescreen added -// e: 2015.02.07 -// Mkseg3d changed ( LineSeg ) -// 2nd frame changed (10 -> Pne.x-Psw.x ) -// e: 2015.02.08 -// Spacecurve changed ( Assign written to Scilab) -// Ketinit changed ( position of slider) -// e: 2015.02.09 -// Bezierpt3sub,Bezier3,Putbezier3data,Mkbezierptcrv3 added -// e: 2015.02.10 -// Spacecurve changed ( Num ) -// e: 2015.02.11 -// Ketinit3d, Ptseg3data,Putpoint3d changed ( SUBSCR ) -// Subscreen, Subgraph added -// Spaceline,Spacecurve, Rotate3data, Tranlate3data changed (SUBSCR) -// Bezier3 changed -// e: 2015,02.12 -// Bezier3, Putbezierpt debugged -// Spacecurve changed ( name when "bz") -// e: 2015.02.14 -// Ptseg3data changed ( alllines => allsegments ) -// e: 2015.02.15 -// Subscreen renamed to Start3d -// e: 2015.02.16 -// Ptseg3data, Mkpointlist changed -// e: 2015.02.17 -// Skeletonparadata debugged ( textformat was wrongly used) -// Mkpointlist debugged ( not finished ) -// e: 2015.02.18 -// Rotate3data, Translate3data changed ( available for pdlist ) -// Puttickmark3d ( not yet ) -// Putonaxes3 added -// drawpoint3d added -// e: 2015.02.23 -// help(example) added -// Pne,Psw,Th,Ph changed to NE,SW,TH,FI -// e: 2015.02.24 -// Bezier3 debugged -// Projpara changed ( for single data ) -// Reflectpt, PutonCurve3d added -// e: 2015.02.25 v1.2.1 -// Puonaxes changed ( sizelist for each axis ) -// e: 2015.02.26 -// Mkpointlist changed ( point moves perpendicular to xy-plain) -// e: 2015.02.27 -// IntersectsgpL, Fixpoint3d added -// Puonaxes3 renamed to Putaxes3d and changed -// e: 2015.02.28 -// Fixaxes3d removed -// Mkbezierptcrv changed -// Ketinit3d changed ( global BezierNumber3, BZLIST3) -// e: 2015.03.01 -// Findangle, Cancoordpara,Zparapt, Projcoordpara,added -// Putpoint3d changed ( fix option ); -// Putperp added -// e: 2015.03.02 -// Mkseg3d changed ( geoseg3 defined ) -// Changestyle3d added -// IntersectsgpL changed ( option put, draw, none ) -// Putperp rename to Perppt, available for segment, option added -// e: 2015.03.05 -// Start3d changed ( VLIST defined if empty ) -// e: 2015.03.06 v1.2.2 -// Keinit3d, Putpoint3d changed (TSIZE,TSIZEZ) -// Perpplane added -// Embed debugged (for data as string ) -// Pseg3d debugged (case of empty ) -// e: 2015:03.13 v1.2.3 -// Help ( Putoncurve3d ) added -// Putoncurve3d debugged -// e: 2015.03.25 v1.2.4 -// Skeletonparadata changed ( nm, options ); -// e: 2015.03.26 -// Bezier3, Mkbezierptcrv3d debugged -// e: 2015.03.28 -// Findangle ( and Perpplane ) debugged -// e: 2015.04.06 -// Start3d changed ( Var from Fhead ) -// e: 2015.05.12 v1.3.1 -// Datalist3d added -// e: 2015.05.14 -// Start3d debugged (SCEWRLIST, SCEWRLIST reset ) -// Skeletonpara changed (Divoptions used ) -// e: 2015.05.17 v1.3.2 -// Skeletonpara changed (out/in ) -// e: 2015.05.24 v1.3.3 -// Bezier3,Rotate3data,.. renamed to Bezier3d, ... -// help:start(), help:end() added -// VertexandEdge, Readobj, Removespace added -// Changestyle3d changed -// e: 2015.05.26 v1.4.1 -// Readobj, VertexandEdge added -// Phparadata added -// e: 2015.05.27 v1.4.1a -// Skeletonpara, Phparadata changed ( for string ) and debugged -// e: 2015.05.28 -// IntersectsgpL changed ( with segdata ) -// e: 2015.05.29 v1.4.2 -// Findhiddenseg added -// e: 2015.05.30 -// Spaceline changed ( name when "-" ) -// Datalist3d changed, Datalist2d added; -// Nohiddenbyfaces, Nohiddensegs, Nohiddenseg added -// e: 2015.06.02 v1.4.3 -// Nohiddenseg revised/debugged ( major revision ) -// Skeletonparadata changed -// e: 2015.06.06 v1.4.4 -// Readobj changed ( for #, f / ) -// Spaceline changed ( Message option ) -// e: 2015.06.08 v1.4.5 -// Nohiddenbyfaces changed -// e: 2015.06.15 v1.4.6 -// Vertexedgeface changed ( edge drawn as geometric figure ) -// Mkseg3data changed ( Points of Spaceline changed to vertex name ) -// e: 2015.06.22 v1.5.0 -// .cs adopted -// e: 2015.07.06 v1.5.1 -// Vertexedgeface changed ( options "Pt=..", "Sg=.." ); -// e: 2015.07.09 v1.5.2 -// Skeletonparadata debugged -// e: 2015.07.16 v1.5.3 -// Skeletonparadata debugged -// e: 2015.07.22 v1.5.4 -// Skeletonparadata debugged -// e: 2015.08.11 v1.5.6 -// Fullformfunc added -// e: 2015.08.14 v1.5.7 -// Spacecurve changed ( Msg option, tmpfn defined ) -// Start3d debugged ( FUNLIST initialized ) -// e: 2015.08.17 -// Spacecurve debugged -// Subgraph debugged -// e: 2015.10.04 v1.8.0 -// Sf3data, Sfbdparadata added -// Ketinit3d changed ( Position of Th,Phi sliders) -// e: 2015.10.05 -// Sfbdparadata changed -// Crvsfparadata added -// e: 2015.10.09 v1.8.1 -// Sfbdparadata,Crvsfparadata changed -// e: 2015.10.10 -// Sf3data debugged -// e: 2015.10.12 v1.8.2 -// Wireparadata, Intersectcrvsf added -// e: 2015.10.19 v1.8.4 -// Concatobj added -// Nohiddenbyseg changed ( optionh ) -// e: 2015.10.19 v1.8.5 -// Intersectcrvsf changed ( according to the mod of ReadOutData of Scilab) -// Drawpoint3d changed ( for pointlist) -// e: 2015.10.31 v2.0.0 -// Bugs fixed -// Embed debugged -// e: 2015.11.01 v2.0.1 -// Skeletonparadata changed to new version -// ( old version renamed to Skeletonparadata2 ) -// e: 2015.11.03 v2.0.1 -// Subgraph debugged -// e: 2015.11.05 v2.1.0 -// Start3d changed ( OutFileList reset ) -// e: 2015.12.16 -// VertexEdgeFace changed (help ) -// e:2016.01.24 -// Concatobj debugged ( major revision ) -// e:2016.01.30 -// geoseg3 => geoseg3d -// e:2016.01.31 -// Skeletonparadata debugged -// Start3d changed ( Arrow..counter reset ) -// e:2016.02.01 -// Skeletonparadata changed ( prec=4 ) -// Sfbdparadata changed ( precommandS added ) -// e:2016.02.02 -// IntersectsgpL changed ( for pointlist ) -// e:2016.02.02 -// Skeletonparadata debugged ( linestyle options ) -// e:2016.02.07 -// Dist3d added -// e:2016.02.10 -// Partcrv3d added -// Ketinit3d changed ( no display for sgTH,sgFI and TH,FI ,setwindow) -// Spaceline changed ( for [A,B,C,...] ) -// Vertexedgeface changed ( for [A,B,C,...] ) -// Nohiddenbyfaces, Nohiddenbyseg changed -// e:2016.02.11 -// Concatobj changed ( for duplicated point, removeface option ) -// e:2016.02.21 -// Nohiddenbyfaces debugged ( optionorg ) -// e:2016.02.22 -// Putonseg3d added -// Spaceline changed ( name defined automatically when no name ) -// e:2016.02.23 -// Nohiddenbyfaces debugged -// e:2016.02.28 -// Skeletonparadata debugged ( width option ) -// Concatobj changed ( for the list of points ) -// e:2016.02.29 -// Nohiddenbyfaces, Vertexedgeface debugged ( width option ) -// e:2016.03.02 -// Putpoint3d changed ( ("A",[1,2,3],"fix") is OK ) -// e:2016.03.30 -// Invparapt, InvparaptPp added -// e:2016.04.07 -// Mkseg3d debugged -// e:2016.04.08 -// Start3d changed (FigPdfList added ) -// e:2016.04.15 -// Spacecurve debugged ( option empty case ) -// e:2016.05.25 -// Sf3data debugged (parse in options ) -// Sfbdparadata, Wireparadata, Crvsfparadata debugged ( Sciform) -///////// To Reverse Sequence //////////////// - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt index 7cef6fc7..5afce0d3 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt +++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt @@ -1,3 +1,7 @@ +// 2018.01.04 +// Skeletonparadata(Skeletondatacindy) majorly changed +// 2017.10.23 +// Rotatedata3d, Translatedata3d debugged ([]) // 2017.10.08 // Bezier3,Putbezier3data,Mkbezierptcrv3d greatly changed // 2017.10.07 diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs index 9732be4b..1b6f69e1 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs +++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs @@ -14,7 +14,7 @@ // along with this program. If not, see <http://www.gnu.org/licenses/> // -println("ketcindylib3d(2017.10.07) loaded"); +println("ketcindylib3d(2018.01.05) loaded"); //help:start(); @@ -1290,9 +1290,10 @@ Rotate3data(nm,P3data,w1,w2,options):=( tmp1=Projpara(name3,["nodata"]); tmp=name2+"="+textformat(tmp1,5); parse(tmp); - tmp=text(P3data); - tmp=replace(tmp,"[","list("); - tmp=replace(tmp,"]",")"); + tmp=textformat(P3data,5); // 17.12.23 + tmp=RSform(tmp); // 17.12.23 +// tmp=replace(tmp,"[","list("); +// tmp=replace(tmp,"]",")"); tmp=name3+"=Rotate3data("+tmp+"," +textformat(w1,5)+","+textformat(w2,5)+opstr+")"; GLIST=append(GLIST,tmp); @@ -1377,9 +1378,11 @@ Translate3data(nm,P3data,w1,options):=( tmp1=Projpara(name3,["nodata"]); tmp=name2+"="+textformat(tmp1,5); parse(tmp); - tmp=text(P3data); - tmp=replace(tmp,"[","list("); - tmp=replace(tmp,"]",")"); + tmp=textformat(P3data,5); // 17.12.23 + tmp=RSform(tmp); // 17.12.23 +// tmp=text(P3data); +// tmp=replace(tmp,"[","list("); +// tmp=replace(tmp,"]",")"); tmp=name3+"=Translate3data("+tmp+","+textformat(w1,5)+")"; GLIST=append(GLIST,tmp); tmp=name2+"=Projpara("+name3+")"; @@ -3693,286 +3696,13 @@ Intersectcrvsf(nm,gdstr,fdorg,optionorg):=( ); ); -Skeletonparadata2(nm):=Skeletonparadata2(nm,[]); -Skeletonparadata2(nm,options):=( - regional(tmp,tmp2,tmp3); - // tmp=apply(GCLIST,#_1); - // tmp=select(tmp,indexo(#,"2d")>0); - // tmp2=select(tmp,indexof(#,"sub")==0); - tmp3=Datalist3d(); - Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22 - // tmp3=apply(tmp2,replace(#,"2d","3d")); - Skeletonparadata2(nm,"",tmp3,tmp3,options); -); -Skeletonparadata2(nm,Arg1,Arg2):=( - regional(nme,pltdata1,pltdata2,options); - if(isstring(Arg1) & islist(Arg2), - nme=Arg1; -// pltdata1=parse("phe3d"+nme); - pltdata1="phe3d"+nme; - pltdata2=pltdata1; - options=Arg2; - , - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=[]; - ); - Skeletonparadata2(nm,nme,pltdata1,pltdata2,options); -); -Skeletonparadata2(nm,Arg1,Arg2,Arg3):=( - regional(nme,pltdata1,pltdata2,options); - if(!isstring(Arg1), - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=Arg3; - , - if(isstring(Arg2) & !isstring(Arg3), - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=Arg3; - , - nme=Arg1; - pltdata1=Arg2; - pltdata2=Arg3; - options=[]; - ); - ); - Skeletonparadata2(nm,nme,pltdata1,pltdata2,options); // 15.07.09 -); -Skeletonparadata2(nm,nme,pltdata1,pltdata2,options):=( - regional(name2,name3,count,Ltype,Noflg,PdL,tmp,tmp1,tmp2, - opstr,opcindy,Str,Outflg,Inflg,realL,pdata1,pdata2,level); - name2="sk2d"+nm; - name3="sk3d"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - Inflg=tmp_3; - Outflg=tmp_4; - if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15 - realL=tmp_6; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - if(Noflg<3, - if(Outflg>=1, - println("Output Skeletonparadata2 "+name3); - if(isstring(pltdata1), // 15.05.27 from - tmp1=pltdata1; - , - tmp1=""; - forall(pltdata1, - tmp1=tmp1+#+","; - ); - tmp1="list("+substring(tmp1,0,length(tmp1)-1)+")"; - ); - if(isstring(pltdata2), - tmp2=pltdata2; - , - tmp2=""; - forall(pltdata2, - tmp2=tmp2+#+","; - ); - tmp2="list("+substring(tmp2,0,length(tmp2)-1)+")"; - ); - Str="Skeletonpara3data("+tmp1+","+tmp2+opstr+")"; // 15.05.27 upto - GLIST=append(GLIST,name3+"="+Str); - tmp=name2+"=Projpara("+name3+")"; - GLIST=append(GLIST,tmp); - ); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name2); - , - if(Noflg==1,Ltype=0); - ); - if(Inflg==1, -// tmp=apply(pltdata1,replace(#,"3d","2d")); // 15.05.18 from - if(nme!="", // 15.05.27 - Changestyle3d("phe3d"+nme,["nodisp"]); - , - forall(pltdata1, // 15.07.16 - tmp=replace(#,"3d","2d"); - if(contains(GCLIST,tmp), - Changestyle3d(#,["nodisp"]); - ); - ); - ); - GCLIST=append(GCLIST,[name2,Ltype,opcindy]); - ); - ); -); - -Skeletonparadata(nm):=Skeletonparadata(nm,[]); -Skeletonparadata(nm,options):=( - regional(tmp,tmp2,tmp3); - tmp3=Datalist3d(); - Skeletonparadata(nm,"",tmp3,tmp3,options); -// Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22 -); -Skeletonparadata(nm,Arg1,Arg2):=( -//help:Skeletonparadata("1"); -//help:Skeletonparadata("1",[pdata1,pdata2],[pdata3]); -//help:Skeletonparadata(options2=[width(1), "Wait=20]); - regional(nme,pltdata1,pltdata2,options); - if(isstring(Arg1) & islist(Arg2), - nme=Arg1; -// pltdata1=parse("phe3d"+nme); - pltdata1="phe3d"+nme; - pltdata2=pltdata1; - options=Arg2; - , - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=[]; - ); - Skeletonparadata(nm,nme,pltdata1,pltdata2,options); -); -Skeletonparadata(nm,Arg1,Arg2,Arg3):=( - regional(nme,pltdata1,pltdata2,options); - if(!isstring(Arg1), - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=Arg3; - , - if(isstring(Arg2) & !isstring(Arg3), - nme=""; - pltdata1=Arg1; - pltdata2=Arg2; - options=Arg3; - , - nme=Arg1; - pltdata1=Arg2; - pltdata2=Arg3; - options=[]; - ); - ); - Skeletonparadata(nm,nme,pltdata1,pltdata2,options); // 15.07.09 -); -Skeletonparadata(nm,nme,pltdata1org,pltdata2org,optionorg):=( - regional(name2,name3,eqL,strL,options,fname,outreg,waiting, - reL, pltdata1,pltdata2,wflg,opcindy,width,pdata, - tmp,tmp1,tmp2); - name2="sk2d"+nm; - name3="sk3d"+nm; - fname=Fhead+"sk"+nm+".txt"; - pltdata1=[];// 16.01.31 - forall(pltdata1org,tmp1, - tmp=parse(tmp1); - if(isstring(tmp_1), - pltdata1=concat(pltdata1,tmp); - , - pltdata1=append(pltdata1,tmp1); - ); - ); - pltdata2=[];// 16.01.31 - forall(pltdata2org,tmp1, - tmp=parse(tmp1); - if(isstring(tmp_1), - pltdata2=concat(pltdata2,tmp); - , - pltdata2=append(pltdata2,tmp1); - ); - ); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; //16.02.28 - strL=tmp_7; - opcindy=tmp_9; - waiting=20; - outreg=0; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="O", - tmp=Toupper(substring(tmp2,0,1)); - if(tmp=="T" % tmp=="Y", outreg=1,outreg=0); - options=remove(options,[#]); - ); - ); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - width=1; - if(length(reL)>0, //16.02.28 - width=reL_1; - ); - forall(pltdata1,pdata, - tmp=select(GLIST,indexof(#,pdata+"=")>0); - if(tmp==0, - Defvar(pdata,parse(pdata)); - ); - ); - forall(pltdata2,pdata, - tmp=select(GLIST,indexof(#,pdata+"=")>0); - if(tmp==0, - tmp=select(VLIST,#_1==pdata); - if(tmp==0, - Defvar(pdata,parse(pdata)); - ); - ); - ); - cmdL=MkprecommandS(4); - tmp2=[ - Dq+fname+Dq, - Dq+name3+Dq,name3, - Dq+name2+Dq,name2 - ]; - cmdL=concat(cmdL,[ - "Setangle",[THETA,PHI]*180/pi, - name3+"=Skeletonpara3data",[pltdata1,pltdata2,width,"Error"], - name2+"=Projpara",[name3], - "WriteOutData",tmp2 - ]); - options=append(options,"Wait="+text(waiting)); - if(wflg==1,options=concat(options,["m"])); - if(wflg==-1,options=concat(options,["r"])); - if(ErrFlag==0, - CalcbyS("sk"+nm,cmdL,options); - ); - if(ErrFlag==1, - err("Skeletonparadata not completed"); - , - if(outreg==1, - OutFileList=remove(OutFileList,[fname]); - OutFileList=append(OutFileList,fname); - ); - ReadOutData(fname); - if(islist(parse(name2)), - Extractdata(name2,options); -// if(isstring(pltdata1_1), // 16.01.31 - tmp=apply(pltdata1,replace(#,"3d","2d")); -// , -// tmp=replace(pltdata1org,"3d","2d"); -// ); - Changestyle(tmp,["nodisp"]); -// Changestyle3d(pltdata1,["nodisp"]); - , - ErrFlag=1; - ); - ); -); +////////////// new skeleton 2018.01.04from //////////////// +Skeletonparadata(nm):=Skeletondatacindy(nm,[]); +Skeletonparadata(nm,options):=Skeletondatacindy(nm,options); +Skeletonparadata(nm,pltdata1,pltdata2):=Skeletondatacindy(nm,pltdata1,pltdata2); +Skeletonparadata(nm,pltdata1org,pltdata2org,options):= + Skeletondatacindy(nm,pltdata1org,pltdata2org,options); Skeletondatacindy(nm):=Skeletondatacindy(nm,[]); Skeletondatacindy(nm,options):=( regional(tmp); @@ -3982,11 +3712,11 @@ Skeletondatacindy(nm,options):=( Skeletondatacindy(nm,pltdata1,pltdata2):= Skeletondatacindy(nm,pltdata1,pltdata2,[]); Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=( -//help:Skeletondatacindy("1"); -//help:Skeletondatacindy("1",[pdata1,pdata2],[pdata3]); -//help:Skeletondatacindy(options2=[1(width)]); +//help:Skeletonparadata("1"); +//help:Skeletonparadata("1",[pdata1,pdata2],[pdata3]); +//help:Skeletondata(options2=[1(width)]); regional(Eps,Eps2,name2,name3,Ltype,Noflg,reL,opcindy, - Out,ObjL,Plt3L,Rr,pltdata1,pltdata2,Plt2L,ObjL,ii,Data, + Data,Out,ObjL,Plt3L,Rr,pltdata1,pltdata2,Plt2L,ObjL,ii,Data, Obj3,jj,Gd,PtD,size,tmp,tmp1,tmp2); name2="sk2d"+nm; name3="sk3d"+nm; @@ -4005,7 +3735,7 @@ Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=( Noflg=tmp_2; reL=tmp_6; //16.02.28 opcindy=tmp_9; - Rr=0.075*1000/2.54/MilliIn; + Rr=0.15*1000/2.54/MilliIn; size=1; Eps2=0.05; if(length(reL)>0, //16.02.28 @@ -4015,34 +3745,14 @@ Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=( ); Eps=10^(-4); ObjL=Flattenlist(pltdata1); - Plt3L=Flattenlist(pltdata2); - tmp=apply(Plt3L,ProjcoordCurve(#)); - Plt2L=Flattenlist(tmp); -/////////// tmp=apply(pltdata1,replace(#,"3d","2d")); - Out=[]; - forall(1..(length(ObjL)),ii, - Obj3=ObjL_ii; - tmp=ProjcoordCurve(Obj3); - Data=Makeskeletondata([tmp],Plt2L,Rr,Eps2); - forall(1..(length(Data)),jj, - Gd=Data_jj; - if((length(Gd)>1) - & (norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))>Eps), - PtD=[]; - forall(1..(length(Gd)), - tmp=Gd_#; - tmp1=Invparapt(tmp,Obj3); - PtD=append(PtD,tmp1); - ); - Out=append(Out,PtD); - ); - ); - ); - Out=select(Out,length(Projcurve(#))>0); // 16.12.19 + PltL=Flattenlist(pltdata2); + Data=Makeskeletondata(ObjL,PltL,Rr); + Out=select(Data,length(Projcurve(#))>0); + Out=Flattenlist(Out); tmp1=apply(Out,textformat(#,5)); tmp=name3+"="+tmp1; parse(tmp); - tmp=name2+"=Projcurve("+tmp1+");"; + tmp=name2+"=Projcurve("+name3+");"; parse(tmp); Changestyle3d(pltdata1org,["nodisp"]); if(Noflg<3, @@ -4071,262 +3781,121 @@ Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=( Out; ); -Makeskeletondata(Obj2L,Plt2L,R0,Eps2):=( - regional(Allres,Eps,Dmat,Dind,ii,Dt,nn1,nn2,Nind,Nobj, - Plt2,PhL,ClipL,ns,pt1,pt2,pt,pta,ptb,za,zb,z1,z2,t1,t2,te, - koc,KukanL,nn,tt,Rr,Flg,ii,jj,ptq,hh,Ku,Res,contflg,breakflg); - Eps=10.0^(-4); - Dmat=[]; - Dind=[]; - forall(1..(length(Plt2L)),ii, - Dt=Plt2L_ii; - nn1=length(Dmat)+1; - Dmat=concat(Dmat,Dt); - nn2=length(Dmat); - Dind=append(Dind,[nn1,nn2]); - ); - Nind=length(Dind); +Makeskeletondata(ObjL,PltL,R0):=( + regional(Allres,res,Eps1,obj,plt,obj2,remov,flg,koc,z1,z2,Rr,str, + mm,nn,kk,ptk,pL,pt,ptL,tmp,tmp1,tmp2,tmp3,tmp3d); + Eps1=10.0^(-2); Allres=[]; - forall(1..(length(Obj2L)),Nobj, - Plt2=Obj2L_Nobj; - PhL=Columnlist(Plt2,1..2); - ClipL=[]; - forall(1..(length(PhL)-1),ns, - pt1=PhL_(ns..(ns+1)); - forall(1..(length(Dind)),ii, - tmp=Dind_ii; - tmp=Dmat_(Dind_ii_1..Dind_ii_2); - pt2=Columnlist(tmp,1..2); - koc=IntersectcrvsPp(pt1,pt2,[Eps]); - if(length(koc)>0, - breakflg=0; - forall(1..(length(koc)),jj, - contflg=0; - if(breakflg==0, - pt=Op(1,Op(jj,koc)); - tmp=Op(2,Op(jj,koc)); - if((tmp<1+Eps) & (ns==1), - contflg=1; - ); - if(contflg==0, - if((tmp>length(pt1)-Eps) - & (ns==length(PhL)-1), - contflg=1; - ); - ); - if(contflg==0, - nn1=ns; - nn2=Op(3,Op(jj,koc)); - tmp=Plt2_nn1; - pta=tmp_(1..2); - za=tmp_3; - tmp=Plt2_(nn1+1); - ptb=tmp_(1..2); - zb=tmp_3; - if(norm(pta-ptb)<Eps, - contflg=1; - ); - ); - if(contflg==0, - t1=norm(pta-pt)/norm(pta-ptb); - z1=(1-t1)*za+t1*zb; - tmp=Dmat_(Dind_ii_1..Dind_ii_2); - tmp1=tmp_nn2; - pta=tmp1_(1..2); - za=tmp1_3; - tmp2=tmp_(nn2+1); - ptb=tmp2_(1..2); - zb=tmp2_3; - if(norm(pta-ptb)<Eps, - contflg=1; - ); - ); - if(contflg==0, - t2=norm(pta-pt)/norm(pta-ptb); - z2=(1-t2)*za+t2*zb; - if(z1<z2-Eps2, - if(length(ClipL)==0, - tmp=1; - , - tmp1=column(ClipL,1); - tmp1=apply(tmp1,#-pt_1); - tmp2=column(ClipL,2); - tmp2=apply(tmp2,#-pt_2); - tmp3=apply(tmp1,#^2)+apply(tmp2,#^2); - tmp=min(tmp3); - ); - if(tmp>Eps^2, - tmp1=pt1_2-pt1_1; - tmp2=ptb-pta; - tmp3=Dotprod(tmp1,tmp2); - tmp3=tmp3/norm(tmp1)/norm(tmp2); - tmp=1-0.5*tmp3^2; - tmp1=concat(pt,[nn1,t1,R0/tmp]); - ClipL=append(ClipL,tmp1); - ); - ); + forall(1..(length(ObjL)),mm, + obj=ObjL_mm; + remov=[]; + obj2=Projcurve(obj); + forall(1..(length(PltL)),nn, + + plt=PltL_nn; + tmp=Projcurve(plt); + koc=Intersectcurves(obj2,tmp); + forall(1..(length(koc)),kk, + ptk=koc_kk; + tmp=PointonCurve(ptk_2,obj); + z1=Zparapt(tmp); + tmp=PointonCurve(ptk_3,plt); + z2=Zparapt(tmp); + if(z1<z2-Eps1, + tmp=max([sqrt(1-(ptk_5)^2),0.75]); + Rr=R0/tmp; + tmp2=[]; + flg=0; + tmp=reverse(1..(floor(ptk_2))); + forall(tmp, + if(flg==0, + if(|obj2_#-ptk_1|>Rr, + tmp2=[#]; + flg=1; ); ); ); - ); - ); - ); - te=length(Plt2); - KukanL=[[1.0,te]]; - pt1=PhL; - if(length(ClipL)>0, - forall(1..(length(ClipL)),ii, - tmp=ClipL_ii; - pt=tmp_(1..2); - nn=tmp_3; - tt=nn+tmp_4; - Rr=tmp_5; - Flg=0; - breakflg=0; - forall(reverse(1..nn),jj, - contflg=0; - if(breakflg==0, - ptq=PointonCurve(jj,pt1); - if(norm(pt-ptq)<Rr, - contflg=1; - ); - if(contflg==0, - Flg=jj; - breakflg=1; - contflg=1; - ); - ); - ); - if(Flg==0, - t1=1; - , - t1=Flg; t2=tt; - hh=t2-t1; - forall(1..10, - hh=hh*0.5; - ptq=PointonCurve(t1+hh,pt1); - if(norm(pt-ptq)<Rr, - t2=t2-hh; - , - t1=t1+hh; + if(length(tmp2)==0,tmp2=[1]); + flg=0; + tmp=(ceil(ptk_2))..(length(obj2)); + forall(tmp, + if(flg==0, + if(|obj2_#-ptk_1|>Rr, + tmp2=append(tmp2,#); + flg=1; + ); ); ); - ); - Ku=[t1]; - Flg=0; - breakflg=0; - forall((nn+1)..te,jj, - contflg=0; - if(breakflg==0, - ptq=PointonCurve(jj,pt1); - if(norm(pt-ptq)<Rr, - contflg=1; - ); - if(contflg==0, - Flg=jj; - breakflg=1; - contflg=1; - ); + if(length(tmp2)==1,tmp2=append(tmp2,length(obj2))); + tmp=obj2_((tmp2_1)..(tmp2_2)); + tmp1=Circledata("",[ptk_1,ptk_1+[Rr,0]],["Num=8","nodata"]); + tmp1=Intersectcurves(tmp,tmp1); + if(length(tmp1)==2, + tmp=sort([tmp1_1_2,tmp1_2_2]); + tmp=[[tmp2_1-1+tmp_1,1],[tmp2_1-1+tmp_2,-1]]; + remov=concat(remov,tmp); ); - ); - if(Flg==0, - t2=te; - , - t1=tt; t2=Flg; - hh=t2-t1; - forall(1..10, - hh=hh*0.5; - ptq=PointonCurve(t1+hh,pt1); - if(norm(pt-ptq)<Rr, - t1=t1+hh; + if(length(tmp1)==1, + if(tmp2_1==1, + tmp=[[1,1],[tmp2_1-1+tmp1_1_2,-1]]; , - t2=t2-hh; + tmp=[[tmp2_1-1+tmp1_1_2,1],[length(obj2),-1]]; ); + remov=concat(remov,tmp); ); ); - Ku=append(Ku,t2); - KukanL=Kukannozoku(Ku,KukanL); - ); - ); - Res=[]; - forall(1..(length(KukanL)),ii, - tmp=KukanL_ii; - t1=tmp_1; nn1=floor(t1); - t2=tmp_2; nn2=floor(t2); - PtL=[]; - if(t1-nn1<1-Eps, - tmp=PointonCurve(t1,pt1); - PtL=[tmp]; - ); - forall((nn1+1)..nn2,jj, - tmp=PointonCurve(jj,pt1); - PtL=append(PtL,tmp); ); - if(t2-nn2>Eps, - tmp=PointonCurve(t2,pt1); - PtL=append(PtL,tmp); - ); - tmp=Listplot("",PtL,["nodata"]); - Res=append(Res,tmp); ); - Allres=concat(Allres,Res); - ); - Allres; -); - -Kukannozoku(Jokyo,KukanL):=( - regional(Res,Eps,nn,ii,t1,t2,Ku,Flg,contflg,tmp,tmp1); - Eps=10^(-6); - nn=length(KukanL); - t1=Jokyo_1; t2=Jokyo_2; - tmp=KukanL_1; - t1=max(t1,tmp_1); - tmp=KukanL_nn; - t2=min(t2,tmp_2); - Res=[]; - Flg=0; - contflg=0; - forall(1..nn,ii, - if(contflg==0, - Ku=KukanL_ii; - if(Flg==0, - if(Ku_2<t1, - Res=append(Res,Ku); - , - Flg=1; - if(Ku_1<t1-Eps, - tmp=[Ku_1,t1]; - Res=append(Res,tmp); - ); - if(Ku_2>t2+Eps, - tmp=[t2,Ku_2]; - Res=append(Res,tmp); - ); - ); + if(length(remov)==0, + res=obj; + , + res=[]; + remov=sort(remov,[#_1,#_2]); + tmp=select(remov,#_1<1-Eps1); + if(length(tmp)==0, + flg=0; + res=[1]; , - if(Flg==1, - if(Ku_2<t2, - contflg=1; - , - if(contflg==0, - Flg=2; - if(Ku_1<t2-Eps, - Ku=[t2,Ku_2]; - ); - Res=append(Res,Ku); - ); - ); - , - if(contflg==0, - Res=append(Res,Ku); - ); + flg=length(tmp); + res=[]; + ); + forall(remov, + tmp=flg; + if(#_2==-1, + flg=flg-1; + if(flg==0,res=append(res,#_1)); + ); + if(#_2==1, + flg=flg+1; + if(tmp==0,res=append(res,#_1)); + ); + ); + if((flg==0)&(res_(length(res))<length(obj)), + res=append(res,length(obj)); + ); + tmp=res; + res=[]; + forall(1..(length(tmp)/2),nn, + tmp1=tmp_(2*nn-1); + tmp2=tmp_(2*nn); + pL=(ceil(tmp1))..(floor(tmp2)); + if(tmp1<ceil(tmp1)-Eps1,pL=prepend(tmp1,pL)); + if(tmp2>floor(tmp2)+Eps1,pL=append(pL,tmp2)); + ptL=[]; + forall(pL, + pt=PointonCurve(#,obj); + ptL=append(ptL,pt); ); + res=append(res,ptL); ); ); + Allres=append(Allres,res); ); - Res; + Allres; ); +////////////// new skeleton 2018.01.04upto //////////////// + ProjcoordCurve(Curve):=( regional(SP,CP,ST,CT,Out,jj,pt,x,y,z,xz,yz,zz); SP=sin(PHI); CP=cos(PHI); diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1.cs deleted file mode 100644 index d98cfe7c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1.cs +++ /dev/null @@ -1,4874 +0,0 @@ -// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team -// -//This program is free software: you can redistribute it and/or modify -// it under the terms of the GNU General Public License as published by -// the Free Software Foundation; either version 3 of the License, or -// (at your option) any later version. -// -// This program is distributed in the hope that it will be useful, -// but WITHOUT ANY WARRANTY; without even the implied warranty of -// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -// GNU General Public License for more details. -// -// You should have received a copy of the GNU General Public License -// along with this program. If not, see <http://www.gnu.org/licenses/> -// - -println("KETCindy V.3.0.3(2017.09.10)"); -println(ketjavaversion());//17.06.05 -println("ketcindylibbasic1(2017.08.23) loaded"); - -//help:start(); - -//help:drawimage([0,0],"picture.png",scale->2,alpha->0.4); -//help:drawtext((2,1),"Text",size->2); -//help:system(list=append(list,"a");); -//help:system(list=concat(list,["a","b"]);); -//help:system(arccos,arcsin,arctan); -//help:system(abs,round,floor,ceil); - -//help:Option1(["dr","dr,2","da","da,2,1","do","do,1,2"]); -//help:Option2(["notex","nodisp","nodata"]); -//help :Option3(["in","out","in-","out-"]); - -//help:getdirhead(); -//help:gedirhead("/Applications"); -//help:gedirhead("C:\Users\(username)"); - -Ch=[0]; ChNum=1; - -Ketinit():=Ketinit(1); -//help:Ketinit(); -Ketinit(sy):=Ketinit(sy,[-5,5],[-5,5]); -Ketinit(sy,rangex,rangey):=( - regional(pt,tmp,tmp1,tmp2,letterc,boxc,shadowc,mboxc,sep); - PenThickInit=8; - ULEN="1cm"; - MARKLEN=0.2; //16.11.01 - KETPICLAYER=20; - MilliIn=1/2.54*1000; - PenThick=round(MilliIn*0.02); - PenThickInit=PenThick; - TenSizeInit=0.02; - TenSize=TenSizeInit; - YaSize=1; YaAngle=18; YaPosition=1; - YaThick=1; YaStyle='tf'; - KETPICCOUNT=1; - KCOLOR=[0,0,0]; - GLIST=[]; - GCLIST=[]; -// GDATALIST=[]; - GOUTLIST=[]; - POUTLIST=[]; - VLIST=[]; - FUNLIST=[]; - LETTERlist=[]; - COM0thlist=[]; - COM1stlist=[]; - COM2ndlist=[]; - SCIWRLIST=[]; - SCIRELIST=[]; - ADDAXES="1"; - LFmark=unicode("000a"); - CRmark=unicode("000d");//16.12.13 - Dq=unicode("0022"); - WaitUnit=10; - CONTINUED=0; - OutComList=[]; - OutFileLIst=[]; // 15.10.22 - FigPdfList=[]; // 16.04.08 - ADDPACK=[]; // 16.05.16 - ErrFlag=0; - setdirectory(Dirwork); - if(isstring(Fhead), // 15.04.06 - Fnametex=Fhead+".tex"; - Fnamesci=Fhead+".sce"; - Fnamescibody=Fhead+"body.sce"; - Fnameout=Fhead+".txt"; - ); - if(!isstring(Mackc),// 16.06.07 - Mackc="sh"; - ); - ArrowlineNumber=1; // 15.01.05 - ArrowheadNumber=1; - BezierNumber=1; //15.01.03 - SCALEX=1; - SCALEY=sy; -// Setscaling(sy); - XMIN=rangex_1/SCALEX; - XMAX=rangex_2/SCALEX; - YMIN=rangey_1/SCALEY; - YMAX=rangey_2/SCALEY; - Setwindow("Msg=n"); // 16.05.31 - // for Presentation - letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0]; - shadowc=[0,0,0,0.5]; mboxc="yellow"; //17.03.02 regional debugged - SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3, - letterc,mboxc,mboxc,mboxc,62,2,letterc]; - ThinDense=0.1;//17.01.08 - if(indexof(PathS,"-6.")>0,//17.04.14from - if(iswindows(),sep="\",sep="/"); - if((indexof(PathT,"pdflatex")==0)&(indexof(PathT,"lualatex")==0), - Libname=Dirlib+sep+"ketpicscifiles6"; - , - Libname=Dirlib+sep+"ketpic2escifiles6"; - ); - );//17.04.14upto -); - -Setwindow():=Setwindow("Msg=yes"); -Setwindow(str):=( - regional(tmp,tmp1,tmp2,msg); - msg="y"; - tmp=indexof(str,"="); // 16.02.10 - tmp1=Toupper(substring(str,tmp,tmp+1)); - if(tmp1=="N",msg="n"); - if((ispoint(SW) & ispoint(NE)), - tmp1=Lcrd(SW); - tmp2=Lcrd(NE); - XMIN=tmp1_1; XMAX=tmp2_1; - YMIN=tmp1_2; YMAX=tmp2_2; - , -// XMIN=-5; XMAX=5; -// YMIN=Lcrdy(-5); YMAX=Lcrdy(5); -// createpoint("SW",Pcrd([XMIN,YMIN])); -// createpoint("NE", Pcrd([XMAX,YMAX])); - Putpoint("SW",Pcrd([XMIN,YMIN])); - Putpoint("NE", Pcrd([XMAX,YMAX])); - ); - if(msg=="y", - println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])"); - ); - layer(KETPICLAYER); - autoclearlayer(KETPICLAYER,true); - drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]), - Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]); -); -Setwindow(xrange,yrange):=( -//help:Setwindow([2,3],[-1,1]); - XMIN=xrange_1; - XMAX=xrange_2; - YMIN=yrange_1; - YMAX=yrange_2; - Putpoint("SW",Pcrd([XMIN,YMIN]));//17.05.30 - Putpoint("NE",Pcrd([XMAX,YMAX]));//17.05.30 -// Ketinit(); -); - -Setfiles(file):=( // 17.01.16 -//help:Setfiles(file); - Fhead=file; - Fnametex=Fhead+".tex"; - Fnamesci=Fhead+".sce"; - Fnamescibody=Fhead+"body.sce"; - Fnameout=Fhead+".txt"; -); - -Setcindyname():=Setcindyname("");//16.12.25 -Setcindyname(file):=( -//help:Setcindyname("Fhead"); -//help:Setcindyname(<only when on the terminal "ketcindy/cindy.sh "+file>); - regional(tmp,tmp1,tmp2); - setdirectory(Dirhead); - CindyPathName=""; - CindyFileName=""; - CindyPathName=load("cindypath.txt"); - tmp2=load("cindyfile.txt"); - tmp2=replace(tmp2,".cdy",""); - if(length(tmp2)>0, - CindyFileName=tmp2; - if(length(file)>0, - tmp=file+"="+DqDq(tmp2); - parse(tmp); - println(file+" set to "+DqDq(tmp2)); - ); - , - println("set "+file+" manually"); - ); - setdirectory(Dirwork); - CindyFileName; -); - -Cindypath():=( // 16.12.26 -//help:Cindypath(); - regional(out); - CindyPathName=""; - setdirectory(Dirhead); - CindyPathName=load("cindypath.txt"); - setdirectory(Dirwork); - if(length(CindyPathName)==0, - out=Dirwork; - , - out=CindyPathName; - ); - println(" path name="+out); - out; -); - -Cindyfile():=( // 16.12.26 -//help:Cindyfile(); - regional(out); - CindyFileName=""; - setdirectory(Dirhead); - out=load("cindyfile.txt"); - out=replace(out,".cdy",""); - setdirectory(Dirwork); - CindyFileName=out; - println(" file name="+out); - out; -); - -DqDq(str):=unicode("0022")+str+unicode("0022"); - -Tab2list(dtstr):=Tab2list(dtstr,[]); -Tab2list(dtstrorg,options):=( -//help:Tab2list(datastr); -//help:Tab2list(options=["Blank=(null)","Sep=tab"]); - regional(dtstr,dtall,dt,rep,out,crm,lfm,htm,first,eqL,sep, - tmp,tmp1,tmp2); - crm=unicode("000d"); - lfm=unicode("000a"); - htm=unicode("0009"); - tmp=Divoptions(options); - eqL=tmp_5; - rep=""; - sep=htm; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="B", - tmp1="0123456789+-."; // 16.09.28from - tmp=substring(tmp2,0,1); - if(indexof(tmp1,tmp)>0,rep=parse(tmp2),rep=tmp2); // 16.09.28upto - ); - if(tmp1=="S", // 16.12.04 - if(tmp2!="tab",sep=tmp2); - ); - ); - first=lfm; // 16.09.05from - if(indexof(dtstr,crm)>0, - first=crm; - if(indexof(dtstr,crm+lfm)>0, - first=first+lfm; - ); // 16.09.05upto - ); - dtstr=dtstrorg;// 16.09.19from - tmp=substring(dtstr,length( dtstr)-1,length(dtstr)); - if(tmp!=lfm, - dtstr=dtstr+first; - );// 16.09.19upto - tmp1=Indexall(dtstr,first); - tmp1=prepend(0,tmp1); - tmp1=append(tmp1,length(dtstr)); - dtall=[]; - forall(1..(length(tmp1)-1), - tmp=substring(dtstr,tmp1_#,tmp1_(#+1)-1); - if(length(tmp)>0, - dtall=append(dtall,tmp); - ); - ); - out=[]; - forall(dtall,dt, - tmp1=tokenize(dt,sep); //16.12.04 - tmp2=[]; - forall(tmp1, - if(isstring(#),tmp=parse(#),tmp=#); - if(!isreal(tmp), - if(length(#)>0,tmp=#,tmp=rep); - ); - tmp2=append(tmp2,tmp); - ); - out=append(out,tmp2); - ); - out; -); - -Columnlist(dt,list):=( // 16.09.04 -//help:Columnlist(dt,1..3); - apply(dt,#_list); -); - -Dispmat(dt):=( // 16.09.16 -//help:Dispmat(dt); - regional(htm,crm,lfm,row,tmp,tmp1,tmp2); - htm=unicode("0009"); - crm=unicode("000d"); - lfm=unicode("000a"); - tmp2=""; - forall(dt,row, - tmp1=""; - forall(row, - if(isstring(#), - tmp1=tmp1+#+htm; - , - tmp1=tmp1+text(#)+htm; - ); - ); - tmp1=substring(tmp1,0,length(tmp1)-1); - tmp1=tmp1+lfm; - tmp2=tmp2+tmp1; - ); - print(tmp2); - println(); -); - -Sep1000(va):=( //17.07.18 -//help:Sep1000(1344555); -//help:Sep1000([12456,55567]); - regional(str,nall,out); - if(islist(va), - out=apply(va,Sep1000(#)); - , - str=text(va); - nall=length(str); - out=""; - forall(1..nall, - out=str_(nall+1-#)+out; - if((#<nall)&(mod(#,3)==0), - out=","+out; - ); - ); - ); - out; -); - -factorial(n):=( -//help:factorial(5); - regional(out); - out=1; - forall(1..n, - out=out*#; - ); - out; -); - -norm(v1):=( // 16.09.01 -//help:norm([2,1,3]); - regional(out,tmp,tmp1,tmp2); - out=0; - forall(1..(length(v1)), - out=out+(v1_#)^2; - ); - out=sqrt(out); - out; -); -norm(v1,v2):=( - norm(v2-v1); -); - -// 16.03.28 -Removespace(str):=( -//help:Removespace(" a b c "); - regional(tmp,flg,out); - tmp=length(str)+1; - flg=0; - forall(1..(length(str)), - if(flg==0, - if((str_#)!=" ", - tmp=#; - flg=1; - ); - ); - ); - out=substring(str,tmp-1,length(str)); - flg=0; - tmp=0; - forall(reverse(1..(length(out))), - if(flg==0, - if((out_#)!=" ", - tmp=#; - flg=1; - ); - ); - ); - out=substring(out,0,tmp); -); - -Indexall(str,key):=( - regional(rest,out,flg,tmp,tmp1,); - out=[]; - rest=str; - flg=0; - forall(1..(length(str)), - if(flg==0, - tmp=indexof(rest,key); - if(tmp>0, - tmp1=tmp+length(str)-length(rest); - out=append(out,tmp1); - rest=substring(rest,tmp,length(rest)); - , - flg=1; - ); - ); - ); - out; -); - -Parlevel(str):=Bracket(str); // 16.05.22from -Bracket(str):=Bracket(str,"()"); -Bracket(str,br):=( -//help:Bracket(string,"()"); - regional(ph,pt,out,noL,ncL,nall,level,tmp); - ph=substring(br,0,1); - pt=substring(br,1,2); - noL=Indexall(str,ph); - ncL=Indexall(str,pt); // 16.05.22upto - nall=sort(concat(noL,ncL)); - level=0; - out=[]; - forall(nall, - if(contains(noL,#), - level=level+1; - tmp=[#,level]; - , - tmp=[#,-level]; - level=level-1; - ); - out=append(out,tmp); - ); - out; -); - -Pardiagram(str):=Pardiagram(str,[20]); -Pardiagram(str,options):=( -//help:Pardiagram(exprstr); -//help:Pardiagram(options=[20,"Disp=y","Fig=y"]); - regional(reL,eqL,len,disp,scheme,bra,nn,sta,out, - opos,cpos,all,dx,dh,mxh,start,nn,p1,p2,p3,p4,tmp,tmp1,tmp2,tmp3); - len=20; - disp=1; - scheme=1; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=Toupper(substring(#,tmp,tmp+1)); - if(tmp1=="D", - if(tmp2=="N" % tmp2=="F",disp=0); - ); - if(tmp1=="F", - if(tmp2=="N" % tmp2=="F",scheme=0); - ); - ); - forall(reL, - len=#; - ); - bra=Bracket(str); - tmp1=select(bra,#_2>0); - tmp2=select(bra,#_2<0); - out=[]; - forall(1..(length(tmp1)),nn, - sta=tmp1_nn; - tmp=select(tmp2,#_2==-sta_2 & #_1>sta_1); - tmp=tmp_1; - out=append(out, [substring(str,sta_1-1,tmp_1), - nn,sta_2,sta_1,tmp_1, - substring(str,sta_1-1,sta_1+len-1), - substring(str,tmp_1-len,tmp_1)] ); - ); - if(disp==1, - println("Printing from 2 to 7. (Extract full string using _1)"); - apply(out,println(#_(2..7))); - ); - if(scheme==1, - opos=sort(apply(out,#_4)); - cpos=sort(apply(out,#_5)); - tmp=concat(opos,cpos); - all=sort(tmp); - mxh=max(apply(out,#_3)); - dx=1; - dh=1; - start=[-5,5]; - forall(1..(length(all)),nn, - tmp=select(out,#_4==all_nn); - if(length(tmp)>0, - tmp1=tmp_1_3; - tmp2=tmp_1_4; - tmp3=tmp_1_5; - tmp=select(1..(length(all)),all_#==tmp3); - tmp4=tmp_1; - p1=start+[(nn-1)*dx,-0.5]; - p2=p1+[0,(tmp1-mxh-1)*dh]; - p3=p2+[(tmp4-nn)*dx,0]; - p4=p3+[0,(mxh+1-tmp1)*dh]; - Listplot("ch"+text(nn),[p1,p2,p3,p4],["Message=n"]); - Letter([p2,"s",text(tmp2),p3,"s",text(tmp3)]); - tmp=select(1..(length(opos)),opos_#==tmp2); - tmp=tmp_1; - if(tmp==1, - tmp=substring(str,tmp2-1,tmp2); - , - if(opos_(tmp-1)==opos_tmp-1, - tmp=substring(str,tmp2-1,tmp2); - , - tmp=substring(str,tmp2-2,tmp2); - ); - ); - tmp=replace(tmp,"^","**"); - Expr(p1,"n",tmp); - tmp=select(1..(length(cpos)),cpos_#==tmp3); - tmp=tmp_1; - if(tmp==length(cpos), - tmp=substring(str,tmp3-1,tmp3); - , - if(cpos_(tmp+1)==cpos_tmp+1, - tmp=substring(str,tmp3-1,tmp3); - , - tmp=substring(str,tmp3-1,tmp3+1); - ); - ); - tmp=replace(tmp,"^","**"); - Expr(p4,"n",tmp); - ); - ); - ); - out; -); - -Changelib(path):=( - Dirlib=path; - setdirectory(Dirlib); - import("ketcindyset.txt"); - setdirectory(Dirwork); // 16.04.23 -); - -Changework(path):=( //16.10.21 -//help:Changework(directory); - regional(tmp); - if(path=="" % !isexists(path,""), - println("Directory "+path+" not exist, so set to "+Dirwork); - ErrFlag=-1; - , - Dirwork=path; - setdirectory(Dirwork); - if(!iswindows(), //17.04.11 - if(!iskcexists(Dirwork), - SCEOUTPUT = openfile(Shellparent); - closefile(SCEOUTPUT); - println(setexec(Dirwork,Shellparent)); - ); - ); - ); -); - -Changestyle(nameL,style):=( -//help:Changestyle(["sgAB"],["da"]); - regional(nmL,name,Ltype,Ltypeorg,Noflg,opcindy,tmp); - tmp=Divoptions(style); - Ltypeorg=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - if(islist(nameL),nmL=nameL,nmL=[nameL]); - forall(nmL,name, - Ltype=Ltypeorg; - GCLIST=select(GCLIST,#_1!=name); - COM2ndlist=select(COM2ndlist, - (indexof(#,"("+name)==0)%(indexof(#,"Shade")>0)); // 15.05.23,16.12.13 - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - ); -); - -Op(n,object):=( // 16.05.25 -//help:Op(4,[1,2,3,4]); -//help:Op(3,"abcd"); - regional(out); - if(islist(object), - out=object_n; - , - if(isstring(object), - out=substring(object,n-1,n); - ); - ); - out; -); - -Finddef(G):=( - regional(def,tmp,tmp1,tmp2,tmp3); - if(isstring(G),tmp=parse(G),tmp=G); - def=text(inspect(tmp,"definition")); - tmp1=indexof(def,"("); - tmp2=indexof(def,";"); - tmp3=indexof(def,")"); - tmp=[substring(def,0,tmp1-1)]; - if(tmp2>0, - tmp=append(tmp,substring(def,tmp1,tmp2-1)); - if(indexof(def,")",tmp3+1)==0, - tmp=append(tmp,substring(def,tmp2,tmp3-1)); - , - tmp=append(tmp,substring(def,tmp2,tmp3)); - ); - , - tmp=append(tmp,substring(def,tmp1-1,tmp3)); - ); - tmp; -); - -Findgeoinfo(geo):=( - regional(out,tmp,tmp1,tmp2); - tmp=Finddef(geo); - if(ispoint(parse(tmp_2)), - out=[tmp_2,tmp_3]; - , - tmp1=Findgeoinfo(parse(tmp_2)); - if(ispoint(parse(tmp1_1)), - out=[tmp1_1,tmp1_2]; - , - tmp2=Findgeoinfo(parse(tmp1_2)); - out=[tmp2_1,tmp2_2]; - ); - ); - if(ispoint(geo), - if(!ispoint(parse(tmp_2)), - tmp1=Finddef(parse(tmp_2)); - , - tmp1=tmp; - ); - out=append(out,tmp1_3); - , - out=append(out,tmp_3); - ); - out; -); - -Dependgeo(geo):=( - regional(tmp,tmp1,tmp2,out); - tmp=Finddef(geo); - if(!iscircle(geo), - out=[text(geo)]; - , - out=[geo]; - ); - if(length(tmp)<3, - out=concat(out,[tmp_1,[]]); - , - out=concat(out,[tmp_1]); - tmp1=[tmp_2,tmp_3]; - tmp=parse(tmp1_2); - if(islist(tmp) % isreal(tmp), - tmp1=[tmp1_1]; - ); - out=append(out,tmp1); - ); - out; -); - -Workprocess():=Workprocess(300); -Workprocess(nn):=Drawprocess(nn); -Drawprocess():=Drawprocess(300); -Drawprocess(nn):=( -//help:Workprocess(); - regional(All,added,remain,out,flg,tmp,tmp1,tmp2); - tmp=remove(allpoints(),[NE,SW,TH,FI]); - tmp1=select(tmp, - substring(text(#),length(text(#))-1,length(text(#)))!="z"); - tmp1=concat(tmp1,alllines()); -// tmp1=concat(tmp1,allcircles()); - All=apply(tmp1,Dependgeo(#)); - added=select(All,length(#_3)==0); - out=sort(apply(added,#_1)); - remain=remove(All,added); - flg=0; - repeat(nn, - if(flg==0, - tmp1=select(remain,remove(#_3,out)==[]); - tmp2=sort(apply(tmp1,#_1)); - out=concat(out,tmp2); - remain=remove(remain,tmp1); - if(length(remain)==0,flg=1); - ); - ); - println("Process of drawing"); - forall(out, - println(Dependgeo(parse(#))); - ); - out; -); - -Sortpointlist(list):=( - regional(plist,ilist,jj,kk,flg,p1,p2,in1,in2, - tmp,tmp1,tmp2,out); - out=list; - plist=list_1; - ilist=list_2; - flg=0; - forall(1..(length(plist)),jj, - p1=plist_jj; - in1=ilist_jj; - forall((jj+1)..(length(plist)),kk, - if(flg==0, - p2=plist_kk; - in2=ilist_kk; - if(contains(in1,p2), - tmp1=plist_(1..(jj-1)); - tmp1=append(tmp1,p2); - tmp1=concat(tmp1,plist_((jj+1)..(kk-1))); - tmp1=append(tmp1,p1); - tmp1=concat(tmp1,plist_((kk+1)..(length(plist)))); - tmp2=ilist_(1..(jj-1)); - tmp2=append(tmp2,in2); - tmp2=concat(tmp2,ilist_((jj+1)..(kk-1))); - tmp2=append(tmp2,in1); - tmp2=concat(tmp2,ilist_((kk+1)..(length(plist)))); - out=Sortpointlist([tmp1,tmp2]); - flg=1; - ); - ); - ); - ); - out; -); - -Toupper(str):=( -//help:Toupper("Abc"); - regional(alphabet,out,tmp,tmp1); - alphabet="abcdefghijklmnopqrstuvwxyz"; - out=""; - forall(1..(length(str)), - tmp=substring(str,#-1,#); - tmp1=indexof(alphabet,tmp); - if(tmp1>0, - out=out+unicode(text(tmp1+64),base->10); - , - out=out+tmp; - ); - ); - out; -); - -Textformat(value,dig):=( -//help:Textformat(2/3,4); -//help:Textformat([gr1,gr2],5); - regional(vv,tmp,tmp1); - if(islist(value), - tmp1="["; - forall(value, - tmp1=tmp1+Textformat(#,dig)+","; - ); - tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; - , - if(ispoint(value) % isstring(value), -// vv=Lcrd(value); -// tmp1=Textformat(vv,dig); -// tmp1=text(value); // 15.04.07 - if(isstring(value),tmp1=Dq+value+Dq,tmp1=text(value)); // 15.10.02 - , - tmp1=format(value,dig); - ); - ); - tmp1; -); - -Sprintf(value,dig):=( -//help:Sprintf(5.1,4); - regional(vv,tmp,tmp1); - if(!islist(value), // 17.03.12from - if(isstring(value), - vv=value; - , - vv=Textformat(value,dig); - ); // 17.03.12from - if(indexof(vv,".")==0,vv=vv+"."); - vv=vv+"0000000000000000"; - tmp=indexof(vv,".")+dig; - vv=substring(vv,0,tmp); - , - vv=apply(value,Sprintf(#,dig)); - ); - vv; -); - -Assign(str):=( // old - regional(out); - out=str; - forall(VLIST, - tmp=substring(#_1,0,length(#_1)-1); - out=replace(out,tmp,"("+#_2+")"); - ); - out; -); - -Assign(funstr,vrL):=( - regional(nn,out,tmp,tmp1); - nn=length(vrL)/2; - out=funstr; - forall(1..nn, - out=Assign(out,vrL_(2*#-1),vrL_(2*#)); - ); - out; -); - -Assign(funstr,varname,rep):=( -//help:Assign("x^2+a*x","a",1.3); -//help:Assign("a*x^2+b*x",["a",1,"b",2]); - regional(repstr,ii,jj,tmp,tmp1,tmp2,Notvar,Flg); - if(isstring(rep),repstr=rep,repstr="("+Textformat(rep,6)+")"); - // 15.02.09, 07.06,17.08.24 - tmp=[46]; // 12.20 - tmp=concat(tmp,48..57); - tmp=concat(tmp,65..90); - tmp=concat(tmp,97..122); - Notvar=apply(tmp,unicode(text(#),base->10)); - tmp2=""; - forall(1..100, - ii=indexof(funstr,varname); - if(ii>0, - Flg=0; - if(ii>1, - tmp=substring(funstr,ii-2,ii-1); - if(contains(Notvar,tmp), - tmp2=tmp2+substring(funstr,0,ii); - funstr=substring(funstr,ii,length(funstr)); - Flg=1; - ); - ); - if(Flg==0, - jj=ii-1+length(varname); - if(jj<length(funstr), - tmp=substring(funstr,jj,jj+1)); - if(contains(Notvar,tmp), - tmp2=tmp2+substring(funstr,0,jj); - funstr=substring(funstr,jj,length(funstr)); - Flg=1; - ); - ); - if(Flg==0, - tmp2=tmp2+substring(funstr,0,ii-1)+repstr; - funstr=substring(funstr,jj,length(funstr)); - ); - ); - ); - funstr=tmp2+funstr; - funstr; -); - -MeasureDepth(list):=( - regional(tmp,tmp1,Depth,Flg); - Flg=0; - Depth=0; - if(ispoint(list), // 15.01.22 - Depth=0; - Flg=1; - , - tmp1=select(1..(length(list)),length(list_#)>0);//17.05.21from - tmp=list_(tmp1_1);//17.05.21upto - ); - repeat(4, - if(Flg==0, - if(islist(tmp), - tmp=tmp_1; - Depth=Depth+1; - , - if(ispoint(tmp),Depth=Depth+1); - Flg=1; - ); - ); - ); - Depth; -); - -Flattenlist(pltlist):=( -//help:Flattenlist([[2,3],[[1,2],[5,6]]]); - regional(Out,nn,Dt,ii,tmp,flg); - Out=[]; - if(MeasureDepth(pltlist)==1, - Out=[pltlist]; - , - forall(1..(length(pltlist)),nn, - Dt=pltlist_nn; - if(MeasureDepth(Dt)<2, - Out=append(Out,Dt); - , - forall(1..(length(Dt)),ii, - tmp=Flattenlist(Dt_ii); - Out=concat(Out,tmp); - ); - ); - ); - ); - Out; -); - -Divoptions(options):=( -//help:Divoptions(options); - regional(Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy,flg,tmp,tmp1); - Ltype="dr"; // 2015.01.13 - Noflg=0; - Inflg=0; - Outflg=0; - eqL=[]; - realL=[]; - strL=[]; - opstr=""; - opcindy=""; - forall(options, - flg=0; - if(flg==0, - if(isreal(#) % ispoint(#) % islist(#), - realL=append(realL,#); - opstr=opstr+","+text(#); - flg=1; - ); - ); - if(flg==0, - if(indexof(#,"=")>0, - eqL=append(eqL,#); - flg=1; - ); - ); - if(flg==0, - if(indexof(#,"no")+indexof(#,"No")>0, - if(indexof(#,"tex")>0,Noflg=1); - if(indexof(#,"disp")>0,Noflg=2); - if(indexof(#,"data")>0,Noflg=3); - flg=1; - ); - ); - if(flg==0, - if(indexof(#,"->")>0, - opcindy=opcindy+","+#; - flg=1; - ); - ); - if(flg==0, - if(indexof(#,"out")+indexof(#,"Out")>0, - if(indexof(#,"-")==0, - Outflg=1; - , - Outflg=2; - ); - flg=1; - ); - ); - if(flg==0, - if(indexof(#,"in")+indexof(#,"In")>0, - if(indexof(#,"-")==0, - Inflg=1; - , - Inflg=2; - ); - flg=1; - ); - ); - if(flg==0, - tmp=substring(#,0,2); - tmp1=indexof(tmp,"dr")+indexof(tmp,"Dr"); - tmp1=tmp1+indexof(tmp,"da")+indexof(tmp,"Da"); - tmp1=tmp1+indexof(tmp,"id")+indexof(tmp,"Id"); - tmp1=tmp1+indexof(tmp,"do")+indexof(tmp,"Do"); - tmp1=tmp1+indexof(tmp,"dp")+indexof(tmp,"Dp"); - if(tmp1>0, - Ltype=#; - flg=1; - ); - if(flg==0, - strL=append(strL,#); - opstr=opstr+","+Dq+#+Dq; - ); - ); - ); - if(indexof(opcindy,"color->")==0,// 16.10.07from - opcindy=opcindy+",color->[0,0,0]"; - ); - [Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy]; -); - -Dotprod(vec1,vec2):=( -//help:Dotprod(vec1,vec2); - regional(v1,v2,tmp); - if(ispoint(vec1),v1=vec1.xy,v1=vec1); - if(ispoint(vec2),v2=vec2.xy,v2=vec2); - v1*v2; -); - -Crossprod(a,b):=( -//help:Crossprod(vec1,vec2); - regional(tmp1,tmp2,tmp3,Out); - if(length(a)==3, - tmp1=a_2*b_3-a_3*b_2; - tmp2=a_3*b_1-a_1*b_3; - tmp3=a_1*b_2-a_2*b_1; - Out=[tmp1,tmp2,tmp3]; - , - Out=a_1*b_2-a_2*b_1; - ); - Out; -); - -Ptstart(Fig):=( -//help:Ptstart("gr1"); - regional(tmp); - if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.21 - tmp_1; -); - -Ptend(Fig):=( -//help:Ptend("gr1"); - regional(tmp); - if(isstring(Fig),tmp=parse(Fig),tmp=Fig); - tmp_(length(tmp)); // 15.04.12 -); - -Numptcrv(Fig):=( -//help:Numptcrv("gr1"); - regional(tmp); - if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 15.12.23 - length(tmp); -); - -Ptcrv(Num,Fig):=( -//help:Ptcrv(10,"gr1"); - regional(tmp); - if(isstring(Fig),tmp=parse(Fig),tmp=Fig); - tmp_Num; -); - -Invert(Fig):=( -//help:Invert("gr1"); - regional(tmp); - if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.27 - reverse(tmp); -); -Invert(nm,Fig):=Invert(nm,Fig,["nodisp"]); // from 16.01.27 -Invert(nm,Fig,options):=( -//help:Invert("1","gr1"); - regional(name,tmp); - name="-inv"+nm; - tmp=Invert(Fig); - Listplot(name,tmp,options); -);// upto 16.01.27 - -Paramoncrv(pP,Gdata):=( - regional(Tmp,PtL); -// Eps=10^(-8); - if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata); - Tmp=Nearestpt(pP,PtL); - Tmp_2; -); - -ParamonCurve(pP,nN,plist):=( -//help:ParamonCurve(A,10,"gr1"); - regional(PtL,Out,Pa,Pb,vV,vW,sS); - if(isstring(plist),PtL=parse(plist),PtL=plist); - PtL=apply(PtL,LLcrd(#));//16.10.16 - if(nN==length(PtL), - Out=nN; - , - Pa=PtL_nN; - Pb=PtL_(nN+1); - vV=Pb-Pa; - vW=pP-Pa; - sS=vV*vW/|vV|^2; - sS=min([max([sS,0]),1]); - Out=nN+sS; - ); - Out; -); - -Pointoncrv(tT,PtL):=PointonCurve(tT,PtL); -PointonCurve(tT,Gdata):=( -//help:PointonCurve(20.5,"gr1"); - regional(Out,Eps,nN,sS,Pa,Pb,PtL); - if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata); - if(length(PtL)==1,PtL=PtL_1); - Eps=10^(-4); - nN=floor(tT+Eps); - sS=max([tT-nN,0]); - if(nN==length(PtL), - Out=PtL_nN; - , - Pa=PtL_nN; - Pb=PtL_(nN+1); - Out=(1-sS)*Pa+sS*Pb; - ); - Out; -); - -Koutenseg(pA,pB,pC,pD):=Koutenseg(pA,pB,pC,pD,[]); -Koutenseg(pA,pB,pC,pD,options):=( - regional(Eps0,Eps,Eps2,pV,Sv2,Out,pP,pQ,Flg,p1,p2,q1,q2, - em1,eM1,em2,eM2,rT,Tmp1,Tmp2); - Eps0=10^(-4); - pV=pB-pA; - Sv2=|pV|; - pP=pC-pA; pQ=pD-pA; - Eps=10^(-3); - Eps2=0.2; - Tmp1=0; - forall(options, - if(Tmp1==0, - Eps=#; - Tmp1=1; - , - Eps2=#; - ); - ); - Flg=0; - if(Sv2<10^(-3), - Out=["inf","inf"]; - Flg=1; - ); - if(Flg==0, - Eps=min([Eps2,Eps/Sv2]); - p1=pP*pV/Sv2^2; - p2=[pP_2,-pP_1]*pV/Sv2^2; - q1=pQ*pV/Sv2^2; - q2=[pQ_2,-pQ_1]*pV/Sv2^2; - em1=-Eps; eM1=1+Eps; - em2=-Eps; eM2=Eps; - if(max([p1,q1])<em1 % min([p1,q1])>eM1, - Out=["inf","inf"]; - Flg=1; - ); - if(max([p2,q2])<em2 % min([p2,q2])>eM2, - Out=["inf","inf"]; - Flg=1; - ); - ); - if(Flg==0 & p2*q2<0, - rT=p1-(q1-p1)/(q2-p2)*p2; - if(rT>em1 & rT<eM1, - if(rT>-Eps0 & rT<1+Eps0, - Tmp1=pA+rT*pV; - Tmp2=min([max([rT,0]),1]); - Out=[Tmp1,Tmp2,0]; - , - Tmp1=pA+rT*pV; - Tmp2=min([max([rT,0]),1]); - Out=[Tmp1,Tmp2,1]; - ); - Flg=1; - ); - if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2), - if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2, - Out=["inf","inf"]; - Flg=1; - ); - if(Flg==0, - rT=min([max([p1,0]),1]); - Tmp1=pA+rT*pV; - Out=[Tmp1,rT,1]; - Flg=1; - ); - ); - ); - if(Flg==0 & (p1 > -Eps0 & p1 < 1 + Eps0 & p2 > -Eps0 & p2 < Eps0), - rT= p1; - Tmp1=pA+rT*pV; - Out= [Tmp1, rT, 0]; - Flg=1; - ); - if(Flg==0 & (q1 > -Eps0 & q1 < 1 + Eps0 & q2 > -Eps0 & q2 < Eps0), - rT= q1; - Tmp1=pA+rT*pV; - Out=[Tmp1,rT,0]; - Flg=1; - ); - if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2), - if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2, - Out=["inf","inf"]; - Flg=1; - ); - if(Flg==0, - rT=min([max([q1,0]),1]); - Tmp1=pA+rT*pV; - Out=[Tmp1,rT,1]; - Flg=1; - ); - ); - if(Flg==0 & (q1<em1 % q1>eM1% q2<em2 % q2>eM2), - rT=min([max([p1,0]),1]); - Tmp1=pA+rT*pV; - Out=[Tmp1,rT,1]; - Flg=1; - ); - if(Flg==0, - if(abs(p2)<abs(q2), - rT=min([max([p1,0]),1]); - , - rT=min([max([q1,0]),1]); - ); - Tmp1=pA+rT*pV; - Out=[Tmp1,rT,1]; - ); - Out; -); - -IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]); -IntersectcrvsPp(Gr1,Gr2,options):=( -//help:IntersectcrvsPp("gr1","pa1"); -//help:IntersectcrvsPp(options=[Eps2(0.1),"Dif=0.05"]); - regional(Out,Eps,Eps2,Eps0,Flg,Data1,Data2, - Tmp1,Tmp2,Tmp3,Tmp,KL1,KL2,pA,pB,Ni,Nj, - pP,pQ,rT,Flg,eqL,realL,opstr,Dif); - Eps=10^(-4); - Eps2=0.1; - Dif=0.05; // 2015.05.31 - Flg=0; - Tmp1=Divoptions(options); // - eqL=Tmp1_5; - realL=Tmp1_6; - opstr=Tmp1_(length(Tmp1)); - forall(eqL, - if(substring(#,0,1)=="D", - Tmp1=indexof(#,"="); - Dif=parse(substring(#,Tmp1,length(#))); - ); - ); - Tmp1=length(realL); - if(Tmp1>0, - Eps=realL_1; - if(Tmp1>1, - Eps2=realL_2; - ); - ); - Flg=0; - if(isstring(Gr1),Data1=parse(Gr1),Data1=Gr1); - if(isstring(Gr2),Data2=parse(Gr2),Data2=Gr2); - if(MeasureDepth(Data1)==2,Data1=Data1_1); - if(MeasureDepth(Data2)==2,Data2=Data2_1); - Data1=apply(Data1,LLcrd(#)); - Data2=apply(Data2,LLcrd(#)); - if(length(Data1)==length(Data2), - Tmp1=Reverse(Data2); - Eps0=10^(-6); - Tmp2=0; - forall(1..(length(Data1)), - Tmp2=Tmp2+abs(Data1_#-Data2_#); - ); - Tmp3=0; - forall(1..(length(Data1)), - Tmp3=Tmp3+abs(Data1_#-Tmp1_#); - ); - if(Tmp2<Eps0 % Tmp3<Eps0, - Out=[]; - Flg=1; - ); - ); - if(Flg==0, - KL1=[]; - KL2=[]; - forall(1..(length(Data1)-1),Ni, - pA=Data1_Ni; - pB=Data1_(Ni+1); - forall(1..(length(Data2)-1), - pP=Data2_#; pQ=Data2_(#+1); - Tmp=Koutenseg(pA,pB,pP,pQ,[Eps,Eps2]); - if(Tmp!=["inf","inf"], - if(Tmp_3==0, - Tmp1=[Tmp_1,Tmp_2,Ni,#]; - KL1=concat(KL1,[Tmp1]); - , - Tmp2=[Tmp_1,Tmp_2,Ni,#]; - KL2=concat(KL2,[Tmp2]); - ); - ); - ); - ); - Out=[]; - if(length(KL1)>0, - Tmp=KL1_1; - pP=Tmp_1; - rT=Tmp_2; - Ni=Tmp_3; - Nj=Tmp_4; - Tmp=[pP,Ni+rT,Nj]; - Out=[Tmp]; - ); - forall(2..(length(KL1)),Ni, - Tmp=KL1_Ni; - pP=Tmp_1; - Tmp2=0; - Flg=0; - forall(1..(length(Out)),Nj, - if(Flg==0, - Tmp=Out_Nj; - if(|pP-Tmp_1|<Eps, - Tmp2=1; - Flg=1; - ); - ); - ); - if(Tmp2==0, - Tmp=KL1_Ni; - pP=Tmp_1; - rT=Tmp_2; - Tmp1=Tmp_3; - Tmp2=Tmp_4; - Tmp=[pP,Tmp1+rT,Tmp2]; - Out=concat(Out,[Tmp]); - ); - ); - forall(1..(length(KL2)),Ni, - Tmp=KL2_Ni; // 15.11.21 Usui - pP=Tmp_1; - Tmp2=0; - Flg=0; - forall(1..(length(Out)),Nj, - if(Flg==0, - Tmp=Out_Nj; - if(|pP-Tmp_1|<Eps, - Tmp2=1; - Flg=1; - ); - ); - ); - if(Tmp2==0, - Tmp=KL2_Ni; - rT=Tmp_2; - rT=min([max([rT,0]),1]); // 15.11.21 Usui - Tmp=[pP,Tmp_3+rT,Tmp_4]; - Out=concat(Out,[Tmp]); - ); - ); - ); - Tmp1=Out; // 15.04.06 from - Out=[]; - forall(Tmp1,Tmp2, - Tmp3=select(1..(length(Out)),//16.11.27, - |Out_#_1-Tmp2_1|<Dif & |Out_#_2-Tmp2_2|<=1& |Out_#_3-Tmp2_3|<=1); - //17.04.13 - if(length(Tmp3)==0, - Out=append(Out,Tmp2); - , - forall(Tmp3, //16.11.27 - Out_#_1=(Out_#_1+Tmp2_1)/2;//17.04.14 - ); - ); - ); // 15.04.06 upto - Out; -); - -Intersectcrvs(Gr1,Gr2):=Intersectcrvs(Gr1,Gr2,[]); -//help:Intersectcrvs("gr1","pa1"); -Intersectcrvs(Gr1,Gr2,options):=( - regional(tmp,tmp1,tmp2); - tmp1=IntersectcrvsPp(Gr1,Gr2,options); - apply(tmp1,#_1); -); - -NearestptcrvPhy(point,PL):=( - regional(tmp,pP,plist); - pP=Pcrd(point); - if(isstring(PL),plist=parse(PL),plist=PL); - if(MeasureDepth(plist)==2,plist=plist_1); - plist=apply(plist,#); // 14.12.18 - tmp=Nearestpt(pP,plist); - tmp=tmp_1; - [tmp_1/SCALEX,tmp_2/SCALEY]; -); - -Nearestptcrv(point,plist):=( -//help:Nearestptcrv(A,"gr1"); - regional(tmp); - tmp=Nearestpt(point,plist); - tmp_1; -); - -Nearestpt(point,PL2):=( - regional(PL1,PL,Ans,Flg,Eps,pA,Pm,Im,Sm,Nn,Ni, - a1,b1,a2,b2,v1,v2,x1,x2,Tmp,rT,pP,sS,Lm,Pm,Sm,Flg); -//help:Nearestpt("gr1","gr2"); - if(isstring(point),PL1=parse(point),PL1=point); - if(MeasureDepth(PL1)==2,PL1=PL1_1); - if(!islist(PL1_1), - PL1=[PL1]; - Flg=0; - , - Flg=1; - ); - if(isstring(PL2),PL=parse(PL2),PL=PL2); - if(MeasureDepth(PL)==2,PL=PL_1); - Eps=10^(-6); - Ans=[PL1_1,1,PL_1,1,|PL1_1-PL_1|]; - forall(1..(length(PL1)),Nn, // 16.05.04 - pA=PL1_Nn; - Pm=PL_1; - Im=1; - Sm=|Pm-pA|; - forall(1..(length(PL)-1),Ni, - a1=PL_Ni_1; a2=PL_Ni_2; - b1=PL_(Ni+1)_1; b2=PL_(Ni+1)_2; - v1=b1-a1; v2=b2-a2; - x1=pA_1; x2=pA_2; - Tmp=v2^2+v1^2; - if(abs(Tmp)>Eps, - rT=(-a2*v2-v1*a1+v1*x1+x2*v2)/Tmp; - if(rT<-Eps, - pP=[a1,a2]; - , - if(rT>1+Eps, - pP=[b1,b2]; - , - pP=[a1+rT*v1,a2+rT*v2]; - ); - ); - sS=|pP-pA|; - if(sS<Sm-Eps, - Tmp=ParamonCurve(pP,Ni,PL); - Pm=pP; Lm=Tmp; Sm=sS; - ); - ); - if(Sm<Ans_5, // 16.05.03from - Ans=[pA,Nn,Pm,Lm,Sm]; - ); - ); // 16.05.03upto - ); - if(Flg==0, - Ans=Ans_(3..5); - ); - Ans; -); - -Derivative(fun,var,value):=( -//help:Derivative("x^3","x",2); - regional(str,tmp); - str="d("; - str=str+replace(fun,var,"#")+","; - str=str+value+")"; - tmp=Pcrd([1,parse(str)]); // 14.11.08 - tmp_2; -); - -Integrate(pltdata,range):=Integrate(pltdata,range,[]); -Intergrate(Arg1,Arg2,Arg3):=( - regional(pltdata,range,options,fnstr,vartr); - if(islist(Arg2), - pltdata=Arg1; - range=Arg2; - options=Arg3; - Integrate(pltdata,range,options); - , - fnstr=Arg1; - vastr=Arg2; - range=Arg3; - Integrate(fnstr,vastr,range,[]); - ); -); - -Integrate(pltdata,range,options):=( -//help:Integrate("gr1",[1,3]); -//help:Integrate(options=["Rule=o"]); - regional(tmp,tmp1,eqL,Rule,pdata,Sm,ptP,ptQ,list,va1,va2); - tmp=Divoptions(options); - eqL=tmp_5; - Rule="o"; - forall(eqL, - if(Toupper(substring(#,0,1))=="R", - tmp=indexof(#,"="); - Rule=substring(#,tmp,tmp+1); - ); - ); - if(Rule=="o", - Sm= IntegrateO(pltdata,range); - , - if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata); - if(MeasureDepth(pdata)==2,pdata=pdata_1); - va1=MeetCurve(pdata,range_1,0); - va2=MeetCurve(pdata,range_2,0); - list=select(pdata,(#_1>range_1 & #_1<range_2)); - list=apply(list,LLcrd(#)); // 15.09.14 - list=concat([va1],list); - list=concat(list,[va2]); - Sm=0; - forall(1..(length(list)-1), - ptP=list_#; // 15.09.14 - ptQ=list_(#+1); - Sm=Sm+(ptP_2+ptQ_2)*(ptQ_1-ptP_1)/2; - ); - Sm; - ); -); - -Integrate(fnstr,vastr,range,options):=( -//help:Integrate("sin(x)","x",[0,pi],["Num=100","Rule=s"]); - regional(tmp,tmp1,Sm,Lx,Rx,va1,va2,Num,Waysx,ex,dx,xn,yn,x0,x1,x2,y0,y1,y2); - Num=100; - Way="t"; - forall(options, - if(indexof(#,"=")>0, - if(indexof(#,"N=")>0, - Num=parse(substring(#,indexof(#,"="),length(#))); - ); - if(indexof(#,"Num=")>0, - Num=parse(substring(#,indexof(#,"="),length(#))); - ); - if(Toupper(substring(#,0,1))=="R", - tmp=indexof(#,"="); - Way=substring(#,tmp,tmp+1); - ); - ); - ); - Sm=0; - if(Way=="t", - forall(1..Num, - Lx=range_1+(range_2-range_1)*(#-1)/Num; - Rx=range_1+(range_2-range_1)*#/Num; - va1=parse(replace(fnstr,vastr,textformat(Lx,5))); - va2=parse(replace(fnstr,vastr,textformat(Rx,5))); - Sm=Sm+(va1+va2)*(Rx-Lx)/2; - ); - , - sx=range_1; - ex=range_2; - dx=(ex-sx)/Num; - xn=apply(0..Num,sx+#*dx); - yn=apply(xn,parse(replace(fnstr,vastr,textformat(#,5)))); - dx=dx/2; - repeat(Num,s, - x0=xn_s; - x1=(xn_s+xn_(s+1))/2; - x2=xn_(s+1); - y0=yn_s; - y1=parse(replace(fnstr,vastr,textformat(x1,5))); - y2=yn_(s+1); - Sm=Sm+dx*(y0+4*y1+y2)/3; - ); - ); - Sm; -); - -IntegrateO(p0org,p1org,p2org,p3org):=( - regional(p0,p1,p2,p3,pQ,pR,cc,p01,p02, - p11,p12,p21,p22,p31,p32, tmp); - if(ispoint(p0org),p0=p0org.xy,p0=p0org); // 16.03.10 - if(ispoint(p1org),p1=p1org.xy,p1=p1org); // 16.03.16 - if(ispoint(p2org),p2=p2org.xy,p2=p2org); - if(ispoint(p3org),p3=p3org.xy,p3=p3org); - tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); - cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; - pQ=p1+cc*(p2-p0); - pR=p2+cc*(p1-p3); - p01=p1_1; p02=p1_2; - p31=p2_1; p32=p2_2; - p11=pQ_1; p12=pQ_2; - p21=pR_1; p22=pR_2; - tmp=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11- - 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11- - 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01- - 6*p32*p21+10*p32*p31; - tmp=tmp/20; -); -IntegrateO(pltdata,rangeorg):=( -//help:IntegrateO("gr1",[0,2]); - regional(tmp,tmp1,tmp2,pdata,va1,va2,list,Bzk,Bzc,range,pmflg, - Sm,p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32); - if(isstring(pltdata), - pdata=parse(pltdata); - , - pdata=pltdata; - ); - if(MeasureDepth(pdata)==2,pdata=pdata_1); - range=rangeorg; - pmflg=1; - if(range_2<range_1, - range=reverse(range); - pmflg=-1; - ); - va1=MeetCurve(pdata,range_1,0); - va2=MeetCurve(pdata,range_2,0); - list=select(pdata,(#_1>range_1 & #_1<range_2)); - if(length(list)>0, // 16.09.25 - if(list_1_1>list_(length(list))_1, //16.11.03 - list=reverse(list); -// pmflg=pmflg*(-1); - ); - ); - list=apply(list,LLcrd(#)); - list=concat([va1],list); - list=concat(list,[va2]); - Sm=0; - forall(1..(length(list)-1), - p1=list_#; - p2=list_(#+1); - if(#==1 % #==length(list)-1, - tmp1=(p1_2+p2_2)*(p2_1-p1_1)/2; - Sm=Sm+tmp1; - , - p0=list_(#-1); - p3=list_(#+2); - tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); - cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; - pQ=p1+cc*(p2-p0); - pR=p2+cc*(p1-p3); - p01=p1_1; p02=p1_2; - p31=p2_1; p32=p2_2; - p11=pQ_1; p12=pQ_2; - p21=pR_1; p22=pR_2; - tmp1=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11- - 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11- - 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01- - 6*p32*p21+10*p32*p31; - tmp1=tmp1/20; - Sm=Sm+tmp1; - ); - ); - if(pmflg==-1, - Sm=-Sm; - ); - Sm; -); - -Findarea(pdstr):=( -//help:Findarea("sgABCA"); - regional(pd,p1,p2,s,tmp); - if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); - s=0; - forall(1..(length(pd)-1), - p1=Lcrd(pd_#); - p2=Lcrd(pd_(#+1)); - tmp=(p1_2+p2_2)*(p2_1-p1_1)/2; - s=s+tmp; - ); - if(s<0,s=-s); - s; -); - -Findarea(pdstr):=( // 15.11.27 -//help:Findarea("cr1"); - regional(pd,p0,p1,p2,p3,s,tmp); - if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); - s=0; - forall(1..(length(pd)-1), - p1=pd_#; - p2=pd_(#+1); - if(#==1,p0=pd_(length(pd)-1),p0=pd_(#-1)); - if(#==length(pd)-1,p3=pd_2,p3=pd_(#+2)); - tmp=IntegrateO(p0,p1,p2,p3); - s=s+tmp; - ); - if(s<0,s=-s); - s; -); - -Findlength(pdstr):=( -//help:Findlength("gr1"); - regional(pd,p1,p2,s,tmp); - if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); - s=0; - forall(1..(length(pd)-1), - p1=Lcrd(pd_#); - p2=Lcrd(pd_(#+1)); - tmp=|p2-p1|; - s=s+tmp; - ); - s; -); - -Inversefun(fnstr,rngstr,value):=( - regional(tmp,varstr,range,x1,x2,x3,va1,va2); - tmp=indexof(rngstr,"="); - varstr=substring(rngstr,0,tmp-1); - range=parse(substring(rngstr,tmp,length(rngstr))); - x1=range_1; x2=range_2; - repeat(15, - x3=(x1+x2)/2; - va1=parse(replace(fnstr,varstr,textformat(x1,5))); - va2=parse(replace(fnstr,varstr,textformat(x3,5))); - if((va1>value & va2>value) % (va1<value & va2<value), - x1=x3; - , - x2=x3; - ); - ); - va1=parse(replace(fnstr,varstr,textformat(x1,5)))-value; - va2=parse(replace(fnstr,varstr,textformat(x2,5)))-value; - if(x1==range_1 % x2==range_2, - println("not found in ("+textformat(range_1,5) - +","+textformat(range_2,5)+")"); - ); - if(abs(va1)<=abs(va2),x1,x2); -); - -Com0th(String):=( - regional(str); - str=replace(String,LFmark,""); - COM0thlist=append(COM0thlist,str); -); - -Com1st(String):=( - regional(str); - str=replace(String,LFmark,""); - GLIST=append(GLIST,str); // 15.05.27 -// COM1stlist=append(COM1stlist,str); -); - -Com2nd(String):=( -// help:Com2nd(""); - regional(str); - str=replace(String,LFmark,""); - COM2ndlist=append(COM2ndlist,str); -); - -Com2ndpre(String):=( - regional(str); - str=replace(String,LFmark,""); - COM2ndlist=prepend(str,COM2ndlist); -); - -Texcom(String):=( -//help:Texcom("\color[cmyk]{0,0,0,0.5}"); - regional(str); - str="Texcom("+Dq+String+Dq+")"; - Com2nd(str); -); - -Ketcindylogo():=( -//help:Ketcindylogo(); - Com2nd("Texcom("+Dq+"\def\ketcindy{{K\kern-.20em - \lower.5ex\hbox{E}\kern-.125em{TCindy}}}"+Dq+")"); -); - -Drwline():=Drwline(textformat(GrL,5)); -Drwline(gstr):=( - Com2nd("Drwline("+gstr+")"); -); - -Dashline(gstr):=( - Com2nd("Dashline("+gstr+")"); -); - -Invdashline(gstr):=( - Com2nd("Invdashline("+gstr+")"); -); - -Dottedline(gstr):=( - Com2nd("Dottedline("+gstr+")"); -); - -SetEnglish():=( -//help:SetEnglish(); - Com0th("setlanguage('en')"); -); - -Drawlinetype(name,type):=( -//help:Drawlinetype("gr1","da,1"); - regional(Dop,tmp,tmp1,tmp2); - Dop=""; - tmp1=indexof(type,","); - if(tmp1>0, - Dop=","+substring(type,tmp1,length(type)); - ); - tmp1=Toupper(substring(type,0,3)); - if(tmp1=="DR", - Drwline(name+Dop); - ); - if(tmp1=="DA", - Dashline(name+Dop); - ); - if(tmp1=="ID", - Invdashline(name+Dop); - ); - if(tmp1=="DO", - Dottedline(name+Dop); - ); -); - -Setunitlen(string):=( -//help:Setunitlen("5mm"); - ULEN=string; - GLIST=append(GLIST,"Setunitlen("+Dq+string+Dq+")"); -); - -Setmarklen(ratio):=( -//help:Setmarklen(0.2); - MARKLEN=ratio*0.2;//16.11.01 - Com2nd("Setmarklen("+textformat(ratio,5)+")"); -); - -Setorigin(point):=( -//help:Setorigin([1,2]); - Com2nd("Setorigin("+textformat(point,5)+")"); -); - -Fontsize(sizestr):=( -//help:Fontsize("s"); - Com2nd("Fontsize('"+sizestr+"')"); -); - -Setpen(width):=( -//help:Setpen(2); - PenThick=PenThickInit*width; // 16.04.09 - Com2nd("Setpen("+text(width)+")"); -); - -Lcrd(pt):=( - regional(tmp); - if(ispoint(pt), - tmp=[pt.x/SCALEX,pt.y/SCALEY]; - , - tmp=pt; - ); - tmp; -); - -Pcrd(pt):=( - regional(tmp); - if(ispoint(pt), - tmp=re(pt.xy); // 15.07.24 - , - tmp=[pt_1*SCALEX,pt_2*SCALEY]; - ); - tmp; -); - -LLcrd(pt):=( - regional(tmp); - if(ispoint(pt), - tmp=pt.xy - , - tmp=pt; - ); - tmp=[tmp_1/SCALEX,tmp_2/SCALEY]; - tmp; -); - -Doscaling(pltdata):=( - regional(Level,Out,gL,gr,tmp); - if(ispoint(pltdata) % isreal(pltdata_1), - gL=[[pltdata]]; - Level=0; - , - if(ispoint(pltdata_1) % isreal(pltdata_1_1), - gL=[pltdata]; - Level=1; - , - gL=pltdata; - Level=2; - ); - ); - Out=[]; - forall(gL,gr, - tmp=apply(gr,Lcrd(#)); - tmp=apply(tmp,LLcrd(#)); - Out=concat(Out,[tmp]); - ); - if(Level==0, - Out=Out_1_1; - ); - if(Level==1, - Out=Out_1; - ); - Out; -); - -Unscaling(pltdata):=( - regional(Level,Out,gL,gr,tmp); - if(ispoint(pltdata) % isreal(pltdata_1), - gL=[[pltdata]]; - Level=0; - , - if(ispoint(pltdata_1) % isreal(pltdata_1_1), - gL=[pltdata]; - Level=1; - , - gL=pltdata; - Level=2; - ); - ); - Out=[]; - forall(gL,gr, - tmp=apply(gr,Lcrd(#)); - tmp=apply(tmp,LLcrd(#)); - Out=concat(Out,[tmp]); - ); - if(Level==0, - Out=Out_1_1; - ); - if(Level==1, - Out=Out_1; - ); - Out; -); - -Setpt(n):=Ptsize(n); -//help:Setpt(5); -Ptsize(n):=( - println("Setpt("+text(n)+")"); - TenSize=TenSizeInit*n; - Com2nd("Setpt("+text(n)+")"); // 14.01.19 -); - -Definecolor(name,data):=( -//help:Definecolor("mycolor",[1,1,1,0]); - regional(type,tmp); - if(length(data)>3,type="cmyk",type="rgb"); - tmp=text(data); - tmp=substring(tmp,1,length(tmp)-1); - tmp="\definecolor{"+name+"}{"+type+"}{"+tmp+"}"; - Texcom(tmp); -); - -Setcolor(Par):=( -//help:Setcolor([1,0,0,1]); -//help:Setcolor([1,1,0]); - if(islist(Par), - if(length(Par)==3, - Setcolorrgb(Par); // 2015.04.28 -// KCOLOR=Par; - ); - if(length(Par)==4, - Setcolor(Par,[]); - ); - , - Setcolor(Par,[]); - ); -); - -Setcolor(colorname,options):=( -//help:Setcolor("greenyellow",0.3); - regional(tmp); - if(isstring(colorname), - tmp="Setcolor("+Dq+colorname+Dq; - if(length(options)>0, - tmp=tmp+","+text(options_1); - ); - Com2nd(tmp+")"); - ); - if(islist(colorname), - tmp=text(colorname); - tmp=substring(tmp,1,length(tmp)-1); - tmp="Texcom("+Dq+"\color[cmyk]{"+tmp+"}"+Dq+")"; - Com2nd(tmp); - ); -); - -Setcolorrgb(colorlist):=( -// help:Setcolorrgb([0.5,0.3,0.4]); - regional(tmp); - tmp=text(colorlist); - tmp=substring(tmp,1,length(tmp)-1); - tmp="Texcom("+Dq+"\color[rgb]{"+tmp+"}"+Dq+")"; - Com2nd(tmp); -); - -ColorRgb2Cmyk(clr):=( -// help:ColorRgb([0.2,0.5,0.1]); - regional(clrnew,tmp,black); - tmp=apply(clr,1-#); - black=min(tmp); - tmp=apply(clr,(1-#-black)/(1-black)); - clrnew=append(tmp,black); - clrnew; -); - -ColorCmyk2Rgb(clr):=( -// help:ColorRgb([0.2,0.5,0.1,0.2]); - regional(clrnew,tmp,black); - black=clr_4; - tmp=apply(clr,1-min(1,#*(1-black)+black)); - clrnew=tmp_(1..3); - clrnew; -); - -Colorrgbhsv(rgb):=( - regional(varR,varG,varB,varMin,varMax,delMax,hh,ss,vv,delR,delG,delB); - varR = rgb_1; - varG = rgb_2; - varB = rgb_3; - varMin = min( [varR, varG, varB] ); - varMax = max( [varR, varG, varB] ); - delMax = varMax - varMin ; - vv = varMax; - if ( delMax == 0 , - hh = 0 ; - ss = 0 ; - , - ss = delMax / varMax; - delR = ( ( ( varMax - varR ) / 6 ) + ( delMax / 2 ) ) / delMax; - delG = ( ( ( varMax - varG ) / 6 ) + ( delMax / 2 ) ) / delMax; - delB = ( ( ( varMax - varB ) / 6 ) + ( delMax / 2 ) ) / delMax; - if( varR == varMax , - hh = delB - delG; - , - if ( varG == varMax, - hh = ( 1 / 3 ) + delR - delB; - , - if ( varB == varMax , - hh = ( 2 / 3 ) + delG - delR; - ); - ); - ); - if ( hh < 0 ,hh = hh+1); - if ( hh > 1 ,hh = hh-1); - ); - [hh*360,ss,vv]; -); - -Colorhsvrgb(sL):=( - regional(tmp,tmp1,tmp2,tmp3,hi,ff,dL); - tmp=[sL_1/60,sL_2,sL_3]; - hi=mod(floor(tmp_1),6); - ff=tmp_1-floor(tmp_1); - tmp2=tmp_3*[1-tmp_2,1-tmp_2*ff,1-tmp_2*(1-ff)]; - tmp2=append(tmp2,tmp_3); - if(hi==0,dL=tmp2_[4,3,1]); - if(hi==1,dL=tmp2_[2,4,1]); - if(hi==2,dL=tmp2_[1,4,3]); - if(hi==3,dL=tmp2_[1,2,4]); - if(hi==4,dL=tmp2_[3,1,4]); - if(hi==5,dL=tmp2_[4,1,2]); - dL; -); - -Colorrgbhsl(rgb):=( - regional(rr,gg,bb,mn,mx,delta,deltaR,deltaG,deltaB,hh,ss,ll); - rr = rgb_1 ; - gg = rgb_2 ; - bb = rgb_3 ; - mn = min([rr, gg, bb]); - mx = max([rr, gg, bb]); - delta = mx - mn; - ll = (mx + mn) / 2; - if (delta == 0, - hh=0; - ss=0; - , - if (ll < 0.5, - ss = delta/ (mx + mn); - , - ss = delta / (2 - mx - mn); - ); - deltaR = (((mx - rr) / 6) + (delta / 2)) / delta; - deltaG = (((mx - gg) / 6) + (delta / 2)) / delta; - deltaB = (((mx - bb) / 6) + (delta / 2)) / delta; - if (rr == mx, - hh = deltaB - deltaG; - , - if (gg == mx, - hh = (1 / 3) + deltaR - deltaB; - , - if (bb == mx, - hh = (2 / 3) + deltaG - deltaR; - ); - ); - ); - if ( hh < 0, hh = hh+1); - if ( hh > 1, hh = hh-1); - ); - [hh*360,ss,ll]; -); - -Colorhslrgb(hsl):=( - regional(hh,ss,ll,rr,gg,bb,var1,var2); - hh=hsl_1/360; - ss=hsl_2; - ll=hsl_3; - if ( ss == 0.0, - rr = ll ; - gg = ll ; - bb = ll ; - , - if ( ll < 0.5 , - var2 = ll * ( 1.0 + ss ); - , - var2 = ( ll + ss ) - ( ss * ll ); - ); - var1 = 2.0 * ll - var2; - rr = hue2rgb( var1, var2, hh + ( 1.0 / 3.0 ) ); - gg = hue2rgb( var1, var2, hh ); - bb = hue2rgb( var1, var2, hh - ( 1.0 / 3.0 ) ); - ); - [rr,gg,bb]; -); - -hue2rgb(vv1,vv2,vh):=( - regional(out); - if ( vh < 0.0 ,vh =vh+1); - if ( vh > 1.0 ,vh =vh-1); - if ( 6.0*vh < 1.0 , - out = vv1 + ( vv2 - vv1 ) * 6.0 * vh ; - , - if( 2.0*vh < 1.0 , - out = vv2; - , - if ( 3.0*vh < 2.0 , - out = vv1 + ( vv2 - vv1 ) * ( ( 2.0 / 3.0 ) - vh ) * 6.0 ; - , - out= vv1 ; - ); - ); - ); - out; -); - -Colorrgbhwb(sL):=( - regional(dl1,dl2,dl3); - dl1 = Colorrgbhsl(sL)_1;//Colorcode("rgb","hsl",sL)_1; - dl2 = min(sL); - dl3 = 1 - max(sL); - dL= [dl1, dl2 , dl3 ]; -); - -Colorhwbrgb(sLorg):=( - regional(sL,tmp,tmp1,tmp2,tmp3,ratio,ff,ii,vv,nn,dL,flg); - sL=sLorg; - sL=[sL_1/360,sL_2,sL_3]; - ratio = sL_2 + sL_3; - // sL_2 + sL_3 cant be > 1 - if (ratio > 1., - sL_2 =sL_2 / ratio; - sL_3 = sL_3 / ratio; - ); - ii = floor(6 * sL_1); - vv = 1 - sL_3; - ff = 6 * sL_1 - ii; - if(mod(ii,2)==1,ff = 1 - ff); - nn = sL_2 + ff * (vv - sL_2); // linear interpolation - tmp=[[vv,nn,sL_2],[nn,vv,sL_2],[sL_2,vv,nn], - [sL_2,nn,vv],[nn,sL_2,vv],[vv,sL_2,nn],[vv,nn,sL_2]]; - flg=0; - forall(0..6, - if(flg==0 & ii == # , - dL=tmp_(#+1); - flg=1; - ); - ); - dL; -); - -Colorhslhsv(sL):=( - regional(dl1,dl2,dl3,dL); - dl1=sL_1; - if(sL_3 == 0, - // no need to do calc on black - // also avoids divide by 0 error - dL= [0, 0, 0]; - , - sL_3 = sL_3 * 2; - if(sL_3 <= 1,sL_2 = sL_2 * sL_3,sL_2 = sL_2 * (2 - sL_3)); - dl3 = (sL_3 + sL_2) / 2; - dl2 = (2 * sL_2) / (sL_3 + sL_2); - dL = [dl1, dl2, dl3]; - ); - dL; -); - -Colorcode(src,dest,sL):=( -//help:Colorcode("rgb","cmyk",[1,0.5,0]); - regional(tmp,tmp1,tmp2,tmp3,mn,mx,delta,black,dL,flg); - regional(dl1,dl2,dl3); - if(src=="rgb" & dest=="hsv", dL=Colorrgbhsv(sL)); - if(src=="hsv" & dest=="rgb", dL=Colorhsvrgb(sL)); - if(src=="rgb" & dest=="hsl", dL=Colorrgbhsl(sL)); - if(src=="hsl" & dest=="rgb", dL=Colorhslrgb(sL)); - if(src=="rgb" & dest=="hwb", dL=Colorrgbhwb(sL)); - if(src=="hwb" & dest=="rgb", dL=Colorhwbrgb(sL)); - if(src=="hsl" & dest=="hsv", dL=Colorhslhsv(sL)); - if(src=="hsv" & dest=="hsl", - dl1 = sL_1; - dl3 = (2 - sL_2) * sL_3; - dl2 = sL_2 * sL_3; - if(dl3 <= 1,dl2 = dl2/dl3,dl2=dl2/(2 - dl3)); - dl3 =d l3/ 2; - dL = [dl1, dl2 , dl3 ]; - ); - - if(src=="rgb" & dest=="cmyk", - tmp=apply(sL,1-#); - black=min(tmp); - tmp=apply(sL,(1-#-black)/(1-black)); - dL=append(tmp,black); - ); - if(src=="cmyk" & dest=="rgb", - black=sL_4; - tmp=apply(sL,1-min(1,#*(1-black)+black)); - dL=tmp_(1..3); - ); - if(src=="hsv" & dest=="cmyk", - tmp=Colorcode("hsv","rgb",sL); - dL=Colorcode("rgb","cmyk",tmp); - ); - if(src=="cmyk" & dest=="hsv", - tmp=Colorcode("cmyk","rgb",sL); - dL=Colorcode("rgb","hsv",tmp); - ); - - if(src=="hsv" & dest=="hwb", - tmp = Colorcode("hsv","rgb",sL); - dL = Colorcode("rgb","hwb",tmp); - ); - if(src=="hwb" & dest=="hsv", - tmp = Colorcode("hwb","rgb",sL); - dL = Colorcode("rgb","hsv",tmp); - ); - if(src=="hsl" & dest=="hwb", - tmp = Colorcode("hsl","rgb",sL); - dL = Colorcode("rgb","hwb",tmp); - ); - if(src=="hwb" & dest=="hsl", - tmp = Colorcode("hwb","rgb",sL); - dL = Colorcode("rgb","hsl",tmp); - ); - if(src=="hsl" & dest=="cmyk", - tmp = Colorcode("hsl","rgb",sL); - dL = Colorcode("rgb","cmyk",tmp); - ); - if(src=="hwb" & dest=="cmyk", - tmp = Colorcode("hwb","rgb",sL); - dL = Colorcode("rgb","cmyk",tmp); - ); - if(src=="cmyk" & dest=="hsl", - tmp = Colorcode("cmyk","rgb",sL); - dL = Colorcode("rgb","hsl",tmp); - ); - if(src=="cmyk" & dest=="hwb", - tmp = Colorcode("cmyk","rgb",sL); - dL = Colorcode("rgb","hwb",tmp); - ); - if(src=="hsb" & dest=="rgb",dL=Colorcode("hsv","rgb",sL)); - if(src=="rgb" & dest=="hsb",dL=Colorcode("rgb","hsv",sL)); - - if(src=="hsb" & dest=="hsl",dL=Colorcode("hsv","hsl",sL)); - if(src=="hsl" & dest=="hsb",dL=Colorcode("hsl","hsv",sL)); - - if(src=="hsb" & dest=="hwb",dL=Colorcode("hsv","hwb",sL)); - if(src=="hwb" & dest=="hsb",dL=Colorcode("hwb","hsv",sL)); - - if(src=="hsb" & dest=="cmyk",dL=Colorcode("hsv","cmyk",sL)); - if(src=="cmyk" & dest=="hsb",dL=Colorcode("cmyk","hsv",sL)); - - dL; -); - -Addcolor(cmdorg,list):=( -//help:Addcolor("Plotdata('1','x^2','x',[])",[1,1,0]); - regional(rgb,cmyk,cmd,tmp,tmp1,tmp2,tmp3,tmp4); - cmd=replace(cmdorg,"'",Dq); - if(length(list)==3, - rgb=list; - cmyk=Colorcode("rgb","cmyk",list); - , - cmyk=list; - rgb=Colorcode("cmyk","rgb",list); - ); - tmp1="color->"+text(rgb); - tmp2="Setcolor("+text(cmyk)+");"; - tmp3=substring(cmd,0,length(cmd)-2); - tmp=substring(tmp3,length(tmp3)-1,length(tmp3)); - if(tmp!="[", - tmp3=tmp3+","; - ); - tmp3=tmp3+Dq+tmp1+Dq+"])"; - parse(tmp2); - parse(tmp3); - Setcolor("black"); -); - -Colorinfile(filename,clrf,clrt):=( - regional(tmp,tmp1,tmp2,head,cstrL,chstrL,head,body); - if(length(clrf_1)==3, - head="[rgb]{"; - , - head="[cmyk]{"; - ); - tmp=apply(clrf,text(#)); - cstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}"); - if(length(clrt_1)==3, - head="[rgb]{"; - , - head="[cmyk]{"; - ); - tmp=apply(clrt,text(#)); - chstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}"); - tmp1=load(filename); - tmp=tokenize(tmp1,"{\unitlength"); - head=tokenize(tmp_1,"%%%"); - head=head_(2..(length(head))); - head=apply(head,"%%%"+#); - tmp2=tmp_2; - forall(1..5, - tmp2=replace(tmp2,cstrL_#,chstrL_#); - ); - body=tokenize(tmp2,"%"); - body_1="{\unitlength"+body_1; - body=apply(body,#+"%"); - body=body_(1..(length(body)-1)); - tmp=replace(filename,".tex","new.tex"); - SCEOUT=openfile(tmp); - forall(head, - println(SCEOUT,#); - ); - forall(1..(length(body)), - tmp=body_#; - if(#<length(body), - println(SCEOUT,tmp); - , - print(SCEOUT,tmp) - ); - ); - closefile(SCEOUT); -); - -GetLinestyle(str,name):=( - regional(noflg,tmp,tmp1,tmp2,Dop,Ltype,subflg); - Ltype=-1; - Dop=""; - tmp1=indexof(str,","); - if(tmp1>0, - Dop=","+substring(str,tmp1,length(str)); - ); - noflg=parse(substring(str,0,1)); - if(substring(name,0,3)=="sub",subflg=1,subflg=0); // 16.02.29 - tmp1=substring(str,1,3); - if(tmp1=="dr" % tmp1=="Dr", - Ltype=0; - if(noflg==0 & subflg==0, // 16.02.29 - Drwline(name+Dop); - ); - ); - if(tmp1=="da" % tmp1=="Da", - Ltype=1; - if(noflg==0 & subflg==0, // 16.02.29 - Dashline(name+Dop); - ); - ); - if(tmp1=="id" % tmp1=="Id", - Ltype=2; // 15.11.09 - if(noflg==0 & subflg==0, // 16.02.29 - Invdashline(name+Dop); - ); - ); - if(tmp1=="do" % tmp1=="Do", - Ltype=3; - if(noflg==0 & subflg==0, // 16.02.29 - Dottedline(name+Dop); - ); - ); - if(tmp1=="dp" % tmp1=="Dp", - Ltype=0; - tmp1=parse(name); - tmp2=""; - forall(tmp1, - tmp2=tmp2+textformat(#_1,5)+","; - ); - tmp2=substring(tmp2,0,length(tmp2)-1); - if(noflg==0, - Drwpt(tmp2+Dop); - ); - ); - if(tmp1=="no" % tmp1=="No", - Ltype=10; - ); - Ltype; -); - -Chunderscore(str):=( - regional(flg,tmp,tmp1,tmp2,tmp3); - if(indexof(str,"]")>0, - tmp1=replace(str,"]",",]"); - , - tmp1=str+","; - ); - flg=0; - tmp2=[]; - tmp3=0; - forall(1..(length(tmp1)), - if(flg==0, - tmp=substring(tmp1,tmp3,length(tmp1)); - tmp=indexof(tmp,"_"); - if(tmp==0, - flg=1; - , - tmp3=tmp3+tmp; - tmp=substring(tmp1,tmp3,length(tmp1)); - tmp=indexof(tmp,",")-1; - tmp=substring(tmp1,tmp3,tmp3+tmp); - tmp2=append(tmp2,tmp); - ); - ); - ); - forall(tmp2, - tmp1=replace(tmp1,"_"+#,"("+#+")"); - ); - if(indexof(str,"]")>0, - tmp1=replace(tmp1,",]",")"); - tmp1=replace(tmp1,"[","list("); - , - tmp1=substring(tmp1,0,length(tmp1)-1); - ); - tmp1; -); - -//AddGraph(pltdata):=AddGraph("-"+pltdata,pltdata,[]); -AddGraph(nm,pltdata):=AddGraph(nm,pltdata,[]); -// if(isstring(Arg2), -// AddGraph(Arg1,Arg2,[]); -// , -// if(MeasureDepth(Arg2)>0, -// Addgraph(Arg1,Arg2,[]); -// , -// Addgraph("-"+Arg1,Arg1,Arg2); -// ); -// ); -//); -AddGraph(nm,pltdata,options):=( -//help:AddGraph("1","imp1"); // 16.04.04 -//help:Addgraph("1",["[pt1]","gr1"],["nodisp"]); - regional(name,Ltype,Noflg,opcindy,pdata,fname,flg, - tmp,tmp1,tmp2,tmp3); - if(substring(nm,0,1)=="-", - name=substring(nm,1,length(nm)); - , - name="ad"+nm; - ); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_9; - if(isstring(pltdata), - pdata=parse(pltdata) - , - if(!islist(pltdata),pdata=[pltdata],pdata=pltdata); - pdata=apply(pdata,parse(#)); - ); // 15.01.22 - pdata=Flattenlist(pdata); - tmp1=[]; - forall(pdata,tmp2, - tmp=apply(tmp2,Pcrd(#)); - tmp1=append(tmp1,tmp); - ); - if(length(tmp1)==1,tmp1=tmp1_1); - pdata=tmp1; - if(Noflg<3, - println("generate addgraph "+name); - tmp=name+"="+textformat(pdata,5); - parse(tmp); - if(isstring(pltdata), // 16.04.04 from - if(indexof(pltdata,"]")>0, - tmp1="list(Listplot("+substring(pltdata,1,length(pltdata)); - tmp1=replace(tmp1,"]",",]"); - , - tmp1="Listplot("+substring(pltdata,0,length(pltdata))+",]"; - ); - flg=0; - tmp2=[]; - tmp3=0; - forall(1..(length(tmp1)), - if(flg==0, - tmp=indexof(substring(tmp1,tmp3,length(tmp1)),"_"); - if(tmp==0, - flg=1; - , - tmp3=tmp3+tmp; - tmp=indexof(substring(tmp1,tmp3,length(tmp1)),",")-1; - tmp=substring(tmp1,tmp3,tmp3+tmp); - tmp2=append(tmp2,tmp); - ); - ); - ); - forall(tmp2, - tmp1=replace(tmp1,"_"+#,"("+#+")"); - ); - tmp1=replace(tmp1,",]",")"); - tmp1=replace(tmp1,",","),Listplot("); - if(indexof(pltdata,"[")>0, - tmp1=tmp1+")"; - ); - GLIST=append(GLIST,name+"="+tmp1); - , - if(MeasureDepth(pdata)==1, - tmp1=name+"=Listplot("+textformat(pdata,5)+")"; - , - tmp1="list("; - forall(1..(length(pdata)), - tmp=name+"p"+textformat(#,5)+"="; - if(length(pdata_#)>1, // 15.01.22 - tmp=tmp+"Listplot("+textformat(pdata_#,5)+")"; - , - tmp=tmp+"Pointdata("+textformat(pdata_#_1,5)+")"; - ); - GLIST=append(GLIST,tmp); - tmp1=tmp1+name+"p"+textformat(#,5)+","; - ); - tmp1=name+"="+substring(tmp1,0,length(tmp1)-1)+")"; - ); - GLIST=append(GLIST,tmp1); - ); - ); // 16.04.04 upto - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); -); - -Joincrvs(nm,plotstrL):=Joincrvs(nm,plotstrL,[]); -Joincrvs(nm,plotstrL,options):=( -//help:Joincrvs("1",["sgAB","sgDCB"]); - regional(plotlist,PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN, - opcindy,tmp,tmp1,tmp2,str,name,Ltype,Noflg); - name="join"+nm; - plotlist=[]; - forall(plotstrL,str, - if(isstring(str), - tmp=parse(str); - tmp=apply(tmp,LLcrd(#)); - , - tmp=str; - ); - plotlist=append(plotlist,tmp); - ); - Eps=10^(-4); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - tmp1=tmp_6; - if(length(tmp1)>0,Eps=tmp1_1); - QdL=[]; - forall(plotlist,Qd, - if(ispoint(Qd_1) % !islist(Qd_1_1), - QdL=concat(QdL,[Qd]); - , - forall(Qd, - QdL=concat(QdL,[#]); - ); - ); - ); - Flg=0; - if(length(QdL)==0, - PtL=[]; - Flg=1; - ); - if(Flg==0, - PtL=QdL_1; - forall(2..(length(QdL)),Ni, - Qd=QdL_Ni; - if(Numptcrv(Qd)>1, - pP=Ptend(PtL); - pS=Ptstart(PtL); - pQ=Ptstart(Qd); - pR=Ptend(Qd); - rMN=min([|pP-pQ|,|pP-pR|,|pS-pQ|,|pS-pR|]); - if(rMN==|pP-pR|, - Qd=reverse(Qd); - , - if(rMN==|pS-pQ|, - PtL=reverse(PtL); - , - if(rMN==|pS-pR|, - PtL=reverse(PtL); - Qd=reverse(Qd); - ); - ); - ); - ); - if(rMN>Eps, - PtL=concat(PtL,Qd); - , - PtL=concat(PtL,Qd_(2..(length(Qd)))); - ); - ); - ); - if(Noflg<3, - println("generate joincurve "+name); - tmp1=apply(PtL,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - tmp1=""; - forall(plotstrL, - tmp1=tmp1+#+","; - ); - tmp1=substring(tmp1,0,length(tmp1)-1); - GLIST=append(GLIST,name+"=Joincrvs("+tmp1+")"); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - PtL; -); - -Partcrv(nm,pA,pB,PkLstr):=Partcrv(nm,pA,pB,PkLstr,[]); -Partcrv(nm,pA,pB,PkLstr,options):=( -//help:Partcrv("1",A,B,"sgABC"); -//help:Partcrv("1",1.3,2.5,"sgABC"); - regional(PkL,Ans,Eps,Npt,Out1,Out2,tmp,tmp1,Flg,nS,nE,PPL,pP, - opcindy,Ta,Tb,name,Ltype,Noflg,DepthFlg); - name="part"+nm; - if(isstring(PkLstr),PkL=parse(PkLstr),PkL=PkLstr); - DepthFlg=0; - if(MeasureDepth(PkL)==2, - PkL=PkL_1; - DepthFlg=1; - ); - PkL=apply(PkL,LLcrd(#)); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - Eps=10^(-3); - Flg=0; - if(isreal(pA), - if(pA>pB+Eps, - Npt=Numptcrv(PkL); - Out1=Partcrv("",pA,Npt,PkLstr,["nodata"]); - Out2=Partcrv("",1,pB,PkLstr,["nodata"]); - tmp=Ptstart(PkL)-Ptend(PkL); - if(|tmp|<Eps, - Ans=Joincrvs("",[Out1,Out2],["nodata"]); - , - Ans=[apply(Out1,Pcrd(#)),apply(Out2,Pcrd(#))]; - ); - Flg=1; - ); - if(Flg==0, - nS=ceil(pA); - nE=floor(pB); - PPL=[]; - if(pA<nS-Eps, - pP=(nS-pA)*PkL_(nS-1)+(1-nS+pA)*PkL_nS; - PPL=[pP]; - ); - PPL=concat(PPL,PkL_(nS..nE)); - if(pB>nE+Eps, - pP=(1-pB+nE)*PkL_nE+(pB-nE)*PkL_(nE+1); - PPL=concat(PPL,[pP]); - ); - Ans=PPL; - Flg=1; - ); - ); - if(Flg==0, - tmp=Nearestpt(LLcrd(Pcrd(pA)),PkL); - Ta=tmp_2; - tmp=Nearestpt(LLcrd(Pcrd(pB)),PkL); // 15.09.12 - Tb=tmp_2; - Ans=Partcrv("",Ta,Tb,PkL,["nodata"] ); - Ans=apply(Ans,Pcrd(#)); - ); - if(Noflg<3, - println("generate partcrv "+name); - tmp1=apply(Ans,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); -// GLIST=append(GLIST, // 16.04.03 - if(DepthFlg==0, - tmp=PkLstr; - , - tmp=PkLstr+"(1)"; - ); - tmp1=name+"=Partcrv("+textformat(Lcrd(pA),5) - +","+textformat(Lcrd(pB),5)+","+tmp+")"; // 16.04.03 - GLIST=append(GLIST,tmp1); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - Ans; -); - -Opcrvs(num,Fig):=Opcrvs(num,Fig,["nodisp"]); -Opcrvs(num,Fig,options):=( - //help:Subgraph(2,"grfs"); - regional(name,tmp,tmp1); - name="-"+Fig+text(num); - tmp=Fig+"_"+text(num); - tmp1=parse(tmp); - Listplot(name,tmp1,options); -); - - -Pointdata(nm,list):=Pointdata(nm,list,[]); -Pointdata(nm,list,options):=( -//help:Pointdata("1",[2,4],["Size=5"]); -//help:Pointdata("2",[[2,3],[4,1]]); - regional(name,nameL,ptlist,opstr,opcindy, - eqL,size,thick,tmp,tmp1,tmp2,tmp3,Ltype,Noflg); - name="pt"+nm; - nameL=name+"L"; - println("generate pointdata "+name); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - opstr=tmp_(length(tmp)-1); - size=""; - eqL=tmp_5; - if(length(eqL)>0, - forall(eqL, - tmp=substring(#,0,1); - if(tmp=="s" % tmp=="S", - tmp=indexof(#,"="); - size=substring(#,tmp,length(#)); - ); - ); - ); - tmp=MeasureDepth(list); - if(tmp>0, // 2015.02.21 - if(tmp==1,ptlist=list,ptlist=list_1); - tmp=apply(ptlist,[textformat(Pcrd(#),5)]); - tmp1=text(tmp); - tmp2=substring(tmp1,1,length(tmp1)-1); - tmp3=tmp1; - , - ptlist=list; - tmp1=textformat(Pcrd(ptlist),5); - tmp2=tmp1; - tmp3="["+tmp1+"]"; - ); - tmp=name+"="+tmp1; - parse(tmp); - tmp=nameL+"="+tmp3; - parse(tmp); - if(Noflg<3, - GLIST=append(GLIST,name+"=Pointdata("+tmp2+")"); - ); - if(Noflg<2, - tmp=[nameL,0,opcindy]; - GCLIST=append(GCLIST,tmp); - if(Noflg==0, - if(length(size)>0, - Com2nd("Setpt("+size+")"); - ); - thick=PenThick/PenThickInit; // 16.04.09 from - if(length(size)>0,tmp1=parse(size),tmp1=1); - tmp1=max(tmp1,1)/8; - Setpen(tmp1); // 16.04.09 upto - Com2nd("Drwpt(list("+name+")"+opstr+")"); - Setpen(thick); // 16.04.09 - if(length(size)>0, - Com2nd("Setpt("+textformat(TenSize/TenSizeInit,1)+")"); - ); - ); - ); - ptlist; -); - -Listplot(nm,list,options):=( -//help:Listplot([A,B]); -// help:Listplot(["A","B"]); -//help:Listplot("1",[[2,1],[3,3]]); -//help:Listplot(options2=["Msg=yes"]); - regional(name,tmp,tmp1,ptlist,Ltype,opcindy,Noflg,eqL,Msg); - if(substring(nm,0,1)=="-", // 16.01.27 from - name=substring(nm,1,length(nm)); - , - name="sg"+nm; - ); // upto - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - eqL=tmp_5; - opcindy=tmp_(length(tmp)); - Msg=1; // 15.09.17 - forall(eqL, - tmp=substring(#,0,1); - if(Toupper(tmp)=="M", - tmp=indexof(#,"="); - tmp1=substring(#,tmp,tmp+1); // 16.06.28 - if(Toupper(tmp1)=="N", // 16.06.28 - Msg=0; - ); - ); - ); - if(Noflg<3, - if(Msg==1, - println("generate Listplot "+name); - ); - if(isstring(list_1),tmp=apply(list,parse(#)),tmp=list); // 15.03.24 - ptlist=apply(tmp,Pcrd(#)); - tmp=name+"="+textformat(ptlist,5); - parse(tmp); - GLIST=append(GLIST,name+"=Listplot("+textformat(list,5)+")"); // 15.12.23 - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - tmp1=apply(list,Lcrd(#)); - tmp1; -); -Listplot(Arg1,Arg2):=( - regional(name,list,options,str); - if(isstring(Arg1), - name=Arg1; - list=Arg2; - Listplot(name,list,[]); - , - list=Arg1; - options=Arg2; - name=""; - forall(list, // 16.10.07from - name=name+#.name; - );// 16.10.07upto - Listplot(name,list,options); - ); -); -Listplot(list):=Listplot(list,[]); - -Lineplot(nm,list,options):=( -//help:Lineplot([A,B]); -//help:Lineplot("1",[[2,1],[3,3]]); - regional(name,Out,tmp,tmp1,opstr,opcindy,Mag,Semi, - Vec,pA,pB,Ltype,Noflg); - name="ln"+nm; - Mag=100; - Semi=""; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - opstr=tmp_(length(tmp)-1); - tmp1=tmp_6; - if(length(tmp1)>0,Mag=tmp1_1); - tmp1=tmp_7; - if(length(tmp1)>0,Semi=tmp1_1); - pA=Lcrd(list_1); pB=Lcrd(list_2); - Vec= Mag/dist(pA,pB)*(pB-pA); - if(length(Semi)==0, - Out=[pA-Vec,pA+Vec]; - , - if(Semi=="+", - Out=[pA,pA+Vec]; - , - Out=[pA-Vec,pA]; - ); - ); - if(Noflg<3, - println("generate Lineplot "+name); - tmp1=apply(Out,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - GLIST=append(GLIST,name+"=Lineplot("+textformat(list,5)+opstr+")"); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - Out; -); -Lineplot(Arg1,Arg2):=( - regional(name,list,options,str); - if(isstring(Arg1), - name=Arg1; - list=Arg2; - Lineplot(name,list,[]); - , - list=Arg1; - options=Arg2; - name=""; - forall(list, // 16.10.07from - name=name+#.name; - );// 16.10.07upto - Lineplot(name,list,options); - ); -); -Lineplot(list):=Lineplot(list,[]); - -Plotdata(name1,func,variable):=Plotdata(name1,func,variable,[]); -Plotdata(name1,func,variable,options):=( -//help:Plotdata("1","sin(x)","x",["Num=100"]); -//help:Plotdata("2","x^2","x=[-1,1]"); -//help:Plotdata("3","Fout(x)","x",["out"]); - regional(Fn,Va,tmp,tmp1,tmp2,eqL,name,Vname,x1,x2,dx, - PdL,QdL,Num,Ec,Dc,Fun,Exfun,x,Ke,Eps,Pa, - Ltype,Noflg,Inflg,Outflg,opstr,opcindy); - name="gr"+name1; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - Inflg=tmp_3; - Outflg=tmp_4; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - eqL=tmp_5; - Num=50; - Ec=[]; - Exfun=""; - Dc=1000; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,tmp,length(#)); - opstr=opstr+",'"+#+"'"; - if(substring(#,0,1)=="N", - Num=parse(tmp1); - ); - if(substring(#,0,1)=="E", - if(substring(tmp1,0,1)=="[", - Ec=parse(tmp1); - , - Exfun=tmp1; - ); - ); - if(substring(#,0,1)=="D", - Dc=parse(tmp1); - ); - ); - if(Inflg==0 & Outflg==0, - Eps=10^(-3); - tmp=replace(func,LFmark,""); - tmp=tokenize(variable,"="); - Vname=tmp_1; - if(length(tmp)>1, - tmp=tmp_2; - tmp=parse(tmp); - x1=tmp_1; - x2=tmp_2; - , - x1=XMIN; - x2=XMAX; - ); - // dx=(x2-x2)/Num; - Ec=append(sort(Ec),10000); - Fun=Assign(func,Vname, "xx"); - Exfun=Assign(Exfun,Vname, "xx"); - PdL=[]; - Ke=1; - forall(0..Num, - xx=x1+#*(x2-x1)/Num; // differs from Scilab ( / Num-1) - if(length(Exfun)>0, - tmp=parse(Exfun); - if(abs(tmp)<Eps, - if(length(Pdt)>0, - PdL=concat(PdL,["inf"]); - ); - ); - , - Pa=[]; - if(xx-Ec_Ke<-Eps, - Pa=[xx,parse(Fun)]; - ); - if(abs(xx-Ec_Ke)<=Eps, - if(length(PdL)>0, - if(PdL_(length(PdL))_1!="inf", - Pa=["inf"]; - ); - ); - ); - if(xx-Ec_Ke>Eps, - Pa=[xx,parse(Fun)]; - Ke=Ke+1; - ); - if(length(Pa)>0, - if(Pa_1=="inf", - PdL=concat(PdL,[Pa]); - , - if(length(PdL)==0, - PdL=[Pa]; - , - tmp=PdL_(length(PdL)); - if(tmp_1=="inf", - PdL=concat(PdL,[Pa]); - , - if(dist(tmp,Pa)<Dc, - PdL=concat(PdL,[Pa]); - , - PdL=concat(PdL,[["inf"],Pa]); - ); - ); - ); - ); - ); - ); - ); - tmp1=[]; - tmp2=select(1..(length(PdL)),PdL_#==["inf"]); - tmp=1; - forall(tmp2, - if(#>tmp, - tmp1=concat(tmp1,[PdL_(tmp..(#-1))]) - ); - tmp=#+1; - ); - if(tmp<length(PdL), - tmp1=concat(tmp1,[PdL_(tmp..(length(PdL)))]); - ); - PdL=tmp1; - if(length(PdL)==1, - PdL=PdL_1; - ); - if(Noflg<3, - println("generate Plotdata "+name); - if(MeasureDepth(PdL)==1, - tmp1=apply(PdL,Pcrd(#)); - , - tmp1=[]; - forall(PdL,tmp2, - tmp1=append(tmp1,apply(tmp2,Pcrd(#))); - ); - ); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - tmp1=replace(func,LFmark,""); - tmp2=replace(variable,LFmark,""); - tmp=name+"=Plotdata('"+tmp1+"','"+tmp2+"'"+opstr+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - PdL; - , - // Inflg or Outflg >0 15.05.15 - if(Noflg<3, - if(Outflg==1, - println("Output Plotdata "+name); - tmp=name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")"; - GLIST=append(GLIST,tmp); - SCIWRLIST=append(SCIWRLIST,name); - if(Inflg==0,Inflg=1); // 15.05.17 - ); - if(Inflg==1, - println("Input Plotdata "+name); - if(length(SCIRELIST)==0, - ReadOutData(Fnameout); - ); - tmp=parse(name); - if(islist(tmp), - Extractdata(name,["nodisp"]); // 12.19 - ); - tmp="// "+name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")"; - Com1st(tmp); - SCIRELIST=append(SCIRELIST,name); - ); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - if(Inflg==1, - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - ); - ); -); - -Paramplot(name1,funstr,variable):=Paramplot(name1,funstr,variable,[]); -Paramplot(name1,funstr,variable,options):=( -//help:Paramplot("1","[2*cos(t),sin(t)]","t=[0,2*pi]"); - regional(name,Out,tmp,tmp1,tmp2,vname,func,str,Rng,Num, - Ec,Exfun,Dc,eqL,Fntmp,Vatmp,t1,t2,dt,tt,pa,ke, - Ltype,Noflg,Inflg,Outflg,opstr,opcindy); - name="gp"+name1; - Eps=10^(-4); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - Inflg=tmp_3; - Outflg=tmp_4; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - eqL=tmp_5; - Num=50; - Ec=[]; - Exfun=""; - Dc=1000; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,tmp,length(#)); - opstr=opstr+",'"+#+"'"; - if(substring(#,0,1)=="N", - Num=parse(tmp1); - ); - if(substring(#,0,1)=="E", - if(substring(tmp1,0,1)=="[", - Ec=parse(tmp1); - , - Exfun=tmp1; - ); - ); - if(substring(#,0,1)=="D", - Dc=parse(tmp1); - ); - ); - if(Inflg==0 & Outflg==0, - tmp=indexof(variable,"="); - vname=substring(variable,0,tmp-1); - str=substring(variable,tmp,length(variable)); - Rng=parse(str); - t1=Rng_1; t2=Rng_2; - dt=(t2-t1)/Num;// differs from Scilab ( / Num-1) - func=Assign(funstr,vname,"tt"); - Out=[]; - Ec=append(sort(Ec),10000); - ke=1; - forall(0..Num, - pt=[]; - tt=Rng_1+#*dt; - if(tt-Ec_ke<-Eps, - pa=parse(func); - ); - if(abs(tt-Ec_ke)<=Eps, - if(length(Out)>0, - if(Out_(length(Out))_1!="inf", - pa=["inf"]; - ); - ); - ); - if(tt-Ec_ke>Eps, - pa=parse(func); - ke=ke+1; - ); - if(length(pa)>0, - if(pa_1=="inf", - Out=append(Out,pa); - , - if(length(Out)==0, - Out=[pa]; - , - tmp=Out_(length(Out)); - if(tmp_1=="inf", - Out=append(Out,pa); - , - if(|tmp-pa|<Dc, - Out=append(Out,pa); - , - Out=concat(Out,[["inf"],pa]); - ); - ); - ); - ); - ); - ); - tmp1=[]; - tmp2=select(1..(length(Out)),Out_#==["inf"]); - tmp=1; - forall(tmp2, - if(#>tmp, - tmp1=concat(tmp1,[Out_(tmp..(#-1))]) - ); - tmp=#+1; - ); - if(tmp<length(Out), - tmp1=concat(tmp1,[Out_(tmp..(length(Out)))]); - ); - Out=tmp1; - if(length(Out)==1, - Out=Out_1; - ); - if(Noflg<3, - println("generate Paramplot "+name); - if(MeasureDepth(Out)==1, - tmp1=apply(Out,Pcrd(#)); - , - tmp1=[]; - forall(Out,tmp2, - tmp1=append(tmp1,apply(tmp2,Pcrd(#))); - ); - ); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - tmp1=replace(funstr,LFmark,""); // 15.11.13 - tmp2=replace(variable,LFmark,""); - tmp=name+"=Paramplot('"+tmp1+"','"+tmp2+"'"+opstr+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - Out; - , - // Inflg or Outflg >0 15.05.15 - if(Noflg<3, - if(Outflg==1, - println("Output Paramplot "+name); - tmp=name+"=Paramplot('"+funstr+"','"+variable+"'"+opstr+")"; - GLIST=append(GLIST,tmp); - SCIWRLIST=append(SCIWRLIST,name); - if(Inflg==0,Inflg=1); // 15.05.17 - ); - if(Inflg==1, - println("Input Paramplotdata "+name); - if(length(SCIRELIST)==0, - ReadOutData(Fnameout); - ); - tmp=parse(name); - if(islist(tmp), - Extractdata(name,["nodisp"]); // 12.19 - ); - tmp="// "+name+"=Paramplot('"+func+"','"+variable+"'"+opstr+")"; - Com1st(tmp); - SCIRELIST=append(SCIRELIST,name); - ); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - if(Inflg==1, - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - ); - ); -); - -Circledata(cenrad):=Circledata(cenrad,[]); -Circledata(para1,para2):=( -//help:Circledata([A,B],["Rng=[0,pi/2]"]); -//help:Circledata([A,B,C]); - regional(name,cenrad,options,str,n); - if(isstring(para1), - name=para1; - cenrad=para2; - options=[]; - , - cenrad=para1; - options=para2; - name="";// 16.10.07from - forall(cenrad, - name=name+#.name; - );// 16.10.07upto - ); - Circledata(name,cenrad,options); -); -Circledata(nm,cenrad,options):=( - regional(name,Out,Ctr,Ptcir,ra,Num,Rg,opstr,opcindy, - tmp,tmp1,tmp1,Th,Ltype,Noflg,eqL,pA,pB,pC,d1,d2,Eps); - name="cr"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - eqL=tmp_5; - Num=50; - Rg=[0,2*pi]; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,tmp,length(#)); - opstr=opstr+",'"+#+"'"; - if(substring(#,0,1)=="N", - Num=parse(tmp1); - ); - if(substring(#,0,1)=="R", - Rg=parse(tmp1); - ); - ); - if(length(cenrad)==2, - Ctr=Lcrd(cenrad_1); - Ptcir=Lcrd(cenrad_2); - ra=dist(Ctr,Ptcir); - , - Eps=10^(-1); - pA=Lcrd(cenrad_1); - pB=Lcrd(cenrad_2); - pC=Lcrd(cenrad_3); - tmp=pB-pA; - tmp1=(tmp_2,-tmp_1); - tmp=pC-pB; - tmp2=(tmp_2,-tmp_1); - d1=det([tmp1,tmp2]); - d2=det([pC-pA,tmp2]); - if(abs(d1)<Eps & abs(d2)>10*Eps, - println("points are in a line"); - ra=0; - , - Ctr=1/2*(pA+pB)+1/2*d2/d1*tmp1; - ra=|pA-Ctr|; - tmp=name+"center="+Ctr; - parse(tmp); - Defvar(name+"center",Ctr); - ); - ); - if(ra>0, - Out=[]; - forall(0..Num, - Th=Rg_1+#*(Rg_2-Rg_1)/Num; - Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]); - ); - , - Out=Lineplot("1",[pA,pB],["nodata"]); - ); - if(Noflg<3, - println("generate Circledata "+name); - tmp1=apply(Out,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - if(length(cenrad)==2, - tmp=name+"=Circledata("+cenrad+opstr+")"; - , - if(ra>0, - tmp=name+"=Circledata(["+Ctr+","+cenrad_1+"]"+opstr+")"; - , - tmp=name+"=Lineplot("+cenrad_1+","+cenrad_2+")"; - ); - ); - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - Out; -); - -Framedata():=Framedata(["dr"]);//16.10.29from -Framedata(list):=( - regional(pA,pB); - if(MeasureDepth(list)==0, - pA=LLcrd((SW+NE)/2); // 15.09.17 - pB=LLcrd(NE); - Framedata("win",[pA,pB],list); - , - Framedata(list,[]); - ); -);//16.10.29upto -Framedata(Arg1,Arg2):=( - regional(name,list,options,str); - if(isstring(Arg1), - name=Arg1; - list=Arg2; - Framedata(name,list,[]); - , - list=Arg1; - options=Arg2; - name="";// 16.10.07from - forall(list, - name=name+#.name; - );// 16.10.07upto - Framedata(name,list,options); - ); -); -Framedata(nm,list,options):=( -//help:Framedata(); -//help:Framedata([C,A]); -//help:Framedata("1",[C,A]); -//help:Framedata("1",[C,dx,dy]); - regional(name,Out,tmp,tmp1,pB,x1,x2,y1,y2,dx,dy, - opcindy,Ltype,Noflg,cent,dx,dy); - name="fr"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - if(length(list)==2, // 15.05.12 - pA=Lcrd(list_1); pB=Lcrd(list_2); - dx=abs(pB_1-pA_1); dy=abs(pB_2-pA_2); - , - pA=Lcrd(list_1); - dx=list_2; dy=list_3; - ); - x1=pA_1-dx; x2=pA_1+dx; - y1=pA_2-dy; y2=pA_2+dy; - Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]]; - if(Noflg<3, - println("generate Framedata "+name); - tmp1=apply(Out,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - GLIST=append(GLIST,name+"=Framedata("+pA+","+dx+","+dy+")"); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - Out; -); -Framedata(nm,cent,dx,dy):=Framedata(nm,cent,dx,dy,[]); -Framedata(nm,cent,dx,dy,options):=( - regional(name,Out,tmp,tmp1,x1,y1,x2,y2,Ltype,opcindy,Noflg); - name="fr"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - x1=cent.x-dx; x2=cent.x+dx; - y1=cent.y-dy; y2=cent.y+dy; - Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]]; - if(Noflg<3, - println("generate Framedata "+name); - tmp1=apply(Out,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - GLIST=append(GLIST,name+"=Framedata("+cent.xy+","+dx+","+dy+")"); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - Out; -); - -Framedata2(nm,list):=Framedata2(nm,list,[]); -Framedata2(nm,list,options):=( -//help:Framedata2("1",[A,B]); - regional(tmp,tmp1,pC,pB); - pC=(Lcrd(list_1)+Lcrd(list_2))/2; - pB=Lcrd(list_2); - Framedata(nm,[pC,pB],options); -); - -Ovaldata(nm,Pdata):=Ovaldata(nm,Pdata,[]); -Ovaldata(nm,Pdata,options):=( -//help:Ovaldata("1",[A,B]); -//help:Ovaldata(optios=[size]); - regional(name,Graph,Ctr,Dx,Dy,Rc,Out,Point,Graph, - opstr,opcindy,tmp,tmp1,tmp2,tmp3,Ltype,Noflg); - name="ov"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - opstr=tmp_(length(tmp)-1); - Rc=0.2; - tmp1=tmp_6; - if(length(tmp1)>0,Rc=tmp1_1*Rc); -// if(length(tmp1)>0,Rc=tmp1_1); //15.11.15 - Ctr=Lcrd(Pdata_1); - if(ispoint(Pdata_2) % islist(Pdata_2), - tmp1=Lcrd(Pdata_2); - Dx=abs(tmp1_1-Ctr_1); - Dy=abs(tmp1_2-Ctr_2); - , - Dx=Pdata_2; - Dy=Pdata_3; - ); - Point=Ctr+[Dx-Rc,Dy-Rc]; - tmp1=Circledata("1",[Point,Point+[Rc,0]], - ["Rng=[0,pi/2]","Num=10","nodata"]); - tmp2=Listplot("1",[Ctr+[Dx-Rc,Dy],Ctr+[0,Dy]], - ["nodata"]); - tmp3=Listplot("2",[Ctr+[Dx,0],Ctr+[Dx,Dy-Rc]], - ["nodata"]); - Graph=Joincrvs("1",[tmp3,tmp1,tmp2],["nodata"]); - tmp1=Reflectdata("1",[Graph],[Ctr,Ctr+[0,1]],["nodata"]); - Graph=Joincrvs("1",[Graph,tmp1],["nodata"]); - tmp2=Reflectdata("2",[Graph],[Ctr,Ctr+[1,0]], - ["nodata"]); - Graph=Joincrvs("2",[Graph,tmp2],["nodata"]); - if(Noflg<3, - println("generate Ovaldata "+name); - tmp1=apply(Graph,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - GLIST=append(GLIST, - name+"=Ovaldata("+Ctr+","+Dx+","+Dy+opstr+")");//16.01.30 - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - tmp1=apply(Graph,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - tmp=textformat(Ctr,5)+","+textformat(Dx,5)+","+textformat(Dy,5); - ); - Graph; -); - -Segmark(nm,ptlist):=Segmark(nm,ptlist,[]); -Segmark(nm,ptlist,options):=Drawsegmark(nm,ptlist,options); -Drawsegmark(nm,ptlist):=Drawsegmark(nm,ptlist,[]); -Drawsegmark(nm,ptlist,options):=( -//help:Segmark("1",[A,B]); -//help:Segmark(options=["Type=1","Width=1","Size=1"]); - regional(name,pA,pB,wid,mid,size,tp,dir,nor,eqL, - tmp,tmp1,tmp2); - name="mrk"+nm; - pA=ptlist_1; - pB=ptlist_2; - size=0.15; - wid=0.05; - tp=1; - tmp1=Divoptions(options); - eqL=tmp1_5; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,tmp,length(#)); - tmp1=parse(tmp1); - tmp=substring(#,0,1); - if(tmp=="S" % tmp=="s", - size=size*tmp1; - ); - if(tmp=="W" % tmp=="w", - wid=wid*tmp1; - ); - if(tmp=="T" % tmp=="t", - tp=tmp1; - ); - ); - mid=(pA+pB)/2; - dir=(pB-pA)/|pB-pA|; - nor=[-dir_2,dir_1]; -// nor=nor/|nor|; - if(tp==1, - tmp1=mid+size*nor; - tmp2=mid-size*nor; - Listplot(name,[tmp1,tmp2]); - ); - if(tp==2, - tmp1=mid+wid*dir+size*nor; - tmp2=mid+wid*dir-size*nor; - Listplot(name+"r",[tmp1,tmp2]); - tmp1=mid-wid*dir+size*nor; - tmp2=mid-wid*dir-size*nor; - Listplot(name+"l",[tmp1,tmp2]); - ); - if(tp==3, - tmp1=mid; - tmp2=mid+size*dir; - Circledata(name,[tmp1,tmp2]); - ); - if(tp==4, - tmp=mid+size*2/sqrt(3)*nor; - tmp1=mid+size*dir-size/sqrt(3)*nor; - tmp2=mid-size*dir-size/sqrt(3)*nor; - Listplot(name,[tmp,tmp1,tmp2,tmp]); - ); -); - -Parabolaplot(nm,ptlist):=Parabolaplot(nm,ptlist,"[-5,5]",[]); -Parabolaplot(nm,ptlist,Arg):=( - regional(rng,options); - if(isstring(Arg), - rng=Arg; - options=[]; - , - rng="[-5,5]"; - options=Arg; - ); - Parabolaplot(nm,ptlist,rng,options); -); -Parabolaplot(nm,ptlist,rng,options):=( -//help:Parabolaplot("1",[A,B,C]): -//help:Parabolaplot("1",[A,B,C],"[-5,5]"); - regional(pA,pB,pC,angle,tmp,tmp1,tmp2); - tmp1=Lcrd(ptlist_1); - tmp2=Lcrd(ptlist_3); - pB=Lcrd(ptlist_2); - tmp=(tmp2-pB)/|tmp2-pB|; - if(tmp_2>=0, - angle=arccos(tmp_1); - , - if(tmp_1>=0, - angle=arcsin(tmp_2); - , - angle=-arccos(tmp_1); - ); - ); - pA=Rotatepoint(tmp1,-angle,pB); - pC=Rotatepoint(tmp2,-angle,pB); - tmp1=1/(2*(pA_2-pB_2)); - tmp2=1/2*(pA_2+pB_2); - tmp="("+format(tmp1,5)+")*(x-("+format(pA_1,5)+"))^2"; - tmp=tmp+"+("+format(tmp2,5)+")"; - tmp1=parse(rng); - tmp1=[pA_1-(tmp1_2-tmp1_1)/2,pA_1+(tmp1_2-tmp1_1)/2]; - tmp2="x="+textformat(tmp1,5); - Plotdata(nm+"para",tmp,tmp2,append(options,"nodisp")); - Rotatedata(nm+"para","gr"+nm+"para",angle,append(options,pB)); -); - -Ellipseplot(nm,ptlist):=Ellipseplot(nm,ptlist,"[0,2*pi]",[]); -Ellipseplot(nm,ptlist,Arg):=( - regional(rng,options); - if(isstring(Arg), - rng=Arg; - options=[]; - , - rng="[0,2*pi]"; - options=Arg; - ); - Ellipseplot(nm,ptlist,rng,options); -); -Ellipseplot(nm,ptlist,rng,options):=( -//help:Ellipseplot("1",[A,B,3]); -//help:Ellipseplot("1",[A,B,C],"[0,pi]",[options]); - regional(pA,pB,d,angle,f,a,b,pM,tmp,tmp1,tmp2); - pA=Lcrd(ptlist_1); - tmp1=Lcrd(ptlist_2); - if(ispoint(ptlist_3), - tmp2=Lcrd(ptlist_3); - d=|tmp2-pA|+|tmp2-tmp1|; - , - d=ptlist_3; - ); - tmp=(tmp1-pA)/|tmp1-pA|; - if(tmp_2>=0, - angle=arccos(tmp_1); - , - if(tmp_1>=0, - angle=arcsin(tmp_2); - , - angle=-arccos(tmp_1); - ); - ); - pB=Rotatepoint(tmp1,-angle,pA); - f=|pB_1-pA_1|/2; - a=d/2; - b=sqrt(d^2/4-f^2); - pM=(pA+pB)/2; - tmp="["+format(pM_1,5)+","+format(pM_2,5)+"]"; - tmp=tmp+"+["+format(a,5)+"*cos(t),"+format(b,5)+"*sin(t)]"; - Paramplot(nm+"elp",tmp,"t="+rng,append(options,"nodisp")); - Rotatedata(nm+"elp","gp"+nm+"elp",angle,append(options,pA)); -); - -Hyperbolaplot(nm,ptlist):=Hyperbolaplot(nm,ptlist,"[-5/2,5/2]",[]); -Hyperbolaplot(nm,ptlist,Arg):=( - regional(rng,options); - if(isstring(Arg), - rng=Arg; - options=[]; - , - rng="[-5/2,5/2]"; - options=Arg; - ); - Hyperbolaplot(nm,ptlist,rng,options); -); -Hyperbolaplot(nm,ptlist,rng,optionsorg):=( -//help:Hyperbolaplot("1",[A,B,C],["Num=200"]): -//help:Hyperbolaplot("1",[A,B,C],"[-5,5]",["Asy=do"]); - regional(pA,pB,d,angle,f,a,b,pM,eqL,options,opasy,tmp,tmp1,tmp2); - tmp=Divoptions(optionsorg); - eqL=tmp_5; - options=optionsorg; - opasy=[]; - forall(eqL, - if(Toupper(substring(#,0,1))=="A", - tmp=indexof(#,"="); - opasy=[substring(#,tmp,length(#))]; - options=remove(options,[#]); - ); - ); - pA=Lcrd(ptlist_1); - tmp1=Lcrd(ptlist_2); - if(ispoint(ptlist_3), - tmp2=Lcrd(ptlist_3); - d=abs(|tmp2-pA|-|tmp2-tmp1|); - , - d=ptlist_3; - ); - tmp=(tmp1-pA)/|tmp1-pA|; - if(tmp_2>=0, - angle=arccos(tmp_1); - , - if(tmp_1>=0, - angle=arcsin(tmp_2); - , - angle=-arccos(tmp_1); - ); - ); - pB=Rotatepoint(tmp1,-angle,pA); - f=|pB_1-pA_1|/2; - a=d/2; - b=sqrt(f^2-d^2/4); - pM=(pA+pB)/2; - tmp="["+format(pM_1,5)+"+"+format(a,5)+"*(exp(t)+exp(-t))/2,"; - tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]"; - Paramplot(nm+"hyp1",tmp,"t="+rng,append(options,"nodisp")); - tmp="["+format(pM_1,5)+"-"+format(a,5)+"*(exp(t)+exp(-t))/2,"; - tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]"; - Paramplot(nm+"hyp2",tmp,"t="+rng,append(options,"nodisp")); - tmp=["gp"+nm+"hyp1","gp"+nm+"hyp2"]; - Rotatedata(nm+"hyp",tmp,angle,append(options,pA)); - if(length(opasy)>0, - Lineplot(nm+"asy1",[pM+[a,b],pM+[-a,-b]],["nodisp"]); - Lineplot(nm+"asy2",[pM+[-a,b],pM+[a,-b]],["nodisp"]); - tmp=["ln"+nm+"asy1","ln"+nm+"asy2"]; - Rotatedata(nm+"asy",tmp,angle,append(opasy,pA)); - ); -); - -Polygonplot(nm,ptlist,number):=Polygonplot(nm,ptlist,number,[]); -Polygonplot(nm,ptlist,number,options):=( -//help:Polygonplot("1",[A,B],12); - regional(rr,pA,pB,ptL,angle,tmp,tmp1,tmp2); - pA=Lcrd(ptlist_1); - pB=Lcrd(ptlist_2); - rr=|pB-pA|; - tmp=(pB-pA)/rr; - if(tmp_2>=0, - angle=arccos(tmp_1); - , - if(tmp_1>=0, - angle=arcsin(tmp_2); - , - angle=-arccos(tmp_1); - ); - ); - ptL=[]; - forall(0..number, - tmp=angle+#*2*pi/number; - tmp1=pA+rr*[cos(tmp),sin(tmp)]; - if(#>0 & #<number, - Putpoint((ptlist_2).name+text(#),tmp1);//16.10.07 - //Pointdata(nm,ptL); - ); - tmp2=tmp1; - ptL=append(ptL,tmp1); - ); - Listplot(nm+"ply",ptL,options); -); - -Putintersect(nm,pdata1,pdata2):=( -//help:Putintersect("Q","gr1","gr2"); - regional(pd1,pd2,tmp); - if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1); - if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2); - tmp=Intersectcrvs(pd1,pd2); - if(length(tmp)==1, - Putpoint(nm,tmp_1); - , - if(length(tmp)==0, - err("No intersect point"); - , - err("Multiple intersect points"); - println(tmp); - err("Choose point number"); - ); - ); -); -Putintersect(nm,pdata1,pdata2,ptno):=( - regional(pd1,pd2,tmp); - if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1); - if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2); - tmp=Intersectcrvs(pd1,pd2); - if(length(tmp)>0, - Putpoint(nm,tmp_ptno); - , - err("No intersect point"); - ); -); - -Arrowheaddata(point,direction):=Arrowheaddata(point,direction,[]); -Arrowheaddata(point,direction,options):=( -//help:Arrowheaddata(A,B); - regional(list,Ookisa,Hiraki,Futosa,Houkou,Str,Flg,tmp,Ev,Nv,pA,pB, - pP,rF,gG,Flg,Nj,Eps,tmp1,scx,scy); - Eps=10^(-3); - pP=point; - Ookisa=0.2*YaSize; - Hiraki=YaAngle; - Futosa=0; - Str=YaStyle; - tmp=Divoptions(options); - tmp1=tmp_6; - if(length(tmp1)>0,Ookisa=Ookisa*tmp1_1); - if(length(tmp1)>1, - tmp=tmp1_2; - if(tmp<5, - Hiraki=Hiraki*tmp; - , - Hiraki=tmp; - ); - ); - Flg=0; - Hiraki=Hiraki*pi/180; - if(isstring(direction),Houkou=parse(direction),Houkou=direction); - if(MeasureDepth(Houkou)==2,Houkou=Houkou_1); - if(islist(Houkou_1), -// pP=Lcrd(pP); -// pP=Doscaling(pP); -// Houkou=Dosscaling(Houkou); - pP=Pcrd(pP); - scy=SCALEY; - SCALEY=1; - tmp=Nearestpt(pP,Houkou); - pA=tmp_1; - rF=floor(tmp_2); - if(rF==1, - if(|Ptend(Houkou)-Ptstart(Houkou)|<Eps, - rF=Numptcrv(Houkou); - ); - ); - gG=apply(0..10,pP+Ookisa*cos(Hiraki)*[cos(2*pi/10*#),sin(2*pi/10*#)]); - Flg=0; - forall(1..rF,Nj, - if(Flg==0, - pB=Ptcrv(rF+1-Nj,Houkou); - tmp=IntersectcrvsPp([pA,pB],gG); - if(length(tmp)>0, - Houkou=pP-tmp_1_1; - Flg=1; - ); - pA=pB; - ); - ); - SCALEY=scy; - if(Flg==0, - println("Arrowhead may be too large (no intersect)"); - Flg=2; - ); - if(Flg==1, - Houkou=Unscaling(Houkou); - pP=Unscaling(pP); - ); - ); - if(Flg<2, -// pP=Doscaling(pP); -// Houkou=Doscaling(Houkou); - pP=Pcrd(pP); - if(!ispoint(point), - Houkou=Pcrd(Houkou); - ); -// if(MeasureDepth(Houkou)==0,Houkou=Pcrd(Houkou)); - Ev=-1/|Houkou|*Houkou; - Ev=Lcrd(Ev); - Nv=[-Ev_2, Ev_1]; - if(indexof(Str,"c")>0, - pP=pP-0.5*Ookisa*cos(Hiraki)*Ev; - ); - if(indexof(Str,"b")>0, - pP=pP-Ookisa*cos(Hiraki)*Ev; - ); - pA=pP+Ookisa*cos(Hiraki)*Ev+Ookisa*sin(Hiraki)*Nv; - pB=pP+Ookisa*cos(Hiraki)*Ev-Ookisa*sin(Hiraki)*Nv; - list=[pA,pP,pB]; - list=apply(list,LLcrd(#)); -// Out=Unscaling(Out); - list; - ); -); - -Arrowhead(point,Houkou):=Arrowhead(point,Houkou,[]); -Arrowhead(point,Houkou,options):=( -//help:Arrowhead(B,B-A,[1.5,30]); -//help:Arrowhead(A,"gr1"); - // global ArrowheadNumber - regional(name,Ltype,Noflg,reL,opstr,opcindy,ptstr,hostr,tmp,tmp1,list); - name="arh"+text(ArrowheadNumber); - ArrowheadNumber=ArrowheadNumber+1; - ptstr=textformat(point,5); - if(isstring(Houkou), // 15.01.11 - tmp=parse(Houkou); - if(MeasureDepth(tmp)<2, - hostr=Houkou; - , - hostr=Houkou+"(1)"; - ); - , - if(ispoint(point), - hostr=textformat(LLcrd(Houkou),5); - , - hostr=textformat(Houkou,5); - ); - ); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - reL=tmp_6; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - list=Arrowheaddata(point,Houkou,options); - if(Noflg<3, -// println("generate Arrowhead "+name); - tmp1=apply(list,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); -// GLIST=append(GLIST,name+"=Listplot("+list+")"); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(1)+Ltype,name); - , -// if(Noflg==1,Ltype=0); - Ltype=0; - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - if(Noflg==0, - if(length(reL)<3, // 16.04.09 from - forall(1..(2-length(reL)), - opstr=opstr+",1"; - ); - tmp=PenThick/PenThickInit; - opstr=opstr+","+text(tmp); - ); // 16.04.09 upto - Com2nd("Arrowhead("+ptstr+","+hostr+opstr+")"); - ); -); - -Arrowdata(ptlist):=Arrowdata(ptlist,[]); -Arrowdata(Arg1,Arg2):=( - regional(tmp,nm,ptlist,flg,pA,pB,options); - flg=0; - if(isstring(Arg1), - nm=Arg1; - ptlist=Arg2; - Arrowdata(nm,ptlist,[]); - flg=1; - ); - if(flg==0, - tmp=MeasureDepth(Arg1); - if(tmp==0, - pA=Arg1; - pB=Arg2; - Arrowdata(pA,pB,[]); - , - ptlist=Arg1; - options=Arg2; - nm=text(ArrowlineNumber); - ArrowlineNumber=ArrowlineNumber+1; - Arrowdata(nm,ptlist,options); - ); - ); -); -Arrowdata(Arg1,Arg2,options):=( -//help:Arrowdata([A,B],[2,10]); - regional(Retflg,nm,ptlist,name,opstr,opcindy,realL,strL,size, - flg,Ltype,Noflg,lineflg,tmp,tmp1,tmp2,pA,pB,segpos); - Retflg=0; - Noflg=0; - Ltype=0; - if(!isstring(Arg1), - pA=Arg1; - pB=Arg2; - Arrowdata(pA,pB,options,"old"); - Retflg=1; - ptlist=[pA,pB]; - ); - if(Retflg==0, - nm=Arg1; - ptlist=Arg2; - name="ar"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - realL=tmp_6; - strL=tmp_7; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - size=1; // 15.06.11 - if(length(realL)>0, - size=realL_1; - ); - tmp2=select(strL,indexof(#,"l")>0); // 16.04.09 - if(length(tmp2)>0,lineflg=1,lineflg=0); // 16.04.09 - segpos=1; - tmp1=tmp_5; - if(length(tmp1)>2, - segpos=tmp1_3; - ); - if(Noflg<3, -// println("generate Arrowdata "+name); - tmp1=apply(ptlist,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - tmp1=Pcrd(ptlist_1);//16.10.20 - tmp2=Pcrd(ptlist_2);//16.10.20 - if(lineflg==0, // 16.04.09 from - tmp=tmp2-0.2*size/2*(tmp2-tmp1)/|tmp2-tmp1|; // 15.06.11 - , - tmp=tmp2; - ); // 16.04.09 upto - tmp=[LLcrd(tmp1),LLcrd(tmp)];//16.10.20 - GLIST=append(GLIST,name+"=Listplot("+textformat(tmp,5)+")"); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - tmp=textformat(ptlist,5); - tmp=substring(tmp,1,length(tmp)-1); - tmp1=indexof(tmp,"],["); - if(tmp1>0, - pA=substring(tmp,0,tmp1); - pB=substring(tmp,tmp1+1,length(tmp)); - , - tmp1=indexof(tmp,","); - pA=substring(tmp,0,tmp1-1); - pB=substring(tmp,tmp1,length(tmp)); - ); - tmp1="Lcrd("+pA+")+" - +textformat(segpos,5)+"*(Lcrd("+pB+")-"+"Lcrd("+pA+"))"; - tmp1=parse(tmp1); - tmp2="Lcrd("+pB+")-Lcrd("+pA+")"; - tmp2=parse(tmp2); - Arrowhead(tmp1,tmp2,options); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - ); - ptlist; -); -Arrowdata(pA,pB,options,str):=( - regional(ptA,ptB,opstr,Astr,Bstr,name,tmp,opcindy); - Astr=textformat(pA,5); - Bstr=textformat(pB,5); - name="ar"+pA.name+pB.name; - println("generate Arrow "+name); - opstr=""; - opcindy=""; - forall(options, - if(isstring(#), - if(indexof(#,"->")>0, - opcindy=opcindy+","+#; - , - tmp="'"+#+"'"; - ); - , - tmp=text(#); - ); - opstr=opstr+","+tmp; - ); - ptA=Lcrd(pA); - ptB=Lcrd(pB); - Arrowheaddata(ptB,ptB-ptA,options); - tmp="connect("+textformat([ptA,ptB],5) - +",linecolor->"+text(KCOLOR)+opcindy+");"; - parse(tmp); // 14.11.17 - Com2nd("Arrowline("+Astr+","+Bstr+opstr+")"); // 14.10.04 -); - -Anglemark(plist):=Anglemark(plist,[]); -Anglemark(Arg1,Arg2):=( // 2015.04.28 from - regional(nm,plist,options,tmp); - if(isstring(Arg1), - nm=Arg1; - plist=Arg2; - Anglemark(nm,plist,[]); - , - plist=Arg1; - options=Arg2; - tmp=textformat(plist,5); - tmp=replace(tmp,",",""); - nm=substring(tmp,1,length(tmp)-1); - Anglemark(nm,plist,options); - ); -); // upto -Anglemark(nm,plist,options):=( -//help:Anglemark([A,B,C],["E=\theta",2]); -//help:Anglemark("1",[A,B,C],["E=1.2,\theta",2]); -//help:Anglemark(options=["E/L=(sep,)letter",size]); - regional(name,Out,pB,pA,pC,Ctr,ra,sab,sac,ratio,opstr,Bname,Bpos, - Brat,tmp,tmp1,tmp2,Num,opcindy,Ltype,eqL,realL,Rg,Th,Noflg); - name="ag"+nm; - Bpos="md"+name; - ra=0.5; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - eqL=tmp_5; - realL=tmp_6; - Bname=""; - Brat=1.5; - Num=20; - if(length(realL)>0, - ra=realL_1*ra; - opstr=opstr+","+text(realL_1); - ); - forall(eqL, - if(substring(#,0,1)=="L",Bname="Letter("); - if(substring(#,0,1)=="E",Bname="Expr("); - Bname=Bname+Bpos+","+Dq+"c"+Dq+","+Dq;//16.10.29 - tmp=substring(#,indexof(#,"="),length(#)); - tmp1=indexof(tmp,","); - Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")"; - if(tmp1>0, - Brat=parse(substring(tmp,0,tmp1-1)); - ); - ); - pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3); - Ctr=Lcrd(pA); - sab=pB-pA; - sac=pC-pA; - Rg=[arctan2(sab)+0,arctan2(sac)+0]; - if(Rg_2<Rg_1,Rg_2=Rg_2+2*pi); - Out=[]; - if(ra>min(|sab|,|sac|), // 16.12.29 - println(" segments too short"); - , - forall(0..Num, - Th=Rg_1+#*(Rg_2-Rg_1)/Num; - Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]); - ); - Th=(Rg_1+Rg_2)/2; //16.10.31from(moved) - tmp1=Ctr+Brat*ra*[cos(Th),sin(Th)]; - tmp="Defvar("+Dq+Bpos+"="; - tmp=tmp+textformat(tmp1,5)+Dq+");"; - parse(tmp);//16.10.31upto(moved) - if(length(Bname)>0, - parse(Bname); - ); - if(Noflg<3, - println("generate anglemark "+name+" and "+Bpos); - tmp1=apply(Out,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - tmp=textformat(plist,5); - tmp1=substring(tmp,1,length(tmp)-1); - tmp=name+"=Anglemark("+tmp1+opstr+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - ); - Out; -); - -Paramark(plist):=Paramark(plist,[]); -Paramark(Arg1,Arg2):=( // 17.03.27 from - regional(nm,plist,options,tmp); - if(isstring(Arg1), - nm=Arg1; - plist=Arg2; - Paramark(nm,plist,[]); - , - plist=Arg1; - options=Arg2; - tmp=textformat(plist,5); - tmp=replace(tmp,",",""); - nm=substring(tmp,1,length(tmp)-1); - Paramark(nm,plist,options); - ); -);// upto -Paramark(nm,plist,options):=( -//help:Paramark([A,B,C],["E=\theta"]); -//help:Paramark("1",[p1,p2,p3],["E=\theta"]); - regional(name,Out,pB,pA,pC,ra,sab,sac,ratio,opstr,Bname,Bpos, - Brat,tmp,tmp1,tmp2,Ltype,Noflg,eqL,realL,opcindy); - name="pm"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - eqL=tmp_5; - realL=tmp_6; - ra=0.5; - Bname=""; - Brat=1.2; - if(length(realL)>0, - tmp=realL_1; - ra=tmp*ra; - opstr=opstr+","+text(tmp); - ); - forall(eqL, - if(substring(#,0,1)=="L",Bname="Letter("); - if(substring(#,0,1)=="E",Bname="Expr("); - Bpos="md"+name; - Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq; - tmp=substring(#,indexof(#,"="),length(#)); - tmp1=indexof(tmp,","); - Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")"; - if(tmp1>0, - Brat=parse(substring(tmp,0,tmp1-1)); - ); - ); - pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3); - Ctr=Lcrd(pA); - Out=[]; - Out=append(Out,pA+ra*(pB-pA)/|pB-pA|); - Out=append(Out,pA+ra*(pB-pA)/|pB-pA|+ra*(pC-pA)/|pC-pA|); - Out=append(Out,pA+ra*(pC-pA)/|pC-pA|); - if(length(Bname)>0, - tmp1=pA+Brat*ra*(pB-pA)/|pB-pA|+Brat*ra*(pC-pA)/|pC-pA|; - tmp="Defvar("+Dq+Bpos+"="+textformat(tmp1,5)+Dq+");"; - parse(tmp); - parse(Bname); - ); - if(Noflg<3, - println("generate paramark "+name); - tmp1=apply(Out,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1); - tmp=name+"=Paramark("+tmp1+opstr+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - Out; -); - -MakeBowdata(pA,pB,Hgt):=( - regional(angle,pB2,pH2,pC2,pC,tmp,Th1,Th2,ra,dMA); - angle=arctan2(pB-pA)+0; - pB2=Rotatepoint(pB,-angle,pA); - tmp=Lcrd(pA); - pH2=[(tmp_1+pB2_1)/2,tmp_2-Hgt]; - dMA=|tmp-pB2|/2; - ra=(dMA^2+Hgt^2)/(2*Hgt); - pC2=[pH2_1,pB2_2+(ra-Hgt)]; - pC=Rotatepoint(pC2,angle,pA); - Th1=arctan2(pA-pC2)+angle; - Th2=arctan2(pB2-pC2)+angle; - [pC,ra,Th1,Th2]; -); - -Bowdata(plist):=Bowdata(plist,[]); -Bowdata(plist,options):=( - regional(nm,tmp); - if(islist(plist), // 16.12.04from - tmp=textformat(plist,5); - tmp=replace(tmp,",",""); - nm=substring(tmp,1,length(tmp)-1); - Bowdata(nm,plist,options); - , - nm=plist; - tmp=options; - Bowdata(nm,tmp,[]); - ); // 16.12.04upto -); -Bowdata(nm,plist,options):=( -//help:Bowdata([C,A],[2,1.2,"Expr=10","da"]); -//help:Bowdata([A,B],["Expr=t0n3,a"]); -//help:Bowdata([A,B],["Exprrot=t0n2r,a"]); - regional(name,Out,pB,pA,pC,ra,tmp,tmp1,tmp2,Ltype,eqL,realL, - Bname,Bpos,Th,Cut,Num,Hgt,opstr,opcindy,Ydata,pC, - Th1,Th2,Noflg,Bops,Bmov,Tmov,Nmov,rev); - name="bw"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - eqL=tmp_5; - realL=tmp_6; - pA=Lcrd(plist_1); pB=Lcrd(plist_2); - Hgt=1/2*|pB-pA|*0.2; - Cut=0; - Num=24; - Bname=""; - Tmov=0;//16.11.01from - Nmov=0; - Bmov=""; - rev=0;//16.11.01upto - if(length(realL)>0, - Hgt=realL_1*Hgt; // 15.04.12 - if(length(realL)>1,Cut=realL_2); - ); - forall(eqL, - tmp=substring(#,0,1); - if(tmp=="L" % tmp=="l", - if(indexof(#,"rot")>0, - Bname="Letterrot("; - , - Bname="Letter("; - ); - ); - if(tmp=="E" % tmp=="e", - if(indexof(#,"rot")>0, - Bname="Exprrot("; - , - Bname="Expr("; - ); - ); - tmp=indexof(#,"="); - Bops=substring(#,tmp,length(#)); // 16.11.01 - ); - Ydata=MakeBowdata(pA,pB,Hgt); - pC=Ydata_1; - ra=Ydata_2; - Th=(Ydata_3+Ydata_4)*0.5; - BOWMIDDLE=[pC_1+ra*cos(Th),pC_2+ra*sin(Th)]; - Bpos="md"+name; // 16.10.31from(moved) - tmp="Defvar("+Dq+Bpos+"="+textformat(BOWMIDDLE,5)+Dq+");"; - parse(tmp);// 16.10.31upto(moved) - if(length(Bname)>0, //16.11.01from - tmp=indexof(Bops,","); - if(tmp>0, - tmp1=substring(Bops,0,tmp-1); - if(length(tmp1)>=4 & substring(tmp1,0,1)=="t" & indexof(tmp1,"n")>0, - Bmov=tmp1; - Bops=substring(Bops,tmp,length(Bops)); - ); - ); - if(length(Bmov)>0, - tmp=indexof(Bmov,"t"); - if(tmp>0, - tmp1=indexof(Bmov,"n"); - Tmov=parse(substring(Bmov,tmp,tmp1-1)); - tmp=indexof(Bmov,"r"); - if(tmp>0, - Nmov=parse(substring(Bmov,tmp1,tmp-1)); - rev=1; - , - Nmov=parse(substring(Bmov,tmp1,length(Bmov))); - ); - ); - ); - Bname=Bname+Bpos;//16.11.01 - if(abs(Tmov)+abs(Nmov)>0, - tmp=Pcrd(pA)-Pcrd(pB); - tmp1=1/norm(tmp)*tmp; - tmp2=[-tmp1_2,tmp1_1]; - tmp=MARKLEN*(Tmov*tmp1+Nmov*tmp2); - tmp=LLcrd(tmp); - Bname=Bname+"+"+text(tmp); - ); - Bname=Bname+","; - if(indexof(Bname,"rot")>0, - if(rev==1,tmp=pB-pA,tmp=pA-pB); - Bname=Bname+textformat(tmp,5)+","; - , - Bname=Bname+Dq+"c"+Dq+","; - ); - Bname=Bname+Dq+Bops+Dq+")"; - parse(Bname); - );//16.11.01upto - if(Cut==0, - Th1=Ydata_3; - Th2=Ydata_4; - Out=[]; - forall(0..Num, - tmp=Th1+#*(Th2-Th1)/Num; - Out=append(Out,pC+ra*[cos(tmp),sin(tmp)]); - ); - , - Th1=Ydata_3; - Th2=Th-Cut/(2*ra); - tmp1=[]; - forall(0..Num/2, - tmp=Th1+#*(Th2-Th1)/(Num/2); - tmp1=append(tmp1,pC+ra*[cos(tmp),sin(tmp)]); - ); - Th1=Th+Cut/(2*ra); - Th2=Ydata_4; - tmp2=[]; - forall(0..Num/2, - tmp=Th1+#*(Th2-Th1)/(Num/2); - tmp2=append(tmp2,pC+ra*[cos(tmp),sin(tmp)]); - ); - Out=[tmp1,tmp2]; - ); - if(Noflg<3, - println("generate bowdata "+name+" and "+Bpos);//16.10.31 - if(MeasureDepth(Out)==1,Out=[Out]); - tmp1=[]; - forall(Out,tmp2, - tmp=apply(tmp2,Pcrd(#)); - tmp1=append(tmp1,tmp); - ); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1); - tmp=name+"=Bowdata("+tmp1+opstr+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); -); - -Bowname(str):=Bowname("c",str); -Bowname(dir,str):=( - Expr([BOWMIDDLE,dir,str]); -); - -Bownamerot(bwdata,str):=Bownamerot(bwdata,0,0,str,1); -Bownamerot(bwdata,str,updown):=Bownamerot(bwdata,0,0,str,updown); -Bownamerot(bwdata,tmov,nmov,str):=Bownamerot(bwdata,tmov,nmov,str,1); -Bownamerot(bwdata,tmov,nmov,str,updown):=( - regional(bdata,tmp); - tmp=MeasureDepth(bwdata); - if(tmp==1,bdata=[bwdata],bdata=bwdata); - if(length(bdata)>1, - tmp=Ptend(bdata_2)-Ptstart(bdata_1); - , - tmp=Ptend(bdata_1)-Ptstart(bdata_1); - ); - if(updown<0,tmp=-tmp); - Exprrot(BOWMIDDLE,tmp,tmov,nmov,str); -); - -Deqplot(nm,deq,rng,initf):=Deqplot(nm,deq,rng,Lcrd(initf)_1,initf,[]); -Deqplot(nm,deq,rng,Arg1,Arg2):=( - regional(initt,initf,options); - if(isreal(Arg1) & !islist(Arg1), - initt=Arg1; - initf=Arg2; - options=[]; - , - initf=Lcrd(Arg1); - initt=initf_1; - options=Arg2; - ); - Deqplot(nm,deq,rng,initt,initf,options); -); -Deqplot(nm,deq,rng,initt,initf,options):=( - regional(name,Noflg,Ltype,eqL,opstr,opcindy,pdL,var2,deq2,rng2,initt2,initf2, - tmp,tmp1,tmp2,tmp3,tmp4); - tmp=tokenize(deq,"="); - tmp1=tmp_1; - tmp2=tmp_2; - tmp3=tokenize(tmp1,"`"); - if(length(tmp3)==2, - if(indexof(tmp1,"[")>0, - Deqplot(nm,deq,rng,initt,initf,options,[2,3]); - , - if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]"); - tmp=tokenize(rng2,"="); - deq2="["+tmp_1+","+replace(tmp1,"`","]")+"`=[1,"+tmp2+"]"; - rng2="tvar="+tmp_2; //17.02.26 - if(isreal(initf) & !islist(initf), - initf2=[initt,initf]; - initt2=initt; - , - initf2=Lcrd(initf); - initt2=initf2_1; - ); - Deqplot(nm,deq2,rng2,initt2,initf2,options,[2,3]); - ); - , - name="de"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - eqL=tmp_5; - opcindy=tmp_9; - opstr=""; - forall(eqL, - if(Toupper(substring(#,0,1))=="N", - tmp=indexof(#,"="); - tmp1="N="+substring(#,tmp,length(#)); - opstr=opstr+",'"+tmp1+"'"; - ); - ); - if(Noflg<1, - if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]"); - var2="d"+tmp3_1; - deq2="["+tmp3_1+","+var2+"]`=["; - tmp=replace(tmp2,tmp3_1+"`",var2); - deq2=deq2+var2+","+tmp+"]"; - Deqplot(nm,deq2,rng2,initt,initf,append(options,"nodisp"),[1,2]); - parse(tmp); - tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',"; - tmp=tmp+initt+","+initf+opstr+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - parse("de"+nm); - ); - ); -); -Deqplot(nm,deq,rng,initt,initf,options,Sel):=( -//help:Deqplot("2","y`=y*(1-y)","x",0, 0.5,["Num=100"]); -//help:Deqplot("1","y``=-y","x",0, [1,0]); -//help:Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",[1,0.5]); - regional(Ltype,Noflg,Inflg,Outflg,strL,opstr,opcindy,Num, - outstr,name,func,xf,yf,pdL,Eps,Inf,t1,t2,tt,Vname,dt,funP,funN,flg, - kl1,kl2,kl3,kl4,x0,y0,x1,y1,tmp,tmp1,tmp2); - name="de"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - Inflg=tmp_3; - Outflg=tmp_4; - eqL=tmp_5; - strL=tmp_7; -// opstr=tmp_(length(tmp)-1); - opstr=""; - opcindy=tmp_(length(tmp)); - outstr=""; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="S", - outstr="Sci"; - ); - ); - Num=50; - forall(eqL, - tmp=indexof(#,"="); - tmp2=substring(#,0,1); - tmp2=Toupper(tmp2); - tmp1=substring(#,tmp,length(#)); - opstr=opstr+",'"+tmp2+"="+tmp1+"'"; - if(Toupper(substring(#,0,1))=="N", - Num=parse(tmp1); - ); - ); - if(outstr=="Sci", - if(Inflg==0 & Outflg==0,Outflg=1;Inflg=1); - ); - if(Noflg<3, - if(outstr=="Sci", - if(Outflg==1, - println("Output Deqplot "+name); - SCIWRLIST=append(SCIWRLIST,name); - ); - if(Inflg==1, - println("Input Deqplot "+name); - if(length(SCIRELIST)==0, - ReadOutData(Fnameout); - ); - tmp=parse(name); - if(islist(tmp), - Extractdata(name,["nodisp"]); // 12.19 - ); - SCIRELIST=append(SCIRELIST,name); - ); - , - Eps=10^(-3); - Inf=10^3; - tmp=tokenize(deq,"="); - tmp1=tmp_1; - func=tmp_2; - tmp=indexof(tmp1,","); - xf=substring(tmp1,1,tmp-1); - yf=substring(tmp1,tmp,length(tmp1)); - tmp=indexof(yf,"]"); - yf=substring(yf,0,tmp-1); - tmp=tokenize(rng,"="); - Vname=tmp_1; - tmp=parse(tmp_2); - t1=tmp_1; - t2=tmp_2; - tmp="funP("+Vname+","+xf+","+yf+"):="+func+";"; - parse(tmp); - tmp=tokenize(func,","); - tmp1="-("+substring(tmp_1,1,length(tmp_1))+")"; - tmp2="-("+substring(tmp_2,0,length(tmp_2)-1)+")"; - tmp="funN("+Vname+","+xf+","+yf+"):=["+tmp1+","+tmp2+"];"; - parse(tmp); - dt=(t2-t1)/Num; - tt=initt; - tmp=Lcrd(initf); - x0=tmp_1; - y0=tmp_2; - pdL=[[tt,x0,y0]]; - flg=0; - forall(1..floor((t2-initt)/dt), - if(flg==0, - kl1=dt*funP(tt,x0,y0); - kl2=dt*funP(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2); - kl3=dt*funP(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2); - kl4=dt*funP(tt+dt,x0+kl3_1,y0+kl3_2);//16.10.14 - tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6; - x0=tmp1_1; - y0=tmp1_2; - tt=initt+#*dt; - pdL=append(pdL,[tt,x0,y0]); - if(|tmp1|>Inf,flg=1); - ); - ); - tt=initt; - tmp=Lcrd(initf); - x0=tmp_1; - y0=tmp_2; - flg=0; - forall(1..floor((initt-t1)/dt), - if(flg==0, - kl1=dt*funN(tt,x0,y0); - kl2=dt*funN(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2); - kl3=dt*funN(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2); - kl4=dt*funN(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2); - tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6; - x0=tmp1_1; - y0=tmp1_2; - tt=initt-#*dt; - pdL=prepend([tt,x0,y0],pdL); - if(|tmp1|>Inf,flg=1); - ); - ); - println("Generate Deqplot "+name); - pdL=apply(pdL,#_Sel); - tmp1=apply(pdL,Pcrd(#)); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - ); - if(Noflg<1, - tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',"; - tmp=tmp+initt+","+initf+opstr+")"; - GLIST=append(GLIST,tmp); - ); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - if(outstr=="Sci", - if(Inflg==1, - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - , - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - ); - if(outstr!="Sci",pdL); // 17.02.17 -); - -Enclosing(nm,plist):=EnclosingS(nm,plist); -Enclosing(nm,plist,options):=EnclosingS(nm,plist,options); -EnclosingS(nm,plist):=EnclosingS(nm,plist,[]); -EnclosingS(nm,plist,options):=( -//help:Enclosing("1",["sc2","crAB","sc2","Invert(sc1)"],[pt,"dr"]); - regional(name,AnsL,Start,Eps,EEps,S,Flg,Fdata,Gdata,KL,pt,qt, - t1,t2,t3,ii,nn,tmp,tmp1,tmp2,Ltype,Noflg,realL,eqL,opstr,opcindy); - name="en"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - eqL=tmp_5; - realL=tmp_6; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - Eps=10^(-5); // 16.12.05 - EEps=0.05; - Start=[]; - Flg=0; - forall(realL, - if(isList(#) % ispoint(#), - Start=Lcrd(#); // 15.09.12 - , - Flg=Flg+1; - if(Flg==1,Eps=#); - if(Flg==2,EEps=#); - ); - ); -// tmp1=concat([Eps,EEps],eqL); // 15.04.06 - Fdata=plist_1; - Gdata=plist_(length(plist)); - KL=IntersectcrvsPp(Fdata,Gdata); - if(length(KL)==1, - pt=KL_1_1; - t1=KL_1_2; - ); - if(length(KL)==0, - if(Numptcrv(Fdata)>Numptcrv(Gdata), - tmp=Nearestpt(Fdata,Gdata); - pt=tmp_1; - t1=tmp_2; - , - tmp=Nearestpt(Gdata,Fdata); - pt=tmp_3; - t1=tmp_4; - ); - ); - if(length(KL)>1, - if(Start==[], - err("No Start Point"); - , - pt=KL_1_1; - t1=KL_1_2; - tmp=|pt-Start|; - forall(2..(length(KL)),ii, // 15.04.20 - tmp1=KL_ii_1; - tmp2=|tmp1-Start|; // 15.04.20 - if(tmp2<tmp, - pt=tmp1; - t1=KL_ii_2; - tmp=tmp2; - ); - ); - ); - ); -// pt=Pcrd(pt); // 15.09.12 - Start=pt; - AnsL=[]; - forall(1..(length(plist)),nn, - Fdata=plist_nn; - if(nn>1, pt=qt); - if(nn==length(plist), - qt=Start; - , - Flg=0; - Gdata=plist_(nn+1); -// tmp1=concat([Eps,EEps],eqL); // 15.04.06 - KL=IntersectcrvsPp(Gdata,Fdata); - if(length(KL)==1, - tmp=KL_1; - qt=KL_1_1; - t3=KL_1_2; - Flg=10; - ); - if(length(KL)==0,Flg=1); - if(length(KL)>1, - tmp1=KL_1_1; - tmp2=KL_2_1; - tmp=|tmp1-tmp2|; - if(tmp<Eps*10, Flg=1); - ); - if(Flg==1, - if(Numptcrv(Fdata)>Numptcrv(Gdata), - tmp=Nearestpt(Fdata,Gdata); - qt=tmp_1; - t3=tmp_4; - Flg=10; - , - tmp=Nearestpt(Gdata,Fdata); - qt=tmp_3; - t3=tmp_2; - Flg=10; - ); - ); - if(Flg<10, - t2=10^6; //%inf; - forall(1..(length(KL)),ii, - tmp1=KL_ii_1; - tmp=KL_ii_3; - tmp2=ParamonCurve(tmp1,tmp,Fdata); - tmp3=KL_ii_2; - if(tmp2>t1+Eps & tmp2<t2+Eps, - qt=tmp1; - t2=tmp2; - t3=tmp3; - ); - ); - ); - ); - tmp=Partcrv("",pt,qt,Fdata,["nodata"]); - t1=t3; - if(nn==1, - AnsL=tmp; - , - AnsL=concat(AnsL,tmp_(2..(length(tmp)))); - ); - ); - AnsL=apply(AnsL,Pcrd(#)); // 15.09.12 - AnsL_(length(AnsL))=AnsL_1;//16.10.20 - if(Noflg<3, - println("generate Enclosing "+name); - tmp=name+"="+textformat(AnsL,5); - parse(tmp); - tmp=name+"=Enclosing(";//16.11.07from - tmp1="list("; - forall(plist, - tmp1=tmp1+#+","; - ); - tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")"; - GLIST=append(GLIST,tmp);//16.11.07upto - // GLIST=append(GLIST,"Tmp=[]"); // 16.11.05from -// nn=floor(length(AnsL)/20); -// forall(1..nn,ii, -// tmp=AnsL_(((ii-1)*20+1)..(ii*20)); -// tmp=apply(tmp,LLcrd(#)); -// tmp="Tmp=[Tmp,"+textformat(tmp,5)+"]"; -// GLIST=append(GLIST,tmp); -// ); -// if(length(AnsL)>nn*20, -// tmp=AnsL_((nn*20+1)..(length(AnsL))); -// tmp=apply(tmp,LLcrd(#)); -// tmp="Tmp=[Tmp,"+textformat(tmp,5)+"]"; -// GLIST=append(GLIST,tmp); -// ); -// GLIST=append(GLIST,name+"=Listplot(Tmp)"); // 16.11.05upto - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - tmp=apply(AnsL,LLcrd(#));//16.10.20 - tmp; -); - -Shade(plist):=Shade(plist,[]); -Shade(plist,options):=( -//help:Shade(["gr2","sg1"],[0.5]); -//help:Shade([pointlist],[0.5]); - regional(tmp,tmp1,tmp2,opstr,opcindy,Str,G2,flg); - if(isstring(plist_1), // 16.01.24 - println("output Shade of "+plist); - , - println("output Shade of lists"); - ); - tmp=Divoptions(options); - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - flg=0; - forall(plist, - if(flg==0, - if(isstring(#),tmp=parse(#),tmp=#); // from 16.01.24 - if(!islist(tmp),flg=1); upto - ); - ); - if(flg==1, -// err("some data not defined yet"); - , - G2=Joincrvs("1",plist,["nodata"]); - G2=apply(G2,Pcrd(#)); - tmp1="fillpoly("+textformat(G2,5)+opcindy+");"; - parse(tmp1); - ); - Str="Shade("; - tmp1="list("; - forall(plist, - if(isstring(#), // from 16.01.24 - if(length(#)>1, - tmp1=tmp1+#+","; - , - tmp1=tmp1+Dq+#+Dq+","; - ); - , - tmp1=tmp1+"Listplot("+textformat(#,5)+"),"; - ); // upto 16.01.24 - ); - Str=Str+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")"; - Com2nd(Str); -); - -//help:end(); - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1log.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1log.txt deleted file mode 100644 index cf775fa8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1log.txt +++ /dev/null @@ -1,647 +0,0 @@ -// s:2017.08.23 -// Help of getdirhead changed -// s:2017.07.19 -// Sep1000 added; -// s:2017.07.03 -// Deqplot debugged ( )); ) -// s:2017.06.26 -// Ch added at the first line -// s:2017.06.19 -// factorial added -// s:2017.06.05 -// Ketinit changed (ketjavaversion added) -// s:2017.05.21 -// Ketinit() debugged (Ch removed to setketcindy.txt) -// MeasureDepth debugged (in the case of null list) -// s:2017.05.18 -// Ketinit() debugged (Chnum => ChNum) -// s:2017.05.16 -// Ketinit() changed (Ch added) -// s:2017.05.15 -// C command for surface drawing are added (partly) -// s:2017.04.14 -// IntersectcrvPp debugged ( in samepoint ) -// Ketinit changed ( to change Libname for scilab6 ) -// s:2017.04.10(all) -// Buttons can be removed -// s:2017.04.08 -// bugs fixed -// e: 2017.03.27 -// Paramark changed ( name supported) -// e: 2017.03.12 -// Sprintf changed ( for string input ) -// e: 2017.03.02 -// Ketinit debugged ( regional changed from bodyc to mboxc) -// e: 2017.02.26 -// Deqplot debugged ( "t=" changed to "tvar=" ) -// e: 2017.02.17 -// Deqplot debugged ( for data output for "nodata" ) -// e: 2017.01.16 -// Setfiles added (Fhead,Fnamesci, Fnametex ) -// e: 2017.01.09 -// Ketinit changed ( slidecolor ) -// e: 2017.01.08 -// Ketinit changed ( for presentation ) -// e: 2016.12.29 -// Anglemark changed ( for too short segment ) -// e: 2016.12.26 -// Cindypathname,Cindyfilename added -// e: 2016.12.25 -// Setcindyname added -// Only avalable when Cinderella has been started in terminal mode. -// e: 2016.12.22 -// Changework changed ( ErrFlg=-1 if path not exists ) -// e: 2016.12.13 -// Changestyle changed ( "Shade" not removed from COM2ndlist) -// Ketinit change ( CRmark added); -// e: 2016.12.04 -// Bowdata debugged ( for 3 arguments ) -// Tab2list ( sep option added ) -// e: 2016.11.27 -// IntersectcrvsPp Changed ( for adjacent points ) -// e: 2016.11.22 -// Ovaldata debugged ( Double written to GLIST) -// e: 2016.11.07 -// Enclosing changed ( back to old version) -// e: 2016.11.05 -// Enclosing debugged -// e: 2016.11.03 -// Integrate(0) debugged -// e: 2016.11.01 -// Bowdata changed ( "Expr(rot)=t0n1(r),a" ) -// e: 2016.10.31 -// Bowdata,Anglemark changed ( Bpos ) -// e: 2016.10.30 -// Bowdata debugged ( Bname ) -// e: 2016.10.29 -// Framedata changed ( option for window size ) -// Anglemark debugged ( Bname ) -// e: 2016.10.21 -// Changework changed -// e: 2016.10.20 -// Arrowdata debugged ( Scaling ) -// Enclosing debugged ( data passed directly ) -// e: 2016.10.19 -// Changework changed ( Case that directory not exists, java "iskcexists" ) -// e: 2016.10.16 -// ParamonCurve debugged (scaling) -// e: 2016.10.14 -// Deqplot debugged (mistake of formula) -// e: 2016.10.10 -// Arrowdata debugged ( for scaling) -// e: 2016.10.07 -// Listplot,Lineplot,Circledata Framedata changed ( auto naming) -// Polygonplot changed ( Putpoint ) -// Divoptions changed ( opcindy) -// e: 2016.10.02 -// Changework debugged ( Fnametex) -// e: 2016.09.28 -// tab2list debugged ( for option "Blank" ) -// e: 2016.09.25 -// small bug-fix -// IntegrateO debugged -// e: 2016.09.19 -// Tab2list changed ( for numbers / mac ) -// e: 2016.09.16 -// Dispmat added -// e: 2016.09.01 -// Tab2list, Columnlist added -// e: 2016.09.01 -// norm added -// e: 2016.08.15 -// DqDq added -// e: 2016.07.30 -// Changework changed (Dq) -// e: 2016.07.23 -// Changework changed -// e: 2016.07.21 -// basic2 : makeshell,makebat changed -// e: 2016.06.28 -// StringinPar changed ( Chart implemented ) -// StringPar renamed to Pardiagram ( Chart => Fig ) -// Listplot changed (Message option 2chars => 1char) -// e: 2016.06.23 -// StringinPar added -// e: 2016.06.07 -// Mackc added -// Changework changed (iskcexists ) -// e: 2016.06.06 -// Changework changed ( "c" removed ) -// e: 2016.06.04 -// Ketinit, Changework changed (kc ) -// setketcindy.txt changed , kc changed in KetcindyPlugin -// e: 2016.05.31 -// Ketinit() changed ( Setwindow message=n ) -// e: 2016.05.29 -// Ketinit() changed ( for /Users ) - - -////////////////// -// s: 2014.12.01 v1.0.0 -// e: 2014.12.03 v1.0.1 -// e: 2014.12.05 v1.0.2 -// Paramplot debugged ( negative number ) -// e: 2014.12.09 v1.1.0 -// Setscaling changed ( Setwindow() added ) -// Arrowdata debugged ( Arrowhead options ) -// Arrowheadata debugged (Scaling ) -// Writetosci changed (XMIN,... assigned ) -// Coordinate System changed -// Pcrd used for GCLIST, Lcrd used calculating -// Extractdata added -// Plotdata debugged (Exc option) -// Assign added -// Plotdata, Paramplot changed ( Assign used ) -// e: 2014.12.11 -// Circledata through 3 pts supported -// e: 2014.12.14 -// ReadOutData changed ( for 3d ) -// e: 2014.12.16 v1.1.1 -// nodata option added -// Makeshell added -// e: 2014.12.17 -// Extractdata changed (GLIST ) -// e: 2014.12.18 -// Exptractdata changed ( case of list length==1) -// Integrate changed ( for scaling ) -// IntersectcrvPhy, Intersectcrv, Meetcurve changed ( for scaling) -// Arrowheaddata debugged ( for scaling ) -// e: 2014.12.19 -// Windispg changed ( empty case ) -// hatchdata changed ( Extractdata used ) -// e: 2014.12.20 -// Assign debugged ( case of .x ) -// Plotdata, Paramplot changed ( Num changed to number of intervals ) -// e: 2014.12.21 -// ReadOutData changed ( comment if headchar="#" ) -// e: 2014.12.22 -// Windispg changed ( case of empty data ) -// ReadOutData debugged -// Flattenlist, WriteOutData added -// e: 2014.12.24 -// Divoptions added -// Addgraph added ( need to be revised ) -// e: 2014.12.27 -// Dotprod, Crossprod moved from 3dlib -// BezierCurve added -// e: 2014.12.28 -// Bezier changed (2 & 3 ) -// e: 2014.12.30 -// ViewTeX added -// Bezier changed ( choosable 2/3 ) -// Hatchdata debugged ( iostr to list ) -// v1.1.3 -// e: 2014.12.31 -// Bezier changed ( varirous forms of Num, ctrlist usable) -// Pointdata changed ( opcindy supported ) -// e: 2015.01.01 -// Bezier(list) supported ([ptlist,ctrlist,name]); -// Readpcsvsla, Putbezierdata added -// e: 2015.01.02 -// Bezier changed ( corresponded to Bezier in ketsciL5.1.4 ) -// Mkbezierptcrv added -// e: 2015.01.03 -// Mkbeziercrv added -// Putbezierdata changed (option "Size=") -// BezierNumber added to Ketinit -// Mkbezierptcrv changed ( ptctrLL returned ) -// Shade changed ( case of not defined yet ) -// e: 2015.01.04 v1.1.4 -// ketcindylogo added -// e: 2015.01.05 -// CRspline added -// e: 2015.01.05 -// CRspline changed ( "Rat=" added ) -// Com2ndpre added ( ex) shade -// e: 2015.01.07 -// Com2ndpre added -// Shade changed ( Com2ndpre used ); -// Bzspline added -// e: 2015.01.08 -// Shade (Com2nd ) restored -// Bzsspline added -// Bspline added ( Usui ) -// e:2015.01.11 -// Beziersmooth, Beziersym = Bzspline, Bzsspline -// Arrowheaddata,Arrowhead, Arrowdata changed ( option etc) -// e: 2015.01.12 -// Setunitlen changed (added to GLIST ) -// e: 2015.01.13 -// Makeshell, Makebat changed ( case of Texmain==""); -// Divoptions used for options of all commands -// e: 2015.01.14 -// Arrowhead debugged -// e: 2015.01.15 -// Makesh, Makebat debugged and changed ( Warning message ) -// e: 2015.01.17 -// WriteOutData changed ( list of Gname permitted) -// e: 2015.01.20 -// Setpt changed ( written to COM2nd ) -// AddGraph debugged & changed -// e: 2015.01.22 -// AddGraph changed ( for, stringdata, for pointdata) -// MeasureDepth changed ( singlepoint =0) -// Mkbezierptcrv changed (label of points ) -// Setcolor changed ( Setcolor (ketpic)command supported) -// e: 2015.01.27 -// Plist, Vlist changed (format(. , 5 ) used ) -// e: 2015.01.31 -// Windispg(pltlist) added (changed from Windispg(GoutL)) -// e: 2015.02.05 -// format(.., 5) changed ( to remove "i" ) -// e: 2015.02.06 -// Defvar(name,value) changed (parse executed ) -// WritetoSci changed ( VLIST ) -// e: 2015.02.08 -// Defvar(name,value) debugged -// Bezierpt changed ( available for 3d ) -// e: 2015.02.09 -// Changestyle, ChangeTablestyle, Textformat added -// Assign changed (Textformat used ) -// e: 2015.02.13 -// Tabledata, Putpttable changed ( made from up to down ) -// e: 2015.02.14 -// Putpttable changed ( R0 fixed ) -// e: 2015.02.15 -// Putpttable debugged -// Mksegments, Mkcircles added -// PtonLine, PtonSeg added -// e: 2015.02.16 -// Finddef added -// e: 2015.02.18 -// Rotatedata,... debugged ( for pdlist ) -// e: 2015.02.19 -// Findgeoinfo,Sortpointlist added -// e: 2015.02.21 -// Pointdata changed ( for non list, and "size=" added ) -// e: 2015.02.22 -// Letter, Expr changed ( ` ) -// PtonLine,... renamed to PutonLine,.. -// Pne, Psw renamed to NE, SE -// e: 2015.02.23 -// help(example) added -// Mkbezierptcrv changed ( available for BezierNumber >26) -// Makehelplist,Makecmdlist,Savecmdlist,Quicksort,Lessstr added -// Helplist,Help added -// e: 2015.02.24 -// Help ( PointonCurve ) revised -// e: 2015.02.25 v1.2.1 -// Helplist changed -// Dependgeo, Viewprocess added -// e: 2015.02.27 -// Drawprocess renamed to Workprocess -// Help changed ( Capital transform quitted ) -// e: 2015.02.28 -// Makecmd changed ( Dirlb ) -// Mkbezierptcrv debugged ( name ) -// Shade changed ( err message removed ) -// system help added -// e: 2015.03.05 -// CRspline changed (cinderella options available ) -// e: 2015.03.06 v1.2.2 -// Findarea added -// e: 2015.03.07 -// Findlength added -// e: 2015.03.11 v1.2.3 -// Mkbezierptcrv changed ( A,... => a,... ) -// e: 2015.03.12 -// Bowdata debugged -// e: 2015.03.24 v.1.2.4 -// Listplot changed ( for stringdata ) -// e: 2015.03.25 -// Enclosing changed ( implemented to Cindy ) -// e: 2015.04.06 v.1.2.5 -// Ketinit changed ( for Fhead not defined ) -// IntersectcrvsPp changed ( Dif option added ) -// EnclosingS changed -// Letter, Expr changed ( options "nodisp" ) -// Textformat changed ( for point ) -// text => textformat -// e: 2015.04.10 v.1.2.6 -// Textformat debugged -// Writetosci changed ( ThisVersion written ) -// e: 2015.04.12 -// Anglemark debugged -// Bowdata debugged -// Ptend debugged -// e: 2015.04.20 v1.2.7 -// Enclosing debugged -// e: 2015.04.21 -// Setcolor changed (for [c,m,y,k] ) -// e: 2015.04.28 v1.2.8 -// Setcolorrgb added -// Setcolor changed ( KCOLOR abolished ) -// e: 2015.05.04 -// Toupper, Definecolor added -// e: 2015.05.11 v1.3.1 -// Widispg(Pdata) debugged -// Framedata changed ( for Findcell ) -// e: 2015.05.15 -// Writesci changed (arccos,.. added ) -// Plotdata, Paramplot changed (for out/in ) -// Deqplot added ( only executed externally ) -// Hatchdata changed ( in and out executed as default) -// Writetosci changed ( load only if the file exists ) -// e: 2015.20 v1.3.2 -// Framedata debugged -// Plotdata,Paramplot changed (for outdata ) -// Divoptions changed (Out-, In- supported ) -// e: 2015.21 v1.3.3 -// Tabledatalight, Tablelightseg added -// Tablelightdata, Tgrid, Tseginfo, Tlistplot, Tsegrmv added -// Putcell, ChangeTablestyle changed ( for Tabledatalight ) -// Help changed ( Description added with ? ) -// e: 2015.23 v1.3.3 -// Helplist changed ( fileslist is not to be added ) -// Tabledata changed (similar to Tabledatalight ) -// Findcell debugged -// Changestyle debugged -// Changetablestyle changed -// e: 2015.05.26 v1.4.1 -// Help of Hatchdata changed -// Removespace added -// Drawlinetype added -// e: 2015.05.27 v1.4.1a -// Com1st changed ( string is added to GLIST ) -// e: 2015.05.31 v1.4.2 -// Divoptions debugged -// IntersectcrvsPp debugged (Dif -> 0.05 ) -// e: 2015.0602 v1.4.3 -// Divoptions debugged -// e: 2015.06.02 v1.4.4 -// Writetosci changed ( for C version ) -// e: 2015.06.03 v1.4.5 -// Tlistplot changed ( for more than 2 points ) -// e: 2015.06.11 -// Talbedata debugged ( Setwindow ) -// Arrowdata changed ( listplot ) -// e: 2015.06.20 v1.4.6 -// Helplist debugged -// e: 2015.06.22 v1.5.0 -// .cs adopted -// Helplist changed -// Makeshell, Makebat changed ( "..." ) -// e: 2015.07.06 v1.5.1 -// helpJ slighty changed -// Assign debugged -// Depplot changed ( realtime ) -// e: 2015.07.15 -// Presentation, Mkslides added -// e: 2015.07.16 v 1.5.3 -// Mksh, Mkbat slightly changed -// Hatchdata changed ( for "nodisp" ) -// e: 2015.07.21 v 1.5.4 -// Presendata changed ( for preample) -// e: 2015.07.25 -// Pcrd changed ( re added for point ) -// e: 2015.07.26 v1.5.5 -// Drawsegmark, Parabolaplot, Putintersect added -// e: 2015.07.27 -// Polygonplot, Drawsegmark added -// e: 2015.07.28 -// Texmain renamed to Texparent -// e: 2015.08.07 v1.5.6 -// Ellipseplot added -// e: 2015.08.08 -// Hyperbolaplot added -// Parabolaplot changed ( range ) -// e: 2015.08.09 -// Polygonplot changed ( options added ) -// help of Letterrot,Exprrot debugged -// e: 2015.08.10 -// Ellipseplot changed ( range added ) -// e: 2015.08.14 v1.5.7 -// Mkslides debugged ( Texmain ) -// e: 2015.08.29 -// Ovaldata debugged -// e: 2015.09.10 v1.6.0 -// WritetoR, kcR, PlotdataR added -// e: 2015.09.12 v1.6.1 -// Writesci, Extractdata changed ( for length==1) -// Partcrv, Enclosing debugged (for scaling ) -// e: 2015.09.13 -// CalcbyR added -// e: 2015.09.14 -// Integrate changed ( Oshima rule implemented, Way => Rule ) -// Ospline added -// e: 2015.09.15 -// Sprintf added ( = sprintf("%*.(dig)f") ); -// Assign changed ( multi assignment supported ) -// e: 2015.09.16 v1.6.2 -// KcR changed ( wait added ) -// PlotdataR, CalcbyR changed ( PathR set as defalt ) -// Boxplot added -// e: 2015.09.17 v1.6.3 -// Histplot, Framedata2 added -// Boxplot changed ( from file ) -// Boxplot added -// e: 2015.09.18 v1.6.4 -// Rulerscale added -// Tlisplot changed ( "Msg=no" added ) -// e: 2015.09.20 v1.6.5 -// CalcbyR changed ( in case of name is a number ) -// e: 2015.09.21 -// Ospline changed ( in case of non-closed ) -// e: 2015.09.23 v1.6.6 -// ColorRgb2Cmyk, ColorCmyk2Rgb, Colorinfile added -// e: 2015.09.25 -// PlotdataR, CalcbyR changed ("make" option not needed ) -// e: 2015.09.29 v1.6.7 -// CalcbyR, Boxplot debugged/changed -// Readcsv added -// e: 2015.09.29 v1.6.8 -// Histplot debugged/changed -// WritetoR debugged -// e: 2015.09.30 v1.6.9 -// WritetoR changed ( "setwd" added ) -// PlotdiscR added -// e: 2015.10.01 v1.6.9a -// Readcsv changed ( for blank ) -// Scatterplot added -// e: 2015.10.02 v1.6.9b -// WritetoR,... changed ( options ) -// textformat changed ( Dq added for string ) -// CalcbyR chanded ( case of start with "=", name added ) -// e: 2015.10.03 v1.7.0 -// Histplot changed ( options for Listplot) -// Writecsv added -// e: 2015.10.04 v1.8.0 -// WritetoS, kcS, CalcbyS added -// ReadOutData debugged ( for null data, and case of outdt is null ) -// e: 2015.10.05 -// CalcbyR, CalcbyS changed (deleting the file at first, -// waiting until file generated ) -// PlotdataR, PlotdiscR, Readcsv, Boxplot, Histplot changed ( timing ) -// e: 2015.10.06 -// Implicitplot added ( using CalcbyS) -// e: 2015.10.08 v1.8.1 -// kcR, kcS,... changed ( path of "kc" can be at any place, etc ) -// Colorcode added -// e: 2015.10.13 v1.8.2 -// waiting added -// WritetoR changed -// PlotdataR debugged/changed -// WaitUnit (global var ) added -// e: 2015.10.15 v1.8.3 -// HatchdataS, MkprecommandS added -// Histplot changed ( density options ) -// Scaledata, ... debugged ( in case of list) -// Writecsv changed (option of "Col=" ) -// e: 2015.10.16 -// CalcbyS, CalcbyR, Hatchdata changed -// e: 2015.10.17 -// Readcsv changed ( option "Head=" added ) -// e: 2015.10.19 v1.8.4 -// Colorcode changed (hsi,hwb supported) -// e: 2015.10.22 v1.8.5 -// Boxplot, Histplot changed ( option "" ) -// OutFileLIst,Rform added -// e: 2015.10.29 v1.8.6 -// WriteOutData changed (endmark //// ) -// ReadOutData changed (renewal ) -// CalcbyR, CalcbyS changed ( //// used) -// ErrFlag are defined -// e: 2015.10.31 v2.0.0 -// Bugs fixed -// e: 2015.11.01 v2.0.1 -// CalcbyS changed ( for [[[ ... ]]] ) -// Hatchdata changed from HatchdataS -// (Old version renamed to Hatchdata2 ) -// e: 2015.11.03 v2.0.2 -// Default of waiting raised -// e: 2015.11.05 v2.1.0 -// lib divided to libbasic, libout -// Use of cs changed -// Mkhellp changed -// Colorcode,... changed/debugged -// Cindycolor added -// e: 2015.11.06 v2.1.1 -// libbasic divided to libbasic1,libbasic2 -// Readcsv, .., changed ( for case of non-exiting file ) -// e: 2015.11.09 v2.1.2 -// helplist debugged -// Getlinestyle debugged ( for id ) -// e: 2015.11.09 v2.1.3 -// Plotdata, Paramplot changed ( LFmark) -// e: 2015.11.20 v2.2.1 -// Addcolor added -// e: 2015.11.20 v2.2.2 -// Koutenseg, IntersectcrvsPp debugged (from Usui) -// e: 2015.11.24 v2.2.3 ( out ) -// e: 2015.11.26 -// IntegrateO changed ( for a>b of range ) -// e: 2015.11.29 v2.2.5 -// basic2, out -// example.txt adde -// e: 2015.12.08 v2.2.6 -// basic2, out -// e: 2015.12.12 v2.2.7 -// basic2, out ( autosetting ) -// e: 2015.12.14 v2.2.8 -// basic2, ( autosetting of slides) -// e: 2015.12.23 v2.2.9 -// Listplot, Lineplot debugged ( precision) -// Numcrv debugged (tmp) -// e: 2016.01.07 v2.3.0 -// out (Mxtex) -// e: 2016.01.10 v2.3.1 -// out (Mxtex,kcS) -// e: 2016.01.12 -// basic2 (Viewtex) -// e: 2016.01.18 v2.3.2 -// basic2 (Viewtex) -// out ( Mxtex ) -// e: 2016.01.21 v2.3.3 -// Ptstart debugged -// basic2 ( Drwxy,Sciform ) -// e: 2016.01.24 v2.3.4 -// Shade changed ( for non-string data ) -// 3d ( concatobj ) -// e: 2016.01.27 -// Invert debugged -// Invert changed ( for a list of plotdata ) -// Listplot changed ("sg" not added when name starts with "-" ) -// Opcrvs added -// e: 2016.01.29 -// Ovaldata debugged ( "nodisp" , Tex output) -// e: 2016.01.29 v2.3.5 -// out -// e: 2016.02.22 -// basic2, 3d, out -// e: 2016.02.24 -// out -// e: 2016.02.26 -// out -// e: 2016.02.29 v2.3.7 -// GetLinestyle changed ( "sub..." not outputted to TeX ) -// out,3d -// e: 2016.03.02 -// out,3d -// e: 2016.03.03 -// out -// e: 2016.03.05 -// basic2,out -// e: 2016.03.07 -// basic2 -// e: 2016.03.10 -// integrateO changed ( for geo. point ) -// e: 2016.03.14 -// out -// e: 2016.03.16 -// IntegralO debugged -// e: 2016.03.17 v2.3.8 -// out -// e: 2016.03.25 v2.3.9 -// basic2 -// e: 2016.03.26 -// out, basic2 -// e: 2016.03.27 -// out -// e: 2016.03.28 -// basic2 -// Removespace debugged -// e: 2016.04.01 -// mv -// e: 2016.04.03 -// Partcrv debugged -// e: 2016.04.04 -// Addgraph changed ( when data is a string ) -// e: 2016.04.05 -// Addgraph changed ( case data is a list of plotdata ) -// Chunderscore added -// e: 2016.04.06 -// out (Hatchdata) -// e: 2016.04.08 -// Ketinit() changed ( FigPdfList added ) -// e: 2016.04.09 v2.4.1 -// Setpen,Setpt changed ( PenThick, TenSize ) -// Arrowdata changed ( Arrow thickness/position for "l" ) -// Addgraph changed ( for non string data ) -// e: 2016.04.11 -// basic2(BBdata) -// e: 2016.04.13 -// Changework added -// e: 2016.04.15 -// out(Mkobj...) -// e: 2016.04.17 -// basic2, out -// e: 2016.04.23 -// Changework debugged -// e: 2016.04.25 -// Changelib added -// e: 2016.04.26 -// Indexall added -// e: 2016.05.03 -// Nearestpt debugged -// e: 2016.05.12 -// Parlevel added -// e: 2016.05.16 -// Ketinit changed ( ADDPACK added) -// e: 2016.05.22 -// Parlevel changed ( for any parenthes ) -// Bracket aded ( Parlevel renamed) -// e: 2016.05.25 -// Op added -////// To Reverse sequence ////// - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt index ea83f56d..b573897b 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt +++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt @@ -1,5 +1,49 @@ +// 2018.02.02 +// Enclosing2 changed (for distanted curves, startpt option removed ) +// 2018.02.01 +// Makehatch changed ( in accordance with Intersectseg ) +// 2018.01.30 +// Intersectseg changed ( for the case of no intersect ) +// 2018.01.29 +// Intersectpartseg changed ( for the case curves are strings ) +// Textformat changed ( for null list ) +// 2018.01.26 +// Enclosing2 (new enclosing ), Makehatch, Hatchdatacindy added +// 2018.01.15 +// Setunitlen changed ( as R ) +// Ketinit changed (Marklennow,... added as R ) +// 2018.01.07 +// Collectnear added +// Intersectcurves changed (Collectnear used) +// 2018.01.05 +// Intersectcurves changed (LLcrd) +// Intersectcurvespt added +// Intersectpartseg debugged +// Intersectline changed +// s:2018.01.04 +// PointonCurve debugged ( t >=1, t<=length(g) ) +// Intersectcurves.... added +// s:2017.12.27 +// Getcdyname(Cdyname) changed +// s:2017.12.03 +// Ketinit changed (definition of LibnameS ) +// s:2017.12.01 +// Ketinit changed (to modify Dircdy ) +// s:2017.11.27 +// Setparent added ( for Texparent) +// Getcdyname added ( name of the current cdy file) +// s:2017.11.24 +// Changework changed ( for the case of double pathsep() in dir, subdir ) +// s:2017.11.20 +// Changework changed ( for the case of (ex) dir=".../" ) +// s:2017.11.12 +// Ketinit debugged (Fhead) +// s:2017.10.24 +// Ketinit changed (Slidename added) +// s:2017.10.23 +// Pointdata changed (for string ) // s:2017.10.14 -// Setfiles debugged +// Ketinit() changed (Fhead) // s:2017.10.13 // Ketinit() changed (definition of Shellparent,Shellchild) // s:2017.10.07 diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs index e6e334eb..e70be8b1 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs +++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs @@ -14,9 +14,9 @@ // along with this program. If not, see <http://www.gnu.org/licenses/> // -println("KETCindy V.3.1.0(2017.10.14)"); +println("KETCindy V.3.1.5(2018.02.02"); println(ketjavaversion());//17.06.05 -println("ketcindylibbasic1(2017.10.13) loaded"); +println("ketcindylibbasic1(2018.02.02) loaded"); //help:start(); @@ -44,7 +44,13 @@ Ketinit(sy,rangex,rangey):=( regional(pt,tmp,tmp1,tmp2,letterc,boxc,shadowc,mboxc); PenThickInit=8; ULEN="1cm"; - MARKLEN=0.2; //16.11.01 + MEMORI=0.05;//18.01.15from + MEMORIInit=MEMORI; + MEMORINow=MEMORI; + MARKLEN=0.05; + MARKLENInit=MARKLEN: + MARKLENNow= MARKLEN; + GENTEN=[0,0];//18.01.15upto KETPICLAYER=20; MilliIn=1/2.54*1000; PenThick=round(MilliIn*0.02); @@ -78,9 +84,16 @@ Ketinit(sy,rangex,rangey):=( ADDPACK=[]; // 16.05.16 ErrFlag=0; setdirectory(Dirwork); - if(!isstring(Fhead), // 17.10.13from + if(!isstring(Fhead), // 17.10.13from, 17.11.12 Fhead=text(curkernel()); Fhead=replace(Fhead,".cdy",""); + Slidename=Fhead; //17.10.24 + );//17.11.12 + if(isstring(Dircdy) & iswindows(), //17.12.01 + Dircdy=replace(Dircdy,"/",pathsep()); + if(substring(Dircdy,0,1)==pathsep(), + Dircdy=substring(Dircdy,1,length(Dircdy)); + ); ); Fnametex=Fhead+".tex"; FnameR=Fhead+".r"; @@ -122,13 +135,22 @@ Ketinit(sy,rangex,rangey):=( SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3, letterc,mboxc,mboxc,mboxc,62,2,letterc]; ThinDense=0.1;//17.01.08 - if(indexof(PathS,"-6.")>0,//17.09.29 - if((indexof(PathT,"pdflatex")==0)&(indexof(PathT,"lualatex")==0), - LibnameS=Dirlib+pathsep()+"ketpicscifiles6"; - , - LibnameS=Dirlib+pathsep()+"ketpic2escifiles6"; - ); - );//17.09.29upto + if(indexof(PathS,"-5.")>0,//17.12.03from + LibnameS=Dirlib+pathsep()+"ketpicsciL5"; + , + LibnameS=Dirlib+pathsep()+"ketpicscifiles6"; + ); + if(indexof(PathT,"pdflatex")+indexof(PathT,"lualatex")>0, + LibnameS=replace(LibnameS,"ketpic","ketpic2e"); + );//17.12.03upto +); + +Cdyname():=Getcdyname(); +Getcdyname():=( //17.12.27 +//help:Cdyname(); + regional(out); + out=text(curkernel()); + out=replace(out,".cdy",""); ); Setwindow():=Setwindow("Msg=yes"); @@ -174,11 +196,16 @@ Setfiles(file):=( // 17.01.16 //help:Setfiles(file); Fhead=file; Fnametex=Fhead+".tex"; - FnameR=Fhead+".sce"; + FnameR=Fhead+".r"; //17.10.14 FnamebodyR=Fhead+"body.sce"; Fnameout=Fhead+".txt"; ); +Setparent(file):=( // 17.11.27 +//help:Setparent(file); + Texparent=file; +); + Setcindyname():=Setcindyname("");//16.12.25 Setcindyname(file):=( //help:Setcindyname("Fhead"); @@ -550,14 +577,33 @@ Changelib(path):=( setdirectory(Dirwork); // 16.04.23 ); -Changework(path):=( //16.10.21 +Changework(dirorg):=( //16.10.21 //help:Changework(directory); - regional(tmp); - if(path=="" % !isexists(path,""), - println("Directory "+path+" not exist, so set to "+Dirwork); + regional(dir,subdir,tmp); + dir=replace(dirorg,"/",pathsep());//17.11.20from + dir=replace(dir,"\",pathsep()); + dir=replace(dir,pathsep()+pathsep(),pathsep());//17.11.24 + tmp=length(dir); + if(substring(dir,tmp-1,tmp)==pathsep(), + dir=substring(dir,0,tmp-1); + );//17.11.20upto + tmp=Indexall(dir,pathsep()); //17.11.24from + subdir=""; + if(length(tmp)>0, + tmp=tmp_(length(tmp)); + subdir=substring(dir,tmp,length(dir)); + dir=substring(dir,0,tmp-1); + ); //17.11.24upto + if(dir=="" % !isexists(dir,""), + println("Directory "+dir+" not exist, so set to "+Dirwork); ErrFlag=-1; , - Dirwork=path; + if(length(subdir)>0, //17.11.24from + println(makedir(dir,subdir)); + Dirwork=dir+pathsep()+subdir; + , + Dirwork=dir; + ); //17.11.24upto setdirectory(Dirwork); if(!iswindows(), //17.04.11 if(!iskcexists(Dirwork), @@ -769,7 +815,10 @@ Textformat(value,dig):=( forall(value, tmp1=tmp1+Textformat(#,dig)+","; ); - tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; + if(length(tmp1)>1, //18.01.29from + tmp1=substring(tmp1,0,length(tmp1)-1); + ); + tmp1=tmp1+"]"; //18.01.29upto , if(ispoint(value) % isstring(value), // vv=Lcrd(value); @@ -1090,12 +1139,14 @@ ParamonCurve(pP,nN,plist):=( ); Pointoncrv(tT,PtL):=PointonCurve(tT,PtL); -PointonCurve(tT,Gdata):=( +PointonCurve(tTorg,Gdata):=( //help:PointonCurve(20.5,"gr1"); - regional(Out,Eps,nN,sS,Pa,Pb,PtL); + regional(tT,Out,Eps,nN,sS,Pa,Pb,PtL); if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata); if(length(PtL)==1,PtL=PtL_1); - Eps=10^(-4); + tT=max([tTorg,1]); //18.01.04 + tT=min([tT,length(PtL)]); //18.01.04 + Eps=10^(-5); //18.01.04 nN=floor(tT+Eps); sS=max([tT-nN,0]); if(nN==length(PtL), @@ -1218,6 +1269,8 @@ Koutenseg(pA,pB,pC,pD,options):=( Out; ); +///////// Start of old Intersect //////////// + IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]); IntersectcrvsPp(Gr1,Gr2,options):=( //help:IntersectcrvsPp("gr1","pa1"); @@ -1370,6 +1423,402 @@ Intersectcrvs(Gr1,Gr2,options):=( tmp1=IntersectcrvsPp(Gr1,Gr2,options); apply(tmp1,#_1); ); +///////// End of old Intersect //////////// + +/////////// Start of new Intersect ////////////// + +Intersectline(p1,v1,p2,v2):=( + regional(Eps,d,dt,ds,t,s,pt,out,tmp,tmp1,tmp2,tmp3); + Eps=10^(-5); + out=[]; + tmp=Dotprod(v1,v2); + tmp1=[tmp,|v1|^2]; + tmp2=[-|v2|^2,-tmp]; + tmp3=[Dotprod(p2-p1,v2),Dotprod(p2-p1,v1)]; + d=Crossprod(tmp1,tmp2); + tmp=abs(Crossprod(v1,v2)); + if(tmp>Eps, + dt=Crossprod(tmp3,tmp2); + ds=Crossprod(tmp1,tmp3); + t=dt/d; + s=ds/d; + pt=p1+v1*t; + out=[pt,t,s]; + , + tmp1=Crossprod(p2-p1,v1)/|v1|; //18.01.05 + out=[abs(tmp1)]; //18.01.05 + ); + out; +); + +Intersectseg(seg1,seg2):=Intersectseg(seg1,seg2,0.01); +Intersectseg(seg1org,seg2org,Eps1):=( + regional(Eps,seg1,seg2,p1,p2,q1,q2,t,s,pt,n,pts,out,dist, + tmp,tmp1,tmp2,tmp3); + Eps=10^(-4); + //Eps1=0.01; + seg1=seg1org; + seg2=seg2org; + if(isstring(seg1),seg1=parse(seg1)); + if(isstring(seg2),seg2=parse(seg2)); + out=[]; + p1=seg1_1; q1=seg1_2; + p2=seg2_1; q2=seg2_2; + if((|q1-p1|<Eps)%(|q2-p2|<Eps), + out=[-1]; + , + tmp=Intersectline(p1,q1-p1,p2,q2-p2); + if(islist(tmp_1), + pt=tmp_1; t=tmp_2; s=tmp_3; + if((t*(t-1)<Eps)&(s*(s-1)<Eps), + out=[0,pt,t,s]; + , + t=min([max([t,0]),1]); + s=min([max([s,0]),1]); + tmp3=[|p1-p2|,|p1-q2|,|p2-p1|,|p2-q1|]; //18.01.30from + tmp1=[Op(2,q2-p2),-Op(1,q2-p2)]; + tmp=Intersectline(p1,tmp1,p2,q2-p2); + if(islist(tmp_1), + if(tmp_3*(tmp_3-1)<Eps, + tmp3=append(tmp3,|tmp_1-p1|); + ); + ); + tmp=Intersectline(q1,tmp1,p2,q2-p2); + if(islist(tmp_1), + if(tmp_3*(tmp_3-1)<Eps, + tmp3=append(tmp3,|tmp_1-q1|); + ); + ); + tmp1=[Op(2,q1-p1),-Op(1,q1-p1)]; + tmp=Intersectline(p2,tmp1,p1,q1-p1); + if(islist(tmp_1), + if(tmp_3*(tmp_3-1)<Eps, + tmp3=append(tmp3,|tmp_1-p2|); + ); + ); + tmp=Intersectline(q2,tmp1,p1,q1-p1); + if(islist(tmp_1), + if(tmp_3*(tmp_3-1)<Eps, + tmp3=append(tmp3,|tmp_1-q2|); + ); + ); + out=[min(tmp3),pt,t,s]; //18.01.30upto + ); + , + dist=tmp_1; + tmp1=q1-p1; + n=[tmp1_2,-tmp1_1]/|tmp1|; + pts=[]; + tmp=Intersectline(p1,n,p2,q2-p2); + if(tmp_3*(tmp_3-1)<Eps, + tmp1=(1-tmp_3)*p2+tmp_3*q2; + pts=append(pts,[tmp1,0,tmp_3]); + ); + tmp=Intersectline(q1,n,p2,q2-p2); + if(tmp_3*(tmp_3-1)<Eps, + tmp1=(1-tmp_3)*p2+tmp_3*q2; + pts=append(pts,[tmp1,1,tmp_3]); + ); + tmp=Intersectline(p2,n,p1,q1-p1); + if(tmp_3*(tmp_3-1)<Eps, + tmp1=(1-tmp_3)*p1+tmp_3*q1; + pts=append(pts,[tmp1,tmp_3,0]); + ); + tmp=Intersectline(q2,n,p1,q1-p1); + if(tmp_3*(tmp_3-1)<Eps, + tmp1=(1-tmp_3)*p1+tmp_3*q1; + pts=append(pts,[tmp1,tmp_3,2]); + ); + if(length(pts)==0, + tmp1=min([|p2-p1|,|q2-p1|,|p2-q1|,|q2-q1|]); + out=[tmp1]; + , + if(dist>Eps1, + out=[dist]; + , + tmp=apply(pts,#_1_1); + tmp1=sum(tmp)/(length(pts)); + tmp=apply(pts,#_1_2); + tmp2=sum(tmp)/(length(pts)); + tmp3=[tmp1,tmp2]; + tmp=Nearestpt(tmp3,seg1); + tmp1=tmp_2; + tmp=Nearestpt(tmp3,seg2); + tmp2=tmp_2; + out=[dist,tmp3,tmp1,tmp2]; + ); + ); + ); + ); + out; +); + +Osplineseg(list):=Osplineseg(list,[]); +Osplineseg(ptlist,optionsorg):=( + regional(tmp,tmp1,tmp2,list,ptL,ctrL,Eps,Eps0, + p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32,out); + Eps=10^(-2); + Eps0=10^(-6); + if(isstring(ptlist),list=parse(ptlist),list=ptlist); + p0=list_1; p1=list_2; p2=list_3; p3=list_4; + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); + cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; + pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16 + pR=p2+cc*(p1-p3); // 16.08.16 + ctrL=[pQ,pR]; + options=optionorg; + options=concat(options,["Num=20","nodata"]); + out=Bezier("",[p1,p2],ctrL,options); + out; +); + +Intersectpartseg(crv1,crv2,ii,jj,Eps1,Eps2):=( + Intersectpartseg(crv1,crv2,ii,jj,Eps1,Eps2,10*Eps2); +); +Intersectpartseg(crv1org,crv2org,ii,jj,Eps1,Eps2,Dist):=( + regional(crv1,crv2,Eps,dst,kk,ll,seg1,seg2,snang, + p0,p1,p2,p3,os1,os2,out,tmp,tmp1,tmp2,flg); + crv1=crv1org; crv2=crv2org; + if(isstring(crv1),crv1=parse(crv1)); + if(isstring(crv2),crv2=parse(crv2)); + Eps=10^(-4); +// Eps1=0.01; +// Eps2=0.1; +// Dist=10*Eps2; + out=[]; + seg1=[crv1_ii,crv1_(ii+1)]; + seg2=[crv2_jj,crv2_(jj+1)]; + tmp1=seg1_2-seg1_1; + tmp2=seg2_2-seg2_1; + snang=abs(Crossprod(tmp1,tmp2))/(norm(tmp1)*norm(tmp2)); + tmp=Intersectseg(seg1,seg2,Eps1); + dst=tmp_1; + if(dst<Eps, + out=[tmp_2,ii+tmp_3,jj+tmp_4,dst,snang]; + , + if(dst<Eps2, + if((length(crv1)==2)%(|seg1_2-seg1_1|>Dist-Eps), + os1=seg1; + , + p1=seg1_1; p2=seg1_2; + if(ii==1, + p3=crv1_3; + tmp=p2-p1; + tmp=(p1+p2)/2+[tmp_2,-tmp_1]; + p0=Reflectpoint(p3,[(p1+p2)/2,tmp]); + , + if(ii==length(crv1)-1, + p0=crv1_(ii-1); + tmp=p2-p1; + tmp=(p1+p2)/2+[tmp_2,-tmp_1]; + p3=Reflectpoint(p0,[(p1+p2)/2,tmp]); + , + p0=crv1_(ii-1); p3=crv1_(ii+2); + ); + ); + os1=Osplineseg([p0,p1,p2,p3]); + ); + if((length(crv2)==2)%(|seg2_2-seg2_1|>Dist-Eps), //18.01.05 + os2=seg2; + , + p1=seg2_1; p2=seg2_2; + if(jj==1, + p3=crv2_3; + tmp=p2-p1; + tmp=(p1+p2)/2+[tmp_2,-tmp_1]; + p0=Reflectpoint(p3,[(p1+p2)/2,tmp]); + , + if(jj==length(crv2)-1, + p0=crv2_(jj-1); + tmp=p2-p1; + tmp=(p1+p2)/2+[tmp_2,-tmp_1]; + p3=Reflectpoint(p0,[(p1+p2)/2,tmp]); + , + p0=crv2_(jj-1); p3=crv2_(jj+2); + ); + ); + os2=Osplineseg([p0,p1,p2,p3]); + ); + tmp2=[]; + forall(1..(length(os1)-1),kk, + forall(1..(length(os2)-1),ll, + seg1=[os1_kk,os1_(kk+1)]; + seg2=[os2_ll,os2_(ll+1)]; + tmp=Intersectseg(seg1,seg2,Eps1); + if(tmp_1<Eps1, + if(tmp_1<dst+Eps, + dst=tmp_1; + tmp2=select(tmp2,#_1<dst); + tmp2=append(tmp2,[dst,tmp_2]); + ); + ); + ); + ); + if(length(tmp2)>0, + tmp=apply(tmp2,#_2_1); + tmp1=[sum(tmp)/length(tmp2)]; + tmp=apply(tmp2,#_2_2); + tmp1=append(tmp1,sum(tmp)/length(tmp2)); + out=[tmp1]; + p1=crv1_ii; p2=crv1_(ii+1); + tmp=[Op(2,p2-p1),-Op(1,p2-p1)]; + tmp=Intersectline(out_1,tmp,p1,p2-p1); + tmp=min([max([tmp_3,0]),1]); + out=[tmp1,ii+tmp]; + p1=crv2_jj; p2=crv2_(jj+1); + tmp=[Op(2,p2-p1),-Op(1,p2-p1)]; + tmp=Intersectline(out_1,tmp,p1,p2-p1); + tmp=min([max([tmp_3,0]),1]); + out=concat(out,[jj+tmp,dst,snang]); + ); + ); + ); + out; +); + +Collectnear(ptdL,Eps2):=( + regional(Eps,gL,rL,numL,ii,jj,flg,tmp,tmp1); + Eps=10^(-4); + gL=[ptdL_1]; + rL=ptdL_(2..(length(ptdL))); + flg=0; + forall(1..(length(ptdL)-1),ii, + if(flg==0, + numL=[]; + forall(1..(length(rL)),jj, + tmp1=100; + forall(gL, + tmp=|#_1-rL_jj_1|; + if(tmp<tmp1,tmp1=tmp); + ); + if(tmp1<Eps2,numL=append(numL,jj)); + ); + if(length(numL)==0, + flg=1; + , + gL=concat(gL,rL_(numL)); + rL=remove(rL,rL_(numL)); + ); + ); + ); + [gL,rL]; +); + +IntersectcurvesPp(crv1org,crv2org):=IntersectcurvesPp(crv1org,crv2org,[]); +IntersectcurvesPp(crv1org,crv2org,options):=( +//help:IntersectcurvesPp(crv1,crv2); +//help:IntersectcurvesPp(options=[Eps1(0.01),Eps2(0.1),Dist(2)]) + regional(Eps,Eps1,Eps2,Dist,crv1,crv2,ii,jj,seg1,seg2,self,loopL,out, + flg,tmp,tmp1,tmp2); + Eps=10^(-4); + Eps1=0.01; + Eps2=0.1; + Dist=10*Eps2; + if(length(options)>0, + Eps1=options_1; + if(length(options)>1, + Eps2=options_2; + Dist=10*Eps2; + if(length(options)>2, + Dist=options_3; + ); + ); + ); + if(isstring(crv1org),tmp1=parse(crv1org),tmp1=crv1org);//18.01.05from + if(isstring(crv2org),tmp2=parse(crv2org),tmp2=crv2org); + tmp1=apply(tmp1,LLcrd(#)); + tmp2=apply(tmp2,LLcrd(#)); + crv1=[tmp1_1]; + forall(tmp1, + tmp=crv1_(length(crv1)); + if(|tmp-#|>Eps, + crv1=append(crv1,#); + ); + ); + crv2=[tmp2_1]; + forall(tmp2, + tmp=crv2_(length(crv2)); + if(|tmp-#|>Eps, + crv2=append(crv2,#); + ); + );//18.01.05upto + if(crv1==crv2, + self=1; + , + self=0; + ); + out=[]; + forall(1..(length(crv1)-1),ii, + if(self==0, + loopL=1..(length(crv2)-1); + , + loopL=(ii+2)..(length(crv2)-1); + ); + forall(loopL,jj, + tmp=Intersectpartseg(crv1,crv2,ii,jj,Eps1,Eps2,Dist); + if(length(tmp)>0, + if(length(out)==0, + out=[tmp]; + , + tmp1=out_(length(out)); + if(|tmp1_1-tmp_1|>Eps1, + out=append(out,tmp); + ); + ); + if(self==1, + tmp=[tmp_1,tmp_3,tmp_2,tmp_4,tmp_5]; + out=append(out,tmp); + ); + ); + ); + ); + tmp2=out; + out=[]; + tmp1=tmp2; + flg=0; + forall(1..(length(tmp2)), + if(flg==0, + tmp=Collectnear(tmp1,Eps2); + out=append(out,tmp_1); + if(length(tmp_2)==0, + flg=1; + , + tmp1=tmp_2; + ); + ); + ); + forall(1..(length(out)),ii, + tmp1=out_ii; + if(length(tmp1)==1, + out_ii=tmp1_1; + , + tmp=apply(tmp1,#_4); + dst=min(tmp); + tmp1=select(tmp1,#_4<dst+Eps); + tmp=apply(tmp1,#_1); + tmp=sum(tmp)/length(tmp1); + tmp2=[tmp]; + tmp=Nearestpt(tmp2_1,crv1org); + tmp2=append(tmp2,tmp_2); + tmp=Nearestpt(tmp2_1,crv2org); + tmp2=append(tmp2,tmp_2); + tmp2=concat(tmp2,[dst,tmp1_1_5]); + out_ii=tmp2; + ); + ); + out; +); + +Intersectcurves(crv1org,crv2org):=Intersectcurves(crv1org,crv2org,[]); +Intersectcurves(crv1org,crv2org,options):=( +//help:Intersectcurves(crv1,crv2); +//help:Intersectcurves(options=[Eps1(0.1),Dist(2)]) + regional(tmp); + tmp=IntersectcurvesPp(crv1org,crv2org,options); + tmp=apply(tmp,#_1); +); + +///////////End of new Intersect ////////////// NearestptcrvPhy(point,PL):=( regional(tmp,pP,plist); @@ -1790,10 +2239,57 @@ Drawlinetype(name,type):=( ); ); -Setunitlen(string):=( -//help:Setunitlen("5mm"); - ULEN=string; - GLIST=append(GLIST,"Setunitlen("+Dq+string+Dq+")"); +Setunitlen():=( + println(ULEN); +); +Setunitlen(UI):=( + regional(Dx,Dy,Sym,SL,OL,Is,VL,Ucode,ii,cha, + str,Unit,Valu,flg,tmp); + Dx=XMAX-XMIN; + Dy=YMAX-YMIN; + Sym=".0123456789 +-*/"; + SL=Sym; + OL="+-*/"; + if(length(UI)>0, + ULEN=UI; + GLIST=append(GLIST,"Setunitlen("+Dq+string+Dq+")"); + ); + Is=1; + VL=""; + Ucode=ULEN; + flg=0; + forall(1..(length(Ucode)),ii, + if(flg==0, + cha=substring(Ucode,ii-1,ii); + if(indexof(SL,cha)>0, + if(indexof(OL,cha)>0, + tmp=substring(Ucode,Is-1,ii); + str=VL+tmp+cha; + VL=str; + Is=ii+1; + ); + , + Unit=substring(Ucode,ii-1,ii+1); + str=substring(Ucode,Is-1,ii-1); + VL=VL+str; + flg=1; + ); + ); + ); + Valu=parse(VL); + str=format(Valu,6); + ULEN=str+Unit; + if(Unit=="cm",MilliIn=1000/2.54*Valu); + if(Unit=="mm",MilliIn=1000/2.54*Valu/10); + if(Unit=="in",MilliIn=1000*Valu); + if(Unit=="pt",MilliIn=1000/72.27*Valu); + if(Unit=="pc",MilliIn=000/6.022*Valu); + if(Unit=="bp",MilliIn=1000/72*Valu); + if(Unit=="dd2",MilliIn=1000/1238/1157/72.27*Valu); + if(Unit=="cc",MilliIn=1000/1238/1157/72.27*12*Valu); + if(Unit=="sp",MilliIn=1000/72.27/65536*Valu/10); + MARKLEN=MARKLENNow*1000/2.54/MilliIn; + MEMORI=MEMORINow*1000/2.54/MilliIn; ); Setmarklen(ratio):=( @@ -2708,10 +3204,10 @@ Opcrvs(num,Fig,options):=( Pointdata(nm,list):=Pointdata(nm,list,[]); -Pointdata(nm,list,options):=( +Pointdata(nm,listorg,options):=( //help:Pointdata("1",[2,4],["Size=5"]); //help:Pointdata("2",[[2,3],[4,1]]); - regional(name,nameL,ptlist,opstr,opcindy, + regional(list,name,nameL,ptlist,opstr,opcindy, eqL,size,thick,tmp,tmp1,tmp2,tmp3,Ltype,Noflg); name="pt"+nm; nameL=name+"L"; @@ -2732,6 +3228,7 @@ Pointdata(nm,list,options):=( ); ); ); + if(isstring(listorg),list=parse(listorg),list=listorg); //17.10.23 tmp=MeasureDepth(list); if(tmp>0, // 2015.02.21 if(tmp==1,ptlist=list,ptlist=list_1); @@ -2750,16 +3247,20 @@ Pointdata(nm,list,options):=( tmp=nameL+"="+tmp3; parse(tmp); if(Noflg<3, - tmp2="list("; //17.10.10from - forall(list, - if(isstring(#), - tmp=#; - , - if(ispoint(#),tmp=text(#),tmp=textformat(#,6)); + if(isstring(listorg), //17.10.23 + tmp2=listorg; + , + tmp2="list("; //17.10.10from + forall(list, + if(isstring(#), + tmp=#; + , + if(ispoint(#),tmp=text(#),tmp=textformat(#,6)); + ); + tmp2=tmp2+tmp+","; ); - tmp2=tmp2+tmp+","; + tmp2=substring(tmp2,0,length(tmp2)-1)+")"; //17.10.10upto ); - tmp2=substring(tmp2,0,length(tmp2)-1)+")"; //17.10.10upto GLIST=append(GLIST,name+"=Pointdata("+tmp2+")"); ); if(Noflg<2, @@ -4592,6 +5093,8 @@ Deqplot(nm,deqorg,rngorg,initt,initf,options):=( //17.10.06 ); ); +////////// old enclosing /////////////// + Enclosing(nm,plist):=EnclosingS(nm,plist); Enclosing(nm,plist,options):=EnclosingS(nm,plist,options); EnclosingS(nm,plist):=EnclosingS(nm,plist,[]); @@ -4760,6 +5263,370 @@ EnclosingS(nm,plist,options):=( tmp; ); +/////////// new enclosing /////////// + +Enclosing2(nm,plist):=Enclosing2(nm,plist,[]); +Enclosing2(nm,plistorg,options):=( +//help:Enclosing2("1",["sc2","crAB","sc2","Invert(sc1)"]); +//help:Enclosing2(options=[Eps1(0.01),Eps2(0.1)]); + regional(name,plist,AnsL,Start,Eps,Eps1,Eps2,flg,Fdata,Gdata,KL, + t1,t2,tst,ss,ii,nn,nxtno,Ltype,Noflg,realL,eqL,opstr,opcindy, + tmp,tmp1,tmp2); + name="en"+nm; + plist=plistorg; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + eqL=tmp_5; + realL=tmp_6; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + Eps=10^(-5); // 16.12.05 + Eps1=0.01; + Eps2=0.1; + Start=[]; + flg=0; + forall(realL, + if(isList(#) % ispoint(#), +// Start=Lcrd(#); // 18.02.02 + , + if(flg==0,Eps1=#); + if(flg==1,Eps2=#); + flg=flg+1; + ); + ); + flg=0; + AnsL=[]; + if(length(plist)==1, + Fdata=parse(plist_1); + tmp1=Fdata_1; + tmp2=Fdata_(length(Fdata)); + if(|tmp1-tmp2|<Eps, + AnsL=Fdata; + , + AnsL=append(Fdata,tmp1); + ); + flg=1; + ); + if(flg==0, + Fdata=plist_1; + Gdata=plist_(length(plist)); + KL=IntersectcurvesPp(Fdata,Gdata); + if(length(KL)==0, + tmp=parse(Gdata); + tmp1=LLcrd(Op(length(tmp),tmp)); //18.02.02from + tmp=parse(Fdata); + tmp2=LLcrd(Op(1,tmp)); + tmp=Listplot(name,[tmp1,tmp2],["nodisp"]); + plist=append(plist,"sg"+name); + Start=tmp2; + tst=1; //18.02.02upto + , + if(length(KL)==1, + tst=KL_1_2; + Start=Pointoncurve(tst,Fdata); + ); + if(length(KL)>1, + KL=sort(KL,[#_2]); + if(Start==[], + tst=KL_1_2; + Start=Pointoncurve(tst,Fdata); + , + tmp=apply(KL,|#_1-Start|); + tmp=min(tmp); + tmp1=select(KL,|#_1-Start|==tmp); + tst=tmp1_1_2; + Start=Pointoncurve(tst,Fdata); + ); + ); + ); + ); + if(flg==0, + t1=tst; + println("Start point of enclosing is "+text(Start)); + forall(1..(length(plist)),nn, + Fdata=plist_nn; + if(nn==length(plist),nxtno=1,nxtno=nn+1); + Gdata=plist_nxtno; + KL=IntersectcurvesPp(Fdata,Gdata); + if(length(KL)==0, + tmp1=parse(Fdata); //18.02.02from + tmp2=parse(Gdata); + tmp2=Prepend(Op(length(tmp1),tmp),tmp2); + Gdata=replace(Gdata,"(",""); + Gdata=replace(Gdata,")",""); + tmp=Gdata+"="+textformat(tmp2,6); + parse(tmp); + plist_nxtno=Gdata; + t2=Length(tmp1); + ss=1; //18.02.02upto + , + t2=KL_1_2; + ss=KL_1_3; + if(abs(t2-t1)<Eps, + if(length(KL)>1, + t2=KL_2_2; + ss=KL_2_3; + , + println(text(nn)+" and "+text(nxtno)+" not intersect"); + flg=1; + ); + ); + ); + if(flg==0, + tmp=Partcrv("",t1,t2,Fdata,["nodata"]); + if(nn==1, + AnsL=tmp; + , + AnsL=concat(AnsL,tmp_(2..(length(tmp)))); + ); + t1=ss; + ); + ); + ); + if(flg==0, + AnsL=apply(AnsL,Pcrd(#)); + ); + if(Noflg<3, + println("generate Enclosing "+name); + tmp=name+"="+textformat(AnsL,5); + parse(tmp); + tmp=name+"=Enclosing2(";//16.11.07from + tmp1="list("; + forall(plistorg, //18.02.02 + tmp1=tmp1+#+","; + ); + tmp=tmp+substring(tmp1,0,length(tmp1)-1)+"))";//18.02.02 + GLIST=append(GLIST,tmp);//16.11.07upto + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + tmp=apply(AnsL,LLcrd(#));//16.10.20 + tmp; +); + +/////////// end of new enclosing /////////// + +/////////// new Hatchdata(cindy) /////////// + +Makehatch(iolistorg,pt,vec,bdylist):=( + regional(Eps,iolist,sg,bdy,out,nb,tenL,ns,ne,ioL, + ii,jj,kk,nvec,nbdy,sgn1,sgn2,flg,rmL,p0,p1,p2,pL, + Scalebkup,tmp,tmp1,tmp2); + Eps=10^(-6); + nvec=[-vec_2,vec_1]; + nvec=nvec/|nvec|; + if(!islist(iolistorg),iolist=[iolistorg],iolist=iolistorg); + forall(1..(length(iolist)), + tmp=replace(iolist_#,"i","1,"); + tmp=replace(tmp,"o","0,"); + tmp="["+substring(tmp,0,length(tmp)-1)+"]"; + iolist_#=parse(tmp); + ); + Scalebkup=SCALEY; + SCALEY=1; + sg=Lineplot("",[pt,pt+vec],["nodata"]); + nb=length(bdylist); + if(nb>0, + tenL=[]; + forall(1..nb,ii, + rmL=[]; + bdy=bdylist_ii; + nbdy=length(bdy)-1; + pL=[]; + forall(1..nbdy,jj, + p1=bdy_jj; + p2=bdy_(mod(jj+1-1,nbdy)+1); + tmp=Intersectseg(sg,[p1,p2],Eps); + if(abs(tmp_1)<Eps, //18.02.01 + p0=tmp_2; t=tmp_3; s=tmp_4; + pL=append(pL,[p0,t,s,ii]); + ); + ); + if(length(pL)>0, + pL=sort(pL,[#_2]); + pL=apply(1..(length(pL)),append(pL_#,mod(#,2))); + tenL=concat(tenL,pL); + ); + ); + tenL=sort(tenL,[#_2]); + ioL=apply(1..nb,0); + ns=1; + ne=length(tenL); + if(ne>0,tmp=tenL_1_1,tmp=sg_2); + if(|sg_1-tmp|>Eps, + tmp=[sg_1,-1,1,ioL]; + tenL=prepend(tmp,tenL); + ns=ns+1; + ne=ne+1; + ); + if(|sg_2-tenL_(length(tenL))_1|>Eps, + tmp=[sg_2,-1,2,ioL]; + tenL=append(tenL,tmp); + ); + forall(ns..ne,ii, + tmp=tenL_ii; + tmp1=tmp_4; + tmp2=tmp_5; + ioL_tmp1=tmp2; + tmp=[tmp_1,tmp_2,tmp_4,ioL]; + tenL_ii=tmp; + ); + out=[]; + forall(1..(length(tenL)-1),ii, + tmp1=tenL_ii; + if(contains(iolist,tmp1_4), + tmp2=tenL_(ii+1); + tmp=Listplot("",[tmp1_1,tmp2_1],["nodata"]); + out=append(out,tmp); + ); + ); + ); + SCALEY=Scalebkup; + out; +); + +Hatchdatacindy(nm,iostr,bdylist):=Hatchdatacindy(nm,iostr,bdylist,[]); +Hatchdatacindy(nm,iostr,bdylistorg,options):=( +//help:Hatchdatacindy("1",["ii"],[["ln1","Invert(gr1)"],["gr2","n"]]); +//help:Hatchdatacindy(options=[angle,width]); + regional(name,bdylist,bdynameL,bname,Ltype,Noflg,opstr,opcindy,reL,startP,angle, + interval,vec,nvec,flg,pt,kk,delta,sha,AnsL,tmp,tmp1,tmp2); + name="ha"+nm; + bdylist=[]; + bdynameL=[]; + forall(1..(length(bdylistorg)),kk, + tmp1=bdylistorg_kk; + if(length(tmp1)==1, + bname=tmp1_1; + , + tmp=tmp1_(length(tmp1)); + if(contains(["n","s","e","w"],tmp), + tmp2=parse(tmp1_1); + if(tmp=="s", + Listplot(name,[LLcrd(tmp2_1),[tmp2_1_1,YMIN], + [tmp2_(length(tmp2))_1,YMIN],LLcrd(tmp2_(length(tmp2)))],["nodisp"]); + Joincrvs(text(kk)+name,[tmp1_1,"sg"+name],["nodisp"]); + bname="join"+text(kk)+name; + ); + if(tmp=="n", + Listplot(name,[LLcrd(tmp2_1),[tmp2_1_1,YMAX], + [tmp2_(length(tmp2))_1,YMAX],LLcrd(tmp2_(length(tmp2)))],["nodisp"]); + Joincrvs(text(kk)+name,[tmp1_1,"sg"+name],["nodisp"]); + bname="join"+text(kk)+name; + ); + if(tmp=="e", + Listplot(name,apply([tmp2_1,[XMAX,tmp2_1_2], + [XMAX,tmp2_(length(tmp2))_2],tmp2_(length(tmp2))],LLcrd(#)),["nodisp"]); + Joincrvs(text(kk)+name,[tmp1_1,"sg"+name],["nodisp"]); + bname="join"+text(kk)+name; + ); + if(tmp=="w", + Listplot(name,apply( [tmp2_1,[XMIN,tmp2_1_2], + [XMIN,tmp2_(length(tmp2))_2],tmp2_(length(tmp2))],LLcrd(#)),["nodisp"]); + Joincrvs(text(kk)+name,[tmp1_1,"sg"+name],["nodisp"]); + bname="join"+text(kk)+name; + ); + , + Enclosing2(text(#)+name,tmp,["nodisp"]); + bname="en"+text(#)+name; + ); + ); + bdylist=append(bdylist,parse(bname)); + bdynameL=append(bdynameL,bname); + ); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + reL=tmp_6; + angle=45; + interval=0.125*1000/2.54/MilliIn; + startP=[(XMIN+XMAX)/2, (YMIN+YMAX)/2]; + tmp1=1; + forall(reL, + if(islist(#), + startP=#; + , + if(tmp1==1, + angle=#; + tmp1=tmp1+1; + , + interval= interval*#; + ); + ); + ); + angle=angle*pi/180; + vec=[cos(angle),sin(angle)]; + nvec=[-sin(angle),cos(angle)]; + AnsL=[]; + flg=0; + forall(0..100,kk, + pt=startP+kk*interval*nvec; + if(flg==0, + sha=Makehatch(iostr,pt,vec,bdylist); + if((sha==-1)%(length(sha)==0), +// flg=1; + , + AnsL=concat(AnsL,sha); + ); + ); + ); + flg=0; + forall(1..100,kk, + pt=startP-kk*interval*nvec; + if(flg==0, + sha=Makehatch(iostr,pt,vec,bdylist); + if((sha==-1)%(length(sha)==0), +// flg=1; + , + AnsL=concat(AnsL,sha); + ); + ); + ); + if(Noflg<3, + println("generate Hatchdata "+name); + tmp=name+"="+textformat(AnsL,5); + parse(tmp); + if(!islist(iostr),tmp1=[iostr],tmp1=iostr); + tmp="c("; + forall(tmp1, + tmp=tmp+Dq+#+Dq+","; + ); + tmp=substring(tmp,0,length(tmp)-1)+")"; + tmp2=name+"=Hatchdata("+tmp; + forall(bdynameL, + tmp2=tmp2+",list("+#+")"; + ); + tmp2=tmp2+opstr+")"; + GLIST=append(GLIST,tmp2); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + tmp2=[]; + forall(AnsL,tmp1, + tmp=apply(tmp1,LLcrd(#)); + tmp2=append(tmp2,tmp); + ); + tmp2; +); + +/////////// end of new Hatchdata(cindy) /////////// + + Shade(plist):=Shade(plist,[]); Shade(plist,options):=( //help:Shade(["gr2","sg1"],[0.5]); diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2.cs deleted file mode 100644 index 68775f1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2.cs +++ /dev/null @@ -1,5141 +0,0 @@ -// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team -// -//This program is free software: you can redistribute it and/or modify -// it under the terms of the GNU General Public License as published by -// the Free Software Foundation; either version 3 of the License, or -// (at your option) any later version. -// -// This program is distributed in the hope that it will be useful, -// but WITHOUT ANY WARRANTY; without even the implied warranty of -// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -// GNU General Public License for more details. -// -// You should have received a copy of the GNU General Public License -// along with this program. If not, see <http://www.gnu.org/licenses/> -// - -println("ketcindybasic2(2017.08.23) loaded"); - -//help:start(); - -Dispchoice():=( - if(islist(Ch), - if(!isreal(ChNum),ChNum=1); - drawtext(mouse().xy,"Ch="+text(Ch)+" N="+text(ChNum),size->24,color->[0,0,1]); - ); -); - -Datetime():=( -//help:Datetime(); - regional(names,dt,tmp); - tmp=getdatetime(); - dt=tokenize(tmp," "); - dt=apply(dt,if(!isstring(#),text(#),#)); - names=["Jan","Feb","Mar","Apr","May","Jun", - "Jul","Aug","Sep","Oct","Nov","Dec"]; - tmp=select(1..12,names_#==dt_2); - tmp=text(tmp_1); - tmp=[dt_6+"/"+tmp+"/"+dt_3,dt_4]; -); - -Rotatepoint(point,Theta,ctr):=( -//help:Rotatepoint(A,2*pi/3,B); - regional(X1,X2,Y1,Y2,Cx,Cy,tmp); - tmp=Lcrd(point); - X1=tmp_1; Y1=tmp_2; - tmp=Lcrd(ctr); - Cx=tmp_1; Cy=tmp_2; - X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); - Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); - [X2,Y2]; -); - -Translatepoint(point,mov):=( -//help:Translatepoint(A,[2,3]); - regional(X1,X2,Y1,Y2,Cx,Cy,tmp); - tmp=Lcrd(point); - X1=tmp_1; Y1=tmp_2; - tmp=Lcrd(mov); - Cx=tmp_1; Cy=tmp_2; - X2=X1+Cx; - Y2=Y1+Cy; - [X2,Y2]; -); - -Scalepoint(point,ratio,center):=( -//help:Scalepoint(A,[3,2],[0,0]); - regional(X1,X2,Y1,Y2,Cx,Cy,tmp); - tmp=Lcrd(point); - X1=tmp_1; Y1=tmp_2; - tmp=Lcrd(center); - Cx=tmp_1; Cy=tmp_2; - X2=Cx+ratio_1*(X1-Cx); - Y2=Cy+ratio_2*(Y1-Cy); - [X2,Y2]; -); - -Reflectpoint(point,symL):=( -//help:Reflectpoint(A,B); -//help:Reflectpoint(A,[[2,3]]); -//help:Reflectpoint(A,[C,E]);\\ - regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp); - tmp=Lcrd(point); - X1=tmp_1; Y1=tmp_2; - Pt1=Lcrd(symL_1); - if(length(symL)==1, - Pt2=Pt1; - , - Pt2=Lcrd(symL_2); - ); - Us=Pt2_1-Pt1_1; - Vs=Pt2_2-Pt1_2; - if(Pt1==Pt2, - X2=2*Pt1_1-X1; - Y2=2*Pt1_2-Y1; - , - X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1 - -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); - Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1 - +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); - ); - [X2,Y2]; -); - -Rotatedata(nm,plist,Theta):=Rotatedata(nm,plist,Theta,[]); -Rotatedata(nm,plist,angle,options):=( -//help:Rotatedata("1","crAB",pi/3,[[1,5],"dr,2"]); - regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdLL,PdL, - opcindy,Nj,Njj,Kj,Mj,X1,Y1,X2,Y2,Ltype,Noflg,name); - name="rt"+nm; - Pt=[0,0]; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - tmp1=tmp_6; - if(length(tmp1)>0,Pt=Lcrd(tmp1_1)); - pdata=plist; - if(isstring(pdata),pdata=[pdata]); - if(!isstring(pdata_1) & MeasureDepth(pdata)==1, - pdata=[pdata]; - ); - if(isstring(angle),Theta=parse(angle),Theta=angle); - Cx=Pt_1; Cy=Pt_2; - PdL=[]; - forall(pdata,Njj, - if(isstring(Njj),Kj=parse(Njj),Kj=Njj); - if(MeasureDepth(Kj)==1,Kj=[Kj]); - tmp2=[]; - forall(Kj,Nj, - tmp1=[]; - forall(Nj, - tmp=LLcrd(#); - X1=tmp_1; - Y1=tmp_2; - X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); - Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); - tmp1=concat(tmp1,[[X2,Y2]]); - ); - tmp2=concat(tmp2,[tmp1]); - ); - PdL=concat(PdL,tmp2); - ); - if(Noflg<3, - println("generate Rotatedata "+name); - tmp1=[]; - forall(PdL,tmp2, - tmp=apply(tmp2,Pcrd(#)); - tmp1=append(tmp1,tmp); - ); - if(length(tmp1)==1,tmp1=tmp1_1); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); -// tmp1=textformat(plist,5); - tmp1=text(plist); // 15.10.15 - tmp1=replace(tmp1,"[","list("); - tmp1=replace(tmp1,"]",")"); - tmp=name+"=Rotatedata("+tmp1+"," - +textformat(angle,5)+","+textformat(Pt,5)+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - PdL; -); - -Translatedata(nm,plist,mov):=Translatedata(nm,plist,mov,[]); -Translatedata(nm,plist,mov,options):=( -//help:Translatedata("1",["gr1"],[1,2]); - regional(tmp,tmp1,tmp2,pdata,Cx,Cy,PdL,Nj,Njj,Kj, - opcindy,X2,Y2,Ltype,Noflg,name); - name="tr"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - pdata=plist; - if(isstring(pdata),pdata=[pdata]); - if(!isstring(pdata_1) & MeasureDepth(pdata)==1, - pdata=[pdata]; - ); - tmp=Lcrd(mov); - Cx=tmp_1; Cy=tmp_2; - PdL=[]; - forall(pdata,Njj, - if(isstring(Njj),Kj=parse(Njj),Kj=Njj); - if(MeasureDepth(Kj)==1,Kj=[Kj]); - tmp2=[]; - forall(Kj,Nj, - tmp1=[]; - forall(Nj, - tmp=LLcrd(#); - X2=tmp_1+Cx; - Y2=tmp_2+Cy; - tmp1=concat(tmp1,[[X2,Y2]]); - ); - tmp2=concat(tmp2,[tmp1]); - ); - PdL=concat(PdL,tmp2); - ); - if(Noflg<3, - println("generate Translatedata "+name); - tmp1=[]; - forall(PdL,tmp2, - tmp=apply(tmp2,Pcrd(#)); - tmp1=append(tmp1,tmp); - ); - if(length(tmp1)==1,tmp1=tmp1_1); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); -// tmp1=textformat(plist,5); - tmp1=text(plist); // 15.10.15 - tmp1=replace(tmp1,"[","list("); - tmp1=replace(tmp1,"]",")"); - tmp=name+"=Translatedata("+tmp1+","+textformat(mov,5)+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - PdL; -); - -Scaledata(nm,plist,ratioV):=( - regional(tmp); - tmp=Lcrd(ratioV); - Scaledata(nm,plist,tmp_1,tmp_2,[]); -); -Scaledata(nm,plist,Arg1,Arg2):=( -//help:Scaledata("1","crAB",3,2,[[0,0]]); - regional(tmp,options); - if(islist(Arg2), - tmp=Lcrd(Arg1); - options=Arg2; - Scaledata(nm,plist,tmp_1,tmp_2,options); - , - Scaledata(nm,plist,Arg1,Arg2,[]); - ); -); -Scaledata(nm,plist,rx,ry,options):=( - regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdL, - opcindy,Nj,Njj,Kj,X2,Y2,Ltype,Noflg,name); - name="sc"+nm; - Pt=[0,0]; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - tmp1=tmp_6; - if(length(tmp1)>0, - Pt=Lcrd(tmp1_1); - ); - pdata=plist; - if(isstring(pdata),pdata=[pdata]); - if(!isstring(pdata_1) & MeasureDepth(pdata)==1, - pdata=[pdata]; - ); - Cx=Pt_1; Cy=Pt_2; - PdL=[]; - forall(pdata,Njj, - if(isstring(Njj),Kj=parse(Njj),Kj=Njj); - if(MeasureDepth(Kj)==1,Kj=[Kj]); - tmp2=[]; - forall(Kj,Nj, - tmp1=[]; - forall(Nj, - tmp=LLcrd(#); - X2=Cx+rx*(tmp_1-Cx); - Y2=Cy+ry*(tmp_2-Cy); - tmp1=concat(tmp1,[[X2,Y2]]); - ); - tmp2=concat(tmp2,[tmp1]); - ); - PdL=concat(PdL,tmp2); - ); - if(Noflg<3, - println("generate Scaledata "+name); - tmp1=[]; - forall(PdL,tmp2, - tmp=apply(tmp2,Pcrd(#)); - tmp1=append(tmp1,tmp); - ); - if(length(tmp1)==1,tmp1=tmp1_1); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); - tmp1=text(plist); // 15.10.15 - tmp1=replace(tmp1,"[","list("); - tmp1=replace(tmp1,"]",")"); - tmp=name+"=Scaledata("+tmp1+"," - +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - PdL; -); - -Reflectdata(nm,plist,symL):=Reflectdata(nm,plist,symL,[]); -Reflectdata(nm,plist,symL,options):=( -//help:Reflectdata("1","crAB",[C]); - regional(tmp,tmp1,tmp2,pdata,Us,Vs,Pt1,Pt2,Cx,Cy,PdL, - opcindy,Nj,Njj,Kj,X1,Y1,X2,Y2,Ltype,Noflg,name); - name="re"+nm; - Pt=[0,0]; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opcindy=tmp_(length(tmp)); - pdata=plist; - if(isstring(pdata),pdata=[pdata]); - if(!isstring(pdata_1) & MeasureDepth(pdata)==1, - pdata=[pdata]; - ); - Pt1=Lcrd(symL_1); - if(length(symL)==1, - Pt2=Pt1; - , - Pt2=Lcrd(symL_2); - ); - Us=Pt2_1-Pt1_1; - Vs=Pt2_2-Pt1_2; - PdL=[]; - forall(pdata,Njj, - if(isstring(Njj),Kj=parse(Njj),Kj=Njj); - if(MeasureDepth(Kj)==1,Kj=[Kj]); - tmp2=[]; - forall(Kj,Nj, - tmp1=[]; - forall(Nj, - tmp=LLcrd(#); - X1=tmp_1; - Y1=tmp_2; - if(Pt1==Pt2, - X2=2*Pt1_1-X1; - Y2=2*Pt1_2-Y1; - , - X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1 - -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); - Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1 - +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); - ); - tmp1=concat(tmp1,[[X2,Y2]]); - ); - tmp2=concat(tmp2,[tmp1]); - ); - PdL=concat(PdL,tmp2); - ); - if(Noflg<3, - println("generate Reflectdata "+name); - tmp1=[]; - forall(PdL,tmp2, - tmp=apply(tmp2,Pcrd(#)); - tmp1=append(tmp1,tmp); - ); - if(length(tmp1)==1,tmp1=tmp1_1); - tmp=name+"="+textformat(tmp1,5); - parse(tmp); -// tmp1=textformat(plist,5); - tmp1=text(plist); // 15.10.15 - tmp1=replace(tmp1,"[","list("); - tmp1=replace(tmp1,"]",")"); - tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")"; - GLIST=append(GLIST,tmp); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - PdL; -); - -Mksegments():=Mksegments([]); -Mksegments(options):=( -//help:Mksegments(); - regional(segstr,p,q,r,tmp1,tmp2,tmp3); - forall(allsegments(),seg, - str=text(inspect(seg,"definition")); - tmp1=indexof(str,"("); - tmp2=indexof(str,";"); - tmp3=indexof(str,")"); - p=substring(str,tmp1,tmp2-1); - q=substring(str,tmp2,tmp3-1); - Listplot([parse(p),parse(q)]); - ); -); - -Mkcircles():=Mkcircles([]); -Mkcircles(options):=( -//help:Mkcircles(): - regional(seg,cir,str,p,q,r,tmp1,tmp2,tmp3,tmp4); - forall(allcircles(),cir, - str=text(inspect(cir,"definition")); - tmp1=indexof(str,"("); - tmp2=indexof(str,";"); - tmp3=indexof(str,")"); - tmp4=indexof(str,";",tmp2+1); - if(tmp4==0, - p=substring(str,tmp1,tmp2-1); - q=substring(str,tmp2,tmp3-1); - Circledata([parse(p),parse(q)]); - , - p=substring(str,tmp1,tmp2-1); - q=substring(str,tmp2,tmp4-1); - r=substring(str,tmp4,tmp3-1); - Circledata([parse(p),parse(q),parse(r)]); - ); - ); -); - -Makesciarg(arglist):=( - regional(str,tmpstr); - str=""; - forall(arglist, - if(isstring(#), - tmpstr=Dq+#+Dq; - , - tmpstr=textformat(#,5); - ); - str=str+tmpstr+","; - ); - str=substring(str,0,length(str)-1); - str; -); - -Setax(arglist):=( -//help:Setax(["l","x","e","y","n","O","sw"]); -//help:Setax([7,"nw"]); - regional(tmp); - tmp=Makesciarg(arglist); - Com1st("Setax("+tmp+")"); -); - -Htickmark(arglist):=( -//help:Htickmark([1,"1",2,"sw","2"]); - regional(tmp); - tmp=""; - tmp=Makesciarg(arglist); - Com2nd("Htickmark("+tmp+")"); -); - -Vtickmark(arglist):=( -//help:Vtickmark([1,"1",2,"sw","2"]); - regional(tmp); - tmp=Makesciarg(arglist); - Com2nd("Vtickmark("+tmp+")"); -); - -Vtick(py):=Vtick(py,MARKLEN,[]); -Vtick(py,len):=Vtick(py,len,[]); -Vtick(py,len,options):=( -//help:Vtick(1,0.1,options); - regional(tmp,tmp1,tmp2); - tmp="v"+text(round(py*100)); - tmp=replace(tmp,"-","m"); - tmp1=[0-len/2,py]; - tmp2=[0+len/2,py]; - Listplot(tmp,[tmp1,tmp2],options); -); - -Htick(px):=Htick(px,MARKLEN,[]); -Htick(px,len):=Htick(px,len,[]); -Htick(px,lenorg,options):=( -//help:Htick(-1,0.1,options); - regional(len,tmp,tmp1,tmp2); - tmp=LLcrd([0,lenorg]); - len=tmp_2; - tmp="h"+text(round(px*100)); - tmp=replace(tmp,"-","m"); - tmp1=[px,0-len/2]; - tmp2=[px,0+len/2]; - Listplot(tmp,[tmp1,tmp2],options); -); - -Drwxy():=( -//help:Drwxy(); - Com2nd("Drwxy()"); - Addax(0); // 16.01.21 -); - -Drwpt(pstr):=Drawpoint(pstr); -Drwpt(ptlist,nn):=( // 16.03.05 from -//help:Drwpt(A); -//help:Drwpt("[1,1],0"); -//help:Drwpt(A,0); -//help:Drwpt([1,2],0); - Drawpoint(ptlist,nn); -); -Drawpoint(pstr):=( - if(isstring(pstr), - println("Drwpt : "+pstr); - Com2nd("Drwpt("+pstr+")"); - , - Drawpoint(pstr,1); - ); -); -Drawpoint(ptlistorg,nn):=( - regional(ptlist,thick,tmp,tmp1); - println("Drwpt : "+text(ptlistorg)); - if(islist(ptlistorg), - if(MeasureDepth(ptlistorg)==1, - ptlist=ptlistorg - , - ptlist=[ptlistorg] - ); - , - ptlist=[ptlistorg] - ); - thick=PenThick/PenThickInit;// 16.04.09 from - tmp1=max(TenSize/TenSizeInit,1)/8; - Setpen(tmp1); // 16.04.09 upto - forall(ptlist, - tmp=textformat(#,5)+","+text(nn); - Com2nd("Drwpt("+tmp+")"); // 16.04.09 - ); - Setpen(thick); // 16.04.09 -);// 16.03.05 upto - -Addax(param):=( -//help:Addax(0); - ADDAXES=textformat(param,5); -); - -Expr(Pt,Dr,St):=Expr([Pt,Dr,St]); -Expr(list):=Expr(list,[]); -Expr(listorg,options):=( //16.10.09 -//help:Expr([A,"e","f(x)=x^2"]); - regional(list,str,tmp,tmp1,tmp2); - list=listorg; - forall(1..round(length(list)/3), - str=list_(3*#); - if(!isstring(str),str=format(str,5)); - str="$"+str+"$"; - list_(3*#)=str; - ); - Letter(list,options); -); - -Letter(Pt,Dr,St):=Letter([Pt,Dr,St]); -Letter(list):=Letter(list,[]); -Letter(list,options):=( -//help:Letter([C,"c","Graph of f(x)"]); - regional(Nj,Pos,Dir,Str,Off,Dmv,Xmv,Ymv,Noflg,opcindy, - opL,aln,sz,clr,bld,ita,tmp,tmp1,tmp2); - tmp=Divoptions(options); - Noflg=tmp_2; - opL=select(options,indexof(#,"->")>0); //16.10.09from - tmp=select(opL,indexof(#,"color")); - size=12; - clr=[0,0,0]; - bld=false; - ita=false; - aln="left"; - forall(opL, - tmp=indexof(#,"->"); - tmp1=removespace(substring(#,0,tmp-1)); - tmp2=substring(#,tmp+1,length(#)); - if(tmp1=="size",sz=parse(tmp2)); - if(tmp1=="color",clr=parse(tmp2)); - if(tmp1=="bold",bld=parse(tmp2)); - if(tmp1=="ita",ita=parse(tmp2)); - );//16.10.09upto - Off=-4; - Dmv=8; - Nj=1; - while(Nj+2<=length(list), -// Pos=textformat(list_Nj,5); - Pos=list_Nj; - Dir=list_(Nj+1); - tmp=indexof(Dir,"s")+indexof(Dir,"n");//16.10.19from - if(tmp>0, - tmp=indexof(Dir,"w")+indexof(Dir,"e"); - if(tmp==0, - Dir="c"+Dir;//16.10.08 - ); - );//16.10.19upto - Str=list_(Nj+2); - if(!isstring(Str),Str=format(Str,5)); // 16.09.30,10.09 - tmp=replace(Str,".xy",""); - tmp=replace(tmp,".x","(1)"); - Str=replace(tmp,".y","(2)"); - if(indexof(Str,"`")>0, -// tmp=Dq+",Assign('"+Str+"','`',Prime()))"; - tmp=Dq+",Assign('"+Str+"'))"; // 15.02.22 - , - tmp=Dq+","+Dq+Str+Dq+")"; - ); - if(Noflg==0, - Com2nd("Letter("+Lcrd(Pos)+","+Dq+Dir+tmp);//16.10.10 - ); - if(Noflg<2, - Xmv=0;//16.10.13 - Ymv=-4; - if(indexof(Dir,"n")>0, - Ymv=Dmv/2; - ); - if(indexof(Dir,"s")>0, - Ymv=-Dmv*3/2;//16.10.13 - ); - if(indexof(Dir,"e")>0, - Xmv=Dmv/2; - Off=0; - aln="left"; - ); - if(indexof(Dir,"w")>0, - Xmv=-Dmv/2; - Off=0; // 16.09.30from - aln="right"; - ); - if(indexof(Dir,"c")>0, - Xmv=0;//16.10.13 - Off=0; - if(Ymv==0,Ymv=-4);//16.10.08 - aln="mid"; // 16.09.30upto - ); - drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv], - size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09 - ); - Nj=Nj+3; - ); -); - -Letterrot(pt,dir,str):=Letterrot(pt,dir,0,0,str); -Letterrot(pt,dir,movstr,str):=( -//help:Letterrot(C,B-A,"AB"): -//help:Letterrot(C,B-A,0,5,"AB"): -//help:Letterrot(C,B-A,"t0n5","AB"): - regional(tmov,nmov,tmp,tmp1,tmp2); - tmp1=indexof(movstr,"t"); - tmp2=indexof(movstr,"n"); - if(tmp1>0, - if(tmp2>0,tmp=tmp2-1,tmp=length(movstr)); - tmov=parse(substring(movstr,tmp1,tmp)); - , - tmov=0; - ); - if(tmp2>0, - nmov=parse(substring(movstr,tmp2,length(movstr))); - , - nmov=0; - ); - Letterrot(pt,dir,tmov,nmov,str); -); -Letterrot(pt,dir,tmov,nmov,str):=( - Letter([pt,"c",str],["notex"]); - Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')"); -); - -Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str); -Exprrot(pt,dir,movstr,str):=( -//help:Exprrot(C,B-A,"d"): -//help:Exprrot(C,B-A,0,5,"d"): -//help:Exprrot(C,B-A,"t0n5","d"): - regional(tmov,nmov,tmp,tmp1,tmp2); - tmp1=indexof(movstr,"t"); - tmp2=indexof(movstr,"n"); - if(tmp1>0, - if(tmp2>0,tmp=tmp2-1,tmp=length(movstr)); - tmov=parse(substring(movstr,tmp1,tmp)); - , - tmov=0; - ); - if(tmp2>0, - nmov=parse(substring(movstr,tmp2,length(movstr))); - , - nmov=0; - ); - Exprrot(pt,dir,tmov,nmov,str); -); -Exprrot(pt,dir,tmov,nmov,str):=( - Expr([pt,"c",str],["notex"]); - Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')"); -); - -Putslider(ptstr,p1,p2):=Slider(ptstr,p1,p2); -Slider(ptstr,p1,p2):=( //17.04.11 -//help:Slider("A-C-B",[-3,0],[3,0]); - regional(pA,pB,pC,seg,sname,Alpha,tmp,tmp1); - tmp=indexall(ptstr,"-"); - pA=substring(ptstr,0,tmp_1-1); - pC=substring(ptstr,tmp_1,tmp_2-1); - pB=substring(ptstr,tmp_2,length(ptstr)); - seg=pA+pB; - Alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZ"; - sname=""; - forall(1..(length(seg)), - tmp=substring(seg,#-1,#); - tmp1=indexof(Alpha,tmp); - if(tmp1>0, - sname=sname+unicode(text(tmp1+96),base->10); - , - sname=sname+tmp; - ); - ); - Putpoint(pA,p1); - Putpoint(pB,p2); - Listplot([parse(pA),parse(pB)],["notex","color->[0,0.4,0.4]","size->2"]); -// create([sname],"Segment",[parse(pA),parse(pB)]); -// tmp2=Listplot("",[p1,p2],["nodata"]); - Putonseg(pC,parse("sg"+pA+pB)); -// create([pC],"PointOn",[parse(sname),0.5]); -); - -Putpoint(name,Pt):=Putpoint(name,Pt,Pt); -Putpoint(name,Ptinit,Pt):=( -//help:Putpoint("A",[1,2],[1,A.y]); - regional(ptstr); - ptstr=apply(allpoints(),#.name);//16.10.06 - if(!contains(ptstr,name), - createpoint(name,Pcrd([Ptinit_1,Ptinit_2])); - , - ptstr=name+".xy="+textformat(Pcrd(Pt),5); - parse(ptstr); - ); -); - -Bezierpt(t,ptlist,ctrlist):=( - regional(flg3,p0,p1,p2,p3,p4,p5,p6,p7,p8,p9); - p0=ptlist_1; - p3=ptlist_2; - p1=ctrlist_1; - if(length(ctrlist)==1, - p2=p3; - flg3=0; - , - p2=ctrlist_2; - flg3=1; - ); - if(length(p0)<3, // 15.02.08 - p0=Lcrd(p0); - p3=Lcrd(p3); - p1=Lcrd(p1); - p2=Lcrd(p2); - ); - p4=(1-t)*p0+t*p1; - p5=(1-t)*p1+t*p2; - p6=(1-t)*p2+t*p3; - p7=(1-t)*p4+t*p5; - p8=(1-t)*p5+t*p6; - p9=(1-t)*p7+t*p8; - if(flg3==0,p7,p9); -); - -Bezier(ptctrlist):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,[]); -Bezier(ptctrlist,options):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,options); -Bezier(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]); -Bezier(nm,ptlist,ctrlist,options):=BezierCurve(nm,ptlist,ctrlist,options); -BezierCurve(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]); -BezierCurve(nm,ptlistorg,ctrlistorg,options):=( -//help:Bezier("1",[A,D],[B,C]); -//help:Bezier(options=["Num=10"]); - regional(name,Ltype,Noflg,opstr,opcindy,Num, - ptlist,ctrlist,tmp,tmp1,tmp2,ii,st,out,list); - name="bz"+nm; - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - Num=10; - tmp1=tmp_5; - forall(tmp1, // 14.12.31 - if(substring(#,0,1)=="N", - tmp2=indexof(#,"="); - Num=parse(substring(#,tmp2,length(#))); - opstr=opstr+","+Dq+#+Dq; - ); - ); - ptlist=apply(ptlistorg,Lcrd(#)); // 16.08.16 - ctrlist=[]; // 14.12.31 - if(length(ctrlistorg)==length(ptlist)-1, - forall(ctrlistorg,tmp1, - if(MeasureDepth(tmp1)==0,tmp=[tmp1],tmp=tmp1); - tmp=apply(tmp,Lcrd(#)); // 16.08.16 - ctrlist=append(ctrlist,tmp); - ); - , - forall(1..(length(ptlist)-1),ii, - tmp=ctrlistorg_((2*ii-1)..(2*ii)); - tmp=apply(tmp,Lcrd(#)); // 16.08.16 - ctrlist=append(ctrlist,tmp); - ); - ); - if(!islist(Num), - Num=apply(ctrlist,Num); - ); - list=[]; - forall(1..(length(ptlist)-1),ii, - tmp1=ptlist_(ii..(ii+1)); - tmp2=ctrlist_ii; - if(ii==1,st=0,st=1); - forall(st..Num_ii, - tmp=Bezierpt(#/Num_ii,tmp1,tmp2); - list=append(list,tmp); - ); - ); - if(Noflg<3, - println("generate Bezier "+name); - out=apply(list,Pcrd(#)); - tmp=name+"="+textformat(out,5); - parse(tmp); - tmp1=textformat(ptlist,5); - tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")"; - tmp2=textformat(ctrlist,5); - tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")"; - GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")"); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - list; -); - -Readcsvsla(fname):=Readplotdigdata(fname,[]); -Readcsvsla(fname,options):=Readplotdigdata(fname,options); -Readplotdigdata(fname):=Readplotdigdata(fname,[]); -Readplotdigdata(fname,options):=( - regional(fsc,mv,cmdall,dataL,nd,npt,ptdata,ii,tmp,tmp1,tmp2,tmp3); - tmp=Divoptions(options); - tmp1=tmp_6; - sc=1;//10; - mv=[0,0];//[5,5]; - forall(tmp1, - if(!islist(#),sc=#,mv=#); - ); - if(indexof(fname,".")>0, - tmp=load(fname); - , - tmp=load(fname+".txt"); - ); - cmdall=tokenize(tmp,"//"); - dataL=[]; - forall(2..length(cmdall),ii, - tmp1=parse("["+cmdall_ii+"]"); - dataL=append(dataL,tmp1); - ); - if(length(dataL_(length(dataL)))<2, - dataL=dataL_(1..(length(dataL)-1)); - ); - nd=length(dataL_1)/2; - npt=length(dataL); - ptdata=[]; - forall(1..nd,ii, - tmp3=[]; - forall(1..npt, - tmp1=dataL_#_(2*ii-1); - tmp2=dataL_#_(2*ii); - if(isreal(tmp1), - tmp3=append(tmp3,[tmp1,tmp2]); - ); - ); - ptdata=append(ptdata,tmp3); - ); - tmp1=[]; - forall(ptdata, - tmp=#/sc; - tmp=Translatedata("1",[tmp],-mv,["nodata"]); - tmp1=append(tmp1,tmp); - ); - ptdata=tmp1; - ptdata; -); - -Putbezierdata(name,ptL):=Putbezierdata(name,ptL,[]); -Putbezierdata(name,ptL,options):=( - regional(psize,Deg,tmp,tmp1,tmp2,p1,p2,pts,ctrs); - tmp=Divoptions(options); - psize=3; - Deg=3; - tmp1=tmp_5; - forall(tmp1, - if(substring(#,0,1)=="D", - tmp=indexof(#,"="); - Deg=parse(substring(#,tmp,length(#))); - ); - if(substring(#,0,1)=="S", - tmp=indexof(#,"="); - psize=parse(substring(#,tmp,length(#))); - ); - ); - pts=[]; - ctrs=[]; - forall(1..length(ptL), - p2=ptL_#; // 16.08.16 - if(ispoint(p2), - tmp1=text(p2); - , - tmp1=name+text(#); - Putpoint(tmp1,p2,Lcrd(parse(tmp1))); // 16.08.16 - ); - inspect(parse(tmp1),"ptsize",psize); - pts=append(pts,parse(tmp1)); - inspect(parse(tmp1),"color",4); - if(#>1, - p1=Lcrd(ptL_(#-1)); // 16.08.16 - p2=Lcrd(ptL_#); // 16.08.16 - if(Deg==3, - tmp=(2*p1+p2)/3; - tmp1=name+"p"+text(#-1); - Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16 - inspect(parse(tmp1),"labeled",false); //15.01.22 - Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22 - inspect(parse(tmp1),"ptsize",psize); - inspect(parse(tmp1),"color",3); - tmp=(p1+2*p2)/3; - tmp2=name+"q"+text(#-1); - Putpoint(tmp2,tmp,Lcrd(parse(tmp2))); // 16.08.16 - inspect(parse(tmp2),"labeled",false); //15.01.22 - Letter([parse(tmp2),"ne",tmp2],["notex"]); //15.01.22 - inspect(parse(tmp2),"ptsize",psize); - inspect(parse(tmp2),"color",3); - ctrs=append(ctrs,[parse(tmp1),parse(tmp2)]); - , - tmp=(p1+p2)/2; - tmp1=name+"p"+text(#-1); - Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16 - inspect(parse(tmp1),"labeled",false); //15.01.22 - Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22 - inspect(parse(tmp1),"ptsize",psize); - inspect(parse(tmp1),"color",3); - ctrs=append(ctrs,[parse(tmp1)]); - ); - ); - ); - [pts,ctrs,name]; -); - -Bezierstart(n):=( // 2016.02.26 - BezierNumber=n; -); - -Mkbezierptcrv(ptdata):=Mkbezierptcrv(ptdata,[]); -Mkbezierptcrv(ptdata,options):=( - //help:Mkbezierptcrv([A,B,C,D]); - //help:Mkbezierptcrv([[A,B],[C,D]]); - //help:Mkbezierptcrv(options=["Num=10"]); - // global BezierNumber - regional(ptlist,Out,tmp,tmp1,tmp2); - if(isstring(ptdata), - ptlist=Readcsvsla(ptdata,options); - , - ptlist=ptdata; - ); - if(MeasureDepth(ptlist)==1,ptlist=[ptlist]); - Out=[]; - forall(1..length(ptlist), - tmp=floor((BezierNumber-1)/26);// 15.02.23 - if(tmp==0,tmp="",tmp=text(tmp)); - tmp2=mod(BezierNumber,26); - if(tmp2==0,tmp2=26); - tmp1=unicode(text(96+tmp2),base->10)+tmp;// 15.03.11 - tmp2=Putbezierdata(tmp1,ptlist_#,options); - Bezier(tmp2,options); - BezierNumber=BezierNumber+1; - Out=append(Out,tmp2_(1..2)); - ); - Out; -); - -Mkbeziercrv(nm,ptctrL):=Mkbeziercrv(nm,ptctrL,[]); -Mkbeziercrv(nm,ptctrL,options):=( - //help:Mkbeziercrv("1",[[A,B,C,D],[[P,Q],[R,S],T]]); - regional(ptctrLL,name,ptlist,ctrlist,tmp,tmp1,tmp2); - if(MeasureDepth(ptctrL)==2,ptctrLL=[ptctrL],ptctrLL=ptctrL); - forall(1..length(ptctrLL), - name=nm+text(#); - ptlist=ptctrLL_#_1; - ctrlist=ptctrLL_#_2; - Bezier(nm,ptlist,ctrlist,options); // 17.01.06 - ); -); - -Writebezier():=Writebezier(Fhead,"all"); -Writebezier(head):=Writebezier(head,"all"); -Writebezier(head,seL):=( -//help:Writebezier(file); -//help:Writebezier(file,"acd"); - regional(bz,dt,name,tmp,tmp1,tmp2); - bz=select(GLIST,indexof(#,"=Bezier")>0); - tmp1=[]; // 16.04.22from - if(seL!="all", - forall(1..length(seL), - tmp=substring(seL,#-1,#); - tmp=select(bz,indexof(#,"bz"+tmp)>0); - tmp1=concat(tmp1,tmp); - ); - bz=tmp1;// 16.04.22upto - ); - dt=[head+"n",[[length(bz),0]]]; - forall(1..length(bz), - tmp=indexof(bz_#,"="); - name=substring(bz_#,0,tmp-1); - tmp=indexof(bz_#,","+Dq); - if(tmp>0, - tmp1=substring(bz_#,0,tmp-1)+")"; - , - tmp1=bz_#; - ); - tmp1=replace(tmp1,"Bezier(","["); - tmp1=replace(tmp1,"list(","["); - tmp1=replace(tmp1,")","]"); - tmp1=replace(tmp1,",",".xy,"); - tmp1=replace(tmp1,"]",".xy]"); - tmp1=replace(tmp1,".xy,[",",["); - tmp1=replace(tmp1,"].xy","]"); - tmp1=replace(tmp1,name,head+text(#)); - parse(tmp1); - tmp=parse(head+text(#)+"_1"); - dt=concat(dt,[head+text(#)+"k",tmp]); - tmp=parse(head+text(#)+"_2"); - dt=concat(dt,[head+text(#)+"c",tmp]); - ); - WriteOutData(head+".txt",dt); - dt; -); - -Readbezier(file):=Readbezier(file,[]); -Readbezier(file,optionorg):=( -//help:Readbezier("xsr"); -//help:Readbezier(options=["Num=10","nogeo"]); - regional(nn,options,stL,geo,nc,alpha,out,tmp,tmp1,tmp2,tmp3); - options=optionorg; - tmp=Divoptions(options); - stL=tmp_7; - geo=0; - forall(stL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="G",geo=1); - options=remove(options,[#]); - ); - ReadOutData(file); - tmp=file+"n_1_1"; - nn=parse(tmp); - out=[]; - forall(1..nn,nc, - tmp=file+text(nc); - tmp1=parse(tmp+"k"); - tmp2=parse(tmp+"c"); - if(MeasureDepth(tmp2)==1,tmp2=[tmp2]); // 16.04.22from - if(geo==1, - alpha="abcdefghijklmnopqrstuvwxyz"; - forall(1..length(tmp1), - tmp="k"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#); - Putpoint(tmp,tmp1_#,parse(tmp+".xy")); - inspect(parse(tmp),"labeled",false); - inspect(parse(tmp),"ptsize",3); - tmp1_#=parse(tmp+".xy"); - ); - forall(1..length(tmp2), - tmp="c"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#)+"1"; - Putpoint(tmp,tmp2_#_1,parse(tmp+".xy")); - inspect(parse(tmp),"labeled",false); - inspect(parse(tmp),"color",4); - inspect(parse(tmp),"ptsize",3); - tmp2_#_1=parse(tmp+".xy"); - tmp="c"+BezierNumber+"no"+text(nc)+substring(alpha,#-1,#)+"2"; - Putpoint(tmp,tmp2_#_2,parse(tmp+".xy")); - inspect(parse(tmp),"labeled",false); - inspect(parse(tmp),"color",4); - inspect(parse(tmp),"ptsize",3); - tmp2_#_2=parse(tmp+".xy"); - ); - BezierNumber=BezierNumber+1; - ); - Bezier(file+text(nc),tmp1,tmp2,options);// 16.04.22upto - out=append(out,"bz"+tmp); - ); - out; -); - -Ospline(nm,ptlist):=Ospline(nm,ptlist,[]); -Ospline(nm,ptlist,options):=( -//help:Ospline("1",ptlist,[options]); - regional(tmp,tmp1,tmp2,list,ptL,ctrL,name,closed,flg, - p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32); - name="o"+nm; - if(isstring(ptlist),list=parse(ptlist),list=ptlist); - if(|list_1-list_(length(list))|<10^(-6),closed=1,closed=0); -// list=apply(list,LLcrd(#)); - ctrL=[]; - forall(1..(length(list)-1), - flg=0; - p1=Lcrd(list_#); // 16.08.16 - p2=Lcrd(list_(#+1)); // 16.08.16 - if(#==1 % #==length(list)-1, - flg=1; - if(closed==0, - pQ=(p1+2*p2)/3; // 15.09.21 // 16.08.16 - pR=(2*p1+p2)/3; // 16.08.16 - ctrL=append(ctrL,[pQ,pR]); - flg=2; - , - if(#==1, - p0=Lcrd(list_(length(list)-1)); // 16.08.16 - p3=Lcrd(list_(#+2)); // 16.08.16 - , - p0=Lcrd(list_(#-1)); // 16.08.16 - p3=Lcrd(list_2); // 16.08.16 - ); - ); - ); - if(flg<=1, - if(flg==0, - p0=Lcrd(list_(#-1)); // 16.08.16 - p3=Lcrd(list_(#+2)); // 16.08.16 - ); - tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); - cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; - pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16 - pR=p2+cc*(p1-p3); // 16.08.16 - ctrL=append(ctrL,[pQ,pR]); - ); - ); -// list=apply(list,LLcrd(#)); // 16.08.16 -// ctrL=apply(ctrL,LLcrd(#)); - if(closed==0, // 15.09.21 - p1=ctrL_2_1; - p2=Lcrd(list_2); // 16.08.16 - pQ=p2+(p2-p1); - ctrL_1=[pQ]; - tmp=length(ctrL); - tmp1=ctrL_(tmp-1); - p1=ctrL_(tmp-1)_2; - p2=Lcrd(list_(tmp)); // 16.08.16 - pQ=p2+(p2-p1); - ctrL_tmp=[pQ]; - ); - Bezier("o"+nm,list,ctrL,options); -); - -CRspline(nm,ptL):=CRspline(nm,ptL,[]); -CRspline(nm,ptL,options):=( - // Catmull-Rom spline -//help:CRspline("1",[A,B,C,A]); - regional(name,ptlist,ctrpts,eqL,opcindy,c,v,tmp,tmp1,tmp2,ctrlist,cflg); - name="crsp"+nm; - if(MeasureDepth(ptL)==1,tmp=[ptL],tmp=ptL); - ptlist=tmp_1; - if(length(tmp)==1, - cflg=1; - , - cflg=0; - ctrpts=tmp_2; - ); - c=1/6; - tmp=Divoptions(options); - eqL=tmp_5; - opcindy=tmp_(length(tmp)); // 15.03.05 - forall(eqL, - if(substring(#,0,1)=="R", - tmp2=indexof(#,"="); - c=parse(substring(#,tmp2,length(#))); - ); - ); - ptlist=apply(ptlist,Lcrd(#)); // 16.08.16 - ctrlist=[]; - forall(1..(length(ptlist)-1), - if(#==1, - if(cflg==0, - tmp1=ctrpts_1; - , - v=ptlist_2-ptlist_(length(ptlist)-1); - tmp1=ptlist_#+c*v; - ); - , - v=ptlist_(#+1)-ptlist_(#-1); - tmp1=ptlist_#+c*v; - ); - if(#==length(ptlist)-1, - if(cflg==0, - tmp2=ctrpts_2; - , - v=ptlist_2-ptlist_#; - tmp2=ptlist_(#+1)-c*v; - ); - , - v=ptlist_(#+2)-ptlist_#; - tmp2=ptlist_(#+1)-c*v; - ); - tmp=select(options,indexof(text(#),"->")>0); - tmp=append(tmp,"notex"); //15.03.05 - Pointdata(name+text(#),[tmp1,tmp2],tmp); - ctrlist=append(ctrlist,[tmp1,tmp2]); - ); - Bezier(nm,ptlist,ctrlist,options); -); - -Beziersmooth(nm,ptL):=Bzspline(nm,ptL,[]); -//help:Beziersmooth("1",[A,B,C,A]); -Beziersmooth(nm,ptL,options):=Bzspline(nm,ptL,options); -Bzspline(nm,ptL):=Bzspline(nm,ptL,[]); -Bzspline(nm,ptLorg,options):=( - // smooth bezier - regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr, - tmp,tmp1,tmp2,cflg,ctrlist); - name="bzsp"+nm; - Eps=10^(-3); - ptL=apply(ptLorg,Lcrd(#)); // 16.08.16 - if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0); - forall(2..length(ptL), - pt=ptL_#; - pt1=ptL_(#-1); - tmp1="C"+text(#-1)+"q";// 16.10.07 - Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); // 16.08.16 - ); - forall(2..(length(ptL)-1), - if(#<length(ptL) % cflg==1, - lstr="c"+text(#); - pt=ptLorg_#; // 16.08.16 - pt1=parse("C"+text(#-1)+"q"); - create([lstr],"Join",[pt1,pt]); - tmp2="C"+text(#)+"p"; - tmp=Append((2*pt.xy-pt1.xy),1); - create([tmp2],"PointOnLine",[parse(lstr),tmp]); - ); - ); - if(cflg==0, - pt=ptL_1; - pt1=ptL_2; - tmp1="C1p"; - Putpoint(tmp1,(4*pt+pt1)/5,Lcrd(parse(tmp1))); // 16.08.16 - ); - if(cflg==1, - lstr="c1"; - pt=ptLorg_1; // 16.08.16 - pt1=parse("C"+text(length(ptL)-1)+"q"); - create([lstr],"Join",[pt1,pt]); - tmp1="C1p"; - tmp=Append((2*pt.xy-pt1.xy),1); - create([tmp1],"PointOnLine",[parse(lstr),tmp]); - ); - ctrlist=[]; - forall(1..(length(ptL)-1), - if(#>1 % cflg==1, - tmp1="c"+text(#); - inspect(parse(tmp1),"alpha",0.3); - ); - tmp1="C"+text(#)+"p"; - tmp2="C"+text(#)+"q"; - inspect(parse(tmp1),"ptsize",3); - inspect(parse(tmp1),"color",3); - inspect(parse(tmp2),"ptsize",3); - inspect(parse(tmp2),"color",3); - tmp=[parse(tmp1),parse(tmp2)]; - ctrlist=append(ctrlist,tmp); - ); - Bezier(nm,ptL,ctrlist,options); - [ptL,ctrlist]; -); - -Beziersym(nm,ptL):=Bzsspline(nm,ptL,[]); -Beziersym(nm,ptL,options):=Bzsspline(nm,ptL,options); -Bzsspline(nm,ptL):=Bzsspline(nm,ptL,[]); -Bzsspline(nm,ptLorg,options):=( - // smooth bezier with symmetric control points - regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr, - tmp,tmp1,tmp2,cflg,ctrlist); - name="bzssp"+nm; - Eps=10^(-3); - ptL=apply(ptLorg,Lcrd(#)); // 16.08.16 - if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0); - forall(2..length(ptL), - pt=ptL_#; - pt1=ptL_(#-1); - tmp1="C"+text(#-1)+"q"; - Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); - ); - forall(2..(length(ptL)-1), - if(#<length(ptL) % cflg==1, - pt=ptL_#; - pt1=parse("C"+text(#-1)+"q"); - tmp2="C"+text(#)+"p=2*pt-pt1"; - parse(tmp2); - ); - ); - if(cflg==0, - pt=ptL_1; - pt1=ptL_2; - Putpoint("C1p",(4*pt+pt1)/5,Lcrd(C1p)); // 16.08.16 - inspect(C1p,"ptsize",3); - inspect(C1p,"color",3); - ); - if(cflg==1, - pt=ptL_1; - pt1=Lcrd(parse("C"+text(length(ptL)-1)+"q")); // 16.08.16 - tmp1="Putpoint("+Dq+"C1p"+Dq+",2*pt-pt1)"; // 16.08.16 - parse(tmp1); - ); - ctrlist=[]; - forall(1..(length(ptL)-1), - tmp1="C"+text(#)+"p"; - tmp2="C"+text(#)+"q"; - inspect(parse(tmp2),"ptsize",3); - inspect(parse(tmp2),"color",3); - tmp=[parse(tmp1),parse(tmp2)]; - ctrlist=append(ctrlist,tmp); - ); - Bezier(nm,ptL,ctrlist,options); - [ptL,ctrlist]; -); - -Listbspline2bz(listorg):=( - regional(Eps,list,pcl,ptl,ctrl,k); - Eps=10^(-3); - list=apply(listorg,Lcrd(#)); // 16.08.16 - k=length(list); - if(|list_1-list_k|>Eps, - pcl=list; - pcl_1=2*list_1-list_2; - pcl_k=2*list_k-list_(k-1); - , - pcl=concat(list,[list_2]); - ); - ctrl=apply(2..(length(pcl)-1),[pcl_#]); - ptl=apply(1..(length(pcl)-1),(pcl_#+pcl_(#+1))/2); - [ptl,ctrl]; -); - -Bspline(nm,ctrL):=Bspline(nm,ctrL,[]); -Bspline(nm,ctrL,options):=( -//help:Bspline("",[A,B,C]); - regional(list,tmp); - list=Listbspline2bz(ctrL); - tmp=BezierCurve("b"+nm,list_1,list_2,options); - tmp; -); - -MeetCurve(Crv,Xorg,Yorg):=( - regional(Cv,tmp,tmp1,tmp2,X0,Y0,x1,x2,y1,y2,Ylist,Ban,Tate); - if(isstring(Crv),Cv=parse(Crv),Cv=Crv); - if(MeasureDepth(Cv)==2,Cv=Cv_1); - Cv=apply(Cv,LLcrd(#)); // 14.12.18 - while(length(Cv)==1, - Cv=Cv_1; - ); - Cv=apply(Cv,Lcrd(#)); - tmp1=min(apply(Cv,#_1)); - tmp2=max(apply(Cv,#_1)); - if(isstring(Xorg),X0=parse(Xorg),X0=Xorg); - if(isstring(Yorg),Y0=parse(Yorg),Y0=Yorg); - if(X0<tmp1, - X0=tmp1; - , - if(X0>tmp2, - X0=tmp2; - ); - ); - tmp1=select( - 1..(length(Cv)-1),Cv_#_1<=X0 & X0<=Cv_(#+1)_1); - tmp2=select( - 1..(length(Cv)-1),Cv_#_1>=X0 & X0>=Cv_(#+1)_1); - tmp2=remove(tmp2,common(tmp2,tmp1)); - Ban=concat(tmp1,tmp2); - Tate=select(Ban, - abs(Cv_#_1-Cv_(#+1)_1)<= - 10^(-2)*abs(Cv_#_2-Cv_(#+1)_2) - ); - Ban=remove(Ban,Tate); - Ylist=[]; - forall(Ban, - tmp=Cv_#; - x1=tmp_1; y1=tmp_2; - tmp=Cv_(#+1); - x2=tmp_1; y2=tmp_2; - tmp=((x2-X0)*y1+(X0-x1)*y2)/(x2-x1); - Ylist=append(Ylist,tmp); - ); - forall(Tate, - tmp=Cv_#; - x1=tmp_1; y1=tmp_2; - tmp=Cv_(#+1); - x2=tmp_1; y2=tmp_2; - tmp1=min([y1,y2]); - tmp2=max([y1,y2]); - if(Y0<tmp1, - tmp=tmp1; - , - if(Y0>tmp2, - tmp=tmp2; - , - tmp=Y0; - ); - ); - Ylist=append(Ylist,tmp); - ); - tmp=sort(Ylist,abs(#_1-Y0)); - [X0,tmp_1]; -); - -PutonLine(name,p1,p2):=PutonLine(name,p1,p2,[]); -PutonLine(name,p1org,p2org,options):=( -//help:PutonLine("C","sgAB"); -//help:PutonLine("C",pA,pB); - regional(par,p1,p2,dx,dy,tmp,tmp1,tmp2); - par=0.5; - tmp=Divoptions(options); - if(length(tmp_6)>0, - par=tmp_6_1; - ); - p1=Lcrd(p1org);//16.10.11from - p2=Lcrd(p2org); - dx=p2_1-p1_1; - dy=p2_2-p1_2; - tmp1=(1-par)*p1+par*p2; - if(abs(dx)>abs(dy), - tmp=name+".x"; - tmp2="["+tmp+",dy/dx*("+tmp+"-p1_1)+p1_2]";//16.10.11upto - Putpoint(name,tmp1,parse(tmp2)); - , - if(abs(dy)>0, - tmp=name+".y"; - tmp2="[dx/dy*("+tmp+"-p1.y)+p1_1,"+tmp+"]"; - Putpoint(name,tmp1,parse(tmp2)); - , - tmp2=p1;//16.10.11 - Putpoint(name,tmp1,tmp2); - ); - ); -); - -PutonSeg(name,sgstr):=( - regional(seg,p1,p2); - if(isstring(sgstr),seg=parse(sgstr),seg=sgstr); - PutonSeg(name,LLcrd(seg_1),LLcrd(seg_2)); -); -PutonSeg(name,p1,p2):=PutonSeg(name,p1,p2,[]); -PutonSeg(name,p1org,p2org,options):=( -//help:PutonSeg("C","sgAB"); -//help:PutonSeg("C",pA,pB); - regional(par,dx,dy,p,tmp,tmp1,tmp2); - par=0.5; - tmp=Divoptions(options); - if(length(tmp_6)>0, - par=tmp_6_1; - ); - p1=Lcrd(p1org);//16.10.11from - p2=Lcrd(p2org); - PutonLine(name,p1,p2,[par]); - dx=p2_1-p1_1; - dy=p2_2-p1_2; - p=parse(name+".xy"); - p=LLcrd(p); - if(abs(dx)>abs(dy) & (p_1-p1_1)*(p_1-p2_1)>0, - if(|p-p1|<|p-p2|, - parse(name+".xy=Pcrd(p1)"); - , - parse(name+".xy=Pcrd(p2)"); - ); - ); - if(abs(dx)<abs(dy) & (p_2-p1_2)*(p_2-p2_2)>0, - if(|p-p1|<|p-p2|, - parse(name+".xy=Pcrd(p1)"); - , - parse(name+".xy=Pcrd(p2)");//16.10.11upto - ); - ); -); - -PutonCurve(pn,crv):=PutonCurve(pn,crv,[]); -PutonCurve(pn,crv,options):=( -//help:PutonCurve("A","gr1"); - regional(Pmt,pstr,optionL,leftlim,rightlim,tmp,tmp1,Flg,Msg); - if(!islist(options),optionL=[options],optionL=options); - leftlim=XMIN; - rightlim=XMAX; - Flg=0; - Msg="y"; - forall(optionL, - if(isstring(#), // 16.02.10 from - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,tmp,tmp+1)); - if(tmp1=="N", Msg="n"); // 16.02.10 upto - , - if(Flg==0, - leftlim=#; - Flg=Flg+1; - , - rightlim=#; - ); - ); - ); - Pmt=MeetCurve(crv,leftlim,0); - pstr=apply(allpoints(),textformat(#,5)); // 15.04.07 - if(!contains(pstr,pn), - createpoint(pn,Pcrd(Pmt)); - , - tmp1=parse(pn+".x"); - if(tmp1< leftlim % tmp1>rightlim, - if(tmp1< leftlim,tmp= leftlim, tmp=rightlim); - Pmt=MeetCurve(crv,textformat(tmp,5),pn+".y"); - , - Pmt=MeetCurve(crv,pn+".x",pn+".y"); - ); - ptstr=pn+".xy="+textformat(Pcrd(Pmt),5)+";"; - parse(ptstr); - ); - if(Msg=="y", - println("Put "+pn+" on Curve "+text(crv)); - ); -); - -CrossPoint(name,Crv1,Crv2,range):=( - regional(Mx1,Mx2,Mx3,tmp,Crs1,Crs2,Crs3,Crs4,df1,df2); - Mx1=range_1; Mx2=range_2; - repeat(15, - Mx3=(Mx1+Mx2)/2; - Crs1=MeetCurve(Crv1,Mx1,0); - Crs2=MeetCurve(Crv2,Mx1,0); - Crs3=MeetCurve(Crv1,Mx3,0); - Crs4=MeetCurve(Crv2,Mx3,0); - df1=Crs1_2-Crs2_2; - df2=Crs3_2-Crs4_2; - if((df1>0 & df2>0) % (df1<0 & df2<0), - Mx1=Mx3; - , - Mx2=Mx3; - ); - ); - Putpoint(name,Crs1); -); - -Setscaling(sc):=( -//help:Setscaling(3); - SCALEX=1; - SCALEY=sc; - Com0th("Setscaling("+sc+")"); - Setwindow("Msg=no"); -); - -Periodfun(defL,rep):=Periodfun(defL,rep,[]); -Periodfun(defL,rep,optionorg):=( // 16.11.24 -//help:Periodfun(["0",[-1,0],"1",1,[0,1],1],2(num of repetition),options); -//help:Periodfun(options=["Con=y"]); -//help:Periodfun(defL=[function string, range, devision number,...]); - regional(nn,fun,range,num,options,nr,maxfun, - tmp,tmp1,tmp2,eqL,connect,minx,maxx,pdata,Eps,prept); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - connect="Y"; - forall(eqL, - tmp=indexof(#,"="); - tmp2=substring(#,tmp,tmp+1); - tmp=substring(#,0,3); - if(Toupper(tmp)=="CON", - connect=Toupper(tmp2); - options=remove(options,[#]); - ); - ); - minx=10000; - maxx=-10000; - mxfun=""; - pdata=[]; - forall(1..(length(defL)/3),nn, - fun=defL_(3*nn-2); - range=defL_(3*nn-1); - tmp1=if(isstring(range_1),parse(range_1),range_1); //17.06.11(2lines) - tmp2=if(isstring(range_2),parse(range_2),range_2); - minx=min(minx,tmp1); - maxx=max(maxx,tmp2); - num=defL_(3*nn); - options=append(options,"Num="+text(num)); - Plotdata("pe"+text(nn),fun, - "x="+textformat([tmp1,tmp2],5),options); - pdata=append(pdata,"grpe"+text(nn)); - tmp1=range_1; //17.06.11(4lines) - if(isstring(tmp1),tmp1=replace(tmp1,"pi","%pi"),tmp1=format(tmp1,5)); - tmp2=range_2; - if(isstring(tmp2),tmp2=replace(tmp2,"pi","%pi"),tmp2=format(tmp2,5)); - mxfun=mxfun+"elseif ("+tmp1+ - "<=x and x<"+tmp2+") then "+fun+" "; - ); - per=maxx-minx; - forall(1..rep,nr, - tmp1=[]; - forall(pdata, - Translatedata("p"+#+text(nr),#,[per*nr,0],options); - Translatedata("m"+#+text(nr),#,[-per*nr,0],options); - tmp1=concat(tmp1,["trp"+#+text(nr),"trm"+#+text(nr)]); - ); - ); - pdata=concat(pdata,tmp1); - if(connect=="Y", - Eps=10^(-5); - pdata=sort(pdata,[parse(#)_1_1]); - prept=parse(pdata_1)_1; - forall(1..(length(pdata)), - tmp=parse(pdata_#); - tmp1=tmp_1; - tmp2=tmp_(length(tmp)); - if(|prept-tmp1|>Eps, - Listplot("con"+text(#),[prept,tmp1],append(options,"da")); - ); - prept=tmp_(length(tmp)); - ); - ); - mxfun=substring(mxfun,4,length(mxfun)-1); - [mxfun,per]; -); - -Fourierseries(nm,coeff,per,nterm):= - Fourierseries(nm,coeff,per,nterm,[]); // 16.11.24 -Fourierseries(nm,coeff,per,nterm,options):=( -//help:Fourierseries("1",[c0,cn,sn],period,numterm,options); - regional(c0,cn,sn,fs,tmp,tmp1,tmp2); - c0=coeff_1; - if(!isstring(c0),c0=format(c0,5)); - c0=replace(c0,"%pi","pi"); - cn=coeff_2; - if(!isstring(cn),cn=format(cn,5)); - cn=replace(cn,"%pi","pi"); - sn=coeff_3; - if(!isstring(sn),sn=format(sn,5)); - sn=replace(sn,"%pi","pi"); - fs=c0; - forall(1..nterm, - tmp=parse(Assign(cn,["n",#])); - tmp1=Assign("("+format(tmp,5)+")*cos(n*2*pi/per*x)", - ["n",#,"per",per]); - tmp=parse(Assign(sn,["n",#])); - tmp2=Assign("("+format(tmp,5)+")*sin(n*2*pi/per*x)", - ["n",#,"per",per]); - fs=fs+"+"+tmp1+"+"+tmp2; - ); - Plotdata("four"+nm,fs,"x",options); -); - -Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]); -Tabledatalight(nm,xLst,yLst,rmvL,optionorg):=( -//help:Tabledatalight("",xLst,yLst,rmvL,[2,"Rng=y"]); - regional(options,rng,name,upleft,ul,flg,tick,eqL,reL,n,m,xsize,ysize, - rlist,clist,Tb,tmp,tmp1,tmp2,tmp3,Eps); -// name="tb"+nm; - name="tb"; - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; //16.12.16from - reL=tmp_6; - rng="Y"; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,2)); - tmp2=Toupper(substring(#,tmp,tmp+1)); - if(tmp1=="RN", - rng=tmp2; - options=remove(options,[#]); - ); - );//16.12.16upto - tick=1; - flg=0; - forall(reL, - if(flg==0, - tick=#; - flg=flg+1; - , - upleft=tmp_6_1; - ); - ); - tmp=sum(yLst); - upleft=[0,tmp]; - TableOptions=options; // 16.11.28 - println("Tabledatalight "+name+" generated"); - ul=upleft/10; - m=length(xLst); - n=length(yLst); - xsize=sum(xLst); - ysize=sum(yLst); - clist=[ul]; - rlist=[ul]; - forall(1..m, - tmp1=clist_(#)_1+xLst_#/10; - clist=append(clist,[tmp1,clist_1_2]); - ); - forall(1..n, - tmp1=rlist_(#)_2-yLst_#/10; - rlist=append(rlist,[0,tmp1]); - ); - Tb=[clist,rlist]; - tmp=name+"="+Tb; - parse(tmp); - forall(0..m, - tmp1="c"+text(#)+"r0"; - tmp2="c"+text(#)+"r"+text(n); - Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options); - if(mod(#,tick)==0 % #==m, - tmp=clist_(#+1); - drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#)); - ); - ); - forall(0..n, - tmp1="c0r"+text(#); - tmp2="c"+text(m)+"r"+text(#); - Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options); - if(mod(#,tick)==0 % #==n, - tmp=rlist_(#+1); - drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#)); - ); - ); - Tsegrmv(rmvL,options); - Addax(0); - Eps=10^(-3); - tmp1=clist_(length(clist)); - tmp2=rlist_1; - tmp3=rlist_(length(rlist)); - if(rng=="Y", // 16.12.16 - Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]); - ); - Tb; -); - -Tabledata(nm,n,m,xsize,ysize,rmvL):= - Tabledata(nm,n,m,xsize,ysize,rmvL,[]); -Tabledata(nm,n,m,xsize,ysize,rmvL,options):=( -//help:Tabledata("",xLst,yLst,rmvL,[2,"Rng=y"]); - regional(Tb,name,tmp,xLst,yLst); - name="tb"+nm; - xLst=apply(1..n,xsize/n); - yLst=apply(1..m,ysize/m); - Tabledata(nm,xLst,yLst,rmvL,options) -); -Tabledata(nm,xLst,yLst,rmvL):=Tabledata(nm,xLst,yLst,rmvL,[]); -Tabledata(nm,xLst,yLst,rmvL,optionorg):=( -//help:Tabledata("",xLst,yLst,rmvL,[2,"Rng=y"]); - regional(name,options,eqL,reL,rng,upleft,ul,flg,tick,n,m,xsize,ysize, - rlist,clist,Tb,tmp,tmp1,tmp2,tmp3,Eps); -// name="tb"+nm; - name="tb"; - tmp=sum(yLst); - upleft=[0,tmp]; - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; //16.12.16from - reL=tmp_6; - rng="Y"; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,2)); - tmp2=Toupper(substring(#,tmp,tmp+1)); - if(tmp1=="RN", - rng=tmp2; - options=remove(options,[#]); - ); - );//16.12.16upto - tick=1; - flg=0; - forall(reL, - if(flg==0, - tick=#; - flg=flg+1; - , - upleft=tmp_6_1; - ); - ); - TableOptions=options; // 16.11.28 - println("Tabledata "+name+" generated"); - ul=upleft/10; - m=length(xLst); - n=length(yLst); - xsize=sum(xLst); - ysize=sum(yLst); - clist=[ul]; - rlist=[ul]; - forall(1..m, - tmp1=clist_(#)_1+xLst_#/10; - clist=append(clist,[tmp1,clist_1_2]); - ); - forall(1..n, - tmp1=rlist_(#)_2-yLst_#/10; - rlist=append(rlist,[0,tmp1]); - ); - Tb=[clist,rlist]; - tmp=name+"="+Tb; - parse(tmp); - forall(0..m, - tmp="C"+text(#); - tmp1="c"+text(#)+"r0"; - if(#==0, - Putpoint(tmp,Tgrid(tmp1)); - , - Putpoint(tmp,Tgrid(tmp1),[parse(tmp+".x"),C0.y]); - clist_(#+1)=parse(tmp+".xy"); - ); - inspect(parse(tmp),"ptsize",3); - inspect(parse(tmp),"labeled",false); - if(mod(#,tick)==0 % #==m, - tmp=clist_(#+1); - drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#)); - ); - ); - forall(0..n, - tmp="R"+text(#); - tmp1="c0r"+text(#); - if(#==0, - Putpoint(tmp,Tgrid(tmp1)); - , - Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]); - rlist_(#+1)=parse(tmp+".xy"); - ); - Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]); - inspect(parse(tmp),"ptsize",3); - inspect(parse(tmp),"labeled",false); - if(mod(#,tick)==0 % #==n, - tmp=rlist_(#+1); - drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#)); - ); - ); - Tb=[clist,rlist]; - tmp=name+"="+Tb; - parse(tmp); - forall(0..m, - tmp1="c"+text(#)+"r0"; - tmp2="c"+text(#)+"r"+text(n); - Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options); - if(#<m, - tmp1=parse("C"+text(#)); - tmp2=parse("C"+text(#+1)); - tmp=(tmp1.xy+tmp2.xy)/2; - drawtext(tmp+[-0.2,0.5],text((tmp2.x-tmp1.x)*10)); - ); - ); - forall(0..n, - tmp1="c0r"+text(#); - tmp2="c"+text(m)+"r"+text(#); - Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options); - if(#<n, - tmp1=parse("R"+text(#)); - tmp2=parse("R"+text(#+1)); - tmp=(tmp1.xy+tmp2.xy)/2; - drawtext(tmp-[1.2,0.1],text(abs(tmp1.y-tmp2.y)*10)); - ); - ); - Tsegrmv(rmvL,options); - Addax(0); - Eps=10^(-3); - tmp1=clist_(length(clist)); - tmp2=rlist_1; - tmp3=rlist_(length(rlist)); // 15.06.11 - if(rng=="Y", // 16.12.16 - Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]); - ); - Tb; -); - -Tseginfo(seg):=( - regional(cr,tp,tpc,n1,n2,n3,tmp,tmp1,tmp2); - if(substring(seg,0,2)=="sg", - cr=substring(seg,2,length(seg)); - , - cr=seg; - ); - tp=substring(cr,0,1); - if(tp=="c", - tpc="r"; - , - tpc="c"; - ); - tmp1=indexof(cr,tpc); - tmp=substring(cr,tmp1,length(cr)); - tmp2=tmp1+indexof(tmp,tpc); - n1=substring(cr,1,tmp1-1); - n2=substring(cr,tmp1,tmp2-1); - n3=substring(cr,tmp2,length(cr)); - [tp+n1,tpc,parse(n2),parse(n3)]; -); - -Tsegrmv(rmvL):=Tsegrmv(rmvL,[]); -Tsegrmv(rmvL,options):=( - regional(cr,gcL,flg,gc,hd,tail,tpc,m1,m2,n1,n2,tmp,tmp1,tmp2); - forall(rmvL,cr, - tmp1=Tseginfo(cr); - hd=tmp1_1; - tpc=tmp1_2; - m1=tmp1_3; - m2=tmp1_4; - gcL=select(GCLIST,Tseginfo(#_1)_1==tmp1_1); - flg=0; - forall(gcL, - if(flg==0, - tmp=Tseginfo(#_1); - n1=tmp_3; - n2=tmp_4; - if(m1>=n1 & m2<=n2, - gc=#; - flg=1; - ); - ); - ); - if(flg==1, - Changestyle([gc_1],["nodisp"]); - tail=""; - if(indexof(hd,"r")>0, - tail=hd; hd=""; - ); - if(n1<m1, - tmp1=tpc+text(n1); - tmp2=tpc+text(m1); - tmp=hd+tail+tmp1+tmp2; - Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options); - ); - if(m2<n2, - tmp1=tpc+text(m2); - tmp2=tpc+text(n2); - tmp=hd+tail+tmp1+tmp2; - Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options); - ); - ); - ); -); - -Tgrid(ptstr):=( -//help:Tgrid("c2r5"); - regional(tmp,tmp1,tmp2); - tmp=parse(ptstr); - if(islist(tmp), - tmp; - , - tmp=indexof(ptstr,"r"); - tmp1=substring(ptstr,1,tmp-1); - tmp1=parse(tmp1); - tmp2=substring(ptstr,tmp,length(ptstr)); - tmp2=parse(tmp2); - [tb_1_(tmp1+1)_1,tb_2_(tmp2+1)_2]; - ); -); - -Tlistplot(ptL):=Tlistplot(ptL,[]); -Tlistplot(Ag1,Ag2):=( - regional(nm,ptL,options); - if(isstring(Ag1), - nm=Ag1; - ptL=Ag2; - options=[]; - , - ptL=Ag1; - options=Ag2; - nm=ptL_1+ptL_2; - ); - Tlistplot(nm,ptL,options); -); -Tlistplot(nm,ptL,options):=( -//help:Tlistplot(["c0r0","c0r4"]); -//help:Tlistplot("1",["c0r0","c0r4"]); - regional(tmp); - tmp=apply(ptL,Tgrid(#)); // 15.06.03 - Listplot(nm,tmp,append(options,"Msg=no")); -); - -ChangeTablestyle(nameL,style):=( -////help:ChangeTablestyle(["r0c0c3"],["da"]); - regional(nmL,grid,head,sb,tmp,tmp1,tmp2, - tsg,segall,sg,str); - if(islist(nameL),nmL=nameL,nmL=[nameL]); - forall(nmL,grid, - if(substring(grid,0,1)=="r",sb="c",sb="r"); - tmp=Indexall(grid,sb); - head=substring(grid,0,tmp_1-1); - tmp1=substring(grid,tmp_1,tmp_2-1); - tmp2=substring(grid,tmp_2,length(grid)); - tsg=apply([tmp1,tmp2],parse(#)); - tmp1=apply(GCLIST,#_1); // 16.12.06from - segall=[]; - forall(tmp1, - tmp2=substring(#,2,length(#)); - tmp=indexof(tmp2,sb); - tmp2=substring(tmp2,0,tmp-1); - if(head==tmp2,segall=append(segall,#)); - );// 16.12.06upto - sg=[]; - forall(segall, - tmp=Indexall(#,sb); - tmp1=substring(#,tmp_1,tmp_2-1); - tmp2=substring(#,tmp_2,length(#)); - tmp=apply([tmp1,tmp2],parse(#)); - if((tsg_1>=tmp_1) & (tsg_2<=tmp_2), - sg=tmp; - Changestyle(#,["nodisp"]); - ); - ); - if(length(sg)==0, - println("No segment includes "+grid); - , - if(sb=="c",str=sb+"no"+head,str=head+sb+"no"); - if(sg_1<tsg_1, - tmp1=replace(str,"no",text(sg_1)); - tmp2=replace(str,"no",text(tsg_1)); - tmp=head+sb+text(sg_1)+"c"+text(tsg_1); - Tlistplot(tmp,[tmp1,tmp2],TableOptions); - ); - tmp1=replace(str,"no",text(tsg_1)); - tmp2=replace(str,"no",text(tsg_2)); - tmp=head+"c"+text(tsg_1)+"c"+text(tsg_2); - Tlistplot(tmp,[tmp1,tmp2],style); - if(tsg_2<sg_2, - tmp1=replace(str,"no",text(tsg_2)); - tmp2=replace(str,"no",text(sg_2)); - tmp=head+"c"+text(tsg_2)+"c"+text(sg_2); - Tlistplot(tmp,[tmp1,tmp2],TableOptions); - ); - ); - ); -); - -Findcell(pos1,pos2):=Findcell("",pos1,pos2); -Findcell(Tbdata,pos1,pos2):=( -//help:Findcell("c0r0","c2r1"); - regional(tmp1,tmp2,posnw,posse,ctr,dx,dy); - if(isstring(pos1), - posnw=Tgrid(pos1); // 15.05.20 - posse=Tgrid(pos2); - //posnw=parse(pos1); - //posse=parse(pos2); - , - if(islist(pos1), - posnw=pos1; - posse=pos2; - , - tmp1="c"+text(pos1-1)+"r"+text(pos2-1); - tmp2="c"+text(pos1)+"r"+text(pos2); - posnw=Tgrid(tmp1); - posse=Tgrid(tmp2); -// posnw=parse(tmp1); -// posse=parse(tmp2); - ); - ); - ctr=(posnw+posse)/2; - dx=abs(posse_1-ctr_1); - dy=abs(posnw_2-ctr_2); - [ctr,dx,dy]; -); - -Putcell(pos1,pos2,dir,lttr):=Putcell("",pos1,pos2,dir,lttr); -Putcell(Tbdata,pos1,pos2,dir,lttr):=( -//help:Putcell("c0r0","c2r1","lt","abc"); -//help:Putcell(2,3,"c","xyz"); - regional(tmp,tmp1,tmp2,posnw,posse, - posdir,posstr,ctr,dx,dy); - tmp=Findcell(Tbdata,pos1,pos2); - ctr=tmp_1; dx=tmp_2; dy=tmp_3; - posdir=ctr; - posstr=dir; - if(indexof(dir,"b")>0, - posdir_2=posdir_2-dy; - posstr=replace(posstr,"b","n"); - ); - if(indexof(dir,"t")>0, - posdir_2=posdir_2+dy; - posstr=replace(posstr,"t","s"); - ); - if(indexof(dir,"l")>0, - posdir_1=posdir_1-dx; - posstr=replace(posstr,"l","e"); - ); - if(indexof(dir,"r")>0, - posdir_1=posdir_1+dx; - posstr=replace(posstr,"r","w"); - ); - Letter(posdir,posstr,text(lttr)); -); - -Putcellexpr(pos1,pos2,dir,ex):=Putcellexpr("",pos1,pos2,dir,ex); -Putcellexpr(Tbdata,pos1,pos2,dir,ex):=( -//help:Putcellexpr("c0r0","c2r1","lt","abc"); -//help:Putcellexpr(2,3,"c","\sin x"); - Putcell(Tbdata,pos1,pos2,dir,"$"+text(ex)+"$"); -); - -Putrow(nrow,dir,lttrL):=Putrow("",nrow,dir,lttrL); -Putrow(Tbdata,nrow,dir,lttrL):=( -//help:Putrow(1,"c",["x","y","z"]); - regional(tmp,tmp1,mcol); - mcol=length(lttrL); - forall(1..mcol, - Putcell(Tbdata,#,nrow,dir,lttrL_#); - ); -); - -Putrowexpr(nrow,dir,exL):=Putrowexpr("",nrow,dir,exL); -Putrowexpr(Tbdata,nrow,dir,exL):=( -//help:Putrowexpr(2,"r",["x","y","z"]); - regional(lttrL); - lttrL=apply(exL,"$"+#+"$"); - Putrow(Tbdata,nrow,dir,lttrL); -); - -PutcoL(mcol,dir,lttrL):=PutcoL("",mcol,dir,lttrL); -PutcoL(Tbdata,mcol,dir,lttrL):=( -//help:PutcoL(1,"c",["x","y","z"]); - regional(tmp,tmp1,nrow); - nrow=length(lttrL); - forall(1..nrow, - Putcell(Tbdata,mcol,#,dir,lttrL_#); - ); -); -PutcoLexpr(mcol,dir,exL):=PutcoLexpr("",mcol,dir,exL); -PutcoLexpr(Tbdata,mcol,dir,exL):=( -//help:PutcoLexpr(2,"r",["x","y","z"]); - regional(lttrL); - lttrL=apply(exL,"$"+#+"$"); - PutcoL(Tbdata,mcol,dir,lttrL); -); - -Setrange():=( -//help:Setrange(); - SW.xy=Pcrd([XMIN,YMIN]); - NE.xy=Pcrd([XMAX,YMAX]); - drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]), - Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]); -); - -Sciform(list):=( - regional(plotlist,comp,pos,out,out2,nn,strL,flg, - tmp,tmp1,tmp2,tmp3,Nj); - plotlist=Flatten([list]); - out=replace(plotlist_1,".xy",""); - out=replace(out,".x","(1)"); - out=replace(out,".y","(2)"); - if(length(plotlist)==1, - comp=[]; - forall(1..length(out), - comp=append(comp,substring(out,#-1,#)); - ); - out=""; - pos=0; - forall(comp, - if(#!="'", - out=out+#; - , - if(pos==0, - tmp=indexof(out,"Assign("); - if(substring(out,length(out)-7,length(out))=="Assign(", - out=out+"'"; - pos=1; - , - out=out+"Assign('"; - pos=2; - ); - , - if(pos==2, - out=out+"')"; - , - out=out+"'"; - ); - pos=0; - ); - ); - ); - , - forall(2..length(plotlist), - comp=plotlist_#; - if(isstring(comp), - pos=indexof(comp,"Assign("); - if(pos>0, - comp=substring(comp,6,length(comp)); - ); - out=out+"Assign("; - comp=replace(comp,".xy",""); - comp=replace(comp,".x","(1)"); - comp=replace(comp,".y","(2)"); - out=out+"'"+comp+"'"; - out=out+"),"; - ); - if(islist(comp), - forall(comp, - out=out+"'"+#+"',"; - ); - ); - ); - if(length(plotlist)>1, - out=substring(out,0,length(out)-1); - out=out+");"; - ); - ); - pos=[]; - forall(1..length(out), - tmp=indexof(substring(out,#-1,length(out)),"Assign"); - if(tmp>0, - tmp1=#-1+tmp; - if(length(pos)==0, - pos=[tmp1]; - , - if(pos_(length(pos))<tmp1, - pos=append(pos,tmp1); - ); - ); - ); - ); - if(length(pos)>0, - strL=[]; - Nj=0; - forall(pos, - tmp=substring(out,Nj,#-1); - strL=append(strL,tmp); - Nj=#-1; - ); - strL=append(strL,substring(out,Nj,length(out))); - out=""; - forall(strL, - if(indexof(#,"Assign")==0, - out=out+#; - , - tmp=indexof(#,"('"); - tmp1=indexof(#,"')"); - tmp2=substring(#,tmp+1,tmp1-2); - tmp3=substring(#,tmp1-2,length(#)); - if(indexof(tmp2,"=")==0, - out=out+#; - , - tmp=substring(tmp2,0,indexof(tmp2,"=")); - out=out+"'"+tmp+"'+"+"Assign('"; - tmp=substring(tmp2,indexof(tmp2,"="),length(tmp2)); - out=out+tmp+tmp3; - ); - ); - ); - ); - out2=""; // patched 16.01.21 from - nn=length(out); - flg=0; - forall(1..nn, - if(flg==0, - tmp=indexof(out,"='+Assign('"); - if(tmp==0, - out2=out2+out; - flg=1; - , - out2=out2+substring(out,0,tmp); - out=substring(out,tmp+10,length(out)); - tmp=indexof(out,"'"); // 16.04.19 from - tmp1=substring(out,0,tmp-1); - tmp2="1234567890"; - tmp=apply(1..length(tmp1), - indexof(tmp2,substring(tmp1,#-1,#))); - tmp=min(tmp); - if(tmp==0, // 16.04.19 upto - out2=out2+"'+Assign('"; - , - tmp=indexof(out,"'"); - out=substring(out,0,tmp)+substring(out,tmp+1,length(out)); // 16.04.18 upto - ); - ); - ); - ); - out2=replace(out2,"Dist=","D="); - out2=replace(out2,"Dis=","D="); - out2; -); - - -Rform(list):=( - regional(plotlist,comp,pos,out,strL,tmp,tmp1,tmp2,tmp3,Nj); - out=list; - out=replace(out,"[[[","list([["); - out=replace(out,"[","c("); - out=replace(out,"]",")"); - out=replace(out,".xy",""); - out=replace(out,".x","[1]"); - out=replace(out,".y","[2]"); - out; -); - -Defvar(varstr):=( - regional(name,value,tmp,tmp1); - if(isstring(varstr), - parse(varstr); - tmp=indexof(varstr,"="); - name=substring(varstr,0,tmp-1); - value=substring(varstr,tmp,length(varstr)); - value=parse(value); - tmp1=select(1..length(VLIST),VLIST_#_1==name+"="); - if(length(tmp1)>0, - tmp=tmp1_1; - VLIST_tmp=[name+"=",value]; - , - VLIST=prepend([name+"=",value],VLIST); - ); - , - forall(1..(length(varstr)/2), // 16.11.16from - name=varstr_(2*#-1); - value=varstr_(2*#); - Defvar(name,value); - ); // 16.11.16upto - ); -); - -Defvar(name,value):=( -//help:Defvar("a",0.3); -//help:Defvar(["a",0.3,"b",2]); - regional(tmp,tmp1); - if(islist(value), - tmp1="["; - forall(value, - if(isstring(#), // 16.11.14 - tmp1=tmp1+Dq+#+Dq+","; // 16.11.14 - , - tmp1=tmp1+format(#,5)+","; - ); - ); - tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; - , - tmp1=format(value,5); - ); - tmp=name+"="+tmp1; // 15.02.06 - parse(tmp); - VLIST=select(VLIST,#_1!=name+"="); // 15.02.08 - VLIST=prepend([name+"=",value],VLIST); -); - -Iftosci(strorg):=( // 16.06.10 - regional(str,ifL,ppL,cpL,kk,sL, - tmp,tmp1,tmp2,tmp3,tmp4); - str=replace(strorg,LFmark,""); - ifL=Indexall(str,"if("); - ppL=Bracket(str,"()"); - cpL=Indexall(str,","); - tmp1=Bracket(str,"[]"); - forall(1..(length(tmp1)/2),kk, - cpL=select(cpL,#<tmp1_(2*kk-1)_1%#_1>tmp1_(2*kk)_1); - ); - forall(1..length(ifL),kk, - tmp=select(ppL,#_1>ifL_kk); - tmp1=tmp_1; - tmp2=select(tmp,#_2==-tmp1_2); - tmp2=tmp2_1; - tmp3=select(cpL,#>tmp1_1 & #<tmp2_1); - ifL_kk=[tmp1_1,tmp2_1,tmp1_2,tmp3]; - ); - forall(1..length(cpL),kk, - tmp=select(1..length(ifL),contains(ifL_#_4,cpL_kk)); - tmp1=tmp_(length(tmp)); - cpL_kk=[cpL_kk,tmp1]; - ); - sL=apply(1..length(str),substring(str,#-1,#)); - forall(1..length(ifL),kk, - tmp1=ifL_kk_1; - tmp2=ifL_kk_2; - tmp=select(cpL,#_2==kk); - tmp3=apply(tmp,#_1); - sL_tmp1=" "; - sL_tmp2=";end;"; - sL_(tmp3_1)=" then,"; - if(length(tmp3)>1, - sL_(tmp3_2)=";else,"; - ); - ); - tmp=sum(sL); -); - -Fortosci(strorg):=( - regional(str,jj,var,tmp,tmp1,tmp2,tmp3,tmp4, - Out,repL,Pflg,Iflg,Cflg); - str=strorg; - repL=[]; - tmp1=Indexall(str,"forall"); - tmp2=Indexall(str,","); - forall(1..length(tmp1),jj, - tmp=select(tmp2,#>tmp1_jj); - var=substring(str,tmp_1,tmp_2-1); - tmp3=substring(str,tmp1_jj-1,tmp_2-1); - tmp=indexof(tmp3,"("); - tmp4=substring(tmp3,tmp,length(tmp3)); - tmp=indexof(tmp4,","); - tmp4=substring(tmp4,0,tmp-1); - tmp4="for "+var+"="+tmp4; - tmp4=replace(tmp4,"..",":"); - repL=concat(repL,[tmp3,tmp4]); - ); - forall(1..length(repL)/2, - str=replace(str,repL_(2*#-1),repL_(2*#)); - ); - tmp=Bracket(str); - tmp=select(tmp,#_2==0); - tmp=tmp_1_1; - tmp1=substring(str,tmp-1,length(str)); - tmp1=replace(tmp1,")",";end"); - str=substring(str,0,tmp-1)+tmp1; - str=replace(str,";;",";"); - str; -); - -Deffun(name,bodylist):=( -//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]); // 16.02.18 - regional(funstr,tmp,tmp1,str,Pos); - funstr=name+":=("; - forall(bodylist, - funstr=funstr+#+";"; - ); - funstr=funstr+");"; - parse(funstr); - tmp=bodylist_(length(bodylist)); - str="function "+tmp+"="+name+","; - forall(1..(length(bodylist)-1), - tmp1=bodylist_#; - tmp1=replace(tmp1,LFmark,"");// 16.05.26 - tmp1=replace(tmp1," ","");// 16.05.26 - Pos=indexof(tmp1,"regional")+indexof(tmp1,"local"); - if(Pos==0, - tmp=replace(tmp1,".xy",""); - tmp=replace(tmp,".x","(1)"); - tmp=replace(tmp,".y","(2)"); - if(indexof(tmp,"if(")>0, - tmp=iftosci(tmp); - ); - if(indexof(tmp,"forall(")>0, // 16.05.26from - tmp=Fortosci(tmp); - ); // 16.05.26upto - str=str+tmp+","; - ); - ); - str=str+"endfunction;"; - FUNLIST=append(FUNLIST,str); -); - -Windispg():=( - regional(Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,opcindy); - gsave(); - layer(KETPIClayer); - forall(GCLIST,Nj, - if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17 - if(islist(Dt) & length(Dt)>0, // 12.19,12.22 - tmp=MeasureDepth(Dt); - if(tmp==1,Dt=[Dt]); - opcindy=Nj_3; - if(Nj_2<0,tmp1=0,tmp1=Nj_2); - if(tmp1<10, - forall(Dt,Nk, -// tmp2=apply(Nk,if(ispoint(#),Lcrd(#),#)); -// tmp2=apply(tmp2,Pcrd(#)); - tmp2=Nk; // 14.12.04 - if(length(Nk)>1, - tmp="connect("+textformat(tmp2,5)+ - ",dashtype->"+text(tmp1)+",linecolor->"+KCOLOR+opcindy+")"; - parse(tmp); - , - if(length(Nk)==1, - tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31 - parse(tmp); - ); - ); - ); - ); - ); - ); -// if(ADDAXES=="1", // 16.10.08from -// draw([XMIN,0],[XMAX,0],color->[0,0.2,0]); -// draw([0,YMIIN],[0,YMAX],color->[0,0.2,0]); -// Letter([[XMAX,0],"e","x",[0,YMAX],"n","y"]); -// Letter([[0,0],"sw","O"]); -// ); // 16.10.08upto - grestore(); - layer(0); -); - -Windispg(pltdata):=( - regional(pdata,Nj,Nk,Dt,tmp,tmp1,tmp2,opcindy); - gsave(); - layer(KETPIClayer); - if(!islist(pltdata),tmp=[pltdata],tmp=pltdata); - pdata=select(GCLIST,contains(tmp,#_1)); - forall(pdata,Nj, - if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17 - if(islist(Dt) & length(Dt)>0, // 12.19,12.22 - tmp=MeasureDepth(Dt); - if(tmp==1,Dt=[Dt]); - opcindy=Nj_3; - if(Nj_2<0,tmp1=0,tmp1=Nj_2); - if(tmp1<10, - forall(Dt,Nk, - tmp2=Nk; // 14.12.04 - if(length(Nk)>1, - tmp="connect("+textformat(tmp2,5)+ // 15.05.11 - ",dashtype->"+text(tmp1)+ - ",linecolor->"+KCOLOR+opcindy+")"; - parse(tmp); - , - if(length(Nk)==1, - tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31 - parse(tmp); - ); - ); - ); - ); - ); - ); - grestore(); - layer(0); -); - - -WritetoSci() := WritetoSci(Fnamesci); -WritetoSci(Arg) := ( - regional(string,filename,shch,tmp1,tmp2); - if(isstring(Arg), - string=Arg; - if(indexof(string,".sce")>0, - filename=string; - shchoice=""; - , - filename=Fnamesci; - shch=string; - ); - WritetoSci(filename,shch); - , - if(Arg<=1,WritetoSci(Fnamesci,"all")); - if(Arg==2,WritetoSci(Fnamesci,"sh")); - if(Arg==3,WritetoScibody(Fnamescibody)); - ); -); -WritetoSci(filename,shchoice) := ( - regional(Plist,Pos,Pnamelist,Pvaluelist,GrL,str,tmp,tmp1,tmp2,cmd); - println("Write to Sci "+filename); - Plist=[]; - Pnamelist=[]; - Pvaluelist=[]; - forall(remove(allpoints(),[SW,NE]), - tmp=Lcrd(#); - tmp1=format(re(tmp_1),5);// 15.02.05 - tmp2=format(re(tmp_2),5); - tmp="["+tmp1+","+tmp2+"]"; - Plist=append(Plist,#.name+"="+tmp+";"); - Pnamelist=append(Pnamelist,#.name); - Pvaluelist=append(Pvaluelist,tmp); - ); - SCEOUTPUT = openfile(filename); - tmp=Datetime();//16.12.25from - println(SCEOUTPUT,"//date time="+tmp_1+" "+tmp_2); - if(isstring(CindyPathName), // 16.12.25from - if(length(CindyPathName)>0, - println(SCEOUTPUT,"//path file="+CindyPathName+" "+CindyFileName+".cdy"); - , - println(SCEOUTPUT,""); - ); - , - println(SCEOUTPUT,""); - );//16.12.25upto - println(SCEOUTPUT,"cd('"+Dirwork+"');"); - if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0) ,//16.11.29,12.16 - if(indexof(PathS,"-6.")>0, - Libname=Dirlib+"/ketpic2escifiles6";//17.05.13 - , - Libname=Dirlib+"/ketpic2esciL5";//16.11.29 - ); - ); - println(SCEOUTPUT,"Ketlib=lib('"+Libname+"');"); - tmp=length(Libname)-1; - if(substring(Libname,tmp-1,tmp)!="C", // 15.06.02 - println(SCEOUTPUT,"Ketinit();"); - , - println(SCEOUTPUT,"errcatch(235,"+DqDq("continue")+");"); - println(SCEOUTPUT,"Ketinit("+DqDq("Ketlib")+");"); - ); - println(SCEOUTPUT,"disp('KETpic '+ThisVersion())"); // 15.04.12 - println(SCEOUTPUT,"Fnametex='"+Fnametex+"';"); - println(SCEOUTPUT,"Fnamesci='"+Fnamesci+"';"); - println(SCEOUTPUT,"Fnamescibody='"+Fnamescibody+"';"); - println(SCEOUTPUT,"Fnameout='"+Fnameout+"';"); - if(iswindows(), // 17.01.11from - println(SCEOUTPUT,"setlanguage('en')"); - ); // 17.01.11upto - println(SCEOUTPUT,"pi=%pi; i=%i;"); - println(SCEOUTPUT,"arccos=acos; arcsin=asin; arctan=atan;"); // 15.05.15 - println(SCEOUTPUT,""); - forall(COM0thlist, - println(SCEOUTPUT,#+";"); - ); - println(SCEOUTPUT, - "Setwindow(["+XMIN+","+XMAX+"], ["+YMIN+","+YMAX+"]);"); - println(SCEOUTPUT,"Assignadd('pi',%pi);"); - println(SCEOUTPUT,"Assignadd('XMIN',Xmin());"); - println(SCEOUTPUT,"Assignadd('XMAX',Xmax());"); - println(SCEOUTPUT,"Assignadd('YMIN',Ymin());"); - println(SCEOUTPUT,"Assignadd('YMAX',Ymax());"); - forall(1..length(Plist), - print(SCEOUTPUT,Plist_#); - println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");"); - ); - forall(VLIST, - tmp=Sciform(#_1); - tmp1=#_2; // 15.02.06 - if(!isstring(tmp1), - if(islist(tmp1), - tmp2="["; - forall(tmp1, - tmp2=tmp2+format(#,5)+","; - ); - tmp1=substring(tmp2,0,length(tmp2)-1)+"]"; - , - tmp1=format(tmp1,5); - ); - ); - print(SCEOUTPUT,tmp+"evstr('"+tmp1+"')"+"; "); - tmp=substring(tmp,0,length(tmp)-1); - println(SCEOUTPUT," Assignrep('"+tmp+"',"+tmp1+");"); // 15.01.27 - ); - forall(FUNLIST, - println(SCEOUTPUT,#); - ); - forall(GLIST, - println(SCEOUTPUT,Sciform(#)+";"); - ); - tmp=text(Pnamelist); - tmp=replace(tmp,"[","list("); - Pnamelist=replace(tmp,"]",")"); - println(SCEOUTPUT,"PtL="+Pnamelist+";"); - tmp=select(GCLIST,#_2==-1); - GrL=apply(tmp,#_1); - tmp=text(GrL); - tmp=replace(tmp,"[","list("); - tmp=replace(tmp,"]",")"); - println(SCEOUTPUT,"GrL="+tmp+";"); - tmp1=""; - forall(SCIWRLIST, - tmp1=tmp1+","+Dq+#+Dq+","+#; - ); - if(length(tmp1)>0, - tmp1="WriteOutData(Fnameout"+tmp1+");"; - println(SCEOUTPUT,tmp1); - ); - if(length(SCIRELIST)>0, - println(SCEOUTPUT,"if length(fileinfo(Fnameout))>0"); // 15.05.15 - println(SCEOUTPUT," Tmpout=ReadOutData(Fnameout);");// 15.09.12 - println(SCEOUTPUT," execstr(Tmpout);"); // 15.05.15 -// println(SCEOUTPUT," forall Tmp1=1:size(Tmpout,1)"); -// println(SCEOUTPUT," Tmp=strindex(Tmpout(Tmp1,1),'=list()');"); -// println(SCEOUTPUT," if length(Tmp)>0"); -// println(SCEOUTPUT," Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));"); -// println(SCEOUTPUT," if length(evstr(Tmp))==1,"); -// println(SCEOUTPUT," Tmp=Tmp+'='+Tmp+'(1)';"); -// println(SCEOUTPUT," execstr(Tmp);"); -// println(SCEOUTPUT," end;"); -// println(SCEOUTPUT," end;"); -// println(SCEOUTPUT," end;"); -// println(SCEOUTPUT,"end;"); - ); - if(shchoice=="sh", - println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0"); - println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);"); - println(SCEOUTPUT,"// execstr(Gbdy)"); - println(SCEOUTPUT,"//end;"); - , - println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0"); - println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);"); - println(SCEOUTPUT,"// execstr(Gbdy)"); - println(SCEOUTPUT,"//end;"); - ); - forall(COM1stlist, - println(SCEOUTPUT,#+";"); - ); -// forall(GOUTLIST, -// if(length(#_2)>0, -// tmp1=#_1; -// println(SCEOUTPUT,"execstr(ReadOutData('"+tmp1+"'));"); -// ); -// ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"//Windisp(GrL,'c');"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"if 1==1 then"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"Openfile('"+Dirwork+"/"+Fnametex+"','"+ULEN+"');");// 16.05.29 - forall(COM2ndlist, - println(SCEOUTPUT," "+#+";"); - ); - if(length(GrL)>0, - println(SCEOUTPUT," Drwline(GrL);"); - ); -// forall(GOUTLIST, -// if(length(#_2)>0, -// tmp1=textformat(#_2,5); -// tmp1=substring(tmp1,1,length(tmp1)-1); -// println(SCEOUTPUT," Drwline("+tmp1+");"); -// ); -// ); - println(SCEOUTPUT,"Closefile('"+ADDAXES+"');"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"end;"); - if(shchoice=="sh", - println(SCEOUTPUT,""); - println(SCEOUTPUT,"quit();"); - , - println(SCEOUTPUT,""); - println(SCEOUTPUT,"//quit();"); - ); - closefile(SCEOUTPUT); - -); - -WritetoScibody() := WritetoScibody(Fnamescibody); -WritetoScibody(filename) := ( - regional(Plist,Pos,Pnamelist,Pvaluelist,GrL,str,tmp,tmp1,cmd); - println("WritetoScibody "+filename); - Plist=[]; - Pnamelist=[]; - Pvaluelist=[]; - forall(remove(allpoints(),[SW,NE]), - Plist=append(Plist,#.name+"="+#.xy+";"); - Pnamelist=append(Pnamelist,#.name); - Pvaluelist=append(Pvaluelist,#.xy); - ); - SCEOUTPUT = openfile(filename); - println(SCEOUTPUT, - "Setwindow(["+XMIN+","+XMAX+"], ["+YMIN+","+YMAX+"]);"); - println(SCEOUTPUT,"Assignadd('pi',%pi);"); - println(SCEOUTPUT,"Assignadd('XMIN',Xmin());"); - println(SCEOUTPUT,"Assignadd('XMAX',Xmax());"); - println(SCEOUTPUT,"Assignadd('YMIN',Ymin());"); - println(SCEOUTPUT,"Assignadd('YMAX',Ymax());"); - forall(1..length(Plist), - print(SCEOUTPUT,Plist_#); - println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");"); - ); - forall(VLIST, - tmp=Sciform(#_1); - tmp1=#_2; - if(!isstring(tmp1), - print(SCEOUTPUT,tmp+tmp1+"; "); - , - print(SCEOUTPUT,tmp+"evstr('"+tmp1+"')"+"; "); - ); - tmp=substring(tmp,0,length(tmp)-1); - println(SCEOUTPUT," Assignrep('"+tmp+"',"+#_2+");"); - ); - forall(FUNLIST, - println(SCEOUTPUT,#); - ); - forall(GLIST, - println(SCEOUTPUT,Sciform(#)+";"); - ); - tmp=text(Pnamelist); - tmp=replace(tmp,"[","list("); - Pnamelist=replace(tmp,"]",")"); - println(SCEOUTPUT,"PtL="+Pnamelist+";"); - tmp=select(GCLIST,#_2==-1); - GrL=apply(tmp,#_1); - tmp=textformat(GrL,5); - tmp=replace(tmp,"[","list("); - tmp=replace(tmp,"]",")"); - println(SCEOUTPUT,"GrL="+tmp+";"); - tmp1=""; - forall(SCIWRLIST, - tmp1=tmp1+","+Dq+#+Dq+","+#; - ); - if(length(tmp1)>0, - tmp1="WriteOutData(Fnameout"+tmp1+");"; - println(SCEOUTPUT,tmp1); - ); - if(length(SCIRELIST)>0, - println(SCEOUTPUT,"Tmpout=ReadOutData(Fnameout);"); - println(SCEOUTPUT,"execstr(Tmpout);"); - println(SCEOUTPUT,"forall Tmp1=1:size(Tmpout,1)"); - println(SCEOUTPUT," Tmp=strindex(Tmpout(Tmp1,1),'=list()');"); - println(SCEOUTPUT," if length(Tmp)>0"); - println(SCEOUTPUT," Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));"); - println(SCEOUTPUT," if length(evstr(Tmp))==1,"); - println(SCEOUTPUT," Tmp=Tmp+'='+Tmp+'(1)';"); - println(SCEOUTPUT," execstr(Tmp);"); - println(SCEOUTPUT," end;"); - println(SCEOUTPUT," end;"); - println(SCEOUTPUT,"end;"); - ); - if(shchoice=="sh", - println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0"); - println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);"); - println(SCEOUTPUT,"// execstr(Gbdy)"); - println(SCEOUTPUT,"//end;"); - , - println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0"); - println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);"); - println(SCEOUTPUT,"// execstr(Gbdy)"); - println(SCEOUTPUT,"//end;"); - ); - forall(COM1stlist, - println(SCEOUTPUT,#+";"); - ); -// forall(GOUTLIST, 2014.12.18 -// if(length(#_2)>0, -// tmp1=#_1; -// println(SCEOUTPUT,"execstr(ReadOutData('"+tmp1+"'));"); -// ); -// ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"//Windisp(GrL,'c');"); - println(SCEOUTPUT,""); - - closefile(SCEOUTPUT); -); - -Extractdata(name):=Extractdata(1,name,[]); -Extractdata(Arg1,Arg2):=( - if(isstring(Arg1), - Extractdata(1,Arg1,Arg2); - , - Extractdata(Arg1,Arg2,[]); - ); -); -Extractdata(number,name,options):=( -//help:ExtractData("ha1"); -//help:ExtractData(1,"ha1"); - regional(dlist,tmp,tmp1,tmp2,tmp3,File,Ltype,Noflg,opstr,opcindy); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - tmp1=[]; - forall(1..length(GOUTLIST), - if(contains(GOUTLIST_#_2,name), - tmp1=append(tmp1,#); - ); - ); - if(length(tmp1)==0, - println(varname+" not found"); - , - tmp1=tmp1_number; - tmp2=GOUTLIST_tmp1; - tmp=remove(tmp2_2,[name]); - GOUTLIST_tmp1=[tmp2_1,tmp]; - File=tmp2_1; - ); - if(Noflg<3, - println("extract outdata "+name); - tmp1=parse(name); - if(1==0, - Com0th("Tmpout=ReadOutData("+Dq+File+Dq+");"); - Com0th("execstr(Tmpout);"); - Com0th("for Tmp1=1:size(Tmpout,1)"); - Com0th(" Tmp=strindex(Tmpout(Tmp1,1),'=list()');"); - Com0th(" if length(Tmp)>0"); - Com0th(" Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));"); - Com0th(" if length(evstr(Tmp))==1,"); - Com0th(" Tmp=Tmp+'='+Tmp+'(1)';"); - Com0th(" execstr(Tmp);"); - Com0th(" end;"); - Com0th(" end;"); - Com0th("end;"); - ); - tmp3=[ - "Tmpout=ReadOutData("+Dq+File+Dq+");", - "execstr(Tmpout);", - "for Tmp1=1:size(Tmpout,1)", - " Tmp=strindex(Tmpout(Tmp1,1),'=list()');", - " if length(Tmp)>0", - " Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));", - " if length(evstr(Tmp))==1", - " Tmp=Tmp+'='+Tmp+'(1)';", - " execstr(Tmp);", - " end;", - " end;", - "end;" - ]; - GLIST=concat(GLIST,tmp3); - ); - if(Noflg<2, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - tmp2; -); - -RemoveOut(pltlist):=( - regional(name,tmp,tmp1,tmp2); - forall(pltlist,name, - tmp1=[]; - forall(GOUTLIST, - tmp=remove(#_2,[name]); - tmp1=append(tmp1,[#_1,tmp]); - ); - GOUTLIST=tmp1; - ); -); - -ReadOutData():=ReadOutData(Fnameout); -ReadOutData(filename):=ReadOutData("",filename); //16.03.07 -ReadOutData(pathorg,filenameorg):=( -//help:ReadOutData(); -//help:Readoutdata(); -//help:ReadOutData("file.txt"); -//help:Readoutdata("file.txt"); -//help:ReadOutData("/datafolder","file.txt"); -//help:Readoutdata("/datafolder","file.txt"); - regional(path,filename,varname,varL,ptL,pts,tmp,tmp1,tmp2,tmp3,tmp4, - nmbr,cmdall,cmd,cmdorg,outdt,goutdt); - path=pathorg; //16.03.07 from - if(length(path)>0, - setdirectory(path); - if(indexof(path,"\")>0,tmp1="\",tmp1="/"); - tmp=substring(path,length(path)-1,length(path)); - if(tmp!=tmp1,path=path+tmp1); - ); //16.03.07 upto - filename=filenameorg; // 16.04.17 - if(indexof(filename,".")==0,filename=filename+".txt"); - tmp=load(filename); - cmdall=tokenize(tmp,"//"); - varname=cmdall_1; - cmdall=cmdall_(2..length(cmdall)); - outdt=[]; - varL=[varname]; - ptL=[]; - forall(cmdall,cmdorg, - cmd=replace(cmdorg,LFmark,""); - if(length(cmd)>0, - if(cmd=="start" % cmd=="end" % substring(cmd,0,1)=="[", - if(cmd=="start", - pts=[]; - ); - if(cmd=="end", - ptL=append(ptL,pts); - ); - if(substring(cmd,0,1)=="[", - tmp1=parse(cmd); - if(length(tmp1_1)==2, - tmp1=apply(tmp1,Pcrd(#)); - ); - pts=concat(pts,tmp1); - ); - , - if(length(ptL)>0, - if(length(ptL)==1, - ptL=ptL_1; - tmp=apply(ptL,textformat(#,6)); - , - tmp="["; - forall(ptL,tmp1, - tmp=tmp+apply(tmp1,textformat(#,6))+","; - ); - tmp=substring(tmp,0,length(tmp)-1)+"]"; - ); - , - tmp="[]"; - ); - parse(varname+"="+tmp); - outdt=append(outdt,ptL); - ptL=[]; - varname=cmd; - varL=append(varL,varname); - ); - ); - ); - if(length(ptL)>0, - if(length(ptL)==1, - ptL=ptL_1; - tmp=apply(ptL,textformat(#,6)); - , - tmp="["; - forall(ptL,tmp1, - tmp=tmp+apply(tmp1,textformat(#,6))+","; - ); - tmp=substring(tmp,0,length(tmp)-1)+"]"; - ); - , - tmp="[]"; - ); - parse(varname+"="+tmp); - outdt=append(outdt,ptL); - if(path=="",tmp=filename,tmp=path+filename); //16.03.07 - GOUTLIST=append(GOUTLIST,[tmp,varL]); - if(length(path)>0, // 16.03.09 - setdirectory(Dirwork); // 16.03.07 - ); - print("readoutdata from "+tmp+" : "); - println(varL); - varL; -); - -WriteOutData(filename,ptlist):=( -//help:WriteOutData("file.txt",["g1",gr1,"sg",sgAB]); -//help:Writeoutdata("file.txt",["g1",gr1,"sg",sgAB]); - regional(nn,Gname,Gdata,Str,Gstr,Gj,Pt,Flg,tmp,tmp1,loopend); - Flg=0; - if(isstring(ptlist_(length(ptlist))), - Flg=1; - ); - SCEOUTPUT = openfile(filename); - if(Flg==0, - loopend=length(ptlist)/2; - , - loopend=length(ptlist); - ); - Gstr="["; - forall(1..loopend,nn, - if(Flg==0, - Gname=ptlist_(2*nn-1); - , - Gname=ptlist_nn; - ); - Gstr=Gstr+Gname+","; - println(SCEOUTPUT,Gname+"//"); - if(Flg==0, - Gdata=ptlist_(2*nn); - , - Gdata=parse(Gname); - ); - Gdata=Flattenlist(Gdata); - if(MeasureDepth(Gdata)==1,Gdata=[Gdata]); - forall(Gdata,Gj, - println(SCEOUTPUT,"start//"); - Str=""; - forall(Gj,Pt, - if(length(Str)>0, - Str=Str+"," - ); - Str=Str+"["+format(Pt_1,5)+","; - Str=Str+format(Pt_2,5); - if(length(Pt)<3, - Str=Str+"]"; - , - Str=Str+","+format(Pt_3,5)+"]"; - ); - if(length(Str)>80, - println(SCEOUTPUT,"["+Str+"]//"); - Str=""; - ); - ); - if(length(Str)>0, - println(SCEOUTPUT,"["+Str+"]//"); - ); - if((nn==loopend) & (Gj==Gdata_(length(Gdata))), - println(SCEOUTPUT,"end////"); - , - println(SCEOUTPUT,"end//"); - ); - ); - ); - closefile(SCEOUTPUT); - Gstr=substring(Gstr,0,length(Gstr)-1)+"]"; - println("writeoutdata "+filename+":"+Gstr); -); - -Makeshell():=( - if(length(Texmain)>0, - Texparent=Texmain; - ); - if(length(Texparent)>0, - Makeshell(Texparent); - if(length(FigPdfList)>0, - SCEOUTPUT=openfile(Texparent+".tex"); - forall(FigPdfList,println(SCEOUTPUT,#)); - closefile(SCEOUTPUT); - ); - , - Makeshell(Fhead+"main"); - ); -); -Makeshell(texmainfile):=Makeshell(texmainfile,"stv"); -Makeshell(texmainfile,flow):=( - regional(parent,tmp,tmp1,tmp2,tmp3,flg,tex,path,shnm); - parent=Dirwork+Shellparent; // 16.05.29 - kc():=( - println("kc : "+kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex)); // 16.06.04,06.07 - ); - tmp1=""; -// tmp2=parent; - flg=0; - forall(reverse(1..length(parent)), - if(flg==0, - tmp=substring(parent,#-1,#); - if(tmp=="/" % tmp=="\", // 14.01.15 - tmp1=substring(parent,0,#-1); - tmp2=substring(parent,#,length(parent)); - flg=1; - ); - ); - ); - if(length(tmp1)>0, - setdirectory(tmp1); - ); - SCEOUTPUT = openfile(tmp2); - println(SCEOUTPUT,"#!/bin/sh"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); // 15.07.16 - tmp1=" "+Dq+Fhead+Dq+" "+Dq+texmainfile+Dq; // 15.12.11 - if((isstring(Shellfile)) & (length(Shellfile)>5), // 16.04.01 - tmp="sh "+Dq+Shellchild+Dq+tmp1; // 16.05.15,16.05.30 - , - flg=0; - forall(reverse(1..(length(PathT))), - if(flg==0, - if(substring(PathT,#-1,#)=="/", - tex=substring(PathT,#,length(PathT)); - path=substring(PathT,0,#-1); - flg=1; - ); - ); - ); - if(indexof(flow,"s")>0, - tmp=Dq+PathS+Dq+" -nwni -f "+Fhead+".sce"; // 16.07.21from - println(SCEOUTPUT,tmp); - ); - if(tex=="latex" % tex=="platex" % tex=="uplatex", //17.08.13 - tmp=Dq+PathT+Dq+" "+texmainfile+".tex"; - println(SCEOUTPUT,tmp); - if(indexof(Shellfile,"mv")>0, - println(SCEOUTPUT,tmp); - ); - tmp=replace(Dq+PathT+Dq,tex,"dvipdfmx")+" "+texmainfile+".dvi"; - println(SCEOUTPUT,tmp); - tmp="rm "+texmainfile+".dvi"; - println(SCEOUTPUT,tmp); - ); - if(tex=="xelatex", - tmp="export PATH=$"+path+":${PATH}"; - println(SCEOUTPUT,tmp); - tmp="xelatex"+" "+texmainfile+".tex"; - println(SCEOUTPUT,tmp); - if(indexof(Shellfile,"mv")>0, - println(SCEOUTPUT,tmp); - ); - tmp="rm "+texmainfile+".dvi"; - println(SCEOUTPUT,tmp); - ); - if(tex=="pdflatex" % tex=="pdftex",//16.11.22from - tmp=Dq+PathT+Dq+" "+texmainfile+".tex"; - println(SCEOUTPUT,tmp); - if(indexof(Shellfile,"mv")>0, - println(SCEOUTPUT,tmp); - ); - );//16.11.22upto - if(tex=="lualatex",//16.12.16 - tmp=Dq+PathT+Dq+" "+texmainfile+".tex"; - println(SCEOUTPUT,tmp); - if(indexof(Shellfile,"mv")>0, - println(SCEOUTPUT,tmp); - ); - );//16.12.16 - tmp=""; - if(isstring(Shellfile), - if(indexof(Shellfile,"mv")>0, - tmp=PathAd; - ); - ); - if(length(tmp)==0, - if(!isstring(Pathpdf), - tmp="preview"; - , - tmp=Pathpdf; - ); - ); - if(tmp=="preview" % tmp=="skim", // 16.09.09from,16.10.20 - tmp="open -a "+Dq+tmp+Dq+" "+texmainfile+".pdf"; - , - tmp=Dq+tmp+Dq+" "+texmainfile+".pdf"; - );// 16.09.09upto - ); - println(SCEOUTPUT,tmp); // 16.07.21upto - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - setdirectory(Dirwork); -); - -Makebat():=( - if(length(Texmain)>0, - Texparent=Texmain; - ); - if(length(Texparent)>0, - Makebat(Texparent); - if(length(FigPdfList)>0, - SCEOUTPUT=openfile(Texparent+".tex"); - forall(FigPdfList,println(SCEOUTPUT,#)); - closefile(SCEOUTPUT); - ); - , - Makebat(Fhead+"main"); - ); -); -Makebat(texmainfile):=Makebat(texmainfile,"stv"); -Makebat(texmainfile,flow):=( - regional(drive,fname,tmp,tmp1,tmp2,tmp3,flg,tex,path,batnm); - drive="C:"; - fname=Dirwork+Batparent; - kc():=( - println("kc : "+kc(Dirwork+Batparent,Dirlib,Fnametex)); // 16.06.04 - ); - tmp=indexof(fname,":"); - if(tmp>0, - drive=substring(fname,0,tmp); - fname=substring(fname,tmp,length(fname)); - ); - tmp1=""; - tmp2=fname; - flg=0; - forall(reverse(1..length(fname)), - if(flg==0, - tmp=substring(fname,#-1,#); - if(tmp=="/" % tmp=="\" % tmp=="\", // 14.01.15 - tmp1=substring(fname,0,#-1); - tmp2=substring(fname,#,length(fname)); - flg=1; - ); - ); - ); - if(length(tmp1)>0, - setdirectory(drive+tmp1); - ); - SCEOUTPUT = openfile(tmp2); - fname=Dirwork; - tmp=indexof(fname,":"); - if(tmp>0, - drive=substring(Dirwork,0,tmp); - fname=substring(Dirwork,tmp,length(Dirwork)); - println(SCEOUTPUT,drive); - ); - println(SCEOUTPUT,"cd "+Dq+fname+Dq);// 15.07.16 - if((isstring(Shellfile)) & (length(Shellfile)>6), // 16.04.01 - tmp=Dq+Batchild+Dq+tmp1; - , - flg=0; - forall(reverse(1..(length(PathT))), - if(flg==0, - if(substring(PathT,#-1,#)=="\", - tex=substring(PathT,#,length(PathT)); - path=substring(PathT,0,#-1); - flg=1; - ); - ); - ); - if(indexof(flow,"s")>0, - tmp=Dq+PathS+Dq+" -nb -nwni -f "+Fhead+".sce"; // 16.07.21from - println(SCEOUTPUT,tmp); - ); - if(tex=="latex" % tex=="platex" % tex=="uplatex", //17.08.13 - tmp=Dq+PathT+Dq+" "+texmainfile+".tex"; - println(SCEOUTPUT,tmp); - if(indexof(Shellfile,"mv")>0, - println(SCEOUTPUT,tmp); - ); - tmp=replace(Dq+PathT+Dq,tex,"dvipdfmx")+" "+texmainfile+".dvi"; - println(SCEOUTPUT,tmp); - tmp="del "+texmainfile+".dvi"; - println(SCEOUTPUT,tmp); - ); - if(tex=="xelatex", - tmp="set Path = %Path%;"+Dq+path+Dq; - println(SCEOUTPUT,tmp); - tmp="xelatex"+" "+texmainfile+".tex"; - println(SCEOUTPUT,tmp); - if(indexof(Shellfile,"mv")>0, - println(SCEOUTPUT,tmp); - ); - tmp="del "+texmainfile+".dvi"; - println(SCEOUTPUT,tmp); - ); - if(tex=="pdflatex" % tex=="pdftex",//16.11.22from - tmp=Dq+PathT+Dq+" "+texmainfile+".tex"; - println(SCEOUTPUT,tmp); - if(indexof(Shellfile,"mv")>0, - println(SCEOUTPUT,tmp); - ); - );//16.11.22upto - if(tex=="lualatex",//16.12.16 - tmp=Dq+PathT+Dq+" "+texmainfile+".tex"; - println(SCEOUTPUT,tmp); - if(indexof(Shellfile,"mv")>0, - println(SCEOUTPUT,tmp); - ); - );//16.12.16 -// tmp="del "+texmainfile+".dvi"; -// println(SCEOUTPUT,tmp); - tmp=""; - if(isstring(Shellfile), - if(indexof(Shellfile,"mv")>0, - tmp=PathAd; - ); - ); - if(length(tmp)==0, - if(!isstring(Pathpdf), - tmp=indexof(PathS,"\scilab");// 15.12.12 - tmp=substring(PathS,0,tmp-1)+"\SumatraPDF\SumatraPDF.exe"; - , - tmp=Pathpdf; - ); - ); - tmp=Dq+tmp+Dq+" "+texmainfile+".pdf"; - ); //16.07.21upto - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - if(indexof(Dirwork,":")==0, // 14.01.15 - drive="C:"; - , - drive=""; - ); - setdirectory(drive+Dirwork); -); - -Addpackage(packorg):=( -//help:Addpackage("bm"); -//help:Addpackage(["bm","enumerate"]); -//help:Addpackage(["bm","[c]{somepackage}"]); - regional(packL,tmp); - packL=packorg; //17.06.25from - if(!islist(packL),packL=[packL]); - packL=apply(packL,replace(#,"\","/")); - forall(1..(length(packL)), - tmp=packL_#; - if(substring(tmp,0,11)=="ketpicstyle", - tmp=replace(Dirhead+"/"+tmp,"\","/"); - ); - if(indexof(tmp,"[")==0, - packL_#="{"+tmp+"}"; - ); - ); - ADDPACK=concat(ADDPACK,packL); //17.06.25upto -); - -Viewtex():=( - regional(texfile,tmp,tmp1,sep); - texfile=Fhead+"main"; -// if(iswindows(),sep="\",sep="/"); // 17.04.07 -// sep="/"; - SCEOUTPUT=openfile(texfile+".tex"); - tmp="\documentclass{article}"; // 16.06.09from - if(indexof(PathT,"platex")>0, - tmp=replace(tmp,"article","jarticle"); - if(indexof(PathT,"uplatex")>0, //17.08.13from - tmp=replace(tmp,"jarticle","ujarticle"); - );//17.08.13upto - ); // 16.06.09upto - println(SCEOUTPUT,tmp); - if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0) ,//16.11.23,12.16 - if(indexof(PathT,"pdflatex")>0, - println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}");//16.11.24 - , - println(SCEOUTPUT,"\usepackage{pict2e}");//16.12.16 - println(SCEOUTPUT,"\usepackage{luatexja}");//16.12.18 - ); -// println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.07from - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}"); - , -// println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}"); - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); - );//17.04.07upto - println(SCEOUTPUT,"\usepackage{amsmath,amssymb}"); - println(SCEOUTPUT,"\usepackage{graphicx}"); - println(SCEOUTPUT,"\usepackage{color}"); - forall(ADDPACK, // 16.05.16from - println(SCEOUTPUT,"\usepackage"+#); //17.05.25 - );// 16.05.16upto - println(SCEOUTPUT,""); -// println(SCEOUTPUT,"\def\ketcindy{{K\kern-.20em%"); // deleted 16.11.27,recovered11.29 redeleted17.04.07 -// println(SCEOUTPUT,"\lower.5ex\hbox{E}\kern-.125em{TCindy}}}"); -// println(SCEOUTPUT,""); - println(SCEOUTPUT,"\setmargin{20}{20}{20}{20}"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\begin{document}"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\verb|"+Fhead+"| by \ketcindy");// 16.01.12, 18, 16.04.08 -// println(SCEOUTPUT,"\verb|"+Fhead+"| by KeTCindy");// 16.11.29 temporarily - println(SCEOUTPUT,"\vspace{5mm}"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\input{"+Fhead+".tex}"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\end{document}"); - closefile(SCEOUTPUT); - if(iswindows(), - kc():=( - println("kc : "+kc(Dirwork+Batparent,Dirlib,Fnametex)); // 16.06.04 - ); - Makebat(texfile); - , - kc():=( - println("kc : "+kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex)); // 16.06.04 - ); - Makeshell(texfile); - ); - WritetoSci(2); -); - -Viewparent():=( //17.04.13 - if(!isexists(Dirwork,Texparent+".tex"), - if(isstring(Texparent), - drawtext(mouse().xy,Texparent+".tex not exist", - size->24,color->[1,0,0]); - , - drawtext(mouse().xy,"Texparent not defined", - size->24,color->[1,0,0]); - ); - , - if(iswindows(), - Makebat(); - , - Makeshell(); - ); - WritetoSci(2); - kc(); - ); -); - -Makecmdlist(libname):=( -//help:Makecmdlist("ketcindylib"); - regional(cmdall,cmd,flg,tmp,tmp1,tmp2,out); - setdirectory(Dirlib); - tmp=load(libname+".cs"); - cmdall=tokenize(tmp,":="); - out=[]; - forall(cmdall,cmd, - tmp=max([0,length(cmd)-50]); - tmp1=";"+substring(cmd,tmp,length(cmd)); - flg=0; - forall(reverse(1..length(tmp1)), - if(flg==0, - if(substring(tmp1,#-1,#)==";", - tmp=substring(tmp1,#,length(tmp1)); - tmp2=substring(tmp,0,1); - if(length(tmp)>0, - if(!contains([" ","/"],tmp2), - out=append(out,tmp); - flg=1; - ); - ); - ); - ); - ); - ); - setdirectory(Dirwork); - tmp=length(out)-1; - out=out_(2..tmp); - out=sort(out); -); - -Savecmdlist(cmdlist,cmdfile):=( - SCEOUTPUT=openfile(cmdfile+".cs"); - forall(cmdlist, - println(SCEOUTPUT,#); - ); - closefile(SCEOUTPUT); -); - -Quicksort(seq):=( - regional(pivot,left,right,out); - if(length(seq)<2, - out=seq; - , - pivot = max(seq_1,seq_2); - left = []; - right = []; - forall(seq, - if(#< pivot, - left=append(left,#); - , - right=append(right,#); - ); - ); - left = Quicksort(left); - right = Quicksort(right); - out=concat(left,right); - ); - out; -); - -Lessstr(st1,st2):=( - regional(tmp,tmp1,tmp2,out); - tmp=min(length(st1),length(st2)); - flg=0; - forall(1..tmp, - if(flg==0, - tmp1=substring(st1,#-1,#); - tmp2=substring(st2,#-1,#); - if(tmp1<tmp2, - out=(1<2); - flg=1; - , - if(tmp1>tmp2, - out=(1>2); - flg=1; - ); - ); - ); - ); - if(flg==0, - if(length(st1)<length(str2), - out=(1<2); - , - out=(1>2); - ); - ); - out; -); - -Figpdf():=Figpdf(Texparent,[]); -Figpdf(Arg1):=( - if(isstring(Arg1), - Figpdf(Arg1,[]); - , - Figpdf(Texparent,Arg1); - ); -); -Figpdf(fnameorg,optionorg):=( -//help:Figpdf(); -//help:Figpdf([10,,10,,[0,2] ]);(margin(4),move) -//help:Figpdf([[0,0]]);(move) -//help:Figpdf(options=[5,5,5,5,[0,0]]]); - regional(options,fname,mar,pos,dp,sc,tmp,tmp1,tmp2,sep); - fname=fnameorg; - if(indexof(fnameorg,".")==0, - fname=fnameorg+".tex"; - ); - tmp=apply(optionorg,if(isstring(#),parse("["+#+"]"),#)); // 16.04.07 - tmp=select(tmp,#!=[]); - options=optionorg;//16.11.08from -// mar=[5,5,5,5]; - dp=[0,-3]; - tmp=select(options,islist(#)); - if(length(tmp)>0, - dp=tmp_1; - options=remove(options,tmp); - ); - tmp=4-length(options); - tmp1=apply(1..tmp,5); - mar=concat(options,tmp1); - mar=apply(mar,if(length(#)==0,5,#));//16.11.08upto - pos=[mar_1+dp_1,mar_3+dp_2]; - sc=10; - tmp=indexof(ULEN,"cm"); - if(tmp>0, - tmp1=Removespace(substring(ULEN,0,tmp-1)); - sc=parse(tmp1)*10; - ); - tmp=indexof(ULEN,"mm"); - if(tmp>0, - tmp1=Removespace(substring(ULEN,0,tmp-1)); - sc=parse(tmp1); - ); - tmp="\documentclass{article}"; // 16.06.09from - if(indexof(PathT,"platex")>0, - tmp=replace(tmp,"article","jarticle"); - if(indexof(PathT,"uplatex")>0, //17.08.13from - tmp=replace(tmp,"jarticle","ujarticle"); - );//17.08.13upto - ); - FigPdfList=append(FigPdfList,tmp); // 16.06.09upto - tmp1="\special{papersize=W mm,H mm}"; - tmp=(XMAX-XMIN)*sc+(mar_1+mar_2); - tmp1=replace(tmp1,"W",text(tmp)); - tmp=(YMAX-YMIN)*sc+(mar_3+mar_4); - tmp1=replace(tmp1,"H",text(tmp)); -// if(iswindows(),sep="\",sep="/");//17.04.08 -// sep="/"; - FigPdfList=append(FigPdfList,tmp1); - if(indexof(PathT,"pdflatex")>0 ,//16.11.23 - Libname=Dirlib+"/ketpic2esciL5";//16.11.23 - FigPdfList=append(FigPdfList, - "\usepackage[pdftex]{pict2e}");//16.11.24 - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - FigPdfList=concat(FigPdfList, // 17.04.08from -// "\usepackage{ketpic2e,ketlayer2e}"); - ["\usepackage{"+tmp+"/ketpic2e}", - "\usepackage{"+tmp+"/ketlayer2e}"] - ); - , - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - FigPdfList=concat(FigPdfList, -// "\usepackage{ketpic,ketlayer}"); - ["\usepackage{"+tmp+"/ketpic}", - "\usepackage{"+tmp+"/ketlayer}"] - );// 17.04.08upto - );//16.11.22from - FigPdfList=append(FigPdfList, - "\usepackage{amsmath,amssymb}"); - FigPdfList=append(FigPdfList, - "\usepackage{graphicx,color}"); - forall(ADDPACK, // 16.05.16from -// if(indexof(#,"[")==0, // 16.09.05from -// tmp1="\usepackage{"+#+"}"; -// , - tmp1="\usepackage"+#; //17.07.10 -// ); - FigPdfList=append(FigPdfList,tmp1); // 16.09.05upto - ); - FigPdfList=append(FigPdfList,""); -// FigPdfList=append(FigPdfList, // deleted 2016.11.27 -// "\def\ketcindy{{K\kern-.20em%"); -// tmp="\lower.5ex\hbox{E}\kern-.125em"; -// tmp=tmp+"{TCindy}}}"; -// FigPdfList=append(FigPdfList,tmp); -// FigPdfList=append(FigPdfList,""); - FigPdfList=append(FigPdfList, - "\setmargin{0}{0}{0}{0}"); - FigPdfList=append(FigPdfList,""); - FigPdfList=append(FigPdfList,"\begin{document}"); - FigPdfList=append(FigPdfList,""); - FigPdfList=append(FigPdfList, - "\begin{layer}{50}{0}"); - tmp1="\putnotese{X}{Y}{\input{"; - tmp1=replace(tmp1,"X",text(pos_1)); - tmp1=replace(tmp1,"Y",text(pos_2)); - FigPdfList=append(FigPdfList,tmp1+Fhead+".tex}}"); - FigPdfList=append(FigPdfList,""); - FigPdfList=append(FigPdfList,"\end{layer}"); - FigPdfList=append(FigPdfList,""); - FigPdfList=append(FigPdfList,"\end{document}"); - if(fnameorg!=Texparent, - SCEOUTPUT=openfile(fname); - forall(FigPdfList,println(SCEOUTPUT,#)); - closefile(SCEOUTPUT); - ); - FigPdfList; -); - -Makehelplist(libname):=( - regional(cmdall,cmd,flg,lev,tmp,tmp1,out); - tmp=load(libname); - cmdall=tokenize(tmp,"//help:"); - cmdall=select(cmdall,substring(#,1,3)!=");"); - flg=0; - forall(1..3, - if(flg==0, - if(substring(cmdall_#,0,7)=="start()", - cmdall=cmdall_((#+1)..length(cmdall)); - flg=1; - ); - ); - ); - flg=0; - tmp=length(cmdall); - forall(0..2, - if(flg==0, - if(substring(cmdall_(tmp-#),0,5)=="end()", - cmdall=cmdall_(1..(tmp-#-1)); - flg=1; - ); - ); - ); - out=[]; - forall(cmdall,cmd, - tmp1=indexof(cmd,"("); - lev=1; - flg=0; - forall((tmp1+1)..length(cmd), - if(flg==0, - tmp=substring(cmd,#-1,#); - if(tmp=="(",lev=lev+1); - if(tmp==")", - lev=lev-1; - if(lev==0, - flg=1; - out=append(out,substring(cmd,0,#)+";"); - ); - ); - ); - ); - ); - sort(out); -); - -Helplist():=Helplist(Dirlib,["+","+3d"],"helpJ"); -// 15.05.22 -Helplist(Arg):=( - if(islist(Arg), - Helplist(Dirlib,Arg,"helpJ"); // 15.06.20 - , - if(indexof(Arg,"help")>0, - Helplist(Dirlib,["+","+3d"],Arg); - , - Helplist(Arg,["+","+3d"],"helpJ"); - ); - ); -); -Helplist(Arg1,Arg2):=( - if(islist(Arg1), - Helplist(Dirlib,Arg1,Arg2); - , - if(indexof(Arg2,"help")>0, - Helplist(Dirlib,Arg1,Arg2); - , - Helplist(Arg,["+","+3d"],Arg2); - ); - ); -); -Helplist(dir,files,help):=( -//help:Helplist(); -//help:Helplist("helpE"); - regional(ketfiles,tmp,tmp1,tmp2); - setdirectory(dir); - if(contains(files,"+"), - tmp=remove(files,["+"]); - ketfiles=concat(["+basic1","+basic2","+out"],tmp); - , - ketfiles=files; - ); - ketfiles=apply(ketfiles,replace(#,"+","ketcindylib")); - ketfiles=apply(ketfiles,#+".cs"); // 15.11.05 from - tmp=apply(files,replace(#,"+","ketcindylib")); -// tmp=apply(files,replace(#,".cs","")); -// tmp=remove(tmp,["ketcindylibout"]); -// tmp=apply(tmp,replace(#,"basic","")); - tmp=apply(tmp,#+help+".txt"); - ketfiles=concat(ketfiles,tmp);// 15.11.05 upto - tmp1=[]; - forall(ketfiles, - tmp=Makehelplist(#); - tmp1=concat(tmp1,tmp); - ); - if(!islist(HLIST), // 16.12.31from - HLIST=sort(tmp1); - , - HLIST=sort(concat(HLIST,tmp1)); - ); // 16.12.31upto - setdirectory(Dirwork); -); - - -Help():=( - forall(HLIST, - println(#); - ); -); -Help(strorg):=( -//help:Help("Plot"); -//help:Help("*"); - regional(str,sel,tmp,tmp1,tmp2,flg,Endflg); - if(length(HLIST)>0,flg=0,flg=-1); - str=replace(strorg,"'",Dq); // 15.11.25 - if(length(str)==0, - forall(HLIST, - if(indexof(#,"*")>0, - println(#); - ); - flg=1; - ); - , - if(str=="*", - sel=HLIST; - , - sel=select(HLIST,substring(#,0,length(str))==str); - ); - if(length(sel)>0,flg=1); - forall(sel, - tmp=indexof(#,"("); - if(substring(#,tmp-2,tmp-1)!="*", - println(#); - , -// println(substring(#,0,tmp-1)); - tmp1=substring(#,tmp,length(#)-2); - tmp2=indexof(tmp1,"//"); - Endflg=0; - forall(1..4, - if(Endflg==0, - tmp2=indexof(tmp1,"//"); - if(tmp2==0, - println(" "+tmp1); - Endflg=1; - , - println(" "+substring(tmp1,0,tmp2-1)); - tmp1=substring(tmp1,tmp2+1,length(tmp1)); - ); - ); - ); - ); - ); - ); - if(flg==-1,println(" Help not read in")); - if(flg==0,println(" no example")); -); - -Helpkey(str):=( - regional(tmp,tmp1,tmp2); - tmp1=select(HLIST,indexof(#,str)>0); - forall(tmp1, - tmp=substring(#,0,indexof(#,"*")-1); - Help(tmp); - ); -); -Helpkey(str1,str2):=( -//help:Helpkey(keyword); -//help:Helpkey(keyword1,keyword2); - regional(tmp,tmp1,tmp2); - tmp1=select(HLIST,indexof(#,str1)>0); - tmp1=select(tmp1,indexof(#,str2)>0); - forall(tmp1, - tmp=substring(#,0,indexof(#,"*")-1); - Help(tmp); - ); -); - -Slidework():=Slidework(Dirwork); // 16.06.10 -Slidework(dirorg):=( -//help:Slidework(directory); - regional(dir,tmp,sep); // 16.06.25 - dir=replace(dirorg,unicode("000a"),""); // 16.06.25 - sep="/"; //17.04.16from - if(iswindows(), - dir=replace(dir,"/","\"); - sep="\"; - ); //17.04.16upto - if(isexists(dir,""), // 16.12.20 - Changework(dir); - if(!isexists(Dirwork,"fig"), // 16.12.18 - cmdL=["createdir",[Dq+dir+sep+"fig"+Dq]];//16.12.27,17.04.16 - CalcbyS("crdr",cmdL,["m"]); - println(dir+sep+"fig generated"); //17.04.16 - ); - tmp=dir+sep+"fig"; //17.04.16from - Changework(tmp);// 17.02.19upto - , - println(dir+ " not exists"); - ); -); - -Setslidepage():=( // 17.03.05 - regional(tmp1,tmp2,tmp3); - tmp1=["letterc","boxc","framec","shadowc","xpos","size"]; - tmp2=apply([1,2,4,5,7,8],SlideColorList_#); - tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#); - println(tmp3); -); -Setslidepage(list):=( // 16.12.22 -//help:Setslidepage([letterc,boxc,framec,shadowc,xpos,size]); - regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc); - letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0]; - shadowc=[0,0,0,0.5]; mboxc="yellow"; - if(!islist(SlideColorList), - SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3, - letterc,mboxc,mboxc,mboxc,62,2,letterc]; - ); - numlist=[1,2,4,5,7,8]; - forall(1..(length(list)), - if(length(list_#)>0, - tmp=numlist_#; - SlideColorList_tmp=list_#; - ); - ); - SlideColorList_3=SlideColorList_2; - SlideColorList_6=SlideColorList_5; -); - -Setslidemain():=( // 17.03.05 - regional(tmp1,tmp2,tmp3); - tmp1=["letterc","boxc","framec","xpos","size"]; - tmp2=apply([9,10,12,13,14],SlideColorList_#); - tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#); - println(tmp3); -); -Setslidemain(list):=( // 16.12.22 -//help:Setslidemain([letterc,boxc,framec,xpos,size]); - regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc); - letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0]; - shadowc=[0,0,0,0.5]; mboxc="yellow"; - if(!islist(SlideColorList), - SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3, - letterc,mboxc,mboxc,mboxc,62,2,letterc]; - ); - numlist=[9,10,12,13,14]; - forall(1..(length(list)), - if(length(list_#)>0, //17.01.04 - tmp=numlist_#; - SlideColorList_tmp=list_#; - ); - ); - SlideColorList_11=SlideColorList_10; -); - -Setslidebody():=( // 17.03.05 - regional(tmp1,tmp2,tmp3); - tmp1=["letterc","style","thindense"]; - tmp2=[SlideColorList_(15),BodyStyle,ThinDense]; - tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#); - println(tmp3); -); -Setslidebody(str):=( - regional(clr,style,thin); - if(isstring(str), - Setslidebody(str,"\Large\bf\boldmath",0.1); - , - if(length(str)==1,Setslidebody(str_1)); - if(length(str)==2,Setslidebody(str_1,str_2)); - if(length(str)==3,Setslidebody(str_1,str_2,str_3)); - ); -); -Setslidebody(str,Arg):=( //17.01.08 - if(isstring(Arg), - Setslidebody(str,Arg,0.1); - , - Setslidebody(str,"\Large\bf\boldmath",Arg); - ); -); -Setslidebody(str,style,density):=( // 16.12.22,17.01.06,01.08 -//help:Setslidebody(["black",,0]); -//help:Setslidebody(["blue","\Large\bf\boldmath",0.1]); - regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc); - letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0]; - shadowc=[0,0,0,0.5]; mboxc="yellow"; - if(!islist(SlideColorList), - SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3, - letterc,mboxc,mboxc,mboxc,62,2,letterc]; - ); - if(length(str)>0,SlideColorList_(15)=str); - if(length(style)>0,BodyStyle=style); - ThinDense=density;//17.01.08 -); - -Setslidehyper():=Setslidehyper(["cl=true,lc=blue,fc=blue",125,70,1]); -// 16.12.31from -Setslidehyper(Arg):=( - if(isstring(Arg), - if(length(Arg)==0, //17.01.29from - Setslidehyper(); - , - Setslidehyper(Arg,[]); - );//17.01.29upto - , - Setslidehyper("dvipdfmx",Arg); - ); -); -Setslidehyper(driver,options):=( -//help:Setslidehyper(); -//help:Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",125,70,1]); -//help:Setslidehyper([125,70,0]); - regional(reL,stL,tmp,tmp1,tmp2,str,reL); - str=""; - reL=[]; - forall(options, - if(isstring(#), - str=# - , - reL=append(reL,#); - ); - ); - if(length(str)>0,str=","+str); - tmp1=""; - if(length(driver+str)>0, - tmp1="["+driver+str+"]"; - ); - tmp1=replace(tmp1,"cl=","colorlinks="); - tmp1=replace(tmp1,"lc=","linkcolor="); - tmp1=replace(tmp1,"fc=","filecolor="); - tmp1=replace(tmp1,"uc=","urlcolor="); - Addpackage(tmp1+"{hyperref}"); - LinkPosH=125; - LinkPosV=70; - LinkSize=1; - if(length(reL)>0,LinkPosH=reL_1); - if(length(reL)>1,LinkPosV=reL_2); - if(length(reL)>2,LinkSize=max(reL_3,0.1)); // 17.07.31 -); - -Settitle(cmdL):=Settitle("slide0",cmdL,[]); -Settitle(Arg1,Arg2):=( - if(isstring(Arg1), - Settitle(Arg1,Arg2,[]); - , - Settitle("slide0",Arg1,Arg2); - ); -); -Settitle(name,cmdL,options):=( -//help:Settitle(cmdL); -//help:Settitle(name,cmdL); -//help:Settitle(options=["Layery=0","Color=blue"]); - regional(tmp,tmp1,tmp2,eqL,layery,color,size,font); - TitleName=name; - layery="0"; - color="blue"; - size="\Large"; - font="\bf"; - tmp=Divoptions(options); - eqL=tmp_5; - forall(eqL, - tmp1=Toupper(substring(#,0,1)); - tmp=indexof(#,"="); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="L", - layery=tmp2; - ); - if(tmp1=="C", - color=tmp2; - ); - if(tmp1=="S", - size=tmp2; - if(substring(size,0,1)!="\",size="\"+size); - ); - if(tmp1=="F", - font=tmp2; - if(substring(font,0,1)!="\",font="\"+font); - ); - ); - TitleCmdL=["{"+size+font]; - if(indexof(color,"[")>0, - tmp=replace(color,"[","{"); - tmp=replace(tmp,"]","}"); - tmp1=Indexall(tmp,","); - if(length(tmp1)>=3, - tmp="\color[cmyk]"+tmp; - , - tmp="\color[rgb]"+tmp; - ); - , - tmp="\color{"+color+"}"; - ); - TitleCmdL=append(TitleCmdL,tmp); - TitleCmdL=concat(TitleCmdL,["","\begin{layer}{120}{"+layery+"}"]); - forall(1..(length(cmdL)), - tmp=cmdL_#; - if(length(tmp)>0, - if(#==1, - tmp="{\Huge \putnote"+tmp+"}" - , - tmp="\putnote"+tmp; - ); - TitleCmdL=append(TitleCmdL,tmp); - ); - ); - TitleCmdL=concat(TitleCmdL,["\end{layer}","","}"]); -); - -Maketitle():=( - if(!isstring(TitleName), //17.04.13from - drawtext(mouse().xy,"Settitle not defined", - size->24,color->[1,0,0]); - , //17.04.13upto - Maketitle(TitleName); - ); -); -Maketitle(name):=( -//help:Maketitle(); - regional(texfile,texmain,tmp,tmp1,sep); - texfile=name; - texmain=name+"main"; - SCEOUTPUT=openfile(texfile+".tex"); - forall(TitleCmdL, - println(SCEOUTPUT,#); - ); - closefile(SCEOUTPUT); - SCEOUTPUT=openfile(texmain+".tex"); - tmp="\documentclass[landscape,10pt]{article}"; - if(indexof(PathT,"platex")>0, - tmp=replace(tmp,"article","jarticle"); - if(indexof(PathT,"uplatex")>0, //17.08.13from - tmp=replace(tmp,"jarticle","ujarticle"); - );//17.08.13upto - ); - println(SCEOUTPUT,tmp); - tmp="\special{papersize=\the\paperwidth,\the\paperheight}"; - println(SCEOUTPUT,tmp); -// if(iswindows(),sep="\",sep="/"); // 17.04.08from -// sep="/"; - //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}"); - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}"); - println(SCEOUTPUT,"\usepackage{amsmath,amssymb}"); - println(SCEOUTPUT,"\usepackage{bm,enumerate}"); - if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0), - println(SCEOUTPUT,"\usepackage{graphicx}"); - , - println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}"); - ); - println(SCEOUTPUT,"\usepackage[usenames]{xcolor}"); - forall(ADDPACK, -// if(indexof(#,"[")==0, -// println(SCEOUTPUT,"\usepackage{"+#+"}"); -// , - println(SCEOUTPUT,"\usepackage"+#); // 17.07.10 -// ); - ); - if(indexof(PathT,"platex")>0,tmp="\ketmarginJ",tmp="\ketmarginE"); - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"\ketslideinit"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\begin{document}"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\input{"+texfile+".tex}"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\end{document}"); - closefile(SCEOUTPUT); - if(iswindows(), - Makebat(texmain,"tv"); - , - Makeshell(texmain,"tv"); - ); - kc(); -); - -Repeatsameslide(repeatflg,sestr,addedL):=( - regional(seL,flg1,ss,nn,nrep,tmp,tmp1,tmp2,tmp3,str,j,k); - // global RepeatList, SCEOUTPUT - nrep=length(RepeatList); - flg1=0; - forall(addedL,ss, - if(repeatflg==0, - if(substring(ss,0,1)!="%", //16.01.04 - println(SCEOUTPUT,ss); - );//16.01.04 - , - forall(1..nrep,nn, - if(sestr=="", - RepeatList_nn=append(RepeatList_nn,ss); - ); - ); - if(sestr=="", - seL=[1]; - , - tmp1=substring(sestr,1,length(sestr)-1); - tmp1=replace(tmp1,",-",".."+text(nrep)); - tmp1=replace(tmp1,"-,","1.."); - tmp1="["+tmp1+"]"; //17.01.03 - seL=flatten(parse(tmp1)); //17.01.03 - ); - if(contains(seL,1), - if(substring(ss,0,1)!="%", //16.01.04 - println(SCEOUTPUT,ss); - ); - seL=remove(seL,[1]); - flg1=1; - ); - forall(1..(length(seL)),nn, - tmp=seL_nn; - if(tmp<=length(RepeatList), //17.01.12from - RepeatList_tmp=append( RepeatList_tmp,ss); - , - println(" "+sestr+" : "+text(tmp)+" > "+text(length(RepeatList))); - ); - ); - if(ThinFlg==1,//16.01.05from - if(flg1==1,seL=append(seL,1)); - seL=remove(1..nrep,seL); - str=ss; // 17.05.28from - repeat(10, - tmp1=Indexall(str,"{\color"); - if(length(tmp1)>0, - tmp2=Indexall(str,"}"); - tmp=select(tmp2,tmp1_1<#); - tmp=substring(str,tmp1_1,tmp_1); - str=replace(str,tmp+" ",""); - str=replace(str,tmp,""); - ); - );//17.05.28upto - if(contains(seL,1), - if(substring(str,0,1)!="%", - if(NonThinFlg==0, - if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15 - println(SCEOUTPUT,"{\color[cmyk]{\thin,\thin,\thin,\thin}");//17.08.23 - println(SCEOUTPUT,str); - println(SCEOUTPUT,"}%"); - , - println(SCEOUTPUT,str); - ); - ); - if(NonThinFlg==1, - if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15 - println(SCEOUTPUT,"{\color[cmyk]{\thin,\thin,\thin,\thin}");//17.08.23 - ); - println(SCEOUTPUT,str); - ); - if(NonThinFlg==2, - println(SCEOUTPUT,str); - if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15 - println(SCEOUTPUT,"}%"); - ); - ); - seL=remove(seL,[1]); - ); - ); - if(substring(ss,0,1)!="%", //16.01.04 - forall(1..(length(seL)),nn, - tmp=seL_nn; - if(NonThinFlg==0, - tmp1="{\color[cmyk]{\thin,\thin,\thin,\thin}";//17.08.23 - tmp1=[tmp1,str,"}%"]; - ); - if(NonThinFlg==1, - tmp1="{\color[cmyk]{\thin,\thin,\thin,\thin}";//17.08.23 - tmp1=[tmp1,str];//17.01.08upto - ); - if(NonThinFlg==2, - tmp1=[str,"}%"]; - ); - RepeatList_tmp=concat( RepeatList_tmp,tmp1); - ); - ); - );//16.01.05upto - ); - );//16.12.05upto -); - -Presentation(texfile):=Presentation(texfile,texfile); -Presentation(texfile,txtfile):=( -//help:Presentation(texfile,txtfile); - regional(file,flgL,flg,verbflg,slideL,ns,slideorgL,wall,sld,slidecmd,tmp,tmp0,tmp1, - tmp2,tmp3,tmp4,tmp5,newoption,top,repeatflg,nrep,nrepprev,,repstr, - sestr,npara,paradt,parafiles,hyperflg,paractr, - letterc,boxc,shadowc,mboxc,sep); - slidecmd=["\ketcletter","\ketcbox","\ketdbox","\ketcframe", - "\ketcshadow","\ketdshadow","\slidetitlex","\slidetitlesize", - "\mketcletter","\mketcbox","\mketdbox","\mketcframe", - "\mslidetitlex","\mslidetitlesize"]; - if(!isstring(BodyStyle),//17.01.06 - BodyStyle="\Large\bf\boldmath"; - ); - repeatflg=0; - RepeatList=[]; - paractr=0; //16.12.31 - if(indexof(texfile,".")==0,file=texfile+".tex",file=texfile); - if(indexof(txtfile,".")==0,tmp1=txtfile+".txt",tmp1=txtfile); - tmp=load(tmp1); - tmp=replace(tmp,"////","||||");// 16.05.11, 06.24(reactivated) - slideL=tokenize(tmp,"//"); - slideorgL=slideL; // 16.07.11 - slideL=apply(slideL,Removespace(#)); - tmp=select(1..length(slideL),length(slideL_#)>0); // 16.07.11from - slideL=apply(tmp,slideL_#); - slideorgL=apply(tmp,slideorgL_#); -// slideL=select(slideL,length(#)>0); // 16.07.11upto - flg=0; // 16.06.09from - forall(1..10, - if(flg==0, - if(substring(slideL_1,0,1)!="%", - flg=1; - , - slideL=slideL_(2..length(slideL)); - slideorgL=slideorgL_(2..length(slideorgL)); - ); - ); - ); // 16.06.09upto - flgL=[]; - SCEOUTPUT = openfile(file); - tmp=tokenize(slideL_1,"::"); - tmp1=tmp_1; - if(length(tmp)>1, - tmp2=tmp_2; - tmp3=tmp_(3..length(tmp));//16.06.25 - , - tmp2=""; - tmp3=tmp_(2..length(tmp));//16.06.25 - ); - wall=""; // 16.06.10 - if(length(tmp3)>0,//16.06.25from - if(substring(tmp3_1,0,1)!="\" & indexof(tmp3_1,"=")==0, - wall=tmp3_1; - tmp3=tmp3_(2..length(tmp3)); - ); - );//16.06.25upto - tmp="%%% "+tmp1+" "+txtfile;// 16.06.09from - println(SCEOUTPUT,tmp); - tmp="\documentclass[landscape,10pt]{article}"; - if(indexof(PathT,"platex")>0, - tmp=replace(tmp,"article","jarticle"); - if(indexof(PathT,"uplatex")>0, //17.08.13from - tmp=replace(tmp,"jarticle","ujarticle"); - );//17.08.13upto - ); - println(SCEOUTPUT,tmp);// 16.06.09from - tmp=select(1..(length(tmp3)),indexof(tmp3_#,"\usepackage")>0);//17.06.18from - forall(tmp, - println(SCEOUTPUT,tmp3_#); - ); - tmp=remove(1..(length(tmp3)),tmp); - tmp3=tmp3_tmp;//17.06.18upto -// if(iswindows(),sep="\",sep="/"); // 17.04.08 -// sep="/"; - if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0), - if(indexof(PathT,"lualatex")>0, - println(SCEOUTPUT,"\usepackage{luatexja}"); - ); - println(SCEOUTPUT,"\usepackage{pict2e}"); -// println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.08from - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}"); - , - println(SCEOUTPUT,"\special{papersize=\the\paperwidth,\the\paperheight}"); - //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}"); - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); - );// 17.04.08upto - if(length(wall)==0, - //println(SCEOUTPUT,"\usepackage{ketslide}");//17.04.08from - tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16 - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}"); - , - tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16 - //println(SCEOUTPUT,"\usepackage{ketslide2}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide2}"); - );//17.04.08upto - println(SCEOUTPUT,"\usepackage{amsmath,amssymb}"); - println(SCEOUTPUT,"\usepackage{bm,enumerate}"); - if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0), - println(SCEOUTPUT,"\usepackage{graphicx}"); - , - println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}"); - ); -// println(SCEOUTPUT,"\usepackage[usenames]{color}"); -// println(SCEOUTPUT,"\usepackage{color}");//17.06.14 - println(SCEOUTPUT,"\usepackage{xcolor}");//17.07.31 - letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0]; - shadowc=[0,0,0,0.5]; mboxc="yellow"; -// if(!islist(SlideColorList), //17.03.02from -// SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3, -// letterc,mboxc,mboxc,mboxc,62,2,letterc]; -// , //17.03.02upto - tmp4="abcdefghijklmno"; - forall(1..15, - tmp=SlideColorList_#; - if(islist(tmp), - tmp=text(tmp); - tmp=substring(tmp,1,length(tmp)-1); - if(length(SlideColorList_#)==4,//17.01.07from - println(SCEOUTPUT,"\definecolor{slidecolor"+tmp4_#+"}{cmyk}{"+tmp+"}"); - ); - if(length(SlideColorList_#)==3, - println(SCEOUTPUT,"\definecolor{slidecolor"+tmp4_#+"}{rgb}{"+tmp+"}"); - );//17.01.07upto - SlideColorList_#="slidecolor"+tmp4_#; - ); - ); -// ); //17.03.02 - println(SCEOUTPUT,"\def\setthin#1{\def\thin{#1}}");//17.08.23 - println(SCEOUTPUT,"\setthin{"+text(ThinDense)+"}");//17.08.23 - forall(ADDPACK,// 16.06.09from -// if(indexof(#,"[")==0, // 16.09.05from -// println(SCEOUTPUT,"\usepackage{"+#+"}"); -// , - println(SCEOUTPUT,"\usepackage"+#); //17.07.10 -// ); - );// 16.06.09upto - tmp=select(ADDPACK,indexof(#,"{hyperref}")>0);//16.12.31from - if(length(tmp)>0, - hyperflg=1; - , - hyperflg=0; //16.12.31upto - ); - forall(tmp3, - println(SCEOUTPUT,#); - ); - if(indexof(PathT,"platex")>0,tmp="\ketmarginJ",tmp="\ketmarginE"); // 16.06.09 - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"\ketslideinit"); - println(SCEOUTPUT,""); - forall(tmp, // 15.07.21 - if(substring(#,0,1)=="\", println(SCEOUTPUT,#)); - ); - if(!isstring(PageStyle),PageStyle="headings");//17.04.09 - println(SCEOUTPUT,"\pagestyle{"+PageStyle+"}");//17.04.09 - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\begin{document}"); - println(SCEOUTPUT,""); - if(length(wall)>0, - println(SCEOUTPUT,"\input{fig/"+wall+".tex}"); - println(SCEOUTPUT,""); - ); - if(length(tmp2)>0, - if(indexof(tmp2," no")==0, // 16.11.11from - println(SCEOUTPUT,"\begin{layer}{120}{0}"); - if(substring(tmp2,0,1)!="\", - tmp2="\putnotese{0}{0}{\input{fig/"+tmp2+".tex}}";//16.12.27 - ); - println(SCEOUTPUT,tmp2); - println(SCEOUTPUT,"\end{layer}"); - println(SCEOUTPUT,""); - , - tmp=indexof(tmp2,"="); - if(tmp==0, - top="10mm"; - , - top=substring(tmp2,tmp,length(tmp2)); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\vspace*{"+top+"}"); - println(SCEOUTPUT,""); - ); // 16.11.11upto - ); - println(SCEOUTPUT,"\def\mainslidetitley{22}"); - forall(1..14, //16.12.22from - tmp=SlideColorList_#; - if(!isstring(tmp),tmp=text(tmp)); - if(length(tmp)>0, - tmp="\def"+slidecmd_#+"{"+tmp+"}"; - println(SCEOUTPUT,tmp); - ); - );//16.12.22upto - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\color{"+SlideColorList_(15)+"}"); - println(SCEOUTPUT,BodyStyle);//17.01.07 - println(SCEOUTPUT,"\thispagestyle{empty}");//17.01.29 - println(SCEOUTPUT,"\addtocounter{page}{-1}");//17.01.29 - println(SCEOUTPUT,""); - verbflg=0; //16.06.28 - repeatflg=0;//16.12.02 - nrep=0;//16.12.27 - nrepprev=0;//17.01.03 - npara=0;//16.12.27 - forall(2..length(slideL),ns, - ThinFlg=0; - NonThinFlg=0; - flg=0; - tmp1=""; - tmp2=""; - tmp3=""; - sld=removespace(slideL_ns); // 16.06.28 - sestr=""; - if((substring(sld,0,1)=="%") & (substring(sld,0,2)!="%%"), // 17.06.23 - Repeatsameslide(repeatflg,"",[slideL_ns]); - if(repeatflg>0, - tmp=indexof(sld,"]::"); - if(tmp>0, - if(substring(sld,1,2)!="%",//17.05.31 - if(substring(sld,1,5)=="thin", ThinFlg=1); // 17.05.28 - sestr=substring(sld,1,tmp); - sld=substring(sld,tmp+2,length(sld)); - tmp=indexof(sestr,"["); - sestr=substring(sestr,tmp-1,length(sestr));//17.01.05 - ); - ); - ); - if(substring(sld,1,7)=="repeat", // 16.12.09from - tmp=indexof(sld,"="); - tmp5=substring(sld,tmp,length(sld)); - tmp=indexof(tmp5,","); - if(tmp>0,//17.01.03from - tmp5=substring(tmp5,0,tmp-1); - );//17.01.03upto - repeatflg=1; - if(length(tmp5)>0, - nrep=parse(tmp5); - tmp=[]; - if(length(wall)>0, - tmp=["","\input{fig/"+wall+".tex}"]; - ); - tmp=concat(tmp,["","\sameslide"+NewSlideOption,"","\vspace*{18mm}",""]); - RepeatList=apply(1..nrep,if(#==1,[],tmp)); - ); - if(sestr=="",flg=1); - tmp=indexof(sld,",");//17.01.03from - if(tmp>0, - sld="%"+substring(sld,tmp,length(sld)); - if(indexof(sld,"=")==0,sld=sld+"="); - );//17.01.03upto - ); - if(substring(sld,1,5)=="para", - paractr=paractr+1; - repeatflg=1; - tmp=indexof(sld,"="); - tmp=substring(sld,tmp,length(sld)); - if(length(tmp)==0, //17.01.03 - npara=0; - , - paradt=tokenize(tmp,":"); - tmp=fileslist(Dirwork+"/fig/"+paradt_1); - if(length(tmp)>0, - parafiles=tokenize(tmp,","); - if(indexof(paradt_4,"input")>0, - tmp0=indexof(paradt_4,",");//17.01.29from - if(tmp0>0, - paradt=append(paradt,substring(paradt_4,tmp0,length(paradt_4))); - paradt_4=substring(paradt_4,0,tmp0-1); - );//17.01.29upto - parafiles=select(parafiles,indexof(#,".tex")>0); - if(indexof(paradt_4,"\input")==0,paradt_4="\"+paradt_4);//16.12.17 - ); - if(indexof(paradt_4,"include")>0, - parafiles=select(parafiles,indexof(#,".pdf")>0); - ); - npara=length(parafiles); - , - println(Dirwork+"/fig/"+paradt_1+" not found"); - parafiles=[]; - npara=0; - ); - if(nrep==0, - nrep=npara; - if(length(wall)>0, - tmp=["","\input{fig/"+wall+".tex}"]; - ); - tmp=concat(tmp,["","\sameslide"+NewSlideOption,"","\vspace*{18mm}",""]); - RepeatList=apply(1..nrep,if(#==1,[],tmp)); - ); - ); - forall(1..nrep, //16.12.28 - tmp4=[]; //16.12.31from - if(hyperflg>0, - tmp4=["\hypertarget{para"+text(paractr)+"pg"+text(#)+"}{}"]; - );//16.12.31upto - if(npara>0, //17.01.03 - tmp4=concat(tmp4,["","\begin{layer}{120}"+paradt_2]); - if(#<=npara, //16.12.28from - tmp=parafiles_#; - , - tmp=parafiles_npara; - ); - tmp="{"+paradt_4+"{fig/"+paradt_1+"/"+tmp+"}}"; - if(length(paradt)>=5, - tmp="{\scalebox{"+text(paradt_5)+"}"+tmp+"}"; - ); - if(substring(paradt_3,0,1)=="\", - tmp=paradt_3+tmp; - , - tmp="\putnote"+paradt_3+tmp; - ); - tmp4=concat(tmp4,[tmp]);//16.12.31 - , - tmp4=concat(tmp4,["","\begin{layer}{120}{0}"]); - ); - if(hyperflg>0, //17.09.05 - if(LinkSize>0.15, //17.09.05 - tmp="{"+text(LinkPosV)+"}{\hyperlink{para"; // 17.01.12from - tmp1=tmp+text(paractr)+"pg"; - tmp2=tmp+text(paractr-1)+"pg"+text(nrepprev); - if(#>1,tmp=tmp1+text(1),tmp=tmp2); - tmp3=[text(LinkPosH-29*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{" - +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize) - +"}{\scriptsize $\mathstrut|\!\lhd$}}}}}"]; - if(#>1,tmp=tmp1+text(max(#-3,1)),tmp=tmp2); - tmp3=append(tmp3, - text(LinkPosH-24*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{" - +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize) - +"}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}"); - if(#>1,tmp=tmp1+text(#-1),tmp=tmp2); - tmp3=append(tmp3, - text(LinkPosH-17*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{" - +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize) - +"}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}"); - tmp="{"+text(LinkPosV)+"}{\hyperlink{para"; - tmp2=tmp+text(paractr+1)+"pg"+text(1); - if(#<nrep,tmp=tmp1+text(#+1),tmp=tmp2); - tmp3=append(tmp3, - text(LinkPosH-10*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{" - +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize) - +"}{\scriptsize $\mathstrut\!\rhd\!$}}}}}"); - if(#<nrep,tmp=tmp1+text(min(#+3,nrep)),tmp=tmp2); - tmp3=append(tmp3, - text(LinkPosH-5*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{" - +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize) - +"}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}"); - if(#<nrep,tmp=tmp1+text(nrep),tmp=tmp2); - tmp3=append(tmp3, - text(LinkPosH)+"}"+tmp+"}{\fbox{\Ctab{" // 17.01.19 - +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize) - +"}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}"); - tmp3=apply(tmp3,tmp,"\putnotew{"+tmp); - tmp4=concat(tmp4,tmp3);// 17.01.12upto - );//17.09.05 - if(LinkPosH>0, //17.09.05 - tmp="\putnotew{"+text(LinkPosH)+"}{"+text(LinkPosV+6)+"}";//17.01.21from - tmp=tmp+"{\scriptsize\color{black} "+text(#)+"/"+text(nrep)+"}"; - tmp4=append(tmp4,tmp);//17.01.21upto - ); - ); - tmp4=concat(tmp4,["\end{layer}",""]);//16.12.31upto - Repeatsameslide(repeatflg,text([#]),tmp4); - ); - ); - ); - if(substring(sld,0,2)=="%%", //17.06.23from - println(SCEOUTPUT,sld); - flg=1; - ); //17.06.23upto - if(flg==0, - if(indexof(sld,"\begin{verbatim}")==1, // 16.06.28from - Repeatsameslide(repeatflg,sestr,[slideL_ns]); - verbflg=1; - flg=1; - ); // 16.06.28 - if(indexof(sld,"\end{verbatim}")==1, - Repeatsameslide(repeatflg,sestr,[slideL_ns]); - verbflg=0; - flg=1; - ); // 16.06.28upto - if(flg==0, - tmp=replace(sld,"||||","//"); // 16.05.11 - tmp=tokenize(tmp,"::"); // 16.05.11 - tmp1=tmp_1; - if(length(tmp)>1,tmp2=tmp_2,tmp2=""); - if(length(tmp)>2,tmp3=tmp_3,tmp3=""); - if(length(tmp)>3,tmp4=tmp_4,tmp4=""); - if(length(tmp)>4,tmp5=tmp_5,tmp5=""); - if(contains(["main","new","same"],tmp1), - if(tmp1=="new", // 16.11.09from - newoption=""; - if(substring(tmp2,0,1)=="[",newoption=tmp2); - ); - if(tmp1=="same", - if(length(tmp2)==0,tmp2=newoption); - );// 16.11.09upto - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%%%%%%%%%%%%%%%%%%%%"); - println(SCEOUTPUT,""); - ); - ); - if(flg==0&tmp1=="main", - if(repeatflg==1, - forall(2..(length(RepeatList)),nrep, - tmp=RepeatList_nrep; - forall(tmp, - if(substring(#,0,1)!="%", //16.01.04 - println(SCEOUTPUT,#); - ); - ); - ); - println(SCEOUTPUT,""); - repeatflg=0;RepeatList=[]; - nrepprev=nrep;//17.01.03 - nrep=0;//16.12.27 - npara=0;//16.12.27 - ); - if(length(wall)>0, - println(SCEOUTPUT,"\input{fig/"+wall+".tex}"); - ); - println(SCEOUTPUT,"\mainslide{"+tmp2+"}"); - println(SCEOUTPUT,""); - tmp2=""; - flg=1; - ); - if(flg==0&tmp1=="new", - if(repeatflg==1, - forall(2..(length(RepeatList)),nrep, - tmp=RepeatList_nrep; - forall(tmp, - if(substring(#,0,1)!="%", //16.01.04 - println(SCEOUTPUT,#); - ); - ); - ); - println(SCEOUTPUT,""); - repeatflg=0;RepeatList=[]; - nrepprev=nrep;//17.01.03 - nrep=0; - npara=0; - ); - if(length(wall)>0, - Repeatsameslide(repeatflg,sestr,["\input{fig/"+wall+".tex}"]); - ); - tmp="\newslide"; - NewSlideOption=""; //17.01.04 - if(substring(tmp2,0,1)=="[", - NewSlideOption=tmp2; //17.01.04 - tmp=tmp+tmp2; - tmp2=tmp3; - tmp3=tmp4; - tmp4=tmp5; - ); - tmp=tmp+"{"+tmp2+"}"; - Repeatsameslide(repeatflg,sestr,[tmp,"","\vspace*{18mm}",""]); - tmp2=""; - flg=1; - ); - if(flg==0&tmp1=="same", - if(repeatflg==1, - forall(2..(length(RepeatList)),nrep, - tmp=RepeatList_nrep; - forall(tmp, - if(substring(#,0,1)!="%", //16.01.04 - println(SCEOUTPUT,#); - ); - ); - ); - println(SCEOUTPUT,""); - repeatflg=0;RepeatList=[]; - nrepprev=nrep;//17.01.03 - nrep=0; - npara=0; - ); - if(length(wall)>0, - println(SCEOUTPUT,"\input{fig/"+wall+".tex}"); - ); - tmp="\sameslide"+NewSlideOption; //17.01.04; -// if(substring(tmp2,0,1)=="[", -// tmp=tmp+tmp2; -// tmp2=tmp3; -// tmp3=tmp4; -// ); - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\vspace*{18mm}"); - println(SCEOUTPUT,""); - tmp4=tmp3; - tmp3=tmp2; - tmp2=""; - flg=1; - ); - if(flg==0&tmp1=="itemize", - Repeatsameslide(repeatflg,sestr,["\begin{itemize}"]); - flgL=append(flgL,"i"); - tmp2=""; - tmp3=""; - flg=1; - ); - if(flg==0&tmp1=="enumerate", - Repeatsameslide(repeatflg,sestr,["\begin{enumerate}"+tmp2]); - flgL=append(flgL,"e"); - tmp2=""; - tmp3=""; - flg=1; - ); - if(flg==0&tmp1=="verbatim", //16.06.28from - Repeatsameslide(repeatflg,sestr,["\begin{verbatim}"]); - flgL=append(flgL,"v"); - tmp1=""; - tmp2=""; - tmp3=""; - verbflg=1; - flg=1; - ); //16.06.28upto - if(flg==0&tmp1=="layer", - Repeatsameslide(repeatflg,sestr,[""]); - tmp="\begin{layer}"; - if(length(tmp2)>0, - tmp=tmp+tmp2; - , - tmp=tmp+"{120}{0}"; - ); - Repeatsameslide(repeatflg,sestr,[tmp]); - flgL=append(flgL,"l"); - tmp2=""; - tmp3=""; - flg=1; - ); - if(flg==0&tmp1=="putnote", - tmp="\putnote"+tmp2+"{"; - if(indexof(tmp3,"include")==0, - tmp1=indexof(tmp3,","); - if(tmp1==0, - tmp=tmp+"\input{fig/"+tmp3+".tex}}"; - , - tmp2=substring(tmp3,tmp1,length(tmp3)); - tmp3=substring(tmp3,0,tmp1-1); - tmp=tmp+"\scalebox{"+tmp2+"}{\input{fig/"+tmp3+".tex}}}"; - ); - , - tmp2=indexof(tmp3,"["); - tmp3=substring(tmp3,tmp2-1,length(tmp3)); - tmp=tmp+"\includegraphics"+tmp3+"{fig/"+tmp4+"}}"; - ); - Repeatsameslide(repeatflg,sestr,[tmp]); - tmp2=""; - tmp3=""; - flg=1; - ); - if(flg==0&tmp1=="item", - NonThinFlg=1; - Repeatsameslide(repeatflg,sestr,["\item"]); - tmp3=""; - flg=1; - ); - if(flg==0&tmp1=="end", - tmp=flgL_(length(flgL)); - if(tmp=="i", - Repeatsameslide(repeatflg,sestr,["\end{itemize}"]); - ); - if(tmp=="e", - Repeatsameslide(repeatflg,sestr,["\end{enumerate}"]); - ); - if(tmp=="l", - Repeatsameslide(repeatflg,sestr,["\end{layer}",""]); - ); - if(tmp=="v", // 16.06.28from - Repeatsameslide(repeatflg,sestr,["\end{verbatim}",""]); - verbflg=0; - ); // 16.06.28upto - flgL=flgL_(1..(length(flgL)-1)); - tmp2=""; - tmp3=""; - flg=1; - ); - if(flg==0, // 16.06.28from - if(verbflg==0, - tmp2=tmp1; - , - tmp2=slideorgL_ns; // 16.07.11 - tmp2=replace(tmp2,"||","//"); // 16.07.10 - tmp3=""; - ); - ); // 16.06.28upto - if(length(tmp2)>0, - if(tmp2=="...", tmp2=""); - if(NonThinFlg==1,NonThinFlg=2); - Repeatsameslide(repeatflg,sestr,[tmp2]); - ); - if(length(tmp3)>0, - Repeatsameslide(repeatflg,sestr,["\begin{layer}{120}{0}"]); - if(substring(tmp3,0,1)=="{", - tmp=tmp3; - tmp3=tmp4; - , - tmp="{60}{0}"; - ); - tmp1=indexof(tmp3,","); - if(tmp1==0, - tmp3="\putnotes"+tmp+"{\input{fig/"+tmp3+".tex}}"; - , - tmp2=substring(tmp3,tmp1,length(tmp3)); - tmp3=substring(tmp3,0,tmp1-1); - tmp3="\putnotes"+tmp+"{\scalebox{"+tmp2+"} - {\input{fig/"+tmp3+".tex}}}"; - ); - Repeatsameslide(repeatflg,sestr,[tmp3,"\end{layer}",""]); - ); - ); - ); - if(repeatflg==1, - forall(2..(length(RepeatList)),nrep, - tmp=RepeatList_nrep; - forall(tmp, - if(substring(#,0,1)!="%", //16.01.04 - println(SCEOUTPUT,#); - ); - ); - ); - println(SCEOUTPUT,""); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\end{document}"); - closefile(SCEOUTPUT); -); - -Mkslides():=( - regional(sep,parent,texparentorg,tmp,tmp1,tmp2,tmp3,tmp4,flg); - tmp4=Fhead; - Fhead=""; - if(length(Shellparent)>0, // 16.05.29 - sep="/"; - Dirwork=replace(Dirwork,"\",sep); - parent=replace(Dirwork+Shellparent,"\",sep);// 16.05.29 - , - sep="\"; - Dirwork=replace(Dirwork,"/",sep); - parent=replace(Dirwork+Batparent,"/",sep);// 16.05.29 - ); - Dirwork=replace(Dirwork,sep+"fig",""); - Setdirectory(Dirwork); - if(length(Texmain)>0, // 15.08.14 from - Texparent=Texmain; - ); - texparentorg=Texparent; //17.04.10from - if(isstring(Slidename), // 15.08.14 from - Texparent=Slidename; - );//17.04.10upto - if(!isexists(Dirwork,Texparent+".txt"), // 17.04.12from - drawtext(mouse().xy,Texparent+".txt not exist in "+Dirwork, - size->24,color->[1,0,0]); - , // 17.04.12upto - Presentation(Texparent); // 15.08.14 upto - if(iswindows(), - tmp1=Batchild; - tmp2=Batparent; - tmp3=Shellfile; - parent=replace(Dirwork+Batparent,sep+"fig","");// 16.05.29 - if((isstring(Sheslide)) & (length(Shellslide)>0), - Shellfile=Dirbin+sep+Shellslide+".bat"; // 15.12.08 - Batchild=Shellfile; - , - Shellfile=".bat"; - ); - Makebat(Texparent,"tv"); // 16.07.21 - kc():=( - println("kc : "+kc(parent,Dirlib,Fnametex)); // 16.06.10, 17.02.19 - ); - kc(); - Batchild=tmp1; - Batparent=tmp2; - Shellfile=tmp3; - , - tmp1=Shellchild; - tmp2=Shellparent; - tmp3=Shellfile; - parent=replace(Dirwork+Shellparent,sep+"fig","");// 16.05.29 - if((isstring(Shellslide)) & (length(Shellslide)>0), - Shellfile=Dirbin+sep+Shellslide+".sh"; // 15.12.08 - Shellchild=Shellfile; - , - Shellfile=".sh"; - ); - Shellparent=replace(Shellparent,sep+"fig",""); - Makeshell(Texparent,"tv"); // 16.07.21 - kc():=( - println("kc : "+kc(parent,Mackc+Dirlib,Fnametex)); // 16.06.10 - ); - kc(); - Shellchild=tmp1; - Shellparent=tmp2; - Shellfile=tmp3; - ); - ); - Dirwork=Dirwork+sep+"fig"; - setdirectory(Dirwork); - Fhead=tmp4; - Texparent=texparentorg;//17.04.10 -); - -Mkslidesummary():=( // 17.04.10revised - regional(texparentorg); - texparentorg=Texparent; - if(isstring(Slidename), - Texparent=Slidename; - ); - Mkslidesummary(Texparent,Texparent+"sum",["m","Wait=3"]); - Texparent=texparentorg;//17.04.10 -); -Mkslidesummary(fin,fout):= - Mkslidesummary(fin,fout,["m","Wait=3"]); -Mkslidesummary(inputfile,outputfile,options):=( -//help:Mkslidesummary(fin,fout,options); - regional(fin,fout,out,sep,figflg,dirworkorg,dirtop,tmp); - dirworkorg=Dirwork;//17.04.10from - if(iswindows(),sep="\",sep="/"); - dirtop=replace(Dirwork,sep+"fig",""); - Changework(dirtop);//17.04.10uptp - fin=inputfile; - if(indexof(fin,".")==0,fin=fin+".tex"); - fout=outputfile; - if(indexof(fout,".")==0,fout=fout+".tex"); - cmdL=[ - "Dt=mgetl('"+fin+"');",[], - "Tmp=find((strstr(Dt,'\hypertarget')=='') - &(strstr(Dt,'\hyperlink')==''))",[], - "Dt=Dt(Tmp)",[], - "Smain=strstr(Dt,'\mainslide')",[], - "Snew=strstr(Dt,'\newslide')",[], - "Ssame=strstr(Dt,'\sameslide')",[], - "Nnew=[]",[], - "Nsame=[]",[], - "for J=1:size(Dt,1), - if (length(Snew(J))>0)|(length(Smain(J))>0), - Nnew=[Nnew,J], - end; - if length(Ssame(J))>0, - Nsame=[Nsame,J], - end; - end",[], - "Out=Dt(1:Nnew(1))",[], - "for J=2:length(Nnew), - Tmp=find(Nsame<Nnew(J)); - Tmp=max(Tmp); - Tmp=max([Nsame(Tmp),Nnew(J-1)])+1; - Out=[Out;Dt(Tmp:Nnew(J))], - end",[], - "Tmp=max([Nsame($),Nnew($)])+1",[], - "Out=[Out;Dt(Tmp:size(Dt,1))]",[], - "mputl(Out,'"+fout+"');",[] - ]; - CalcbyS("out",cmdL,options); - wait(1000); - Changework(dirtop);//17.04.10 - tmp=replace(fout,".tex",""); - if(iswindows(), - Makebat(tmp,"tv"); - , - Makeshell(tmp,"tv"); - ); - kc(); - Changework(dirworkorg);//17.04.10 -); - -Example(exorg):=Example(exorg,""); -Example(exorg,suborg):=( -//help:Example("Mxfun","diff"); - regional(ex,tmp,tmp1,tmp2); - ex=replace(exorg,"'",Dq); - sub=replace(suborg,"'",Dq); - setdirectory(Dirlib); - tmp=load("examples.txt"); - setdirectory(Dirwork); - tmp=tokenize(tmp,"//"); - tmp=tmp_(1..(length(tmp)-1)); - tmp1=select(tmp,substring(#,0,length(ex))==ex); - tmp1=sort(tmp1); - if(length(sub)>0, - tmp1=select(tmp1,indexof(#,sub)>0); - ); - forall(tmp1, - if((indexof(#,"##")>0) % (indexof(#,"~#")>0), - tmp=indexof(#,","); - println(substring(#,tmp,length(#))); - , - println(#); - ); - ); -); - -BBdata():=Bbdata(BBTarget,0); -BBdata(fname):=Bbdata(fname,0); // 16.04.09 -BBdata(fname,optionorg):=( -//help:BBdata(filename); -//help:BBdata(options=0(automatic),1(make),"w=","h="); - regional(fout,flg,path,file,kcfile,options,eqL,reL,stL, - waiting,addop,tmp,tmp1,tmp2); - path=""; - file=fname; - flg=0; - waiting=2; - forall(reverse(1..length(fname)), - if(flg==0, - tmp=substring(fname,#-1,#); - if(tmp=="/" % tmp=="\", // 14.01.15 - path=substring(fname,0,#-1); - file=substring(fname,#,length(fname)); - flg=1; - ); - ); - ); - if(path=="",path=Dirwork);//16.10.05 - if(indexof(file,".")==0,file=file+".pdf"); - if(islist(optionorg),options=optionorg,options=[optionorg]); - tmp=divoptions(options); - eqL=tmp_5; - reL=tmp_6; - stL=tmp_7; - flg=0; - addop=""; - if(length(reL)>0, - tmp=reL_1; - if(tmp==1,flg=1); - ); - forall(stL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M",flg=1); - ); - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,2)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="W=", - addop=addop+",width="+tmp2; - options=remove(options,[#]); - ); - if(tmp1=="H=", - addop=addop+",height="+tmp2; - options=remove(options,[#]); - ); - ); - tmp=indexof(file,"."); - tmp1=substring(file,0,tmp-1); - fout=tmp1+".txt"; - if(iswindows(), - kcfile="kc.bat"; - , - kcfile="kc.sh"; - ); - if(flg==0, - tmp=load(fout); // - if(length(tmp)==0, - flg=1; - , - tmp=tokenize(tmp,"%%"); - tmp=tmp_2; - tmp1=indexof(tmp,":"); - tmp=substring(tmp,tmp1,length(tmp)); - tmp=Removespace(tmp); - if(tmp!=file,flg=1); - ); - ); - if(length(path)==0, - path=Dirwork; - ); - if(flg==1, - setdirectory(path); - tmp=load(file); - setdirectory(Dirwork); - if(length(tmp)==0, - println(" => "+file+" not exists"); - flg=-1; - ); - ); - if(flg==1, - SCEOUTPUT = openfile(kcfile); - if(!iswindows(), - println(SCEOUTPUT,"#!/bin/sh"); - ); - println(SCEOUTPUT,"cd "+Dq+path+Dq); - tmp=replace(PathT,"pdflatex","extractbb"); //16.11.22 - tmp=replace(tmp,"pdftex","extractbb"); //16.11.22 - tmp=replace(tmp,"xelatex","extractbb"); - tmp=replace(tmp,"uplatex","extractbb"); //17.09.20 - tmp=replace(tmp,"platex","extractbb"); - tmp=replace(tmp,"latex","extractbb"); - tmp=tmp+" -O "+file; - if(iswindows(), - tmp=tmp+" > "+Dirwork+"\"+fout; - , - tmp=tmp+" > "+Dirwork+"/"+fout; - ); - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - kc(Dirwork+"/"+kcfile,Mackc+Dirlib,Fnametex); // 16.06.07 - ); - if(flg>=0, - tmp1=0; - repeat(floor(waiting*1000/WaitUnit), - if(tmp1==0, - wait(10); - tmp=load(fout); - if(indexof(tmp,"CreationDate")>0, - tmp1=1; - ); - ); - ); - if(length(tmp)==0, - println(fout+" not generated. Maybe "+kcfile+" not run."); - , - tmp=tokenize(tmp,"%%"); - tmp=select(tmp,indexof(#,"Bounding")>0); - tmp=tmp_2; // - tmp1=indexof(tmp,":"); - tmp=substring(tmp,tmp1,length(tmp)); - tmp=removespace(tmp); - tmp=tokenize(tmp," "); - tmp1=""; - forall(tmp, - tmp1=tmp1+Sprintf(#,2)+" "; - ); - tmp1=removespace(tmp1)+addop; - tmp2="\includegraphics[bb="+tmp1+"]{"+file+"}"; - println(tmp2); - ); - ); -// setdirectory(Dirwork); - tmp2; // 16.04.25 -); - -//help:end(); - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2log.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2log.txt deleted file mode 100644 index d74a1a68..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2log.txt +++ /dev/null @@ -1,295 +0,0 @@ -// s:2017.09.05 -// Presentation ( option about display of arrowbutton ) -// s:2017.08.23 -// thin changed so as to change dynamically -// \setthin{dense} supported -// s:2017.08.13 -// uplatex added -// s:2017.07.31 -// Presentation, Mktitle changed (color->xcolor) -// Setslidehyper, Presentation changed (the case LinkSize==0) -// s:2017.07.10 -// Presentation,.. debugged (Addpack ) -// s:2017.06.25 -// Addpackage changed ( change to full form of package ) -// Presentation changed ( ADDPACK ) -// s:2017.06.23 -// Presentation debugged ("%%") -// s:2017.06.19 -// Htick, Vtick added -// s:2017.06.18 -// Presentation changed ( usepackages in the1st line are writte first) -// s:2017.06.14 -// Presentation changed ( usepackage{color} ) -// s:2017.06.11 -// Periodfun debugged( for "pi",etc) -// e:2017.05.31 -// Presentation changed (for %%[, %%thin[ ) -// e:2017.05.30 -// Setwindow changed and moved to basic1( SW,NE ) -// e:2017.05.28 -// Repeatsameslide changed (color for thin) -// Presentation changed ( comment out the thin line ) -// e:2017.05.24 -// WriteOutData changed (format changed 4 -> 5) -// ReadOutdata changed ( for blank file ) -// e:2017.05.13 -// Dispchoice() added ( for Keypressed ) -// e:2017.05.13 -// WritetoSci debugged ( for Scilab6 and pdflatexs ) -// e:2017.04.16 -// Slidework debugged ( "\" for windows ) -// e:2017.04.13 -// Maketitle changed ( Error Message when Settitle is not defined ) -// Viewparent added -// e:2017.04.12 -// Mkslides changed ( Error Message when txt file do not exist ) -// e:2017.04.11 -// Putslider added -// e:2017.04.10 -// Mkslides,Mkslidesummary changed ( Slidename ) -// Mkslidesummary debugged -// e:2017.04.09 -// Presentation debugged (for verbatim ) -// Presentation changed (PageStyle ) -// s:2017.04.08 -// bugs fixed -// e:2017.04.08 -// Figpdf, Mktitle, Presentation changed -// ( To read stylefiles from ketpicstyle); -// e:2017.04.07 -// Viewtex changed ( To read stylefiles from ketpicstyle, log of ketcindy deleted); -// e:2017.03.05 -// Setslide... changed (to display values when no argment ) -// e:2017.03.02 -// Presentation changed ( To define SlideColorList removed); -// e:2017.02.19 -// Maketitle, Mkslides debugged ( for windows ) -// e:2017.01.29 -// Setslidehyper changed ( for null string) -// Presentation changed (pagestyle added, para for input(,) changed ) -// e:2017.01.21 -// Presentation changed ( counter added to para ) -// e:2017.01.20 -// Setrange added -// e:2017.01.15 -// Repeatsameslide debugged ( for \begin,\end ) -// e:2017.01.14 -// Mkslidesummary added -// e:2017.01.12 -// Repeatsameslide changed ( message for "n>nrep" added) -// Presentation changed ( hyperlink ) -// Writetosci changed ( english message for windows) -// e:2017.01.07 -// Setslide..., Presentation changed ( slidecolorlist); -// e:2017.01.06 -// Setslidebody, Presentation changed ( BodyStyle, "\boldmath"); -// Presentation changed ( thin added ) -// Mkbeziercrv changed ( name => nm ) -// Presentation changed ( for pdflatex,lualatex , not finished ) -// e:2017.01.05 -// Setslidemain debugged -// Presentation changed ( NewSlideOption added to sameslide ) -// Presentation,Repeatsameslide changed (ThinFlg,NonThinFlg) -// e:2017.01.03 -// Presentation changed (control button) -// e:2016.12.31 -// Helplist changed (when adding to HLIST) -// Setslidehyper added -// Presentation changed (paractr,hyherflg) -// e:2016.12.29 -// Writetosci changed ( add null row when path not defined) -/// e:2016.12.28 -// Maketitle debugged -// e:2016.12.27 -// Maketitle, Settitle added -// Slidework debugged ( when "fig" not exists ) -// Presentation changed ( nrep,npara ) -// e:2016.12.25 -// WritetoSci changed ( date/time and path/file stamped if possible) -// e:2016.12.23 -// BBdata changed ( waiting=2) -// e:2016.12.22 -// Setslidetitle,Setslidemain,Setslidebody added -// Presentation changed ( for commands above ) -// e:2016.12.20 -// Slidework changed ( isexists(dir) checked ) -// e:2016.12.18 -// Slidework changed ( to create "fig" when not exists ) -// Presentation changed ( input replaced to \input ) -// viewtex changed ( luatexja-core => luatexja ) -// e:2016.12.16 -// Tabledata,Tabledatalight changed ( "Rng" option added ); -// Viewtex,Writetosci,Makeshell,Makebat changed (for lualatex ); -// e:2016.12.09 -// Presentation changed ( for parapara ) here fileslist(directory) used -// e:2016.12.06 -// Changetablestyle debugged -// e:2016.12.05 -// Repeatsameslide added -// Presentation changed ( for repeated slide ) -// e:2016.11.29 -// Macro \ketcindy recovered -// Writetosci debugged ( for pdflatex ) -// e:2016.11.28 -// Tabledata,Tabldata changed (TableOptions added ) -// ChangeTablestyle changed completely -// e:2016.11.24 -// Periodfun,Fourierseries added -// Viewtex changed ( option [pdftex] added to pict2e ) -// e:2016.11.23 -// Viewtex changed (if pdflatex, Libname changed) -// e:2016.11.22 -// Viewtex changed (for pict2e) -// BBdata changed ( for pdflatex ) -// e:2016.11.16 -// Defvar changed (for a list of variables ) -// e:2016.11.11 -// Presentation changed (for no title (nodisp=10mm) ) -// e:2016.11.09 -// Presentation changed (for same option([]) ) -// e:2016.11.08 -// Figpdf changed (options ) -// e:2016.10.21 -// Datetime added -// e:2016.10.20 -// Makeshell changed (skim for mac ) -// e:2016.10.19 -// Letter debugged (case of s,e ) -// e:2016.10.13 -// Letter changed (position ) -// e:2016.10.11 -// PutonLine,PutonSeg debugged & changed ( scaling, segstr) -// e:2016.10.09 -// Expr and Letter(slightly) changed -// e:2016.10.07 -// Commands which use Putpoint changed (=> .name ) -// e:2016.10.06 -// Putpoint changed ( .name used ) -// BBdata changed (default path ) -// e:2016.09.30 -// Letter,Expr changed ( align, string ) -// e:2016.09.25 -// Small bug-fix ( :, ", _ ) -// e:2016.09.05 -// Texview, Figpdf, Presentation changed ( for ADDPACK ) -// e:2016.08.16 -// Mkbezierptcrv, Ospline, Bspline, Beziersmooth, -// CRspline, Beziersym changed ( for scaling ) -// e:2016.08.10 -// Setslidecolor added -// Presentation changed ( for color change ) -// e:2016.07.21 -// Makeshell,Makebat, Mkslides changed (no call of .sh/.bat ) -// e:2016.07.11 -// Presentation changed (spaces in verbatim, and || in verbatim changed // ) -// e:2016.07.07 -// Letter, Expr changed ( opcindy "size->..." supported ) -// e:2016.06.28 -// Presentation debugged and changed (verbatim, :: ) -// e:2016.06.25 -// Presentation debugged (Preamble addtion ) -// e:2016.06.10 -// Iftosci changed (Major change ) -// Presentation debugged ( wall ) -// Slidework added -// e:2016.06.09 -// Viewtex,Figpdf,Presentation changed ( jartcle used when platex ) -// Presentation changed ( for % ) -// e:2016.06.07 -// Mackc added -// e:2016.06.06 -// Makebat debugged -// e:2016.06.04 -// Viewtex,Mkslide, BBdata changed ( kc) -// e:2016.06.02 -// Makeshell,Makebat changed ( Pathpdf= ) -// e:2016.05.30 -// Makeshell changed ( output to kcout.txt ) -// Makebat changed ( for Sumatra ) -// e:2016.05.29 -// WritetoSci changed ( for /users ) -// Makeshell, Makebat, Mkslide changed ( for /users ) -// e: 2016.05.25 -// Defun changed ( for "forall") -// Iftosci debugged, Fortosci added - - -/////////////////// -// e: 2015.11.06 -// libbasic divided to libbasic1,libbasic2 -// e: 2015.11.09 -// helplist debugged -// e: 2015.11.25 -// Help changed ( ' changed to Dq) -// e: 2015.11.29 -// Example, Helpkey added -// e: 2015.12.08 -// Mkslide changed ( Dirbin ) -// e: 2015.12.12 -// Makeshell, Makebat changed ( for autosetting ) -// Mksliides changed ( for autosetting ) -// e: 2015.12.14 -// Mkslides, Makeshell, Makebat changed ( for autosetting of slides ) -// e: 2016.01.12 -// Viewtex changed ( Title changed to verb ) -// e: 2016.01.18 -// Viewtex debugged ( Title changed to verb ) -// e: 2016.01.21 -// Drwxy debugged -// Help of Drwpt added -// Sciform patched -// e: 2016.02.02 -// Helpkey changed ( for 2 keywords ) -// e: 2016.02.10 -// Putoncurve changed ( option :"Msg=no" ) -// Setwindow changed ( option :"Msg=no" ) -// e: 2016.02.16 -// Help of ExtractData changed -// e: 2016.02.18 -// Deffun ( help ) changed -// e: 2016.02.22 -// Ptonseg changed ( par option added ) -// e: 2016.03.05 -// Drwpt changed ( point/pointlist allowed) -// e: 2016.03.07 -// ReadOutData changed ( change of path supported) -// e: 2016.03.09 -// ReadOutData debugged ( in case of no path) -// e: 2016.03.25 -// Figpdf added -// e: 2016.03.26 -// Figpdf changed ( for various unitlen ) -// e: 2016.03.28 -// Mkshell, Mkbat changed ( for "mv" ) -// e: 2016.04.07 -// Viewtex changed ( by \ketcindy) -// Figpdf changed ( options "4,3,2" effective ) -// e: 2016.04.08 -// Figpdf,Makeshell, Makebat changed ( FigPdfList ) -// Figpdf changed ( options ) -// e: 2016.04.09 -// Drwpt,Pointdata changed ( boundary ) -// e: 2016.04.11 -// BBdata added -// BBdata changed ( to look at fig.txt) -// e: 2016.04.12 -// BBdata changed ( prec=2, option of width/heigh ) -// e: 2016.04.17 -// ReadOutData changed ( for file of no "." => ".txt" ) -// Writebezier, Readbezier added -// e: 2016.04.18 -// Sciform debugged -// e: 2016.04.19 -// Sciform changed -// e: 2016.04.22 -// Writebezier, Readbezier changed -// e: 2016.05.11 -// Presentation changed (for url //// ) -// e: 2016.05.15 -// Makeshell changed (sh added ) -// e: 2016.05.16 -// Addpackage added -// Viewtex,Figpdf changed ( for Addpackage ) -////// To Reverse sequence ////// - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt index b40ce122..428c5b30 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt +++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt @@ -1,3 +1,37 @@ +//2017.12.24 +// IftoR, FortoR,Deffun rewritten +//2017.12.23 +// Bezier, Translatedata,Rotatedata,Reflectdata debugged ( [ ] ) +// RSform : help added +//2017.12.19 +// WritetoSci() added (=WritetoR(), for old Parent button ) +//2017.12.16 +// Setslidehyper changed ("Size=","Pos=[]") +//2017.12.09 +// Mkslides changed (for animation) +// MakeRarg (from Makesciarg ) added ( RSslash ) +// Setax, Htickmark, Vtickmark changed ( MakeRarg ) +//2017.11.24 +// Slidework changed ( makedir) +// Rotatedata debugged ( MeasureDepth) +//2017.11.20 +// Slidework changed ( for the case of (ex) dir="...../") +//2017.11.05 +// Figpdf debugged +//2017.11.01 +// Presentation debugged ( usepackage{ketpic} etc. ) +//2017.10.30 +// Viewtex changed ( path of ketpicstyle ) +//2017.10.28 +// WritetoRS changed ( generator is written ) +//2017.10.26 +// Mksummary changed for R +//2017.10.18 +// Letter,Letterrot,Exprrot debugged (\ and \\) +//2017.10.17 +// Viewtex debugged ($ removed for xelatex) +//2017.10.16 +// Mkslides debugged ( line4 from last,path) //2017.10.14 // Makebat,Makeshell changed(flow="tt" supported) //2017.10.13 diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs index b2c9fb93..5c8381af 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs +++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs @@ -14,7 +14,7 @@ // along with this program. If not, see <http://www.gnu.org/licenses/> // -println("ketcindybasic2(2017.10.13) loaded"); +println("ketcindybasic2(2017.12.24) loaded"); //help:start(); @@ -77,7 +77,7 @@ Scalepoint(point,ratio,center):=( Reflectpoint(point,symL):=( //help:Reflectpoint(A,B); //help:Reflectpoint(A,[[2,3]]); -//help:Reflectpoint(A,[C,E]);\\ +//help:Reflectpoint(A,[C,E]); regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp); tmp=Lcrd(point); X1=tmp_1; Y1=tmp_2; @@ -124,6 +124,7 @@ Rotatedata(nm,plist,angle,options):=( PdL=[]; forall(pdata,Njj, if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==0,Kj=[Kj]); //17.11.24 if(MeasureDepth(Kj)==1,Kj=[Kj]); tmp2=[]; forall(Kj,Nj, @@ -150,12 +151,10 @@ Rotatedata(nm,plist,angle,options):=( if(length(tmp1)==1,tmp1=tmp1_1); tmp=name+"="+textformat(tmp1,5); parse(tmp); -// tmp1=textformat(plist,5); - tmp1=text(plist); // 15.10.15 - tmp1=replace(tmp1,"[","list("); - tmp1=replace(tmp1,"]",")"); + tmp1=text(plist); + tmp1=RSform(tmp1);// 17.12.23(2lines) tmp=name+"=Rotatedata("+tmp1+"," - +textformat(angle,5)+","+textformat(Pt,5)+")"; + +textformat(angle,5)+","+RSform(textformat(Pt,5))+")"; //17.12.23 GLIST=append(GLIST,tmp); ); if(Noflg<2, @@ -213,11 +212,9 @@ Translatedata(nm,plist,mov,options):=( if(length(tmp1)==1,tmp1=tmp1_1); tmp=name+"="+textformat(tmp1,5); parse(tmp); -// tmp1=textformat(plist,5); - tmp1=text(plist); // 15.10.15 - tmp1=replace(tmp1,"[","list("); - tmp1=replace(tmp1,"]",")"); - tmp=name+"=Translatedata("+tmp1+","+textformat(mov,5)+")"; + tmp1=text(plist); + tmp1=RSform(tmp1);// 17.12.23 + tmp=name+"=Translatedata("+tmp1+","+RSform(textformat(mov,5))+")"; GLIST=append(GLIST,tmp); ); if(Noflg<2, @@ -293,11 +290,10 @@ Scaledata(nm,plist,rx,ry,options):=( if(length(tmp1)==1,tmp1=tmp1_1); tmp=name+"="+textformat(tmp1,5); parse(tmp); - tmp1=text(plist); // 15.10.15 - tmp1=replace(tmp1,"[","list("); - tmp1=replace(tmp1,"]",")"); + tmp1=text(plist); + tmp1=RSform(tmp1); // 17.12.23 tmp=name+"=Scaledata("+tmp1+"," - +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")"; + +textformat(rx,5)+","+textformat(ry,5)+","+RSform(textformat(Pt,5))+")"; GLIST=append(GLIST,tmp); ); if(Noflg<2, @@ -371,11 +367,9 @@ Reflectdata(nm,plist,symL,options):=( if(length(tmp1)==1,tmp1=tmp1_1); tmp=name+"="+textformat(tmp1,5); parse(tmp); -// tmp1=textformat(plist,5); - tmp1=text(plist); // 15.10.15 - tmp1=replace(tmp1,"[","list("); - tmp1=replace(tmp1,"]",")"); - tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")"; + tmp1=text(plist); + tmp1=RSform(tmp1);// 17.12.23 + tmp=name+"=Reflectdata("+tmp1+","+RSform(textformat(symL,5))+")";//17.12.23 GLIST=append(GLIST,tmp); ); if(Noflg<2, @@ -427,14 +421,14 @@ Mkcircles(options):=( ); ); -Makesciarg(arglist):=( +MakeRarg(arglist):=( regional(str,tmpstr); str=""; forall(arglist, if(isstring(#), - tmpstr=Dq+#+Dq; + tmpstr=Dq+RSslash(#)+Dq; , - tmpstr=textformat(#,5); + tmpstr=textformat(#,6); ); str=str+tmpstr+","; ); @@ -446,7 +440,7 @@ Setax(arglist):=( //help:Setax(["l","x","e","y","n","O","sw"]); //help:Setax([7,"nw"]); regional(tmp); - tmp=Makesciarg(arglist); + tmp=MakeRarg(arglist); Com1st("Setax("+tmp+")"); ); @@ -454,14 +448,14 @@ Htickmark(arglist):=( //help:Htickmark([1,"1",2,"sw","2"]); regional(tmp); tmp=""; - tmp=Makesciarg(arglist); + tmp=MakeRarg(arglist); Com2nd("Htickmark("+tmp+")"); ); Vtickmark(arglist):=( //help:Vtickmark([1,"1",2,"sw","2"]); regional(tmp); - tmp=Makesciarg(arglist); + tmp=MakeRarg(arglist); Com2nd("Vtickmark("+tmp+")"); ); @@ -633,6 +627,7 @@ Letter(list,options):=( if(Ymv==0,Ymv=-4);//16.10.08 aln="mid"; // 16.09.30upto ); + Str=list_(Nj+2); //17.10.17 drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv], size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09 ); @@ -662,8 +657,10 @@ Letterrot(pt,dir,movstr,str):=( Letterrot(pt,dir,tmov,nmov,str); ); Letterrot(pt,dir,tmov,nmov,str):=( + regional(tmp); Letter([pt,"c",str],["notex"]); - Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')"); + tmp=replace(str,"\","\\"); //17.10.18 + Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+tmp+"')"); ); Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str); @@ -688,8 +685,10 @@ Exprrot(pt,dir,movstr,str):=( Exprrot(pt,dir,tmov,nmov,str); ); Exprrot(pt,dir,tmov,nmov,str):=( + regional(tmp); Expr([pt,"c",str],["notex"]); - Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')"); + tmp=replace(str,"\","\\"); //17.10.18 + Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+tmp+"')"); ); Putslider(ptstr,p1,p2):=Slider(ptstr,p1,p2); @@ -820,9 +819,9 @@ BezierCurve(nm,ptlistorg,ctrlistorg,options):=( tmp=name+"="+textformat(out,5); parse(tmp); tmp1=textformat(ptlist,5); - tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")"; + tmp1=RSform(tmp1,2); //17.12.23 tmp2=textformat(ctrlist,5); - tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")"; + tmp2=RSform(tmp2,3); //17.12.23 GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")"); ); if(Noflg<2, @@ -2273,6 +2272,7 @@ Sciform(list):=( RSform(str):=RSform(str,3); RSform(str,listfrom):=( +//help:RSform(string,listfrom); regional(posL,mxlv,rep1,rep2,rep3,prev,out, tmp,tmp1,tmp2); rep1="c("; rep2="c("; rep3="list("; @@ -2372,137 +2372,108 @@ Defvar(name,value):=( VLIST=prepend([name,value],VLIST); ); -IftoR(strorg):=( // 17.09.16 - regional(str,ifL,ppL,cpL,kk,Lv,no,out,prev, - tmp,tmp1,tmp2); - str=replace(strorg,LFmark,""); - ifL=Indexall(str,"if("); - ifL=apply(ifL,#+2); - if(length(ifL)>0, +IftoR(strorg):=( + regional(str,pre,post,sub,ppL,ifstr,out,tmp,tmp1,tmp2); + str=strorg; + ifstr=indexof(str,"if("); + if(ifstr==0, + out=replace(str,",","}else{"); + , + pre=substring(str,0,ifstr-1)+"if("; ppL=Bracket(str,"()"); - tmp2=[]; - forall(ifL,kk, - tmp=select(ppL,#_1==kk); - tmp1=select(ppL,#_2==-tmp_1_2); - tmp2=append(tmp2,[kk,tmp1_1_1,tmp_1_2]); - ); - ifL=tmp2; - cpL=[]; - forall(1..(length(str)),kk, - if(substring(str,kk-1,kk)==",", - tmp1=select(ifL,#_1<kk & kk<#_2); - Lv=max(apply(tmp1,#_3)); - tmp=select(cpL,#_2==Lv); - no=length(tmp)+1; - cpL=append(cpL,[kk,Lv,no]); - ); - if(contains(ifL,kk), - tmp1=select(ifL,#_1<kk & kk<#_2); - Lv=max(apply(tmp1,#_3)); - tmp=select(cpL,#_2==Lv); - no=length(tmp)+1; - cpL=append(cpL,[kk,Lv,no]); - ); - ); - forall(ifL, - str_(#_2)="}"; - ); - out=""; - prev=0; - forall(cpL, - out=out+substring(str,prev,#_1-1); - prev=#_1; - if(#_3==1,out=out+"){"); - if(#_3==2,out=out+"}else{"); - ); - out=out+substring(str,prev,length(str)); + tmp1=ifstr+2; + tmp=select(ppL,#_1==tmp1); + tmp=select(ppL,#_2==-tmp_1_2); + tmp2=tmp_1_1; + sub=substring(str,tmp1,tmp2-1); + post="}"+substring(str,tmp2,length(str)); + tmp=indexof(sub,","); + tmp1=substring(sub,0,tmp-1); + tmp2=substring(sub,tmp,length(sub)); + sub=tmp1+"){"+tmp2; + tmp=IftoR(sub); + out=pre+tmp+"}"; ); + out; ); -FortoR(strorg):=( // 17.09.16 - regional(str,frL,ppL,cpL,kk,Lv,no,out,prev, - tmp,tmp1,tmp2); - str=replace(strorg,LFmark,""); - frL=Indexall(str,"forall("); - frL=apply(frL,#+6); - if(length(frL)>0, +FortoR(strorg):=( + regional(str,pre,post,sub,ppL,forstr,out,tmp,tmp1,tmp2); + str=strorg; + forstr=indexof(str,"forall("); + if(forstr==0, + out=str; + , + pre=substring(str,0,forstr-1)+"for("; ppL=Bracket(str,"()"); - tmp2=[]; - forall(frL,kk, - tmp=select(ppL,#_1==kk); - tmp1=select(ppL,#_2==-tmp_1_2); - tmp2=append(tmp2,[kk,tmp1_1_1,tmp_1_2]); - ); - frL=tmp2; - cpL=[]; - forall(1..(length(str)),kk, - if(substring(str,kk-1,kk)==",", - tmp1=select(frL,#_1<kk & kk<#_2); - Lv=max(apply(tmp1,#_3)); - tmp=select(cpL,#_2==Lv); - no=length(tmp)+1; - cpL=append(cpL,[kk,Lv,no]); - ); - if(contains(frL,kk), - tmp1=select(frL,#_1<kk & kk<#_2); - Lv=max(apply(tmp1,#_3)); - tmp=select(cpL,#_2==Lv); - no=length(tmp)+1; - cpL=append(cpL,[kk,Lv,no]); - ); - ); - forall(frL, - str_(#_2)="}"; - ); - out=""; - prev=0; - forall(cpL, - if(#_3==1, - tmp1=substring(str,prev,#_1-1); - tmp=indexof(tmp1,"("); - tmp1=substring(tmp1,tmp,length(tmp1)); - tmp1=replace(tmp1,"..",":"); - ); - if(#_3==2, - tmp2=substring(str,prev,#_1-1); - out=out+"for("+tmp2+" in "+tmp1+"){"; - ); - prev=#_1; - ); - out=out+substring(str,prev,length(str)); - ); + tmp1=forstr+6; + tmp=select(ppL,#_1==tmp1); + tmp=select(ppL,#_2==-tmp_1_2); + tmp2=tmp_1_1; + sub=substring(str,tmp1,tmp2-1); + post="}"+substring(str,tmp2,length(str)); + tmp=indexof(sub,","); + tmp1=substring(sub,0,tmp-1); + tmp2=substring(sub,tmp,length(sub)); + sub=tmp1+"){"+tmp2; + tmp1=indexof(sub,"{"); + tmp2=indexof(sub,","); + tmp=substring(sub,tmp1,tmp2-1); + pre=pre+tmp+" in "+substring(sub,0,tmp1-1)+"{"; + sub=substring(sub,tmp2,length(sub)); + tmp=FortoR(sub); + out=pre+tmp+"}"; + ); + out=replace(out,"..",":"); + out; ); Deffun(name,bodylist):=( //help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]); - regional(funstr,tmp,tmp1,str,Pos); + regional(funstr,str,Pos,nbody,bdy,ppL,bpL,excma,tmp,tmp1,tmp2); funstr=name+":=("; forall(bodylist, funstr=funstr+#+";"; ); funstr=funstr+");"; parse(funstr); - tmp=indexof(name,"("); // 17.09.15from + tmp=indexof(name,"("); str=substring(name,0,tmp-1)+"<-function("; str=str+substring(name,tmp,length(name))+"{"; - forall(1..(length(bodylist)-1), - tmp1=bodylist_#; - tmp1=replace(tmp1,LFmark,""); - tmp1=replace(tmp1," ",""); - Pos=indexof(tmp1,"regional")+indexof(tmp1,"local"); + forall(1..(length(bodylist)-1),nbody, + bdy=bodylist_nbody; + Pos=indexof(bdy,"regional")+indexof(bdy,"local"); if(Pos==0, - tmp=RSform(tmp1); - if(indexof(tmp,"if(")>0, - tmp=iftoR(tmp); + bdy=replace(bdy,LFmark,""); + bdy=replace(bdy," ",""); + ppL=Bracket(bdy,"()"); + bpL=Bracket(bdy,"[]"); + tmp1=select(bpL,#_2==1); + tmp2=select(bpL,#_2==-1); + excma=[]; + forall(1..(length(tmp1)), + excma=append(excma,[tmp1_#_1,tmp2_#_1]); ); - if(indexof(tmp,"forall(")>0, - tmp=FortoR(tmp); - ); - str=str+tmp+";"; + tmp1=Indexall(bdy,","); + forall(tmp1,cma, + tmp=select(excma,(#_1<cma)&(cma<#_2)); + if(length(tmp)>0, + bdy=substring(bdy,0,cma-1)+"'"+substring(bdy,cma,length(bdy)); + ); + ); + tmp=indexof(bdy,"forall"); + if(tmp>0, + bdy=FortoR(bdy); + ); + tmp=indexof(bdy,"if("); + if(tmp>0, + bdy=IftoR(bdy); + ); + bdy=RSform(replace(bdy,"'",",")); + str=str+bdy+";"; ); ); str=str+"return("+bodylist_(length(bodylist))+")}"; - //17.09.15upto FUNLIST=append(FUNLIST,str); ); @@ -2581,6 +2552,7 @@ Windispg(pltdata):=( layer(0); ); +WritetoSci():=WritetoRS(); //17.12.19 WritetoRS():=WritetoRS(FnameR);// 17.09.17from WritetoRS(Arg):=( regional(string,filename,shch,tmp1,tmp2); @@ -2639,7 +2611,7 @@ WritetoRS(filename,shchoice):=( println(SCEOUTPUT,"source('"+tmp+".r')"); ); println(SCEOUTPUT,"Ketinit()"); - println(SCEOUTPUT,"cat('KETpic',ThisVersion,'\n')"); + println(SCEOUTPUT,"cat(ThisVersion,'\n')"); println(SCEOUTPUT,"Fnametex='"+Fnametex+"'"); println(SCEOUTPUT,"FnameR='"+FnameR+"'"); println(SCEOUTPUT,"Fnameout='"+Fnameout+"'"); @@ -2709,8 +2681,11 @@ WritetoRS(filename,shchoice):=( println(SCEOUTPUT,""); println(SCEOUTPUT,"if(1==1){"); println(SCEOUTPUT,""); - tmp=replace(Dirwork,"\","/"); //17.09.24(2lines) - println(SCEOUTPUT,"Openfile('"+tmp+"/"+Fnametex+"','"+ULEN+"')"); + tmp=replace(Dirwork,"\","/"); //17.10.28(3lines) + tmp="Openfile('"+tmp+pathsep()+Fnametex+"','"+ULEN+"'"; + tmp=tmp+",'Cdy="+loaddirectory+text(curkernel()); + tmp=replace(tmp,"\","\\"); + println(SCEOUTPUT,tmp+"')"); forall(COM2ndlist, if(indexof(#,"Texcom")==0, //17.09.22 println(SCEOUTPUT,RSform(#)); @@ -3025,7 +3000,7 @@ Makeshell(texmainfile,flow):=( println(SCEOUTPUT,tmp); ); if(tex=="xelatex", - tmp="export PATH=$"+path+":${PATH}"; + tmp="export PATH="+path+":${PATH}"; println(SCEOUTPUT,tmp); tmp="xelatex"+" "+texmainfile+".tex"; println(SCEOUTPUT,tmp); @@ -3220,16 +3195,26 @@ Viewtex():=( println(SCEOUTPUT,"\usepackage{pict2e}");//16.12.16 println(SCEOUTPUT,"\usepackage{luatexja}");//16.12.18 ); - println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.07from -// tmp=replace(Dirhead+"/ketpicstyle","\","/"); -// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}"); -// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}"); + tmp=replace(Dirhead,"\","/"); //17.10.30from + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}"); + ); , - println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}"); -// tmp=replace(Dirhead+"/ketpicstyle","\","/"); -// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); -// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); - );//17.04.07upto + tmp=replace(Dirhead,"\","/"); + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); + ); + );//17.10.30upto println(SCEOUTPUT,"\usepackage{amsmath,amssymb}"); println(SCEOUTPUT,"\usepackage{graphicx}"); println(SCEOUTPUT,"\usepackage{color}"); @@ -3437,43 +3422,42 @@ Figpdf(fnameorg,optionorg):=( // if(iswindows(),sep="\",sep="/");//17.04.08 // sep="/"; FigPdfList=append(FigPdfList,tmp1); - if(indexof(PathT,"pdflatex")>0 ,//16.11.23 - Libname=Dirlib+"/ketpic2esciL5";//16.11.23 + if(indexof(PathT,"pdflatex")+indexof(PathT,"lualatex")>0, //17.11.05from FigPdfList=append(FigPdfList, - "\usepackage[pdftex]{pict2e}");//16.11.24 - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - FigPdfList=concat(FigPdfList, // 17.04.08from -// "\usepackage{ketpic2e,ketlayer2e}"); - ["\usepackage{"+tmp+"/ketpic2e}", - "\usepackage{"+tmp+"/ketlayer2e}"] + "\usepackage{pict2e}"); + tmp=replace(Dirhead,"\","/"); + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + FigPdfList=append(FigPdfList, + "\usepackage{ketpic2e,ketlayer2e}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + FigPdfList=concat(FigPdfList, + ["\usepackage{"+tmp+"/ketpic2e}", + "\usepackage{"+tmp+"/ketlayer2e}"]); ); , - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - FigPdfList=concat(FigPdfList, -// "\usepackage{ketpic,ketlayer}"); - ["\usepackage{"+tmp+"/ketpic}", - "\usepackage{"+tmp+"/ketlayer}"] - );// 17.04.08upto - );//16.11.22from + tmp=replace(Dirhead,"\","/"); + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + FigPdfList=append(FigPdfList, + "\usepackage{ketpic,ketlayer}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + FigPdfList=concat(FigPdfList, + ["\usepackage{"+tmp+"/ketpic}", + "\usepackage{"+tmp+"/ketlayer}"]); + ); + );//17.11.05upto FigPdfList=append(FigPdfList, "\usepackage{amsmath,amssymb}"); FigPdfList=append(FigPdfList, "\usepackage{graphicx,color}"); forall(ADDPACK, // 16.05.16from -// if(indexof(#,"[")==0, // 16.09.05from -// tmp1="\usepackage{"+#+"}"; -// , - tmp1="\usepackage"+#; //17.07.10 -// ); + tmp1="\usepackage"+#; //17.07.10 FigPdfList=append(FigPdfList,tmp1); // 16.09.05upto ); FigPdfList=append(FigPdfList,""); -// FigPdfList=append(FigPdfList, // deleted 2016.11.27 -// "\def\ketcindy{{K\kern-.20em%"); -// tmp="\lower.5ex\hbox{E}\kern-.125em"; -// tmp=tmp+"{TCindy}}}"; -// FigPdfList=append(FigPdfList,tmp); -// FigPdfList=append(FigPdfList,""); FigPdfList=append(FigPdfList, "\setmargin{0}{0}{0}{0}"); FigPdfList=append(FigPdfList,""); @@ -3676,21 +3660,18 @@ Helpkey(str1,str2):=( Slidework():=Slidework(Dirwork); // 16.06.10 Slidework(dirorg):=( //help:Slidework(directory); - regional(dir,tmp,sep); // 16.06.25 + regional(dir,tmp); // 16.06.25 dir=replace(dirorg,unicode("000a"),""); // 16.06.25 - sep="/"; //17.04.16from - if(iswindows(), - dir=replace(dir,"/","\"); - sep="\"; - ); //17.04.16upto + dir=replace(dir,"/",pathsep());//17.11.20from + dir=replace(dir,"\",pathsep()); + tmp=length(dir); + if(substring(dir,tmp-1,tmp)==pathsep(), + dir=substring(dir,0,tmp-1); + );//17.11.20upto if(isexists(dir,""), // 16.12.20 Changework(dir); - if(!isexists(Dirwork,"fig"), // 16.12.18 - cmdL=["createdir",[Dq+dir+sep+"fig"+Dq]];//16.12.27,17.04.16 - CalcbyS("crdr",cmdL,["m"]); - println(dir+sep+"fig generated"); //17.04.16 - ); - tmp=dir+sep+"fig"; //17.04.16from + println(makedir(dir,"fig"));//17.11.23 + tmp=dir+pathsep()+"fig"; //17.04.16from Changework(tmp);// 17.02.19upto , println(dir+ " not exists"); @@ -3789,49 +3770,71 @@ Setslidebody(str,style,density):=( // 16.12.22,17.01.06,01.08 ThinDense=density;//17.01.08 ); -Setslidehyper():=Setslidehyper(["cl=true,lc=blue,fc=blue",125,70,1]); -// 16.12.31from +Setslidehyper():=( 17.12.16from + Setslidehyper(["cl=true,lc=blue,fc=blue",125,70,1]); +); Setslidehyper(Arg):=( if(isstring(Arg), - if(length(Arg)==0, //17.01.29from - Setslidehyper(); - , - Setslidehyper(Arg,[]); - );//17.01.29upto - , - Setslidehyper("dvipdfmx",Arg); + Setslidehyper(Arg,["cl=true,lc=blue,fc=blue",125,70,1]); + , + Setslidehyper("",Arg); ); ); -Setslidehyper(driver,options):=( +Setslidehyper(driverorg,options):=( //help:Setslidehyper(); -//help:Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",125,70,1]); - regional(reL,stL,tmp,tmp1,tmp2,str,reL); - str=""; - reL=[]; - forall(options, - if(isstring(#), - str=# - , - reL=append(reL,#); +//help:Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue","Pos=[125,70]","Size=1"]); + regional(driver,eqL,reL,stL,,str,tmp,tmp1,tmp2); + driver=driverorg; + if(length(driver)==0, + if(indexof(PathT,"pdflatex")+indexof(PathT,"lualatex")==0, + driver="dvipdfmx"; ); ); - if(length(str)>0,str=","+str); - tmp1=""; - if(length(driver+str)>0, - tmp1="["+driver+str+"]"; + tmp=Divoptions(options); + eqL=tmp_5; + reL=tmp_6; + stL=tmp_7; + if(length(stL)>0, + str=stL_1; + , + str=""; + ); + if(length(str)==0, + str="cl=true,lc=blue,fc=blue"; + ); + if(length(driver)==0, + tmp1="["+str+"]"; + , + tmp1="["+driver+","+str+"]"; ); tmp1=replace(tmp1,"cl=","colorlinks="); tmp1=replace(tmp1,"lc=","linkcolor="); tmp1=replace(tmp1,"fc=","filecolor="); tmp1=replace(tmp1,"uc=","urlcolor="); + ADDPACK=select(ADDPACK,indexof(#,"hyperref")==0); Addpackage(tmp1+"{hyperref}"); LinkPosH=125; LinkPosV=70; LinkSize=1; - if(length(reL)>0,LinkPosH=reL_1); - if(length(reL)>1,LinkPosV=reL_2); - if(length(reL)>2,LinkSize=max(reL_3,0.1)); // 17.07.31 -); + if(length(reL)>0, + LinkPosH=reL_1; + if(length(reL)>1,LinkPosV=reL_2); + if(length(reL)>2,LinkSize=max(reL_3,0.1)); + ); + forall(eqL, + tmp=indexof(#,"="); + tmp1=Toupper(substring(#,0,1)); + tmp2=substring(#,tmp,length(#)); + tmp2=parse(tmp2); + if(tmp1=="P", + LinkPosH=tmp2_1; + LinkPosV=tmp2_2; + ); + if(tmp1=="S", + LinkSize=max(tmp2,0.1); + ); + ); +); //17.12.16upto Settitle(cmdL):=Settitle("slide0",cmdL,[]); Settitle(Arg1,Arg2):=( @@ -3930,13 +3933,16 @@ Maketitle(name):=( println(SCEOUTPUT,tmp); tmp="\special{papersize=\the\paperwidth,\the\paperheight}"; println(SCEOUTPUT,tmp); -// if(iswindows(),sep="\",sep="/"); // 17.04.08from -// sep="/"; - //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}"); - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}"); + tmp=replace(Dirhead,"\","/");//17.11.01from + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + println(SCEOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}"); + );//17.11.01upto println(SCEOUTPUT,"\usepackage{amsmath,amssymb}"); println(SCEOUTPUT,"\usepackage{bm,enumerate}"); if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0), @@ -4152,25 +4158,37 @@ Presentation(texfile,txtfile):=( println(SCEOUTPUT,"\usepackage{luatexja}"); ); println(SCEOUTPUT,"\usepackage{pict2e}"); -// println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.08from - tmp=replace(Dirhead+"/ketpicstyle","\","/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}"); + println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.08from , println(SCEOUTPUT,"\special{papersize=\the\paperwidth,\the\paperheight}"); - //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}"); + );// 17.04.08upto + tmp=replace(Dirhead,"\","/");//17.11.01from + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}"); + , tmp=replace(Dirhead+"/ketpicstyle","\","/"); println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); - );// 17.04.08upto + ); if(length(wall)==0, - //println(SCEOUTPUT,"\usepackage{ketslide}");//17.04.08from - tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16 - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}"); + tmp=replace(Dirhead,"\","/");//17.11.01from + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + println(SCEOUTPUT,"\usepackage{ketslide}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}"); + ); , - tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16 - //println(SCEOUTPUT,"\usepackage{ketslide2}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide2}"); + tmp=replace(Dirhead,"\","/"); + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + println(SCEOUTPUT,"\usepackage{ketslide2}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide2}"); + ); );//17.04.08upto println(SCEOUTPUT,"\usepackage{amsmath,amssymb}"); println(SCEOUTPUT,"\usepackage{bm,enumerate}"); @@ -4726,7 +4744,11 @@ Mkslides():=( if(iswindows(), tmp2=Batparent; parent=replace(Dirwork+Batparent,sep+"fig","");// 16.05.29 - Makebat(Texparent,"tv"); // 16.07.21 + if(indexof(Pathpdf,"Adobe")>0, //17.12.09from + Makebat(Texparent,"ttv"); + , + Makebat(Texparent,"tv"); + ); //17.12.09upto kc():=( println("kc : "+kc(parent,Dirlib,Fnametex)); // 16.06.10, 17.02.19 ); @@ -4736,7 +4758,11 @@ Mkslides():=( tmp2=Shellparent; parent=replace(Dirwork+Shellparent,sep+"fig","");// 16.05.29 Shellparent=replace(Shellparent,sep+"fig",""); - Makeshell(Texparent,"tv"); // 16.07.21 + if(indexof(Pathpdf,"Adobe")>0, //17.12.09from + Makeshell(Texparent,"ttv"); + , + Makeshell(Texparent,"tv"); + ); //17.12.09upto kc():=( println("kc : "+kc(parent,Mackc+Dirlib,Fnametex)); // 16.06.10 ); @@ -4744,64 +4770,64 @@ Mkslides():=( Shellparent=tmp2; ); ); - Dirwork=Dirwork+sep+"fig"; + Dirwork=Dirwork+pathsep()+"fig"; //17.10.16 setdirectory(Dirwork); Fhead=tmp4; Texparent=texparentorg;//17.04.10 ); -Mkslidesummary():=( // 17.04.10revised +Mkslidesummary():=( // 17.10.26 for R regional(texparentorg); texparentorg=Texparent; if(isstring(Slidename), Texparent=Slidename; ); - Mkslidesummary(Texparent,Texparent+"sum",["m","Wait=3"]); - Texparent=texparentorg;//17.04.10 + Mkslidesummary(Texparent,Texparent+"digest",["m","Wait=3"]); + Texparent=texparentorg; ); Mkslidesummary(fin,fout):= Mkslidesummary(fin,fout,["m","Wait=3"]); Mkslidesummary(inputfile,outputfile,options):=( //help:Mkslidesummary(fin,fout,options); - regional(fin,fout,out,sep,figflg,dirworkorg,dirtop,tmp); + regional(fin,fout,out,figflg,dirworkorg,dirtop,tmp); dirworkorg=Dirwork;//17.04.10from - if(iswindows(),sep="\",sep="/"); - dirtop=replace(Dirwork,sep+"fig",""); + dirtop=replace(Dirwork,pathsep()+"fig",""); Changework(dirtop);//17.04.10uptp fin=inputfile; if(indexof(fin,".")==0,fin=fin+".tex"); fout=outputfile; if(indexof(fout,".")==0,fout=fout+".tex"); cmdL=[ - "Dt=mgetl('"+fin+"');",[], - "Tmp=find((strstr(Dt,'\hypertarget')=='') - &(strstr(Dt,'\hyperlink')==''))",[], - "Dt=Dt(Tmp)",[], - "Smain=strstr(Dt,'\mainslide')",[], - "Snew=strstr(Dt,'\newslide')",[], - "Ssame=strstr(Dt,'\sameslide')",[], - "Nnew=[]",[], - "Nsame=[]",[], - "for J=1:size(Dt,1), - if (length(Snew(J))>0)|(length(Smain(J))>0), - Nnew=[Nnew,J], - end; - if length(Ssame(J))>0, - Nsame=[Nsame,J], - end; - end",[], - "Out=Dt(1:Nnew(1))",[], - "for J=2:length(Nnew), - Tmp=find(Nsame<Nnew(J)); - Tmp=max(Tmp); - Tmp=max([Nsame(Tmp),Nnew(J-1)])+1; - Out=[Out;Dt(Tmp:Nnew(J))], - end",[], - "Tmp=max([Nsame($),Nnew($)])+1",[], - "Out=[Out;Dt(Tmp:size(Dt,1))]",[], - "mputl(Out,'"+fout+"');",[] + "Dt=readLines('"+fin+"')",[], + "num=grep('\\hypertarget',Dt,fixed=TRUE)",[], + "Dt=Dt[setdiff(1:length(Dt),num)]",[], + "Smain=c();Snew=c();Ssame=c()",[], + "for(J in 1:length(Dt)){",[], + " Tmp=length(grep('\\mainslide',Dt[J],fixed=TRUE))",[], + " if(Tmp>0){Smain=c(Smain,1)}else{Smain=c(Smain,0)}",[], + " Tmp=length(grep('\\newslide',Dt[J],fixed=TRUE))",[], + " if(Tmp>0){Snew=c(Snew,1)}else{Snew=c(Snew,0)}",[], + " Tmp=length(grep('\\sameslide',Dt[J],fixed=TRUE))",[], + " if(Tmp>0){Ssame=c(Ssame,1)}else{Ssame=c(Ssame,0)}",[], + "}",[], + "Nnew=c();Nsame=c()",[], + "for(J in 1:length(Dt)){",[], + " if((Snew[J]==1)|(Smain[J]==1)){Nnew=c(Nnew,J)}",[], + " if(Ssame[J]==1){Nsame=c(Nsame,J)}",[], + "}",[], + "Out=Dt[1:Nnew[1]]",[], + "for(J in 2:length(Nnew)){",[], + " Tmp=max(Nsame[Nsame<Nnew[J]])",[], + " Tmp=max(c(Nsame[Tmp],Nnew[J-1]))+1",[], + " Out=c(Out,Dt[Tmp:Nnew[J]])",[], + "}",[], + "Tmp=max(c(Nsame[-1],Nnew[-1]))+1",[], + "Out=c(Out,Dt[Tmp:length(Dt)])",[], + "writeLines(Out,'"+fout+"',sep='\n')",[], + "cat('////',file='resultR.txt',sep='')",[], + "quit()",[] ]; - CalcbyS("out",cmdL,options); + CalcbyR("out",cmdL,append(options,"Cat=n")); wait(1000); Changework(dirtop);//17.04.10 tmp=replace(fout,".tex",""); diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmv.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmv.cs deleted file mode 100644 index 80353e48..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmv.cs +++ /dev/null @@ -1,910 +0,0 @@ -// Copyright (C) 2014 Masataka Kaneko, Setsuo Takato, KETCindyJapan project team -// -//This program is free software: you can redistribute it and/or modify -// it under the terms of the GNU General Public License as published by -// the Free Software Foundation; either version 3 of the License, or -// (at your option) any later version. -// -// This program is distributed in the hope that it will be useful, -// but WITHOUT ANY WARRANTY; without even the implied warranty of -// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -// GNU General Public License for more details. -// -// You should have received a copy of the GNU General Public License -// along with this program. If not, see <http://www.gnu.org/licenses/> -// - -println("ketcindymv(2017.10.12) loaded"); - -//help:start(); - -Ketinitmv():=( - regional(tmp,tmp1,tmp2,tmp3); - Ketinit();//17.04.10 - Texmov=Fhead+"movie"; - Texpara=Fhead+"para"; - ParaTitle=Texpara;//16.12.10 - tmp1=round(4*SW.y)/4-0.5; - tmp2=SW.x+1; - tmp3=NE.x-1; - Listplot("sl",[[tmp2,tmp1],[tmp3,tmp1]],["notex","linecolor->[0,1,0]"]); - PutonCurve("MF",sgsl,[tmp2,tmp3]); - Paraamble(); // 16.08.10 - Shellfile="mv"; // 17.04.09 -); - -Moviedata(func,var):=Moviedata(func,var,[]); -Moviedata(func,var,options):=( -//help:Moviedata("mf(t)","t=[0,4]"); -//help:Moviedata(Options=["Cut=20","Div=80"]); - regional(tmp,tmp1,tmp2,eqL); - tmp=Divoptions(options); - eqL=tmp_5; - CUT=20; - DVALL=0; - Ec=[]; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=Toupper(substring(#,tmp,length(#))); - if(tmp1=="D", - DVALL=parse(tmp2); - ); - if(tmp1=="C", - CUT=parse(tmp2); - ); - ); - if(DVALL==0, - DVALL=4*CUT; - ); - tmp=indexof(var,"="); - tmp1=substring(var,0,tmp-1); - tmp2=substring(var,tmp,length(var)); - tmp2=parse(tmp2); - if(indexof(func,"Moiveframe")==0, - tmp="Movieframe("+tmp1+"):="+func+";"; - parse(tmp); - ); - tmp="Movierange="+tmp2+";"; - parse(tmp); -// tmp="Movieoptions=["+Dq+"Div="+text(DVALL)+Dq+","+Dq+"Cut="+text(CUT)+Dq+"]"; -// parse(tmp); -); - -Paraamble():=Paraamble(""); -Paraamble(str):=( -//help:Paraamble(); -//help:Paraamble(amblelist); -//help:Paraamble(filename); - regional(cmdall,sep,tmp,tmp1,tmp2); - if(isstring(str), - if(str=="", - Parafirsthead=[ - "\def\ketcbox{white}", // 17.02.26 - "\newslide[0]{"+ParaTitle+"}", //16.12.10 - "", - "\hypertarget{FIRST}{}", - "Commonhead" - ]; - Parafirsttail=[ - "Commontail" - ]; - Parahead=[ - "\sameslide[0]", - "Commonhead" - ]; - Paratail=[ - "Commontail" - ]; - Paralasthead=[ - "\sameslide[0]", - "", - "\hypertarget{LAST}{}", - "Commonhead" - ]; - Paralasttail=[ - "Commontail" - ]; - Commonhead=[ - "", - "\definecolor{thinblue}{cmyk}{0.3,0.3,0,0}", //17.02.19 - "\begin{layer}{130}{0}", - "\hyperlink{FIRST}{\colorframe[8]{0}{80}{thinblue}{yellow}{blue}{FIRST}}", //17.02.19 - "\hyperlink{LAST}{\colorframe[8]{110}{80}{thinblue}{yellow}{blue}{LAST}}", //17.02.19 - "\putnotec{60}{40}{" // 16.07.06 - ]; - Commontail=[ - "", - "}", - "\end{layer}", - "" - ]; - , - if(indexof(str,".")>0,tmp1=str,tmp1=str+".txt"); - tmp=load(tmp1); - cmdall=tokenize(tmp,"..."); - cmdall=apply(cmdall,Removespace(#)); - sep=select(1..length(cmdall),substring(cmdall_#,0,5)=="%Para"); - Parafirsthead=cmdall_(2..(sep_2-1)); - Parafirsttail=cmdall_((sep_2+1)..(sep_3-1)); - Parahead=cmdall_((sep_3+1)..(sep_4-1)); - Paratail=cmdall_((sep_4+1)..(sep_5-1)); - Paralasthead=cmdall_((sep_5+1)..(sep_6-1)); - tmp1=cmdall_((sep_6+1)..length(cmdall)); - sep=select(1..length(tmp1),substring(tmp1_#,0,7)=="%Common"); - Paralasttail=tmp1_(1..sep_1-1); - Commonhead=tmp1_((sep_1+1)..(sep_2-1)); - Commontail=tmp1_((sep_2+1)..length(tmp1)); - ); - ); - if(islist(str), - Parafirsthead=str_1; - Parafirsttail=str_2; - Parahead=str_3; - Paratail=str_4; - Paralasthead=str_5; - Paralasttail=str_6; - Commonhead=str_7; - Commontail=str_8; - ); - tmp1=apply(Parafirsthead,Dq+#+Dq); - tmp2=apply(Parafirsttail,Dq+#+Dq); - tmp=[tmp1,tmp2]; - tmp1=apply(Parahead,Dq+#+Dq); - tmp2=apply(Paratail,Dq+#+Dq); - tmp=concat(tmp,[tmp1,tmp2]); - tmp1=apply(Paralasthead,Dq+#+Dq); - tmp2=apply(Paralasttail,Dq+#+Dq); - tmp=concat(tmp,[tmp1,tmp2]); - tmp1=apply(Commonhead,Dq+#+Dq); - tmp2=apply(Commontail,Dq+#+Dq); - tmp=concat(tmp,[tmp1,tmp2]); - tmp; -); - -Writeparaamble(filename):=( - //regional(tmp,tmp1,tmp2); - SCEOUTPUT=openfile(filename); - println(SCEOUTPUT,"%Parafirsthead"+"..."); - forall(Parafirsthead, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Parafirsttail"+"..."); - forall(Parafirsttail, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Parahead"+"..."); - forall(Parahead, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Paratail"+"..."); - forall(Paratail, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Paralasthead"+"..."); - forall(Paralasthead, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Paralasttail"+"..."); - forall(Paralasttail, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Commonhead"+"..."); - forall(Commonhead, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Commontail"+"..."); - forall(Commontail, - println(SCEOUTPUT,#+"..."); - ); - closefile(SCEOUTPUT); -); - -Mvdispg():=( - regional(tmp,tmp1,tmp2,tmp3,num,s,i); - CLIST=COM2ndlist; - FIXGLIST=[]; - forall(2..length(GLIST), - FIXGLIST=append(FIXGLIST,GLIST_#); - ); - STPTlist=remove(allpoints(),[SW,NE,MF]); - STPlist=[]; - STPnamelist=[]; - STPvaluelist=[]; - forall(STPTlist, - tmp=Lcrd(#); - tmp1=format(re(tmp_1),5); - tmp2=format(re(tmp_2),5); - tmp="["+tmp1+","+tmp2+"]"; - STPlist=append(STPlist,#.name+"="+tmp+";"); - STPnamelist=append(STPnamelist,#.name); - STPvaluelist=append(STPvaluelist,tmp); - ); - tmp1=round(4*SW.y)/4-0.5; - tmp2=SW.x+1; - tmp3=NE.x-1; - if(length(Movierange)==2, - s=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_2-Movierange_1); - Movieframe(s); - , - num=length(Movierange); - tmp=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_num-Movierange_1); - i=1; - while(Movierange_(i+1)<=tmp, - i=i+1; - ); - s=Movierange_i; - Movieframe(s); - ); - Windispg(); - Defvar("s",s); - GOUTLIST=[]; -); - -Mkmovie():=Mkmovie(Movierange); -Mkmovie(rng):=( - regional(x1,x2,PLIST,GL,num0,num1,num2,num3,num4,num5,num6,num, - l,s,k,tmp,tmp1,tmp2,tmp3,Plist,Pnamelist,Pvaluelist, - ALLPlist,MVPlist); - if(length(rng)==2, - x1=rng_1; - x2=rng_2; - PLIST=[x1]; - forall(1..DVALL,k, - s=x1+k*(x2-x1)/DVALL; - PLIST=append(PLIST,s); - ); - , - PLIST=rng; - DVALL=length(rng)-1; - ); - if(VERNUM==0, - SCEOUTPUT=openfile(Texmov+".sce"); - , - SCEOUTPUT=openfile(Texpara+".sce"); - ); - println(SCEOUTPUT,"cd('"+Dirwork+"');"); - println(SCEOUTPUT,"Ketlib=lib('"+Libname+"');"); - println(SCEOUTPUT,"Ketinit();"); - println(SCEOUTPUT,"pi=%pi;"); - tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+ - "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19 - println(SCEOUTPUT,tmp); - //println(SCEOUTPUT,"Setax('l','x','e','y','n','O','sw');"); - num1=length(COM1stlist); - forall(1..num1,l, - println(SCEOUTPUT,COM1stlist_l+";"); - ); - forall(1..length(STPlist), - print(SCEOUTPUT,STPlist_#); - println(SCEOUTPUT," Assignrep('"+STPnamelist_#+"',"+STPvaluelist_#+");"); - ); - num2=length(CLIST); - num3=length(FIXGLIST); - num=0; - repeat(num3, - num=num+1; - tmp1=FIXGLIST_num; - num4=indexof(tmp1,"="); - if(num4>0, - tmp2=substring(tmp1,num4,length(tmp1)); - tmp=substring(tmp1,0,num4-1); - println(SCEOUTPUT,tmp+"="+text(tmp2)+";"); - ); - ); - if(VERNUM==0, - println(SCEOUTPUT,"Openfile('"+Texmov+"figs.tex');"); - println(SCEOUTPUT,"Texcom('\begin{animateinline}{"+text(CUT)+"}');"); - , - println(SCEOUTPUT,"Openfile('"+Texpara+"figs.tex');"); - ); - println(SCEOUTPUT,""); - forall(0..DVALL,k, - s=PLIST_(k+1); - println(SCEOUTPUT,"s="+format(s,5)+";"); - GLIST=[]; - COM2ndlist=[]; - GCLIST=FIXGCLIST; - Movieframe(s); - clrscr(); // 15.06.17 - Plist=[]; - Pnamelist=[]; - Pvaluelist=[]; - ALLPlist=remove(allpoints(),[SW,NE,MF]); - RMPlist=[]; - forall(1..length(ALLPlist), - tmp=indexof(STPvaluelist_#,","); - tmp1=substring(STPvaluelist_#,1,tmp-1); - tmp2=substring(STPvaluelist_#,tmp,length(STPvaluelist_#)-1); - if(parse(format(Lcrd(ALLPlist_#)_1,5))==parse(tmp1), - if(parse(format(Lcrd(ALLPlist_#)_2,5))==parse(tmp2), - RMPlist=append(RMPlist,ALLPlist_#); - ); - ); - ); - MVPlist=remove(ALLPlist,RMPlist); - forall(MVPlist, - tmp=Lcrd(#); - tmp1=format(re(tmp_1),5); - tmp2=format(re(tmp_2),5); - tmp="["+tmp1+","+tmp2+"]"; - Plist=append(Plist,#.name+"="+tmp+";"); - Pnamelist=append(Pnamelist,#.name); - Pvaluelist=append(Pvaluelist,tmp); - ); - forall(1..length(Plist), - print(SCEOUTPUT,Plist_#); - println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");"); - ); - num3=length(GLIST); - num=0; - GL=[]; - forall(GCLIST, - GL=append(GL,#_1); - ); - repeat(num3, - num=num+1; - tmp1=GLIST_num; - num4=indexof(tmp1,"="); - tmp2=substring(tmp1,num4,length(tmp1)); - tmp=substring(tmp1,0,num4-1); - //if(indexof(tmp2,"=")>0, - if(substring(tmp2,0,5)=="Param", - num5=indexof(tmp2,"="); - tmp3=substring(tmp2,num5,length(tmp2)-2); - tmp3=parse(tmp3); - if(tmp3_1==tmp3_2, - tmp2="Pointdata([0,0])"; - ); - ); - println(SCEOUTPUT,tmp+"="+text(tmp2)+";"); - ); - forall(GOUTLIST, - tmp=#_1; - println(SCEOUTPUT,"Tmpout=ReadOutData('"+tmp+"');"); - println(SCEOUTPUT,"execstr(Tmpout);"); - ); - if(VERNUM==1, - if(k==0, - tmp1=apply(Parafirsthead,Removespace(#)); - , - if(k<DVALL, - tmp1=apply(Parahead,Removespace(#)); - , - tmp1=apply(Paralasthead,Removespace(#)); - ); - ); - tmp1=apply(tmp1,if(length(#)==0,"newline",#)); - tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0); - tmp2=apply(Commonhead,Removespace(#)); - tmp2=apply(tmp2,if(length(#)==0,"newline",#)); - tmp1_(tmp_1)=tmp2; - tmp1=flatten(tmp1); - forall(tmp1, - println(SCEOUTPUT,"Texcom('"+#+"');"); - ); - ); - tmp=indexof(ULEN,"cm"); // 16.05.19from - if(tmp>0, - tmp1=Removespace(substring(ULEN,0,tmp-1)); - tmp2=0.5/parse(tmp1) - ); // 16.05.19upto - tmp=indexof(ULEN,"mm"); - if(tmp>0, - tmp1=Removespace(substring(ULEN,0,tmp-1)); - tmp2=5/parse(tmp1); - ); - tmp="Setwindow(["+text(XMIN)+","+text(XMAX+tmp2)+ - "],["+text(YMIN)+","+text(YMAX+tmp2)+"]);";// 16.05.19 - println(SCEOUTPUT,tmp);// 16.05.19 - println(SCEOUTPUT,"Beginpicture('"+ULEN+"');"); - tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+ - "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19 - println(SCEOUTPUT,tmp);// 16.05.19 - forall(1..num2,l, - println(SCEOUTPUT,CLIST_l+";"); - ); - forall(1..length(COM2ndlist),l, - println(SCEOUTPUT,COM2ndlist_l+";"); - ); - println(SCEOUTPUT,"Endpicture("+ADDAXES+");"); - if(VERNUM==0, - println(SCEOUTPUT,""); - println(SCEOUTPUT,"Texcom('');"); - if(k<DVALL, - println(SCEOUTPUT,"Texcom('\newframe');"); - println(SCEOUTPUT,""); - , - println(SCEOUTPUT,"Texcom('\end{animateinline}')"); - println(SCEOUTPUT,"Closefile();"); - println(SCEOUTPUT,"quit();"); - closefile(SCEOUTPUT); - ); - , - if(k==0, - tmp1=apply(Parafirsttail,Removespace(#)); - , - if(k<DVALL, - tmp1=apply(Paratail,Removespace(#)); - , - tmp1=apply(Paralasttail,Removespace(#)); - ); - ); - tmp1=apply(tmp1,if(length(#)==0,"newline",#)); - tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0); - tmp2=apply(Commontail,Removespace(#)); - tmp2=apply(tmp2,if(length(#)==0,"newline",#)); - tmp1_(tmp_1)=tmp2; - tmp1=flatten(tmp1); - forall(tmp1, - println(SCEOUTPUT,"Texcom('"+#+"');"); - ); - if(k==DVALL, - println(SCEOUTPUT,""); - println(SCEOUTPUT,"Closefile();"); - println(SCEOUTPUT,"quit();"); - closefile(SCEOUTPUT); - ); - ); - Windispg(GL); - time=1000/CUT; - wait(time); - GLIST=[]; - GCLIST=[]; - COM2ndlist=[]; - GOUTLIST=[]; - ); -); - -Mkmovietexmain():=( - TEXOUTPUT=openfile(Texmov+"main"+".tex"); // 15.03.28 - println(TEXOUTPUT,""); - println(TEXOUTPUT,"\documentclass{article}"); - println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06 - println(TEXOUTPUT,"\usepackage{graphicx}"); - println(TEXOUTPUT,"\usepackage[dvipdfmx]{animate}"); - println(TEXOUTPUT,"\usepackage{color}"); - println(TEXOUTPUT,"\usepackage{ketpic,ketlayer}"); - println(TEXOUTPUT,"\setmargin{20}{20}{20}{20}"); - println(TEXOUTPUT,"\begin{document}"); - println(TEXOUTPUT,"\input{"+Texmov+"figs.tex}%"); - println(TEXOUTPUT,"\end{document}"); - closefile(TEXOUTPUT); -); - -Mkmoviesh():=( - regional(parentorg,tmp); - parentorg=Texparent;//17.04.10 - Texparent="";//17.04.10 - tmp=Fhead;// 15.03.28 - Fhead=Texmov; - if(length(Shellparent)>0, - Makeshell() - , - Makebat(); - ); - Fhead=tmp; - Texparent=parentorg;//17.04.10 -); - -Texmovie():=( - VERNUM=0; - Mkmovie(); - Mkmovietexmain(); - Mkmoviesh(); -); - -Mkparatexmain():=( - TEXOUTPUT=openfile(Texpara+"main"+".tex"); - println(TEXOUTPUT,""); - println(TEXOUTPUT,"\documentclass[landscape,10pt]{article}"); - println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06 - println(TEXOUTPUT,"\usepackage{graphicx}"); - println(TEXOUTPUT,"\usepackage[dvipdfmx,colorlinks=true,linkcolor=black]{hyperref}"); - println(TEXOUTPUT,"\AtBeginDvi{\special{pdf:tounicode 90ms-RKSJ-UCS2}}"); - println(TEXOUTPUT,"\usepackage{color}"); - println(TEXOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}"); - println(TEXOUTPUT,"\ketmarginE"); - println(TEXOUTPUT,"\ketslideinit"); - println(TEXOUTPUT,"\begin{document}"); - println(TEXOUTPUT,"\input{"+Texpara+"figs.tex}%"); - println(TEXOUTPUT,"\end{document}"); - closefile(TEXOUTPUT); -); - -Mkparash():=( - regional(tmp); - tmp=Fhead; - Fhead=Texpara; - if(length(Shellparent)>0, - Makeshell() - , - Makebat(); - ); - Fhead=tmp; -); - -Texpara():=( - VERNUM=1; - Mkmovie(); - Mkparatexmain(); - Mkparash(); -); - -Setpara(path,fstr,sL):=Setpara(path,fstr,sL,[]); // 16.12.27added -Setpara(pathorg,fstr,sL,options):=( -//help:Setpara("folder name","funstr","range",options); -//help:Setpara(folder,funstr,range,options); -//help:Setpara(options=["m/r","Div=25"]); -//help:Setpara(options=["Frate=10","Scale=1","OpA=[loop]"] for animation); - regional(path);//17.04.10 - if(length(pathorg)==0, path=Slidename,path=pathorg);//17.04.10 - ParaPath=path; - ParaFstr=fstr; - ParaSL=sL; - ParaOp=options; - GLISTback=GLIST; - GCLISTback=GCLIST; - GOUTLISTback=GOUTLIST; - POUTLISTback=POUTLIST; - VLISTback=VLIST; - FUNLISTback=FUNLIST; - LETTERlistback=LETTERlist; - COM0thlistback=COM0thlist; - COM1stlistback=COM1stlist; - COM2ndlistback=COM2ndlist; -); - -Parafolder():=Parafolder(ParaPath,ParaFstr,ParaSL,ParaOp); -Parafolder(path,fstr,sL):=Parafolder(path,fstr,sL,[]); -Parafolder(path,fstr,sLorg,optionorg):=( -//help:Parafolder(foldername,1..4); -//help:Parafolder(foldername,"s=[0,1]"); -//help:Parafolder("mf(s)",foldername,"s=[0,1]"); -//help:Parafolder(options=["m/r","Div=25"]); -//help:Paraslide(para=folder:layery:pos:input,scale); -//help:Paraslide(para=folder:layery:pos:include:[width=100]); - regional(nn,sL,tmp,tmp1,tmp2,strL,eqL, - mksce,mktex,ndiv,options,sciall,sfL); - if(!isstring(ParaPath), - println("Setpara not executed"); - , - sL=sLorg;//16.12.24from - if(!isstring(sL), - tmp=indexof(fstr,"("); - tmp1=substring(fstr,tmp,length(fstr)); - tmp=indexof(tmp1,")"); - tmp1=substring(tmp1,0,tmp-1); - , - tmp=indexof(sL,"=");//16.12.21from - if(length(tmp)>0, - tmp1=substring(sL,0,tmp-1); - ); - );//16.12.21,24upto - parse("Movieframe("+tmp1+"):="+fstr); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - strL=tmp_7; - if(length(strL)==0,options=append(options,"m"));//16.12.18 - mksce="A"; - mktex="A"; - ndiv=25; - forall(eqL, - tmp=Indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="D", - ndiv=parse(tmp2); - options=remove(options,[#]); - ); - ); - forall(strL, - tmp1=Toupper(substring(#,0,1)); - if(tmp1=="M", - mksce="Y"; mktex="Y"; - ); - ); - sL=sLorg; - if(isstring(sL), - tmp=indexof(sL,"="); - tmp1=parse(substring(sL,tmp,length(sL))); - sL=apply(0..ndiv,tmp1_1+#*(tmp1_2-tmp1_1)/ndiv); - ); - if(!isexists(Dirwork,path), - if(ErrFlag!=-1, - cmdL=["createdir",[Dq+path+Dq]];//16.12.20 - CalcbyS("crdr",cmdL,["m"]); - wait(200);//17.02.20from - repeat(1..30, - if(!isexists(Dirwork,path),wait(100)); - );//17.02.20upto - , - println(" ==> Changework may not work properly"); - sL=[]; - ); - , - if(mksce=="Y", - cmdL=[ - "rmdir",[Dq+path+Dq,Dq+"s"+Dq], - "createdir",[Dq+path+Dq] - ];//16.12.20 - CalcbyS("crdr",cmdL,["m"]); - wait(200);//17.02.20from - tmp=Dirwork+"/"+path; - if(iswindows(),tmp=replace(tmp,"/","\")); - repeat(1..30, - if(!isexists(Dirwork,path), - wait(100); - , - if(length(fileslist(tmp))>0,wait(100)); - ); - ); - );//17.02.20upto - ); - sciall=path+"/all.sce"; - if(iswindows(),sciall=replace(sciall,"/","\"));//17.02.20 - sfL=[]; - forall(1..(length(sL)),nn, - clrscr(); // 16.12.28 - GLIST=GLISTback; - GCLIST=GCLISTback; - GOUTLIST=GOUTLISTback; - POUTLIST=POUTLISTback; - VLIST=VLISTback; - FUNLIST=FUNLISTback; - LETTERlist=LETTERlistback; - COM0thlist=COM0thlistback; - COM1stlist=COM1stlistback; - COM2ndlist=COM2ndlistback; - tmp1=Sprintf(nn/1000,3); - tmp=indexof(tmp1,"."); - tmp1=substring(tmp1,tmp,length(tmp1)); - Fnamesci=path+"/p"+tmp1+".sce"; - sfL=append(sfL,Fnamesci); - Fnametex=replace(Fnamesci,".sce",".tex"); - Movieframe(sL_nn); -// windispg();//16.12.28 - if(!isexists(Dirwork,Fnamesci) % mksce=="Y", - if(ErrFlag!=-1, - Viewtex(); - ); - ); - ); // 16.12.27upto - cmdL=[ - "fL="+text(apply(sfL,Dq+#+Dq)),[], - "Dt=mgetl(fL(1));",[], - "Dt=Dt(1:(size(Dt,1)-1),:)",[], - "for I=2:size(fL,2),Tmp=mgetl(fL(I));N=size(Tmp,1)-1;Tmp1=Tmp(13:N,:);Dt=[Dt;Tmp1],end",[], - "mputl(Dt,'"+sciall+"')",[], - "exec('"+sciall+"',-1)",[] - ]; - if(ErrFlag!=-1, - if(!isexists(Dirwork,Fnametex) % mktex=="Y", - CalcbyS("all",cmdL,options); - , - println("Parafolder "+path+" finished");//16.12.20 - ); - if(length(after)>0, // 16.12.27 - parse(after); - ); - Fnamesci=Fhead+".sce"; - Fnametex=Fhead+".tex"; - ); - ); -); - -Flipbook():=( //17.04.09 - regional(parentorg,Dirworkorg,figfolder,sep,x0,y0,sc,title,tmp,tmp1,tmp2); - Dirworkorg=Dirwork; - Slidework(Dirwork); - figfolder=Dirwork; - parentorg=Texparent; - PageStyle="empty"; - title=Texparent; - tmp=Divoptions(ParaOp); - tmp1=tmp_5; - forall(tmp1, - tmp2=substring(Toupper(#),0,1); - if(tmp2=="T", - tmp=indexof(#,"="); - title=substring(#,tmp,length(#)); - ParaOp=remove(ParaOp,[#]); - ); - ); - x0="60"; y0="5"; sc="1"; - tmp=select(ParaOp,islist(#)); - if(length(tmp)>0, - x0=text(tmp_1_1); - y0=text(tmp_1_2); - ParaOp=remove(ParaOp,[tmp_1]); - ); - tmp=select(ParaOp,!islist(#) & isreal(#)); - if(length(tmp)>0, - sc=text(tmp_1); - ParaOp=remove(ParaOp,[tmp_1]); - ); - Parafolder(); - Changework(Dirworkorg); - if(isstring(Slidename), - Texparent=Slidename; - , - Texparent=parentorg+"flip"; - ); - SCEOUTPUT = openfile(Texparent+".txt"); - println(SCEOUTPUT,"%title//"); - println(SCEOUTPUT,"\pagestyle{empty};//"); - println(SCEOUTPUT,"new::"+title+"//"); - println(SCEOUTPUT, - "%repeat=,para="+ParaPath+":{0}:s{"+x0+"}{"+y0+"}:input:"+sc+"//"); - closefile(SCEOUTPUT); - Changework(figfolder); - Setslidebody("black"); - Setslidehyper(""); - Mkslides(); - Changework(Dirworkorg); - Texparent=parentorg; -); - -Animatefile():=Animatefile(Dirwork,ParaPath); -Animatefile(path,folder):=( -//help:Animatefile(); -//help:Animatefile(Dirwork,ParaPath); - regional(FRate, Scale, OpA, pa,fname,eqL,tmp,tmp1,tmp2); - tmp=divoptions(ParaOp); - eqL=tmp_5; - FRate="10"; - Scale="1"; - OpA=""; - forall(eqL, - tmp1=Toupper(substring(#,0,2)); - tmp=indexof(#,"="); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="FR", - FRate=tmp2; - ); - if(tmp1=="SC", - Scale=tmp2; - ); - if(tmp1=="OP", - if(substring(tmp2,0,1)!="[",tmp2="["+tmp2+"]"); - OpA=tmp2; - ); - ); - pa=replace(path,"\","/"); - fname="anim"+folder+".tex"; - tmp=Dirwork+"/"+folder; - path=replace(tmp,"\","/"); - if(iswindows(),tmp=replace(tmp,"/","\")); - tmp1=fileslist(tmp); - tmp1=tokenize(tmp1,","); - tmp1=select(tmp1,indexof(#,".tex")>0); - SCEOUTPUT= openfile(fname); - println(SCEOUTPUT,"\def\parapath{"+pa+"}%"); //17.06.22 - println(SCEOUTPUT,"\begin{animateinline}"+OpA+"{"+FRate+"}%"); - forall(1..(length(tmp1)), - if(Scale==1, // 17.08.30from - tmp="\input{\parapath/"; - tmp=tmp+folder+"/"+tmp1_#+"}%"; - , - tmp="\scalebox{"+Scale+"}{\input{\parapath/";//17.06.22(3lines) - tmp=tmp+folder+"/"+tmp1_#+"}}%"; - ); // 17.08.30upto - println(SCEOUTPUT,tmp); -// println(SCEOUTPUT,""); //17.06.25 - if(#<length(tmp1), - println(SCEOUTPUT,"\newframe%"); - ); - ); - println(SCEOUTPUT,"\end{animateinline}%"); - closefile(SCEOUTPUT); - println(fname+" has been generated"); -); - -Mkanimation():=( // 17.10.08 - if(!isexists(Dirwork,ParaPath), - Parafolder(); - ); - if(!isexists(Dirwork,"anim"+ParaPath+".tex"), - Animatefile(); - ); - Mkanimation("fig",ParaPath); -); -Mkanimation(folder):=Mkanimation("fig",folder); -Mkanimation(path,folder):=( -//help:Mkanimation(); -//help:Mkanimation(path,folder); - regional(Fheadbkup,Dirworkbkup,Pathpdfbkup,tex,article,parent, - tmp,tmp1,tmp2,tmp3,flg); - Fheadbkup=Fhead; - Dirworkbkup=Dirwork; - Pathpdfbkup=Pathpdf; - Fhead="animate"+folder; - Pathpdf=PathAd; - Dirwork=replace(Dirwork,"\",pathsep()); - Dirwork=replace(Dirwork,"/",pathsep()); - Dirwork=replace(Dirwork,pathsep()+"fig",""); - Setdirectory(Dirwork); - tmp1=replace(PathT,pathsep(),"/"); - tmp=indexall(tmp1,pathsep()); - tex=substring(tmp1,tmp_(length(tmp)),length(tmp1)); - if((tex=="platex")%(tex=="uplatex"), - if(tex=="platex",article="jarticle",article="ujarticle"); - , - article="article"; - ); - SCEOUTPUT=openfile(Fhead+".tex"); - println(SCEOUTPUT,"\documentclass[landscape]{"+article+"}"); - if((tex=="platex")%(tex=="uplatex")%(tex=="latex"), - tmp="\special{papersize=\the\paperwidth,\the\paperheight}"; - println(SCEOUTPUT,tmp); - ); - if((tex=="pdflatex")%(tex=="lualatex")%(tex=="xelatex"), - if((tex=="pdflatex")%(tex=="xelatex"), - println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}"); - , - println(SCEOUTPUT,"\usepackage{pict2e}"); - println(SCEOUTPUT,"\usepackage{luatexja}"); - ); - tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}"); - , - tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); - ); - println(SCEOUTPUT,"\usepackage{amsmath,amssymb}"); - println(SCEOUTPUT,"\usepackage{bm,enumerate}"); - if((tex=="platex")%(tex=="uplatex")%(tex=="latex"), - println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}"); - println(SCEOUTPUT,"\usepackage[dvipdfmx]{animate}"); - , - println(SCEOUTPUT,"\usepackage{graphicx}"); - println(SCEOUTPUT,"\usepackage{animate}"); - ); - println(SCEOUTPUT,"\usepackage{xcolor}"); - forall(ADDPACK, tmp1, - tmp=indexof(tmp1,"{animate}")+indexof(tmp1,"{hyperref}"); - if(tmp==0, - println(SCEOUTPUT,"\usepackage"+tmp1); - ); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\begin{document}"); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"\begin{center}"); - println(SCEOUTPUT,"\input{"+path+"/anim"+folder+".tex}"); - println(SCEOUTPUT,"\end{center}"); - println(SCEOUTPUT,"\end{document}"); - closefile(SCEOUTPUT); - if(iswindows(), - parent=replace(Dirwork+Batparent,pathsep()+"fig",""); - Makebat(Fhead,"tv"); - kc():=( - println("kc : "+kc(parent,Dirlib,Fnametex)) - ); - , - parent=replace(Dirwork+Shellparent,pathsep()+"fig",""); - Makeshell(Fhead,"tv"); - kc():=( - println("kc : "+kc(parent,Mackc+Dirlib,Fnametex)); - ); - ); - kc(); - Dirwork=Dirworkbkup; - Dirwork=Dirwork+pathsep()+"fig"; - setdirectory(Dirwork); - Fhead=Fheadbkup; - Pathpdf= Pathpdfbkup; -); - -//help:end(); - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlog.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlog.txt deleted file mode 100644 index 93491c3d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlog.txt +++ /dev/null @@ -1,70 +0,0 @@ -// e: 2017.10.09 -// Parafolder changed (for R) -// e: 2017.10.08 -// Mkanimation added -// e: 2017.08.19 -// Help of Setpara changed -// e: 2017.06.25 -// Animatefile changed (remove blank lines) -// e: 2017.06.22 -// Animatefile changed (parapath) -// e: 2017.06.18 -// Animatefile added -// e: 2017.04.10 -// Mkmoviesh changed ( Texparent ) -// Ketinitmv changed ( Ketinit included ) -// e: 2017.04.09 -// Ketinitmv changed ( Shellfile="mv" added ) -// Flipbook added -// s:2017.04.08 -// bugs fixed -// e: 2017.02.26 -// Paraamble debugged ( \def\ketcbox{white} added ) -// e: 2017.02.20 -// Parafolder debugged ( waiting time ) -// e: 2017.02.19 -// Paraamble debugged ( "colorframe" ) -// e: 2016.12.29 -// Parafolder changed (rmdir added); -// e: 2016.12.28 -// Parafolder changed (clrscr,windispg); -// e: 2016.12.27 -// Setpara added ( for Para button ) -// Parafolder changed( "m" for remake) -// e: 2016.12.26 -// Parafolder debugged("quit" removed from all.sce) -// e: 2016.12.25 -// Parafolder debugged/changed (OK for "Scetex=m or m,r") -// e: 2016.12.24 -// Parafolder debugged (definition of movieframe ) -// e: 2016.12.22 -// Parafolder changed ( not executed when Errflg=-1 from Changework ) -// e: 2016.12.21 -// Parafolder changed ( for functionstring ) -// e: 2016.12.19 -// Parafolder debugged -// e: 2016.12.15 -// Parafolder added -// e: 2016.12.10 -// Setpara added (global var ParaTitle added ) -// e: 2016.08.10 -// Ketinitmv changed ( Paraamble() added) -// e: 2016.07.06 -// amsmath,amssymb added -// putnotes => putnotec in paraamble - -//////////// old //// -// s: 2015.06.20 v1.4.6 -// e: 2015.06.22 v1.5.0 -// .cs adopted -// movie, para embodied -// e: 2015.07.10 v1.5.1 -// applied to Deqplot -// e: 2015.07.10 v1.5.2 -// rename "start","end" to "First", "Last" -// e: 2016.04.01 v1.5.3 -// rename Texmovie to Texmov -// e: 2016.05.19 -// Mkmovie changed ( for name of axis ) -//////// To Reverse Sequence - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt index dc3c8d58..70b42e5a 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt +++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt @@ -1,3 +1,22 @@ +//2017.12.09 +// Parafolder debugged (Viewtex ->WritetoRS) +// Mkanimation debugged ( \ -> / for windows ) +//2017.12.07 +// Setpara options changed +// Animatefile changed (\figsize, OpA) +//2017.11.24 +// Mkflipanime added +// Old movie function removed +// Flipbook removed +// Mkanimation changed (for R) +//2017.11.21 +// Ketinitmv, Paraamble, Mkmovie changed (for R) +//2017.11.03 +// Mkanimation changed (ketpic.sty etc ) +//2017.10.28 +// Parafolder changed (timing of display of counter,time) +//2017.10.24 +// Parafolder changed (file.exists added) //2017.10.14 // Mkanimation changed ("Rem=" option added) //2017.10.13 diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs index b2905ecb..5cc91de2 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs +++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs @@ -14,542 +14,28 @@ // along with this program. If not, see <http://www.gnu.org/licenses/> // -println("ketcindymv(2017.10.13) loaded"); +println("ketcindymv(2017.11.24) loaded"); //help:start(); -Ketinitmv():=( - regional(tmp,tmp1,tmp2,tmp3); - Ketinit();//17.04.10 - Texmov=Fhead+"movie"; - Texpara=Fhead+"para"; - ParaTitle=Texpara;//16.12.10 - tmp1=round(4*SW.y)/4-0.5; - tmp2=SW.x+1; - tmp3=NE.x-1; - Listplot("sl",[[tmp2,tmp1],[tmp3,tmp1]],["notex","linecolor->[0,1,0]"]); - PutonCurve("MF",sgsl,[tmp2,tmp3]); - Paraamble(); // 16.08.10 - Pathpdf=Pathad; // 17.10.13 -); - -Moviedata(func,var):=Moviedata(func,var,[]); -Moviedata(func,var,options):=( -//help:Moviedata("mf(t)","t=[0,4]"); -//help:Moviedata(Options=["Cut=20","Div=80"]); - regional(tmp,tmp1,tmp2,eqL); - tmp=Divoptions(options); - eqL=tmp_5; - CUT=20; - DVALL=0; - Ec=[]; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=Toupper(substring(#,tmp,length(#))); - if(tmp1=="D", - DVALL=parse(tmp2); - ); - if(tmp1=="C", - CUT=parse(tmp2); - ); - ); - if(DVALL==0, - DVALL=4*CUT; - ); - tmp=indexof(var,"="); - tmp1=substring(var,0,tmp-1); - tmp2=substring(var,tmp,length(var)); - tmp2=parse(tmp2); - if(indexof(func,"Moiveframe")==0, - tmp="Movieframe("+tmp1+"):="+func+";"; - parse(tmp); - ); - tmp="Movierange="+tmp2+";"; - parse(tmp); -// tmp="Movieoptions=["+Dq+"Div="+text(DVALL)+Dq+","+Dq+"Cut="+text(CUT)+Dq+"]"; -// parse(tmp); -); - -Paraamble():=Paraamble(""); -Paraamble(str):=( -//help:Paraamble(); -//help:Paraamble(amblelist); -//help:Paraamble(filename); - regional(cmdall,sep,tmp,tmp1,tmp2); - if(isstring(str), - if(str=="", - Parafirsthead=[ - "\def\ketcbox{white}", // 17.02.26 - "\newslide[0]{"+ParaTitle+"}", //16.12.10 - "", - "\hypertarget{FIRST}{}", - "Commonhead" - ]; - Parafirsttail=[ - "Commontail" - ]; - Parahead=[ - "\sameslide[0]", - "Commonhead" - ]; - Paratail=[ - "Commontail" - ]; - Paralasthead=[ - "\sameslide[0]", - "", - "\hypertarget{LAST}{}", - "Commonhead" - ]; - Paralasttail=[ - "Commontail" - ]; - Commonhead=[ - "", - "\definecolor{thinblue}{cmyk}{0.3,0.3,0,0}", //17.02.19 - "\begin{layer}{130}{0}", - "\hyperlink{FIRST}{\colorframe[8]{0}{80}{thinblue}{yellow}{blue}{FIRST}}", //17.02.19 - "\hyperlink{LAST}{\colorframe[8]{110}{80}{thinblue}{yellow}{blue}{LAST}}", //17.02.19 - "\putnotec{60}{40}{" // 16.07.06 - ]; - Commontail=[ - "", - "}", - "\end{layer}", - "" - ]; - , - if(indexof(str,".")>0,tmp1=str,tmp1=str+".txt"); - tmp=load(tmp1); - cmdall=tokenize(tmp,"..."); - cmdall=apply(cmdall,Removespace(#)); - sep=select(1..length(cmdall),substring(cmdall_#,0,5)=="%Para"); - Parafirsthead=cmdall_(2..(sep_2-1)); - Parafirsttail=cmdall_((sep_2+1)..(sep_3-1)); - Parahead=cmdall_((sep_3+1)..(sep_4-1)); - Paratail=cmdall_((sep_4+1)..(sep_5-1)); - Paralasthead=cmdall_((sep_5+1)..(sep_6-1)); - tmp1=cmdall_((sep_6+1)..length(cmdall)); - sep=select(1..length(tmp1),substring(tmp1_#,0,7)=="%Common"); - Paralasttail=tmp1_(1..sep_1-1); - Commonhead=tmp1_((sep_1+1)..(sep_2-1)); - Commontail=tmp1_((sep_2+1)..length(tmp1)); - ); - ); - if(islist(str), - Parafirsthead=str_1; - Parafirsttail=str_2; - Parahead=str_3; - Paratail=str_4; - Paralasthead=str_5; - Paralasttail=str_6; - Commonhead=str_7; - Commontail=str_8; - ); - tmp1=apply(Parafirsthead,Dq+#+Dq); - tmp2=apply(Parafirsttail,Dq+#+Dq); - tmp=[tmp1,tmp2]; - tmp1=apply(Parahead,Dq+#+Dq); - tmp2=apply(Paratail,Dq+#+Dq); - tmp=concat(tmp,[tmp1,tmp2]); - tmp1=apply(Paralasthead,Dq+#+Dq); - tmp2=apply(Paralasttail,Dq+#+Dq); - tmp=concat(tmp,[tmp1,tmp2]); - tmp1=apply(Commonhead,Dq+#+Dq); - tmp2=apply(Commontail,Dq+#+Dq); - tmp=concat(tmp,[tmp1,tmp2]); - tmp; -); - -Writeparaamble(filename):=( - //regional(tmp,tmp1,tmp2); - SCEOUTPUT=openfile(filename); - println(SCEOUTPUT,"%Parafirsthead"+"..."); - forall(Parafirsthead, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Parafirsttail"+"..."); - forall(Parafirsttail, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Parahead"+"..."); - forall(Parahead, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Paratail"+"..."); - forall(Paratail, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Paralasthead"+"..."); - forall(Paralasthead, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Paralasttail"+"..."); - forall(Paralasttail, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Commonhead"+"..."); - forall(Commonhead, - println(SCEOUTPUT,#+"..."); - ); - println(SCEOUTPUT,""); - println(SCEOUTPUT,"%Commontail"+"..."); - forall(Commontail, - println(SCEOUTPUT,#+"..."); - ); - closefile(SCEOUTPUT); -); - -Mvdispg():=( - regional(tmp,tmp1,tmp2,tmp3,num,s,i); - CLIST=COM2ndlist; - FIXGLIST=[]; - forall(2..length(GLIST), - FIXGLIST=append(FIXGLIST,GLIST_#); - ); - STPTlist=remove(allpoints(),[SW,NE,MF]); - STPlist=[]; - STPnamelist=[]; - STPvaluelist=[]; - forall(STPTlist, - tmp=Lcrd(#); - tmp1=format(re(tmp_1),5); - tmp2=format(re(tmp_2),5); - tmp="["+tmp1+","+tmp2+"]"; - STPlist=append(STPlist,#.name+"="+tmp+";"); - STPnamelist=append(STPnamelist,#.name); - STPvaluelist=append(STPvaluelist,tmp); - ); - tmp1=round(4*SW.y)/4-0.5; - tmp2=SW.x+1; - tmp3=NE.x-1; - if(length(Movierange)==2, - s=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_2-Movierange_1); - Movieframe(s); - , - num=length(Movierange); - tmp=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_num-Movierange_1); - i=1; - while(Movierange_(i+1)<=tmp, - i=i+1; - ); - s=Movierange_i; - Movieframe(s); - ); - Windispg(); - Defvar("s",s); - GOUTLIST=[]; -); - -Mkmovie():=Mkmovie(Movierange); -Mkmovie(rng):=( - regional(x1,x2,PLIST,GL,num0,num1,num2,num3,num4,num5,num6,num, - l,s,k,tmp,tmp1,tmp2,tmp3,Plist,Pnamelist,Pvaluelist, - ALLPlist,MVPlist); - if(length(rng)==2, - x1=rng_1; - x2=rng_2; - PLIST=[x1]; - forall(1..DVALL,k, - s=x1+k*(x2-x1)/DVALL; - PLIST=append(PLIST,s); - ); - , - PLIST=rng; - DVALL=length(rng)-1; - ); - if(VERNUM==0, - SCEOUTPUT=openfile(Texmov+".sce"); - , - SCEOUTPUT=openfile(Texpara+".sce"); - ); - println(SCEOUTPUT,"cd('"+Dirwork+"');"); - println(SCEOUTPUT,"Ketlib=lib('"+Libname+"');"); - println(SCEOUTPUT,"Ketinit();"); - println(SCEOUTPUT,"pi=%pi;"); - tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+ - "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19 - println(SCEOUTPUT,tmp); - //println(SCEOUTPUT,"Setax('l','x','e','y','n','O','sw');"); - num1=length(COM1stlist); - forall(1..num1,l, - println(SCEOUTPUT,COM1stlist_l+";"); - ); - forall(1..length(STPlist), - print(SCEOUTPUT,STPlist_#); - println(SCEOUTPUT," Assignrep('"+STPnamelist_#+"',"+STPvaluelist_#+");"); - ); - num2=length(CLIST); - num3=length(FIXGLIST); - num=0; - repeat(num3, - num=num+1; - tmp1=FIXGLIST_num; - num4=indexof(tmp1,"="); - if(num4>0, - tmp2=substring(tmp1,num4,length(tmp1)); - tmp=substring(tmp1,0,num4-1); - println(SCEOUTPUT,tmp+"="+text(tmp2)+";"); - ); - ); - if(VERNUM==0, - println(SCEOUTPUT,"Openfile('"+Texmov+"figs.tex');"); - println(SCEOUTPUT,"Texcom('\begin{animateinline}{"+text(CUT)+"}');"); - , - println(SCEOUTPUT,"Openfile('"+Texpara+"figs.tex');"); - ); - println(SCEOUTPUT,""); - forall(0..DVALL,k, - s=PLIST_(k+1); - println(SCEOUTPUT,"s="+format(s,5)+";"); - GLIST=[]; - COM2ndlist=[]; - GCLIST=FIXGCLIST; - Movieframe(s); - clrscr(); // 15.06.17 - Plist=[]; - Pnamelist=[]; - Pvaluelist=[]; - ALLPlist=remove(allpoints(),[SW,NE,MF]); - RMPlist=[]; - forall(1..length(ALLPlist), - tmp=indexof(STPvaluelist_#,","); - tmp1=substring(STPvaluelist_#,1,tmp-1); - tmp2=substring(STPvaluelist_#,tmp,length(STPvaluelist_#)-1); - if(parse(format(Lcrd(ALLPlist_#)_1,5))==parse(tmp1), - if(parse(format(Lcrd(ALLPlist_#)_2,5))==parse(tmp2), - RMPlist=append(RMPlist,ALLPlist_#); - ); - ); - ); - MVPlist=remove(ALLPlist,RMPlist); - forall(MVPlist, - tmp=Lcrd(#); - tmp1=format(re(tmp_1),5); - tmp2=format(re(tmp_2),5); - tmp="["+tmp1+","+tmp2+"]"; - Plist=append(Plist,#.name+"="+tmp+";"); - Pnamelist=append(Pnamelist,#.name); - Pvaluelist=append(Pvaluelist,tmp); - ); - forall(1..length(Plist), - print(SCEOUTPUT,Plist_#); - println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");"); - ); - num3=length(GLIST); - num=0; - GL=[]; - forall(GCLIST, - GL=append(GL,#_1); - ); - repeat(num3, - num=num+1; - tmp1=GLIST_num; - num4=indexof(tmp1,"="); - tmp2=substring(tmp1,num4,length(tmp1)); - tmp=substring(tmp1,0,num4-1); - //if(indexof(tmp2,"=")>0, - if(substring(tmp2,0,5)=="Param", - num5=indexof(tmp2,"="); - tmp3=substring(tmp2,num5,length(tmp2)-2); - tmp3=parse(tmp3); - if(tmp3_1==tmp3_2, - tmp2="Pointdata([0,0])"; - ); - ); - println(SCEOUTPUT,tmp+"="+text(tmp2)+";"); - ); - forall(GOUTLIST, - tmp=#_1; - println(SCEOUTPUT,"Tmpout=ReadOutData('"+tmp+"');"); - println(SCEOUTPUT,"execstr(Tmpout);"); - ); - if(VERNUM==1, - if(k==0, - tmp1=apply(Parafirsthead,Removespace(#)); - , - if(k<DVALL, - tmp1=apply(Parahead,Removespace(#)); - , - tmp1=apply(Paralasthead,Removespace(#)); - ); - ); - tmp1=apply(tmp1,if(length(#)==0,"newline",#)); - tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0); - tmp2=apply(Commonhead,Removespace(#)); - tmp2=apply(tmp2,if(length(#)==0,"newline",#)); - tmp1_(tmp_1)=tmp2; - tmp1=flatten(tmp1); - forall(tmp1, - println(SCEOUTPUT,"Texcom('"+#+"');"); - ); - ); - tmp=indexof(ULEN,"cm"); // 16.05.19from - if(tmp>0, - tmp1=Removespace(substring(ULEN,0,tmp-1)); - tmp2=0.5/parse(tmp1) - ); // 16.05.19upto - tmp=indexof(ULEN,"mm"); - if(tmp>0, - tmp1=Removespace(substring(ULEN,0,tmp-1)); - tmp2=5/parse(tmp1); - ); - tmp="Setwindow(["+text(XMIN)+","+text(XMAX+tmp2)+ - "],["+text(YMIN)+","+text(YMAX+tmp2)+"]);";// 16.05.19 - println(SCEOUTPUT,tmp);// 16.05.19 - println(SCEOUTPUT,"Beginpicture('"+ULEN+"');"); - tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+ - "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19 - println(SCEOUTPUT,tmp);// 16.05.19 - forall(1..num2,l, - println(SCEOUTPUT,CLIST_l+";"); - ); - forall(1..length(COM2ndlist),l, - println(SCEOUTPUT,COM2ndlist_l+";"); - ); - println(SCEOUTPUT,"Endpicture("+ADDAXES+");"); - if(VERNUM==0, - println(SCEOUTPUT,""); - println(SCEOUTPUT,"Texcom('');"); - if(k<DVALL, - println(SCEOUTPUT,"Texcom('\newframe');"); - println(SCEOUTPUT,""); - , - println(SCEOUTPUT,"Texcom('\end{animateinline}')"); - println(SCEOUTPUT,"Closefile();"); - println(SCEOUTPUT,"quit();"); - closefile(SCEOUTPUT); - ); - , - if(k==0, - tmp1=apply(Parafirsttail,Removespace(#)); - , - if(k<DVALL, - tmp1=apply(Paratail,Removespace(#)); - , - tmp1=apply(Paralasttail,Removespace(#)); - ); - ); - tmp1=apply(tmp1,if(length(#)==0,"newline",#)); - tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0); - tmp2=apply(Commontail,Removespace(#)); - tmp2=apply(tmp2,if(length(#)==0,"newline",#)); - tmp1_(tmp_1)=tmp2; - tmp1=flatten(tmp1); - forall(tmp1, - println(SCEOUTPUT,"Texcom('"+#+"');"); - ); - if(k==DVALL, - println(SCEOUTPUT,""); - println(SCEOUTPUT,"Closefile();"); - println(SCEOUTPUT,"quit();"); - closefile(SCEOUTPUT); - ); - ); - Windispg(GL); - time=1000/CUT; - wait(time); - GLIST=[]; - GCLIST=[]; - COM2ndlist=[]; - GOUTLIST=[]; - ); -); - -Mkmovietexmain():=( - TEXOUTPUT=openfile(Texmov+"main"+".tex"); // 15.03.28 - println(TEXOUTPUT,""); - println(TEXOUTPUT,"\documentclass{article}"); - println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06 - println(TEXOUTPUT,"\usepackage{graphicx}"); - println(TEXOUTPUT,"\usepackage[dvipdfmx]{animate}"); - println(TEXOUTPUT,"\usepackage{color}"); - println(TEXOUTPUT,"\usepackage{ketpic,ketlayer}"); - println(TEXOUTPUT,"\setmargin{20}{20}{20}{20}"); - println(TEXOUTPUT,"\begin{document}"); - println(TEXOUTPUT,"\input{"+Texmov+"figs.tex}%"); - println(TEXOUTPUT,"\end{document}"); - closefile(TEXOUTPUT); -); - -Mkmoviesh():=( - regional(parentorg,tmp); - parentorg=Texparent;//17.04.10 - Texparent="";//17.04.10 - tmp=Fhead;// 15.03.28 - Fhead=Texmov; - if(length(Shellparent)>0, - Makeshell() - , - Makebat(); - ); - Fhead=tmp; - Texparent=parentorg;//17.04.10 -); - -Texmovie():=( - VERNUM=0; - Mkmovie(); - Mkmovietexmain(); - Mkmoviesh(); -); - -Mkparatexmain():=( - TEXOUTPUT=openfile(Texpara+"main"+".tex"); - println(TEXOUTPUT,""); - println(TEXOUTPUT,"\documentclass[landscape,10pt]{article}"); - println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06 - println(TEXOUTPUT,"\usepackage{graphicx}"); - println(TEXOUTPUT,"\usepackage[dvipdfmx,colorlinks=true,linkcolor=black]{hyperref}"); - println(TEXOUTPUT,"\AtBeginDvi{\special{pdf:tounicode 90ms-RKSJ-UCS2}}"); - println(TEXOUTPUT,"\usepackage{color}"); - println(TEXOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}"); - println(TEXOUTPUT,"\ketmarginE"); - println(TEXOUTPUT,"\ketslideinit"); - println(TEXOUTPUT,"\begin{document}"); - println(TEXOUTPUT,"\input{"+Texpara+"figs.tex}%"); - println(TEXOUTPUT,"\end{document}"); - closefile(TEXOUTPUT); -); - -Mkparash():=( - regional(tmp); - tmp=Fhead; - Fhead=Texpara; - if(length(Shellparent)>0, - Makeshell() - , - Makebat(); - ); - Fhead=tmp; -); - -Texpara():=( - VERNUM=1; - Mkmovie(); - Mkparatexmain(); - Mkparash(); -); - -Setpara(path,fstr,sL):=Setpara(path,fstr,sL,[]); // 16.12.27added -Setpara(pathorg,fstr,sL,options):=( -//help:Setpara("folder name","funstr","range",options); +Setpara(path,fstr,sL):=Setpara(path,fstr,sL,[],[]); // 16.12.27added +Setpara(pathorg,fstr,sL,options):= //17.11.25(3lines) + Setpara(pathorg,fstr,sL,options,[]); +Setpara(pathorg,fstr,sL,options,optionsanim):=( +//help:Setpara("folder name","funstr","range",options,optionsanim); //help:Setpara(folder,funstr,range,options); //help:Setpara(options=["m/r","Div=25"]); -//help:Setpara(options=["Frate=10","Scale=1","OpA=[loop]"] for animation); +//help:Setpara(options2anim1=["Frate=10","Scale=1"]); +//help:Setpara(options2anim2=["OpA=[loop,controls,buttonsize=3mm]"]); +//help:Setpara(options2anim3=["OpA=+step"]); +//help:Setpara(options2anim4=["Mag=1600","Title=folder"]); regional(path);//17.04.10 if(length(pathorg)==0, path=Slidename,path=pathorg);//17.04.10 ParaPath=path; ParaFstr=fstr; ParaSL=sL; ParaOp=options; + ParaOpAnim=optionsanim; //17.11.25 GLISTback=GLIST; GCLISTback=GCLIST; GOUTLISTback=GOUTLIST; @@ -568,7 +54,7 @@ Parafolder(path,fstr,sLorg,optionorg):=( //help:Parafolder(foldername,1..4); //help:Parafolder(foldername,"s=[0,1]"); //help:Parafolder("mf(s)",foldername,"s=[0,1]"); -//help:Parafolder(options=["m/r","Div=25"]); +//help:Parafolder(options=["m/r","Div=25","Wait=20"]); //help:Paraslide(para=folder:layery:pos:input,scale); //help:Paraslide(para=folder:layery:pos:include:[width=100]); regional(nn,sL,tmp,tmp1,tmp2,strL,eqL,waiting, @@ -631,7 +117,9 @@ Parafolder(path,fstr,sLorg,optionorg):=( sL=[]; ); , - if(mkr=="Y", + tmp=fileslist(Dirwork+pathsep()+path); //17.12.09(3lines); + tmp=length(tmp); + if((mkr=="Y") & (tmp>0), tmp1=replace(Dirwork,"\","/");//17.10.13 cmdL=[ "setwd",[Dq+tmp1+"/"+path+Dq], @@ -648,7 +136,6 @@ Parafolder(path,fstr,sLorg,optionorg):=( ); sfL=[]; forall(1..(length(sL)),nn, - clrscr(); // 16.12.28 GLIST=GLISTback; GCLIST=GCLISTback; GOUTLIST=GOUTLISTback; @@ -668,7 +155,7 @@ Parafolder(path,fstr,sLorg,optionorg):=( Movieframe(sL_nn); //17.10.13 if(!isexists(Dirwork,FnameR) % mkr=="Y", if(ErrFlag!=-1, - Viewtex(); + WritetoRS(2); //17.12.09 ); ); ); @@ -677,7 +164,6 @@ Parafolder(path,fstr,sLorg,optionorg):=( "setwd",[Dq+tmp1+"/"+path+Dq], "Mkallfile=function(fname){",[], " Ctr<<- Ctr+1",[], - " cat('print(',Ctr,')\n',file='all.r',append=TRUE)",[], " tmp=readLines(fname)",[], " first=1",[], " if(Ctr>1){",[], @@ -687,18 +173,18 @@ Parafolder(path,fstr,sLorg,optionorg):=( " for(J in first:(length(tmp)-1)){",[], " cat(paste(tmp[J],'\n',sep=''),file='all.r',append=TRUE)",[], " }",[], -// " source(fname)",[], + " cat('print(',Ctr,')\n',file='all.r',append=TRUE)",[], + " Tmp=proc.time()-Tm",[], + " cat('print(',Tmp[3],')\n',file='all.r',append=TRUE)",[], "}",[], - "file.remove('all.r')",[], + "if(file.exists('all.r')){file.remove('all.r')}",[], //17.10.24 "fL=list.files()",[], "Ctr=0",[], - "t<-proc.time()",[], + "Tm<-invisible(proc.time())",[], "for(fname in fL){",[], - " Mkallfile(fname)",[], + " if(length(grep('.r',fname))>0){Mkallfile(fname)}",[], // 17.11.24 "}",[], - "proc.time()-t",[], "source('all.r')",[], - "proc.time()-t",[], "setwd",[Dq+tmp1+Dq] ]; if(ErrFlag!=-1, @@ -716,68 +202,16 @@ Parafolder(path,fstr,sLorg,optionorg):=( ); ); -Flipbook():=( //17.04.09 - regional(parentorg,Dirworkorg,figfolder,sep,x0,y0,sc,title,tmp,tmp1,tmp2); - Dirworkorg=Dirwork; - Slidework(Dirwork); - figfolder=Dirwork; - parentorg=Texparent; - PageStyle="empty"; - title=Texparent; - tmp=Divoptions(ParaOp); - tmp1=tmp_5; - forall(tmp1, - tmp2=substring(Toupper(#),0,1); - if(tmp2=="T", - tmp=indexof(#,"="); - title=substring(#,tmp,length(#)); - ParaOp=remove(ParaOp,[#]); - ); - ); - x0="60"; y0="5"; sc="1"; - tmp=select(ParaOp,islist(#)); - if(length(tmp)>0, - x0=text(tmp_1_1); - y0=text(tmp_1_2); - ParaOp=remove(ParaOp,[tmp_1]); - ); - tmp=select(ParaOp,!islist(#) & isreal(#)); - if(length(tmp)>0, - sc=text(tmp_1); - ParaOp=remove(ParaOp,[tmp_1]); - ); - Parafolder(); - Changework(Dirworkorg); - if(isstring(Slidename), - Texparent=Slidename; - , - Texparent=parentorg+"flip"; - ); - SCEOUTPUT = openfile(Texparent+".txt"); - println(SCEOUTPUT,"%title//"); - println(SCEOUTPUT,"\pagestyle{empty};//"); - println(SCEOUTPUT,"new::"+title+"//"); - println(SCEOUTPUT, - "%repeat=,para="+ParaPath+":{0}:s{"+x0+"}{"+y0+"}:input:"+sc+"//"); - closefile(SCEOUTPUT); - Changework(figfolder); - Setslidebody("black"); - Setslidehyper(""); - Mkslides(); - Changework(Dirworkorg); - Texparent=parentorg; -); - Animatefile():=Animatefile(Dirwork,ParaPath); Animatefile(path,folder):=( //help:Animatefile(); //help:Animatefile(Dirwork,ParaPath); regional(FRate, Scale, OpA, pa,fname,eqL,tmp,tmp1,tmp2); - tmp=divoptions(ParaOp); + tmp=divoptions(ParaOpAnim); //17.11.24 eqL=tmp_5; FRate="10"; Scale="1"; - OpA=""; + OpA="loop,controls,buttonsize=3mm"; remflg=0; forall(eqL, tmp1=Toupper(substring(#,0,2)); @@ -789,11 +223,19 @@ Animatefile(path,folder):=( if(tmp1=="SC", Scale=tmp2; ); - if(tmp1=="OP", - if(substring(tmp2,0,1)!="[",tmp2="["+tmp2+"]"); - OpA=tmp2; + if(tmp1=="OP", // 17.12.07from + if(length(tmp2)>0, + tmp2=replace(tmp2,"[",""); + tmp2=replace(tmp2,"]",""); + if(substring(tmp2,0,1)=="+", + OpA=OpA+","+substring(tmp2,1,length(tmp2)); + , + OpA=tmp2; + ); + ); ); ); + if(length(OpA)>0,OpA="["+OpA+"]"); pa=replace(path,"\","/"); fname="anim"+folder+".tex"; tmp=Dirwork+"/"+folder; @@ -804,13 +246,14 @@ Animatefile(path,folder):=( tmp1=select(tmp1,indexof(#,".tex")>0); SCEOUTPUT= openfile(fname); println(SCEOUTPUT,"\def\parapath{"+pa+"}%"); //17.06.22 + println(SCEOUTPUT,"\def\figsize{"+Scale+"}%"); //17.12.07 println(SCEOUTPUT,"\begin{animateinline}"+OpA+"{"+FRate+"}%"); forall(1..(length(tmp1)), if(Scale==1, // 17.08.30from tmp="\input{\parapath/"; tmp=tmp+folder+"/"+tmp1_#+"}%"; , - tmp="\scalebox{"+Scale+"}{\input{\parapath/";//17.06.22(3lines) + tmp="\scalebox{\figsize}{\input{\parapath/";//17.12.07 tmp=tmp+folder+"/"+tmp1_#+"}}%"; ); // 17.08.30upto println(SCEOUTPUT,tmp); @@ -830,23 +273,33 @@ Mkanimation():=( Parafolder(); ); Animatefile(); //17.10.14upto - Mkanimation("fig",ParaPath); + Mkanimation(Dirwork,ParaPath); ); -Mkanimation(folder):=Mkanimation("fig",folder); +Mkanimation(folder):=Mkanimation(Dirwork,folder); Mkanimation(path,folder):=( //help:Mkanimation(); //help:Mkanimation(path,folder); - regional(Fheadbkup,Dirworkbkup,Pathpdfbkup,tex,article,parent, - tmp,tmp1,tmp2,tmp3,flg); + regional(Fheadbkup,Pathpdfbkup,tex,article,parent, + eqL,mag,title,tmp,tmp1,tmp2,tmp3,flg); + tmp=Divoptions(ParaOpAnim); //17.11.25from + eqL=tmp_5; + mag="1600"; + title=folder; + forall(eqL, + tmp=Indexof(#,"="); + tmp1=Toupper(substring(#,0,1)); + tmp2=substring(#,tmp,length(#)); + if(tmp1=="M", + mag=tmp2; + ); + if(tmp1=="T", + title=tmp2; + ); + ); //17.11.25upto Fheadbkup=Fhead; - Dirworkbkup=Dirwork; - Pathpdfbkup=Pathpdf; Fhead="animate"+folder; + Pathpdfbkup=Pathpdf; Pathpdf=PathAd; - Dirwork=replace(Dirwork,"\",pathsep()); - Dirwork=replace(Dirwork,"/",pathsep()); - Dirwork=replace(Dirwork,pathsep()+"fig",""); - Setdirectory(Dirwork); tmp1=replace(PathT,pathsep(),"/"); tmp=indexall(tmp1,"/");//17.10.14from if(length(tmp)>0, @@ -864,6 +317,7 @@ Mkanimation(path,folder):=( if((tex=="platex")%(tex=="uplatex")%(tex=="latex"), tmp="\special{papersize=\the\paperwidth,\the\paperheight}"; println(SCEOUTPUT,tmp); + println(SCEOUTPUT,"\mag="+mag);//17.11.25 ); if((tex=="pdflatex")%(tex=="lualatex")%(tex=="xelatex"), if((tex=="pdflatex")%(tex=="xelatex"), @@ -872,13 +326,25 @@ Mkanimation(path,folder):=( println(SCEOUTPUT,"\usepackage{pict2e}"); println(SCEOUTPUT,"\usepackage{luatexja}"); ); - tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}"); + tmp=replace(Dirhead,"\","/"); //17.10.30from + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}"); + ); , - tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); - println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); + tmp=replace(Dirhead,"\","/"); //17.10.30from + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); + ); ); println(SCEOUTPUT,"\usepackage{amsmath,amssymb}"); println(SCEOUTPUT,"\usepackage{bm,enumerate}"); @@ -896,35 +362,203 @@ Mkanimation(path,folder):=( println(SCEOUTPUT,"\usepackage"+tmp1); ); ); + println(SCEOUTPUT,"\pagestyle{empty}"); + println(SCEOUTPUT,"\setmargin{0}{0}{0}{0}"); println(SCEOUTPUT,""); println(SCEOUTPUT,"\begin{document}"); + println(SCEOUTPUT,"\large"); println(SCEOUTPUT,""); - println(SCEOUTPUT,"\begin{center}"); - println(SCEOUTPUT,"\input{"+path+"/anim"+folder+".tex}"); - println(SCEOUTPUT,"\end{center}"); + println(SCEOUTPUT,"\vspace*{25mm}"); + println(SCEOUTPUT,""); + tmp=floor(parse("290*1000/"+mag)); + print(SCEOUTPUT,"\Ctab{"+text(tmp)+"mm}{"); + print(SCEOUTPUT,"\fbox{\Large\bf "+title+"}"); + println(SCEOUTPUT,"}"); + tmp=parse("6*1000/"+mag); + println(SCEOUTPUT,"\vspace{"+text(tmp)+"mm}"); + println(SCEOUTPUT,""); + tmp=indexof(ULEN,"cm"); + if(tmp>0, + tmp1=substring(ULEN,0,tmp-1); + tmp1=parse(replace(tmp1," ",""))*10; + ); + tmp=indexof(ULEN,"mm"); + if(tmp>0, + tmp1=substring(ULEN,0,tmp-1); + tmp1=parse(replace(tmp1," ","")); + ); + tmp=parse("300*1000/"+mag); + tmp1=(tmp-(XMAX-XMIN)*tmp1)/2; + tmp1=tmp1+parse("("+mag+"-1000)/100*1.3"); + print(SCEOUTPUT,"\hspace*{"+text(tmp1)+"mm}"); + tmp=replace(path,"\","/"); //17.12.09(2lines) + println(SCEOUTPUT,"\input{"+tmp+"/anim"+folder+".tex}"); println(SCEOUTPUT,"\end{document}"); closefile(SCEOUTPUT); if(iswindows(), - parent=replace(Dirwork+Batparent,pathsep()+"fig",""); + parent=Dirwork+Batparent; Makebat(Fhead,"ttv"); kc():=( println("kc : "+kc(parent,Dirlib,Fnametex)) ); kc(); , - parent=replace(Dirwork+Shellparent,pathsep()+"fig",""); + parent=Dirwork+Shellparent; Makeshell(Fhead,"ttv"); kc():=( println("kc : "+kc(parent,Mackc+Dirlib,Fnametex)); ); kc(); ); - Dirwork=Dirworkbkup; - Dirwork=Dirwork+pathsep()+"fig"; - setdirectory(Dirwork); Fhead=Fheadbkup; Pathpdf= Pathpdfbkup; ); +Mkflipanime():=( + regional(remflg,tmp,eqL,tmp1,tmp2); + if(!isexists(Dirwork,ParaPath), //17.10.14from + Parafolder(); + ); + Mkflipanime(Dirwork,ParaPath); +); +Mkflipanime(folder):=Mkflipanime(Dirwork,folder); +Mkflipanime(path,folder):=( +//help:Mkfilpanime(); +//help:Mkflipanime(path,folder); + regional(Fheadbkup,tex,article,parent,eqL,mag,title, + tmp,tmp1,tmp2,tmp3,texfiles,flg); + tmp=Divoptions(ParaOpAnim); //17.11.25from + eqL=tmp_5; + mag="1600"; + title=folder; + forall(eqL, + tmp=Indexof(#,"="); + tmp1=Toupper(substring(#,0,1)); + tmp2=substring(#,tmp,length(#)); + if(tmp1=="M", + mag=tmp2; + ); + if(tmp1=="T", + title=tmp2; + ); + ); //17.11.25upto + Fheadbkup=Fhead; + Fhead="flipanime"+folder; + tmp1=replace(PathT,pathsep(),"/"); + tmp=indexall(tmp1,"/");//17.10.14from + if(length(tmp)>0, + tex=substring(tmp1,tmp_(length(tmp)),length(tmp1)); + , + tex=tmp1; + );//17.10.14upto + if((tex=="platex")%(tex=="uplatex"), + if(tex=="platex",article="jarticle",article="ujarticle"); + , + article="article"; + ); + SCEOUTPUT=openfile(Fhead+".tex"); + println(SCEOUTPUT,"\documentclass[landscape]{"+article+"}"); + if((tex=="platex")%(tex=="uplatex")%(tex=="latex"), + tmp="\special{papersize=\the\paperwidth,\the\paperheight}"; + println(SCEOUTPUT,tmp); + println(SCEOUTPUT,"\mag="+mag);//17.11.25 + ); + if((tex=="pdflatex")%(tex=="lualatex")%(tex=="xelatex"), + if((tex=="pdflatex")%(tex=="xelatex"), + println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}"); + , + println(SCEOUTPUT,"\usepackage{pict2e}"); + println(SCEOUTPUT,"\usepackage{luatexja}"); + ); + tmp=replace(Dirhead,"\","/"); //17.10.30from + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}"); + ); + , + tmp=replace(Dirhead,"\","/"); //17.10.30from + tmp=replace(tmp,"scripts","tex/latex"); + if(isexists(tmp,""), + println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}"); + , + tmp=replace(Dirhead+"/ketpicstyle","\","/"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}"); + println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}"); + ); + ); + println(SCEOUTPUT,"\usepackage{amsmath,amssymb}"); + println(SCEOUTPUT,"\usepackage{bm,enumerate}"); + if((tex=="platex")%(tex=="uplatex")%(tex=="latex"), + println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}"); + , + println(SCEOUTPUT,"\usepackage{graphicx}"); + ); + println(SCEOUTPUT,"\usepackage{xcolor}"); + forall(ADDPACK, tmp1, + if(tmp==0, + println(SCEOUTPUT,"\usepackage"+tmp1); + ); + ); + println(SCEOUTPUT,"\pagestyle{empty}"); + println(SCEOUTPUT,"\setmargin{0}{0}{0}{0}"); + println(SCEOUTPUT,""); + println(SCEOUTPUT,"\begin{document}"); + println(SCEOUTPUT,"\large"); + println(SCEOUTPUT,""); + tmp=fileslist(Dirwork+pathsep()+folder); + tmp=tokenize(tmp,","); + texfiles=select(tmp,indexof(#,".tex")>0); + forall(texfiles, + println(SCEOUTPUT,"\vspace*{25mm}"); + println(SCEOUTPUT,""); + tmp=floor(parse("290*1000/"+mag)); + print(SCEOUTPUT,"\Ctab{"+text(tmp)+"mm}{"); + print(SCEOUTPUT,"\fbox{\Large\bf "+title+"}"); + println(SCEOUTPUT,"}"); + tmp=parse("6*1000/"+mag); + println(SCEOUTPUT,"\vspace{"+text(tmp)+"mm}"); + println(SCEOUTPUT,""); + tmp=indexof(ULEN,"cm"); + if(tmp>0, + tmp1=substring(ULEN,0,tmp-1); + tmp1=parse(replace(tmp1," ",""))*10; + ); + tmp=indexof(ULEN,"mm"); + if(tmp>0, + tmp1=substring(ULEN,0,tmp-1); + tmp1=parse(replace(tmp1," ","")); + ); + tmp=parse("300*1000/"+mag); + tmp1=(tmp-(XMAX-XMIN)*tmp1)/2; + tmp1=tmp1+parse("("+mag+"-1000)/100*1.3"); + print(SCEOUTPUT,"\hspace*{"+text(tmp1)+"mm}"); + println(SCEOUTPUT,"\input{"+folder+"/"+#+"}"); + println(SCEOUTPUT,""); + println(SCEOUTPUT,"\newpage"); + ); + println(SCEOUTPUT,"\end{document}"); + closefile(SCEOUTPUT); + if(iswindows(), + parent=Dirwork+Batparent; + Makebat(Fhead,"tv"); + kc():=( + println("kc : "+kc(parent,Dirlib,Fnametex)) + ); + kc(); + , + parent=Dirwork+Shellparent; + Makeshell(Fhead,"tv"); + kc():=( + println("kc : "+kc(parent,Mackc+Dirlib,Fnametex)); + ); + kc(); + ); + Fhead=Fheadbkup; +); + //help:end(); diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibout.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibout.cs deleted file mode 100644 index ccfd7693..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibout.cs +++ /dev/null @@ -1,5338 +0,0 @@ -// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team -// -//This program is free software: you can redistribute it and/or modify -// it under the terms of the GNU General Public License as published by -// the Free Software Foundation; either version 3 of the License, or -// (at your option) any later version. -// -// This program is distributed in the hope that it will be useful, -// but WITHOUT ANY WARRANTY; without even the implied warranty of -// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -// GNU General Public License for more details. -// -// You should have received a copy of the GNU General Public License -// along with this program. If not, see <http://www.gnu.org/licenses/> -// - -println("ketcindyout(2017.09.10) loaded"); - -//help:start(); - -WritetoS(fname,cmdL):=( -// help:WritetoS("outdata",cmdL); - regional(tmp,tmp1,tmp2,filename); - if(indexof(fname,".")==0, - filename=fname+".sce"; - , - filename=fname; - ); - SCEOUTPUT = openfile(filename); - tmp="cd('"+Dirwork+"');//"; - println(SCEOUTPUT,tmp); -// tmp1=replace(Dirlib,"\","/"); - tmp="Ketlib=lib("+Dq+Libname+Dq+");//"; - println(SCEOUTPUT,tmp); - tmp="Ketinit();//"; - println(SCEOUTPUT,tmp); - tmp="Setwindow([XMIN,XMAX],[YMIN,YMAX]);"; // 16.06.26from - tmp=Assign(tmp,["XMIN",XMIN,"XMAX",XMAX,"YMIN",YMIN,"YMAX",YMAX]); - println(SCEOUTPUT,tmp); // 16.06.26upto - if(iswindows(), // 17.01.11from - println(SCEOUTPUT,"setlanguage('en')"); - ); // 17.01.11upto - tmp="pi=%pi;////"; - println(SCEOUTPUT,tmp); - forall(cmdL, - println(SCEOUTPUT,#+"//"); - ); - closefile(SCEOUTPUT); -); - -kcS(path,fname):=kcS(path,fname,[]); -kcS(path,fname,optionorg):=( -//help:kcS(PathS,"boxdata"); -//help:kcS(options=["r/m"]); - regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg); - if(indexof(fname,".")==0, - filename=fname+".sce"; - , - filename=fname; - ); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - strL=tmp_7; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,0,tmp-1); - tmp2=substring(#,tmp,length(#)); - ); - flg=0; - forall(strL, - if(Toupper(substring(#,0,1))=="R", - flg=0; - options=remove(options,[#]); - ); - if(Toupper(substring(#,0,1))=="M", - flg=1; - ); - ); - if(flg==0, - tmp2=replace(filename,".sce",".txt"); - tmp1=load(tmp2); - if(length(tmp1)==0, - flg=1; - ); - ); - if(flg==1, - tmp1=""; // 15.10.08 from - if(iswindows(), - tmp2=Batparent; - , - tmp2=Shellparent; - ); - flg=0; - forall(reverse(1..length(tmp2)), - if(flg==0, - tmp=substring(tmp2,#-1,#); - if(tmp=="/" % tmp=="\", // 14.01.15 - tmp1=substring(tmp2,0,#-1); - tmp2=substring(tmp2,#,length(tmp2)); - flg=1; - ); - ); - ); - if(length(tmp1)>0, - setdirectory(tmp1); - ); // 15.10.08 to - if(iswindows(), - SCEOUTPUT = openfile("kc.bat"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - tmp=Dq+path+Dq+" -nb -nwni -f "+filename; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit"); - closefile(SCEOUTPUT); - println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29, 0605 - , - SCEOUTPUT = openfile("kc.sh"); - println(SCEOUTPUT,"#!/bin/sh"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - tmp=Dq+path+Dq+" -nwni -f "+filename; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29 - ); - wait(WaitUnit); - setdirectory(Dirwork); - ); -); - -SetpathS():=( - regional(tmp,tmp1); - if(!isstring(PathS), // 15.12.11 - Setdirectory(Dirbin); // 15.12.07 - tmp=load(Shellfile); - if(iswindows(), - tmp=tokenize(tmp," -nb"); - PathS=tmp_1; - , - tmp=tokenize(tmp," -nwni"); - tmp=tokenize(tmp_1,"/Applications/sci"); - PathS="/Applications/sci"+tmp_2; - ); - setdirectory(Dirwork); - ); - PathS; -); - -ErrhandleS(fname):=( // 2016.02.28 - regional(str); //17.04.14 - if(indexof(PathS,"-6.")==0, - str=["if iserror(-1) then"," error=lasterror()+'????';"]; - str=append(str," errclear(-1);"); // 16.03.14 - str=append(str," Fd=mopen("+Dq+wfile+Dq+",'wt');"); - str=append(str," mfprintf(Fd,'%s','Error: '+error);"); - str=append(str," mclose(Fd);"); - str=append(str," quit();"); - str=append(str,"end;"); - str; - , - str=[]; //17.04.14 - ); -); - -Testfunstr(funstr,varx,vary):=( - regional(var,val,fun,tmp,tmp1,tmp2); - fun=replace(funstr,".x","(1)"); // 16.05.19 - fun=replace(fun,".y","(2)"); // 16.05.19 - tmp=indexof(varx,"="); - var=substring(varx,0,tmp-1); - val=substring(varx,tmp+1,length(varx)); - tmp=indexof(val,","); - val=substring(val,0,tmp-1); - tmp1=replace(fun,var,"("+val+")"); - tmp=indexof(vary,"="); - var=substring(vary,0,tmp-1); - val=substring(vary,tmp+1,length(vary)); - tmp=indexof(val,","); - val=substring(val,0,tmp-1); - tmp1=replace(tmp1,var,"("+val+")"); - tmp1; -); - -CalcbyS(name,cmd):=CalcbyS(name,SetpathS(),cmd,[]); -CalcbyS(name,Arg1,Arg2):=( - if(isstring(Arg1), - CalcbyS(name,Arg1,Arg2,[]); - , - CalcbyS(name,SetpathS(),Arg1,Arg2); - ); -); -CalcbyS(name,path,cmd,optionorg):=( -//help:CalcbyS("a",cmd); -//help:CalcbyS(options= ["m/r","Wait=10","Cat=middle"]]); -//help:CalcbyS(options1= ["Ncol=2","File=result","Dig=5"]]); - regional(options,tmp,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL, - ncoL,cat,dig,flg,wflg,file,nc,arg,cmdS,cmdlist,wfile,ext, - waiting, errcheck); - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - realL=tmp_6; - strL=tmp_7; - cat="M";//16.11.24 - ncoL=2; - ext=".txt"; - waiting=10; - dig=5; - wfile=""; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,2)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="CA", - cat=Toupper(substring(tmp2,0,1));// 16.11.24 - options=remove(options,[#]); - ); - if(tmp1=="NC", - ncoL=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="EX", - if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2); - options=remove(options,[#]); - ); - if(tmp1=="WA", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="DI", - dig=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="FI", // 16.06.26from - wfile=tmp2; - options=remove(options,[#]); - ); // 16.06.26upto - ); - if(wfile=="", - if(cat=="Y", - wfile=Fhead+name; - , - wfile="resultS"; - ); - ); - if(indexof(wfile,".")==0,// 16.06.26from - wfile=wfile+ext; - ); // 16.06.26upto - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - if(CONTINUED==0, - if((wflg==0) & (cat=="Y"), // 16.11.24 - tmp=load(wfile); - if(length(tmp)==0,wflg=1); - ); - ); - file=Fhead+name; - cmdS=cmd; - cmdlist=[]; - forall(1..floor(length(cmdS)/2),nc, //17.05.18 - tmp1=cmdS_(2*nc-1); - tmp1=replace(tmp1,LFmark,""); // 16.06.12 - tmp1=replace(tmp1,CRmark,""); // 16.12.13 - if(nc==length(cmdR)/2, //16.10.23from - if(indexof(tmp1,"=")==0,tmp1="="+tmp1); - ); //16.10.23from - if(substring(tmp1,0,1)=="=", -// tmp1=name+tmp1; // 16.12.20 - ); - tmp2=cmdS_(2*nc); // list of argments - tmp3=""; - tmp4=""; - errcheck=0; - forall(tmp2,arg, - if(isstring(arg), - if(Toupper(arg)=="ERROR", - errcheck=1; - , - tmp3=tmp3+replace(arg,"'",Dq)+","; - ); - , - if(!islist(arg), - tmp3=tmp3+textformat(arg,dig)+","; - , - tmp=select(arg,isstring(#) % islist(#)); - if(length(tmp)>0, - tmp3=tmp3+"list("; - tmp4=")"; - , - tmp3=tmp3+"["; - tmp4="]"; - ); - forall(arg, - if(isstring(#), - tmp3=tmp3+replace(#,"'",Dq)+","; - , - if(!islist(#), // 15.11.01 from - tmp3=tmp3+textformat(#,dig)+","; - , - tmp=textformat(#,dig); - tmp=replace(tmp,"],[","];["); - tmp3=tmp3+tmp+","; - ); // 15.11.01 upto - ); - ); - tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+","; - ); - ); - ); - if(length(tmp3)>0, - tmp3=substring(tmp3,0,length(tmp3)-1); - tmp1=tmp1+"("+tmp3+");"; - ); - if(errcheck==1, - if(indexof(Dirlib,"sciL5")>0, // 17.03.20 - cmdlist=append(cmdlist,"errcatch(-1,'continue','nomessage');"); - ); // 17.03.20 - ); - cmdlist=append(cmdlist,tmp1); - if(errcheck==1, - tmp=ErrhandleS(wfile); - cmdlist=concat(cmdlist,tmp); - ); - ); - if(CONTINUED==1, - ComOutList=concat(ComOutList,cmdlist); - , - if(cat=="Y", - tmp=[]; - tmp=append(tmp,"Fd=mopen("+Dq+file+".txt"+Dq+",'wt');"); - // 16.03.11 from - tmp=append(tmp,"mfprintf(Fd,'%s',"+name+");"); - tmp=append(tmp,"mclose(Fd);"); - cmdlist=concat(cmdlist,tmp); -// tmp="fprintfMat("+Dq+file+".txt"+Dq+","+name+")"; -// cmdlist=append(cmdlist,tmp); // 16.03.11 upto - , -// tmp="mputl(['????'],"+Dq+file+".txt"+Dq+");"; // 16.06.2 from -// cmdlist=concat(cmdlist,[tmp]); // 16.06.2 upto - ); - if(cat!="Y", // 16.12.18 - cmdlist=append(cmdlist,"mputl('||||','"+wfile+"')"); - ); - cmdlist=append(cmdlist,"quit()"); - if(wflg==0, - tmp1=load(file+".sce"); - if(length(tmp1)==0, - wflg=1; - , - tmp1=tokenize(tmp1,"////"); - tmp1=tokenize(tmp1_2,"//"); - tmp1=tmp1_(1..(length(tmp1)-1)); - if(length(tmp1)!=length(cmdlist), - wflg=1; - , - tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#); - if(length(tmp)>0, wflg=1); - ); - ); - ); - if(wflg==0,wflg=-1); // 15.10.16 - if(wflg==1, - if(length(wfile)>0, // 15.10.05 - SCEOUTPUT=openfile(wfile); - println(SCEOUTPUT,""); - closefile(SCEOUTPUT); - ); - WritetoS(file+".sce",cmdlist); - kcS(path,file,concat(options,["m"])); // 15.09.25 - ); - flg=0; - tmp1=floor(waiting*1000/WaitUnit); - repeat(tmp1, - if(flg==0, - tmp=load(wfile); - if(length(tmp)>=4, - tmp2=substring(tmp,length(tmp)-4,length(tmp)); - if(tmp2=="////" % tmp2=="||||" % tmp2=="????", // 16.08.09 - if(indexof(Toupper(tmp),"ERROR")>0, - println(tmp); - flg=2; - , - flg=1; - ); - ); - tmp2=#*WaitUnit/1000; - , - if(wflg==-1, - flg=-1; - , - wait(WaitUnit); - ); - ); - ); - ); - if(flg<=0, - ErrFlag=1; - if(flg==-1, - println(wfile+" does not exist"); - , - tmp="("+text(waiting)+" s )"; - println(wfile+" not generated "+tmp); - ); - , - if(flg==1, - println(" CalcbyS succeeded "+name+"("+text(tmp2)+" sec)"); //16.06.03 - , - ErrFlag=1; - ); - ); - ); - if(wflg>-1, -// wait(WaitUnit); - ); -); - -Scifun(name,fun,argL):=Scifun(name,fun,argL,[]);//16.10.22 -Scifun(name,fun,argL,optionorg):=( -//help:Scifun("1","date()",[]); -//help:Scifun(options=["Disp=y"]); - regional(nm,options,eqL,disp,cmdL,fname, - tmp,tmp1,tmp2); - nm="sc"+name; - fname=Fhead+nm+".txt"; - options=optionorg; - tmp=divoptions(options); - precise=6; - disp=1; - pack=[]; - set=[]; - add=""; - eqL=tmp_5; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,3)); - tmp2=substring(#,tmp,length(#)); - if((tmp1=="DIS") % (tmp1=="DSP") , - tmp=Toupper(substring(tmp2,0,1)); - if((tmp=="F") % (tmp=="N"), - disp=0; - ); - options=remove(options,[#]); - ); - ); - cmdL=[]; - cmdL=concat(cmdL,[ - nm+"="+fun,argL, - "Fd=mopen",[Dq+fname+Dq,Dq+"wt"+Dq], - "Sla=char(47)+char(47);",[], - "mputl",["string("+nm+")+Sla","Fd"], - "mputl",["Sla","Fd"], - "mclose",["Fd"] - ]); - options=append(options,"Wait=2"); - CalcbyS(nm,cmdL,options); - if(ErrFlag==0, - tmp=load(fname); - tmp=replace(tmp,"////",""); - tmp=tokenize(tmp,"//"); - tmp=apply(tmp,if(!isstring(#),textformat(#,6),Dq+#+Dq)); - if(length(tmp)==1, - tmp=tmp_1; - ); - tmp=nm+"="+text(tmp); - parse(tmp); - if(disp==1, // 15.11.24 - println(nm+" is : "); - println(parse(nm)); - ); - ); - parse(nm); -); - -WritetoR(fname,cmdL):=WritetoR(fname,cmdL,[]); -WritetoR(fname,cmdL,options):=( -// help:WritetoR("outdata",cmdL); - regional(eqL,tmp,tmp1,tmp2,filename,waiting); - if(indexof(fname,".")==0, - filename=fname+".r"; - , - filename=fname; - ); - tmp=divoptions(options); - eqL=tmp_5; - waiting=5; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,0,tmp-1); - tmp2=substring(#,tmp,length(#)); - if(Toupper(substring(tmp1,0,1))=="W", - waiting=parse(tmp2); - ); - ); - SCEOUTPUT = openfile(filename); - tmp1=replace(Dirwork,"\","/"); - tmp="setwd("+Dq+tmp1+Dq+")##"; - println(SCEOUTPUT,tmp); - tmp1=replace(Dirlib,"\","/"); - tmp="load("+Dq+tmp1; - tmp=tmp+"/ketpic_ltd.Rdata"+Dq+")##"; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"Ketinit()##"); // 16.07.07 - tmp="Setwindow(c(XMIN,XMAX),c(YMIN,YMAX))####"; // 16.06.26from - tmp=Assign(tmp,["XMIN",XMIN,"XMAX",XMAX,"YMIN",YMIN,"YMAX",YMAX]); - println(SCEOUTPUT,tmp); - forall(cmdL, - println(SCEOUTPUT,#+"##"); - ); - closefile(SCEOUTPUT); -// flg=0; -// tmp1=floor(waiting*1000/WaitUnit); -// repeat(tmp1, -// if(flg==0, -// tmp=load(filename); -// if(length(tmp)>0, -// flg=1; -// , -// wait(WaitUnit); -// ); -// ); -// ); -); - -kcR(path,fname):=kcR(path,fname,[]); -kcR(path,fname,optionorg):=( -//help:kcR(PathR,"boxdata"); -//help:kcR(options=["m/r","Wait=10"]); - regional(options,tmp,tmp1,tmp2,eqL,strL,filename,ferr,flg); - if(indexof(fname,".")==0, - filename=fname+".r"; - , - filename=fname; - ); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - strL=tmp_7; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,0,tmp-1); - tmp2=substring(#,tmp,length(#)); - ); - flg=0; - forall(strL, - if(Toupper(substring(#,0,1))=="R", - flg=0; - options=remove(options,[#]); - ); - if(Toupper(substring(#,0,1))=="M", - flg=1; - options=remove(options,[#]); - ); - ); - if(flg==0, - tmp2=replace(filename,".r",".txt"); - tmp1=load(tmp2); - if(length(tmp1)==0, - flg=1; - ); - ); - if(flg==1, - tmp1=""; // 15.10.08 from - if(iswindows(), - tmp2=Batparent; - , - tmp2=Shellparent; - ); - flg=0; - forall(reverse(1..length(tmp2)), - if(flg==0, - tmp=substring(tmp2,#-1,#); - if(tmp=="/" % tmp=="\", // 14.01.15 - tmp1=substring(tmp2,0,#-1); - tmp2=substring(tmp2,#,length(tmp2)); - flg=1; - ); - ); - ); - if(length(tmp1)>0, - setdirectory(tmp1); - ); // 15.10.08 to - ferr="errormessageR.txt";//16.10.22from - SCEOUTPUT=openfile(ferr); - closefile(SCEOUTPUT);//16.10.22uptp - if(iswindows(), - SCEOUTPUT = openfile("kc.bat"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - tmp=Dq+path+"\R"+Dq+" --vanilla --slave < "+filename+" 2> "+ferr; - //16.10.22 - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit"); - closefile(SCEOUTPUT); - println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05 - , - SCEOUTPUT = openfile("kc.sh"); - println(SCEOUTPUT,"#!/bin/sh"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - if(PathR=="",tmp="R",tmp=PathR);//16.10.20 - tmp=tmp+" --vanilla --slave < "+filename+" >& "+ferr;//16.10.22 - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05 - ); - wait(WaitUnit); - setdirectory(Dirwork); - ); -); - -Dataframe(nmL,dL):=Dataframe(nmL,dL,[]); -Dataframe(nmL,dL,options):=( -//help:Dataframe(["name","no1","no2"],dtL); -//help:Dataframe(options=["Dig=5"]); - regional(dig,tmp,tmp1,tmp2,out); - dig=5; - tmp=Divoptions(options); - tmp=tmp_5; - forall(tmp, - tmp1=Toupper(substring(#,0,1)); - tmp2=indexof(#,"="); - tmp2=substring(#,tmp2,length(#)); - if(tmp1=="D", - dig=parse(tmp2); - ); - ); - out="data.frame("; - forall(1..(length(nmL)), - tmp1=nmL_#; - tmp2=column(dL,#); - tmp2=apply(tmp2,if(isstring(#),Dq+#+Dq,format(#,dig))); - tmp=tmp1+"="+tmp2+","; - out=out+tmp; - ); - out=substring(out,0,length(out)-1)+")"; - out=replace(out,"[","c("); - out=replace(out,"]",")"); -); - -CalcbyR(name,cmd):=CalcbyR(name,PathR,cmd,[]); -CalcbyR(name,Arg1,Arg2):=( - if(isstring(Arg1), - CalcbyR(name,Arg1,Arg2,[]); - , - CalcbyR(name,PathR,Arg1,Arg2); - ); -); -CalcbyR(name,path,cmd,optionorg):=( -//help:CalcbyR("Pr",cmd); -//help:CalcbyR(options=["m/r","Wait=2","Cat=yes","File=result" ]); - regional(options,tmp,tmp1,tmp2,tmp3,realL,strL,eqL, - cat,dig,flg,wflg,file,nc,arg,cmdR,cmdlist,wfile,ext,waiting); - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - realL=tmp_6; - strL=tmp_7; - dig=5; - cat="Y"; - wfile=""; - ext=".txt"; - waiting=2; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="C", - cat=Toupper(substring(tmp2,0,1)); - options=remove(options,[#]); - ); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="E", - if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2); - options=remove(options,[#]); - ); - if(tmp1=="D", - dig=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="F", - wfile=tmp2; - options=remove(options,[#]); - ); - ); - if(wfile=="", - if(cat=="Y", - wfile=Fhead+name+ext; - , - wfile="resultR"+ext; - ); - ); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - if(CONTINUED==0, - if((wflg==0) & (cat!="N"), // 16.11.13 - tmp=load(wfile); - if(length(tmp)==0,wflg=1); - ); - ); - file=Fhead+name; -// cmdR=flatten(cmd); - cmdR=cmd; - cmdlist=[]; - if(dig>5, //16.10.28from - cmdlist=append(cmdlist,"options(digits="+text(dig+2)+");"); - ); //16.10.28upto - forall(1..floor(length(cmdR)/2),nc, //17.05.18 - tmp1=cmdR_(2*nc-1); - tmp1=replace(tmp1,LFmark,""); // 16.06.12 - if(nc==length(cmdR)/2, //16.10.23from -// if(indexof(tmp1,"=")==0,tmp1="="+tmp1);//16.12.20 - ); //16.10.23uptp - if(substring(tmp1,0,1)=="=", - tmp1=name+tmp1; - ); - tmp2=cmdR_(2*nc); // list of argments - tmp3=""; - forall(tmp2,arg, - if(isstring(arg), - tmp3=tmp3+replace(arg,"'",Dq)+","; - , - if(length(arg)==1, - tmp3=tmp3+textformat(arg,dig)+","; - , - tmp3=tmp3+"c("; - forall(arg, - tmp3=tmp3+textformat(#,dig)+","; - ); - tmp3=substring(tmp3,0,length(tmp3)-1)+")"+","; - ); - ); - ); - if(length(tmp3)>0, - tmp3=substring(tmp3,0,length(tmp3)-1); - tmp1=tmp1+"("+tmp3+")"; - ); - cmdlist=append(cmdlist,tmp1); - ); - if(CONTINUED==1, - ComOutList=concat(ComOutList,cmdlist); - , - if(cat=="Y", //16.10.23from - tmp="sharp=rawToChar(as.raw(35))"; - cmdlist=append(cmdlist,tmp); - tmp="sharps=paste(sharp,sharp,'\n',sep='')"; - cmdlist=append(cmdlist,tmp); - cmdlist=append(cmdlist,"if(is.matrix("+name+")){"); - cmdlist=append(cmdlist," "+name+"=as.data.frame("+name+")"); - cmdlist=append(cmdlist,"}"); - cmdlist=append(cmdlist,"if(is.list("+name+")){"); - tmp=" cat(names("+name+"),file='"+wfile+"',sep=',')"; - cmdlist=append(cmdlist,tmp); - tmp=" cat(sharps,file='"+wfile+"',append=TRUE)"; - cmdlist=append(cmdlist,tmp); - cmdlist=append(cmdlist," for(ii in 1:length("+name+")){"); - tmp=" cat("+name+"[[ii]],file='"+wfile+"',"; - tmp=tmp+"sep=',',append=TRUE)"; - cmdlist=append(cmdlist,tmp); - tmp=" cat(sharps,file='"+wfile+"',append=TRUE)"; - cmdlist=append(cmdlist,tmp); - cmdlist=append(cmdlist," }"); - cmdlist=append(cmdlist,"}else{"); - tmp=" cat("+name+",file='"+wfile+"',sep=',')"; - cmdlist=append(cmdlist,tmp); - tmp=" cat(sharps,file='"+wfile+"',append=TRUE)"; - cmdlist=append(cmdlist,tmp); - cmdlist=append(cmdlist,"}"); - tmp="cat('////',file='"+wfile+"',sep=',',append=TRUE)"; - cmdlist=append(cmdlist,tmp); - ); //16.10.23upto - if(cat!="Y", // 16.12.18 - cmdlist=append(cmdlist,"cat('////',file='"+wfile+"',sep='')"); - ); - cmdlist=append(cmdlist,"quit()"); - if(wflg==0, - tmp1=load(file+".r"); - if(length(tmp1)==0, - wflg=1; - , - tmp1=tokenize(tmp1,"####"); // 15.09.25 from - tmp1=tokenize(tmp1_2,"##"); - tmp1=tmp1_(1..(length(tmp1)-1)); - if(length(tmp1)!=length(cmdlist), - wflg=1; - , - tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#); - if(length(tmp)>0, wflg=1); - ); - ); // 15.09.25 to - ); - if(wflg==0,wflg=-1); // 15.10.16 - if(wflg==1, - if(length(wfile)>0, // 15.10.05 - SCEOUTPUT=openfile(wfile); - println(SCEOUTPUT,""); - closefile(SCEOUTPUT); - ); - WritetoR(file+".r",cmdlist); - kcR(PathR,file,concat(options,["m"])); // 15.09.25 - ); - flg=0; - tmp1=floor(waiting*1000/WaitUnit); - repeat(tmp1, - if(flg==0, - tmp=load(wfile); - if(length(tmp)>=4, - tmp2=substring(tmp,length(tmp)-4,length(tmp)); - if(tmp2=="////", - tmp=substring(tmp,0,length(tmp)-4); - flg=1; - tmp2=#*WaitUnit/1000; - ); - , - if(wflg==-1, - flg=-1; - , - wait(WaitUnit); - ); - ); - ); - ); - if(flg<=0, - ErrFlag=1; - if(flg==-1, - println(wfile+" does not exist"); - , - tmp="("+text(waiting)+" s )"; - println(wfile+" not generated "+tmp); - tmp=load("errormessageR.txt");//16.10.22 - if(length(tmp)>1,println(tmp));//16.10.22 - ); - , - println(" CalcbyR succeeded "+name+" ("+text(tmp2)+" sec)"); - if(cat=="Y", // 16.10.29,11.25 - tmp1=tokenize(tmp,"##"); //16.10.23from - tmp1=tmp1_(1..(length(tmp1)-1)); - tmp2=[]; - forall(tmp1,tmp3, - if(!isstring(tmp3),tmp3=format(tmp3,dig)); - tmp=tokenize(tmp3,","); - tmp=apply(tmp,if(isstring(#),Dq+#+Dq,format(#,dig))); - tmp2=append(tmp2,tmp); - ); - if(length(tmp2)==1, - tmp2=tmp2_1; - if(length(tmp2)==1,tmp2=tmp2_1);//16.10.24 - , - tmp2=[tmp2_1,tmp2_(2..(length(tmp2)))]; - ); - tmp=name+"="+text(tmp2); //16.10.23upto - parse(tmp); - ); - ); - ); -); - -Rfun(name,fun,argL):=Rfun(name,fun,argL,[]);//16.10.22 -Rfun(name,fun,argL,optionorg):=( -//help:Rfun("1","rnorm",[10]); -//help:Rfun(options=["Disp=y"]); - regional(nm,options,eqL,disp,cmdL, - tmp,tmp1,tmp2); - nm="R"+name; - options=optionorg; - tmp=divoptions(options); - precise=6; - disp=1; - pack=[]; - set=[]; - add=""; - eqL=tmp_5; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,3)); - tmp2=substring(#,tmp,length(#)); - if((tmp1=="DIS") % (tmp1=="DSP") , - tmp=Toupper(substring(tmp2,0,1)); - if((tmp=="F") % (tmp=="N"), - disp=0; - ); - options=remove(options,[#]); - ); - ); - cmdL=[]; - cmdL=concat(cmdL,[ - nm+"="+fun,argL - ]); - options=concat(options,["Wait=2"]); - CalcbyR(nm,cmdL,options); - if(ErrFlag==0, - if(disp==1, // 15.11.24 - println(nm+" is : "); - println(parse(nm)); - ); - ); - parse(nm); -); - -Readcsv(file):=Readcsv(Dirwork,file,[]); -Readcsv(Arg1,Arg2):=( - if(isstring(Arg2), - Readcsv(Arg1,Arg2,[]); - , - Readcsv(Dirwork,Arg1,Arg2); - ); -); -Readcsv(pathorg,file,optionorg):=( -//help:Readcsv("ex.csv"); -//help:Readcsv(directory,"ex.csv"); -//help:Readcsv(options=["Head=yes","Sep=-999","Flat=no","Use=R"]); - regional(path,fname,fout,options,eqL,header,cmdL,sep, - dt,nrow,tmp,tmp1,tmp2,csv,use,flat); - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - header=1; - sep="-999"; - csv="Y"; // 16.12.12 - use="R"; - flat="N"; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,0,tmp-1); - tmp2=substring(#,tmp,length(#)); - tmp=Toupper(substring(tmp1,0,2)); - if(tmp=="HE", - tmp=Toupper(substring(tmp2,0,1)); - if(tmp=="F" % tmp=="N", - header=0; - options=remove(options,[#]); - ); - ); -// if(tmp=="WA", // removed:17.02.19 -// waiting=parse(tmp2); -// options=remove(options,[#]); -// ); - if(tmp=="SE", - sep=tmp2; - options=remove(options,[#]); - ); - if(tmp=="CS", - csv=Toupper(substring(tmp2,0,1)); - options=remove(options,[#]); - ); - if(tmp=="US", - use=Toupper(substring(tmp2,0,1)); - options=remove(options,[#]); - ); - if(tmp=="FL", - flat=Toupper(substring(tmp2,0,1)); - options=remove(options,[#]); - ); - ); - if(flat=="Y",csv="N"); - sep=","+sep; - tmp=indexof(file,"."); - if(tmp==0, - fname=file+".csv"; - fout=file+"sep.csv"; - , - fname=file; - tmp1=substring(file,0,tmp-1); - tmp2=substring(file,tmp-1,length(file)); - fout=tmp1+"sep"+tmp2; - ); - path=pathorg; - if(!isexists(path,fname), - println(path+" "+fname+" not found"); - , - path=replace(path,"\","/"); - if(use=="S", - cmdL=[ // 16.12.20from - "cd('"+path+"')",[], - "Dt=mgetl('"+fname+"');",[], - "cd('"+Dirwork+"')",[], - "Dt2=[]",[], - "for I=1:size(Dt,1), - Tmp=Dt(I,:)+'"+sep+"'; - Dt2=[Dt2;Tmp]; - end",[], - "mputl(Dt2,'"+fout+"')",[] - ]; - CalcbyS("sep",cmdL,options); - , - cmdL=[ - "setwd",[Dq+path+Dq], - "tmp1=readLines",[Dq+fname+Dq,"warn=FALSE"], - "fun=function(s) paste(s,"+Dq+sep+Dq+",sep="+Dq+Dq+")",[], - "tmp2=sapply(tmp1,fun)",[], - "writeLines",["tmp2",Dq+fout+Dq] - ]; - CalcbyR("sep",cmdL,concat(options,["Cat=n"])); - ); // 16.12.20upto - if(ErrFlag==1, - println("Readcsv not completed"); - , - dt=load(fout); - dt=tokenize(dt,sep); - dt=dt_(1..(length(dt)-1));//16.12.20 - if(isstring(dt_1),// 17.02.10from - if(indexof(dt_1,",")==0,csv="N"); - , - csv="N"; - );// 17.02.10upto - if(csv=="Y", - dt=apply(dt,tokenize(#,",")); - , - dt=apply(dt,[#]); - ); - forall(1..(length(dt)),nrow, - tmp1=dt_nrow; - tmp2=[]; - forall(tmp1, - if(!isstring(#), - tmp=#; - , - if(substring(#,0,1)==Dq, - tmp=parse(#); - , - tmp=#; - ); - ); - tmp2=append(tmp2,tmp); - ); - dt_nrow=tmp2; - ); - if(header==0,dt=dt_(2..(length(dt)))); - if(length(dt)==1, - dt=dt_1 - , - if(length(dt_1)==1, - dt=apply(dt,#_1); - ); - ); - dt; - ); - ); -); - -Writecsv(nmL,data,file):=Writecsv(nmL,data,file,[]); -Writecsv(nmL,dataorg,file,optionorg):=( -//help:Writecsv([],data,"ex.csv"); -//help:Writecsv(["a","b"],data,"ex.csv"); -//help:Writecsv(optins=["Col=1"]); - regional(nameL,data,eqL,strL,ncol,nrow,fname,dig,tmp,tmp1,tmp2); - ncol=0; // 17.02.09from - dig=5; - if(isstring(dataorg),data=parse(dataorg),data=dataorg); - if(islist(data_1), - ncol=length(data_1); - data=flatten(data); - ); // 17.02.09upto - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,0,tmp-1); - tmp2=substring(#,tmp,length(#)); - if(Toupper(substring(tmp1,0,1))=="C", - ncol=parse(tmp2); - options=remove(options,[#]); - ); - ); - if(indexof(file,".")==0,fname=file+".csv",fname=file); - if(ncol==0,ncol=max(1,length(nmL))); - tmp1=mod(length(data),ncol); - if(tmp1>0, - tmp=apply(1..(ncol-tmp1),-1); - data=concat(data,tmp); - ); - nrow=length(data)/ncol; - if(length(nmL)<ncol, - nameL=apply(1..ncol,"c"+text(#)); -// tmp=nameL_length(nameL)+"##";//17.02.09 - tmp=nameL_(length(nameL));//17.02.09 - nameL_(length(nameL))=tmp; - , - nameL=nmL; - ); - SCEOUTPUT=openfile(fname); - tmp=text(nameL); - println(SCEOUTPUT,substring(tmp,1,length(tmp)-1)); - forall(1..nrow, - tmp1=data_(((#-1)*ncol+1)..(#*ncol)); - tmp2=""; - forall(tmp1, - tmp2=tmp2+textformat(#,5)+","; - ); - tmp2=substring(tmp2,0,length(tmp2)-1); - println(SCEOUTPUT,tmp2); - ); - closefile(SCEOUTPUT); -); - -PlotdataR(name1,func,var):=PlotdataR(name1,PathR,func,var); -PlotdataR(name1,Arg1,Arg2,Arg3):=( - if(islist(Arg3), - PlotdataR(name1,PathR,Arg1,Arg2,Arg3); - , - PlotdataR(name1,Arg1,Arg2,Arg3,[]); - ); -); -PlotdataR(name1,path,func,variable,optionorg):=( -//help:PlotdataR("1","dnorm(x)","x"); -//help:PlotdataR(options=["m/r","Num=50","Wait=10"]); - regional(options,tmp,tmp1,tmp2,tmp3,name,varstr,flg,Num, - Ltype,Noflg,eqL,strL,flg,outreg,filename,wfile,cmdL,waiting); - name="grR"+name1; - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - strL=tmp_7; - Num=50; - waiting=5; - outreg=0; - flg=0; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,tmp,length(#)); - if(Toupper(substring(#,0,1))=="N", - Num=parse(tmp1); - options=remove(options,[#]); - ); - if(Toupper(substring(#,0,1))=="W", - waiting=parse(tmp1); - options=remove(options,[#]); - ); - if(Toupper(substring(#,0,1))=="O", - tmp=Toupper(substring(tmp1,0,1)); - if(tmp=="T" % tmp=="Y", outreg=1); - options=remove(options,[#]); - ); - ); - tmp=indexof(variable,"="); - if(tmp>0, - varstr=variable; - , - varstr=variable+"="+textformat([XMIN,XMAX],5); - ); - varstr=replace(varstr,"[","c("); - varstr=replace(varstr,"]",")"); - filename=Fhead+name+".r"; - wfile=Fhead+name+".txt"; - cmdL=MkprecommandR(); - cmdL=concat(cmdL,[ - name+"=Plotdata",[Dq+func+Dq,Dq+varstr+Dq,Dq+"Num="+text(Num)+Dq], - "WriteOutData",[Dq+wfile+Dq,Dq+name+Dq,name] - ]); - if(ErrFlag==0, - CalcbyR(name,cmdL,concat(options,["Cat=middle","Wait="+text(waiting)])); - ); - if(ErrFlag==1, - println("PlotdataR not completed"); - , - if(outreg==1, - OutFileList=remove(OutFileList,[wfile]); - OutFileList=append(OutFileList,wfile); - ); - ReadOutData(wfile); - Extractdata(name,options); - tmp=parse(name); - tmp1=name+"="+textformat(tmp,5); - parse(tmp1); - tmp2=apply(tmp,Lcrd(#)); - tmp2; - ); -); - -PlotdiscR(nm,fun,varrng):=PlotdiscR(nm,fun,varrng,[]); -PlotdiscR(nm,fun,varrng,options):=( -//help:PlotdiscR("1","dbinom(k,10,0.4)","k=[0,10]"); - regional(name,pb,cmdL,var,range,tmp,tmp1,tmp2,wfile); - name="grd"+nm; - tmp=indexof(varrng,"="); - var=substring(varrng,0,tmp-1); - range=parse(substring(varrng,tmp,length(varrng))); - if(length(range)==2, - range=(range_1)..(range_2); - ); - cmdL=[ - "fnb=function("+var+") "+fun,[], - name+"=sapply",[range,"fnb"] - ]; - wfile=Fhead+name+".txt"; - if(ErrFlag==0, - CalcbyR(name,cmdL,options); - ); - if(ErrFlag==1, - println("PlotdiscR not completed"); - , - tmp1=load(wfile); - tmp1=substring(tmp1,0,length(tmp1)-4); - tmp1=replace(tmp1,"##",""); - pb=tokenize(tmp1,","); - tmp=apply(range,[#,pb_(#+1)]); - Listplot(name,tmp,options); - ); -); - -Boxplot(nm,dataorg,ypos,dy):=Boxplot(nm,dataorg,ypos,dy,[]); -Boxplot(nm,dataorg,ypos,dy,optionorg):=( -//help:Boxplot("1",dt,2,1/2,[""]); - regional(options,name,data,bp,cmdL,waiting,tmp,tmp1,tmp2,tmp3,tmp4, - out,eqL,strL,pstr,ext,file,flg,wrflg); - name="bp"+nm; - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - strL=tmp_7; - waiting=3; - wrflg=0; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,0,tmp-1); - tmp2=substring(#,tmp,length(#)); - if(Toupper(substring(tmp1,0,1))=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - ); - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="R", - wrflg=-1; - options=remove(options,[#]); - ); - if(tmp=="M", - wrflg=1; - options=remove(options,[#]); - ); - ); - data=dataorg; - if(isstring(data), - if(indexof(data,".")==0,data=data+".dat"); - if(iswindows(), // 15.11.10 - data=replace(data,"/","\"); - flg="\"; - , - data=replace(data,"\","/"); - flg="/"; - ); - forall(reverse(1..length(data)), - if(length(flg)>0, - tmp=substring(data,#-1,#); - if(tmp==flg, - tmp3=substring(data,0,#-1); - tmp4=substring(data,#,length(data)); - if(indexof(tmp3,":")==0, // 11.11.10 - tmp=substring(tmp3,0,1); - if(tmp!=flg, - tmp3=Dirwork+flg+tmp3; - ); - ); - flg=""; - ); - ); - ); - if(length(flg)>0, - tmp3=Dirwork; //15.11.10 - tmp4=data; - ); - setdirectory(tmp3); - tmp=load(tmp4); - if(length(tmp)==0, ErrFlag=2); // 15.11.07 upto - setdirectory(Dirwork); - , - file=Fhead+name+".dat"; - tmp=load(file); - if(length(tmp)>0, - tmp1=tokenize(tmp,","); - tmp1=tmp1_(1..(length(tmp1)-1)); - , - tmp1=[]; - ); - flg=0; - if(length(tmp1)==length(data), - tmp=tmp1-data; - tmp=select(tmp,#!=0); - if(length(tmp)>0,flg=1); - , - flg=1; - ); - if(flg==1, - SCEOUTPUT=openfile(file); - forall(data, - print(SCEOUTPUT,textformat(#,5)+","); - ); - println(SCEOUTPUT,"////"); - closefile(SCEOUTPUT); -// wait(WaitUnit); - ); - data=file; - ); - data=replace(data,"\","/"); - cmdL=[ - "tmp=readLines",[Dq+data+Dq, "warn=FALSE"], - "tmp=substring",["tmp",1,"nchar(tmp)-4"], - "data=strsplit",["tmp",Dq+","+Dq,"fix=TRUE"], - "data=data[[1]]",[], - "fun=function(s) eval(parse(text=s))",[], - "data=sapply",["data","fun"], - "data=data[!is.na(data)]",[], - "tmp=boxplot",["data","plot=FALSE"], - "tmp1=tmp$stat",[], - "tmp2=tmp$out",[], - name+"=c(tmp1,tmp2)",[] - ]; - file=Fhead+name+".txt"; - options=append(options,"Wait="+text(waiting)); - if(wrflg==1,options=append(options,"m")); - if(wrflg==-1,options=append(options,"r")); - if(ErrFlag==0, - CalcbyR(name,cmdL,options); - ); - if(ErrFlag>0, - if(ErrFlag==1,println("Boxplot not completed")); - if(ErrFlag==2,println(Dq+data+Dq+" not found")); - , -// tmp=load(file);//16.10.23from -// println([1449,tmp]); -// tmp=replace(tmp,"/",""); -// tmp=tokenize(tmp,","); -// tmp=name+"="+textformat(tmp,5); -// parse(tmp);//16.10.23upto - bp=parse(name); - pstr="["; - tmp1=[bp_1,ypos-dy/2]; - tmp2=[bp_1,ypos+dy/2]; - Listplot(name+text(1),[tmp1,tmp2],["Msg=no"]); - pstr=pstr+Dq+"sg"+name+text(1)+Dq+","; - tmp1=[bp_2,ypos-dy]; - tmp2=[bp_2,ypos+dy]; - tmp3=[bp_4,ypos+dy]; - tmp4=[bp_4,ypos-dy]; - Listplot(name+text(2),[tmp1,tmp2,tmp3,tmp4,tmp1],["Msg=no"]); - pstr=pstr+Dq+"sg"+name+text(2)+Dq+","; - tmp1=[bp_5,ypos-dy/2]; - tmp2=[bp_5,ypos+dy/2]; - Listplot(name+text(3),[tmp1,tmp2],["Msg=no"]); - pstr=pstr+Dq+"sg"+name+text(3)+Dq+","; - tmp1=[bp_3,ypos-dy]; - tmp2=[bp_3,ypos+dy]; - Listplot(name+text(4),[tmp1,tmp2],["dr,2","Msg=no"]); - pstr=pstr+Dq+"sg"+name+text(4)+Dq+","; - tmp1=[bp_1,ypos]; - tmp2=[bp_2,ypos]; - Listplot(name+text(5),[tmp1,tmp2],["da","Msg=no"]); - pstr=pstr+Dq+"sg"+name+text(5)+Dq+","; - tmp1=[bp_4,ypos]; - tmp2=[bp_5,ypos]; - Listplot(name+text(6),[tmp1,tmp2],["da","Msg=no"]); - pstr=pstr+Dq+"sg"+name+text(6)+Dq+","; - out=bp_(6..length(bp)); - if(length(out)>0, - out=apply(out,[#,ypos]); - Pointdata(name+text(1),out,[0,"Size=4"]); - ); - pstr=substring(pstr,0,length(pstr)-1)+"]"; - println("generate totally "+name); - tmp=name+"="+pstr; - [bp_(1..5),out]; - ); -); - -Histplot(nm,dataorg):=Histplot(nm,dataorg,[]); -Histplot(nm,dataorg,optionorg):=( -//help:Histplot("1",data(fillename)); -//help:Histplot(options=["Breaks=","Den=no","Rel=no"]); - regional(options,name,data,waiting,hp,cmdL,tmp,tmp1,tmp2,tmp3,tmp4, - out,eqL,strL,breaks,bdata,cdata,pstr,file,flg,rwflg,density,relative); - name="hp"+nm; - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - strL=tmp_7; - breaks = "breaks="+Dq+"Sturges"+Dq; - density=0; - relative=0; - waiting=3; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,tmp,length(#)); - if(Toupper(substring(#,0,1))=="B", - if(substring(tmp1,0,1)=="[", - tmp1="c("+substring(tmp1,1,length(tmp1)-1)+")"; - ); - breaks="breaks="+tmp1; - options=remove(options,[#]); - ); - if(Toupper(substring(#,0,1))=="D", - tmp2=Toupper(substring(tmp1,0,1)); - if(tmp2=="T" % tmp2=="Y", - density=1; - ); - options=remove(options,[#]); - ); - if(Toupper(substring(#,0,1))=="R", - tmp2=Toupper(substring(tmp1,0,1)); - if(tmp2=="T" % tmp2=="Y", - relative=1; - ); - options=remove(options,[#]); - ); - if(Toupper(substring(#,0,1))=="W", - waiting=parse(tmp1); - options=remove(options,[#]); - ); - ); - wrflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="R", - wrflg=-1; - options=remove(options,[#]); - ); - if(tmp=="M", - wrflg=1; - options=remove(options,[#]); - ); - ); - data=dataorg; - if(isstring(data), - if(indexof(data,".")==0,data=data+".csv"); - if(iswindows(), // 15.11.10 - data=replace(data,"/","\"); - flg="\"; - , - data=replace(data,"\","/"); - flg="/"; - ); - forall(reverse(1..length(data)), - if(length(flg)>0, - tmp=substring(data,#-1,#); - if(tmp==flg, - tmp3=substring(data,0,#-1); - tmp4=substring(data,#,length(data)); - if(indexof(tmp3,":")==0, // 11.11.10 - tmp=substring(tmp3,0,1); - if(tmp!=flg, - tmp3=Dirwork+flg+tmp3; - ); - ); - flg=""; - ); - ); - ); - if(length(flg)>0, - tmp3=Dirwork; //15.11.10 - tmp4=data; - ); - setdirectory(tmp3); - tmp=load(tmp4); - if(length(tmp)==0, ErrFlag=2); // 15.11.07 upto - setdirectory(Dirwork); - , - file=Fhead+name+".dat"; - tmp=load(file); - if(length(tmp)>0, - tmp1=tokenize(tmp,","); - tmp1=tmp1_(1..(length(tmp1)-1)); - , - tmp1=[]; - ); - flg=0; - if(length(tmp1)==length(data), - tmp=tmp1-data; - tmp=select(tmp,#!=0); - if(length(tmp)>0,flg=1); - , - flg=1; - ); - if(flg==1, - SCEOUTPUT=openfile(file); - forall(data, - print(SCEOUTPUT,textformat(#,5)+","); - ); - println(SCEOUTPUT,"////"); - closefile(SCEOUTPUT); -// wait(WaitUnit); - ); - data=file; - ); - data=replace(data,"\","/"); - cmdL=[ - "tmp=readLines",[Dq+data+Dq, "warn=FALSE"], - "tmp=substring",["tmp",1,"nchar(tmp)-4"], - "data=strsplit",["tmp",Dq+","+Dq,"fix=TRUE"], - "data=data[[1]]",[], - "fun=function(s) eval(parse(text=s))",[], - "data=sapply",["data","fun"], - "data=data[!is.na(data)]",[], - "tmp=hist",["data","plot=FALSE",breaks], - "tmp1=tmp$breaks",[], - "tmp2=tmp$count",[], - "tmp3=tmp$density",[], - name+"=c(tmp1,tmp2,tmp3)",[] - ]; - file=Fhead+name+".txt"; - options=append(options,"Wait="+text(waiting)); - if(wrflg==1,options=append(options,"m")); - if(wrflg==-1,options=append(options,"r")); - if(ErrFlag==0, - CalcbyR(name,cmdL,options); - ); - if(ErrFlag>0, - if(ErrFlag==1,println("Histplot not completed")); - if(ErrFlag==2,println(Dq+data+Dq+" not found")); - , -// tmp=load(file); -// tmp=replace(tmp,"/",""); -// tmp=tokenize(tmp,","); -// tmp=name+"="+textformat(tmp,5); -// parse(tmp); - hp=parse(name); - tmp1=(length(hp)-1)/3+1; - tmp2=tmp1+(length(hp)-1)/3; - bdata=hp_(1..tmp1); - if(density==0, - cdata=hp_((tmp1+1)..tmp2); - , - cdata=hp_((tmp2+1)..length(hp)); - ); - if(relative==1, - cdata=cdata/sum(cdata); - ); - options=append(options,"Msg=no"); // 15.10.03 - pstr="["; - forall(1..length(cdata), - tmp1=[bdata_#,0]; - tmp2=[bdata_#,cdata_#]; - tmp3=[bdata_(#+1),cdata_#]; - tmp4=[bdata_(#+1),0]; - Listplot(name+text(#),[tmp1,tmp2,tmp3,tmp4,tmp1],options); - pstr=pstr+Dq+"sg"+name+text(#)+Dq+","; - ); - pstr=substring(pstr,0,length(pstr)-1)+"]"; - println("generate totally "+name); - tmp=name+"="+pstr; - parse(tmp); - [bdata,cdata]; - ); -); - -Scatterplot(nm,file):=Scatterplot(nm,file,[]); -Scatterplot(nm,file,optionorg):=( -//help:Scatterplot("1",path+filename); -//help:Scatterplot(options=["Reg=yes",A,B,C,"Size"=4"]); - regional(tmp,tmp1,tmp2,fname,name,reg,eqL,reL,cdysize, - options,dtx,dty,nn,mx,my,sx,sy,sxy,rr,aa,bb,size); - name="sc"+nm; - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - reL=tmp_6; - options=remove(options,reL); - cdysize=select(options,indexof(#,"size->")>0); - options=remove(options,cdysize); - size=4; - reg="yes"; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="R", - reg=tmp2; - options=remove(options,[#]); - ); - if(tmp1=="S", - size=parse(tmp2); - options=remove(options,[#]); - ); - ); - if(indexof(file,".")==0, - fname=file+".csv"; - , - fname=file; - ); - Readcsv(nm,fname); - tmp=concat(options,cdysize); - Pointdata(name,parse("rc"+nm),append(tmp,"Size="+text(size))); - tmp=parse("rc"+nm); - dtx=apply(tmp,#_1); - dty=apply(tmp,#_2); - nn=length(dtx); - mx=sum(dtx)/nn; - my=sum(dty)/nn; - sx=sqrt(dtx*dtx/nn-mx^2); - sy=sqrt(dty*dty/nn-my^2); - sxy=dtx*dty/nn-mx*my; - rr=sxy/sx/sy; - aa=sxy/sx^2; - bb=my-aa*mx; - tmp=Assign("a*x+b",["a",aa,"b",bb]); - if(reg!="no", - Plotdata(name,tmp,"x",append(options,"Num=2")); - ); - if(length(reL)>=2, - Framedata2(name,[reL_1,reL_2]); - if(length(reL)>2, - tmp="r="+textformat(rr,3)+",\ y="; - tmp=tmp+textformat(aa,3)+"x"; - if(bb>0,tmp=tmp+"+",tmp=tmp+"-"); - tmp=tmp+textformat(abs(bb),3); - Expr([reL_3,"e",tmp]); - ); - ); - [mx,my,sx,sy,sxy,rr,bb,aa]; -); - -Rulerscale(pt,hscale,vscale):=Rulerscale(pt,hscale,vscale,0.1); -Rulerscale(pt,hscale,vscale,tick):=( -//help:Rulerscale(A,["r",0,5,1],["s2",0,2,4]); -//help:Rulerscale(A,["r",0,5,1],["f",10,"a",20,"w2","b"]); -//help:Rulerscale(A,["r",0,5,1],["r",0,10,1],0.2); - regional(pA,pos,mrk,dir,tmp,tmp1,tmp2,tmp3); - pA=Lcrd(pt); - if(length(hscale)>0, - pos=[]; mrk=[]; dir=[]; - tmp=Toupper(substring(hscale_1,0,1)); - if(tmp=="R" % tmp=="F", - if(tmp=="R", - dir="s2"; - tmp1=hscale_2; - tmp2=hscale_3; - tmp3=hscale_4; - tmp=floor((tmp2-tmp1)/tmp3); - pos=apply(0..tmp,tmp1+#*tmp3); - mrk=apply(pos,text(#)); - dir=apply(1..length(pos),"s2"); - , - forall(2..(length(hscale)-2), - tmp1=hscale_(#); - tmp2=hscale_(#+1); - tmp3=hscale_(#+2); - if(isreal(tmp1), - pos=append(pos,tmp1); - if(isstring(tmp3), - dir=append(dir,tmp2); - mrk=append(mrk,tmp3); - , - dir=append(dir,"s2"); - mrk=append(mrk,tmp2); - ); - ); - ); - if(isreal(tmp2), - pos=append(pos,tmp2); - dir=append(dir,"s2"); - mrk=append(mrk,tmp3); - ); - ); - , - pos=hscale_(2..length(hscale)); - dir=apply(pos,"s2"); - mrk=apply(pos,text(#)); - ); - pos=apply(pos,[#,pA_2]); - forall(1..length(pos), - Expr([pos_#,dir_#,mrk_#]); - tmp1=pos_#; - tmp2=pos_#-[0,tick/SCALEY]; - Listplot("rsh"+text(#),[tmp1,tmp2],["Msg=no"]); - ); - ); - if(length(vscale)>0, - pos=[]; mrk=[]; dir=[]; - tmp=Toupper(substring(vscale_1,0,1)); - if(tmp=="R" % tmp=="F", - if(tmp=="R", - dir="w2"; - tmp1=vscale_2; - tmp2=vscale_3; - tmp3=vscale_4; - tmp=floor((tmp2-tmp1)/tmp3); - pos=apply(0..tmp,tmp1+#*tmp3); - mrk=apply(pos,text(#)); - dir=apply(1..length(pos),"w2"); - , - forall(2..(length(vscale)-2), - tmp1=vscale_(#); - tmp2=vscale_(#+1); - tmp3=vscale_(#+2); - if(isreal(tmp1), - pos=append(pos,tmp1); - if(isstring(tmp3), - dir=append(dir,tmp2); - mrk=append(mrk,tmp3); - , - dir=append(dir,"w2"); - mrk=append(mrk,tmp2); - ); - ); - ); - if(isreal(tmp2), - pos=append(pos,tmp2); - dir=append(dir,"w2"); - mrk=append(mrk,tmp3); - ); - ); - , - pos=vscale_(2..length(vscale)); - dir=apply(pos,"w1"); - mrk=apply(pos,text(#)); - ); - pos=apply(pos,[pA_1,#]); - forall(1..length(pos), - Expr([pos_#,dir_#,mrk_#]); - tmp1=pos_#; - tmp2=pos_#-[tick/SCALEX,0]; - Listplot("rsv"+text(#),[tmp1,tmp2],["Msg=no"]); - ); - ); -); - -MkprecommandR():=MkprecommandR(5); // 15.02.01 -MkprecommandR(prec):=( - regional(cmdL,Plist,Pnamelist,Pvaluelist,tmp,tmp1,tmp2); - Plist=[]; - Pnamelist=[]; - Pvaluelist=[]; - forall(remove(allpoints(),[SW,NE]), - tmp=Lcrd(#); - tmp1=format(re(tmp_1),prec);// 15.02.05 - tmp2=format(re(tmp_2),prec); - tmp="c("+tmp1+","+tmp2+")"; - Plist=append(Plist,#.name+"="+tmp); - Pnamelist=append(Pnamelist,#.name); - Pvaluelist=append(Pvaluelist,tmp); - ); - cmdL=[]; - forall(1..length(Plist), - cmdL=concat(cmdL,[Plist_#,[]]); - cmdL=concat(cmdL, - ["Assign("+Dq+Pnamelist_#+Dq+","+Pvaluelist_#+")",[]]); - ); - tmp2=sort(apply(VLIST,#_1)); // 16.02.03 from - tmp1=[]; - forall(tmp2,tmp, - tmp1=concat(tmp1,select(VLIST,#_1==tmp)); - ); - VLIST=tmp1;// 16.02.03 upto - forall(VLIST, - tmp=Rform(#_1); - tmp1=#_2; // 15.02.06 - if(!isstring(tmp1), - if(islist(tmp1), - tmp2="["; - forall(tmp1, - if(abs(#)<10^(-5), // 16.01.30 - tmp2=tmp2+"0,"; - , - tmp2=tmp2+format(#,prec)+","; - ); - ); - tmp1=substring(tmp2,0 - ,length(tmp2)-1)+"]"; - , - tmp1=format(tmp1,prec); - ); - ); - cmdL=concat(cmdL,["eval(parse(text="+tmp+Dq+tmp1+Dq+")",[]]); - tmp=substring(tmp,0,length(tmp)-1); - cmdL=concat(cmdL, - ["Assign("+Dq+tmp+Dq+","+tmp1+")",[]]); // 15.01.27 - ); - forall(OutFileList, - cmdL=concat(cmdL,["tmp=ReadOutData",[Dq+#+Dq]]); - ); -// forall(FUNLIST, // 16.04.23from -// cmdL=concat(cmdL,[#,[]]); -// ); // 16.02.17 upto -// forall(GLIST, -// tmp1=Rform(#); -// cmdL=concat(cmdL,[tmp1,[]]); -// );// 16.04.23upto - cmdL; -); - -MkprecommandS():=MkprecommandS(5); -MkprecommandS(prec):=( - regional(cmdL,Plist,Pnamelist,Pvaluelist,tmp,tmp1,tmp2); - cmdL=[]; - Plist=[]; - Pnamelist=[]; - Pvaluelist=[]; - forall(remove(allpoints(),[SW,NE]), - tmp=Lcrd(#); - tmp1=format(re(tmp_1),prec);// 15.02.05 - tmp2=format(re(tmp_2),prec); - tmp="["+tmp1+","+tmp2+"]"; - Plist=append(Plist,#.name+"="+tmp); - Pnamelist=append(Pnamelist,#.name); - Pvaluelist=append(Pvaluelist,tmp); - ); - forall(1..length(Plist), - cmdL=concat(cmdL,[Plist_#,[]]); - cmdL=concat(cmdL,["Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+")",[]]); - ); - tmp2=sort(apply(VLIST,#_1)); // 16.02.03 from - tmp1=[]; - forall(tmp2,tmp, - tmp1=concat(tmp1,select(VLIST,#_1==tmp)); - ); - VLIST=tmp1;// 16.02.03 upto - forall(VLIST, - tmp=Sciform(#_1); - tmp1=#_2; // 15.02.06 - if(!isstring(tmp1), - if(islist(tmp1), - if(!isstring(tmp1_1), // 16.11.14 - tmp2="["; - forall(tmp1, - if(abs(#)<10^(-prec), // 16.01.30 - tmp2=tmp2+"0,"; - , - tmp2=tmp2+format(#,prec)+","; - ); - ); - tmp1=substring(tmp2,0,length(tmp2)-1)+"]"; - , - tmp2="list("; // 16.11.14from - forall(tmp1, - tmp2=tmp2+#+","; - ); - tmp1=substring(tmp2,0,length(tmp2)-1)+")"; - ); // 16.11.14upto - , - tmp1=format(tmp1,prec); - ); - ); - cmdL=concat(cmdL,[tmp+"evstr('"+tmp1+"')",[]]); - tmp=substring(tmp,0,length(tmp)-1); - cmdL=concat(cmdL,["Assignrep('"+tmp+"',"+tmp1+")",[]]); // 15.01.27 - ); - forall(OutFileList, - tmp=["tmp=ReadOutData",[Dq+#+Dq], - "if length(tmp(1))>8,execstr(tmp),end",[]]; - cmdL=concat(cmdL,tmp); - ); - forall(FUNLIST, // 16.02.17 from - cmdL=concat(cmdL,[#,[]]); - ); // 16.02.17 upto - forall(GLIST, - tmp1=Sciform(#); - cmdL=concat(cmdL,[tmp1,[]]); - ); - cmdL; -); - -PlotdataS(name1,func,var):=PlotdataS(name1,func,var,[]); -PlotdataS(nm,fun,variable,optionorg):=( -//help:PlotdataS("1","besselj(1,x)","x"); -//help:PlotdataS(options=["m/r","Num=50","Wait=5","Mx=no"]); - regional(options,name,varstr,Num,waiting,mxcheck,outreg, - eqL,strL,fname,tmp,tmp1,tmp2,tmp3,cmdL,flg,wflg); - name="grsc"+nm; - fname=Fhead+name+".txt"; - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - strL=tmp_7; - Num=50; - waiting=5; - mxcheck=0; // 16.03.02 - outreg=0; - flg=0; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="N", - Num=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="O", - tmp=Toupper(substring(tmp2,0,1)); - if(tmp=="T" % tmp=="Y", outreg=1); - options=remove(options,[#]); - ); - if(tmp1=="M", - tmp=Toupper(substring(tmp2,0,1)); - if(tmp=="T" % tmp=="Y", mxcheck=1); - options=remove(options,[#]); - ); - ); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(length(#)==0, - options=remove(options,[#]); - ); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - tmp=indexof(variable,"="); - if(tmp>0, - varstr=variable; - , - varstr=variable+"="+textformat([XMIN,XMAX],5); - ); - cmdL=MkprecommandS(); - cmdL=concat(cmdL,[ - name+"=Plotdata",[Dq+fun+Dq,Dq+varstr+Dq,Dq+"Num="+text(Num)+Dq], - "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name] - ]); - ErrFlag=0; // 16.03.02 from - if(mxcheck==1, - Mxfun(name,fun,[],["Disp=n"]); - tmp=parse("mx"+name); - if(!isstring(tmp),ErrFlag=1); - ); - options=append(options,"Wait="+text(waiting)); - if(wflg==1,options=append(options,"m")); - if(wflg==-1,options=append(options,"r"));// 16.03.02 upto - if(ErrFlag==0, - CalcbyS(name,cmdL,concat(options,["cat=middle","Wait="+text(waiting)])); - ); - if(ErrFlag==1, - println(" PlotdataS not completed"); - , - if(outreg==1, // 2016.03.02 ( // ) - OutFileList=remove(OutFileList,[wfile]); - OutFileList=append(OutFileList,wfile); - ); - ReadOutData(fname); - Extractdata(name,options); - tmp=parse(name); - tmp1=name+"="+textformat(tmp,5); - parse(tmp1); -// Addgraph(name); // 16.04.04 - tmp2=apply(tmp,Lcrd(#)); - tmp2; - ); -); - -Implicitplot(nm,fun,varx,vary):= - Implicitplot(nm,fun,varx,vary,[]); -Implicitplot(nm,fnorg,varx,vary,optionorg):=( -//help:Implicitplot("1","3*x^2+y^2=1","x=[-3,3]","y=[-3,3]"); -//help:Implicitplot(options2=["Wait=10","Out=no","Mx=no"]); - regional(options,name,fun,waiting,mxcheck,outreg, - eqL,reL,strL,fname,var,rng,val,tmp,tmp1,tmp2,cmdL,flg,wflg); - name="imp"+nm; - fname=Fhead+name+".txt"; - fun=fnorg; - tmp=indexof(fun,"="); - if(tmp>0, - tmp1=substring(fun,0,tmp-1); - tmp2=substring(fun,tmp,length(fun)); - fun=tmp1+"-("+tmp2+")"; - ); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; - strL=tmp_7; - waiting=5; // 16.02.29 - mxcheck=0; // 16.02.29 - outreg=0; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,2)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="WA", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="OU", - tmp=Toupper(substring(tmp2,0,1)); - if(tmp=="T" % tmp=="Y", outreg=1); - options=remove(options,[#]); - ); - if(tmp1=="MX", - tmp=Toupper(substring(tmp2,0,1)); - if(tmp=="T" % tmp=="Y", mxcheck=1); - options=remove(options,[#]); - ); - ); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(length(#)==0, - options=remove(options,[#]); - ); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - tmp1=Testfunstr(fun,varx,vary); - tmp=apply([fun,varx,vary],Dq+#+Dq); - tmp_1=Sciform(tmp_1); - tmp=concat(tmp,reL); -// tmp=append(tmp,"Error"); // 16.02.29 - cmdL=MkprecommandS(); - cmdL=concat(cmdL,[ - "evstr",[tmp1,"Error"], // 16.03.15 - name+"=Implicitplot",tmp, // 16.03.15 - "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name] - ]); -// tmp=[""]; - ErrFlag=0; // 16.02.29 from - if(mxcheck==1, - Mxfun(name,"expand",[fun],["Disp=n"]); - tmp=parse("mx"+name); - if(!isstring(tmp),ErrFlag=1); - ); // 16.02.29 upto - options=concat(options,["Wait="+text(waiting)]); - if(wflg==1,options=append(options,"m")); - if(wflg==-1,options=append(options,"r")); - if(ErrFlag==0, - CalcbyS(name,cmdL,options); - ); - if(ErrFlag==1, - println(" Implicitplot not completed"); - , - if(outreg==1, - OutFileList=remove(OutFileList,[fname]); - OutFileList=append(OutFileList,fname); - ); - ReadOutData(fname); - Extractdata(name,options); - tmp=parse(name); - tmp1=name+"="+textformat(tmp,5); - parse(tmp1); -// Addgraph(name); // 16.04.04 - tmp2=apply(tmp,Lcrd(#)); - tmp2; - ); -); - -Hatchdata2(nm,iostr,pltlist):=Hatchdata2(nm,iostr,pltlist,[]); -Hatchdata2(nm,iostr,pltlist,options):=( -// help: Hatchdata2("1",["i"],[["crAB"]],["dr,0.7"]); - regional(name,Ltype,Noflg,PdL,tmp,tmp1,tmp2,opstr,opcindy,Str,Outflg,Inflg); - name="ha"+nm; -// println("output hatchdata2 "+name); - tmp=Divoptions(options); - Ltype=tmp_1; - Noflg=tmp_2; - Inflg=tmp_3; - Outflg=tmp_4; - if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15 - opstr=tmp_(length(tmp)-1); - opcindy=tmp_(length(tmp)); - Str="Hatchdata("; - if(islist(iostr), - tmp="list("; - forall(iostr, - tmp=tmp+Dq+#+Dq+","; - ); - Str=Str+substring(tmp,0,length(tmp)-1)+"),"; - , - Str=Str+Dq+iostr+Dq+","; - ); - PdL=pltlist; - if(isstring(PdL_1) % !islist(PdL),PdL=[PdL]); - forall(PdL,tmp1, - tmp="list("; - forall(tmp1, - if(length(#)>1, - tmp=tmp+#+","; - , - tmp=tmp+Dq+#+Dq+","; - ); - ); - Str=Str+substring(tmp,0,length(tmp)-1)+"),"; - ); - Str=substring(Str,0,length(Str)-1)+opstr+")"; - if(Noflg<3, // 2015.07.16 - GLIST=append(GLIST,name+"="+Str); - ); - if(Noflg<2, - if(Outflg==1, - println("Output Hatchdata2 "+name); - SCIWRLIST=append(SCIWRLIST,name); - ); - if(Inflg==1, - println("Input Hatchdata2 "+name); - if(length(SCIRELIST)==0, - ReadOutData(Fnameout); - ); - tmp=parse(name); - if(islist(tmp), - Extractdata(name,["nodisp"]); // 12.19 - ); - SCIRELIST=append(SCIRELIST,name); - ); - ); - if(Noflg<1, - if(isstring(Ltype), - Ltype=GetLinestyle(text(Noflg)+Ltype,name); - , - if(Noflg==1,Ltype=0); - ); - if(Inflg==1, - GCLIST=append(GCLIST,[name,Ltype,opcindy]); - ); - ); -); - -Hatchdata(nm,iostr,pltlist):=Hatchdata(nm,iostr,pltlist,[]); -Hatchdata(nm,iostr,pltlist,optionorg):=( -//help:Hatchdata("1","ii",[["gr1"],["gr2","n"]]); -//help:Hatchdata(options=["Wait=5"]); - regional(options,name,fun,eqL,reL,strL,outreg, - plt,fname,options,tmp,tmp1,tmp2,tmp3,flg,wflg,waiting); - name="ha"+nm; - fname=Fhead+name+".txt"; - fun=fnorg; - tmp=indexof(fun,"="); - if(tmp>0, - tmp1=substring(fun,0,tmp-1); - tmp2=substring(fun,tmp,length(fun)); - fun=tmp1+"-("+tmp2+")"; - ); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; - strL=tmp_7; - waiting=5; - outreg=0; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="O", - tmp=Toupper(substring(tmp2,0,1)); - if(tmp=="T" % tmp=="Y", outreg=1); - options=remove(options,[#]); - ); - ); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(length(#)==0, - options=remove(options,[#]); - ); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - if(islist(iostr), - tmp1=text(apply(iostr,Dq+#+Dq)); - tmp1=replace(tmp1,"[","list("); //16.02.14 - tmp1=replace(tmp1,"]",")"); //16.02.14 - , - tmp1=Dq+iostr+Dq; - ); - if(!islist(pltlist_1), - tmp2=apply(pltlist,if(length(#)==1,Dq+#+Dq,Chunderscore(#))); - tmp2=text(tmp2); - tmp2="list("+substring(tmp2,1,length(tmp2)-1)+"),"; - , - tmp2=""; - forall(pltlist,plt, - tmp=apply(plt,if(length(#)==1,Dq+#+Dq,Chunderscore(#))); // 16.04.06 - tmp=text(tmp); - tmp="list("+substring(tmp,1,length(tmp)-1)+")"; - tmp2=tmp2+tmp+","; - ); - ); - cmdL=MkprecommandS(); - tmp2=substring(tmp2,0,length(tmp2)-1); - tmp=[tmp1,tmp2]; - tmp=concat(tmp,reL); - tmp=append(tmp,"Error"); // 16.03.05 - cmdL=concat(cmdL,[ - "Setscaling",[SCALEY], - "Setunitlen",[Dq+ULEN+Dq], - name+"=Hatchdata",tmp, //16.12.23 - "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name], - ]); - options=append(options,"Wait="+text(waiting)); - if(wflg==1,options=concat(options,["m"])); - if(wflg==-1,options=concat(options,["r"])); - if(ErrFlag==0, - CalcbyS(name,cmdL,options); - ); - if(ErrFlag==1, - err("Hatchdata not completed"); - , - if(outreg==1, - OutFileList=remove(OutFileList,[fname]); - OutFileList=append(OutFileList,fname); - ); - if(ErrFlag==0, - ReadOutData(fname); - Extractdata(name,options); - ); - ); -); - -Dotfilldata(nm,iostr,pltlist):= - Dotfilldata(nm,iostr,pltlist,[]); -Dotfilldata(nm,iostr,pltlist,optionorg):=( -//help:Dotfilldata("1","ii",[["sg1"],["sg2"]]); -//help:Dotfilldata(options=[0.3,"Wait=5"]); - regional(options,name,fun,eqL,reL,strL,outreg, - plt,fname,options,tmp,tmp1,tmp2,tmp3,flg, - wflg,waiting,dense); - name="df"+nm; - fname=Fhead+name+".txt"; - fun=fnorg; - tmp=indexof(fun,"="); - if(tmp>0, - tmp1=substring(fun,0,tmp-1); - tmp2=substring(fun,tmp,length(fun)); - fun=tmp1+"-("+tmp2+")"; - ); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; - strL=tmp_7; - dense=0.3; - waiting=5; - outreg=0; - forall(reL, - dense=#; - ); - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="O", - tmp=Toupper(substring(tmp2,0,1)); - if(tmp=="T" % tmp=="Y", outreg=1); - options=remove(options,[#]); - ); - ); - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(length(#)==0, - options=remove(options,[#]); - ); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - if(islist(iostr), - tmp1=text(apply(iostr,Dq+#+Dq)); - tmp1=replace(tmp1,"[","list("); //16.02.14 - tmp1=replace(tmp1,"]",")"); //16.02.14 - , - tmp1=Dq+iostr+Dq; - ); - if(!islist(pltlist_1), - tmp2=apply(pltlist,if(length(#)==1,Dq+#+Dq,#)); - tmp2=text(tmp2); - tmp2="list("+substring(tmp2,1,length(tmp2)-1)+"),"; - , - tmp2=""; - forall(pltlist,plt, - tmp=apply(plt,if(length(#)==1,Dq+#+Dq,#)); - tmp=text(tmp); - tmp="list("+substring(tmp,1,length(tmp)-1)+")"; - tmp2=tmp2+tmp+","; - ); - ); - cmdL=MkprecommandS(); - tmp2=substring(tmp2,0,length(tmp2)-1); - tmp=[tmp1,tmp2]; - tmp=concat(tmp,dense); - cmdL=concat(cmdL,[ - "Setscaling",[SCALEY], - "Setunitlen",[Dq+ULEN+Dq], - name+"=Dotfilldata",tmp, - "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name], - ]); - options=append(options,"Wait="+text(waiting)); - if(wflg==1,options=concat(options,["m"])); - if(wflg==-1,options=concat(options,["r"])); - if(ErrFlag==0, - CalcbyS(name,cmdL,options); - ); - if(ErrFlag==1, - println("Dotfilldata not completed"); - , - if(outreg==1, - OutFileList=remove(OutFileList,[fname]); - OutFileList=append(OutFileList,fname); - ); - if(ErrFlag==0, - ReadOutData(fname); - tmp1=parse(name); - forall(tmp1, - tmp=#_1; - draw(tmp,pointsize->1); - ); - Com2nd("tmp=ReadOutData("+Dq+fname+Dq+")"); - Com2nd("execstr(tmp)"); - Com2nd("Drwpt(list("+name+")"+")"); - ); - ); -); - -WritetoA(fname,cmdL):=( -// help:WritetoA("outdata",cmdL); - regional(tmp,tmp1,tmp2,filename,wfilename,endmark); - if(indexof(fname,".")==0, - filename=fname+".rr"; - , - filename=fname; - ); - wfilename=replace(filename,".rr",".txt"); - SCEOUTPUT = openfile(filename); -// tmp=replace(Dirlib,"\","/"); -// tmp="load("+Dq+tmp+"/oshima/os_muldif.rr"+Dq+")$/*####*/"; - tmp="/*####*/"; // 16.03.11 - println(SCEOUTPUT,tmp); - tmp="output("+Dq+wfilename+Dq+")$/*##*/"; // 16.05.18from - println(SCEOUTPUT,tmp); // 16.05.18upto - forall(1..(length(cmdL)), - tmp1=cmdL_#; - tmp=indexof(tmp1,";"); // 16.05.18from - if(tmp>0,endmark=";",endmark="$"); - tmp1=replace(tmp1,";",""); // 16.05.18upto - if(#==length(cmdL)-1, - println(SCEOUTPUT,tmp1+";/*##*/"); - , - println(SCEOUTPUT,tmp1+endmark+"/*##*/");//16.05.18 - ); - ); - closefile(SCEOUTPUT); -); - -kcA(fname):=kcA(fname,[]); -kcA(fname,optionorg):=( -//help:kcA("boxdata"); -//help:kcA(options=["r/m"]); - regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg); - if(indexof(fname,".")==0, - filename=fname+".rr"; - , - filename=fname; - ); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - strL=tmp_7; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,0,tmp-1); - tmp2=substring(#,tmp,length(#)); - ); - flg=0; - forall(strL, - if(Toupper(substring(#,0,1))=="R", - flg=0; - options=remove(options,[#]); - ); - if(Toupper(substring(#,0,1))=="M", - flg=1; - ); - ); - if(flg==0, - tmp2=replace(filename,".rr",".txt"); - tmp1=load(tmp2); - if(length(tmp1)==0, - flg=1; - ); - ); - if(flg==1, - tmp1=""; - if(iswindows(), - tmp2=Batparent; - , - tmp2=Shellparent; - ); - flg=0; - forall(reverse(1..length(tmp2)), - if(flg==0, - tmp=substring(tmp2,#-1,#); - if(tmp=="/" % tmp=="\", // 14.01.15 - tmp1=substring(tmp2,0,#-1); - tmp2=substring(tmp2,#,length(tmp2)); - flg=1; - ); - ); - ); - if(length(tmp1)>0, - setdirectory(tmp1); - ); - if(iswindows(), - SCEOUTPUT = openfile("kc.bat"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - tmp="del "+replace(filename,".rr",".txt"); - println(SCEOUTPUT,tmp); - tmp=Dq+PathA+Dq+" -quiet -f "+Dq+filename+Dq; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit"); - closefile(SCEOUTPUT); - tmp=replace(filename,".rr",".txt"); - println(kc(Dirwork+Batparent,Dirlib,tmp)); // 16.05.29,06.05 - , - SCEOUTPUT = openfile("kc.sh"); - println(SCEOUTPUT,"#!/bin/sh"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - tmp="rm "+replace(filename,".rr",".txt"); - println(SCEOUTPUT,tmp); - tmp=Dq+PathA+Dq+" -quiet -f "+Dq+filename+Dq; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - tmp=replace(filename,".rr",".txt"); - println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));// 16.05.29,06.05 - - ); -// wait(WaitUnit); - setdirectory(Dirwork); - ); -); - -CalcbyA(name,cmd):=CalcbyA(name,cmd,[]); -CalcbyA(name,cmd,optionorg):=( -//help:CalcbyA("a",cmd); -//help:CalcbyA(options= ["m/r","Wait=10","Ext=txt","Dig=16"]]); - regional(options,tmp,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL, - dig,flg,wflg,file,nc,arg,cmdA,cmdlist,wfile,ext,waiting,num,st); - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - realL=tmp_6; - strL=tmp_7; - wfile=""; - ext=".txt"; - waiting=2; - dig=6; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="E", - if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2); - options=remove(options,[#]); - ); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="D", - dig=parse(tmp2); - options=remove(options,[#]); - ); - ); - wfile=Fhead+name+ext; - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - file=Fhead+name; - cmdA=cmd; - cmdlist=[]; - forall(1..floor(length(cmdA)/2),nc, //17.5.18 - tmp1=cmdA_(2*nc-1); - tmp1=replace(tmp1,LFmark,""); // 16.06.12 - if(nc==length(cmdA)/2, - tmp=indexof(tmp1,"="); - tmp1=substring(tmp1,tmp,length(tmp1)); - if(substring(tmp1,0,1)=="[", - tmp=substring(tmp1,0,length(tmp1)-1); - , - tmp="["+Dq+"/start/"+Dq+","+tmp1; // 16.05.18 - ); - tmp=replace(tmp,"::",","+Dq+"//"+Dq+","); - tmp1=tmp+","+Dq+"////"+Dq+"]"; - ); - tmp2=cmdA_(2*nc); // list of argments - tmp3=""; - tmp4=""; - forall(tmp2,arg, - if(isstring(arg), - tmp3=tmp3+replace(arg,"'",Dq)+","; -// tmp3=tmp3+arg; - , - if(!islist(arg), - tmp3=tmp3+textformat(arg,dig)+","; - , - tmp3=tmp3+"["; - tmp4="]"; - forall(arg, - if(isstring(#), -// tmp3=tmp3+Dq+#+Dq+","; - tmp=replace(#,"'",Dq); -// tmp=#;// 2016.03.03 - tmp3=tmp3+tmp+","; - , - if(!islist(#), - tmp3=tmp3+textformat(#,dig)+","; - , - tmp=textformat(#,dig); - tmp=replace(tmp,"],[","];["); - tmp3=tmp3+tmp+","; - ); - ); - ); - tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+","; - ); - ); - ); - if(length(tmp3)>0, - tmp3=substring(tmp3,0,length(tmp3)-1); - tmp1=tmp1+"("+tmp3+")"; - ); - cmdlist=append(cmdlist,tmp1); - ); - cmdlist=append(cmdlist,"quit"); - if(wflg==0, - tmp1=load(file+".rr"); - if((length(tmp1)==0) % (indexof(tmp1,"/*####*/")==0), //15.11.26 - wflg=1; - , - tmp1=tokenize(tmp1,"/*####*/"); - tmp1=tokenize(tmp1_2,"/*##*/"); - tmp1=tmp1_(1..(length(tmp1)-1)); - tmp=select(tmp1,indexof(#,"output")>0); - tmp1=remove(tmp1,tmp); - tmp1=apply(tmp1,substring(#,0,length(#)-1)); - if(length(tmp1)!=length(cmdlist), // 15.12.06 - wflg=1; - , - tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#); - if(length(tmp)>0, wflg=1); - ); - ); - ); - if(wflg==0,wflg=-1); // 15.10.16 - if(wflg==1, - if(length(wfile)>0, // 15.10.05 - SCEOUTPUT=openfile(wfile); - println(SCEOUTPUT,""); - closefile(SCEOUTPUT); - ); - WritetoA(file+".rr",cmdlist); - kcA(file,concat(options,["m"])); - ); - flg=0; - tmp1=floor(waiting*1000/WaitUnit); - repeat(tmp1, - if(flg==0, - tmp=load(wfile); - if(length(tmp)>=4, - tmp2=substring(tmp,length(tmp)-5,length(tmp)); - if(tmp2=="////]", - tmp=substring(tmp,1,length(tmp)-6); -// old tmp1=tokenize(tmp,",//,"); -// old tmp1=apply(tmp1,if(isstring(#),Dq+#+Dq,textformat(#,dig))); - num="1234567890+-."; - tmp1=tokenize(","+tmp,",//"); - tmp3=apply(tmp1,substring(#,1,length(#))); - tmp1="["; - forall(tmp3,st, - tmp=select(1..length(st),indexof(num,substring(st,#-1,#))==0); - if((length(tmp)==0) & (length(st)<4), // 16.05.10 16=>4 - tmp1=tmp1+st+","; - , - tmp1=tmp1+Dq+st+Dq+","; - ); - ); - tmp=Indexof(tmp1,"/start/,"); // 16.05.18from - tmp1="["+Dq+substring(tmp1,tmp+7,length(tmp1)-1)+"]"; - // 16.05.18upto -// tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; - parse(name+"="+tmp1); - tmp=parse(name); - if(length(tmp)==1, - tmp1=substring(tmp1,1,length(tmp1)-1); - parse(name+"="+tmp1); - ); - flg=1; - tmp2=#*WaitUnit/1000; - ); - , - if(wflg==-1, - flg=-1; - , - wait(WaitUnit); - ); - ); - ); - ); - if(flg<=0, - ErrFlag=1; - if(flg==-1, - println(wfile+" does not exist"); - , - tmp="("+text(waiting)+" s )"; - println(wfile+" not generated "+tmp); - ); - , - println(" CalcbyA succeeded "+name+" ("+text(tmp2)+" sec)"); - ); -); - -AsfunO(name,fun,argL):=AsirfunO(name,fun,argL); // 16.02.03 -AsfunO(name,fun,argL,options):=AsirfunO(name,fun,argL,options); -Asfun(name,fun,argL):=Asirfun(name,fun,argL); -Asfun(name,fun,argL,optionorg):=Asirfun(name,fun,argL,optionorg); -AsirfunO(name,fun,argL):=AsirfunO(name,fun,argL,[]); -AsirfunO(name,fun,argLorg,options):=( -//help:AsirfunO("an1","fint",["1/(x^2+1)",32,"['-','+']"]); - regional(argL,tmp,tmp1,tmp2,eqL);// 16.05.26from - tmp=divoptions(options); - eqL=tmp_5; - argL=argLorg; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,3)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="PRO", // 16.05.26from - tmp=Toupper(substring(tmp2,0,1)); - if((tmp=="T") % (tmp=="Y"), - tmp1=argL_(length(argL)); - tmp=indexof(tmp1,"|"); - if(tmp==0, - argL_(length(argL))=tmp1+"|dumb=-1,dviout=-2"; - ); - ); - ); - ); // 16.05.26upto - Asirfun(name,"os_md."+fun,argL,options); -); -Asirfun(name,fun,argL):=Asirfun(name,fun,argL,[]); -Asirfun(name,fun,argL,optionorg):=( -//help:Asirfun("al1","2*(3+5^4)",[],[""]); - regional(nm,options,eqL,precise,disp,process, - cmdL,tmp,tmp1,tmp2,tmp3,tmp4,out,out2); - nm="as"+name; - options=optionorg; - tmp=divoptions(options); - precise=6; - disp=1; - process=0; - eqL=tmp_5; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,3)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="PRE", - precise=parse(tmp2); - options=remove(options,[#]); - ); - if((tmp1=="DIS") % (tmp1=="DSP"), - tmp=Toupper(substring(tmp2,0,1)); - if((tmp=="F") % (tmp=="N"), - disp=0; - ); - options=remove(options,[#]); - ); - if(tmp1=="PRO", // 16.05.26from - tmp=Toupper(substring(tmp2,0,1)); - if((tmp=="T") % (tmp=="Y"), - process=1; - ); - options=remove(options,[#]); - ); // 16.05.26upt - ); - tmp=replace(Dirlib,"\","/"); - cmdL=[ - "load",[Dq+tmp+"/oshima/os_muldif.rr"+Dq], // 16.03.11 - "ctrl",[Dq+"real_digit"+Dq,precise], - "A="+fun,argL, // 16.05.26from - "A",[] - ]; - CalcbyA(nm,cmdL,options); - out=parse(nm); //16.05.26from - if(process==1, - tmp1=Bracket(out,"[]"); - tmp2=select(tmp1,abs(#_2)==2); - tmp2=apply(tmp2,#_1); - out=[]; - forall(1..length(tmp2)/2, - tmp3=tmp2_(2*#-1); - tmp4=tmp2_(2*#); - tmp=substring(as1,tmp3+1,tmp4-2); - tmp=tokenize(tmp,"],["); - out=append(out,tmp); - ); - out2=[]; - forall(out,tmp2, - tmp4=""; - forall(tmp2,tmp3, - tmp1=tokenize(tmp3,","); - if(tmp1_1==0, - tmp4=tmp4+tmp1_2+"="+tmp1_3+"+"; - , - if(tmp1_1==1, - tmp4=tmp4+tmp1_2+"+"; - , - tmp="'integrate("; - forall(2..length(tmp1), - tmp=tmp+tmp1_#+"+"; - ); - tmp=substring(tmp,0,length(tmp)-1); - tmp=tmp+","+tmp1_1+")"; - tmp4=tmp4+tmp+"+"; - ); - ); - ); - tmp4=substring(tmp4,0,length(tmp4)-1); - out2=append(out2,tmp4); - ); - out=out2; - tmp=apply(out,Dq+#+Dq); - parse(nm+"="+tmp); - ); - if(ErrFlag==0, - if(disp==1, // 15.11.24 - println(nm+" is : "); - println(parse(nm)); - ); - ); - out; //16.05.26upto -); - -WritetoM(fname,cmdL,allflg):=( -// help:WritetoM("outdata",cmdL); - regional(tmp,tmp1,tmp2,filename,wfilename,outflg); - if(indexof(fname,".")==0, - filename=fname+".max"; - , - filename=fname; - ); - wfilename=replace(filename,".max",".txt"); - SCEOUTPUT = openfile(filename); - outflg=0; - forall(1..(length(cmdL)), - tmp1=cmdL_#; - - if(allflg==1, // 2016.02.23 from - if(#==1, - tmp="writefile("+Dq+Dirwork+"/"+wfilename+Dq+")$/*##*/"; - tmp=replace(tmp,"\","/"); - println(SCEOUTPUT,tmp); - outflg=1; - println(SCEOUTPUT,tmp1+"$/*##*/"); - , - println(SCEOUTPUT,tmp1+"$/*##*/"); - ); - , - if((indexof(tmp1,"disp(")>0) & (outflg==0), - tmp="writefile("+Dq+Dirwork+"/"+wfilename+Dq+")$/*##*/"; - tmp=replace(tmp,"\","/"); - println(SCEOUTPUT,tmp); - outflg=1; - println(SCEOUTPUT,tmp1+"$/*##*/"); - , - println(SCEOUTPUT,tmp1+"$/*##*/"); - ); - ); - ); - closefile(SCEOUTPUT); -); - -kcM(fname):=kcM(fname,[]); -kcM(fname,optionorg):=( -//help:kcM("boxdata"); -//help:kcM(options=["r/m"]); - regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg); - if(indexof(fname,".")==0, - filename=fname+".max"; - , - filename=fname; - ); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - strL=tmp_7; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,0,tmp-1); - tmp2=substring(#,tmp,length(#)); - ); - flg=0; - forall(strL, - if(Toupper(substring(#,0,1))=="R", - flg=0; - options=remove(options,[#]); - ); - if(Toupper(substring(#,0,1))=="M", - flg=1; - ); - ); - if(flg==0, - tmp2=replace(filename,".max",".txt"); - tmp1=load(tmp2); - if(length(tmp1)==0, - flg=1; - ); - ); - if(flg==1, - tmp1=""; - if(iswindows(), - tmp2=Batparent; - , - tmp2=Shellparent; - ); - flg=0; - forall(reverse(1..length(tmp2)), - if(flg==0, - tmp=substring(tmp2,#-1,#); - if(tmp=="/" % tmp=="\", // 14.01.15 - tmp1=substring(tmp2,0,#-1); - tmp2=substring(tmp2,#,length(tmp2)); - flg=1; - ); - ); - ); - if(length(tmp1)>0, - setdirectory(tmp1); - ); - if(iswindows(), - SCEOUTPUT=openfile(replace(filename,".max",".txt")); - println(SCEOUTPUT,""); - closefile(SCEOUTPUT); - SCEOUTPUT = openfile("kc.bat"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); -// tmp="del "+replace(filename,".max",".txt"); -// println(SCEOUTPUT,tmp); - tmp=Indexall(PathM,"."); - tmp=substring(PathM,tmp_1,tmp_2-1); - tmp=parse(tmp); - if(tmp<39, - tmp="call "+Dq+Dq+PathM+Dq+Dq+" -b "+Dq+filename+Dq; - , - tmp="call "+Dq+PathM+Dq+" -b "+Dq+filename+Dq; - ); -// tmp="cmd/c "+Dq+PathM+" -b "+filename+Dq; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit"); - closefile(SCEOUTPUT); - tmp=replace(filename,".max",".txt"); - println(kc(Dirwork+Batparent,Mackc+Dirlib,tmp));// 16.05.29,06.05 - , - SCEOUTPUT = openfile("kc.sh"); - println(SCEOUTPUT,"#!/bin/sh"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - tmp="rm "+replace(filename,".max",".txt"); - println(SCEOUTPUT,tmp); - tmp=Dq+PathM+Dq+" -b "+Dq+filename+Dq; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - tmp=replace(filename,".max",".txt"); - println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));// 16.05.29,06.05 - ); -// wait(WaitUnit); - setdirectory(Dirwork); - ); -); - -CalcbyM(name,cmd):=CalcbyM(name,cmd,[]); -CalcbyM(name,cmd,optionorg):=( -//help:CalcbyM("a",cmdL); -//help:CalcbyM(options1= ["m/r","Wait=5","Ext=txt","Dig=6","Pow=no","All=y"]); -//help:CalcbyM(options2= ["line=1000"]); - regional(options,tmp,tmp0,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL,allflg,indL,line, - dig,flg,wflg,file,nc,arg,add,powerd,cmdM,cmdlist,wfile,ext,waiting,num,st); - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - realL=tmp_6; - strL=tmp_7; - wfile=""; - ext=".txt"; - waiting=5; - dig=6; - allflg=1; - powerd="false"; - line=1000; // 16.06.13 - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="E", - if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2); - options=remove(options,[#]); - ); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="D", - dig=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="L", // 16.06.13 - line=parse(tmp2); - options=remove(options,[#]); - ); - if(tmp1=="P", - tmp=Toupper(substring(tmp2,0,1)); - if((tmp=="y") % (tmp=="F"),powerd="true"); - options=remove(options,[#]); - ); - if(tmp1=="A", // 2016.02.23 - tmp=Toupper(substring(tmp2,0,1)); - if((tmp=="N") % (tmp=="F"),allflg=0); - options=remove(options,[#]); - ); - ); - wfile=Fhead+name+ext; - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - file=Fhead+name; - cmdM=cmd; - cmdlist=[ - "powerdisp:"+powerd,"display2d:false","linel:"+text(line) //15.11.25,16.06.13 - ]; - forall(1..floor(length(cmdM)/2),nc, //17.5.18 - tmp1=replace(cmdM_(2*nc-1),"`","'");//2016.02.23 - tmp1=replace(tmp1,LFmark,""); // 16.06.12 - if(nc==length(cmdM)/2, - tmp=indexof(tmp1,"="); - tmp1=substring(tmp1,tmp,length(tmp1)); - if(substring(tmp1,0,1)=="[", - tmp=substring(tmp1,0,length(tmp1)-1); - , - tmp="["+tmp1; - ); - tmp2=""; - forall(1..length(tmp1), - if(substring(tmp1,#-1,#+1)=="::", - if(substring(tmp2,0,1)==":", tmp2=substring(tmp2,1,length(tmp2))); - cmdlist=append(cmdlist,"disp("+tmp2+")"); - tmp2=""; - , - tmp2=tmp2+substring(tmp1,#-1,#); - ); - ); - if(length(tmp2)>0, - if(substring(tmp2,0,1)==":", tmp2=substring(tmp2,1,length(tmp2))); - cmdlist=append(cmdlist,"disp("+tmp2+")"); - ); - , - tmp2=cmdM_(2*nc); // list of argments - tmp3=""; - tmp4=""; - add=""; - forall(tmp2,arg, - if(isstring(arg), - if(substring(arg,0,1)!=",", -// tmp=replace(arg,"'",Dq); // 16.03.03 - tmp=arg; // 16.03.03 - tmp=replace(tmp,"`","'");// 2016.02.23 - tmp3=tmp3+tmp+","; - , - add=add+arg; - ); - , - if(!islist(arg), - tmp3=tmp3+textformat(arg,dig)+","; - , - tmp3=tmp3+"["; - tmp4="]"; - forall(arg, - if(isstring(#), -// tmp3=tmp3+Dq+#+Dq+","; - tmp=replace(#,"'",Dq); - tmp3=tmp3+tmp+","; - , - if(!islist(#), - tmp3=tmp3+textformat(#,dig)+","; - , - tmp=textformat(#,dig); - tmp=replace(tmp,"],[","];["); - tmp3=tmp3+tmp+","; - ); - ); - ); - tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+","; - ); - ); - ); - if(length(tmp3)>0, - tmp3=substring(tmp3,0,length(tmp3)-1); - tmp1=tmp1+"("+tmp3+")"+add; - ); - cmdlist=append(cmdlist,tmp1); - ); - ); - cmdlist=append(cmdlist,"closefile()"); - cmdlist=append(cmdlist,"quit()"); - if(wflg==0, - tmp1=load(file+".max"); - if(length(tmp1)==0, - wflg=1; - , - if(indexof(tmp1,"/*##*/")==0, // 15.11.26 - wflg=1; - , - tmp1=tokenize(tmp1,"/*##*/"); - tmp1=tmp1_(1..(length(tmp1)-1)); - tmp=select(tmp1,indexof(#,"writefile")>0); - tmp1=remove(tmp1,tmp); - tmp1=apply(tmp1,substring(#,0,length(#)-1)); - if(length(tmp1)!=length(cmdlist), // 15.12.07 - wflg=1; - , - tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#); - if(length(tmp)>0, wflg=1); - ); - ); - ); - ); - if(wflg==0,wflg=-1); // 15.10.16 - if(wflg==1, - if(length(wfile)>0, // 15.10.05 - SCEOUTPUT=openfile(wfile); - println(SCEOUTPUT,""); - closefile(SCEOUTPUT); - ); - WritetoM(file+".max",cmdlist,allflg); // 2016.02.23 - kcM(file,concat(options,["m"])); - ); - flg=0; - tmp1=floor(waiting*1000/WaitUnit); - repeat(tmp1, - if(flg==0, - tmp1=load(wfile); - if(wflg==1,wait(WaitUnit)); // 2016.02.23 - if(length(tmp1)>0, - tmp=indexof(tmp1,"error")+indexof(tmp1,"syntax"); //2016.02.23 - if(tmp>0, - println("Some error(s) occurred"); //2016.02.24 from - tmp2=tokenize(tmp1,"(%"); - forall(4..length(tmp2),println(tmp2_#)); //2016.02.24 upto - flg=2; //2016.02.23 - , - if(indexof(tmp1,"closefile()")>0, // 15.11.24 - tmp=tokenize(tmp1,"disp("); - tmp1=tmp_(2..length(tmp)); - tmp4=[]; - forall(tmp1,tmp2, - tmp=indexof(tmp2,")"); - tmp3=substring(tmp2,tmp,length(tmp2)); - indL=Indexall(tmp3,"(%i"); // 16.04.26from - tmp0=0; - forall(indL, - if(tmp0==0, - tmp=substring(tmp3,#+2,#+3); - if(indexof("0123456789",tmp)>0,//16.04.25? - tmp3=removespace(substring(tmp3,0,#-1)); - tmp4=append(tmp4,tmp3); - tmp0=1; - ); - );// 16.04.26upto - ); - ); - num="1234567890+-."; - tmp1="["; - forall(tmp4,st, - tmp=select(1..length(st),indexof(num,substring(st,#-1,#))==0); - if((length(tmp)==0) & (length(st)<4), // 16.05.10 16=>4 - tmp1=tmp1+st+","; - , - tmp1=tmp1+Dq+st+Dq+","; - ); - ); - tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; - tmp1=replace(tmp1,".d+0",""); // 15.11.23 - parse(name+"="+tmp1); - tmp=parse(name); - if(length(tmp)==1, - tmp1=substring(tmp1,1,length(tmp1)-1); - parse(name+"="+tmp1); - ); - flg=1; - tmp2=#*WaitUnit/1000; - ); - ); - , - if(wflg==-1, - flg=-1; - , - wait(WaitUnit); - ); - ); - ); - ); - if(flg<=0, - ErrFlag=1; - if(flg==-1, - println(wfile+" does not exist"); - , - tmp="("+text(waiting)+" s )"; - tmp1=load(wfile); - if(length(tmp1)>0, - println(wfile+" incomplete"+tmp); // 2016.02.24 - , - println(wfile+" not generated "+tmp); - ); - ); - , - if(flg==1, // 2016.02.23 - println(" CalcbyM succeeded "+name+" ("+text(tmp2)+" sec)"); - ); - ); -); - -Mxfun(name,fun,argL):=Mxfun(name,fun,argL,[]); -Mxfun(name,fun,argL,optionorg):=( -//help:Mxfun("ca1","diff",["sin(x)^3","x"],[""]); -//help:Mxfun(options=["Pre=6","Disp=y","Load= :: ","Set=::","Add="]); - regional(nm,options,eqL,precise,disp,pack,set,add,cmdL,tmp,tmp1,tmp2); - nm="mx"+name; - options=optionorg; - tmp=divoptions(options); - precise=6; - disp=1; - pack=[]; - set=[]; - add=""; - eqL=tmp_5; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,3)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="PRE", - precise=parse(tmp2); - options=remove(options,[#]); - ); - if((tmp1=="DIS") % (tmp1=="DSP") , - tmp=Toupper(substring(tmp2,0,1)); - if((tmp=="F") % (tmp=="N"), - disp=0; - ); - options=remove(options,[#]); - ); - if((tmp1=="PAC") % (tmp1=="LOA"), // 16.02.08 - pack=tokenize(tmp2,"::"); - options=remove(options,[#]); - ); - if(tmp1=="SET", - set=tokenize(tmp2,"::"); - options=remove(options,[#]); - ); - if(tmp1=="ADD", - add=","+tmp2; - options=remove(options,[#]); - ); - ); - cmdL=[]; - forall(pack, - cmdL=concat(cmdL,["load",[#]]); - ); - forall(set, - cmdL=concat(cmdL,[#,[]]); - ); - if(length(add)>0, - tmp=append(argL,add); - , - tmp=argL; - ); - cmdL=concat(cmdL,[ - "ans"+":"+fun,tmp, - "ans",[] - ]); - CalcbyM(nm,cmdL,options); - if(ErrFlag==0, - if(disp==1, // 15.11.24 - println(nm+" is : "); - println(parse(nm)); - ); - ); - parse(nm); -); - -Mxtex(nm,ex):=Mxtex(nm,ex,[]); -Mxtex(nm,ex,optionorg):=( -//help:Mxtex("1","sin(x)/x"); -//help:Mxtex(options=["Disp=y"]); - regional(name,cmdL,eqL,options,tx,disp,out,set, - tmp,tmp1,tmp2); // 16.01.25 - name="tx"+nm; - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - disp=1; - set=[]; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,3)); - tmp2=substring(#,tmp,length(#)); - if((tmp1=="DIS") % (tmp1=="DSP") , - tmp=Toupper(substring(tmp2,0,1)); - if((tmp=="F") % (tmp=="N"), - disp=0; - ); - options=remove(options,[#]); - ); - if(tmp1=="SET", // 16.03.01 - set=tokenize(tmp2,"::"); - options=remove(options,[#]); - ); - if(tmp1=="ORD", // 16.03.01 - tmp="ordergreat("+tmp2+")"; - set=append(set,tmp); - options=remove(options,[#]); - ); - ); - cmdL=[ - "load",[Dq+"mactex-utilities.lisp"+Dq]]; // 16.03.03 - forall(set, // 16.03.01 - cmdL=concat(cmdL,[#,[]]); - ); - cmdL=concat(cmdL,[ - name+":disp(tex("+ex+"))",[], // 16.01.18 - name,[] // 16.01.18 - ]); - CalcbyM(name,cmdL,options); // 16.02.19 - tx=parse(name); - if(islist(tx), // 16.01.10 - out=tx_1; - , - out=tx; - ); - tmp=indexof(out,"$$")+1; - out=substring(out,tmp,length(out)); - tmp=indexof(out,"$$")-1; - out=substring(out,0,tmp); - if(disp==1, // 16.01.10 - println(name+" is:"); - println(out); - ); - tmp=name+"="+Dq+out+Dq; //16.01.10 - parse(tmp); - out; -); - -MxtexL(nm,exlist):=MxtexL(nm,exlist,[]); // 16.05.27 -MxtexL(nm,exlist,options):=( - regional(out,tmp,tmp1); - out=[]; - forall(1..length(exlist), - tmp=Mxtex(nm+"n"+text(#),exlist_#,["Disp=n"]); - out=append(out,Dq+tmp+Dq); - ); - tmp="tx"+nm+"="+out; - parse(tmp); - println("tx"+nm+"is:"); - apply(out,println(#)); - out; -); - -Mxbatch(file):=( -//help:Mxbatch(["matoperation.max"]); - regional(figL,out,path,tmp,tmp1,tmp2); - if(!islist(file),figL=[file],figL=file); - path=replace(Dirlib+"/maximaL/","\","/"); - out=[]; - forall(figL, - if(indexof(#,".")==0,tmp1=#+".max",tmp1=#); - tmp1=Dq+path+tmp1+Dq; - tmp2=["batch",[tmp1]]; - out=concat(out,tmp2); - ); - out; -); - -Mxload(file):=( //17.06.16 -//help:Mxload(["rkfun.lispp"]); - regional(figL,out,path,tmp,tmp1,tmp2); - if(!islist(file),figL=[file],figL=file); - path=replace(Dirlib+"/maximaL/","\","/"); - out=[]; - forall(figL, - if(indexof(#,".")==0,tmp1=#+".lisp",tmp1=#); - tmp1=Dq+path+tmp1+Dq; - tmp2=["load",[tmp1]]; - out=concat(out,tmp2); - ); - out; -); - -kcV3(fname):=kcV3(Dirwork,fname); -kcV3(path,fname):=( -//help:kcV3(path,"ex.obj"); - regional(tmp,tmp1,tmp2,eqL,strL,filename,flg); - if(indexof(fname,".")==0, - filename=fname+".obj"; - , - filename=fname; - ); - flg=1; - if(flg==1, - tmp1=""; // 15.10.08 from - if(iswindows(), - tmp2=Batparent; - , - tmp2=Shellparent; - ); - tmp=replace(path,"\","/"); - tmp=substring(tmp,length(tmp)-1,length(tmp)); - if(tmp=="/" % tmp=="\", tmp1=path, tmp1=path+"/"); - if(iswindows(), - SCEOUTPUT = openfile("kc.bat"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - tmp=Dq+PathV3+Dq+" "+tmp1+filename; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit"); - closefile(SCEOUTPUT); - println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05 - , - SCEOUTPUT = openfile("kc.sh"); - println(SCEOUTPUT,"#!/bin/sh"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - tmp=Dq+PathV3+Dq+" "+tmp1+filename; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05 - ); - wait(WaitUnit); - ); - if(fig==2, - println("Obj file not exist / imperfect"); - ); -); - -Changeobjscale(fname):=Changeobjscale(ULEN,fname,fname,[]); -Changeobjscale(fname,Arg):=( - if(islist(Arg), - Changeobjscale(ULEN,fname,fname,Arg); - , - Changeobjscale(ULEN,fname,Arg,[]); - ); -); -Changeobjscale(Arg1,Arg2,Arg3):=( - if(islist(Arg3), - Changeobjscale(ULEN,Arg1,Arg2,Arg3); - , - Changeobjscale(Arg1,Arg2,Arg3,[]); - ); -); -Changeobjscale(unitlen,fnameorg,foutorg,optionorg):=( -//help:Changeobjscale("20mm",fnamei,fmediate); -//help:Changeobjscale(options=["Unit=mm",[0,0,0]]); - regional(fname,fout,fmd,unit,val,options,eqL,reL, - origin,outunit,sc,stL,nn,tmp,tmp1,tmp2); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; - outunit="IN"; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=Toupper(substring(#,tmp,length(#))); - if(tmp1=="O" % tmp1=="U", - outunit=tmp2; - options=remove(options,[#]); - ); - ); - options=remove(options,reL); - origin=[0,0,0]; - forall(reL, - if(islist(#),origin=#); - ); - options=remove(options,reL); - tmp1=".0123456789+-*/"; - unit=""; - val=1; - tmp2=0; - forall(reverse(1..length(unitlen)), - tmp=substring(unitlen,#-1,#); - if(tmp2==0, - if(indexof(tmp1,tmp)>0, - tmp2=#; - ); - ); - unit=substring(unitlen,tmp2,length(unitlen)); - unit=removespace(unit); - val=parse(substring(unitlen,0,tmp2)); - ); - sc=1; - if(unit=="cm",sc=1); - if(unit=="mm",sc=0.1); - if(unit=="in",sc=2.54); - sc=sc*val; - if(outunit=="IN",sc=sc/2.54); - if(outunit=="MM",sc=sc*10); - fname=fnameorg; - if(indexof(fname,".")==0,fname=fname+".obj"); - fmd=replace(fname,".obj",".txt"); - fout=foutorg; - if(indexof(fout,".")==0,fout=fout+".obj"); - tmp1=Textformat(origin,4); - tmp1=replace(tmp1,",",";"); - cmdL=[ - "Origin="+tmp1+";",[], - "Sc="+format(sc,6)+";",[], - "Stv=mgetl",[Dq+fname+Dq], - "for nn=1:size(Stv,1),Tmp=Stv(nn);",[], - " if part(Tmp,1:2)=='v ' then,Tmp=tokens(Tmp,' ');",[], - " Tmp=evstr(Tmp(2:4));",[], - " Tmp=Origin+Sc*(Tmp-Origin);",[], - " Tmp='v '+msprintf('%7.4f %7.4f %7.4f',Tmp(1),Tmp(2),Tmp(3));",[], - " Stv(nn,1)=Tmp;",[], - " end;",[], - "end;",[], - "mputl",["Stv",Dq+fout+Dq], - "mputl",["['finished////']",Dq+fmd+Dq] - ]; - options=concat(["Wait=3","Cat=n","File="+fmd],options); // 16.06.26 - CalcbyS("cs",cmdL,options); - println("Scale of "+fname+" changed"); -); - -Mkviewobj(fname,cmdL):=Mkviewobj(Dirwork,fname,cmdL,[]); -Mkviewobj(Arg1,Arg2,Arg3):=( - if(!isstring(OCNAME), //17.04.13from - drawtext(mouse().xy,"Mkobjcmd not defined", - size->24,color->[1,0,0]); - , //17.04.13upto - if(islist(Arg2), - Mkviewobj(Dirwork,Arg1,Arg2,Arg3); - , - Mkviewobj(Arg1,Arg2,Arg3,[]); - ); - ); -); -Mkviewobj(pathorg,fnameorg,cmdLorg,optionorg):=( -//help:Mkviewobj(fname,cmdlist); -//help:Mkviewobj(fname,[]); -//help:Mkviewobj(path,fname,cmdlist); -//help:Mkviewobj(options=["M/R","V","Unit=in","Wait=5"]); - regional(path,cmdL,eqL,strL,flg,fname,options,make,view,cmdlist, - vtx,face,unit,tmp,tmp1,tmp2); - path=replace(pathorg,"\","/"); - if(substring(path,length(path)-1,length(path))!="/",path=path+"/"); - fname=fnameorg; - if(indexof(fname,".")==0,fname=fname+".obj"); - cmdL=cmdLorg; - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - strL=tmp_7; - make=-1; - view=0; - unit=""; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="M", - tmp2=Toupper(substring(tmp2,0,1)); - if(tmp2=="N" % tmp2=="F", - make=0; - ); - options=remove(options,[#]); - ); - if(tmp1=="V", - tmp2=Toupper(substring(tmp2,0,1)); - if(tmp2=="N" % tmp2=="F", - view=0; - ); - options=remove(options,[#]); - ); - if(tmp1=="U", // 16.06.30from - unit=tmp2; - options=remove(options,[#]); - ); // 16.06.30upto - ); - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - make=1; - options=remove(options,[#]); - ); - if(tmp=="R", - make=0; - options=remove(options,[#]); - ); - if(tmp=="V", - view=1; - options=remove(options,[#]); - ); - ); - if(islist(cmdL), - if(length(cmdL)==0, - make=0; - println("Command sequence not defnamed"); - ); - , - make=0; - println("Command sequence not defined"); - ); - if(make==-1, - setdirectory(pathorg); - tmp1=load(fname); - if(length(tmp1)==0,make=1,make=0); - setdirectory(Dirwork); - ); - if(make==1, - if(isstring(cmdL_1), - cmdlist=MkprecommandS(); // 16.04.23 - cmdlist=concat(cmdlist,["Openobj",[Dq+path+fname+Dq]]); - cmdlist=concat(cmdlist,cmdL); - tmp=["Closeobj()",[],"ans="+Dq+"||||"+Dq,[]];//16.12.26 - cmdlist=concat(cmdlist,tmp); - tmp=append(options,"Cat=y"); - tmp1=apply(tmp,Toupper(substring(#,0,1))); // 16.04.23from - tmp1=select(tmp1,#=="W"); - if(length(tmp1)==0, - tmp=append(tmp,"Wait=5"); - );// 16.04.23upto - CalcbyS("ans",cmdlist,tmp); - wait(WaitUnit*100); // 16.03.18 - , - vtx=cmdL_1; - face=cmdL_2; - setdirectory(pathorg); - SCEOUTPUT = openfile(fname); - forall(vtx,tmp1, - tmp2=tmp1; - if(ispoint(tmp1), - tmp2=parse(text(tmp1)+"3d"); - ); - tmp2=apply(tmp2,format(#,5)); - tmp="v "+tmp2_1+" "+tmp2_2+" "+tmp2_3; - println(SCEOUTPUT,tmp); - ); - forall(face,tmp1, - tmp="f"; - forall(tmp1, - tmp=tmp+" "+text(#); - ); - println(SCEOUTPUT,tmp); - ); - closefile(SCEOUTPUT); - setdirectory(Dirwork); - ); - ); - if(length(unit)>0, // 16.06.30from - Changeobjscale(fname,["Unit="+unit]);//16.10.04 - ); // 16.06.30upto - if(view==1, - flg=0; // 16.03.14 from - if(isstring(ViewFile), - if(ViewFile==fname,flg=1); - ); - if(flg==0, - kcV3(path,fname); - ViewFile=fname; - ); // 16.03.14 upto - ); -); - -SetObj(str):=Objname(str,["m","v"]); //17.01.12 -SetObj(str,options):=Objname(str,options); //17.01.12 -Objnameoptions(str,options):=Objname(str,options);// 16.11.29 -Objname(str):=Objname(str,["m","v"]); // 16.11.29 -Objname(str,options):=( -//help:Objname("sample"); -//help:Objname(options=["m","v"]); -//help:Setobj("sample"); -//help:Setobj(options=["m","v"]); - if(length(str)>0, - OCNAME=str; - ); - OCOPTION=options; - println([OCNAME,OCOPTION]); -); - -Mkobjcmd(nm,fd):=Mkobjcmd(nm,fd,[40,40,"+"]); -Mkobjcmd(nm,fd,options):=( -//help:Mkobjcmd("1",fd,[40,40,"+"]); - regional(ffd,cmd,out,div1,div2,side, - reL,stL,tmp,tmp1,tmp2,tmp3,tmp4); - div1=40; - div2=40; - side="+"; - tmp=Divoptions(options); - reL=tmp_6; - stL=select(tmp_7,length(#)>0); - forall(1..length(reL), - if(#==1, - div1=reL_1; - div2=div1; - , - div2=reL_2; - ); - ); - forall(stL, - side=#; - ); - side="'"+side+"'"; - ffd=Fullformfunc(fd); - tmp=indexof(ffd_5,"="); - tmp1=substring(ffd_5,0,tmp-1); - tmp2=substring(ffd_5,tmp,length(ffd_5)); - tmp=indexof(ffd_6,"="); - tmp3=substring(ffd_6,0,tmp-1); - tmp4=substring(ffd_6,tmp,length(ffd_6)); - out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]]; - tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]"; - out=concat(out,[tmp,[]]); - out=concat(out,["endfunction",[]]); - tmp1=["Objsurf", - ["Fun"+nm,tmp2,tmp4,div1,div2,side]]; - out=concat(out,tmp1); - tmp2=[]; // 16.06.10from - forall(out,tmp1, - if(islist(tmp1), - tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5))); - , - if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5)); - ); - tmp2=append(tmp2,tmp); - ); - parse("oc"+nm+"="+tmp2); - println("cmd seq oc"+nm+" generated"); // 16.06.10upto - OBJCMD=concat(OBJCMD,out);//16.11.29 - out; -); - -Mkobjnrm(nm,fd):=Mkobjnrm(nm,fd,[]); -Mkobjnrm(nm,fd,optionorg):=( -//help:Mkobjnrm("1",fd1,["Disp=y"]); -//help:Mkobjnrm("1","[x,y,x*y/(x^2+y^2)],x,y"); - regional(name,options,stL,eqL,disp,ffd,fst,xst,yst,cmdL, - precmd,out,tmp,tmp1,tmp2,tmp3); - name="nrm"+nm; - options=select(optionorg,length(#)>0); - tmp=Divoptions(options); - eqL=tmp_5; - stL=tmp_7; - precmd=[]; - disp="N"; - forall(eqL, // 16.05.02 - tmp1=Toupper(substring(#,0,1)); - tmp=indexof(#,"="); - tmp2=Toupper(substring(#,tmp,tmp+1)); - if(tmp1=="D", - if(tmp2=="Y" % tmp2=="T", - disp="Y"; - options=remove(options,[#]); - ); - ); - ); - forall(stL, - if(indexof(#,"+")+indexof(#,"-")==0, - precmd=concat(precmd,[#,[]]); - options=remove(options,[#]); - ); - ); - if(isstring(fd), - tmp=Indexall(fd,","); - fst=[ - substring(fd,1,tmp_1-1), - substring(fd,tmp_1,tmp_2-1), - substring(fd,tmp_2,tmp_3-2) - ]; - xst=substring(fd,tmp_3,tmp_4-1); - yst=substring(fd,tmp_4,length(fd)); - , - ffd=Fullformfunc(fd); - fst=text(ffd_(2..4)); - tmp=indexof(ffd_5,"="); - xst=substring(ffd_5,0,tmp-1); - tmp=indexof(ffd_6,"="); - yst=substring(ffd_6,0,tmp-1); - ); - cmdL=precmd; - cmdL=concat(cmdL,[ - "fx:diff",[fst,xst], - "fy:diff",[fst,yst], - "nx:fx[2]*fy[3]-fx[3]*fy[2]",[], - "ny:fx[3]*fy[1]-fx[1]*fy[3]",[], - "nz:fx[1]*fy[2]-fx[2]*fy[1]",[], - "nn:factor(nx^2+ny^2+nz^2)",[], // 16.04.21 - "nn:sqrt(nn)",[], // 16.04.20 - "nx:nx/nn",[], - "ny:ny/nn",[], - "nz:nz/nn",[], - "n:[nx,ny,nz]",[], // 16.04.21from - "n:ratsimp(n)",[], - "n:trigsimp(n)",[], - "n:factor(n)",[], // 16.04.21upto - "n",[] - ]); - CalcbyM(name,cmdL,options); // 16.05.12 - tmp1=parse(name); // 16.05.12 - out=[tmp1]; // 15.04.21b from - tmp2=[]; - forall(1..3, - tmp=indexof(tmp1,","); - if(tmp==0, - tmp=indexof(tmp1,"]"); - ); - tmp3=substring(tmp1,0,tmp-1); - tmp1=substring(tmp1,tmp,length(tmp1)); - tmp=indexof(tmp3,"/"); - if(tmp>0, - tmp3=substring(tmp3,tmp,length(tmp3)); - tmp2=append(tmp2,tmp3); - , - tmp2=append(tmp2,"1"); - ); - ); -// out=append(out,tmp2); - out=out_1; // 16.05.02from - println("calculate "+name+":"); // 16.05.12 - if(disp=="Y", // 16.05.02 - println(out); - // println(out_2); - ); // 16.05.02upto - out; -); - -Mkobjthickcmd(nm,fd):=Mkobjthickcmd(nm,fd,"",[40,40,"+"]); -Mkobjthickcmd(nm,fd,Arg):=( - if(islist(Arg), - Mkobjthickcmd(nm,fd,"",Arg); - , - Mkobjthickcmd(nm,fd,Arg,[]); - ); -); -Mkobjthickcmd(nm,fd,fnrm,optionorg):=( -//help:Mkobjthickcmd("1",fd,["assume(R>0)"]); -//help:Mkobjthickcmd("1",fd,fnorm); -//help:Mkobjthickcmd(options1=[40,40,0.05,-0.05,"+n+s+e+w+"]); -//help:Mkobjthickcmd(options2=["ratsimp","trigsimp"]); - regional(options,ffd,cmd,out,div1,div2,thick1,thick2,side, - reL,stL,addcmd,fst,xst,yst,tmp,tmp1,tmp2,tmp3,tmp4); - div1=40; - div2=40; - thick1=0.05; - thick2=-0.05; - side="+n+s+e+w+"; - options=select(optionorg,length(#)>0); - tmp=Divoptions(options); - reL=tmp_6; - stL=tmp_7; - tmp1=1; // 16.04.21from - tmp2=1; - forall(1..length(reL), - tmp=reL_#; - if(tmp>1, - if(tmp1==1, - div1=tmp; - div2=tmp; - , - div2=tmp; - ); - tmp1=tmp1+1; - , - if(tmp2==1, - thick1=tmp; - thick2=-tmp; - , - thick2=tmp; - ); - tmp2=tmp2+1; - ); - ); // 16.04.21upto - options=remove(options,reL); - forall(stL, - if(length(#)>0, - tmp=indexof(#,"+")+indexof(#,"-"); - if(tmp>0, - side=#; - options=remove(options,[#]); - ); - ); - ); - side="'"+side+"'"; - ffd=Fullformfunc(fd); - tmp=indexof(ffd_5,"="); - tmp1=substring(ffd_5,0,tmp-1); - tmp2=substring(ffd_5,tmp,length(ffd_5)); - tmp=indexof(ffd_6,"="); - tmp3=substring(ffd_6,0,tmp-1); - tmp4=substring(ffd_6,tmp,length(ffd_6)); - fst=text(ffd_(2..4)); - tmp=indexof(ffd_5,"="); - xst=substring(ffd_5,0,tmp-1); - tmp=indexof(ffd_6,"="); - yst=substring(ffd_6,0,tmp-1); - out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]]; - tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]"; - out=concat(out,[tmp,[]]); - out=concat(out,["endfunction",[]]); - tmp=["function Out=Fnrm"+nm+"("+xst+","+yst+")",[]]; - out=concat(out,tmp); - if(fnrm=="", - tmp=Mkobjnrm(nm,fd,options); - tmp1="Out="+tmp; // 16.05.17 - tmp="Fnrmden"+nm+"("+xst+","+yst+"):="+tmp_2; - parse(tmp); - , -// tmp1=" Out="+fnrm; // 16.04.30 - tmp1=fnrm; // 16.04.30 - if(indexof(tmp1,"Out=")==0, // 16.05.09from - tmp1="Out="+tmp1; - ); // 16.05.09upto - ); - out=concat(out,[tmp1,[]]); - out=concat(out,["endfunction",[]]); - tmp1=["Objthicksurf", - ["Fun"+nm,tmp2,tmp4,div1,div2,"Fnrm"+nm,thick1,thick2,side]]; - out=concat(out,tmp1); - tmp2=[]; // 16.06.10from - forall(out,tmp1, - if(islist(tmp1), - tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5))); - , - if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5)); - ); - tmp2=append(tmp2,tmp); - ); - parse("oc"+nm+"="+tmp2); - println("cmd seq oc"+nm+" generated"); // 16.06.10upto - OBJCMD=concat(OBJCMD,out);//16.11.29 - out; -); - -Mkobjpolycmd(nm,pd):=Mkobjpolycmd(nm,pd,[]); -Mkobjpolycmd(nm,pd,optionorg):=( -//help:Mkobjpolycmd("1",pd); -//help:Mkobjpolycmd(options1=[internal([0,0,0])]); - regional(options,cmd,out,thick1,thick2,origin, - reL,stL,vtx,face,pt1,pt2,pt3,tmp,tmp1,tmp2); - thick1=0; - thick2=-0; - origin=[0,0,0]; - options=select(optionorg,length(#)>0); - tmp=Divoptions(options); - reL=tmp_6; - stL=tmp_7; - tmp1=1; - forall(1..length(reL), - tmp=reL_#; - if(islist(tmp), - origin=tmp; - , - if(tmp1==1, - thick1=tmp; - thick2=-tmp; - , - thick2=tmp; - ); - tmp1=tmp1+1; // 16.07.08 - ); - ); - options=remove(options,reL); - forall(stL, - tmp=indexof(#,"+")+indexof(#,"-"); - if(tmp>0, - side=#; - options=remove(options,[#]); - ); - ); - vtx=pd_1; //16.04.23from - if(length(pd)==2,face=pd_2,face=pd_3); - if(isstring(vtx),vtx=parse(vtx)); - vtx=apply(vtx,if(isstring(#),parse(#),#)); // 16.06.18 - if(isstring(face),face=parse(face)); - forall(1..length(face), - tmp=face_#; - pt1=vtx_(tmp_1);// 16.06.18 - pt2=vtx_(tmp_2);// 16.06.18 - pt3=vtx_(tmp_(length(tmp)));// 16.06.18 - tmp1=Crossprod(pt2-pt1,pt3-pt1); - tmp2=Dotprod(tmp1,pt1-origin); - if(tmp2<0, - face_#=reverse(face_#); - ); - ); - out=["Objpolyhedron",[vtx,face]]; - tmp2=[]; // 16.06.10from - forall(out,tmp1, - if(islist(tmp1), - tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5))); - , - if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5)); - ); - tmp2=append(tmp2,tmp); - ); - parse("oc"+nm+"="+tmp2); - println("cmd seq oc"+nm+" generated"); // 16.06.10upto - OBJCMD=concat(OBJCMD,out);//16.11.29 - out; -); - -Mkobjplatecmd(nm,pd):=Mkobjplatecmd(nm,pd,[]); -Mkobjplatecmd(nm,pdorg,optionorg):=( // 16.06.18 -//help:Mkobjplatecmd("1",pd); -//help:Mkobjplatecmd("1",vtxlist); -//help:Mkobjplatecmd(options1=[0.05,-0.05]); - regional(pd,options,cmd,out,thick1,thick2,nn,pdn, - reL,vtx,face,nv,npttmp,tmp1,tmp2,tmp3); - pd=pdorg; - if(MeasureDepth(pd)==1,pd=[pd]); - if(MeasureDepth(pd)==2,pd=[pd]);//16.10.04from - forall(1..length(pd),nn, // 16.06.19from - pdn=pd_nn; - vtx=pdn_1; - if(length(pdn)==1,face=[1..(length(vtx))],face=pdn_2); - vtx=apply(vtx,if(isstring(#),parse(#),#)); - vtx=apply(vtx,if(ispoint(#),parse(text(#)+"3d"),#)); - pd_nn=[vtx,face];//16.10.04upto - ); // 16.06.19upto - thick1=0.05; - thick2=-0.05; - options=select(optionorg,length(#)>0); - tmp=Divoptions(options); - reL=tmp_6; - tmp1=1; - forall(1..length(reL), - tmp=reL_#; - if(tmp1==1, - thick1=tmp; - thick2=-tmp; - , - thick2=tmp; - ); - tmp1=tmp1+1;// 16.07.08 - ); - options=remove(options,reL); - out=[]; - forall(1..length(pd),npd, - forall(pd_npd_2,face, - vtx=apply(face,pd_npd_1_#); - npt=length(vtx); - tmp1=vtx_1; - tmp2=vtx_2; - tmp3=vtx_npt; - tmp=Crossprod(tmp2-tmp1,tmp3-tmp1); - nv=tmp/Dist3d(tmp); - tmp1=apply(vtx,#+thick1*nv); - tmp2=apply(vtx,#+thick2*nv); - vtx=concat(tmp1,tmp2); - tmp=apply(1..npt,#+npt); - tmp2=[1..npt,reverse(tmp)]; - tmp=apply(1..(npt-1),[#,#+npt,#+npt+1,#+1]); - tmp2=concat(tmp2,tmp); - tmp=[npt,npt+npt,1+npt,1]; - tmp2=append(tmp2,tmp); - out=concat(out,["Objpolyhedron",[vtx,tmp2]]); - ); - ); - tmp3="["; // 16.06.10from - forall(out,tmp1, - tmp2=""; - if(isstring(tmp1), - tmp2=tmp2+Dq+tmp1+Dq+",["; - , - tmp2=tmp2+Textformat(tmp1_1,5)+","; - tmp2=tmp2+Textformat(tmp1_2,5)+"],"; - ); - tmp3=tmp3+tmp2; - ); - tmp3=substring(tmp3,0,length(tmp3)-1)+"]"; - parse("oc"+nm+"="+tmp3); - println("cmd seq oc"+nm+" generated"); - OBJCMD=concat(OBJCMD,out);//16.11.29 - out; -); - -Mkobjcrvcmd(nm,pst):=Mkobjcrvcmd(nm,pst,[]); -Mkobjcrvcmd(nm,pstorg,options):=( -//help:Mkobjcrvcmd("1","sc3d1",[0.02,6,"xy"]); - regional(cmd,out,thick,poly,dir,phead,pst, - reL,stL,tmp,tmp1,tmp2,tmp3,tmp4,flg); - thick=0.02; - poly=6; - dir="xy"; - tmp=Divoptions(options); - reL=tmp_6; - stL=select(tmp_7,length(#)>0); - forall(1..length(reL), - if(#==1, - thick=reL_1; - , - poly=reL_2; - ); - ); - forall(stL, - dir=#; - ); - dir="'"+dir+"'"; - tmp=indexof(pstorg,"_"); - if(tmp==0, - phead=pstorg; - , - phead=substring(pstorg,0,tmp-1); - ); - pst=pstorg; - out=[]; - tmp1=select(GLIST,indexof(#,phead+"=")>0); - if(length(tmp1)==0, println(phead+" incorrect")); -// out=[tmp1_1,[]]; - out=[]; - tmp1=parse(pst); - flg=0; // 16.04.23from - if(MeasureDepth(tmp1)==2,flg=1); - if(MeasureDepth(tmp1)==0, - if(islist(tmp1),flg=1); - ); - if(flg==1, // 16.04.23upto - if(!isstring(tmp1_1), - forall(1..length(tmp1), - tmp=["Objcurve",[pst+"("+text(#)+")",thick,poly,dir]]; - out=concat(out,tmp); - ); - , - forall(1..length(tmp1), // 16.11.14from - tmp=["Objcurve",[tmp1_#,thick,poly,dir]]; - out=concat(out,tmp); - );// 16.11.14upto - ); - , - tmp1=Chunderscore(pst); - tmp=["Objcurve",[tmp1,thick,poly,dir]]; - out=concat(out,tmp); - ); - tmp2=[]; // 16.06.10from - forall(out,tmp1, - if(islist(tmp1), - tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5))); - , - if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5)); - ); - tmp2=append(tmp2,tmp); - ); - parse("oc"+nm+"="+tmp2); - println("cmd seq oc"+nm+" generated"); // 16.06.10upto - OBJCMD=concat(OBJCMD,out);//16.11.29 - out; -); - -Mkobjsymbcmd(symb,size,rot,dir,pos):= - Mkobjsymbcmd("",symb,size,rot,dir,pos,[]); -Mkobjsymbcmd(Ar1,Ar2,Ar3,Ar4,Ar5,Ar6):=( - if(isstring(Ar2), - Mkobjsymbcmd(Ar1,Ar2,Ar3,Ar4,Ar5,Ar6,[]); - , - Mkobjsymbcmd("",Ar1,Ar2,Ar3,Ar4,Ar5,Ar6); - ); -); -Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=( -//help:Mkobjsymbcmd("x",0.5,0,V3d,A3d); -//help:Mkobjsymbcmd("P",0.5,0,V3d,A3d); -//help:Mkobjsymbcmd(options=[0.05,4,"'yz'"]); - regional(symb,options,opbez,eqL,reL,stL,dtL,dt, - alpha,Alpha,out,mx,Mx,my,My,center,tmp,tmp1,tmp2); - alpha="abcdefghijklmnopqrstuvwxyz"; - Alpha=Toupper(alpha); - symb=symborg; - options=optionorg; - opbez=["nodisp"]; - tmp=Divoptions(options); - eqL=tmp_5; - reL=tmp_6; - stL=tmp_7; - opbez=concat(opbez,eqL); - options=remove(options,eqL); - tmp1=[0.05,4,"'yz'"]; - if(length(reL)==0, - options=concat(options,tmp1_(1..2)); - ); - if(length(reL)==1, // debugged 16.06.18 - options=concat(options,[tmp1_2]); - ); - if(length(stL)==0, - options=concat(options,[tmp1_3]); - ); - tmp=parse(symb); - if(islist(tmp), - tmp1=select(GLIST,substring(#,0,length(symb))==symb); - tmp1=tmp1_1; - out=[tmp1,[]]; - dtL=symb; - , - tmp=substring(symb,0,1); - if(tmp>="a" & tmp<="z",tmp1=tmp+"s"); - if(tmp>="A" & tmp<="Z", - tmp=indexof(Alpha,tmp); - tmp=substring(alpha,tmp-1,tmp); - tmp1=tmp+"c"; - ); - if(length(symb)==1, - if(symb>"Z", - symb=tmp1+"i"; - , - symb=tmp1+"r"; - ); - ); - if(length(symb)==2,symb=tmp1+substring(symb,1,2)); - out=[]; - if(length(path)>0, // 16.04.23from - setdirectory(path); - , -// tmp=Dirhead+"/ketsample/samples/s13meshlab/fontF"; - tmp=Dirhead+"/data/fontF"; // 16.05.10 - setdirectory(tmp); - ); // 16.04.23upto - dtL=Readbezier(symb,opbez); - setdirectory(Dirwork); - forall(dtL,dt, - tmp=dt+"="; - tmp1=select(GLIST,indexof(#,tmp)>0); - tmp1=tmp1_1; - out=concat(out,[tmp1,[]]); - ); - mx=100;Mx=-100;my=100;My=-100; - forall(dtL,dt, - tmp=apply(parse(dt),#_1); - mx=min(append(tmp,mx)); - Mx=max(append(tmp,Mx)); - tmp=apply(parse(dt),#_2); - my=min(append(tmp,my)); - My=max(append(tmp,My)); - ); - center=[(mx+Mx)/2,(my+My)/2]; - tmp1=[]; - forall(dtL,dt, - Rotatedata(dt,dt,rot,[center,"nodisp"]); // 16.04.23 - Translatedata(dt,"rt"+dt,-center,["nodisp"]); - tmp1=append(tmp1,"tr"+dt); - ); - dtL=tmp1; - forall(dtL,dt, - tmp=dt+"="; - tmp1=select(GLIST,indexof(#,tmp)>0); - tmp1=tmp1_1; - out=concat(out,[tmp1,[]]); - ); - ); - tmp1=text(options); - tmp1=substring(tmp1,1,length(tmp1)-1); - out=concat(out,[ - "Sd=Symb3data",[dtL,size,0,dir,pos], // 16.04.23 - "Objsymb(Sd,"+tmp1+")",[] - ]); - tmp2=[]; // 16.06.10from - forall(out,tmp1, - if(islist(tmp1), - tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5))); - , - if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5)); - ); - tmp2=append(tmp2,tmp); - ); - parse("oc"+symborg+"="+tmp2); - println("cmd seq oc"+symborg+" generated"); // 16.06.10upto - OBJCMD=concat(OBJCMD,out);//16.11.29 - out; -); - -Concatcmd(cmdlist):=( -//help:Concatcmd([cmdL1,cmdL2]); - regional(out); - out=[]; - forall(cmdlist, - out=concat(out,#); - ); - out; -); - -WritetoF(fname,cmdL):=( -// help:WritetoF("outdata",cmdL); - regional(tmp,tmp1,tmp2,filename,wfilename); - if(indexof(fname,".")==0, - filename=fname+".input"; - , - filename=fname; - ); - wfilename=replace(filename,".input",".txt"); - SCEOUTPUT = openfile(filename); - forall(1..(length(cmdL)), - tmp1=cmdL_#; - if(substring(tmp1,0,1)=="[", - tmp1=tmp1+" --##"; - println(SCEOUTPUT,tmp1); - , - println(SCEOUTPUT,tmp1); - println(SCEOUTPUT," --##"); - ); - ); - closefile(SCEOUTPUT); -); - -kcF(fname):=kcF(fname,[]); -kcF(fname,optionorg):=( - regional(options,tmp,tmp1,tmp2,eqL,strL, - filename,wfile,flg); - if(indexof(fname,".")==0, - filename=fname+".input"; - , - filename=fname; - ); - wfile=replace(filename,".input",".sfort"); - options=optionorg; - tmp=Divoptions(options); - eqL=tmp_5; - strL=tmp_7; - forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,0,tmp-1); - tmp2=substring(#,tmp,length(#)); - ); - flg=0; - forall(strL, - if(Toupper(substring(#,0,1))=="R", - flg=0; - options=remove(options,[#]); - ); - if(Toupper(substring(#,0,1))=="M", - flg=1; - ); - ); - if(flg==0, - tmp2=replace(filename,".input",".sfort"); - tmp1=load(tmp2); - if(length(tmp1)==0, - flg=1; - ); - ); - if(flg==1, - tmp1=""; - if(iswindows(), - tmp2=Batparent; - , - tmp2=Shellparent; - ); - flg=0; - forall(reverse(1..length(tmp2)), - if(flg==0, - tmp=substring(tmp2,#-1,#); - if(tmp=="/" % tmp=="\", // 14.01.15 - tmp1=substring(tmp2,0,#-1); - tmp2=substring(tmp2,#,length(tmp2)); - flg=1; - ); - ); - ); - if(length(tmp1)>0, - setdirectory(tmp1); - ); - if(iswindows(), -// SCEOUTPUT=openfile(wfile); -// println(SCEOUTPUT,""); -// closefile(SCEOUTPUT); - SCEOUTPUT = openfile("kc.bat"); - tmp=Dq+PathF+"\bash"+Dq+" --login -i -c "+Dq+"/cygdrive/"; - tmp1=replace(Dirwork,"\","/"); - if(indexof(tmp1,":")==0, - tmp=tmp+"c/"+tmp1+"/kc.sh"+Dq; - , - tmp1=replace(tmp1,":",""); - tmp=tmp+tmp1+"/kc.sh"+Dq; - ); - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - SCEOUTPUT = openfile("kc.sh"); - Lf=unicode("10",base->10); - print(SCEOUTPUT,"#!/bin/sh"+Lf); - tmp1=replace(Dirwork,"\","/"); - if(indexof(tmp1,":")==0, - tmp="cd "+Dq+"/cygdrive/c/"+tmp1+Dq; - , - tmp1=replace(tmp1,":",""); - tmp="cd "+Dq+"/cygdrive/"+tmp1+Dq; - ); - print(SCEOUTPUT,tmp+Lf); - tmp=Dq+"/opt/fricas/bin/fricas"; - tmp=tmp+Dq+" -nox -eval "; - tmp=tmp+Dq+")read "+filename+Dq; -// tmp=tmp+" > "+Dq+wfile+Dq; - print(SCEOUTPUT,tmp+Lf); - print(SCEOUTPUT,"exit 0"+Lf); - closefile(SCEOUTPUT); - println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05 - , - SCEOUTPUT = openfile("kc.sh"); - println(SCEOUTPUT,"#!/bin/sh"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - tmp=Dq+PathF+Dq+" -nox -eval "+Dq+")read "+filename+Dq; -// tmp=tmp+" > "+wfile; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05 - ); - setdirectory(Dirwork); - ); -); - -CalcbyF(name,cmd):=CalcbyM(name,cmd,[]); -CalcbyF(name,cmd,optionorg):=( -//help:CalcbyF("a",cmdL); -//help:CalcbyF(options= ["m/r","Wait=5"]]); - regional(options,tmp,tmp1,tmp2,tmp3,tmp4,strL,eqL, - flg,wflg,file,nc,arg,cmdF,cmdlist,wfile,Alpha, - waiting,num,dig,varlist); - options=optionorg; - tmp=divoptions(options); - eqL=tmp_5; - strL=tmp_7; - waiting=5; - dig=5; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,1)); - tmp2=substring(#,tmp,length(#)); - if(tmp1=="W", - waiting=parse(tmp2); - options=remove(options,[#]); - ); - ); - file=Fhead+name+".input"; - wfile=Fhead+name+".sfort"; - wflg=0; - forall(strL, - tmp=Toupper(substring(#,0,1)); - if(tmp=="M", - wflg=1; - options=remove(options,[#]); - ); - if(tmp=="R", - wflg=-1; - options=remove(options,[#]); - ); - ); - cmdF=cmd; - tmp1=")set breakmode quit"; - tmp2=")set output fortran on"; - tmp3=")set fortran precision single"; - cmdlist=[tmp1,tmp2,tmp3]; - tmp=")set output fortran "+wfile; - cmdlist=append(cmdlist,tmp); - forall(1..floor(length(cmdF)/2),nc, //17.5.18 - tmp1=cmdF_(2*nc-1); - tmp1=replace(tmp1,LFmark,""); // 16.06.12 - tmp2=cmdF_(2*nc); // list of argments - if(nc<length(cmdF)/2, - tmp3=""; - forall(tmp2,arg, - if(isstring(arg), - tmp3=tmp3+arg+","; - , - tmp3=tmp3+textformat(arg,dig)+","; - ); - ); - if(length(tmp3)>0, - tmp3=tmp1+ - "("+substring(tmp3,0,length(tmp3)-1)+")"; - , - tmp3=tmp1; - ); - cmdlist=append(cmdlist,tmp3); - , - if(indexof(tmp1,"::")==0, - varlist=[tmp1]; - , - varlist=tokenize(tmp1,"::"); - ); - forall(varlist, - cmdlist=append(cmdlist,"["+#+"]"); - ); - ); - ); - cmdlist=concat(cmdlist,["111111*1",")quit"]); - if(wflg==0, - tmp1=load(file); - if(length(tmp1)==0, - wflg=1; - , - if(indexof(tmp1," --##")==0, // 15.11.26 - wflg=1; - , - tmp1=tokenize(tmp1," --##"); - tmp1=tmp1_(1..(length(tmp1)-1)); - if(length(tmp1)!=length(cmdlist), - wflg=1; - , - tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#); - if(length(tmp)>0, wflg=1); - ); - ); - ); - ); - if(wflg==0,wflg=-1); - if(wflg==1, - if(length(wfile)>0, - SCEOUTPUT=openfile(wfile); - println(SCEOUTPUT,""); - closefile(SCEOUTPUT); - ); - WritetoF(file,cmdlist); - kcF(file,concat(options,["m"])); - ); - Alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZ"; - flg=0; - tmp1=floor(waiting*1000/WaitUnit); - repeat(tmp1, - if(flg==0, - tmp1=load(wfile); - if(wflg==1,wait(WaitUnit)); - tmp=indexof(tmp1,"Error")+indexof(tmp1,"find"); - if(tmp>0, - println("Some error(s) occurred"); - tmp=tokenize(tmp1," --##"); - forall(tmp, - if(indexof(#,"Error")+indexof(#,"find")>0, - println(tmp_(length(tmp))); - ); - ); - flg=2; - ); - if(indexof(tmp1,"111111")>0, - tmp1=replace(tmp1," &",""); - tmp3="["; - forall(1..length(varlist), - tmp=indexof(tmp1,"["+varlist_#+"]"); - tmp1=substring(tmp1,tmp,length(tmp1)); - tmp=indexof(tmp1,"(1)="); - tmp1=substring(tmp1,tmp+3,length(tmp1)); - tmp=indexof(tmp1," "); - tmp3=tmp3+Dq+substring(tmp1,0,tmp-1)+Dq+","; - ); - tmp3=replace(tmp3,"**","^"); - tmp3=replace(tmp3,".0",""); - tmp4=""; - forall(1..length(tmp3), - tmp=substring(tmp3,#-1,#); - tmp1=indexof(Alpha,tmp); - if(tmp1>0, - tmp4=tmp4+unicode(text(tmp1+96),base->10); - , - if(tmp==" " % tmp=="&", - , - tmp4=tmp4+tmp; - ); - ); - ); - tmp=name+"="+substring(tmp4,0,length(tmp4)-1)+"]"; - parse(tmp); - tmp=parse(name); - if(length(tmp)==1, - tmp1=substring(tmp4,1,length(tmp3)-1); - parse(name+"="+tmp1); - ); - flg=1; - tmp2=#*WaitUnit/1000; - , - if(wflg==-1, - flg=-1; - , - wait(WaitUnit); - ); - ); - ); - ); - if(flg<=0, - if(flg==-1, - println(wfile+" does not exist"); - , - tmp="("+text(waiting)+" s )"; - tmp1=load(wfile); - if(length(tmp1)>0, - println(wfile+" incomplete"+tmp); // 2016.02.24 - , - println(wfile+" not generated "+tmp); - ); - ); - , - if(flg==1, - println(" Succeeded "+name+" ("+text(tmp2)+" sec)"); - ); - ); -); - -Frfun(name,fun,argL):=Frifun(name,fun,argL,[]); -Frfun(name,fun,argL,optionorg):=Frifun(name,fun,argL,optionorg); -Frifun(name,fun,argL):=Frifun(name,fun,argL,[]); -Frifun(name,fun,argL,optionorg):=( -//help:Frfun("1","integrate",["sin(x)^3","x"],[""]); -//help:Mxfun(options=["Disp=y"]); - regional(nm,options,eqL,disp,cmdL,tmp,tmp1,tmp2); - nm="fri"+name; - options=optionorg; - tmp=divoptions(options); - disp=1; - eqL=tmp_5; - forall(eqL, - tmp=indexof(#,"="); - tmp1=Toupper(substring(#,0,3)); - tmp2=substring(#,tmp,length(#)); - if((tmp1=="DIS") % (tmp1=="DSP") , - tmp=Toupper(substring(tmp2,0,1)); - if((tmp=="F") % (tmp=="N"), - disp=0; - ); - options=remove(options,[#]); - ); - ); - cmdL=[]; - cmdL=concat(cmdL,[ - "ans"+":="+fun,argL, - "ans",[] - ]); - CalcbyF(nm,cmdL,options); - if(disp==1, // 15.11.24 - println(nm+" is : "); - println(parse(nm)); - ); - parse(nm); -); - -Mkketcindyjs():=Mkketcindyjs("ketcindylib"); //16.10.07,11.06 -Mkketcindyjs(Arg):=( - if(isstring(Arg), - Mkketcindyjs(Arg,[]) - , - Mkketcindyjs("ketcindylib",Arg) - ); -); -Mkketcindyjs(libname,options):=( -//help:Mkketcindyjs(); -//help:Mkketcindyjs(options="Tex=y","Net=y"]); - regional(texflg,netflg,tmp,tmp1,tmp2); - texflg="Y"; - netflg="Y"; - forall(options, - tmp1=Toupper(#); - if(indexof(tmp1,"TEX")>0, - tmp=indexof(tmp1,"="); - texflg=Toupper(substring(tmp1,tmp,tmp+1)); - ); - if(indexof(tmp1,"NET")>0, - tmp=indexof(tmp1,"="); - netflg=Toupper(substring(tmp1,tmp,tmp+1)); - ); - ); - SCEOUTPUT = openfile(Fhead+".sce"); - println(SCEOUTPUT,"cd('"+Dirhead+"/CindyJS');"); - println(SCEOUTPUT,"Dtket=mgetl('"+libname+".txt');"); - println(SCEOUTPUT,"cd('"+Dirwork+"');"); - println(SCEOUTPUT,"Dtjs=mgetl('"+Fhead+".html');"); - println(SCEOUTPUT,"Qt=char(34);"); - // 17.09.10from - println(SCEOUTPUT, - "Dtinit=['<script id='+Qt+'csinit'+Qt+' type='+Qt+'text/x-cindyscript'+Qt+'>'];"); - println(SCEOUTPUT,"Dtinit=[Dtinit;Dtket;'</script>'];"); - println(SCEOUTPUT,"Dthead=[];"); - println(SCEOUTPUT,"for I=1:size(Dtjs,1)"); - println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'<script id='))==0 then"); - println(SCEOUTPUT," Tmp=Dtjs(I,:);"); - if(netflg=="N", - println(SCEOUTPUT, - " if length(strindex(Tmp,'link rel='))>0 then"); - println(SCEOUTPUT, - " Tmp=' <link rel='+Qt+'stylesheet'+Qt+' href='+Qt+'CindyJS.css'+Qt+'>';"); - println(SCEOUTPUT, - " end;"); - println(SCEOUTPUT, - " if length(strindex(Tmp,['script type=','Cindy.js']))>1 then"); - println(SCEOUTPUT, - " Tmp=' <script type='+Qt+'text/javascript'+Qt+' src='+Qt+'Cindy.js'+Qt+'>';"); - println(SCEOUTPUT, - " Tmp=Tmp+'</script>';"); - println(SCEOUTPUT, - " end;"); - ); - println(SCEOUTPUT," Dthead=[Dthead;Tmp];"); - println(SCEOUTPUT," else"); - println(SCEOUTPUT," Is=I;break"); - println(SCEOUTPUT," end;"); - println(SCEOUTPUT,"end;"); - println(SCEOUTPUT,"Dt=[];"); - println(SCEOUTPUT,"for I=Is:size(Dtjs,1)"); - println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];"); - println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'</script>'))>0 then"); - println(SCEOUTPUT," if length(strindex(Dt(1,1),'draw'))>0 then Dtdraw=Dt,end;"); - println(SCEOUTPUT," if length(strindex(Dt(1,1),'keytyped'))>0 then Dtkey=Dt,end;"); - println(SCEOUTPUT," Dt=[];"); - println(SCEOUTPUT," if length(strindex(Dtjs(I+1,1),'<script id='))==0 then"); - println(SCEOUTPUT," Ie=I+1;break;"); - println(SCEOUTPUT," end;"); - println(SCEOUTPUT," end;"); - println(SCEOUTPUT,"end;"); - println(SCEOUTPUT,"Dt=[Dthead;Dtdraw;Dtkey;Dtinit];"); - println(SCEOUTPUT,"for I=Ie:size(Dtjs,1)"); - println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Figure']);"); - println(SCEOUTPUT," if length(Tmp)>1 then continue,end;"); - println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Exekc']);"); - println(SCEOUTPUT," if length(Tmp)>1 then continue,end;"); - println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Parent']);"); - println(SCEOUTPUT," if length(Tmp)>1 then continue,end;"); - println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];"); - if(texflg=="Y", - println(SCEOUTPUT," if length(strindex(Dtjs(I,1),Qt+'cs*'+Qt))>0 then"); - println(SCEOUTPUT," Dt=[Dt;' use: ['+Qt+'katex'+Qt+'],'];"); - println(SCEOUTPUT," end;"); - ); - println(SCEOUTPUT,"end;"); - println(SCEOUTPUT,"mputl(Dt,'"+Fhead+"ketcindy.html');"); - // 17.09.10upto - println(SCEOUTPUT,"quit()"); - closefile(SCEOUTPUT); - kcS(PathS,Fhead+".sce",["m"]); -); - -Cheader():=Cheader(FdC,FheadC+"header.h"); -Cheader(fdc,fname):=( - regional(tmp,tmp1,tmp2,j, dW,dE,dS,dN,dstr, - DsizeLL,DsizeL,DsizeM,DsizeS,Eps,Eps1,Eps2,Eps3); - Mdv=50; Ndv=50; - DsizeLL=15000; DsizeL=1500; DsizeM=500; DsizeS=200; - Eps=0.00001; Eps1=0.05; Eps2=0.2; Eps3=1; - SCEOUTPUT = openfile(fname); - tmp=indexof(fdc_2,"="); - tmp1=substring(fdc_2,tmp,length(fdc_2)); - tmp1=replace(tmp1,"[","{"); - tmp1=replace(tmp1,"]","}"); - tmp=indexof(fdc_3,"="); - tmp2=substring(fdc_3,tmp,length(fdc_3)); - tmp2=replace(tmp2,"[","{"); - tmp2=replace(tmp2,"]","}"); - tmp="const double Urng[2]="+tmp1+", Vrng[2]="+tmp2; - println(SCEOUTPUT,tmp+";"); - tmp="const double XMIN="+Sprintf(XMIN,6); - tmp=tmp+",XMAX="+Sprintf(XMAX,6); - println(SCEOUTPUT,tmp+";"); - tmp="const double THETA="+Sprintf(THETA,6); - tmp=tmp+",PHI="+Sprintf(PHI,6); - println(SCEOUTPUT,tmp+";"); - tmp=" //THETA:"+Sprintf(THETA*180/pi,2); - tmp=tmp+", PHI:"+Sprintf(PHI*180/pi,2); - println(SCEOUTPUT,tmp+";"); - dstr=fdc_4; - if(indexof(dstr,"w")>0,dW=1,dW=0); - if(indexof(dstr,"e")>0,dE=1,dE=0); - if(indexof(dstr,"s")>0,dS=1,dS=0); - if(indexof(dstr,"n")>0,dN=1,dN=0); - tmp="const int DrawW="+text(dW)+", DrawE="+text(dE); - tmp=tmp+", DrawS="+text(dS)+", DrawN="+text(dN); - println(SCEOUTPUT,tmp+";"); - forall(j=5..(length(fdc)), - tmp=fdc_#; //17.05.21from - if(length(tmp)==2, - if(tmp_1>1, //17.05.24from - Mdv=tmp_1; Ndv=tmp_2; - , - if(length(tmp_1)>0, Eps1=tmp_1); - if(length(tmp_1)>0, Eps2=tmp_2); - ); //17.05.24upto - ); - if(length(tmp)==3, - if(length(tmp_1)>0, DsizeLL=tmp_1);//17.06.09(3lines) - if(length(tmp_2)>0, DsizeL=tmp_2); - if(length(tmp_3)>0, DsizeM=tmp_3); - ); - if(length(tmp)==4, - if(min(tmp)<1, - if(length(tmp_1)>0, Eps=tmp_1); - if(length(tmp_2)>0, Eps1=tmp_2); - if(length(tmp_3)>0, Eps2=tmp_3); - if(length(tmp_4)>0, Eps3=tmp_4); - , - if(length(tmp_1)>0, DsizeLL=tmp_1); - if(length(tmp_2)>0, DsizeL=tmp_2); - if(length(tmp_3)>0, DsizeM=tmp_3); - if(length(tmp_4)>0, DsizeS=tmp_4); - ) - );//17.05.21upto - ); - tmp1=text(fdc_5_1); - tmp2=text(fdc_5_2); - tmp="const int Mdv="+text(Mdv)+", Ndv="+text(Ndv); - println(SCEOUTPUT,tmp+";"); - tmp="#define DsizeLL "+text(DsizeLL);//17.05.21 - println(SCEOUTPUT,tmp); - tmp="#define DsizeL "+text(DsizeL); - println(SCEOUTPUT,tmp); - tmp="#define DsizeM "+text(DsizeM); - println(SCEOUTPUT,tmp); - tmp="#define DsizeS "+text(DsizeS); - println(SCEOUTPUT,tmp); - tmp="const double Eps="+format(Eps,7); - tmp=tmp+", Eps1="+format(Eps1,7); - tmp=tmp+", Eps2="+format(Eps2,7); - tmp=tmp+", Eps3= "+format(Eps3,7); - println(SCEOUTPUT,tmp+";"); - tmp="void surffun(double u, double v, double pt[3]){"; - println(SCEOUTPUT,tmp); - forall(fdc_1, - tmp1=replace(#,"x=","pt[0]="); - tmp1=replace(tmp1,"y=","pt[1]="); - tmp1=replace(tmp1,"z=","pt[2]="); - println(SCEOUTPUT," "+tmp1+";"); - ); - println(SCEOUTPUT,"}"); - closefile(SCEOUTPUT); -); - -Cmain():=Cmain(FheadC+".c",MainC); -Cmain(fname,cmdLorg):=( -//help:MainC(writesfbd("sfbd");) -//help:MainC(writeax("ax");) -//help:MainC(writewire("wire" (,2), [10,10]);) -//help:MainC(writewire("wire", [[0.5,1],[0,1,2]]]);) -//help:MainC(writecut("sfcut","x+y+2*z-4");) -//help:MainC(writesc("sl3d1");) -//help:MainC(skeleton("sk",[objlist],[pltlist] (,width));) -//help:MainC(writewire ptincrease (=2) are optional);) - regional(cmdL, tmp,tmp1,tmp2,tmp3,tmp4,nL, nn,kk,jj, num, en,cmd, - ax1,ax2,ax3,path, var,varh,file,fileh, flg, cutctr); - path=Dirwork+"/"; //17.05.29from - path=replace(path,"\","/"); - cmdL=cmdLorg;// 17.05.26from - nL=select(1..(length(cmdL)),cmdL_#=="writeax"); - cmd=[]; - if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]); - forall(1..(length(nL)), - tmp2=cmdL_(nL_#+1); - if(length(tmp2)==1,tmp2=append(tmp2,"Surf")); - tmp=tmp2_1; // 17.06.08(5lines) - if(substring(tmp,length(tmp)-2,length(tmp))!="3d", - tmp=tmp+"3d"; - ); - tmp1=parse(tmp); - tmp="axx="+textformat(tmp1_1,5); - parse(tmp); - tmp="axy="+textformat(tmp1_2,5); - parse(tmp); - tmp="axz="+textformat(tmp1_3,5); - parse(tmp); - tmp3=concat(tmp3,[ - "double "+tmp2_1+"[DsizeL][3];",[], //17.06.07(2lines) - "double axx[3][3], axy[3][3], axz[3][3];",[], - "spaceline",["axx"], - "spaceline",["axy"], - "spaceline",["axz"], - tmp2_1+"[0][0]=0;",[], - "appendd3(2,1,2,axx,"+tmp2_1+");",[], - "appendd3(2,1,2,axy,"+tmp2_1+");",[], - "appendd3(2,1,2,axz,"+tmp2_1+");",[], - "writecrv",[tmp2_1,tmp2_2] //17.06.07 - ]); - cmd=concat(cmd,tmp3); - if(#<length(nL), - tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1)); - , - tmp3=cmdL_((nL_#+2)..(length(cmdL))); - cmdL=concat(cmd,tmp3); - ); - ); - nL=select(1..(length(cmdL)),cmdL_#=="writesc"); - cmd=[]; - if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]); - forall(1..(length(nL)), - tmp2=cmdL_(nL_#+1); - if(length(tmp2)==1, - tmp2=[tmp2_1,"Surf"]; - ); - tmp3=concat(tmp3,[ - "double "+tmp2_1+"[DsizeL][3];",[], //17.06.07(2lines) - "double "+tmp2_1+"h[DsizeL][3];",[], - "spaceline",[tmp2_1], - "writecrv",[tmp2_1,tmp2_2] //17.06.07 - ]); - cmd=concat(cmd,tmp3); - if(#<length(nL), - tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1)); - , - tmp3=cmdL_((nL_#+2)..(length(cmdL))); - cmdL=concat(cmd,tmp3); - ); - ); - nL=select(1..(length(cmdL)),cmdL_#=="writesfbd"); - cmd=[]; - if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]); - forall(1..(length(nL)), - tmp2=cmdL_(nL_#+1); - if(length(tmp2)==1,tmp2=append(tmp2,"Surf")); - var=Dq+tmp2_1+"3d"+Dq; - varh=Dq+tmp2_1+"h3d"+Dq; - file=Dq+path+FheadC+tmp2_1+".txt"+Dq; - fileh=Dq+path+FheadC+tmp2_1+"h.txt"+Dq; - tmp="Borderhiddendata"; - tmp3=concat(tmp3,[ - "double "+tmp2_1+"[DsizeL][3];",[], //17.06.09(6lines) - "sfbdparadata",[tmp2_1], - "output3h",[var, varh,file,tmp2_1], - "dataindexd3",[3,tmp2_1,"din"], - tmp2_2+"[0][0]=0;",[], - "appendd3",[2,"din[1][0]","din[1][1]",tmp2_1,tmp2_2] - ]); - cmd=concat(cmd,tmp3); - if(#<length(nL), - tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1)); - , - tmp3=cmdL_((nL_#+2)..(length(cmdL))); - cmdL=concat(cmd,tmp3); - ); - ); - nL=select(1..(length(cmdL)),cmdL_#=="writecrv"); - cmd=[]; - if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]); - forall(1..(length(nL)), - tmp2=cmdL_(nL_#+1); - if(length(tmp2)==1,tmp2=append(tmp2,"Surf")); - var=Dq+tmp2_1+"3d"+Dq; - varh=Dq+tmp2_1+"h3d"+Dq; - file=Dq+path+FheadC+tmp2_1+".txt"+Dq; - tmp3=concat(tmp3,[ - "crvsfparadata",[tmp2_1,tmp2_2,1,"Crvdata"], - tmp2_1+"[0][0]=0;",[], //17.06.09(3lines) - "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1], - "output3h",[var, varh, file,tmp2_1] - ]); - cmd=concat(cmd,tmp3); - if(#<length(nL), - tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1)); - , - tmp3=cmdL_((nL_#+2)..(length(cmdL))); - cmdL=concat(cmd,tmp3); - ); - ); - nL=select(1..(length(cmdL)),cmdL_#=="writescrvonsf"); - cmd=[]; - if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]); - forall(1..(length(nL)), - tmp2=cmdL_(nL_#+1); - if(length(tmp2)==1,tmp2=append(tmp2,"Surf")); - var=Dq+tmp2_1+"3d"+Dq; - varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09(8lines) - file=Dq+path+FheadC+tmp2_1+".txt"+Dq; - tmp3=concat(tmp3,[ - "double "+tmp2_1+"[DsizeL][3];",[], - " crv3onsfparadata",[tmp2_1,tmp2_2,1,"Crvdata"], - tmp2_1+"[0][0]=0;",[], - "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1], - "output3h",[var,varh, file ,tmp2_1] - ]); - cmd=concat(cmd,tmp3); - if(#<length(nL), - tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1)); - , - tmp3=cmdL_((nL_#+2)..(length(cmdL))); - cmdL=concat(cmd,tmp3); - ); - ); - nL=select(1..(length(cmdL)),cmdL_#=="writecut"); - cmd=[]; - if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]); - cutctr=0; - forall(1..(length(nL)), - cutctr=#; - tmp2=cmdL_(nL_#+1); - if(length(tmp2)==2, - tmp2=[tmp2_1,"Surf",tmp2_2]; - ); - var=Dq+tmp2_1+"3d"+Dq; - varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09(10lines) - file=Dq+path+FheadC+tmp2_1+".txt"+Dq; - tmp3=concat(tmp3,[ - "cutfun",[tmp2_3], - "double "+tmp2_1+"[DsizeL][3];",[], - "sfcutdata",[text(cutctr),"out"], //17.06.02 - "crv3onsfparadata",["out",tmp2_2,"Crvdata"], - tmp2_1+"[0][0]=0;",[], - "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1], - "output3h",[var, varh, file, tmp2_1] - ]); - cmd=concat(cmd,tmp3); - if(#<length(nL), - tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1)); - , - tmp3=cmdL_((nL_#+2)..(length(cmdL))); - cmdL=concat(cmd,tmp3); - ); - ); - nL=select(1..(length(cmdL)),cmdL_#=="writewire"); - cmd=[]; - if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]); - forall(1..(length(nL)), - tmp2=cmdL_(nL_#+1); - if(!isstring(tmp2_2), - tmp2=[tmp2_1,"Surf",tmp2_2,tmp2_3]; - ); - var=Dq+tmp2_1+"3d"+Dq; - varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09 - file=Dq+path+FheadC+tmp2_1+".txt"+Dq; - tmp4=tmp2_(length(tmp2)); num=2; - if(!islist(tmp4), - num=tmp4; tmp4=tmp2_(length(tmp2)-1); - ); - if(!islist(tmp4_1), - tmp3=concat(tmp3,[ - "double udv[2]={-1,"+text(tmp4_1)+"};",[] - ]); - , - len=length(tmp4_1); - tmp="double udv["+text(len+1)+"]={"+text(len)+","; - forall(tmp4_1, - tmp=tmp+format(#,5)+","; - ); - tmp=substring(tmp,0,length(tmp)-1)+"};"; - tmp3=concat(tmp3,[tmp,[]]); - ); - if(!islist(tmp4_2), - tmp3=concat(tmp3,[ - "double vdv[2]={-1,"+text(tmp4_2)+"};",[] - ]); - , - len=length(tmp4_2); - tmp="double vdv["+text(len+1)+"]={"+text(len)+","; - forall(tmp4_2, - tmp=tmp+format(#,5)+","; - ); - tmp=substring(tmp,0,length(tmp)-1)+"};"; - tmp3=concat(tmp3,[tmp,[]]); - ); - tmp3=concat(tmp3,[ - "double "+tmp2_1+"[DsizeLL][3];",[], //17.06.09(5lines) - "wireparadata",["Surf", "udv","vdv", num, "Wiredata"], - tmp2_1+"[0][0]=0;",[], - "appendd3",[0,1,"length3(Wiredata)","Wiredata",tmp2_1], - "output3h",[var, varh, file, tmp2_1] - ]); - cmd=concat(cmd,tmp3); - if(#<length(nL), - tmp3=cmdL_((nL_#+2)..(tmp_(#+1)-1)); - , - tmp3=cmdL_((nL_#+2)..(length(cmdL))); - cmdL=concat(cmd,tmp3); - ); - );// 17.05.29upto - nL=select(1..(length(cmdL)),cmdL_#=="skeleton");// 17.06.05from - cmd=[]; - if(length(nL)>0, - tmp3=cmdL_(1..(nL_1-1)); - tmp3=concat(tmp3,["double sk[DsizeLL][3];",[]]);//17.06.13 - , - tmp3=[]; - ); - forall(1..(length(nL)),nn, - tmp2=cmdL_(nL_nn+1); - var=Dq+tmp2_1+"3d"+Dq; - file=Dq+path+FheadC+tmp2_1+".txt"+Dq; - tmp3=concat(tmp3,[ //17.06.08from - "data[0][0]=0;",[] - ]); - forall(tmp2_2, - if(substring(#,length(#)-1,length(#))!="h", - tmp1=#; - tmp=[0,"din[1][0]","din[1][1]",tmp1,"data"]; - , - tmp1=substring(#,0,length(#)-1); - tmp=[0,"din[2][0]","din[2][1]",tmp1,"data"]; - ); - tmp3=concat(tmp3,[ - "dataindexd3",[3,tmp1,"din"], - "appendd3",tmp - ]); - ); - forall(1..(length(tmp2_3)), - if(substring(tmp2_3_#,length(tmp2_3_#)-1,length(tmp2_3_#))!="h", - tmp1=tmp2_3_#; - tmp=[0,"din[1][0]","din[1][1]",tmp1,"data"]; - , - tmp1=substring(tmp2_3_#,0,length(tmp2_3_#)-1); - tmp=[0,"din[2][0]","din[2][1]",tmp1,"data"]; - ); - tmp3=concat(tmp3,[ - "push3",["Inf",3,0,"data"], - "dataindexd3",[3,tmp1,"din"], - "appendd3",tmp - ]); - ); - if(length(tmp2)<=3,tmp=1,tmp=tmp2_4); - tmp3=concat(tmp3,[ - "skeletondata3",["data", tmp, "Eps1","Eps2","sk"],//17.06.13 - "output3",[var, file, 2, "sk"] - ]); - cmd=concat(cmd,tmp3); - if(nn<length(nL), - tmp3=cmdL_((nL_nn+2)..(nL_(nn+1)-1)); - , - tmp3=cmdL_((nL_nn+2)..(length(cmdL))); - cmdL=concat(cmd,tmp3); - );//17.06.08upto - );// 17.06.05upto - path=DirlibC+"/"; - path=replace(path,"\","/"); - cmd=[ - "#include <stdio.h>", "#include <math.h>", - "#include "+Dq+FheadC+"header.h"+Dq, - "#include "+Dq+path+"ketcommon.h"+Dq, - "#include "+Dq+path+"surflibhead.h"+Dq, - "#include "+Dq+path+"surflib.h"+Dq, - "int main(void){", - " double out[DsizeL][3], data[DsizeLL][3];", //17.06.10 - " int i, j, nall, din[DsizeS][2];" //17.06.09 - ]; -// tmp=select(cmdL,#=="cutfun"); -// if(length(tmp)==0, - if(cutctr==0, //17.06.02 - cmdL=prepend(["1"],cmdL); - cmdL=prepend("cutfun",cmdL); - );// 17.05.26upto - cutctr=0; - forall(1..(floor(length(cmdL))/2),nn, - tmp1=cmdL_(2*nn-1); tmp2=cmdL_(2*nn); - flg=0; // 17.05.26from - if(tmp1=="cutfun", - cutctr=cutctr+1; - tmp=select(1..(length(cmd)), indexof(cmd_#,"main")>0); - tmp3=cmd_((tmp_1)..(length(cmd))); - cmd=cmd_(1..(tmp_1-1)); - cmd=append(cmd,"double cutfun"+text(cutctr)+"(double u, double v){"); - cmd=append(cmd," double p[3],val;"); - cmd=append(cmd," surffun(u,v,p);"); - tmp=" val="+assign(tmp2_1,["x","p[0]","y","p[1]","z","p[2]"])+";"; - cmd=concat(cmd, [tmp," return val;", "}"]); - cmd=concat(cmd, tmp3); - flg=1; - ); - if(tmp1=="xyzax3data", - tmp=" "+tmp1+"("; - tmp=tmp+textformat(tmp2_1_1_1_1,5)+","; - tmp=tmp+textformat(tmp2_1_1_2_1,5)+","; - tmp=tmp+textformat(tmp2_1_2_1_2,5)+","; - tmp=tmp+textformat(tmp2_1_2_2_2,5)+","; - tmp=tmp+textformat(tmp2_1_3_1_3,5)+","; - tmp=tmp+textformat(tmp2_1_3_2_3,5)+","; - tmp=tmp+tmp2_2+");"; - cmd=append(cmd,tmp); - flg=1; - ); - if(tmp1=="spaceline", - if(!isstring(tmp2_1), - println(tmp2_1+" should be assgined as a string"); - , - tmp3=parse(tmp2_1); - tmp=text(length(tmp3)+1); -// cmd=append(cmd, " double "+tmp2_1+"["+tmp+"][3];"); - tmp=text(length(tmp3)); - cmd=append(cmd, " "+tmp2_1+"[0][0]="+tmp+";"); - forall(1..(length(tmp3)), - tmp=" "+tmp2_1+"["+text(#)+"][0]="+textformat(tmp3_#_1,5)+","; - tmp=tmp+tmp2_1+"["+text(#)+"][1]="+textformat(tmp3_#_2,5)+","; - tmp=tmp+tmp2_1+"["+text(#)+"][2]="+textformat(tmp3_#_3,5)+";"; - cmd=append(cmd,tmp); - ); - ); - flg=1; - ); - if(flg==0, - tmp=" "+tmp1; - if(length(tmp2)>0, - tmp=tmp+"("; - forall(1..length(tmp2),kk, - if(isstring(tmp2_kk), - if((kk==1)&(substring(tmp1,0,5)=="write"), - file=path+FheadC+tmp2_kk+".txt"; - fileh=path+FheadC+tmp2_kk+"h.txt"; - tmp=tmp+Dq+tmp2_kk+Dq+","+Dq+file+Dq+","+Dq+fileh+Dq; - , - tmp=tmp+tmp2_kk; - ); - , - if(!islist(tmp2_kk), - tmp=tmp+textformat(tmp2_kk,5); - , - ); - ); - if(kk<length(tmp2), - tmp=tmp+","; - , - tmp=tmp+");"; - ); - ); - ); - cmd=append(cmd, tmp);// 17.05.26upto - ); - ); - tmp=select(1..(length(cmd)), indexof(cmd_#,"main")>0);//17.06.02from - tmp3=cmd_((tmp_1)..(length(cmd))); - cmd=cmd_(1..(tmp_1-1)); - cmd=append(cmd,"double cutfun(int ch, double u, double v){"); - cmd=append(cmd," double val;"); - forall(1..cutctr, - tmp=text(#); - cmd=append(cmd," if(ch=="+tmp+"){val=cutfun"+tmp+"(u,v);}"); - ); - cmd=concat(cmd,[" return val;", "}"]); - cmd=concat(cmd, tmp3);//17.06.02upto - cmd=concat(cmd, [" return 0;", "}"]); - SCEOUTPUT = openfile(fname); - forall(cmd, - println(SCEOUTPUT,#); - ); - closefile(SCEOUTPUT); - tmp=fileslist(Dirwork); // 17.05.20from - tmp=tokenize(tmp,","); - tmp=select(tmp,indexof(#,".txt")>0); - tmp=select(tmp,indexof(#,FheadC)>0); - forall(tmp, - SCEOUTPUT = openfile(#); - println(SCEOUTPUT,""); - closefile(SCEOUTPUT); - ); // 17.05.20upto -); - -kcC():=kcC(FheadC); -kcC(cname):=( - regional(tmp, tmp1, flg); - if(iswindows(), - SCEOUTPUT = openfile("kc.bat"); - println(SCEOUTPUT,"set path="+Dirwork); - tmp=Indexall(PathC,"\"); - if(length(tmp)==0, tmp=ndexall(PathC,"/")); - tmp1=substring(PathC,0,tmp_(length(tmp))-1); - println(SCEOUTPUT,"cd "+tmp1); - tmp=PathC+" %path%\"+cname+".c"; - tmp=tmp+" -o %path%\main.exe"; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"%path%\main.exe"); - println(SCEOUTPUT,"echo //// > %path%\resultC.txt"); - println(SCEOUTPUT,"exit"); - closefile(SCEOUTPUT); - tmp=cname+".txt"; - println(kc(Dirwork+Batparent,Mackc+Dirlib,tmp)); - , - SCEOUTPUT = openfile("kc.sh"); - println(SCEOUTPUT,"#!/bin/sh"); - println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); - tmp=PathC+" "+cname+".c -o main.out"; - println(SCEOUTPUT,tmp); - println(SCEOUTPUT,"./main.out"); - println(SCEOUTPUT,"echo //// > resultC.txt"); - println(SCEOUTPUT,"exit 0"); - closefile(SCEOUTPUT); - tmp=cname+".txt"; - println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp)); - ); - SCEOUTPUT=openfile("resultC.txt"); - println(SCEOUTPUT,""); - closefile(SCEOUTPUT); - flg=0; - repeat(floor(10*1000/WaitUnit), - if(flg==0, - tmp1=load("resultC.txt"); - if(substring(tmp1,0,4)=="////", - flg=1; - ); - wait(WaitUnit); - ); - ); - if(flg==0, - println("Ckc not completed"); - , - println("Ckc succeeded"); - ); -); - -ReadCdata(var, fname):=ReadCdata(var, fname,[]); -ReadCdata(var, fname,options):=( - regional(file,dt,name,str,tmp,tmp1,opstr,gout, out3,out2); - if(indexof(fname,".")==0, - file=fname+".txt"; - name=fname; - , - file=fname; - tmp=indexof(fname,"."); - name=substring(fname,0,tmp-1); - ); - tmp=Divoptions(options); - opstr=tmp_8; - gout=ReadOutData(file); - GLIST=Append(GLIST,"Tmpstr=ReadOutData("+Dq+file+Dq+")");//17.06.16from - GLIST=Append(GLIST,"execstr(Tmpstr)"); - if(substring(var,length(var)-1,length(var))!="h", - if(length(parse(gout_1))>0, - Projpara(var+"3d",options); - ); - , - if(length(parse(gout_2))>0, - Projpara(var+"3d",options); - ); - );//17.06.16upto -); - -WriteCdata(fnameorg,dataorg):=( -//help:WriteCdata(filename, 3ddata); - regional(tmp,fname,data,kk,nn,pt); - data=dataorg; - if(isstring(data),data=parse(data)); - if(MeasureDepth(data)==1,data=[data]); - fname=fnameorg; - if(indexof(fname,".")==0, fname=fname+".txt"); - SCEOUTPUT=openfile(fname); - forall(1..(length(data)),kk, - forall(1..(length(data_kk)),nn, - pt=apply(1..3,Sprintf(data_kk_nn_#,5)); - tmp=pt_1+" "+pt_2+" "+pt_3; - println(SCEOUTPUT,tmp); - ); - if(kk<length(data), - println(SCEOUTPUT,"99999.00000 2.00000 0.00000"); - ); - ); - closefile(SCEOUTPUT); -); - -DisplayC():=DisplayC(DispC); -DisplayC(name,options):=DisplayC([name,options]); -DisplayC(dispc):=( -//help:DisplayC("out",["Color=[1,0,0]"); -//help:DispC(options=["dr", "Color=[0,0,0]"]) - regional(tmp,tmp1,cflg,var, file,options,eqL,opcindy,color); - forall(1..(floor(length(dispc)/2)), //17.05.18 - var=dispc_(2*#-1); // 17.05.24 - if(substring(var,length(var)-1,length(var))!="h",//17.06.09(5lines) - file=FheadC+var+".txt"; - , - file=FheadC+substring(var,0,length(var)-1)+".txt"; - ); - options=dispc_(2*#); - cflg=0; - tmp=Divoptions(options);//17.06.18from - eqL=tmp_5; - opcindy=tmp_9; - forall(eqL, - if(Toupper(substring(#,0,2))=="CO", - tmp=indexof(#,"="); - color=substring(#,tmp,length(#)); - if(substring(color,0,1)=="[", - color=parse(color); - if(length(color)==3, - tmp1="color->"+text(color); - , - tmp=Colorcode("rgb","cmyk",color); - tmp1="color->"+text(tmp); - ); - options=append(options,tmp1); - ); - options=remove(options,[#]); - cflg=1; - ); - ); - if(cflg==1, - Texcom("{"); - Setcolor(color); - ); - ReadCdata(var,file,options);// 17.05.24 - if(cflg==1, - Texcom("}"); - ); - ); -); - -//help:end(); - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlog.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlog.txt deleted file mode 100644 index ad36aeed..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlog.txt +++ /dev/null @@ -1,327 +0,0 @@ -// s:2017.09.10 -// MkketcindyJS changed substantially -// s:2017.08.26 -//// MkketcindyJS ( data/js => CindyJS ) -// s:2017.07.02 -// MkketcindyJS ( Texview => Figure ) -// s:2017.06.23 -// MainC changed (ax1 => axx ,etc) -// s:2017.06.16 -// Mxload added -// ReadCdata debugged (for null list ) -// s:2017.06.13 -// Cmain changed (skeleton : sk1,2 -> sk) -// s:2017.06.10 -// Cmain debugged(skeleton "data" should be declared commonly) -// s:2017.06.09 -// Cmain, Cheader changed (output3h used ) -// s:2017.06.08 -// Cmain changed (skeleton finished ) -// s:2017.06.07 -// Cmain debugged ( ax3d ) /changed ( local data name) -// s:2017.06.05 -// Cmain changed ( for skeleton) -// s:2017.06.02 -// ReadCdata debugged ( for hiddenfile ) -// s:2017.05.29 -// DisplayC changed ( DisplayC(name,options) supported ) -// Cmain changed ("write..." are resolved in Cmain) -// s:2017.05.27 -// Cmain changed (coding arranged) -// s:2017.05.25 -// Cmain changed (cmd list, surfcut) -// s:2017.05.24 -// Cmain changed ("write" changed) -// Cheader changed (options) -// ReadCdata3 changed -// s:2017.05.23 -// Cmain changed (point number option) -// s:2017.05.21 -// Cheader debugge ( Assignment of values) -// s:2017.05.20 -// Cmain changed (files reset, param for writewire) -// ReadCdata3 changed ( for blank data ) -// s:2017.05.18 -// CalcbyS,... changed (/2 => floor( /2)) -// DisplayC changed (color option added, floor(./2)) -// changed -// s:2017.05.15 -// WriteCdata added -// s:2017.05.14 -// Cheader,Cmain, kcC, ReadCdata3, DisplayC added -// s:2017.04.14 -// ErrhandleS changed (nothing for scilab6) -// s:2017.04.13 -// Mkviewobj changed (Error message when Setobj not defined ) -// s:2017.04.08 -// bugs fixed -// s:2017.03.29 -// kcM changed ( for Maxima version >3.38 ) -// s:2017.02.19 -// Readcsv debugged ( waiting removed ) -// s:2017.02.09 -// Writecsv changed ( for double list ) -// Readcsv changed ( for sigle column ) -// s:2017.01.13 -// Setobj added (=Objname) -// s:2017.01.12 -// WritetoS changed (English message for Windows ) -// s:2016.12.27 -// Mkviewobj debugged ( = ) -// s:2016.12.23 -// Hatchdata,Dotfilldata,... debugged ( "=.." => name+"=... ) -// s:2016.12.20 -// CalcbyR changed (in case of Cat!="Y" ) -// Readcsv changed (Both R and Scilab available with "Use=", -// Flat option added ) -// s:2016.12.18 -// CalcbyS debugged (in case of Cat!="Y" ) -// s:2016.12.13 -// CalcbyS changed ( LFmark ) -// s:2016.12.12 -// Readcsv changed ( csv option added ) -// s:2016.12.11 -// CalcbyS debugged -// Readcsv rewritten ( CalcbyS used ) -// s:2016.11.29 -// Mkobj... changed (OBJCMD added ) -// Objname(option) added -// s: 2016.11.25 -// CalcbyR changed(about .txt file, cat="yes"(default),"no","middle") -// s: 2016.11.24 -// CalcbyS changed(about .txt file, cat="yes","no","middle"(default)) -// s: 2016.11.22 -// CalcbyS debugged ( comment out : wfile when cat!="Y") -// s: 2016.11.14 -// CalcbyS changed ( wfile when cat!="Y") -// Mkobjcrvcmd changed ( for a string of a list of strings ) -// s: 2016.11.13 -// CalcbyS, CalcbyR debugged ( wflg==0 & cat!="Y") -// s: 2016.11.08 -// Mkketcindy changed ( Buttons of KeTCindy removed) -// Mkketcindy changed ( "Net=" option) -// s: 2016.11.06 -// Mkketcindy debugged -// s: 2016.10.29 -// CalcbyR debugged ( case of "Cat=no" ) -// s: 2016.10.28 -// CalcbyR changed ( options(digits=,,,) added) -// s: 2016.10.24 -// Dataframe added -// CalcbyR changed ( for only 1 value) -// s: 2016.10.23 -// CalcbyS changed ( = in last line ) -// CalcbyR changed ( for output in list, vector,matrix) -// MkketcindyJS changed ( libname ) -// MkketcindyJS changed ( libname ) -// s: 2016.10.22 -// Scifun, Rfun added -// err => println -// kcR,CalcbyR changed ( error message ) -// s: 2016.10.21 -// Help of Dotfilldata changed -// s: 2016.10.20 -// kcR changed (for pathR) -// s: 2016.10.13 -// Mkketcindyjs changed (for katex) -// s: 2016.10.07 -// Mkketcindyjs added -// s: 2016.10.04 -// Mkviewobj, Mkobjplate, Changeobjscale debugged -// s: 2016.09.18 -// Histplot(help) debugged -// s: 2016.08.09 -// CalcbyS changed ( |||| added ) -// s: 2016.07.08 -// Mkobjpoly,Mkobjplate debugged( option thick1,thick2 ) -// s: 2016.07.07 -// CalcbyR debugged( add "####" at setwindow ) -// s: 2016.06.30 -// Mkviewobj changed ( Changeobjscale executed when "Unit=.." ) -// s: 2016.06.27 -// Mkobjplatecmd debugged ( nv ) -// s: 2016.06.26 -// CalcbyS re-debugged and chaged ( case of "Cat=n", "File=" added ) -// Changeobjscale changed -// WritetoS, WritetoR changed ( Setwindow added ) -// Changeobjscale majorly revised ( Scilab mainly used ) -// s: 2016.06.25 -// CalcbyS debugged ( case of "Cat=n" ) -// Changeobjscale added -// s: 2016.06.19 -// Mkobjplatecmd debugged -// s: 2016.06.18 -// Mkobjplatecmd added -// Mkobjsymbcmd debugged ( rel > reL ) -// s: 2016.06.17 -// Mkobjpoiycmd,Mkobjsymbcmd changed (Help modified) -// s: 2016.06.13 -// CalcbyM changed (Oprion Line=1000 ) -// s: 2016.06.12 -// CalcbyS,... changed ( LFmark removed ) -// s: 2016.06.08 -// Mkobjnrm debugged ( option eqL ) -// s: 2016.06.07 -// kcA,kcS,kcM,kcR,kcF,kcV3 changed ( kc(,Mackc+,) ) -// s: 2016.06.05 -// kcA,kcS,kcM,kcR,kcF,kcV3 changed ( kc(,,) ) -// s: 2016.06.03 -// Calcby. changed ( name added after "suceeded" ) -// s: 2016.05.29 -// kcA,kcS,kcM,kcR,kcF,kcV3 changed ( kc(Dirwork+ ) ) -// s: 2016.05.27 -// MxtexL added ( for the list of expressions ) -// s: 2016.05.26 -// AsirfunO changed ( Process implemented ) - -////////////// -// s: 2015.11.05 v2.1.0 -// Divided from ketcindylib -// kcR, kcS changed ( waiting removed ) -// PlotdataS added -// e: 2015.11.07 v2.1.1 -// Readcsv, .., changed ( for case of non-exiting file ) -// e: 2015.11.10 v2.1.2 -// Boxplot, Readcsv, Hatchdata debugged ( directory of input file ) -// e: 2015.11.11 -// Boxplot, Readcsv, Hatchdata re-debugged ( directory of input file ) -// e: 2015.11.17 -// WritetoA, kcA, CalcbyA, Asirfun added -// e:2015.11.18 -// WritetoA, kcA, CalcbyA, Asirfun changed ( PathA ) -// CalcbyA changed ( ' for Dq=" ) -// Asirfun changed ( name adde ) -// e:2015.11.19 -// kcA changed ( for windows ) -// CalcbyR,CalcbyS changed ( ' for Dq ) -// CalcbyA changed ( a big number represented as string ) -// e:2015.11.20 -// Asirfun changed ( precise option added ) -// e:2015.11.21 -// MkprecommandS debugged -// e:2015.11.22 -// WritetoM, kcM, CalcbyM, Mxfun added -// PathA change ( to full path ) -// e:2015.11.23 -// CalcbyM changed ( for "+d") -// e:2015.11.24 -// CalcbyM changed ( for windows) -// Asirfun, Mxfun changed ( Disp, Pack options ) -// Example added -// Mxfun changed ( Set option ) -// e:2015.11.25 -// changed "fortran" to "disp" -// kcM changed ( for windows ) -// e:2015.11.26 -// CalcbyA, CalcbyB changed ( for wflg=0) -// e:2015.11.27 -// AsirfunO added -// e:2015.12.06 -// CalcbyS, CalcbyR, CalcbyM,CalcbyA changed -// ( for length(tmp1)!=length(cmdlsit) ) -// e:2015.12.07 -// SetpathS changed ( Dirlib => Dirbin ) -// e:2015.12.11 -// SetpathS changed ( for autosetting ) -// e:2016.01.07 -// Mxtex added -// e:2016.01.10 -// Mxtex debugged -// kcS debugged ( for Windows ) -// e:2016.01.18 -// Mxtex debugged -// e:2016.01.25 -// Mxtex debugged ( regional ) -// e:2016.01.30 -// MkprecommandR, MkprecommandS debugged ( -0 and 0 ) -// e:2016.02.01 -// MkprecommandR, MkprecommandS changed ( prec option added ) -// e:2016.02.03 -// MkprecommandR, MkprecommandS debugged ( sorting of VLIST ) -// AsfunO, Asfun supported -// e:2016.02.08 -// Mxfun changed ( option PACK or LOAD) -// e:2016.02.14 -// Hatchdata debugged ( bug of ["ii","oo"] for example) -// e:2016.02.16 -// Dotfilldata added -// e:2016.02.19 -// Mxtex debugged ( options ) -// e:2016.02.23 -// WritetoM, CalcbyM changed ( option "All=y" added for error ) -// CalcbyM changed ( ` changed to ' ) -// e:2016.02.24 -// CalcbyM changed ( if errors occurred, output displayed under "All=y" ) -// e:2016.02.26 -// CalcbyM changed ( defalut of All changed to "y" ) -// e:2016.02.29 -// ErrhandleS added -// CalcbyS changed ( "Error" option ) -// Implicitplot changed ( "Mx" option added ) -// e:2016.03.01 -// Mxtex changed ( Set & Ord option added ) -// e:2016.03.02 -// PlotdataS,Implicitdata changed ( equalized ) -// e:2016.03.03 -// CalcbyM changed ( replacement ' abolished ) -// e:2016.03.05 -// Hatchdata changed ( "Error" added ) -// e:2016.03.09 -// Implicitplot, Hatchdata changed ( "Out=" option readded) -// e:2016.03.11 -// WritetoA,AsirfunO changed ( ooshima lib read in AsirfunO) -// e:2016.03.12 -// CalcbyM changed (output for "Cat=y") -// kcV3,Mkviewobj added -// e:2016.03.12 -// kcV3,Mkviewobj debugged/changed -// e:2016.03.14 -// Mkviewobj changed ( repetition of Meshlab avoided ) -// e:2016.03.15 -// Mkviewobj changed ( for making from objlist ) -// Implicitplot changed ( error handling) -// e:2016.03.17 -// WritetoF,kcF,CalcbyF,Frifun added -// e:2016.03.26 -// kcF changed ( added for windows ) -// e: 2016.04.04 -// PlotdataS, Implicitplot changed (Addgraph added ) -// e: 2016.04.06 -// Hatchdata changed (Chunderscore added ) -// e: 2016.04.14 -// Mkobjcmd added -// e:2016.04.15 -// Mkobjthickcmd, Mkobjnrm, Mkobjcrvcmd added -// Mkobjcrvcmd, Concatcmd added -// e:2016.04.17 -// Mkobjsymbcmd added -// e:2016.04.20 -// Mkobjnrm,Mkobjthickcmd changed -// e:2016.04.21 -// Mkobjnrm,Mkobjthickcmd changed (precmd added , option "simp" unused) -// e:2016.04.22 -// Mkobjpolycmd added -// e:2016.04.23 -// Mkviewobj,Mkobjpolycmd,Mkobjcrvcmd,Mkobjsymbcmd changed -// MkprecommandR debugged -// e:2016.04.26 -// CalcbyM changed ( Indexall used) -// e:2016.04.29 -// Mxbatch added -// e:2016.04.30 -// Mkobjnrm changed ( twice ) -// Mxbatch debugged -// e:2016.05.02 -// Mkobjnrm changed ( Out= , disp option ) -// e:2016.05.10 -// Mkobjsymbcmd changed ( defaut path changed ) -// e:2016.05.12 -// Mkobjnrm changed ( name => "nrm"+nm ) -// e:2016.05.18 -// WritetoA changed ( output ) -// CalcbyA changed ( ; supported ) -// e:2016.05.1 -// Testfunstr debugged ( ".x", ".y" ) -////// To Reverse sequence ////// - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt index 7a908aa0..2050e5fe 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt +++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt @@ -1,3 +1,24 @@ +// 2018.02.01 +// CalcbyR changed (for matrix, wait=5 ) +// 2018.01.31 +// CalcbyR changed (for list of list ) +// 2018.01.29 +// CalcbyR debugged and changed (case of result is null ) +// 2018.01.27 +// CalcbyR changed ( output like Maxima(::),"Out") +// 2018.01.07 +// Hatchdata debugged (fun removed ) +// 2017.12.24 +// Mkobjpoly,Mkobjplate debugged +// Changeobjscalce changed for R +// 2017.12.23 +// Mkobjsymbcmd debugged +// Setoptions changed +// Mkobjthickcmd added +// 2017.12.22 +// Mkobjcrvcmd debugged +// 2017.10.24 +// Maxima2Cindydata added // 2017.10.12 // kcR debugged ( for Mac, => 2> ) // 2017.10.07 diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs index 6d077fa9..233a723a 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs +++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs @@ -14,7 +14,7 @@ // along with this program. If not, see <http://www.gnu.org/licenses/> // -println("ketcindyout(2017.10.12) loaded"); +println("ketcindyout(2018.02.01) loaded"); //help:start(); @@ -655,10 +655,10 @@ CalcbyR(name,Arg1,Arg2):=( ); ); CalcbyR(name,path,cmd,optionorg):=( -//help:CalcbyR("Pr",cmd); -//help:CalcbyR(options=["m/r","Wait=2","Cat=yes","File=result" ]); +//help:CalcbyR(name,cmd); +//help:CalcbyR(options=["m/r","Wait=2","Out=yes","Pre=yes","File=result" ]); regional(options,tmp,tmp1,tmp2,tmp3,realL,strL,eqL, - cat,dig,flg,wflg,file,nc,arg,cmdR,cmdlist,wfile,ext,waiting); + cat,dig,preflg,flg,wflg,file,nc,arg,cmdR,cmdlist,wfile,waiting); options=optionorg; tmp=divoptions(options); eqL=tmp_5; @@ -667,13 +667,13 @@ CalcbyR(name,path,cmd,optionorg):=( dig=5; cat="Y"; wfile=""; - ext=".txt"; - waiting=2; + preflg=1; + waiting=5; forall(eqL, tmp=indexof(#,"="); tmp1=Toupper(substring(#,0,1)); tmp2=substring(#,tmp,length(#)); - if(tmp1=="C", + if((tmp1=="C")%(tmp1=="O"), cat=Toupper(substring(tmp2,0,1)); options=remove(options,[#]); ); @@ -681,8 +681,10 @@ CalcbyR(name,path,cmd,optionorg):=( waiting=parse(tmp2); options=remove(options,[#]); ); - if(tmp1=="E", - if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2); + if(tmp1=="P", //18.01.27 + tmp2=substring(Toupper(tmp2),0,1); + if(tmp2=="Y",preflg=1); + if(tmp2=="N",preflg=0); options=remove(options,[#]); ); if(tmp1=="D", @@ -696,9 +698,9 @@ CalcbyR(name,path,cmd,optionorg):=( ); if(wfile=="", if(cat=="Y", - wfile=Fhead+name+ext; + wfile=Fhead+name+".txt"; , - wfile="resultR"+ext; + wfile="resultR.txt"; ); ); wflg=0; @@ -720,8 +722,11 @@ CalcbyR(name,path,cmd,optionorg):=( ); ); file=Fhead+name; -// cmdR=flatten(cmd); - cmdR=cmd; + cmdR=[]; + if(preflg==1, //18.01.27from + cmdR=MkprecommandR(); + ); + cmdR=concat(cmdR,cmd); //18.01.27upto cmdlist=[]; if(dig>5, //16.10.28from cmdlist=append(cmdlist,"options(digits="+text(dig+2)+");"); @@ -758,6 +763,20 @@ CalcbyR(name,path,cmd,optionorg):=( ); cmdlist=append(cmdlist,tmp1); ); + tmp1=cmdlist_(length(cmdlist)); + if(indexof(tmp1,"=")==0, + tmp1=tokenize(tmp1,"::"); + if(length(tmp1)==1, + tmp2=name+"="+tmp1_1; + , + tmp2=name+"=list("; + forall(tmp1, + tmp2=tmp2+#+","; + ); + tmp2=substring(tmp2,0,length(tmp2)-1)+")"; + ); + cmdlist_(length(cmdlist))=tmp2; + ); if(CONTINUED==1, ComOutList=concat(ComOutList,cmdlist); , @@ -766,20 +785,45 @@ CalcbyR(name,path,cmd,optionorg):=( cmdlist=append(cmdlist,tmp); tmp="sharps=paste(sharp,sharp,'\n',sep='')"; cmdlist=append(cmdlist,tmp); + tmp="if(Length("+name+")==0){"+name+"='nodata'}"; //18.01.29 + cmdlist=append(cmdlist,tmp); cmdlist=append(cmdlist,"if(is.matrix("+name+")){"); - cmdlist=append(cmdlist," "+name+"=as.data.frame("+name+")"); - cmdlist=append(cmdlist,"}"); + cmdlist=append(cmdlist," tmp=list()");//18.02.01from + cmdlist=append(cmdlist," for(ii in 1:Length("+name+")){"); + cmdlist=append(cmdlist," tmp=c(tmp,list(Op(ii,ans)))"); + cmdlist=append(cmdlist," }"); + cmdlist=append(cmdlist," ans=tmp"); + cmdlist=append(cmdlist,"}");//18.02.01upto cmdlist=append(cmdlist,"if(is.list("+name+")){"); - tmp=" cat(names("+name+"),file='"+wfile+"',sep=',')"; +// tmp=" cat(names("+name+"),file='"+wfile+"',sep=',')"; //18.01.27deleted +// cmdlist=append(cmdlist,tmp); +// tmp=" cat(sharps,file='"+wfile+"',append=TRUE)"; +// cmdlist=append(cmdlist,tmp); + cmdlist=append(cmdlist," for(ii in Looprange(1,length("+name+"))){"); + cmdlist=append(cmdlist," if(is.list("+name+"[[ii]])){"); + tmp=" cat('[',file='"+wfile+"',sep='',append=TRUE)"; cmdlist=append(cmdlist,tmp); - tmp=" cat(sharps,file='"+wfile+"',append=TRUE)"; + tmp=" cat(sharps,file='"+wfile+"',sep='',append=TRUE)"; + cmdlist=append(cmdlist,tmp); + tmp=" for(jj in Looprange(1,length(ans[[ii]]))){"; + cmdlist=append(cmdlist,tmp); + tmp=" cat("+name+"[[ii]][[jj]],file='"+wfile+"',sep=',',append=TRUE)"; cmdlist=append(cmdlist,tmp); - cmdlist=append(cmdlist," for(ii in 1:length("+name+")){"); - tmp=" cat("+name+"[[ii]],file='"+wfile+"',"; + tmp=" cat(sharps,file='"+wfile+"',append=TRUE)"; + cmdlist=append(cmdlist,tmp); + cmdlsit=append(cmdlist," }"); + cmdlist=append(cmdlist," }"); + tmp=" cat(']',file='"+wfile+"',sep=',',append=TRUE)"; + cmdlist=append(cmdlist,tmp); + tmp=" cat(sharps,file='"+wfile+"',append=TRUE)"; + cmdlist=append(cmdlist,tmp); + cmdlist=append(cmdlist," }else{"); + tmp=" cat("+name+"[[ii]],file='"+wfile+"',"; tmp=tmp+"sep=',',append=TRUE)"; cmdlist=append(cmdlist,tmp); - tmp=" cat(sharps,file='"+wfile+"',append=TRUE)"; + tmp=" cat(sharps,file='"+wfile+"',append=TRUE)"; cmdlist=append(cmdlist,tmp); + cmdlist=append(cmdlist," }"); cmdlist=append(cmdlist," }"); cmdlist=append(cmdlist,"}else{"); tmp=" cat("+name+",file='"+wfile+"',sep=',')"; @@ -858,18 +902,39 @@ CalcbyR(name,path,cmd,optionorg):=( tmp1=tmp1_(1..(length(tmp1)-1)); tmp2=[]; forall(tmp1,tmp3, - if(!isstring(tmp3),tmp3=format(tmp3,dig)); - tmp=tokenize(tmp3,","); - tmp=apply(tmp,if(isstring(#),Dq+#+Dq,format(#,dig))); + if(!isstring(tmp3), + tmp=format(tmp3,dig); + , + if(indexof(tmp3,",")==0, + tmp=tmp3; + , + tmp=tokenize(tmp3,","); + tmp=textformat(tmp,dig); + ); + ); tmp2=append(tmp2,tmp); ); if(length(tmp2)==1, tmp2=tmp2_1; - if(length(tmp2)==1,tmp2=tmp2_1);//16.10.24 + if(length(tmp2)==1,tmp2=tmp2_1); + if(isstring(tmp2), + if(indexof(tmp2,"nodata")>0,tmp2=[]); + ); + tmp=name+"="+textformat(tmp2,dig); , - tmp2=[tmp2_1,tmp2_(2..(length(tmp2)))]; + tmp3=""; + forall(tmp2, + if(length(#)==0, + tmp3=tmp3+"[],"; + , + tmp3=tmp3+#+","; + ); + ); + tmp3="["+substring(tmp3,0,length(tmp3)-1)+"]"; + tmp3=replace(tmp3,"[,","["); + tmp3=replace(tmp3,",]","]"); ); - tmp=name+"="+text(tmp2); //16.10.23upto + tmp=name+"="+tmp3; parse(tmp); ); ); @@ -1119,17 +1184,10 @@ Hatchdata(nm,iostr,pltlist):=Hatchdata(nm,iostr,pltlist,[]); Hatchdata(nm,iostr,pltlist,optionorg):=( //17.09.18 //help:Hatchdata("1","ii",[["gr1"],["gr2","n"]]); //help:Hatchdata(options=["Wait=5"]); - regional(options,name,fun,eqL,reL,strL, + regional(options,name,eqL,reL,strL, plt,fname,options,tmp,tmp1,tmp2,tmp3,flg,wflg,waiting); name="ha"+nm; fname=Fhead+name+".txt"; - fun=fnorg; - tmp=indexof(fun,"="); - if(tmp>0, - tmp1=substring(fun,0,tmp-1); - tmp2=substring(fun,tmp,length(fun)); - fun=tmp1+"-("+tmp2+")"; - ); options=optionorg; tmp=Divoptions(options); eqL=tmp_5; @@ -3242,6 +3300,37 @@ Mxload(file):=( //17.06.16 out; ); +Maxima2Cindydata(str):=( //17.10.24 + regional(out,numstr,eL,nn,ne,flg,tmp); + numstr="-0123456789"; + eL=Indexall(str,"e"); + if(length(eL)==0, + out=str; + , + out=substring(str,0,eL_1-1); + forall(1..(length(eL)),nn, + ne=eL_nn; + flg=0; + forall(1..5, + if(flg==0, + tmp=substring(str,ne+#-1,ne+#); + if(indexof(numstr,tmp)==0, + flg=#; + tmp=substring(str,ne,ne+flg-1); + out=out+"*10^("+tmp+")"; + ); + ); + ); + if(nn<length(eL), + out=out+substring(str,ne+flg-1,eL_(nn+1)-1); + , + out=out+substring(str,ne+flg-1,length(str)); + ); + ); + ); + parse(out); +); + kcV3(fname):=kcV3(Dirwork,fname); kcV3(path,fname):=( //help:kcV3(path,"ex.obj"); @@ -3287,10 +3376,18 @@ kcV3(path,fname):=( ); ); -Changeobjscale(fname):=Changeobjscale(ULEN,fname,fname,[]); +Changeobjscale(fname):=( + regional(fout); + fout=replace(fname,".obj",""); + fout=fout+"out.obj"; + Changeobjscale(ULEN,fname,fout,[]); +); Changeobjscale(fname,Arg):=( + regional(fout); if(islist(Arg), - Changeobjscale(ULEN,fname,fname,Arg); + fout=replace(fname,".obj",""); + fout=fout+"out.obj"; + Changeobjscale(ULEN,fname,fout,Arg); , Changeobjscale(ULEN,fname,Arg,[]); ); @@ -3303,10 +3400,10 @@ Changeobjscale(Arg1,Arg2,Arg3):=( ); ); Changeobjscale(unitlen,fnameorg,foutorg,optionorg):=( -//help:Changeobjscale("20mm",fnamei,fmediate); +//help:Changeobjscale("20mm",fname,fnameout); //help:Changeobjscale(options=["Unit=mm",[0,0,0]]); regional(fname,fout,fmd,unit,val,options,eqL,reL, - origin,outunit,sc,stL,nn,tmp,tmp1,tmp2); + origin,outunit,sc,stL,nn,tmp,tmp1,tmp2); options=optionorg; tmp=Divoptions(options); eqL=tmp_5; @@ -3355,24 +3452,27 @@ Changeobjscale(unitlen,fnameorg,foutorg,optionorg):=( fout=foutorg; if(indexof(fout,".")==0,fout=fout+".obj"); tmp1=Textformat(origin,4); - tmp1=replace(tmp1,",",";"); + tmp1=RSform(tmp1); cmdL=[ - "Origin="+tmp1+";",[], - "Sc="+format(sc,6)+";",[], - "Stv=mgetl",[Dq+fname+Dq], - "for nn=1:size(Stv,1),Tmp=Stv(nn);",[], - " if part(Tmp,1:2)=='v ' then,Tmp=tokens(Tmp,' ');",[], - " Tmp=evstr(Tmp(2:4));",[], - " Tmp=Origin+Sc*(Tmp-Origin);",[], - " Tmp='v '+msprintf('%7.4f %7.4f %7.4f',Tmp(1),Tmp(2),Tmp(3));",[], - " Stv(nn,1)=Tmp;",[], - " end;",[], - "end;",[], - "mputl",["Stv",Dq+fout+Dq], - "mputl",["['finished////']",Dq+fmd+Dq] + "Origin="+tmp1,[], + "Sc="+format(sc,6),[], + "Stv=readLines",[Dq+fname+Dq], + "cat('',file="+Dq+fout+Dq+")",[], + "for(nn in Looprange(1,length(Stv))){",[], + " if(substring(Stv[nn],1,2)=='v '){",[], + " Tmp1=paste('c(',substring(Stv[nn],3),')',sep='')",[], + " Tmp1=gsub(' ',',',Tmp1,fixed=TRUE)",[], + " Tmp1=gsub(',,',',',Tmp1,fixed=TRUE)",[], + " Tmp1=gsub('(,','(',Tmp1,fixed=TRUE)",[], + " Tmp=eval(parse(text=Tmp1))",[], + " Tmp=Origin+Sc*(Tmp-Origin)",[], + " Stv[nn]=paste('v ',sprintf('%8.5f %8.5f %8.5f',Tmp[1],Tmp[2],Tmp[3]),sep='')",[], + " }",[], + " cat(Stv[nn],'\n',sep='',file="+Dq+fout+Dq+",append=TRUE)",[], + "}",[] ]; options=concat(["Wait=3","Cat=n","File="+fmd],options); // 16.06.26 - CalcbyS("cs",cmdL,options); + CalcbyR("cs",cmdL,options); println("Scale of "+fname+" changed"); ); @@ -3463,7 +3563,7 @@ Mkviewobj(pathorg,fnameorg,cmdLorg,optionorg):=( ); if(make==1, if(isstring(cmdL_1), - cmdlist=MkprecommandS(); // 16.04.23 + cmdlist=MkprecommandR(); cmdlist=concat(cmdlist,["Openobj",[Dq+path+fname+Dq]]); cmdlist=concat(cmdlist,cmdL); tmp=["Closeobj()",[],"ans="+Dq+"||||"+Dq,[]];//16.12.26 @@ -3474,7 +3574,7 @@ Mkviewobj(pathorg,fnameorg,cmdLorg,optionorg):=( if(length(tmp1)==0, tmp=append(tmp,"Wait=5"); );// 16.04.23upto - CalcbyS("ans",cmdlist,tmp); + CalcbyR("ans",cmdlist,tmp); wait(WaitUnit*100); // 16.03.18 , vtx=cmdL_1; @@ -3520,15 +3620,21 @@ SetObj(str):=Objname(str,["m","v"]); //17.01.12 SetObj(str,options):=Objname(str,options); //17.01.12 Objnameoptions(str,options):=Objname(str,options);// 16.11.29 Objname(str):=Objname(str,["m","v"]); // 16.11.29 -Objname(str,options):=( +Objname(str,optionsorg):=( //help:Objname("sample"); //help:Objname(options=["m","v"]); //help:Setobj("sample"); //help:Setobj(options=["m","v"]); + regional(options); if(length(str)>0, OCNAME=str; ); - OCOPTION=options; + options=select(optionsorg,length(#)>0); //17.12.23from + if(length(options)>0, + OCOPTION=options; + , + OCOPTION=["m","v"]; + ); //17.12.23upto println([OCNAME,OCOPTION]); ); @@ -3557,15 +3663,15 @@ Mkobjcmd(nm,fd,options):=( side="'"+side+"'"; ffd=Fullformfunc(fd); tmp=indexof(ffd_5,"="); - tmp1=substring(ffd_5,0,tmp-1); - tmp2=substring(ffd_5,tmp,length(ffd_5)); + tmp1=RSform(substring(ffd_5,0,tmp-1)); + tmp2=RSform(substring(ffd_5,tmp,length(ffd_5))); tmp=indexof(ffd_6,"="); - tmp3=substring(ffd_6,0,tmp-1); - tmp4=substring(ffd_6,tmp,length(ffd_6)); - out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]]; - tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]"; + tmp3=RSform(substring(ffd_6,0,tmp-1)); + tmp4=RSform(substring(ffd_6,tmp,length(ffd_6))); + out=["Fun"+nm+"<- function("+tmp1+","+tmp3+"){",[]]; + tmp=" Out=c("+ffd_2+","+ffd_3+","+ffd_4+")"; out=concat(out,[tmp,[]]); - out=concat(out,["endfunction",[]]); + out=concat(out,["}",[]]); tmp1=["Objsurf", ["Fun"+nm,tmp2,tmp4,div1,div2,side]]; out=concat(out,tmp1); @@ -3738,35 +3844,34 @@ Mkobjthickcmd(nm,fd,fnrm,optionorg):=( ffd=Fullformfunc(fd); tmp=indexof(ffd_5,"="); tmp1=substring(ffd_5,0,tmp-1); - tmp2=substring(ffd_5,tmp,length(ffd_5)); + tmp2=RSform(substring(ffd_5,tmp,length(ffd_5))); tmp=indexof(ffd_6,"="); tmp3=substring(ffd_6,0,tmp-1); - tmp4=substring(ffd_6,tmp,length(ffd_6)); + tmp4=RSform(substring(ffd_6,tmp,length(ffd_6))); fst=text(ffd_(2..4)); tmp=indexof(ffd_5,"="); xst=substring(ffd_5,0,tmp-1); tmp=indexof(ffd_6,"="); yst=substring(ffd_6,0,tmp-1); - out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]]; - tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]"; + out=["Fun"+nm+"<- function("+tmp1+","+tmp3+"){",[]]; + tmp=" c("+ffd_2+","+ffd_3+","+ffd_4+")"; out=concat(out,[tmp,[]]); - out=concat(out,["endfunction",[]]); - tmp=["function Out=Fnrm"+nm+"("+xst+","+yst+")",[]]; + out=concat(out,["}",[]]); + tmp=["Fnrm"+nm+"<- function("+xst+","+yst+"){",[]]; out=concat(out,tmp); if(fnrm=="", tmp=Mkobjnrm(nm,fd,options); - tmp1="Out="+tmp; // 16.05.17 + tmp1=RSform(tmp); tmp="Fnrmden"+nm+"("+xst+","+yst+"):="+tmp_2; parse(tmp); , -// tmp1=" Out="+fnrm; // 16.04.30 - tmp1=fnrm; // 16.04.30 - if(indexof(tmp1,"Out=")==0, // 16.05.09from - tmp1="Out="+tmp1; - ); // 16.05.09upto + tmp1=RSform(fnrm); +// if(indexof(tmp1,"Out=")==0, // 16.05.09from +// tmp1="Out="+tmp1; +// ); // 16.05.09upto ); out=concat(out,[tmp1,[]]); - out=concat(out,["endfunction",[]]); + out=concat(out,["}",[]]); tmp1=["Objthicksurf", ["Fun"+nm,tmp2,tmp4,div1,div2,"Fnrm"+nm,thick1,thick2,side]]; out=concat(out,tmp1); @@ -3837,7 +3942,9 @@ Mkobjpolycmd(nm,pd,optionorg):=( face_#=reverse(face_#); ); ); - out=["Objpolyhedron",[vtx,face]]; + tmp1=RSform(textformat(vtx,5),2);//17.12.24from + tmp2=RSform(textformat(face,5),2); + out=["Objpolyhedron",[tmp1,tmp2]];//17.12.24upto tmp2=[]; // 16.06.10from forall(out,tmp1, if(islist(tmp1), @@ -3859,7 +3966,7 @@ Mkobjplatecmd(nm,pdorg,optionorg):=( // 16.06.18 //help:Mkobjplatecmd("1",vtxlist); //help:Mkobjplatecmd(options1=[0.05,-0.05]); regional(pd,options,cmd,out,thick1,thick2,nn,pdn, - reL,vtx,face,nv,npttmp,tmp1,tmp2,tmp3); + reL,vtx,face,nv,npttmp,tmp1,tmp2,tmp3,tmp4); pd=pdorg; if(MeasureDepth(pd)==1,pd=[pd]); if(MeasureDepth(pd)==2,pd=[pd]);//16.10.04from @@ -3907,7 +4014,9 @@ Mkobjplatecmd(nm,pdorg,optionorg):=( // 16.06.18 tmp2=concat(tmp2,tmp); tmp=[npt,npt+npt,1+npt,1]; tmp2=append(tmp2,tmp); - out=concat(out,["Objpolyhedron",[vtx,tmp2]]); + tmp3=RSform(textformat(vtx,5),2);//17.12.24from + tmp4=RSform(textformat(tmp2,5),2); + out=concat(out,["Objpolyhedron",[tmp3,tmp4]]);//17.12.24upto ); ); tmp3="["; // 16.06.10from @@ -3971,7 +4080,7 @@ Mkobjcrvcmd(nm,pstorg,options):=( if(flg==1, // 16.04.23upto if(!isstring(tmp1_1), forall(1..length(tmp1), - tmp=["Objcurve",[pst+"("+text(#)+")",thick,poly,dir]]; + tmp=["Objcurve",[pst+"[["+text(#)+"]]",thick,poly,dir]];//17.12.22 out=concat(out,tmp); ); , @@ -4013,7 +4122,7 @@ Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=( //help:Mkobjsymbcmd("x",0.5,0,V3d,A3d); //help:Mkobjsymbcmd("P",0.5,0,V3d,A3d); //help:Mkobjsymbcmd(options=[0.05,4,"'yz'"]); - regional(symb,options,opbez,eqL,reL,stL,dtL,dt, + regional(symb,options,opbez,eqL,reL,stL,dtLstr,dtL,dt, alpha,Alpha,out,mx,Mx,my,My,center,tmp,tmp1,tmp2); alpha="abcdefghijklmnopqrstuvwxyz"; Alpha=Toupper(alpha); @@ -4036,12 +4145,14 @@ Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=( if(length(stL)==0, options=concat(options,[tmp1_3]); ); + out=[]; tmp=parse(symb); - if(islist(tmp), - tmp1=select(GLIST,substring(#,0,length(symb))==symb); - tmp1=tmp1_1; - out=[tmp1,[]]; - dtL=symb; + if((islist(symb)) % (islist(tmp)), //17.12.24from + if(islist(tmp), + dtL=[symb]; + , + dtL=symb; + ); //17.12.24upto , tmp=substring(symb,0,1); if(tmp>="a" & tmp<="z",tmp1=tmp+"s"); @@ -4058,21 +4169,22 @@ Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=( ); ); if(length(symb)==2,symb=tmp1+substring(symb,1,2)); - out=[]; if(length(path)>0, // 16.04.23from setdirectory(path); , -// tmp=Dirhead+"/ketsample/samples/s13meshlab/fontF"; tmp=Dirhead+"/data/fontF"; // 16.05.10 setdirectory(tmp); ); // 16.04.23upto dtL=Readbezier(symb,opbez); + dtLstr=dtL; //17.12.23 setdirectory(Dirwork); forall(dtL,dt, tmp=dt+"="; tmp1=select(GLIST,indexof(#,tmp)>0); - tmp1=tmp1_1; - out=concat(out,[tmp1,[]]); + if(length(tmp1)>0,//17.12.23from + tmp1=tmp1_1; + out=concat(out,[tmp1,[]]); + ); //17.12.23upto ); mx=100;Mx=-100;my=100;My=-100; forall(dtL,dt, @@ -4086,7 +4198,7 @@ Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=( center=[(mx+Mx)/2,(my+My)/2]; tmp1=[]; forall(dtL,dt, - Rotatedata(dt,dt,rot,[center,"nodisp"]); // 16.04.23 + Rotatedata(dt,dt,rot,[center,"nodisp"]); Translatedata(dt,"rt"+dt,-center,["nodisp"]); tmp1=append(tmp1,"tr"+dt); ); @@ -4094,14 +4206,21 @@ Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=( forall(dtL,dt, tmp=dt+"="; tmp1=select(GLIST,indexof(#,tmp)>0); - tmp1=tmp1_1; - out=concat(out,[tmp1,[]]); + if(length(tmp1)>0, //17.12.23from + tmp1=tmp1_1; + out=concat(out,[tmp1,[]]); + ); //17.12.23upto ); ); tmp1=text(options); tmp1=substring(tmp1,1,length(tmp1)-1); + tmp2=""; //17.12.23from + forall(dtL, + tmp2=tmp2+","+#; + ); + tmp2="list("+substring(tmp2,1,length(tmp2))+")"; //17.12.23upto out=concat(out,[ - "Sd=Symb3data",[dtL,size,0,dir,pos], // 16.04.23 + "Sd=Symb3data",[tmp2,size,0,dir,pos], //17.12.23 "Objsymb(Sd,"+tmp1+")",[] ]); tmp2=[]; // 16.06.10from @@ -4481,7 +4600,7 @@ Frifun(name,fun,argL,optionorg):=( parse(nm); ); -Mkketcindyjs():=Mkketcindyjs("ketcindylib"); //16.10.07,11.06 +Mkketcindyjs():=Mkketcindyjs("ketcindylib"); Mkketcindyjs(Arg):=( if(isstring(Arg), Mkketcindyjs(Arg,[]) @@ -4489,7 +4608,7 @@ Mkketcindyjs(Arg):=( Mkketcindyjs("ketcindylib",Arg) ); ); -Mkketcindyjs(libname,options):=( +Mkketcindyjs(libname,options):=( //17.11.18 //help:Mkketcindyjs(); //help:Mkketcindyjs(options="Tex=y","Net=y"]); regional(texflg,netflg,tmp,tmp1,tmp2); @@ -4506,73 +4625,102 @@ Mkketcindyjs(libname,options):=( netflg=Toupper(substring(tmp1,tmp,tmp+1)); ); ); - SCEOUTPUT = openfile(Fhead+".sce"); - println(SCEOUTPUT,"cd('"+Dirhead+"/CindyJS');"); - println(SCEOUTPUT,"Dtket=mgetl('"+libname+".txt');"); - println(SCEOUTPUT,"cd('"+Dirwork+"');"); - println(SCEOUTPUT,"Dtjs=mgetl('"+Fhead+".html');"); - println(SCEOUTPUT,"Qt=char(34);"); - // 17.09.10from - println(SCEOUTPUT, - "Dtinit=['<script id='+Qt+'csinit'+Qt+' type='+Qt+'text/x-cindyscript'+Qt+'>'];"); - println(SCEOUTPUT,"Dtinit=[Dtinit;Dtket;'</script>'];"); - println(SCEOUTPUT,"Dthead=[];"); - println(SCEOUTPUT,"for I=1:size(Dtjs,1)"); - println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'<script id='))==0 then"); - println(SCEOUTPUT," Tmp=Dtjs(I,:);"); - if(netflg=="N", + if(isexists(Dirwork,Fhead+".html"), + SCEOUTPUT = openfile(Fhead+".r"); + println(SCEOUTPUT,"Looprange<- function(a,b){"); + println(SCEOUTPUT," if (a<=b) return(a:b)"); + println(SCEOUTPUT," return(c())"); + println(SCEOUTPUT,"}"); + println(SCEOUTPUT,"setwd('"+Dirfile+"/CindyJS')"); + println(SCEOUTPUT,"Dtket=readLines('"+libname+".txt')"); + println(SCEOUTPUT,"setwd('"+Dirwork+"')"); + println(SCEOUTPUT,"Dtjs=readLines('"+Fhead+".html')"); + println(SCEOUTPUT,"Qt=rawToChar(as.raw(34))"); println(SCEOUTPUT, - " if length(strindex(Tmp,'link rel='))>0 then"); + "Dtinit=c(paste('<script id=',Qt,'csinit',Qt,' type=',Qt,'text/x-cindyscript',Qt,'>',sep=''))"); + println(SCEOUTPUT,"Dtinit=c(Dtinit,Dtket,'</script>')"); + println(SCEOUTPUT,"Dthead=c()"); + println(SCEOUTPUT,"for(I in Looprange(1,length(Dtjs))){"); + println(SCEOUTPUT," if(length(grep('<script id=',Dtjs[I],fixed=TRUE))==0){"); + println(SCEOUTPUT," Tmp=Dtjs[I]"); + if(netflg=="N", + println(SCEOUTPUT, + " if(length(grep('link rel=',Tmp,fixed=TRUE))>0){"); + println(SCEOUTPUT, + " Tmp1='file:///"+Dirfile+"/CindyJS/CindyJS.css'"); + println(SCEOUTPUT, + " Tmp=paste(' <link rel=',Qt,'stylesheet',Qt,' href=',Qt,Tmp1,Qt,'>',sep='')"); + println(SCEOUTPUT, + " }"); + println(SCEOUTPUT, + " Tmp1=length(grep('script type=',Tmp,fixed=TRUE))"); + println(SCEOUTPUT, + " Tmp1=Tmp1*length(grep('Cindy.js',Tmp,fixed=TRUE))"); + println(SCEOUTPUT, + " if(Tmp1>0){"); + println(SCEOUTPUT, + " Tmp1='file:///"+Dirfile+"/CindyJS/Cindy.js'"); + println(SCEOUTPUT, + " Tmp=paste(' <script type=',Qt,'text/javascript',Qt,' src=',Qt,Tmp1,Qt,'>',sep='')"); + println(SCEOUTPUT, + " Tmp=paste(Tmp,'</script>',sep='')"); + println(SCEOUTPUT, + " }"); + ); println(SCEOUTPUT, - " Tmp=' <link rel='+Qt+'stylesheet'+Qt+' href='+Qt+'CindyJS.css'+Qt+'>';"); + " Dthead=c(Dthead,Tmp)"); println(SCEOUTPUT, - " end;"); + " }else{"); println(SCEOUTPUT, - " if length(strindex(Tmp,['script type=','Cindy.js']))>1 then"); + " Is=I; break"); println(SCEOUTPUT, - " Tmp=' <script type='+Qt+'text/javascript'+Qt+' src='+Qt+'Cindy.js'+Qt+'>';"); + " }"); println(SCEOUTPUT, - " Tmp=Tmp+'</script>';"); + "}"); + println(SCEOUTPUT,"Dt=c()"); + println(SCEOUTPUT,"for(I in Looprange(Is,length(Dtjs))){"); + println(SCEOUTPUT," Dt=c(Dt,Dtjs[I])"); + println(SCEOUTPUT," if(length(grep('</script>',Dtjs[I],fixed=TRUE))>0){"); + println(SCEOUTPUT," if(length(grep('draw',Dt[1],fixed=TRUE))>0){Dtdraw=Dt}"); + println(SCEOUTPUT," if(length(grep('keytyped',Dt[1],fixed=TRUE))>0){Dtkey=Dt}"); + println(SCEOUTPUT," Dt=c()"); + println(SCEOUTPUT," if(length(grep('<script id=',Dtjs[I+1],fixed=TRUE))==0){"); + println(SCEOUTPUT," Ie=I+1;break"); + println(SCEOUTPUT," }"); + println(SCEOUTPUT," }"); + println(SCEOUTPUT,"}"); + println(SCEOUTPUT,"Dt=c(Dthead,Dtdraw,Dtkey,Dtinit)"); + println(SCEOUTPUT,"for(I in Looprange(Ie,length(Dtjs))){"); println(SCEOUTPUT, - " end;"); - ); - println(SCEOUTPUT," Dthead=[Dthead;Tmp];"); - println(SCEOUTPUT," else"); - println(SCEOUTPUT," Is=I;break"); - println(SCEOUTPUT," end;"); - println(SCEOUTPUT,"end;"); - println(SCEOUTPUT,"Dt=[];"); - println(SCEOUTPUT,"for I=Is:size(Dtjs,1)"); - println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];"); - println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'</script>'))>0 then"); - println(SCEOUTPUT," if length(strindex(Dt(1,1),'draw'))>0 then Dtdraw=Dt,end;"); - println(SCEOUTPUT," if length(strindex(Dt(1,1),'keytyped'))>0 then Dtkey=Dt,end;"); - println(SCEOUTPUT," Dt=[];"); - println(SCEOUTPUT," if length(strindex(Dtjs(I+1,1),'<script id='))==0 then"); - println(SCEOUTPUT," Ie=I+1;break;"); - println(SCEOUTPUT," end;"); - println(SCEOUTPUT," end;"); - println(SCEOUTPUT,"end;"); - println(SCEOUTPUT,"Dt=[Dthead;Dtdraw;Dtkey;Dtinit];"); - println(SCEOUTPUT,"for I=Ie:size(Dtjs,1)"); - println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Figure']);"); - println(SCEOUTPUT," if length(Tmp)>1 then continue,end;"); - println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Exekc']);"); - println(SCEOUTPUT," if length(Tmp)>1 then continue,end;"); - println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Parent']);"); - println(SCEOUTPUT," if length(Tmp)>1 then continue,end;"); - println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];"); - if(texflg=="Y", - println(SCEOUTPUT," if length(strindex(Dtjs(I,1),Qt+'cs*'+Qt))>0 then"); - println(SCEOUTPUT," Dt=[Dt;' use: ['+Qt+'katex'+Qt+'],'];"); - println(SCEOUTPUT," end;"); - ); - println(SCEOUTPUT,"end;"); - println(SCEOUTPUT,"mputl(Dt,'"+Fhead+"ketcindy.html');"); - // 17.09.10upto - println(SCEOUTPUT,"quit()"); - closefile(SCEOUTPUT); - kcS(PathS,Fhead+".sce",["m"]); + " if(length(grep('Button',Dtjs[I],fixed=TRUE))>0){"); + println(SCEOUTPUT, + " if(length(grep(paste(Qt,'Figure',sep=''),Dtjs[I],fixed=TRUE))>0){next}"); + println(SCEOUTPUT, + " if(length(grep(paste(Qt,'Exekc',sep=''),Dtjs[I],fixed=TRUE))>0){next}"); + println(SCEOUTPUT, + " if(length(grep(paste(Qt,'Parent',sep=''),Dtjs[I],fixed=TRUE))>0){next}"); + println(SCEOUTPUT, + " if(length(grep(paste(Qt,'KeTJS',sep=''),Dtjs[I],fixed=TRUE))>0){next}"); + println(SCEOUTPUT, + " }"); + println(SCEOUTPUT," Dt=c(Dt,Dtjs[I])"); + if(texflg=="Y", + println(SCEOUTPUT, + " if(length(grep(paste(Qt,'cs*',Qt,sep=''),Dtjs[I],fixed=TRUE))>0){"); + println(SCEOUTPUT, + " Dt=c(Dt,paste(' use: [',Qt,'katex',Qt,'],',sep=''))"); + println(SCEOUTPUT, + " }"); + ); + println(SCEOUTPUT,"}"); + println(SCEOUTPUT,"writeLines(Dt,'"+Fhead+"ketcindy.html',sep='\n')"); + println(SCEOUTPUT,"quit()"); + closefile(SCEOUTPUT); + kcR(PathR,Fhead+".r",["m"]); + , + drawtext(mouse().xy-[0,1],"First export to CindyJS",size->24,color->[1,0,0]); + wait(3000); + ); ); Cheader():=Cheader(FdC,FheadC+"header.h"); diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Addcounter.bin Binary files differdeleted file mode 100644 index c1e3ef24..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Addcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Anglemark.bin Binary files differdeleted file mode 100644 index 8b094651..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Anglemark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowdata.bin Binary files differdeleted file mode 100644 index 2af2be64..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowhead.bin Binary files differdeleted file mode 100644 index f4101b32..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowhead.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowheaddata.bin Binary files differdeleted file mode 100644 index 3640469b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowheaddata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowline.bin Binary files differdeleted file mode 100644 index 0d68e6d0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assign.bin Binary files differdeleted file mode 100644 index 3f243306..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assign.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignadd.bin Binary files differdeleted file mode 100644 index 99a0cecd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignadd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignrep.bin Binary files differdeleted file mode 100644 index 47ac2ac9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignrep.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignset.bin Binary files differdeleted file mode 100644 index afb1b3bc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignset.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Beginpicture.bin Binary files differdeleted file mode 100644 index 81625f07..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Beginpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezier.bin Binary files differdeleted file mode 100644 index 1e8b41fb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezier.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezierpt.bin Binary files differdeleted file mode 100644 index f146b511..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezierpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderHiddenData.bin Binary files differdeleted file mode 100644 index bb466f84..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderPt.bin Binary files differdeleted file mode 100644 index 80964b1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderparadata.bin Binary files differdeleted file mode 100644 index 94cfb714..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderpersdata.bin Binary files differdeleted file mode 100644 index bee787d9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderrawdata.bin Binary files differdeleted file mode 100644 index f53ad324..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderrawdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowdata.bin Binary files differdeleted file mode 100644 index 05a4fb2e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowmiddle.bin Binary files differdeleted file mode 100644 index bc02de52..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowmiddle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowname.bin Binary files differdeleted file mode 100644 index 77aa840f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bownamerot.bin Binary files differdeleted file mode 100644 index 49978903..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bownamerot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcHeight.bin Binary files differdeleted file mode 100644 index 5e3f28b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcHeight.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcWidth.bin Binary files differdeleted file mode 100644 index 426023be..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcWidth.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Calcfun.bin Binary files differdeleted file mode 100644 index 7745bccc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Calcfun.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameraCurve.bin Binary files differdeleted file mode 100644 index d037c656..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameraCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameracoordCurve.bin Binary files differdeleted file mode 100644 index 13e374db..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameracoordCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpara.bin Binary files differdeleted file mode 100644 index c16f84ba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpers.bin Binary files differdeleted file mode 100644 index 55b15ad7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Circledata.bin Binary files differdeleted file mode 100644 index 9a27e094..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Circledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Clipindomain.bin Binary files differdeleted file mode 100644 index 73ea5db3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Clipindomain.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closefile.bin Binary files differdeleted file mode 100644 index e7a00c3e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closefile.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closeobj.bin Binary files differdeleted file mode 100644 index f62af795..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closeobj.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepar.bin Binary files differdeleted file mode 100644 index f73458f1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepar.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closephr.bin Binary files differdeleted file mode 100644 index 5960bb73..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closephr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepicture.bin Binary files differdeleted file mode 100644 index 1c8fd062..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Connectseg.bin Binary files differdeleted file mode 100644 index 70566c55..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Connectseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crossprod.bin Binary files differdeleted file mode 100644 index ade04624..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crossprod.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin Binary files differdeleted file mode 100644 index 5c4f8404..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfparadata.bin Binary files differdeleted file mode 100644 index 7d645929..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin Binary files differdeleted file mode 100644 index 7f994b75..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin Binary files differdeleted file mode 100644 index d92d7a5a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfparadata.bin Binary files differdeleted file mode 100644 index 71b24de1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfpersdata.bin Binary files differdeleted file mode 100644 index 835d570f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvsfHiddenData.bin Binary files differdeleted file mode 100644 index 0ecbcb1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfparadata.bin Binary files differdeleted file mode 100644 index dba77269..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfpersdata.bin Binary files differdeleted file mode 100644 index b3a3f8e4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspData.bin Binary files differdeleted file mode 100644 index b2124b51..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspPt.bin Binary files differdeleted file mode 100644 index 08f82d89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspSplitPt.bin Binary files differdeleted file mode 100644 index 2fbf6adb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspSplitPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpara.bin Binary files differdeleted file mode 100644 index b09e4aeb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpers.bin Binary files differdeleted file mode 100644 index 609d057a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cutsf2d.bin Binary files differdeleted file mode 100644 index e6f70b1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cutsf2d.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dashline.bin Binary files differdeleted file mode 100644 index 8f7d28a1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dashline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dataindex.bin Binary files differdeleted file mode 100644 index e3bd11d0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dataindex.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Definecolor.bin Binary files differdeleted file mode 100644 index f0ff3ef8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Definecolor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Deqplot.bin Binary files differdeleted file mode 100644 index a3ba57b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Deqplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Derivative.bin Binary files differdeleted file mode 100644 index 8ab45716..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Derivative.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Diagcelldata.bin Binary files differdeleted file mode 100644 index 70d3663e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Diagcelldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividegraphics.bin Binary files differdeleted file mode 100644 index 03498fd7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividegraphics.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividetable.bin Binary files differdeleted file mode 100644 index abf752c8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividetable.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Doscaling.bin Binary files differdeleted file mode 100644 index 1a024a4d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Doscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotfilldata.bin Binary files differdeleted file mode 100644 index 589adeaf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotfilldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotprod.bin Binary files differdeleted file mode 100644 index 7a097bea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotprod.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dottedline.bin Binary files differdeleted file mode 100644 index c4c45ddd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dottedline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dropnumlistcrv.bin Binary files differdeleted file mode 100644 index 9ac44969..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dropnumlistcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Droppoint.bin Binary files differdeleted file mode 100644 index f4bff84e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Droppoint.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwline.bin Binary files differdeleted file mode 100644 index 69c411ef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwpt.bin Binary files differdeleted file mode 100644 index 5af3db83..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwxy.bin Binary files differdeleted file mode 100644 index 54ce1e7c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwxy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Embed.bin Binary files differdeleted file mode 100644 index 5a081c10..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Embed.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Enclosing.bin Binary files differdeleted file mode 100644 index 17e55798..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Enclosing.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/EnclosingS.bin Binary files differdeleted file mode 100644 index 1a6860c5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/EnclosingS.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Endpicture.bin Binary files differdeleted file mode 100644 index 7fa6e7b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Endpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepara.bin Binary files differdeleted file mode 100644 index e4bb3e12..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepers.bin Binary files differdeleted file mode 100644 index a300752a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Execmd.bin Binary files differdeleted file mode 100644 index 3ed90ff9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Execmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Expr.bin Binary files differdeleted file mode 100644 index 3cae8493..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Expr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Exprrot.bin Binary files differdeleted file mode 100644 index e249a055..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Exprrot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Faceremovaldata.bin Binary files differdeleted file mode 100644 index f7f2e09b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Faceremovaldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Facesdata.bin Binary files differdeleted file mode 100644 index 003930bd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Facesdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Findcell.bin Binary files differdeleted file mode 100644 index 1cc63d81..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Findcell.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Flattenlist.bin Binary files differdeleted file mode 100644 index 47cd3aff..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Flattenlist.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fontsize.bin Binary files differdeleted file mode 100644 index d0ac6d1f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fontsize.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriercoeff.bin Binary files differdeleted file mode 100644 index 0c1ff22d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriercoeff.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/FouriercoeffL.bin Binary files differdeleted file mode 100644 index 0ada7614..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/FouriercoeffL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriersum.bin Binary files differdeleted file mode 100644 index 80d7fa1d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriersum.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fracform.bin Binary files differdeleted file mode 100644 index f17997ae..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fracform.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Framedata.bin Binary files differdeleted file mode 100644 index 4dfc5fba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Framedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fullformfunc.bin Binary files differdeleted file mode 100644 index a445388d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fullformfunc.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gaiseki.bin Binary files differdeleted file mode 100644 index 00cefe7b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gaiseki.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Getcounter.bin Binary files differdeleted file mode 100644 index 5efa1ba3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Getcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gettrace.bin Binary files differdeleted file mode 100644 index 31de11e2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gettrace.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hatchdata.bin Binary files differdeleted file mode 100644 index 8bc86748..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hatchdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hexahedrondata.bin Binary files differdeleted file mode 100644 index ebb9f45e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hexahedrondata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/HiddenWireData.bin Binary files differdeleted file mode 100644 index 0335b185..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/HiddenWireData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Htickmark.bin Binary files differdeleted file mode 100644 index 88ce57e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Htickmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ImplicitData.bin Binary files differdeleted file mode 100644 index f52ad0ee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ImplicitData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Implicitplot.bin Binary files differdeleted file mode 100644 index 5662575f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Implicitplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/InWindow.bin Binary files differdeleted file mode 100644 index 38306a20..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/InWindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Initangle.bin Binary files differdeleted file mode 100644 index 3c6ed6c5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Initangle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Integrate.bin Binary files differdeleted file mode 100644 index deb2de0d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Integrate.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvs.bin Binary files differdeleted file mode 100644 index 3a87071b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectcrvsPp.bin Binary files differdeleted file mode 100644 index de85e2a9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectcrvsPp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvsf.bin Binary files differdeleted file mode 100644 index 3a918b84..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvsf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectlines.bin Binary files differdeleted file mode 100644 index 5b1846e7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectlines.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectselfPp.bin Binary files differdeleted file mode 100644 index 2b895f4d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectselfPp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invdashline.bin Binary files differdeleted file mode 100644 index 76baa221..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invdashline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invert.bin Binary files differdeleted file mode 100644 index def0bb31..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invert.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invparapt.bin Binary files differdeleted file mode 100644 index 07c0c078..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invparapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invperspt.bin Binary files differdeleted file mode 100644 index 5dbdc7cb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invperspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joincrvs.bin Binary files differdeleted file mode 100644 index dafe1e24..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joincrvs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joingraphics.bin Binary files differdeleted file mode 100644 index 97caac64..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joingraphics.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ketinit.bin Binary files differdeleted file mode 100644 index 70e1971c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ketinit.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kouten.bin Binary files differdeleted file mode 100644 index 21dc66a1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kouten.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/KoutenList.bin Binary files differdeleted file mode 100644 index 9ccea2a3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/KoutenList.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Koutenseg.bin Binary files differdeleted file mode 100644 index d191d41a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Koutenseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukannozoku.bin Binary files differdeleted file mode 100644 index 313c934d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukannozoku.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukeiwake.bin Binary files differdeleted file mode 100644 index f705d5b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukeiwake.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyorihensuu.bin Binary files differdeleted file mode 100644 index 3940a613..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyorihensuu.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyoukai.bin Binary files differdeleted file mode 100644 index c9ce9f14..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyoukai.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letter.bin Binary files differdeleted file mode 100644 index bcaebbbd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letterrot.bin Binary files differdeleted file mode 100644 index 4bc6206a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letterrot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Lineplot.bin Binary files differdeleted file mode 100644 index 51fbfbe1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Lineplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Listplot.bin Binary files differdeleted file mode 100644 index 0fa577df..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Listplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeBowdata.bin Binary files differdeleted file mode 100644 index fb13efa4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeBowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeCurves.bin Binary files differdeleted file mode 100644 index 98ddd1a4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeCurves.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakecutbycrvL.bin Binary files differdeleted file mode 100644 index 6356eaed..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakecutbycrvL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makehasen.bin Binary files differdeleted file mode 100644 index 0d7bd77d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makehasen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeliststr.bin Binary files differdeleted file mode 100644 index 83ba3861..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeliststr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makesfcutoffdata.bin Binary files differdeleted file mode 100644 index 92534466..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makesfcutoffdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeshasen.bin Binary files differdeleted file mode 100644 index 2d013048..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeshasen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletondata.bin Binary files differdeleted file mode 100644 index 0bd11580..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletondata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin Binary files differdeleted file mode 100644 index 49a24e6c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makevaltable.bin Binary files differdeleted file mode 100644 index 67316bd1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makevaltable.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeveLfaceL.bin Binary files differdeleted file mode 100644 index 1658b408..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeveLfaceL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makexybdy.bin Binary files differdeleted file mode 100644 index 95c31670..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makexybdy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mawarikomi.bin Binary files differdeleted file mode 100644 index fcf74e3c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mawarikomi.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MeetWindow.bin Binary files differdeleted file mode 100644 index f5ced4c3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MeetWindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Meetpoints.bin Binary files differdeleted file mode 100644 index 6cd9f985..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Meetpoints.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Member.bin Binary files differdeleted file mode 100644 index c41eb72e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Member.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi.bin Binary files differdeleted file mode 100644 index ab493424..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi2.bin Binary files differdeleted file mode 100644 index 659d412f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mix.bin Binary files differdeleted file mode 100644 index f26a75b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mix.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixL.bin Binary files differdeleted file mode 100644 index 1a2a931f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixS.bin Binary files differdeleted file mode 100644 index 92c22101..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixS.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixadd.bin Binary files differdeleted file mode 100644 index 43809cb9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixadd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixdisp.bin Binary files differdeleted file mode 100644 index 4562fd87..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixdisp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixjoin.bin Binary files differdeleted file mode 100644 index 29800896..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixjoin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixlength.bin Binary files differdeleted file mode 100644 index dc725565..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixlength.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixmake.bin Binary files differdeleted file mode 100644 index e1ab36e0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixmake.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixop.bin Binary files differdeleted file mode 100644 index 74a5a6aa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixop.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixsub.bin Binary files differdeleted file mode 100644 index 332d7968..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixsub.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixtype.bin Binary files differdeleted file mode 100644 index b188ade7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixtype.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naigai.bin Binary files differdeleted file mode 100644 index 4c0a5b2d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naigai.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naiseki.bin Binary files differdeleted file mode 100644 index d7d9f480..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naiseki.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nearestpt.bin Binary files differdeleted file mode 100644 index bf51af8a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nearestpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Newlength.bin Binary files differdeleted file mode 100644 index 80a32401..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Newlength.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara.bin Binary files differdeleted file mode 100644 index b7f0d8cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara2.bin Binary files differdeleted file mode 100644 index 7bfcf7ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers.bin Binary files differdeleted file mode 100644 index 2bdabcc4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers2.bin Binary files differdeleted file mode 100644 index b692d55a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Numptcrv.bin Binary files differdeleted file mode 100644 index 57a2ce6f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Numptcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objcurve.bin Binary files differdeleted file mode 100644 index 845d40ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objcurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objjoin.bin Binary files differdeleted file mode 100644 index 92afe9ad..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objjoin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objname.bin Binary files differdeleted file mode 100644 index a14bcc2f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolygon.bin Binary files differdeleted file mode 100644 index da05430c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolygon.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolyhedron.bin Binary files differdeleted file mode 100644 index 18416f1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolyhedron.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objrecs.bin Binary files differdeleted file mode 100644 index bef4fb7d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objrecs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsurf.bin Binary files differdeleted file mode 100644 index 6bbe6d7d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsurf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsymb.bin Binary files differdeleted file mode 100644 index 8c215679..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsymb.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objthicksurf.bin Binary files differdeleted file mode 100644 index e66c254e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objthicksurf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Op.bin Binary files differdeleted file mode 100644 index fb3d3b45..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Op.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openfile.bin Binary files differdeleted file mode 100644 index e1625a76..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openfile.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openobj.bin Binary files differdeleted file mode 100644 index 2024ea60..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openobj.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpar.bin Binary files differdeleted file mode 100644 index c812540a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpar.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openphr.bin Binary files differdeleted file mode 100644 index 41d69ca5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openphr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpicture.bin Binary files differdeleted file mode 100644 index f10f1efc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovalbox.bin Binary files differdeleted file mode 100644 index 32bf34e8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovalbox.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovaldata.bin Binary files differdeleted file mode 100644 index d28e36ee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovaldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramark.bin Binary files differdeleted file mode 100644 index a7078f9c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ParamonCurve.bin Binary files differdeleted file mode 100644 index e4c31df3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ParamonCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramoncrv.bin Binary files differdeleted file mode 100644 index f532d7ee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramoncrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramplot.bin Binary files differdeleted file mode 100644 index ffebca84..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Parapt.bin Binary files differdeleted file mode 100644 index e7958ab9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Parapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv.bin Binary files differdeleted file mode 100644 index d54eb52f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv3.bin Binary files differdeleted file mode 100644 index 07321262..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv3.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partframe.bin Binary files differdeleted file mode 100644 index a13d3f5f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partframe.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PartitionPt.bin Binary files differdeleted file mode 100644 index 58cef916..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PartitionPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partitionseg.bin Binary files differdeleted file mode 100644 index 6f557a3b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partitionseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Perspt.bin Binary files differdeleted file mode 100644 index f95c613a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Perspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhFaceL.bin Binary files differdeleted file mode 100644 index 2d1eec35..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhFaceL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhHiddenData.bin Binary files differdeleted file mode 100644 index ac5490d9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhVertexL.bin Binary files differdeleted file mode 100644 index 814b8791..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhVertexL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutdata.bin Binary files differdeleted file mode 100644 index d700ec69..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutoffdata.bin Binary files differdeleted file mode 100644 index ccea3366..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutoffdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phidegree.bin Binary files differdeleted file mode 100644 index c3f667e3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phidegree.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phparadata.bin Binary files differdeleted file mode 100644 index 2e3c664b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phpersdata.bin Binary files differdeleted file mode 100644 index 1a2bbf95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawparadata.bin Binary files differdeleted file mode 100644 index 903c9029..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawpersdata.bin Binary files differdeleted file mode 100644 index 5e7b5ffb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsparadata.bin Binary files differdeleted file mode 100644 index da8b1196..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phspersdata.bin Binary files differdeleted file mode 100644 index 6ac27dcb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phspersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawparadata.bin Binary files differdeleted file mode 100644 index a3da7dd1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawpersdata.bin Binary files differdeleted file mode 100644 index 8843cde4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Plotdata.bin Binary files differdeleted file mode 100644 index c0547852..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Plotdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointdata.bin Binary files differdeleted file mode 100644 index 8c11c2c2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PointonCurve.bin Binary files differdeleted file mode 100644 index e6055b42..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PointonCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointoncrv.bin Binary files differdeleted file mode 100644 index cf693dd1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointoncrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Powersum.bin Binary files differdeleted file mode 100644 index 1dce322f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Powersum.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Prime.bin Binary files differdeleted file mode 100644 index e7094eb4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Prime.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Printobjstr.bin Binary files differdeleted file mode 100644 index 3a62be73..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Printobjstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjCurve.bin Binary files differdeleted file mode 100644 index 2ca583e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjcoordCurve.bin Binary files differdeleted file mode 100644 index 5de23ccd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjcoordCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpara.bin Binary files differdeleted file mode 100644 index bda03ab0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpers.bin Binary files differdeleted file mode 100644 index fbf6d134..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptcrv.bin Binary files differdeleted file mode 100644 index 13f43f67..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptend.bin Binary files differdeleted file mode 100644 index 10ac2f07..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptend.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PthiddenQ.bin Binary files differdeleted file mode 100644 index cf36ca4e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PthiddenQ.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptne.bin Binary files differdeleted file mode 100644 index 4f608b89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptne.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptnw.bin Binary files differdeleted file mode 100644 index 727cf4d5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptnw.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptse.bin Binary files differdeleted file mode 100644 index f09e463c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptse.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptstart.bin Binary files differdeleted file mode 100644 index c1303557..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptstart.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptsw.bin Binary files differdeleted file mode 100644 index 1003cd61..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptsw.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcell.bin Binary files differdeleted file mode 100644 index be3a6f13..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcell.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcirmark.bin Binary files differdeleted file mode 100644 index d154a0a0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcirmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoL.bin Binary files differdeleted file mode 100644 index 77a99874..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLexpr.bin Binary files differdeleted file mode 100644 index 01e1b69c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLexpr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLstr.bin Binary files differdeleted file mode 100644 index a4872a7f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putdashmark.bin Binary files differdeleted file mode 100644 index 1e679bfc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putdashmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrecmark.bin Binary files differdeleted file mode 100644 index 5df6db75..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrecmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrow.bin Binary files differdeleted file mode 100644 index 042a7261..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowexpr.bin Binary files differdeleted file mode 100644 index df1a3849..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowexpr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowstr.bin Binary files differdeleted file mode 100644 index da18fb37..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Puttrace.bin Binary files differdeleted file mode 100644 index 10769324..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Puttrace.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ratiocmyk.bin Binary files differdeleted file mode 100644 index 56a87566..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ratiocmyk.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadOutData.bin Binary files differdeleted file mode 100644 index 0acb33cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadOutData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadfromCindy.bin Binary files differdeleted file mode 100644 index 8d4a1b0e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadfromCindy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Readtextdata.bin Binary files differdeleted file mode 100644 index f51f7599..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Readtextdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Reflectdata.bin Binary files differdeleted file mode 100644 index 02bd0619..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Reflectdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rmmember.bin Binary files differdeleted file mode 100644 index 1036fe46..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rmmember.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3data.bin Binary files differdeleted file mode 100644 index 6cfc7b1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3pt.bin Binary files differdeleted file mode 100644 index 7bc8974d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3pt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotatedata.bin Binary files differdeleted file mode 100644 index dcde7e7d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotatedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Roundstr.bin Binary files differdeleted file mode 100644 index c9678719..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Roundstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Scaledata.bin Binary files differdeleted file mode 100644 index aca40719..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Scaledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sectionview.bin Binary files differdeleted file mode 100644 index bfdb8495..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sectionview.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setangle.bin Binary files differdeleted file mode 100644 index 997e8178..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setangle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setarrow.bin Binary files differdeleted file mode 100644 index 1d2063bf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setarrow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setax.bin Binary files differdeleted file mode 100644 index 46e49d69..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcolor.bin Binary files differdeleted file mode 100644 index ae62bffa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcolor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcounter.bin Binary files differdeleted file mode 100644 index 3a609bc9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmark.bin Binary files differdeleted file mode 100644 index be2cbbb6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmarklen.bin Binary files differdeleted file mode 100644 index 79ae6660..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmarklen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjdecimals.bin Binary files differdeleted file mode 100644 index 3fe068d8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjdecimals.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjscale.bin Binary files differdeleted file mode 100644 index adc5ef97..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjscale.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setorigin.bin Binary files differdeleted file mode 100644 index ed695e7f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setorigin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpen.bin Binary files differdeleted file mode 100644 index 934f8764..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpers.bin Binary files differdeleted file mode 100644 index e417c91f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpt.bin Binary files differdeleted file mode 100644 index f9fb21b4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setscaling.bin Binary files differdeleted file mode 100644 index faf60668..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoL.bin Binary files differdeleted file mode 100644 index c0d4e9e7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoR.bin Binary files differdeleted file mode 100644 index 44dc173e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoR.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setunitlen.bin Binary files differdeleted file mode 100644 index d6b8e988..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setunitlen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setversion.bin Binary files differdeleted file mode 100644 index 9658e1ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setversion.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setwindow.bin Binary files differdeleted file mode 100644 index fc39c4e1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setwindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sf3data.bin Binary files differdeleted file mode 100644 index bed3747e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sf3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdparadata.bin Binary files differdeleted file mode 100644 index bd7b7168..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdpersdata.bin Binary files differdeleted file mode 100644 index 86ba2a9e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawparadata.bin Binary files differdeleted file mode 100644 index c4009953..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin Binary files differdeleted file mode 100644 index 278af331..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutdata.bin Binary files differdeleted file mode 100644 index 5aa6fd04..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffparadata.bin Binary files differdeleted file mode 100644 index b22043d8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin Binary files differdeleted file mode 100644 index 64f416d6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin Binary files differdeleted file mode 100644 index cd356699..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin Binary files differdeleted file mode 100644 index 295812ba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfparadata.bin Binary files differdeleted file mode 100644 index c98b95ed..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfpersdata.bin Binary files differdeleted file mode 100644 index 5a780fab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Shade.bin Binary files differdeleted file mode 100644 index c4a3aef7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Shade.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeleton2data.bin Binary files differdeleted file mode 100644 index b3d2d402..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeleton2data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpara3data.bin Binary files differdeleted file mode 100644 index 5895e254..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpara3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonparadata.bin Binary files differdeleted file mode 100644 index c34f7e16..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpers3data.bin Binary files differdeleted file mode 100644 index 4ba4947b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpers3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpersdata.bin Binary files differdeleted file mode 100644 index 9c83ea64..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spacecurve.bin Binary files differdeleted file mode 100644 index 0e8bacaf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spacecurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spaceline.bin Binary files differdeleted file mode 100644 index b097e980..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spaceline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Splinedata.bin Binary files differdeleted file mode 100644 index 7a3c634c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Splinedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Strop.bin Binary files differdeleted file mode 100644 index ca70656e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Strop.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Subs.bin Binary files differdeleted file mode 100644 index 66f8e6c0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Subs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sumfun.bin Binary files differdeleted file mode 100644 index a2bafc2c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sumfun.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symb3data.bin Binary files differdeleted file mode 100644 index 131297e0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symb3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symbdata.bin Binary files differdeleted file mode 100644 index a1a27f00..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symbdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tabledata.bin Binary files differdeleted file mode 100644 index ab4bb5ed..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tabledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texcom.bin Binary files differdeleted file mode 100644 index 74871299..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texcom.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texctr.bin Binary files differdeleted file mode 100644 index e0e2dab3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texelse.bin Binary files differdeleted file mode 100644 index 4e974456..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texelse.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texend.bin Binary files differdeleted file mode 100644 index d22ea31d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texend.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendfor.bin Binary files differdeleted file mode 100644 index 0d86b601..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendfor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendif.bin Binary files differdeleted file mode 100644 index 46fd7b7e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendif.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texfor.bin Binary files differdeleted file mode 100644 index f5e92c99..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texfor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texforinit.bin Binary files differdeleted file mode 100644 index a8140128..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texforinit.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texif.bin Binary files differdeleted file mode 100644 index be4c9157..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texif.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texletter.bin Binary files differdeleted file mode 100644 index 99ef9902..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texletter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewcmd.bin Binary files differdeleted file mode 100644 index 0904029d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewcmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewctr.bin Binary files differdeleted file mode 100644 index 7d332cfd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texrenewcmd.bin Binary files differdeleted file mode 100644 index 1abdf882..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texrenewcmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texsetctr.bin Binary files differdeleted file mode 100644 index ccfce689..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texsetctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texthectr.bin Binary files differdeleted file mode 100644 index f2e50561..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texthectr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvalctr.bin Binary files differdeleted file mode 100644 index a224f885..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvalctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvctr.bin Binary files differdeleted file mode 100644 index 2fee3584..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Thetadegree.bin Binary files differdeleted file mode 100644 index 5f360f2f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Thetadegree.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ThisVersion.bin Binary files differdeleted file mode 100644 index 5aa530ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ThisVersion.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tolist.bin Binary files differdeleted file mode 100644 index 5e76126d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tolist.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translate3data.bin Binary files differdeleted file mode 100644 index 3fd4aeda..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translate3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translatedata.bin Binary files differdeleted file mode 100644 index 3262007d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translatedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Trunc.bin Binary files differdeleted file mode 100644 index a05f649a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Trunc.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Unscaling.bin Binary files differdeleted file mode 100644 index 1bd27535..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Unscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa.bin Binary files differdeleted file mode 100644 index 1668581e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa2.bin Binary files differdeleted file mode 100644 index 3acff07e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Viewfrom.bin Binary files differdeleted file mode 100644 index 06515c27..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Viewfrom.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vtickmark.bin Binary files differdeleted file mode 100644 index e0c9fdf2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vtickmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Windisp.bin Binary files differdeleted file mode 100644 index 487a5881..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Windisp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WireHiddenData.bin Binary files differdeleted file mode 100644 index 15d7c7ea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WireHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WirePt.bin Binary files differdeleted file mode 100644 index 8356c7d3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WirePt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wireparadata.bin Binary files differdeleted file mode 100644 index 8a956544..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wireparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirepersdata.bin Binary files differdeleted file mode 100644 index 06813c26..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirepersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawparadata.bin Binary files differdeleted file mode 100644 index 53ef48f2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawpersdata.bin Binary files differdeleted file mode 100644 index a4463d6f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WriteOutData.bin Binary files differdeleted file mode 100644 index 35bbb30a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WriteOutData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writeobjpoint.bin Binary files differdeleted file mode 100644 index 1c115eb9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writeobjpoint.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writetextdata.bin Binary files differdeleted file mode 100644 index 90e83be0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writetextdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WritetoCindy.bin Binary files differdeleted file mode 100644 index 3cc76a71..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WritetoCindy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmax.bin Binary files differdeleted file mode 100644 index 51ccdf48..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmin.bin Binary files differdeleted file mode 100644 index bba8a4ee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzax3data.bin Binary files differdeleted file mode 100644 index 3a5e517b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzax3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxparaname.bin Binary files differdeleted file mode 100644 index d89801c7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxparaname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxpersname.bin Binary files differdeleted file mode 100644 index f89ae3a7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxpersname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymax.bin Binary files differdeleted file mode 100644 index cc5aea83..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymin.bin Binary files differdeleted file mode 100644 index e454fb5a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zparapt.bin Binary files differdeleted file mode 100644 index 1749fad9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zparapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zperspt.bin Binary files differdeleted file mode 100644 index 8613eba7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zperspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ketcindylibhelpE.txt b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ketcindylibhelpE.txt deleted file mode 100644 index 437bdefd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ketcindylibhelpE.txt +++ /dev/null @@ -1,116 +0,0 @@ -//help:start(); -//help:drawimage*(import image into the screen); -//help:drawtext*(write letters on the screen); -//help:Option1*(specify the style of drawing lines); -//help:Option2*(specify the way of writing data out); -//help:Option3*(specify the way of reading and writing data in); -//help:Changestyle*(change the style for drawing plot data); -//help:Workprocess*(display the process of execution); -//help:Textformat*(convert number into string with specific number of digits); -//help:Assign*(replace the name of variable in the string by some specific value); -//help:Flattenlist*(flatten the list of data); -//help:Dotprod*(inner product); -//help:Crossprod*(exterior product); -//help:Ptstart*(starting point of plot data); -//help:Ptend*(ending point of plot data); -//help:Numptcrvtenn*(number of points in plot data); -//help:Ptcrv*(the n-th point of plot data); -//help:Invert*(reverse the orientation of curve); -//help:ParamonCurve*(information (parameter value etc.) of the point in plot data); -//help:PointonCurve*(the point in the plot data specified by the given information); -//help:Nearestptcrv*(the point in the curve which is nearest to the given point); -//help:Nearestpt*(the points in two given curves which are nearest each other); -//help:Derivative*(calculate the differential coefficient); -//help:Integrate*(numerical integration); -//help:Findarea*(calculate the area of the region surrounded by a closed curve); -//help:Findlength*(calculate the length of curve); -//help:Com2nd*(add the Scilab command to write out plot data into TeX); -//help:Texcom*(write command into TeX output exactly as written here); -//help:SetEnglish*(display Scilab messages in English language); -//help:Setunitlen*(specify the unit length); -//help:Setmarklen*(specify the unit length of the tickmarks on coordinate axis); -//help:Setorigin*(specify the position the origin); -//help:Fontsize*(specify the size of font); - //help:Setpen*(specify the thickness of line); -//help:Setpt*(specify the size of point); -//help:Definecolor*(define the color for user's own use); -//help:Setcolor*(specify the color); -//help:Joincrvs*(join curves); -//help:Partcrv*(cut out some part of the curve); -//help:Pointdata*(generate the plot data of point -//additional option : "Size="); -//help:Listplot*(generate the plot data of a polyline); -//help:Lineplot*(generate the plot data of line); -//help:Plotdata*(generate the plot data of function -//additional option : "Num=", "Exc=", "Dis="); -//help:Paramplot*(generate the plot data of parametric function -//additional option : "Num=", "Exc=", "Dis="); -//help:Circledata*(generate the plot data of circle -//additional option : "Num=", "Rng="); -//help:Framedata*(generate the plot data of rectangle); -//help:Ovaldata*(generate the plot data of oval shape); -//help:Arrowhead*(generate the plot data of arrowhead -//option : size, sharpness, shape and position in the arrow); -//help:Arrowdata*(generate the plot data of arrow line -//option : size of arrowhead, sharpness(angle),position of arrowhead); -//help:Anglemark*(generate the plot data of angle mark option : size); -//help:Paramark*(generate the plot data of right angle mark option : size); -//help:Bowdata*(generate the plot data of bow arched curve -//option : curvatute, size of the blank space, letter); -//help:Deqplot*(generate the solution curve of differential equation -//additional option : "Num="); -//help:Hatchdata*(add hatching into some region -// option : slope, degree, space betwen lines)); -//help:Enclosing*(generate the plot data of closed curve connecting some curves); -//help:Shade*(add shading into some region option : depth); -//help:Rotatepoint*(rotate the point, option : center); -//help:Translatepoint*(pararell transport of the point); -//help:Scalepoint*(magnify or reduce the position of point option : center); - //help:Reflectpoint*(reflect the point); -//help:Rotatedata*(rotate the plot data option : center); -//help:Scaledata*(magnify or reduce the plot data option : center); -//help:Reflectdata*(reflect the plot data); -//help:Mksegments*(generate the plot data of all segments on the screen); -//help:Mkcircles*(generate the plot data of all circles on the screen): -//help:Setax*(specify the setting of coordinate axes); -//help:Htickmark*(put a tickmark on the horizontal coordinate axis); -//help:Vtickmark*(put a tickmark on the vertical coordinate axis); -//help:Drwxy*(draw coordinate axes); -//help:Addax*(specify whether coordinate axes are drawn or not); -//help:Expr*(write mathematical expressions at a specific position); -//help:Letter*(write letters at a specific position); -//help:Letterrot*(write sloped letters at a specific position): -//help:Exprrot*(write sloped mathematical expressions at a specific position): -//help:Putpoint*(put a point at the specific position); -//help:Bezier*(generate the plot data of Bezier curve); -//help:Mkbezierptcrv*(generate the plot data of Bezier curve by automatically taking controll points); -//help:CRspline*(generate the plot data of Catmull-Rom spline curve); -//help:Beziersmooth*(generate the plot data of Bezier spline curve); -//help:Bspline*(generate the plot data of B-spline curve); -//help:PtonLine*(put a point on a specific line); -//help:PtonSeg*(put a point on a specific segment); -//help:PutonCurve*(put a point on a specific curve); -//help:Setscaling*(specify the rate of magnification in the vertical direction); - //help:Tabledatalight*(generate the plot data of table without geometric points - //additional option : rules to be removed); - //help:Tgrid*(return the coordinates of a cell in the table); - //help:Tlistplot*(draw segment connecting two lattice points in the table); -//help:ChangeTablestyle*(change the style for drawing rules in the table); -//help:Tabledata*(generate the plot data of table with geometric points - //option : usual options+rules to be removed); -//help:Tabledata*(xLst=apply(1..5,10);yLst=apply(1..4,8);rmvL=[];); -//help:Findcell*(return the information of a cell in the table); -//help:Putcell*(write letters in a specific cell of the table); -//help:Putcellexpr*(write mathematical expressions in a specific cell of the table); -//help:Putrow*(write letters in a specific row of the table)); -//help:Putrowexpr*(write mathematical expressions in a specific row of the table); -//help:PutcoL*(write letters in a specific column of the table)); -//help:PutcoLexpr*(write mathematical expressions in a specific column of the table)); -//help:Setwindow*(specify the area of drawing); -//help:Defvar*(the definition of a variable is called by Scilab); -//help:Deffun*(the definition of a function is called by Scilab); -//help:Extractdata*(endow attribute to the imported plot data); -//help:ReadOutData*(import the plot data); -//help:WriteOutData*(export the plot data); -//help:Removespace*(remove spaces of in front and behind); -//help:end(); diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/names b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/names deleted file mode 100644 index 02079ff8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/names +++ /dev/null @@ -1,341 +0,0 @@ -Addcounter -Anglemark -Arrowdata -Arrowhead -Arrowheaddata -Arrowline -Assign -Assignadd -Assignrep -Assignset -Beginpicture -Bezierpt -Bezier -BorderHiddenData -Borderparadata -Borderpersdata -BorderPt -Borderrawdata -Bowdata -Bowmiddle -Bowname -Bownamerot -Calcfun -CalcHeight -CalcWidth -CameracoordCurve -CameraCurve -Cancoordpara -Cancoordpers -Circledata -Clipindomain -Closefile -Closepar -Closephr -Closepicture -Closeobj -Connectseg -Crossprod -Crv3onsfHiddenData -Crv3onsfparadata -Crv3onsfpersdata -CrvonsfHiddenData -Crvonsfparadata -Crvonsfpersdata -CrvsfHiddenData -Crvsfparadata -Crvsfpersdata -CuspData -CuspPt -Cuspsplitpara -Cuspsplitpers -CuspSplitPt -Cutsf2d -Dashline -Dataindex -Definecolor -Deqplot -Derivative -Diagcelldata -Dividegraphics -Dividetable -Doscaling -Dotfilldata -Dotprod -Dottedline -Dropnumlistcrv -Droppoint -Drwline -Drwpt -Drwxy -Embed -Enclosing -EnclosingS -Endpicture -Evlptablepara -Evlptablepers -Execmd -Expr -Exprrot -Faceremovaldata -Facesdata -Findcell -Flattenlist -Fontsize -Fouriercoeff -FouriercoeffL -Fouriersum -Fracform -Framedata -Fullformfunc -Gaiseki -Getcounter -Gettrace -Hatchdata -Hexahedrondata -HiddenWireData -Htickmark -Implicitplot -ImplicitData -Initangle -Integrate -Intersectcrvs -Intersectcrvsf -IntersectcrvsPp -Intersectlines -IntersectselfPp -Invdashline -Invert -Invparapt -Invperspt -InWindow -Joincrvs -Joingraphics -Ketinit -Kouten -KoutenList -Koutenseg -Kukannozoku -Kukeiwake -Kyorihensuu -Kyoukai -Letter -Letterrot -Lineplot -Listplot -MakeBowdata -MakecutbycrvL -MakeCurves -Makehasen -Makeliststr -Makesfcutoffdata -Makeshasen -Makeskeletondata -Makeskeletonpersdata -Makevaltable -MakeveLfaceL -Makexybdy -Mawarikomi -Meetpoints -MeetWindow -Member -Menkakusi -Menkakusi2 -Mix -Mixadd -Mixdisp -Mixjoin -MixL -Mixlength -Mixmake -Mixop -MixS -Mixsub -Mixtype -Naigai -Naiseki -Nearestpt -Newlength -Nohiddenpara -Nohiddenpara2 -Nohiddenpers -Nohiddenpers2 -Numptcrv -Objjoin -Objname -Objcurve -Objpolyhedron -Objpolygon -Objrecs -Objsurf -Objsymb -Objthicksurf -Openobj -Op -Openfile -Openpar -Openphr -Openpicture -Ovalbox -Ovaldata -Paramark -Paramoncrv -ParamonCurve -Paramplot -Parapt -Partcrv -Partcrv3 -Partframe -PartitionPt -Partitionseg -Perspt -Phcutdata -Phcutoffdata -Phidegree -PhFaceL -PhHiddenData -Phparadata -Phpersdata -Phsparadata -Phspersdata -Phrawparadata -Phrawpersdata -Phsrawparadata -Phsrawpersdata -PhVertexL -Plotdata -Pointdata -Pointoncrv -PointonCurve -Powersum -Prime -Printobjstr -ProjcoordCurve -ProjCurve -Projpara -Projpers -Ptcrv -Ptend -PthiddenQ -Ptne -Ptnw -Ptse -Ptstart -Ptsw -Putcell -Putcirmark -PutcoL -PutcoLexpr -PutcoLstr -Putdashmark -Putrecmark -Putrow -Putrowexpr -Putrowstr -Puttrace -Ratiocmyk -ReadfromCindy -ReadOutData -Readtextdata -Reflectdata -Rmmember -Rotate3data -Rotate3pt -Rotatedata -Roundstr -Scaledata -Sectionview -Setangle -Setarrow -Setax -Setcolor -Setcounter -Setmark -Setmarklen -Setobjdecimals -Setobjscale -Setorigin -Setpen -Setpers -Setpt -Setscaling -SetstereoL -SetstereoR -Setunitlen -Setversion -Setwindow -Sf3data -Sfbdparadata -Sfbdpersdata -Sfbdrawparadata -Sfbdrawpersdata -Sfcutdata -Sfcutoffparadata -Sfcutoffpersdata -Sfcutoffrawparadata -Sfcutoffrawpersdata -Sfparadata -Sfpersdata -Shade -Skeleton2data -Skeletonparadata -Skeletonpara3data -Skeletonpersdata -Skeletonpers3data -Spacecurve -Spaceline -Splinedata -Strop -Subs -Sumfun -Symbdata -Symb3data -Tabledata -Texcom -Texctr -Texelse -Texend -Texendfor -Texendif -Texfor -Texforinit -Texif -Texletter -Texnewcmd -Texnewctr -Texrenewcmd -Texsetctr -Texthectr -Texvalctr -Texvctr -Thetadegree -ThisVersion -Tolist -Translate3data -Translatedata -Trunc -Unscaling -Vecnagasa -Vecnagasa2 -Viewfrom -Vtickmark -Windisp -WireHiddenData -Wireparadata -Wirepersdata -WirePt -Wirerawparadata -Wirerawpersdata -WriteOutData -Writetextdata -WritetoCindy -Writeobjpoint -Xmax -Xmin -Xyzaxparaname -Xyzaxpersname -Xyzax3data -Ymax -Ymin -Zparapt -Zperspt diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin Binary files differdeleted file mode 100644 index 04ec361b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci deleted file mode 100644 index c940a543..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 09.09.10 - -function Addcounter(varargin) - global GCOUNTER; - if Nargs==0 - N=1; - else - N=varargin(1); - GCOUNTER=GCOUNTER+N; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin Binary files differdeleted file mode 100644 index 9e505d61..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci deleted file mode 100644 index 6deb302c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci +++ /dev/null @@ -1,33 +0,0 @@ -// 08.06.05 -// 16.12.29 ( for too short segment ) - -function Out=Anglemark(varargin) - Nargs=length(varargin); - Eps=10^(-3); - PA=varargin(1); PB=varargin(2); PC=varargin(3); - r = 0.5; - if Nargs>=4 - r = varargin(4)*r; - end - Out=[]; // 16.12.29 - if r>min(norm(PA-PB),norm(PC-PB)) then - return; - end; - Cir=Circledata(PB,r); - Tmp=IntersectcrvsPp(Cir,Listplot(PA,PB)); - P1=Op(2,Op(1,Tmp)); - Tmp=IntersectcrvsPp(Cir,Listplot(PC,PB)); - P2=Op(2,Mixop(1,Tmp)); - if abs(P1-P2)<Eps - Out=[]; - return; - end - if P1<P2-Eps - Out=Partcrv(P1,P2,Cir); - else - Tmp=Numptcrv(Cir); - Tmp1=Partcrv(P1,Tmp,Cir); - Tmp2=Partcrv(1,P2,Cir); - Out=Joincrvs(Tmp1,Tmp2); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin Binary files differdeleted file mode 100644 index fa50bd08..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci deleted file mode 100644 index f6ac6ef2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci +++ /dev/null @@ -1,58 +0,0 @@ -// 08.05.08 - -function Out=Arrowdata(varargin) - global YaSize YaAngle YaPosition YaThick YaStyle; - Nargs=length(varargin); - P=varargin(1); - Q=varargin(2); - R=Q; - Futosa=YaThick; - Ookisa=YaSize; - Thickness=1; - Hiraki=YaAngle; - Yapos=YaPosition; - Position=1; - Str=YaStyle; - Flg=0; - for I=3:Nargs - Tmp=varargin(I); - if type(Tmp)==1 - if length(Tmp)>1 - R=Tmp - else - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki; - else - Hiraki=Tmp; - end - end - if Flg==2 - R=P+Tmp*(Q-P); - else - R=P+Yapos*(Q-P); - end - if Flg==3 - Futosa=Tmp - end - Flg=Flg+1; - end - end - if type(Tmp)==10 - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - Futosa=Futosa*Thickness; - R=P+Position*(Q-P); - else - Str=Tmp - end - end - end - Tmp1=Listplot([P,Q]); - Tmp2=Arrowheaddata(R,Q-P,Ookisa,Hiraki,Futosa,Str); - Out=Joingraphics(Tmp1,Tmp2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin Binary files differdeleted file mode 100644 index bbd95348..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci deleted file mode 100644 index 9073ca6e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci +++ /dev/null @@ -1,107 +0,0 @@ -// -// 08.06.01 -// 09.12.25 -// 12.01.07 kirikomi(Cut) -// 12.04.16 debugged -// 13.05.17 debugged -// 13.11.13 debugged -// 15.06.11 debugged -// 15.06.14 debugged -// 15.06.15 improved - -function Arrowhead(varargin) - global Wfile FID MilliIn YaSize - global YaAngle YaPosition YaThick YaStyle; - Nargs=length(varargin); - P=varargin(1); - Houkou=varargin(2); - Ookisa=0.2*YaSize; - Hiraki=YaAngle; - Futosa=0.5*YaThick; - Cut=0; - Str=YaStyle; - Flg=0; - for I=3:Nargs - Tmp=varargin(I); - if type(Tmp)==10 - Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from - if length(Equal)>0 - Tmp2=strsplit(Tmp,Equal-1); - if Tmp2(1)=="Cut" | Tmp2(1)=="cut" - Tmp="Cut"+Tmp2(2); - execstr(Tmp); - end; - else - Str=Tmp; - end; // 12.01.07 upto - end; - if type(Tmp)==1 & length(Tmp)==1 - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki - else - Hiraki=Tmp - end - end - if Flg==2 - Futosa=Tmp - end - Flg=Flg+1; - end - end; - Ookisa=1000/2.54/MilliIn*Ookisa; - Theta=Hiraki*%pi/180; - if size(Houkou,1)>1 - P=Doscaling(P); - Houkou=Doscaling(Houkou); - Tmp=Nearestpt(P,Houkou); - A=Op(1,Tmp); - I=floor(Op(2,Tmp)); - G=Circledata(P,Ookisa*cos(Theta),'N=10'); - Flg=0; // 13.11.13 - for J=I:-1:1 - B=Ptcrv(J,Houkou); - Tmp=IntersectcrvsPp(Listplot([A,B]),G); - if Mixlength(Tmp)>0 - Flg=1; - break - end - A=B - end - if Flg==0 // 13.11.13 - disp('Arrowhead may be too large (no intersect)'); - return - end - Houkou=P-Op(1,Op(1,Tmp)); - Houkou=Unscaling(Houkou); - P=Unscaling(P); - end; - P=Doscaling(P); - Houkou=Doscaling(Houkou); - Ev=-1/Vecnagasa(Houkou)*Houkou; - Nv=[-Ev(2),Ev(1)]; - if mtlb_findstr(Str,'c')~=[] - P=P-0.5*Ookisa*cos(Theta)*Ev - end; - if mtlb_findstr(Str,'b')~=[] - P=P-Ookisa*cos(Theta)*Ev - end; - A=P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv; - B=P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv; - if mtlb_findstr(Str,'l')~=[] - Tmp=Listplot([A,P,B]); - Tmp1=Unscaling(Tmp); // 13.05.17 - Drwline(Tmp1,Futosa); - else - C=P+(1-Cut)*((A+B)/2-P); // 12.01.05 - Tmp=Listplot([A,P,B,C,A]); // 12.01.05 - Tmp1=Unscaling(Tmp); - Shade(Tmp1); - Tmp=Listplot([A,P,B,C,A,P]); // 15.6.20 - Tmp1=Unscaling(Tmp); - Drwline(Tmp1,0.1); // 15.06.11, 15.06.14 - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin Binary files differdeleted file mode 100644 index 99f58621..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci deleted file mode 100644 index 68dfe27c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci +++ /dev/null @@ -1,89 +0,0 @@ -// 08.05.31 -// 09.12.25 -// 13.11.13 debugged -// 14.11.02 debugged - -function Out=Arrowheaddata(varargin) - global YaSize YaAngle YaPosition YaThick YaStyle; - Eps=10^(-3); - Nargs=length(varargin); - Out=[]; - P=varargin(1); - Houkou=varargin(2); - Ookisa=0.2*YaSize; - Hiraki=YaAngle; - Futosa=0; - Thickness=1; - Str=YaStyle; - Flg=0; - for I=3:Nargs - Tmp=varargin(I); - if type(Tmp)==10 - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - Futosa=Thickness; - else - Str=Tmp; - end - end - if type(Tmp)==1 & length(Tmp)==1 - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki; - else - Hiraki=Tmp; - end - end - Flg=Flg+1; - end - end - Theta=Hiraki*%pi/180; - if size(Houkou,1)>1 - P=Doscaling(P); - Houkou=Doscaling(Houkou); - Tmp=Nearestpt(P,Houkou); - A=Op(1,Tmp); - I=floor(Op(2,Tmp)); - if I==1 // 14.11.02 - if norm(Ptend(Houkou)-Ptstart(Houkou))<Eps - l=Numptcrv(Houkou); - end; - end; - G=Circledata(P,Ookisa*cos(Theta),'N=10'); - Flg=0; // 13.11.13 - for J=I:-1:1 - B=Ptcrv(J,Houkou); - Tmp=IntersectcrvsPp(Listplot([A,B]),G); - if Mixlength(Tmp)>0 - Flg=1; - break - end - A=B - end - if Flg==0 // 13.11.13 - disp('Arrowhead may be too large (no intersect)'); - return - end - Houkou=P-Op(1,Op(1,Tmp)); - Houkou=Unscaling(Houkou); - P=Unscaling(P); - end - P=Doscaling(P); - Houkou=Doscaling(Houkou); - E=-1/Vecnagasa(Houkou)*Houkou; - N=[-E(2),E(1)]; - if mtlb_findstr(Str,'c')~=[] - P=P-0.5*Ookisa*cos(Theta)*E; - end - if mtlb_findstr(Str,'b')~=[] - P=P-Ookisa*cos(Theta)*E - end - A=P+Ookisa*cos(Theta)*E+Ookisa*sin(Theta)*N; - B=P+Ookisa*cos(Theta)*E-Ookisa*sin(Theta)*N; - Out=Listplot([A,P,B]); - Out=Unscaling(Out); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin Binary files differdeleted file mode 100644 index dec6b519..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci deleted file mode 100644 index 881662b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci +++ /dev/null @@ -1,57 +0,0 @@ -// -// 12.01.07 kirikomi(Cut) -// 12.08.26 debugged -// 15.06.11 debugged -// 15.10.24 debugged - -function Arrowline(varargin) - global YaSize YaAngle YaPosition YaThick YaStyle Kirikomi; - Nargs=length(varargin) - P=varargin(1); - Q=varargin(2); - Futosa=YaThick; - Ookisa=YaSize; - Hiraki=YaAngle; - Yapos=YaPosition; - Cutstr="Cut=0"; - Str=YaStyle; - Flg=0; - for I=3:Nargs - Tmp=varargin(I); - if type(Tmp)==10 - Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from - if length(Equal)>0 - Tmp2=strsplit(Tmp,Equal-1); - if (Tmp2(1)=="Cut") | (Tmp2(1)=="cut") - Tmp="Cut"+Tmp2(2); - Cutstr=Tmp; - end - else - Str=Tmp; // 12.01.07 upto (debugged on 12.08.26) - end; - end; - if (type(Tmp)==1) & (length(Tmp)==1) - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki; - else - Hiraki=Tmp; - end - end - if Flg==2 - Yapos=Tmp; - end - if Flg==3 - Futosa=Tmp; - end - Flg=Flg+1; - end - end - R=P+Yapos*(Q-P); - Tmp=Q-Unscaling(0.2*Ookisa/2*(Q-P)/norm(Q-P)); // 15.10.24 - Drwline(Listplot([P,Tmp]),Futosa); - Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str); // 12.01.07 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin Binary files differdeleted file mode 100644 index a4ad2b27..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci deleted file mode 100644 index 8d9201cc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci +++ /dev/null @@ -1,202 +0,0 @@ -// 08.09.26 -// 09.09.21 -// 09.09.26 -// 09.10.01 -// 09.10.03 -// 09.10.05 -// 09.10.08 -// 09.10.09 ( format=20) -// 09.10.15 ( added Assign('') : reset -// 09.10.17 ( Matrix added, ? -> number returned) -// 09.10.21 ( list supported with Makeliststr ) -// 14.10.04 format=12 -// 14.12.11 only replaced when variable name -// 14.12.28 debugged ( tmp2, ` ) -// 15.02.18 debugged ( for list of string ) -// 15.02.19 debugged -// 15.04.18 debugged - -function Out=Assign(varargin) - global ASSIGNLIST; - Curfmt=format(); - format(12); // 14.10.04 - Nargs=length(varargin); - if Nargs==0 - ASSIGNLIST=list('`',Prime()); - Out=ASSIGNLIST; - format(Curfmt(2)); - return; - end; - L=list('`',char(39)); - NL=length(L); - if modulo(Nargs,2)==0 - for I=1:Nargs - L(I+NL)=varargin(I); - end; - ASSIGNLIST=L; - Out=L; - format(Curfmt(2)); - return; - end; - if Nargs==1 - Fnstr=varargin(1); - if Fnstr=='' - L=ASSIGNLIST; - Out=[]; - for I=1:2:length(L) - Tmp1=L(I); - Tmp2=L(I+1); - if length(Tmp2)==1 - Tmp3=string(Tmp2); - else - Tmp3='['; - for J=1:length(Tmp2) - Tmp3=Tmp3+string(Tmp2(J)); - if J<length(Tmp2) - Tmp3=Tmp3+','; - end; - end; - Tmp3=Tmp3+']'; - end; - Out=[Out,Tmp1+'='+Tmp3]; - end; - format(Curfmt(2)); - return; - end; - if part(Fnstr,1)=='?' - Tmp=strsplit(Fnstr,1); - Fnstr=Tmp(2); - for I=1:2:length(ASSIGNLIST) - Tmp=ASSIGNLIST(I); - if Tmp==Fnstr - Out=Mixjoin(I,ASSIGNLIST(I+1)); - format(Curfmt(2)); - return; - end; - end; - Out='Not found'; - format(Curfmt(2)); - return; - end; // - L=ASSIGNLIST; - else - if type(varargin(2))==1 - Fnstr=varargin(Nargs); - for I=1:Nargs-1 - L(I)=varargin(I); - end; - else - Fnstr=varargin(1); - for I=2:Nargs - L(I-1)=varargin(I); - end; - end; - end; - Tmp3=Fnstr; // 15.04.18 - for I=1:2:length(L) - Vname=L(I); - Val=L(I+1); - if Vname=="`" // 14.12.28 - Tmp3=strsubst(Tmp3,Vname,Val); - continue - end; - if type(Val)==1 - if size(Val,1)==1 & size(Val,2)>1 // 15.04.18 - for K=1:length(Val) - Tmp=Vname+'('+string(K)+')'; - if mtlb_findstr(Tmp3,Tmp)~=[] - if type(Val(K))==1 - Tmp1='('+string(Val(K))+')'; - else - Tmp1=Val(K); - end; - Tmp3=strsubst(Tmp3,Tmp,Tmp1); - end; - end; - else - for J=1:size(Val,1) - for K=1:size(Val,2) - Tmp=Vname+'('+string(J)+','+string(K)+')'; - if mtlb_findstr(Tmp3,Tmp)~=[] - if type(Val(J,K))==1 - Tmp1='('+string(Val(J,K))+')'; - else - Tmp1=Val(J,K); - end; - Tmp3=strsubst(Tmp3,Tmp,Tmp1); - end; - end; - end; - end; - if length(Val)==1 - Rep=string(Val); - else - Rep='['; - for J=1:size(Val,1) - for K=1:size(Val,2) - Rep=Rep+string(Val(J,K)); - if K<size(Val,2) - Rep=Rep+','; - end; - end; - if J<size(Val,1) - Rep=Rep+';'; - else - Rep=Rep+']'; - end; - end; - end; - Tmp1='('+Rep+')'; - end; - if type(Val)==10 - Tmp1=Val; - end; - if type(Val)==15 - Tmp1=Makeliststr(Val); - end; - Notvar=[48:57,65:90,97:122]; - for K=1:size(Tmp3,2) - Tmp2=Tmp3(K); - if length(Tmp2)>0 then - Flist=mtlb_findstr(Tmp2,Vname); - else - Flist=[]; - end - if length(Flist)==0 then - Tmp3(K)=Tmp2; // 15.04.18 - continue - end - Str=part(Tmp2,1:(Flist(1)-1)); - for I=1:length(Flist) - Flg=0; - J=Flist(I); - if J>1 then - Tmp=ascii(part(Tmp2,J-1)); - if Member(Tmp,Notvar) then - Flg=1; - end; - end - if J+length(Vname)-1<length(Tmp2) then // 15.04.18 - Tmp=ascii(part(Tmp2,J+length(Vname))); // 15.04.18 - if Member(Tmp,Notvar) then - Flg=1; - end; - end; - if Flg==0 then - Str=Str+Tmp1; - else - Str=Str+Vname; - end; - if I<length(Flist) then - Tmp=Flist(I+1)-1; - else - Tmp=length(Tmp2); - end; - Str=Str+part(Tmp2,(J+length(Vname)):Tmp); - Tmp3(K)=Str; // 15.04.18 - end; - end; - end; - Out=Tmp3; // 15.02.18 upto - format(Curfmt(2)); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin Binary files differdeleted file mode 100644 index c6c202fa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci deleted file mode 100644 index d8883e6c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 09.10.03 - -function Out=Assignadd(varargin) - global ASSIGNLIST; - Nargs=length(varargin); - L=ASSIGNLIST; - Is=length(L); - for I=1:Nargs - L(I+Is)=varargin(I); - end; - ASSIGNLIST=L; - Out=L; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin Binary files differdeleted file mode 100644 index 3e962180..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci deleted file mode 100644 index 0a362b01..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci +++ /dev/null @@ -1,22 +0,0 @@ -// 09.10.17 -// 09.12.05 -// 09.12.29 -// 14.09.30 addition supported - -function Assignrep(varargin) - global ASSIGNLIST; - Nargs=length(varargin); - for I=1:2:Nargs - Vname=varargin(I); - Val=varargin(I+1); - Tmp=Assign('?'+Vname); - if Tmp=='Not found' - Tmp=length(ASSIGNLIST); - ASSIGNLIST(Tmp+1)=Vname; - ASSIGNLIST(Tmp+2)=Val; - else - I=Tmp(1); - ASSIGNLIST(I+1)=Val; - end; - end -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin Binary files differdeleted file mode 100644 index 04246041..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci deleted file mode 100644 index bb77c105..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.10.21 - -function Assignset(varargin) - I=1:length(varargin); - Tmp=Assign(varargin(I));; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin Binary files differdeleted file mode 100644 index aa6d94ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci deleted file mode 100644 index f93e3200..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci +++ /dev/null @@ -1,6 +0,0 @@ -// 08.05.22 - -function Beginpicture(ul) - Openpicture(ul) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin Binary files differdeleted file mode 100644 index 4de26d03..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci deleted file mode 100644 index 7d1993eb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 15.01.01 - -function Out=Bezier(varargin) - Nargs=length(varargin); - Ptlist=varargin(1); - Ctrlist=varargin(2); - Num=10; - for J=3:Nargs - Tmp=varargin(J); - K=mtlb_findstr(Tmp,'='); - Tmp1=strsplit(Tmp,[K-1,K]); - Tmp2=ascii(Tmp1(1,1)); - Lhs=char(Tmp2(1)); - if Lhs=="N" then - Num=evstr(Tmp1(3,1)); - end; - end; - if length(Num)==1 - Num=Num*ones(1:length(Ctrlist)) - end; - Out=[]; - for ii=1:length(Ctrlist) - Tmp1=[Ptlist(ii),Ptlist(ii+1)]; - Tmp2=Ctrlist(ii); - if ii==1 then - St=0 - else - St=1 - end; - for J=St:Num(ii) - Tmp=Bezierpt(J/Num(ii),Tmp1,Tmp2); - Out=[Out;Tmp]; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin Binary files differdeleted file mode 100644 index 53d89112..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci deleted file mode 100644 index ac639249..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 15.01.01 -// 15.02.08 for 3d - -function Out=Bezierpt(t,Ptlist,Ctrlist) - if length(Ptlist)==6 then // 3d 15.02.08 - P0=Ptlist(1:3); - P3=Ptlist(4:6); - P1=Ctrlist(1:3); - if length(Ctrlist)==3 then - P2=P3; - flg3=0; - else - P2=Ctrlist(4:6); - flg3=1; - end; - else - P0=Ptlist(1:2); - P3=Ptlist(3:4); - P1=Ctrlist(1:2); - if length(Ctrlist)==2 then - P2=P3; - flg3=0; - else - P2=Ctrlist(3:4); - flg3=1; - end; - end; - P4=(1-t)*P0+t*P1; - P5=(1-t)*P1+t*P2; - P6=(1-t)*P2+t*P3; - P7=(1-t)*P4+t*P5; - P8=(1-t)*P5+t*P6; - P9=(1-t)*P7+t*P8; - if flg3==0 then - Out=P7; - else - Out=P9; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin Binary files differdeleted file mode 100644 index 2c743976..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci deleted file mode 100644 index dac12561..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.13 - -function Out=BorderHiddenData() - global BORDERHIDDENDATA - Out=BORDERHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin Binary files differdeleted file mode 100644 index 6fb6e54e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci deleted file mode 100644 index 12947bcd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.13 - -function Out=BorderPt() - global BORDERPT - Out=BORDERPT -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin Binary files differdeleted file mode 100644 index 1e0a62fc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci deleted file mode 100644 index 2e944821..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci +++ /dev/null @@ -1,121 +0,0 @@ -// 08.09.13 -// 08.09.16 -// 08.10.10 -// 08.10.11 -// 08.10.15 -// 08.10.28 -// 09.03.09 -// 09.05.27 -// 09.06.03 -// 10.02.16 Eps=> [Eps, Epsmg] -// 13.10.21 ( __ added to varibles ) - -function FsL__=Borderparadata(varargin) - global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA - global PARTITIONPT - Nargs__=length(varargin); - FkL__=varargin(1); - Fd__=varargin(2); N__=3; - FdL__=Fullformfunc(Fd__); - Fxy__=Mixop(1,FdL__); - Tmp__1=Mixop(2,FdL__); - Tmp__2=Mixop(3,FdL__); - Tmp__3=Mixop(4,FdL__); - Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; - DrwS__=Mixop(7,FdL__); - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Np__=[50,50]; - if Nargs__>=3 - Np__=varargin(3); N__=4; - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Eps__=[0.05,1]; // - if Nargs__>=N__ Eps__=varargin(N__); end; - Eps__2=0.2; - if Nargs__>=N__+1 Eps__2=varargin(N__+1); end; - Umin__=Urg__(1); Umax__=Urg__(2); - Vmin__=Vrg__(1); Vmax__=Vrg__(2); - EkL__=[]; - Tmp__=mtlb_findstr(DrwS__,'e'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'n'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'w'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'s'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - if Mixlength(EkL__)>0 - FkL__=Mixjoin(FkL__,EkL__); - end; - Fall__=Projpara(FkL__); - if Mixtype(Fall__)==1 - Fall__=Mix(Fall__) - end; - Fbdxy__=Makexybdy(Fd__,Np__); - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - BORDERPT=[]; - Tmp__=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixadd(Tmp__,[]); - end; - OTHERPARTITION=Tmp__; - FsL__=[]; - BORDERHIDDENDATA=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixop(I__,FkL__); - Tmp__=Projpara(Tmp__); - Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); // - if Mixlength(PARTITIONPT)>2 - Tmp__=Mixlength(PARTITIONPT)-1; - Tmp__1=Mixsub(2:Tmp__,PARTITIONPT); - BORDERPT=Mixjoin(BORDERPT,Tmp__1); - end; - Tmp__1=Mixop(I__,FkL__); - Tmp__=Nohiddenpara2(Par__,Tmp__1,Fd__,1,Np__,Eps__); - if Mixlength(HIDDENDATA)>0 - BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); - end; - if Mixlength(Tmp__)>0 - FsL__=Mixjoin(FsL__,Tmp__); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin Binary files differdeleted file mode 100644 index 2a4cc650..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci deleted file mode 100644 index f86ddfa0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci +++ /dev/null @@ -1,120 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 08.10.11 -// 08.10.28 -// 09.03.09 -// 09.05.27 -// 09.06.03 -// 10.02.16 Eps__ -// 13.11.01 ( __ added to varibles ) - -function FsL__=Borderpersdata(varargin) - global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA - global PARTITIONPT - Nargs__=length(varargin); - FkL__=varargin(1); - Fd__=varargin(2); N=3; - FdL__=Fullformfunc(Fd__); - Fxy__=Mixop(1,FdL__); - Tmp__1=Mixop(2,FdL__); - Tmp__2=Mixop(3,FdL__); - Tmp__3=Mixop(4,FdL__); - Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; - DrwS__=Mixop(7,FdL__); - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Np__=[50,50]; - if Nargs__>=3 - Np__=varargin(3); N=4; - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Eps__=0.05; - Eps__=[0.05,1]; // - if Nargs__>=N Eps__=varargin(N); end; - Eps__2=0.2; - if Nargs__>=N+1 Eps__2=varargin(N+1); end; - Umin__=Urg__(1); Umax__=Urg__(2); - Vmin__=Vrg__(1); Vmax__=Vrg__(2); - EkL__=[]; - Tmp__=mtlb_findstr(DrwS__,'e'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'n'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'w'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'s'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - if Mixlength(EkL__)>0 - FkL__=Mixjoin(FkL__,EkL__); - end; - Fall__=Projpers(FkL__); - if Mixtype(Fall__)==1 - Fall__=Mix(Fall__); - end; - Fbdxy__=Makexybdy(Fd__,Np__); - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - BORDERPT=[]; - Tmp__=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixadd(Tmp__,[]); - end; - OTHERPARTITION=Tmp__; - FsL__=[]; - BORDERHIDDENDATA=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixop(I__,FkL__); - Tmp__=Projpers(Tmp__); - Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); - if Mixlength(PARTITIONPT)>2 - Tmp__=Mixlength(PARTITIONPT)-1; - Tmp__1=Mixsub(2:Tmp__,PARTITIONPT); - BORDERPT=Mixjoin(BORDERPT,Tmp__1); - end; - Tmp__1=Mixop(I__,FkL__); - Tmp__=Nohiddenpers2(Par__,Tmp__1,Fd__,1,Np__,Eps__); - if Mixlength(HIDDENDATA)>0 - BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); - end; - if Mixlength(Tmp__)>0 - FsL__=Mixjoin(FsL__,Tmp__); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin Binary files differdeleted file mode 100644 index fb44560f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci deleted file mode 100644 index 657efc23..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci +++ /dev/null @@ -1,64 +0,0 @@ -// 08.09.10 - -function FkL=Borderrawdata(varargin) - Nall=length(varargin); - FkL=varargin(1); - FdL=Fullformfunc(varargin(2)); - Tmp1=Mixop(2,FdL); - Tmp2=Mixop(3,FdL); - Tmp3=Mixop(4,FdL); - Xyzstr=[Tmp1,Tmp2,Tmp3]; - DrwS=Mixop(7,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - Np=[50,50]; - if Nall>=3 - Np=varargin(3); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Um=Urg(1); UM=Urg(2); - Vm=Vrg(1); VM=Vrg(2); - EkL=[]; - Tmp=mtlb_findstr(DrwS,'e'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Uname,'('+string(UM)+')'); - Tmp2=Mixop(6,FdL); - Tmp3='N='+string(Np(2)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'n'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Vname,'('+string(VM)+')'); - Tmp2=Mixop(5,FdL); - Tmp3='N='+string(Np(1)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'w'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Uname,'('+string(Um)+')'); - Tmp2=Mixop(6,FdL); - Tmp3='N='+string(Np(2)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'s'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Vname,'('+string(Vm)+')'); - Tmp2=Mixop(5,FdL); - Tmp3='N='+string(Np(1)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - FkL=Mixjoin(FkL,EkL); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin Binary files differdeleted file mode 100644 index a5819013..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci deleted file mode 100644 index 48154cf1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci +++ /dev/null @@ -1,45 +0,0 @@ -// -// 08.05.22 -// 08.08.24 - -function Pd=Bowdata(varargin) - global BOWMIDDLE BOWSTART BOWEND - Nargs=length(varargin); - PA=varargin(1); - PB=varargin(2); - Cut=0; - D=1/2*Vecnagasa(PB-PA); - if Nargs>=3 - H=varargin(3)*D*0.2; - else - H=D*0.2; - end - H=min(H,D); - if Nargs>=4 - Cut=varargin(4); - end - Ydata=MakeBowdata(PA,PB,H); - C=Mixop(1,Ydata); - r=Mixop(2,Ydata); - R1=Mixop(3,Ydata); - R2=Mixop(4,Ydata); - Rng='R=['+string(R1)+','+string(R2)+']'; - Theta=(R1+R2)*0.5; - BOWMIDDLE=MixS([C(1)+r*cos(Theta),C(2)+r*sin(Theta)],Theta); - M=Mixop(1,BOWMIDDLE); - ThetaM=Mixop(2,BOWMIDDLE); - BOWSTART=PA; - BOWEND=PB; - if Cut==0 - Pd=Circledata(C,r,Rng); - else - Alpha=R1; Beta=ThetaM-Cut/(2*r); - Rng='R=['+string(Alpha)+','+string(Beta)+']'; - Pd=Circledata(C,r,Rng); - Alpha=ThetaM+Cut/(2*r); Beta=R2; - Rng='R=['+string(Alpha)+','+string(Beta)+']'; - Tmp=Circledata(C,r,Rng); - Pd=[Pd;%inf,%inf;Tmp]; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin Binary files differdeleted file mode 100644 index b212c380..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci deleted file mode 100644 index 5157c111..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci +++ /dev/null @@ -1,53 +0,0 @@ -// -// 08.05.22 -// 08.05.31 -// 09.08.12 - -function M=Bowmiddle(varargin) - global BOWMIDDLE; - Nargs=length(varargin); - if Nargs==0 - M=BOWMIDDLE; - return; - end; - if Nargs==1 - Bdata=varargin(1); - A=Bdata(1,:); - Dind=Dataindex(Bdata); - Dc=size(Dind,1); - Tmp=Dind(Dc,2); - B=Bdata(Tmp,:); - if Dc==1 - Tmp1=round(Tmp/2); - else - Tmp1=Dind(1,2); - end; - D=Bdata(Tmp1,:); - B=B-A; - D=D-A; - Tmp1=B(1)*D(2)-D(1)*B(2); - Tmp2=((B(1)^2+B(2)^2)*D(2)-B(2)*(D(1)^2+D(2)^2))/2; - Tmp3=-((B(1)^2+B(2)^2)*D(1)-B(1)*(D(1)^2+D(2)^2))/2; - C=[Tmp2,Tmp3]/Tmp1+A; - R=norm(C-A); - B=B+A; - V=(A+B)/2-C; - V=V/norm(V); - M=C+R*V; - else - A=varargin(1); B=varargin(2); - D=1/2*Vecnagasa(B-A); - H=0.2*D; - if length(varargin)>=3 - Tmp=varargin(3); - H=Tmp*D*0.2; - end - H=min(H,D); - Ydata=MakeBowdata(A,B,H); - C=Op(1,Ydata); - R=Op(2,Ydata); - T=(Op(3,Ydata)+Op(4,Ydata))/2; - P=C+R*[cos(T),sin(T)]; - M=MixS(P,T); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin Binary files differdeleted file mode 100644 index 7286b547..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci deleted file mode 100644 index f57c4961..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci +++ /dev/null @@ -1,40 +0,0 @@ -// -// 08.08.24 -// 09.08.12 -// 09.08.13 -// 13.11.30 Directon supported - -function Bowname(varargin) - global BOWMIDDLE; - Nargs=length(varargin); - Siki=varargin(Nargs); - Nargs=Nargs-1; // 13.11.30 - Dr="c"; - if Nargs>=1 then - Tmp=varargin(Nargs); - if type(Tmp)==10 - Dr=Tmp; - Nargs=Nargs-1; - end - end - if Nargs==0 // 13.11.30 - P=Mixop(1,BOWMIDDLE); - elseif Nargs==1 // 13.11.30 - Bdata=varargin(1); - P=Bowmiddle(Bdata); - else - A=varargin(1); B=varargin(2); - D=1/2*Vecnagasa(B-A); - Tmp=varargin(3); - if type(Tmp)==10 - H=D*0.2; - else - H=Tmp*D*0.2; - end; - H=min(H,D); - Ydata=MakeBowdata(A,B,H); - Tmp=Bowmiddle(Ydata); - P=Mixop(1,Tmp); - end - Expr(P,Dr,Siki); //13.11.30 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin Binary files differdeleted file mode 100644 index b66d56a9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci deleted file mode 100644 index 8d1edf78..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci +++ /dev/null @@ -1,77 +0,0 @@ -// 08.05.31 -// 08.08.24 -// 09.08.12 -// 09.08.13 -// 13.12.15 tiny move supported -// A,B type no longer supported - -function Bownamerot(varargin) - global Wfile FID BOWMIDDLE BOWSTART BOWEND; - Nargs=length(varargin); - Eps=10^(-6); - Flg=1; - Tmp=varargin(Nargs); - if type(Tmp)==1 & length(Tmp)==1 & Tmp<0 - Flg=Tmp; - Nargs=Nargs-1; - end; - Siki=varargin(Nargs); - Nargs=Nargs-1; - Dr="c"; - if Nargs>=1 then - Tmp=varargin(Nargs); - if type(Tmp)==10 - Dr=Tmp; - Nargs=Nargs-1; - end - end - if Nargs==0 - P=Mixop(1,BOWMIDDLE); - A=BOWSTART; - B=BOWEND; - else - Bdata=varargin(1); - P=Bowmiddle(Bdata); - A=Bdata(1,:); - B=Bdata(size(Bdata,1),:); - Tm=0; Tv=0; - if Nargs>1 then // 13.12.15 - Tm=varargin(2); - if Nargs>2 then - Tv=varargin(3); - end - end - end; -// elseif Nargs==1 -// Bdata=varargin(1); -// P=Bowmiddle(Bdata); -// A=Bdata(1,:); -// B=Bdata(size(Bdata,1),:); -// else -// A=varargin(1); B=varargin(2); -// D=1/2*Vecnagasa(B-A); -// Tmp=varargin(3); -// if type(Tmp)==10 -// H=0.2*D; Siki=Tmp; -// else -// H=Tmp*D*0.2; Siki=varargin(4); -// end -// H=min(H,D); -// Ydata=MakeBowdata(A,B,H); -// C=Op(1,Ydata); -// R=Op(2,Ydata); -// T=(Op(3,Ydata)+Op(4,Ydata))/2; -// P=C+R*[cos(T),sin(T)]; -// end; - if A(1)>B(1)+Eps - Tmp=A; - A=B; - B=Tmp; - end; - if Flg>0 - Tmp=B-A; - else - Tmp=A-B; - end; - Exprrot(P,Tmp,Tm,Tv,Siki); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin Binary files differdeleted file mode 100644 index dd6d1a9c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci deleted file mode 100644 index aa1216dd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci +++ /dev/null @@ -1,31 +0,0 @@ -function CalcHeight(Hoko,Moji) - global Wfile FID; - D=0; - Tmp=ascii(Hoko); - H=char(Tmp(1)); - Str=['\settoheight{\Height}{'+Moji+'}']; - Str=[Str,'\settodepth{\Depth}{'+Moji+'}']; - if H=='n' - Str=[Str,'\setlength{\Height}{\Depth}']; - end - if H=='s' - Str=[Str,'\setlength{\Height}{-\Height}']; - end - if H=='c' - Str=[Str,'\setlength{\Height}{-0.5\Height}']; - Str=[Str,'\setlength{\Depth}{0.5\Depth}']; - Str=[Str,'\addtolength{\Height}{\Depth}']; - end - if Wfile=='default' - for I=1:size(Str,2) - mprintf('%s',Str(I)); - end - mprintf('%s\n','%'); - else - for I=1:size(Str,2) - mfprintf(FID,'%s',Str(I)); - end - mfprintf(FID,'%s\n','%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin Binary files differdeleted file mode 100644 index cba76bac..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci deleted file mode 100644 index 111e9b3b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci +++ /dev/null @@ -1,26 +0,0 @@ -function CalcWidth(Hoko,Moji) - global Wfile FID - D=0; - Tmp=ascii(Hoko); - H=char(Tmp(2)); - if H=='e' - D=0; - end - if H=='w' - D=-1.0; - end - if H=='c' - D=-0.5; - end - Str1='\settowidth{\Width}{'+Moji+'}'; - Tmp=string(D); - Str2='\setlength{\Width}{'+Tmp+'\Width}'; - if Wfile=='default' - mprintf('%s',Str1); - mprintf('%s%s\n',Str2,'%'); - else - mfprintf(FID,'%s',Str1); - mfprintf(FID,'%s%s\n',Str2,'%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin Binary files differdeleted file mode 100644 index 4fdb507e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci deleted file mode 100644 index 30c646a6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci +++ /dev/null @@ -1,9 +0,0 @@ -// 08.05.30 - -function PL=Calcfun(Siki,Namae,Atai) - execstr(Namae+'=Atai'); - Tmp='XY='+Siki; - execstr(Tmp); - PL=[Atai(:,1),XY(:,2)]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin Binary files differdeleted file mode 100644 index 5227aec7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci deleted file mode 100644 index fcc7687c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci +++ /dev/null @@ -1,24 +0,0 @@ -// 08.08.12
-// 08.10.07
-// 09.06.02
-
-function AnsL=CameraCurve(Curve)
- Eps=10^(-6);
- for I=1:size(Curve,1)
- P=Curve(I,:);
- x=P(1); y=P(2); z=P(3);
- if x~=%inf
- Tmp=Perspt(P);
- if I==1
- AnsL=[Tmp];
- else
- Tmp1=AnsL(size(AnsL,1),:);
- if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
- AnsL=[AnsL;Tmp];
- end;
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin Binary files differdeleted file mode 100644 index dfe76941..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci deleted file mode 100644 index 310ac166..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci +++ /dev/null @@ -1,28 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 09.09.25 - -function Out=CameracoordCurve(Curve) - global FocusPoint EyePoint; - Out=[]; // 09.09.25 - for J=1:size(Curve,1) - P=Curve(J,:); - Tmp=P-FocusPoint; - X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3); - Tmp=EyePoint-FocusPoint; - E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); - Ca=E1/sqrt(E1^2+F1^2); - Sa=F1/sqrt(E1^2+F1^2); - X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1; - E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; - Cb=E2/sqrt(E2^2+G2^2); - Sb=G2/sqrt(E2^2+G2^2); - X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb; - E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb; - Xz=X3; - Yz=E3/(E3-X3)*Y3; - Zz=E3/(E3-X3)*Z3; - Out=[Out;Yz,Zz,Xz]; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin Binary files differdeleted file mode 100644 index 58fd0152..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci deleted file mode 100644 index 1574d812..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci +++ /dev/null @@ -1,11 +0,0 @@ -// 13.08.13 - -function Out=Cancoordpara(P) - global PHI THETA; - Xz=P(1); Yz=P(2); Zz=P(3); - X=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA); - Y=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA); - Z=Yz*sin(THETA)+Zz*cos(THETA); - Out=[X,Y,Z]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin Binary files differdeleted file mode 100644 index 57e2e49c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci deleted file mode 100644 index b63aba5c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci +++ /dev/null @@ -1,22 +0,0 @@ -// 08.08.12 - -function Out=Cancoordpers(P) - global EyePoint FocusPoint; - Tmp=EyePoint-FocusPoint; - E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); - Ca=E1/sqrt(E1^2+F1^2); - Sa=F1/sqrt(E1^2+F1^2); - E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; - Cb=E2/sqrt(E2^2+G2^2); - Sb=G2/sqrt(E2^2+G2^2); - E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb; - Xz=P(3); Yz=P(1); Zz=P(2); - X3=Xz; Y3=Yz*(E3-Xz)/E3; Z3=Zz*(E3-Xz)/E3; - X2=X3*Cb-Sb*Z3; Y2=Y3; Z2=Cb*Z3+Sb*X3; - X1=X2*Ca-Sa*Y2; Y1=Ca*Y2+Sa*X2; Z1=Z2; - X=X1+FocusPoint(1); - Y=Y1+FocusPoint(2); - Z=Z1+FocusPoint(3); - Out=[X,Y,Z]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin Binary files differdeleted file mode 100644 index 0b9ca934..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci deleted file mode 100644 index 2148c061..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci +++ /dev/null @@ -1,32 +0,0 @@ -// s:2008,05.12 -// e:2014.09.08 [A,B] supported -// e:2014.10.24 N,R => N__, ... - -function P=Circledata(varargin) - Nargs=length(varargin); - C=varargin(1); - if length(C)==4 then - ra=norm(C(1:2)-C(3:4)); - C=C(1:2); - Nop=2; - else - ra=varargin(2); - Nop=3; - end; - R__=[0,2*%pi]; - N__=50; // Numpoints - for I=Nop:Nargs - Tmp=varargin(I); - K=mtlb_findstr(Tmp,'='); - Tmp1=strsplit(Tmp,[K-1,K]); - Tmp2=ascii(Tmp1(1,1)); - Lhs=char(Tmp2(1)); - Str=Lhs+'__='+Tmp1(3,1); - execstr(Str); - end; - Dt=(R__(2)-R__(1))/N__; - T=R__(1):Dt:R__(2); - X=C(1)+ra*cos(T); - Y=C(2)+ra*sin(T); - P=[X',Y']; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin Binary files differdeleted file mode 100644 index 374f6316..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci deleted file mode 100644 index bf9572c5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci +++ /dev/null @@ -1,58 +0,0 @@ -// 08.09.10 -// 08.09.16 -// 09.12.31 (gsort) - -function OutL=Clipindomain(ObjL,FigL) - EEps=10^(-4); - Eps=0.01; - Eps2=0.2; - Bdy=Kyoukai(FigL); - if Mixlength(Bdy)>=2 - Fbdy=Joincrvs(FigL) - else - Fbdy=Mixop(1,FigL); - end; - if Mixtype(ObjL)==1 - ObjL=Mix(ObjL) - end; - if Mixtype(FigL)==1 - FigL=Mix(FigL) - end; - OutL=[]; - for Nobj=1:Mixlength(ObjL); - Obj=Mixop(Nobj,ObjL); - ParL=[1,Numptcrv(Obj)]; - Tmp=IntersectcrvsPp(Obj,Fbdy,Eps,Eps2); - for J=1:Mixlength(Tmp) - Tmp1=Mixop(J,Tmp); - ParL=[ParL,Mixop(2,Tmp1)]; - end; - ParL=gsort(ParL); - ParL=ParL(length(ParL):-1:1); - Tmp=[1]; - for I=1:length(ParL) - Tmp1=Tmp(length(Tmp)); - Tmp2=ParL(I); - if Tmp2-Tmp1>EEps - Tmp=[Tmp,Tmp2]; - end; - end; - ParL=Tmp; - Tmp1=ParL(length(ParL)); - Tmp2=Numptcrv(Obj); - if abs(Tmp1-Tmp2)<Eps - ParL=[ParL(1:length(ParL)-1),Tmp2]; - end; - Fig=[]; - for N=1:length(ParL)-1 - Tmp=(ParL(N)+ParL(N+1))*0.5; - Tmp=PointonCurve(Tmp,Obj); - Tmp=Naigai(Tmp,Bdy); - Tmp1=modulo(sum(Tmp),2); - if Tmp1==0 continue; end; - Fig=Mixadd(Fig,Partcrv(ParL(N),ParL(N+1),Obj)); - end; - OutL=Mixjoin(OutL,Fig); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin Binary files differdeleted file mode 100644 index 991de452..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci deleted file mode 100644 index f2928103..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci +++ /dev/null @@ -1,24 +0,0 @@ -// -// 13.05.19 openfile error tackled -// 13.11.01 Endpicture joined optionally -// 13.11.05 debugged - -function Closefile(varargin) - global Wfile FID; - if length(varargin)>=1 then - Pa=varargin(1); - if type(Pa)==10 then - if Pa=="1" then // 2013.11.05 - Endpicture(1) - end; - if Pa=="0" then - Endpicture(0) - end // - end - end - if Wfile~='default' then - mclose(FID); - FID=[]; // 2013.05.19 - end - Wfile='default'; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin Binary files differdeleted file mode 100644 index d8f4d64d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci deleted file mode 100644 index da7c3850..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci +++ /dev/null @@ -1,10 +0,0 @@ -// s : 2014.06.22 - -function Closeobj() - global Wfile FID; - if Wfile~='default' then - mclose(FID); - FID=[]; - end; - Wfile='default'; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin Binary files differdeleted file mode 100644 index 0e0991c3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci deleted file mode 100644 index 64b93e1a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.31 - -function Closepar() - global Wfile FID - S='\end{minipage}' - if Wfile=='default' - mprintf('%s\n','%'); - mprintf('%s',S); - else - mfprintf(FID,'%s\n','%'); - mfprintf(FID,'%s',S); - end - Closephr(); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin Binary files differdeleted file mode 100644 index 6bffbf74..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci deleted file mode 100644 index 39b363f6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 08.05.31 - -function Closephr() - global Wfile FID; - if Wfile=='default' - mprintf('%s\n','%'); - mprintf('%s\n','}%'); - else - mfprintf(FID,'%s\n','%'); - mfprintf(FID,'%s\n','}%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin Binary files differdeleted file mode 100644 index c0c13ad5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci deleted file mode 100644 index a3f345cb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci +++ /dev/null @@ -1,22 +0,0 @@ -// -// 08.12.17 -// 09.02.20 -// 10.04.12 - -function Closepicture(varargin) - global Wfile FID MEMORI MEMORINow ULEN MilliIn; - Nargs=length(varargin); - if Nargs==0 - Drwxy(); - elseif varargin(1)==1 - Drwxy(); - end - if Wfile=='default' - mprintf('%s','\end{picture}}%'); - else - mfprintf(FID,'%s','\end{picture}}%'); - end -// MEMORI=MEMORINow*1000/2.54/MilliIn; - Setunitlen('1cm'); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin Binary files differdeleted file mode 100644 index 7504d934..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci deleted file mode 100644 index 2abe8c90..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci +++ /dev/null @@ -1,76 +0,0 @@ -// 08.09.09 -// 08.09.10 -// 08.09.24 - -function PlotL=Connectseg(varargin) - Nargs=length(varargin); - Pdata=varargin(1); - Eps=10^(-5); - if Nargs>=2 - Eps=varargin(2) - end; - if Mixtype(Pdata)~=1 - Tmp=Mixop(1,Pdata); - Tmp=size(Tmp,2); - Sep=%inf*ones(1,Tmp); - Tmp=[]; - for I=1:Mixlength(Pdata) - Tmp1=Mixop(I,Pdata); - Tmp=[Tmp;Sep;Tmp1]; - end; - Pdata=Tmp(2:size(Tmp,1),:); - end; - Din=Dataindex(Pdata); - PlotL=[]; - Qd=Pdata(Din(1,1):Din(1,2),:); - Din=Din(2:size(Din,1),:); - N=size(Din,1); - while N>0 - Ah=Qd(1,:);Ao=Qd(size(Qd,1),:); - Flg=0; - for J=1:N - St=Din(J,1); - En=Din(J,2); - P=Pdata(St,:); - Q=Pdata(En,:); - if norm(P-Ao)<Eps - Tmp=Pdata(St+1:En,:); - Qd=[Qd;Tmp]; - Din=[Din(1:J-1,:);Din(J+1:N,:)]; - Flg=1; - break; - end; - if norm(Q-Ao)<Eps - Tmp=Pdata(En-1:-1:St,:); - Qd=[Qd;Tmp]; - Din=[Din(1:J-1,:);Din(J+1:N,:)]; - Flg=1; - break; - end; - if norm(P-Ah)<Eps - Tmp=Pdata(En:-1:St+1,:); - Qd=[Tmp;Qd]; - Din=[Din(1:J-1,:);Din(J+1:N,:)]; - Flg=1; - break; - end; - if norm(Q-Ah)<Eps - Tmp=Pdata(St:En-1,:); - Qd=[Tmp;Qd]; - Din=[Din(1:J-1,:);Din(J+1:N,:)]; - Flg=1; - break; - end; - end; - if Flg==0 - PlotL=Mixadd(PlotL,Qd); - Qd=Pdata(Din(1,1):Din(1,2),:); - Din=Din(2:N,:); - end; - N=size(Din,1); - end; - if size(Qd,1)>0 - PlotL=Mixadd(PlotL,Qd); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin Binary files differdeleted file mode 100644 index c22f1e9e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci deleted file mode 100644 index ab4d55b5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 09.10.0 - -function Out=Crossprod(a,b) - if length(a)==3 - Tmp1=a(2)*b(3)-a(3)*b(2); - Tmp2=a(3)*b(1)-a(1)*b(3); - Tmp3=a(1)*b(2)-a(2)*b(1); - Out=[Tmp1,Tmp2,Tmp3]; - else - Out=a(1)*b(2)-a(2)*b(1); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin Binary files differdeleted file mode 100644 index 9de876b4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci deleted file mode 100644 index 07c17303..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.19 - -function Out=Crv3onsfHiddenData() - global CRV3ONSFHIDDENDATA - Out=CRV3ONSFHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin Binary files differdeleted file mode 100644 index b2cafb90..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci deleted file mode 100644 index ba168b71..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci +++ /dev/null @@ -1,49 +0,0 @@ -// 08.09.16 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps - -function Out=Crv3onsfparadata(varargin) - global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA - Nargs=length(varargin); - Fk=varargin(1); - Fbdy=Projpara(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Fbdxy=Makexybdy(Fd,Np); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Fxy=='p' - Out=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - else - Tmp=Mix(Fxy,Fbdxy,Xname,Yname); - Out=Nohiddenpara(Par,Fk,Tmp); - end; - CRV3ONSFHIDDENDATA=HIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin Binary files differdeleted file mode 100644 index 55aa8c1f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci deleted file mode 100644 index 5fc40737..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci +++ /dev/null @@ -1,50 +0,0 @@ -// 08.09.21 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps - -function Out=Crv3onsfpersdata(varargin) - global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA - Nargs=length(varargin); - Fk=varargin(1); - Fbdy=Projpers(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Fbdxy=Makexybdy(Fd,Np); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Fxy=='p' - Out=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - else - Tmp=Mix(Fxy,Fbdxy,Xname,Yname); - Out=Nohiddenpers(Par,Fk,Tmp); - end; - - CRV3ONSFHIDDENDATA=HIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin Binary files differdeleted file mode 100644 index 5269bbf1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci deleted file mode 100644 index 9d97b3ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.19 - -function Out=CrvonsfHiddenData() - global CRVONSFHIDDENDATA - Out=CRVONSFHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin Binary files differdeleted file mode 100644 index 69551af4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci deleted file mode 100644 index a530284b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci +++ /dev/null @@ -1,90 +0,0 @@ -// 08.09.16 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps -// 13.10.22 ( __ added to varibles ) - -function OutL__=Crvonsfparadata(varargin) - global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA - Nargs__=length(varargin); - Eps__0=10^(-4); - Figuv__=varargin(1); - Fbdy__=Projpara(varargin(2)); - Fd__=varargin(3); N__=4; - Fd__L=Fullformfunc(Fd__); - Fxy__=Mixop(1,Fd__L); - Xf__=Mixop(2,Fd__L); - Yf__=Mixop(3,Fd__L); - Zf__=Mixop(4,Fd__L); - Np__=[50,50]; - if Nargs__>=N__ - Np__=varargin(N__); N__=N__+1; - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Eps__=[0.05,1]; // - if Nargs__>=N__ - Eps__=varargin(N__); - end; - if length(Eps__)==1 - Eps__=[Eps__,1]; - end; - Eps__2=0.2; - if Nargs__>=N__+1 - Eps__2=varargin(N__+1); - end; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Fbdxy__=Makexybdy(Fd__,Np__); - Fbdy__uv=Mixop(8,Fd__L); - if Fbdy__uv==[] - Fbdy__uv=Mix(Framedata(Urg__,Vrg__)); - end; - FigL__=Clipindomain(Figuv__,Fbdy__uv); - CRVONSFHIDDENDATA=[]; - OutL__=[]; - for N__=1:Mixlength(FigL__) - PtL__=Mixop(N__,FigL__); - Tmp__=[]; - for I__=1:size(PtL__,1) - P__=PtL__(I__,:); - Tmp__1=strsubst(Xf__,Uname__,'('+string(P__(1))+')'); - Tmp__1=strsubst(Tmp__1,Vname__,'('+string(P__(2))+')'); - Tmp__1=evstr(Tmp__1); - Tmp__2=strsubst(Yf__,Uname__,'('+string(P__(1))+')'); - Tmp__2=strsubst(Tmp__2,Vname__,'('+string(P__(2))+')'); - Tmp__2=evstr(Tmp__2); - Tmp__3=strsubst(Zf__,Uname__,'('+string(P__(1))+')'); - Tmp__3=strsubst(Tmp__3,Vname__,'('+string(P__(2))+')'); - Tmp__3=evstr(Tmp__3); - Tmp__=[Tmp__,[Tmp__1,Tmp__2,Tmp__3]]; - end; - Fk__=Spaceline(Tmp__); - Par__=Partitionseg(Projpara(Fk__),Fbdy__,Eps__(1),Eps__2); // - if Fxy__=='p' - Tmp__=Nohiddenpara2(Par__,Fk__,Fd__,1,Np__,Eps__); - else - Tmp__1=Mix(Fxy__,Fbdxy__,Xname__,Yname__); - Tmp__=Nohiddenpara(Par__,Fk__,Tmp__1); - end; - if Tmp__~=[] - OutL__=Mixjoin(OutL__,Tmp__); - end; - if HIDDENDATA~=[] - CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin Binary files differdeleted file mode 100644 index 48451c6b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci deleted file mode 100644 index f3bdf700..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci +++ /dev/null @@ -1,86 +0,0 @@ -// 08.09.21 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps - -function OutL=Crvonsfpersdata(varargin) - global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA - Nargs=length(varargin); - Eps0=10^(-4); - Figuv=varargin(1); - Fbdy=Projpers(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Xf=Mixop(2,FdL); - Yf=Mixop(3,FdL); - Zf=Mixop(4,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 - Eps=[Eps,1]; - end; - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - Fbdxy=Makexybdy(Fd,Np); - Fbdyuv=Mixop(8,FdL); - if Fbdyuv==[] - Fbdyuv=Mix(Framedata(Urg,Vrg)); - end; - FigL=Clipindomain(Figuv,Fbdyuv); - CRVONSFHIDDENDATA=[]; - OutL=[]; - for N=1:Mixlength(FigL) - PtL=Mixop(N,FigL); - Tmp=[]; - for I=1:size(PtL,1) - P=PtL(I,:); - Tmp1=strsubst(Xf,Uname,'('+string(P(1))+')'); - Tmp1=strsubst(Tmp1,Vname,'('+string(P(2))+')'); - Tmp1=evstr(Tmp1); - Tmp2=strsubst(Yf,Uname,'('+string(P(1))+')'); - Tmp2=strsubst(Tmp2,Vname,'('+string(P(2))+')'); - Tmp2=evstr(Tmp2); - Tmp3=strsubst(Zf,Uname,'('+string(P(1))+')'); - Tmp3=strsubst(Tmp3,Vname,'('+string(P(2))+')'); - Tmp3=evstr(Tmp3); - Tmp=[Tmp,[Tmp1,Tmp2,Tmp3]]; - end; - Fk=Spaceline(Tmp); - Par=Partitionseg(Projpers(Fk),Fbdy,Eps(1),Eps2); // - if Fxy=='p' - Tmp=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - else - Tmp1=Mix(Fxy,Fbdxy,Xname,Yname); - Tmp=Nohiddenpers(Par,Fk,Tmp1); - end; - OutL=Mixjoin(OutL,Tmp); - CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin Binary files differdeleted file mode 100644 index 110cf0de..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci deleted file mode 100644 index 0081b20c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.10.24 - -function Out=CrvsfHiddenData() - global CRVSFHIDDENDATA - Out=CRVSFHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin Binary files differdeleted file mode 100644 index b759eff5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci deleted file mode 100644 index a87506d2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci +++ /dev/null @@ -1,81 +0,0 @@ -// 08.10.24 -// 08.10.25 -// 08.10.26 -// 08.10.27 -// 09.06.02 -// 09.12.31 (gsort) -// 10.02.16 - -function Out=Crvsfparadata(varargin) - global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA - Nargs=length(varargin); - Sepflg=0; - Tmp=varargin(Nargs); - if type(Tmp)==1 & Tmp<=0 - Sepflg=1; - Nargs=Nargs-1; - end; - Fk=varargin(1); - if Mixtype(Fk)==1 - FkL=Mix(Fk); - else - FkL=Fk; - end; - Fbdy=Projpara(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Out=[]; - CRVSFHIDDENDATA=[]; - for Nn=1:Mixlength(FkL) - Fk=Mixop(Nn,FkL); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Sepflg==0 - for I=1:Numptcrv(Fk)-1 - Pa=Ptcrv(I,Fk); - Pb=Ptcrv(I+1,Fk); - PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); // - for J=1:Mixlength(PtL) - Tmp=Mixop(J,PtL); - Tmp=Parapt(Tmp); - Tmp1=ParamonCurve(Tmp,I,Projpara(Fk)); - Tmp2=min(abs(Par-Tmp1)); - if Tmp2*norm(Parapt(Pb-Pa))>Eps (1) // - Par=[Par,Tmp1]; - end; - end; - Par=gsort(Par); - Par=Par(length(Par):-1:1); - end; - end; - Tmp1=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - Out=Mixjoin(Out,Tmp1); - CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin Binary files differdeleted file mode 100644 index af00090e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci deleted file mode 100644 index 7e24efcb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci +++ /dev/null @@ -1,80 +0,0 @@ -// 08.10.24 -// 08.10.25 -// 08.10.26 -// 08.10.27 -// 09.06.02 -// 09.12.31 (gsort) - -function Out=Crvsfpersdata(varargin) - global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA - Nargs=length(varargin); - Sepflg=0; - Tmp=varargin(Nargs); - if type(Tmp)==1 & Tmp<=0 - Sepflg=1; - Nargs=Nargs-1; - end; - Fk=varargin(1); - if Mixtype(Fk)==1 - FkL=Mix(Fk); - else - FkL=Fk; - end; - Fbdy=Projpers(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Out=[]; - CRVSFHIDDENDATA=[]; - for Nn=1:Mixlength(FkL) - Fk=Mixop(Nn,FkL); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Sepflg==0 - for I=1:Numptcrv(Fk)-1 - Pa=Ptcrv(I,Fk); - Pb=Ptcrv(I+1,Fk); - PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); // - for J=1:Mixlength(PtL) - Tmp=Mixop(J,PtL); - Tmp=Perspt(Tmp); - Tmp1=ParamonCurve(Tmp,I,Projpers(Fk)); - Tmp2=min(abs(Par-Tmp1)); - if Tmp2*norm(Perspt(Pb-Pa))>Eps(1) // - Par=[Par,Tmp1]; - end; - end; - Par=gsort(Par); - Par=Par(length(Par):-1:1); - end; - end; - Tmp1=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - Out=Mixjoin(Out,Tmp1); - CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin Binary files differdeleted file mode 100644 index e6820112..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci deleted file mode 100644 index 8c2b6eee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.10 - -function Out=CuspData() - global CUSPDATA - Out=CUSPDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin Binary files differdeleted file mode 100644 index a31b8fa0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci deleted file mode 100644 index 33f1d807..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.10 - -function Out=CuspPt() - global CUSPPT - Out=CUSPPT; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin Binary files differdeleted file mode 100644 index 040b5f3e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci deleted file mode 100644 index 07cbb09b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.10 - -function PL=CuspSplitPt() - global CUSPSPLITPT - PL=CUSPSPLITPT; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin Binary files differdeleted file mode 100644 index 333137e7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci deleted file mode 100644 index 0ea935b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci +++ /dev/null @@ -1,179 +0,0 @@ -// 08.09.10 -// 08.09.13 -// 08.09.15 -// 08.10.10 -// 10.02.16 Eps -// 13.10.21 ( __ added to varibles ) -// 14.06.28 debug in the case of no cusp - -function OutkL__=Cuspsplitpara(varargin); - global CUSPSPLITPT; - Nargs__=length(varargin); - Gdxy__=varargin(1); - if Mixtype(Gdxy__)==1 - Gdxy__=Mix(Gdxy__); - end; - Fd__=varargin(2); - FdL__=Fullformfunc(Fd__); - Eps0__=10^(-5); - Eps__=0.05; - if Nargs__>2 Eps__=varargin(3); end; - if length(Eps__)>1 // - Eps__=Eps__(1); - end; // - Fxy__=Mixop(1,FdL__); N__=2; - Tmp1__=Mixop(2,FdL__); - Tmp2__=Mixop(3,FdL__); - Tmp3__=Mixop(4,FdL__); - Xyzstr__=[Tmp1__,Tmp2__,Tmp3__]; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - CUSPSPLITPT=[]; - OutkL__=[]; - for Ng__=1:Mixlength(Gdxy__) - PtxyL__=Mixop(Ng__,Gdxy__); - PtkL__=[]; - PthL__=[]; - for I__=1:size(PtxyL__,1) - Tmp__=PtxyL__(I__,:); - Tmp1__=Uname__+'='+string(Tmp__(1)); - execstr(Tmp1__); - Tmp1__=Vname__+'='+string(Tmp__(2)) - execstr(Tmp1__); - Tmp2__=evstr(Xyzstr__); - Tmp3__=Parapt(Tmp2__); - if I__==1 - PtkL__=[Tmp2__]; - PthL__=[Tmp3__]; - else - Tmp4__=PthL__(size(PthL__,1),:); - if norm(Tmp3__-Tmp4__)>Eps0__ - PtkL__=[PtkL__;Tmp2__]; - PthL__=[PthL__;Tmp3__] - end; - end; - end; - if size(PthL__,1)==0 then // from 20140628 - OutkL__=[]; - return; - end; // upto 20140628 - Ps__=PthL__(1,:); Pe__=PthL__(size(PthL__,1),:); - Cflg__=0; - if norm(Ps__-Pe__)<Eps__ Cflg__=1; end; - CuspL__=[]; - Cva__=cos(10*%pi/180); - for I__=1:size(PthL__,1)-1 - if size(PthL__,1)==2 break; end; - Tmp__=PthL__(I__,:); - if I__==1 - if Cflg__==0 continue; end; - Tmp1__=PthL__(size(PthL__,1)-1,:); - else - Tmp1__=PthL__(I__-1,:); - end; - Tmp2__=PthL__(I__+1,:); - V1__=Tmp__-Tmp1__; - V2__=Tmp2__-Tmp__; - Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2); - Tmp3__=Tmp3__/(norm(V1__)*norm(V2__)); - Cuspflg__=0; - if Tmp3__<Cva__ - P__=PthL__(I__,:); - Kaku__=acos(Tmp3__)*180/%pi; - if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 - Kaku__=-Kaku__ - end; - Cuspflg__=0; - for J__=I__+1:size(PthL__,1)-1 - if abs(Kaku__)>90 - Cuspflg__=1; - break - end; - Q__=PthL__(J__,:); - if norm(P__-Q__)>Eps__ - break - end; - V1__=Q__-PthL__(J__-1,:); - V2__=PthL__(J__+1,:)-Q__; - Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2); - Tmp3__=Tmp3__/(norm(V1__)*norm(V2__)); - Tmp__=acos(Tmp3__)*180/%pi; - if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 - Tmp__=-Tmp__ - end; - Kaku__=Kaku__+Tmp__ - end; - if Cuspflg__==1 - Tmp__=Trunc((I__+J__)*0.5); - I__=J__; - if length(CuspL__)==0 - CuspL__=[Tmp__] - else - CuspL__=[CuspL__,Tmp__]; - end; - end; - end; - end; - if Cflg__==0 - CuspL__=[1,CuspL__,size(PthL__,1)]; - elseif length(CuspL__)==0 - CuspL__=[1,size(PthL__,1)]; - elseif CuspL__(1)==1 - CuspL__=[CuspL__,size(PthL__,1)]; - else - Tmp__=CuspL__(1); - Tmp1__=size(PthL__,1); - PthL__=[PthL__(Tmp__:Tmp1__,:);PthL__(2:Tmp__,:)]; - PtkL__=[PtkL__(Tmp__:Tmp1__,:);PtkL__(2:Tmp__,:)]; - CuspL__=CuspL__-Tmp__+1; - CuspL__=[CuspL__,size(PthL__,1)]; - end; - if length(CuspL__)==2 - //Outh=[plot(PthL__)]; - Tmp4__=PthL__(size(PthL__,1),:); - if size(PtkL__,1)>=2 - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__); - OutkL__=Mixadd(OutkL__,PtkL__); - end; - continue - end; - //Outh=[]; - Outk__=[]; - Is__=1; - for I__=1:length(CuspL__)-1 - Tmp1__=CuspL__(Is__); Tmp2__=CuspL__(I__+1); - Tmp3__=PthL__(Tmp1__,:); Tmp4__=PthL__(Tmp2__,:); - if norm(Tmp3__-Tmp4__)>Eps__ - //Tmph__=[op(Tmp1__..Tmp2__,PthL__)]; - Tmpk__=PtkL__(Tmp1__:Tmp2__,:); - //Outh=[op(Outh),plot(Tmph__)]; - Outk__=Mixadd(Outk__,Tmpk__); - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__); - Is__=I__+1; - end; - end; - OutkL__=Mixjoin(OutkL__,Outk__); - end; - Tmp1__=Dropnumlistcrv(Projpara(OutkL__),Eps__*0.5); - Tmp__=[]; - for I__=1:Mixlength(OutkL__) - Tmp2__=Mixop(I__,OutkL__); - Tmp3__=Mixop(I__,Tmp1__); - Tmp4__=[]; - for J__=1:length(Tmp3__) - Tmp5__=Tmp2__(Tmp3__(J__),:); - Tmp4__=[Tmp4__;Tmp5__]; - end; - if Tmp4__~=[] - Tmp__=Mixadd(Tmp__,Tmp4__); - end; - end; - OutkL__=Tmp__; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin Binary files differdeleted file mode 100644 index d5f47f89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci deleted file mode 100644 index a8221f5b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci +++ /dev/null @@ -1,176 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 10.02.16 Eps__ -// 13.11.01 ( __ added to varibles ) -// 14.06.28 debug in the case of no cusp - -function OutkL__=Cuspsplitpers(varargin); - global CUSPSPLITPT; - Nargs__=length(varargin); - Gdxy__=varargin(1); - if Mixtype(Gdxy__)==1 - Gdxy__=Mix(Gdxy__); - end; - Fd__=varargin(2); - FdL__=Fullformfunc(Fd__); - Eps__0=10^(-5); - Eps__=0.05; - if Nargs__>2 Eps__=varargin(3); end; - if length(Eps__)>1 // - Eps__=Eps__(1); - end; // - Fxy__=Mixop(1,FdL__); N=2; - Tmp__1=Mixop(2,FdL__); - Tmp__2=Mixop(3,FdL__); - Tmp__3=Mixop(4,FdL__); - Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - CUSPSPLITPT=[]; - OutkL__=[]; - for Ng__=1:Mixlength(Gdxy__) - PtxyL__=Mixop(Ng__,Gdxy__); - PtkL__=[]; - PthL__=[]; - for I__=1:size(PtxyL__,1) - Tmp__=PtxyL__(I__,:); - Tmp__1=Uname__+'='+string(Tmp__(1)); - execstr(Tmp__1); - Tmp__1=Vname__+'='+string(Tmp__(2)) - execstr(Tmp__1); - Tmp__2=evstr(Xyzstr__); - Tmp__3=Perspt(Tmp__2); - if I__==1 - PtkL__=[Tmp__2]; - PthL__=[Tmp__3]; - else - Tmp__4=PthL__(size(PthL__,1),:); - if norm(Tmp__3-Tmp__4)>Eps__0 - PtkL__=[PtkL__;Tmp__2]; - PthL__=[PthL__;Tmp__3] - end; - end; - end; - if size(PthL__,1)==0 then // from 20140628 - OutkL__=[]; - return; - end; // upto 20140628 - Ps__=PthL__(1,:); Pe=PthL__(size(PthL__,1),:); - Cflg__=0; - if norm(Ps__-Pe)<Eps__ Cflg__=1; end; - CuspL__=[]; - Cva__=cos(10*%pi/180); - for I__=1:size(PthL__,1)-1 - if size(PthL__,1)==2 break; end; - Tmp__=PthL__(I__,:); - if I__==1 - if Cflg__==0 continue; end; - Tmp__1=PthL__(size(PthL__,1)-1,:); - else - Tmp__1=PthL__(I__-1,:); - end; - Tmp__2=PthL__(I__+1,:); - V1__=Tmp__-Tmp__1; - V2__=Tmp__2-Tmp__; - Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2); - Tmp__3=Tmp__3/(norm(V1__)*norm(V2__)); - Cuspflg__=0; - if Tmp__3<Cva__ - P__=PthL__(I__,:); - Kaku__=acos(Tmp__3)*180/%pi; - if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 - Kaku__=-Kaku__ - end; - Cuspflg__=0; - for J__=I__+1:size(PthL__,1)-1 - if abs(Kaku__)>90 - Cuspflg__=1; - break - end; - Q__=PthL__(J__,:); - if norm(P__-Q__)>Eps__ - break - end; - V1__=Q__-PthL__(J__-1,:); - V2__=PthL__(J__+1,:)-Q__; - Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2); - Tmp__3=Tmp__3/(norm(V1__)*norm(V2__)); - Tmp__=acos(Tmp__3)*180/%pi; - if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 - Tmp__=-Tmp__ - end; - Kaku__=Kaku__+Tmp__ - end; - if Cuspflg__==1 - Tmp__=Trunc((I__+J__)*0.5); - I__=J__; - if length(CuspL__)==0 - CuspL__=[Tmp__] - else - CuspL__=[CuspL__,Tmp__]; - end; - end; - end; - end; - if Cflg__==0 - CuspL__=[1,CuspL__,size(PthL__,1)]; - elseif length(CuspL__)==0 - CuspL__=[1,size(PthL__,1)]; - elseif CuspL__(1)==1 - CuspL__=[CuspL__,size(PthL__,1)]; - else - Tmp__=CuspL__(1); - Tmp__1=size(PthL__,1); - PthL__=[PthL__(Tmp__:Tmp__1,:);PthL__(2:Tmp__,:)]; - PtkL__=[PtkL__(Tmp__:Tmp__1,:);PtkL__(2:Tmp__,:)]; - CuspL__=CuspL__-Tmp__+1; - CuspL__=[CuspL__,size(PthL__,1)]; - end; - if length(CuspL__)==2 - //Outh__=[plot(PthL__)]; - Tmp__4=PthL__(size(PthL__,1),:); - if size(PtkL__,1)>=2 - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4); - OutkL__=Mixadd(OutkL__,PtkL__); - end; - continue - end; - //Outh__=[]; - Outk__=[]; - Is__=1; - for I__=1:length(CuspL__)-1 - Tmp__1=CuspL__(Is__); Tmp__2=CuspL__(I__+1); - Tmp__3=PthL__(Tmp__1,:); Tmp__4=PthL__(Tmp__2,:); - if norm(Tmp__3-Tmp__4)>Eps__ - //Tmp__h=[op(Tmp__1..Tmp__2,PthL__)]; - Tmp__k=PtkL__(Tmp__1:Tmp__2,:); - //Outh__=[op(Outh__),plot(Tmp__h)]; - Outk__=Mixadd(Outk__,Tmp__k); - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4); - Is__=I__+1; - end; - end; - OutkL__=Mixjoin(OutkL__,Outk__); - end; - Tmp__1=Dropnumlistcrv(Projpers(OutkL__),Eps__*0.5); - Tmp__=[]; - for I__=1:Mixlength(OutkL__) - Tmp__2=Mixop(I__,OutkL__); - Tmp__3=Mixop(I__,Tmp__1); - Tmp__4=[]; - for J__=1:length(Tmp__3) - Tmp__5=Tmp__2(Tmp__3(J__),:); - Tmp__4=[Tmp__4;Tmp__5]; - end; - if Tmp__4~=[] - Tmp__=Mixadd(Tmp__,Tmp__4); - end; - end; - OutkL__=Tmp__; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin Binary files differdeleted file mode 100644 index d9fb0edd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci deleted file mode 100644 index fa26b319..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.10.15 - -function Out=Cutsf2d(Nvec,GL,Flg) - global THETA PHI - Theta=THETA; Phi=PHI; - Tmp=Rotate3data(GL,Nvec,[-1,0,0]); - THETA=%pi/2; PHI=0; - Out=Projpara(Tmp); - if Flg==1 - Windisp(Out); - end; - THETA=Theta; PHI=Phi; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin Binary files differdeleted file mode 100644 index dc144378..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci deleted file mode 100644 index 1df8e5e3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci +++ /dev/null @@ -1,31 +0,0 @@ -// 08.05.21 -// 08.07.14 -// 10.01.02 bin remade -// 10.11.13 Flattenlist used - -function Dashline(varargin) - global MilliIn - Nargs=length(varargin); - Nall=Nargs; Sen=1 ; Gap=1; - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 - Tmp1=varargin(Nall-1); - if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 - Sen=Tmp1; Gap=Tmp; - Nall=Nall-2; - else - Sen=Tmp; Gap=Sen; - Nall=Nall-1; - end - end - Sen=1000/2.54/MilliIn*Sen; - Gap=1000/2.54/MilliIn*Gap; - for N=1:Nall - Tmp=varargin(N); - Fdata=Flattenlist(Tmp); - for I=1:length(Fdata); - Figdata=Fdata(I); - Makehasen(Figdata,Sen,Gap,0); - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin Binary files differdeleted file mode 100644 index b64a96c8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci deleted file mode 100644 index 82e9ac48..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci +++ /dev/null @@ -1,24 +0,0 @@ -// -// 08.05.31 - -function Ndm=Dataindex(P) - // %inf;%inf -> end - Ndm=[]; - if P==[] return; end - N1=1; - Flg=0; - for J=1:size(P,1) - if P(J,1)==%inf - Ndm=[Ndm;N1,J-1]; - N1=J+1; - if P(N1,1)==%inf - Flg=1; - break; - end - end - end - if Flg==0 - Ndm=[Ndm;N1,size(P,1)]; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin Binary files differdeleted file mode 100644 index 7ffb898a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci deleted file mode 100644 index b06ac44b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci +++ /dev/null @@ -1,23 +0,0 @@ -// 15.05.04 - -function Definecolor(Name,Data) - Tmp1=size(Data,2); - if Tmp1<3 | Tmp1>4 - disp("Size of data should be 3 or 4."); - return; - end; - if Tmp1==4 - Tp="cmyk" - else - Tp="rgb" - end; - Tmp=""; - for J=1:Tmp1 - Tmp=Tmp+string(Data(J)); - if J<Tmp1 - Tmp=Tmp+","; - end; - end - Tmp="\definecolor{"+Name+"}{"+Tp+"}{"+Tmp+"}"; - Texcom(Tmp); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin Binary files differdeleted file mode 100644 index a2f5f722..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci deleted file mode 100644 index 43d8ea6e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci +++ /dev/null @@ -1,195 +0,0 @@ - -// 08.09.22 -// 09.03.10 -// 09.10.09 ( ` and order ) -// 09.10.09b ( system ) -// 09.11.12 ( debug for x<0 ) -// 13.10.19 ( __ added to variables ) -// 15.11.16 N changed to number of intervals -// 15.12.08 bug of optiion ( __ ) fixed - -function P__=Deqplot(varargin) - global XMIN XMAX YMIN YMAX - Nargs__=length(varargin); - Eps__=10^(-5); - Fnstr__=varargin(1); - Fnstr__=strsubst(Fnstr__,Prime(),'`'); - K__=mtlb_findstr(Fnstr__,'='); - Str__=part(Fnstr__,1:(K__-1)); - Fnstr__=part(Fnstr__,(K__+1):length(Fnstr__)); - JL__=mtlb_findstr(Str__,'`'); - Yname__=part(Str__,1:(JL__(1)-1)); - Yname__=strsubst(Yname__,',',';'); - Tmp__=mtlb_findstr(Yname__,';'); - if length(Tmp__)>0 - Dim__=length(Tmp__)+1; - Order__=1; - Fnstr__=strsubst(Fnstr__,',',';'); - else - Dim__=1; - Order__=length(JL__); - end; - Rgstr__=varargin(2); - K__=mtlb_findstr(Rgstr__,'='); - if K__~=[] - Xname__=part(Rgstr__,1:K__-1); - Rng__=evstr(part(Rgstr__,K__+1:length(Rgstr__))); - else - Xname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end; - X0__=varargin(3); - Y0__=varargin(4); - if size(Y0__,2)>1 - Y0__=Y0__'; - end; - N__=50; - if Nargs__>=5 - Tmp__=varargin(5); - Tmp__=strsubst(Tmp__,"=","__="); // 15.12.08 - Tmp__=strsubst(Tmp__,"____","__"); - execstr(Tmp__); - end; - X1__=Rng__(1); X2__=Rng__(2); - dX__=(X2__-X1__)/(N__-1); - dX__=(X2__-X1__)/(N__); // 15.11.16 - if Dim__>1 - Tmp__=mtlb_findstr(Yname__,'['); - Data__=part(Yname__,Tmp__+1:length(Yname__)); - Tmp__=mtlb_findstr(Data__,']'); - Data__=part(Data__,1:Tmp__-1); - Data__=';'+Data__+';'; - NL__=mtlb_findstr(Data__,';'); - NameL__=list(); - for I__=1:length(NL__)-1 - Tmp__=part(Data__,NL__(I__)+1:NL__(I__+1)-1); - NameL__(I__)=Tmp__; - end; - Fnrep__=Fnstr__; - for I__=1:length(NameL__) - Tmp__=NameL__(I__); - Fnrep__=strsubst(Fnrep__,Tmp__,'Pt('+string(I__)+')'); - end; - Tmp1__='Outf=Dfp__('+Xname__+',Pt)'; - Tmp2__='Outf='+Fnrep__; - deff(Tmp1__,Tmp2__); - Y0p__=Y0__; - Tmp1__='Outf=Dfn__('+Xname__+',Pt)'; - Tmp2__='Outf=-('+Fnrep__+')'; - deff(Tmp1__,Tmp2__); - Y0n__=Y0__; - else - YL__=mtlb_findstr(Fnstr__,Yname__); - Fnrep__=part(Fnstr__,1:YL__(1)-1); - for I__=1:length(YL__) - Py__=YL__(I__); - J__=1; - K__=Py__+1; - while part(Fnstr__,K__:K__)=='`' - J__=J__+1; K__=K__+1; - end; - Fnrep__=Fnrep__+Yname__+'('+string(J__)+')'; - if I__==length(YL__) - Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__)); - else - J__=YL__(I__+1)-1; - if J__>=K__ - Fnrep__=Fnrep__+part(Fnstr__,K__:J__); - end; - end; - end; - Eqvec__='['; - for I__=1:Order__-1 - Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');'; - end; - Eqvec__=Eqvec__+Fnrep__+']'; - Tmp1__='Outf=Dfp__('+Xname__+','+Yname__+')'; - Tmp2__='Outf='+Eqvec__; - deff(Tmp1__,Tmp2__); - Y0p__=Y0__; - YL__=mtlb_findstr(Fnstr__,Yname__); - Fnrep__=part(Fnstr__,1:YL__(1)-1); - for I__=1:length(YL__) - Py__=YL__(I__); - J__=1; - K__=Py__+1; - while part(Fnstr__,K__:K__)=='`' - J__=J__+1; K__=K__+1; - end; - if modulo(J__,2)==1 - Fnrep__=Fnrep__+Yname__+'('+string(J__)+')'; - else - Fnrep__=Fnrep__+'(-'+Yname__+'('+string(J__)+'))'; - end; - if I__==length(YL__) - Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__)); - else - J__=YL__(I__+1)-1; - if J__>=K__ - Fnrep__=Fnrep__+part(Fnstr__,K__:J__); - end; - end; - end; - if modulo(Order__,2)==1 - Fnrep__='-('+Fnrep__+')'; - end; - Fnrep__=strsubst(Fnrep__,Xname__,'(-'+Xname__+')'); // 09.11.12 - Eqvec__='['; - for I__=1:Order__-1 - Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');'; - end; - Eqvec__=Eqvec__+Fnrep__+']'; - Tmp1__='Outf=Dfn__('+Xname__+','+Yname__+')'; - Tmp2__='Outf='+Eqvec__; - deff(Tmp1__,Tmp2__); - Y0n__=[]; - for I__=1:size(Y0__,1) - Y0n__=[Y0n__;(-1)^(I__-1)*Y0__(I__)]; - end; - end; - if X0__<=X1__ - X__=X1__:dX__:X2__; - Y__=ode(Y0p__,X0__,X__,Dfp__); - M__=min(size(X__,2),size(Y__,2)); - if Dim__>1 - PL__=Y__'; - P__=PL__(1:M__,:); - else - P__=[X__(:,1:M__);Y__(1,1:M__)]'; - end; - return; - end; - if X2__<=X0__ - X__=(-X2__):dX__:(-X1__); - Y__=ode(Y0n__,-X0__,X__,Dfn__); - X__=-X__; - M__=min(size(X__,2),size(Y__,2)); - if Dim__>1 - PL__=Y__'; - P__=PL__(1:M__,:); - else - P__=[X__(:,1:M__);Y__(1,1:M__)]'; - end; - return; - end; - XP__=X0__:dX__:X2__; - YP__=ode(Y0p__,X0__,XP__,Dfp__); - M__=min(size(XP__,2),size(YP__,2)); - XP__=XP__(:,1:M__); - YP__=YP__(:,1:M__); - XN__=(-X0__)+dX__:dX__:(-X1__); - YN__=ode(Y0n__,-X0__,XN__,Dfn__); - M__=min(size(XN__,2),size(YN__,2)); - XN__=XN__(:,1:M__); - YN__=YN__(:,1:M__); - XN__=-XN__; - XN__=XN__(length(XN__):-1:1); - YN__=YN__(:,size(YN__,2):-1:1); - if Dim__>1 - P__=[YN__';YP__'] - else - X__=[XN__,XP__]; - Y__=[YN__(1,:),YP__(1,:)]; - P__=[X__;Y__]'; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin Binary files differdeleted file mode 100644 index c30c8ae4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci deleted file mode 100644 index cbffc3d7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci +++ /dev/null @@ -1,64 +0,0 @@ -// 09.10.04 -// 09.10.05 -// 09.10.06 -// 14.10.24 numderivative used after 5.5 - -function Out=Derivative(varargin) - Nargs=length(varargin); - Out=[]; - Fs=varargin(1); - Vv=varargin(2); - Np=3; - if type(Vv)==10 - Prstr=strsubst(Vv,'[','('); - Prstr=strsubst(Prstr,']',')'); - Tmp=part(Prstr,1); - if Tmp~='(' - Prstr='('+Prstr+')'; - end; - deff('Out=Tmpfun'+Prstr,'Out='+Fs); - Fs='Tmpfun'+Prstr; - Vv=varargin(Np); - Np=Np+1; - end; - Nd=[]; - if Np<=Nargs - Nd=varargin(Np); - end; - Js=mtlb_findstr(Fs,'('); - JL=mtlb_findstr(Fs,','); - Je=mtlb_findstr(Fs,')'); - Sep=[Js(1),JL,Je]; - Fse=Fs; - for I=1:length(Vv) - J1=Sep(I)+1; - J2=Sep(I+1)-1; - Tmp1=part(Fs,J1:J2); - Tmp2='X_'+string(I); - Fse=strsubst(Fse,Tmp1,Tmp2); - end; - function Ans=Tmpf(W) - X1=W(1); - if length(W)>1 - X2=W(2); - else; - X2=%inf; - end; - if length(W)>2 - X3=W(3); - else - X3=%inf; - end; - Tmp=Assign(Fse,'X_1',X1,'X_2',X2,'X_3',X3); - Ans=evstr(Tmp)'; - endfunction; - Tmp1=getversion("scilab"); - if Tmp1(1)*10+Tmp1(2)>=55 then - Out=numderivative(Tmpf,Vv')'; - else - Out=derivative(Tmpf,Vv')'; - end - if Nd~=[] - Out=Out(Nd,:) - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin Binary files differdeleted file mode 100644 index 6f9d2eaf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci deleted file mode 100644 index b6a53b62..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 10.03.28 - -function Out=Diagcelldata(Tb,Nc,Nr) - Tmp=Findcell(Tb,Nc,Nr); - C=Tmp(1); - Dx=Tmp(2); - Dy=Tmp(3); - Pne=C+[Dx,Dy]; - Pnw=C+[-Dx,Dy]; - Psw=C+[-Dx,-Dy]; - Pse=C+[Dx,-Dy]; - Tmp1=Listplot(Pnw,Pse); - Tmp2=Listplot(Pne,Psw); - Out=list(Tmp1,Tmp2); -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin Binary files differdeleted file mode 100644 index 76090b77..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci deleted file mode 100644 index be16b473..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 08.05.31 -// 10.01.01 -// 11.01.07 - -function OutL=Dividegraphics(Pd) - if length(Pd)==0 - OutL=Pd; - return; - end; - DtL=Flattenlist(Pd); - OutL=list(); - for J=1:length(DtL) - Dt= DtL(J); - Ndm=Dataindex(Dt); - for I=1:size(Ndm,1) - Fd=Dt(Ndm(I,1):Ndm(I,2),:); - OutL($+1)=Fd; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin Binary files differdeleted file mode 100644 index f65a407d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci deleted file mode 100644 index 36531da2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci +++ /dev/null @@ -1,9 +0,0 @@ -// 13.05.03 - -function Out=Dividetable(Tb) - G=Tb(1); - Gw=G(1); - Gt=Mixsub(Tb(2),G); - Gy=Mixsub(Tb(3),G); - Out=list(Gw,Gt,Gy) -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin Binary files differdeleted file mode 100644 index 921b0546..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci deleted file mode 100644 index 5054faf2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 09.12.25 - -function Out=Doscaling(G) - global LOGX LOGY SCALEX SCALEY; - GLg=G; - if LOGX==1 - GLg=[log10(G(:,1)),GLg(:,2)]; - end; - if LOGY==1 - GLg=[GLg(:,1),log10(G(:,2))]; - end; - Out=[SCALEX*GLg(:,1),SCALEY*GLg(:,2)]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin Binary files differdeleted file mode 100644 index 9b3d417e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci deleted file mode 100644 index fc2847c7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci +++ /dev/null @@ -1,186 +0,0 @@ -// 08.05.31 -// 10.01.01 -// 10.03.07 (Kosa ) - -function ShaL=Dotfilldata(varargin) - global XMIN XMAX YMIN YMAX MilliIn; - Nargs=length(varargin); - ShaL=[]; - Eps=0.01; - Kakudo=45; - Kosa=0.5; - Tmp=Doscaling([XMIN,YMIN]); - Xmn=Tmp(1); Ymn=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - Xmx=Tmp(1); Ymx=Tmp(2); - for N=Nargs:-1:1 - Tmp=varargin(N); - if Mixtype(Tmp)~=1 - break - end - end - if N<Nargs - Kosa=varargin(N+1); - end -// Kosa=min(Kosa,1); // 100307 - Tmp=1/(2*Kosa); - Kankaku=Tmp*0.100*1000/2.54/MilliIn; - NaitenL=varargin(1); - if Mixtype(NaitenL)==1 - NaitenL=list(NaitenL); - end - Ns=2; - StartP=Op(1,NaitenL); - if type(StartP)==10 - StartP=[(XMIN+XMAX)/2,(YMIN+YMAX)/2]; - else - StartP=Doscaling(StartP); - end; - Tmp=varargin(2); - if Mixtype(Tmp)==1 - StartP=Doscaling(Tmp); - Ns=3; - end - Tmp=[]; - for I=Ns:N - Tmp=Mixjoin(Tmp,list(varargin(I))); - end - Bdy=Kyoukai(Tmp); - Bdys=list(); - for I=1:length(Bdy) - Tmp1=Bdy(I); - Tmp2=Doscaling(Tmp1); - Bdys=Mixjoin(Bdys,list(Tmp2)) - end; - Bdy=Bdys; - PtnL=[]; - for I=1:length(NaitenL) - Tmp=Op(I,NaitenL); - if type(Tmp)==1 - Tmp1=Naigai(Tmp,Bdy) - PtnL=Mixjoin(PtnL,list(Tmp1)); - else - if type(Tmp)~=10 - disp('Type Error'); - return; - end - Ptn=[]; - for J=1:length(Tmp) - if Op(J,Tmp)=='i' - Ptn=[Ptn,1]; - else - Ptn=[Ptn,0]; - end - end - PtnL=Mixjoin(PtnL,list(Ptn)); - end - end - Call=length(Bdy); - Ptn=zeros(1,Call); - if Member(Ptn,PtnL) - Wn=Doscaling(Framedata()); - Bdy=Mixjoin(Bdy,list(Wn)); - Tmp=[]; - for I=1:Mixlength(PtnL) - Tmp1=[Op(I,PtnL),1]; - Tmp=Mixjoin(Tmp,list(Tmp1)); - end - PtnL=Tmp; - end - V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)]; - Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)]; - Tmp=Op(1,NaitenL); - if type(Tmp)==1 & size(Tmp,2)>1 - Delta=Tmp-StartP; - K=Trunc(Dotprod(Delta,Vm)/Kankaku); - PA=StartP+K*Kankaku*Vm; - P=PA; - Sha=Makeshasen(PtnL,P,V,Bdy); - Sha=Dividegraphics(Sha); - I=1; - while length(Sha)~=0 - for J=1:length(Sha) - Tmp=Op(J,Sha); - Q=Tmp(1,:); - R=Tmp(2,:); - Tmp=Dotprod(Q-P,V)/Kankaku; - K1=ceil(Tmp); - if abs(K1-Tmp)<Eps K1=K1+1; end - Tmp=Dotprod(R-P,V)/Kankaku; - K2=floor(Tmp); - if abs(Tmp-K2)<Eps K2=K2-1; end - for K=K1:K2 - Tmp1=Pointdata(P+K*Kankaku*V) - ShaL=Mixjoin(ShaL,list(Tmp1)); - end - end - P=PA+I*Kankaku*Vm; - Sha=Makeshasen(PtnL,P,V,Bdy); - Sha=Dividegraphics(Sha); - I=I+1; - end - P=PA-Kankaku*Vm; - Sha=Makeshasen(PtnL,P,V,Bdy); - I=2; - while length(Sha)~=0 - for J=1:length(Sha) - Tmp=Op(J,Sha); - Q=Tmp(1,:); - R=Tmp(2,:); - Tmp=Dotprod(Q-P,V)/Kankaku; - K1=ceil(Tmp); - if abs(K1-Tmp)<Eps K1=K1+1; end - Tmp=Dotprod(R-P,V)/Kankaku; - K2=floor(Tmp); - if abs(Tmp-K2)<Eps K2=K2-1; end - for K=K1:K2 - Tmp1=Pointdata(P+K*Kankaku*V) - ShaL=Mixjoin(ShaL,list(Tmp1)); - end - end - P=PA-I*Kankaku*Vm; - Sha=Makeshasen(PtnL,P,V,Bdy); - I=I+1; - end - else - Delta=[Xmn,Ymn]-StartP; - K1=Trunc(Dotprod(Delta,Vm)/Kankaku); - Delta=[Xmx,Ymn]-StartP; - K2=Trunc(Dotprod(Delta,Vm)/Kankaku); - Delta=[Xmx,Ymx]-StartP; - K3=Trunc(Dotprod(Delta,Vm)/Kankaku); - Delta=[Xmn,Ymx]-StartP; - K4=Trunc(Dotprod(Delta,Vm)/Kankaku); - IM=max(K1,K2,K3,K4); - Im=min(K1,K2,K3,K4); - for I=Im:IM - P=StartP+I*Kankaku*Vm; - Sha=Makeshasen(PtnL,P,V,Bdy); - Sha=Dividegraphics(Sha); - if length(Sha)>0 - for J=1:length(Sha) - Tmp=Op(J,Sha); - Q=Tmp(1,:); - R=Tmp(2,:); - Tmp=Dotprod(Q-P,V)/Kankaku; - K1=ceil(Tmp); - if abs(K1-Tmp)<Eps K1=K1+1; end - Tmp=Dotprod(R-P,V)/Kankaku; - K2=floor(Tmp); - if abs(Tmp-K2)<Eps K2=K2-1; end - for K=K1:K2 - Tmp1=Pointdata(P+K*Kankaku*V) - ShaL=Mixjoin(ShaL,list(Tmp1)); - end - end - end - end - end - ShaLs=list(); - for I=1:length(ShaL) - Tmp=ShaL(I); - Tmp1=Unscaling(Tmp); - ShaLs=Mixjoin(ShaLs,Tmp1); - end; - ShaL=ShaLs -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin Binary files differdeleted file mode 100644 index 2e5b0eb1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci deleted file mode 100644 index dc35fde5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci +++ /dev/null @@ -1,6 +0,0 @@ -// 09.10.03 - -function Out=Dotprod(a,b) - Out=a*b'; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin Binary files differdeleted file mode 100644 index 6f85f204..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci deleted file mode 100644 index 253d5d75..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci +++ /dev/null @@ -1,124 +0,0 @@ -// 08.05.21 -// 08.11.26 -// 09.12.24 (Revised) -// 09.12.29 -// 10.01.02 -// 11.05.27 - -function Dottedline(varargin) - global Wfile FID MilliIn PenThick PenThickInit - Nall=length(varargin); - Nagasa=0.1; - Ookisa=PenThick; - I=Nall; - Tmp=varargin(I); - while type(Tmp)==1 & length(Tmp)==1 - I=I-1; - Tmp=varargin(I); - end - if I==Nall-1 - Nagasa=Nagasa*varargin(Nall); - Nall=Nall-1; - end - if I==Nall-2 - Nagasa=Nagasa*varargin(Nall-1); - Ookisa=Ookisa*varargin(Nall); - Nall=Nall-2; - end - Nagasa=1000/2.54/MilliIn*Nagasa; - Ra=Ookisa/MilliIn; - for N=1:Nall - Tmp=varargin(N); - Pdata=Flattenlist(Tmp); // - for II=1:length(Pdata) - Clist=MakeCurves(Op(II,Pdata)); - DinM=Dataindex(Clist); - Mojisu=0; - for n=1:size(DinM,1) - Tmp=DinM(n,:); - Data=Clist(Tmp(1):Tmp(2),:); - Len=0; - Lenlist=[0]; - for I=2:size(Data,1) - Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); - Lenlist=[Lenlist,Len]; - end - Lenall=Lenlist(length(Lenlist)); - if Lenall==0 - continue - end - Naga=Nagasa; - Nten=round(Lenall/Naga)+1; - if Nten>1 - Seg=Lenall/(Nten-1); - else - Seg=Lenall; - end - Eps=10^(-6)*Seg; - PPd=[]; - Hajime=1; - for I=0:Nten-1 - Len=Seg*I; - if I>0 - J=Hajime; - while Len>=Lenlist(J)+Eps - J=J+1; - end - Hajime=J-1; - end - T=(Len-Lenlist(Hajime))... - /(Lenlist(Hajime+1)-Lenlist(Hajime)); - P=Data(Hajime,:)+T*(Data(Hajime+1,:)... - -Data(Hajime,:)); - PPd=[PPd;P]; - if I==Nten-1 - if norm(P-Data(1,:))<Eps - continue - end - end - end - for I=1:size(PPd,1) - P=PPd(I,:); - if size(PPd,1)==1 - V=[1,0]; - elseif I==1 - Tmp=PPd(I+1,:)-P; - V=1/norm(Tmp)*Tmp; - elseif I==size(PPd,1) - Tmp= P-PPd(I-1,:); - V=1/norm(Tmp)*Tmp; - else - Tmp1=PPd(I+1,:)-P; - Tmp2=P-PPd(I-1,:); - Tmp3=1/norm(Tmp1)*Tmp1+1/norm(Tmp2)*Tmp2; - V=1/norm(Tmp3)*Tmp3; - end; - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Str='\put('+X+','+Y+'){\circle*{'+sprintf('%6.6f',Ra)+'}}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%c\n','%'); - else - mfprintf(FID,'%c\n','%'); - end - Mojisu=0; - end - end - end - end; - if Mojisu>0 - if Wfile=='default' - mprintf('%c\n','%'); - else - mfprintf(FID,'%c\n','%'); - end; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin Binary files differdeleted file mode 100644 index 5576b57e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci deleted file mode 100644 index c4d9b86a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci +++ /dev/null @@ -1,115 +0,0 @@ -// 08.05.21 -// 08.11.26 - -function Dottedline(varargin) - global Wfile FID MilliIn; - Nall=length(varargin); - Nagasa=0.1; - Ookisa=0.02*0.5; - I=Nall; - Tmp=varargin(I); - while type(Tmp)==1 & length(Tmp)==1 - I=I-1; - Tmp=varargin(I); - end - if I==Nall-1 - Nagasa=Nagasa*varargin(Nall); - Nall=Nall-1; - end - if I==Nall-2 - Nagasa=Nagasa*varargin(Nall-1); - Ookisa=Ookisa*varargin(Nall); - Nall=Nall-2; - end - Nagasa=1000/2.54/MilliIn*Nagasa; - Ookisa=1000/2.54/MilliIn*Ookisa; - CL=[]; - Nk=4; - Tmp=Framedata([0,0],Ookisa/2); - CL=Tmp; - for N=1:Nall - Pdata=varargin(N); - if Mixtype(Pdata)==1 - Pdata=MixS(Pdata); - end - for II=1:Mixlength(Pdata) - Clist=MakeCurves(Op(II,Pdata)); - DinM=Dataindex(Clist); - for n=1:size(DinM,1) - Tmp=DinM(n,:); - Data=Clist(Tmp(1):Tmp(2),:); - Len=0; - Lenlist=[0]; - for I=2:size(Data,1) - Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); - Lenlist=[Lenlist,Len]; - end - Lenall=Lenlist(length(Lenlist)); - if Lenall==0 - continue - end - Naga=Nagasa; - Nten=round(Lenall/Naga)+1; - if Nten>1 - Seg=Lenall/(Nten-1); - else - Seg=Lenall; - end - Eps=10^(-6)*Seg; - Hajime=1; - for I=0:Nten-1 - Len=Seg*I; - if I>0 - J=Hajime; - while Len>=Lenlist(J)+Eps - J=J+1; - end - Hajime=J-1; - end - T=(Len-Lenlist(Hajime))... - /(Lenlist(Hajime+1)-Lenlist(Hajime)); - P=Data(Hajime,:)+T*(Data(Hajime+1,:)... - -Data(Hajime,:)); - if I==Nten-1 - if Vecnagasa(P-Data(1,:))<Eps - continue - end - end - PL=[]; - for J=1:size(CL,1) - PL=[PL;P+CL(J,:)]; - end - Mojisu=0; - for J=1:size(PL,1) - Q=PL(J,:); - X=round(MilliIn*Q(1)); - X=string(X); - Y=-round(MilliIn*Q(2)); - Y=string(Y); - Str='\special{pa '+X+" "+Y+'}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%c\n','%'); - else - mfprintf(FID,'%c\n','%'); - end - Mojisu=0; - end - end - Str='\special{sh 1}'+'\special{fp}%' - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - end - end - end - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin Binary files differdeleted file mode 100644 index 14cf5d76..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci deleted file mode 100644 index 3a06be00..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 08.09.10 -// 08.09.15 -// 08.10.10 -// 10.09.03 - -function OutL=Dropnumlistcrv(QdL,Eps) - Eps0=10^(-6); // - if Mixtype(QdL)==1 - PdL=list(QdL); - else - PdL=QdL; - end; - OutL=[]; - for I=1:Mixlength(PdL) - Pd=Op(I,PdL); - PtL=[1]; - P=Pd(1,:); - for K=2:size(Pd,1)-1 // - if norm(P-Pd(K,:))>Eps - PtL=[PtL,K]; - P=Pd(K,:); - end; - end; - // PtL=[PtL,size(Pd,1)]; - K=size(Pd,1) // - if norm(P-Pd(K,:))>Eps0 // - PtL=[PtL,K]; // - end; // - if length(PtL)==1 - PtL=[]; - end; - OutL=Mixadd(OutL,PtL); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin Binary files differdeleted file mode 100644 index 155b2072..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci deleted file mode 100644 index 84fd6daa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci +++ /dev/null @@ -1,28 +0,0 @@ -// 08.10.07
-// 08.10.27
-// 09.06.02
-
-function AnsL=Droppoint(varargin)
- Nargs=length(varargin);
- Curve=varargin(1);
- Eps=0.02;
- if Nargs>=2
- Eps=varargin(2);
- end;
- AnsL=[%inf,%inf];
- for I=1:size(Curve,1)
- P=Curve(I,:);
- if P(1)~=%inf
- Tmp=AnsL(size(AnsL,1),:);
- if norm(P-Tmp)>Eps
- AnsL=[AnsL;P];
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
- AnsL=AnsL(2:size(AnsL,1),:);
- Tmp=Ptend(Curve);
- AnsL=[AnsL(1:size(AnsL,1)-1,:);Tmp];
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin Binary files differdeleted file mode 100644 index 86d3110c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci deleted file mode 100644 index 60f0da1a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci +++ /dev/null @@ -1,66 +0,0 @@ -// 08.05.21
-// 11.05.25
-
-function Drwline(varargin)
- global Wfile FID MilliIn PenThick PenThickInit;
- Nall=length(varargin);
- Thick=PenThick;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1
- Setpen(Tmp);
- Nall=Nall-1;
- end;
- for N=1:Nall
- Tmp=varargin(N);
- Pdata=Flattenlist(Tmp);
- for II=1:length(Pdata) //11.05.25
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Mojisu=0;
- Tmp=Data(1,:);
- for I=1:size(Data,1)
- Tmp=Data(I,:);
- X=sprintf('%5.5f',Tmp(1));
- Y=sprintf('%5.5f',Tmp(2));
- Pt='('+X+','+Y+')';
- if I==1 then
- Str='\polyline'+Pt;
- else
- Str=Pt;
- end
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end
- Mojisu=0;
- end
- end
- if Mojisu~=0
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end;
- end;
- end;
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end;
- end;
- Setpen(Thick/PenThickInit);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin Binary files differdeleted file mode 100644 index 02e88bd7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci deleted file mode 100644 index 5df4a877..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci +++ /dev/null @@ -1,142 +0,0 @@ -// -// 08.05.31 -// 09.12.25 -// 10.01.01 -// 11.05.26 (for pdflatex) - -function Drwpt(varargin) - global Wfile FID TenSize TenSizeInit MilliIn; - Nargs=length(varargin); - All=Nargs; - Tmp=varargin(All); - Iro=[0,0,0,1]; - Iroflg=0; - if type(Tmp)==10 then - Iro=Ratiocmyk(Tmp); - Iroflg=1; - All=All-1; - end - Tmp=varargin(All); - Kosa=1; - if type(Tmp)==1 & length(Tmp)==1 - Kosa=Tmp; All=All-1; - end; - Ra=TenSize*1000/2.54/MilliIn; - if Iroflg>0 - Str='{\color[cmyk]{'; - for J=1:4 - Str=Str+string(Kosa*Iro(J)); - if J<4 then - Str=Str+','; - end - end - Str=Str+'}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - end; - Mojisu=0; - for II=1:All - Tmp=varargin(II); - MS=Flattenlist(Tmp); // 11.05.29 - for I=1:length(MS); - P=Op(I,MS); - if InWindow(P)~='i' - continue - end - P=Doscaling(P); - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Str='\put('+X+','+Y+'){\circle*{'+sprintf('%6.6f',Ra)+'}}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - Mojisu=0; - end - end - end; - Str=""; - if Iroflg>0 - Str='}'; - end; - if Mojisu>0 - Fmt='\n%s\n'; - else - Fmt='%s\n'; - end; - if Wfile=='default' - mprintf(Fmt,Str); - else - mfprintf(FID,Fmt,Str); - end; - Mojisu=0; - if Iroflg>0 - Str='{\color[cmyk]{'; - for J=1:4 - Str=Str+string(Iro(J)); - if J<4 then - Str=Str+','; - end - end - Str=Str+'}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end; - Mojisu=0; - end; - for II=1:All - Tmp=varargin(II); - MS=Flattenlist(Tmp); // 11.05.29 - for I=1:length(MS); - P=Op(I,MS); - if InWindow(P)~='i' - continue - end - P=Doscaling(P); - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Str='\put('+X+','+Y+'){\circle{'+sprintf('%6.6f',Ra)+'}}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - Mojisu=0; - end - end - end - Str="%"; - if Iroflg>0 - Str='}%'; - end; - if Mojisu>0 - Fmt='\n%s\n'; - else - Fmt='%s\n'; - end; - if Wfile=='default' - mprintf(Fmt,Str); - else - mfprintf(FID,Fmt,Str); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin Binary files differdeleted file mode 100644 index 6d275fab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci deleted file mode 100644 index b091754f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci +++ /dev/null @@ -1,17 +0,0 @@ -function Drwxy(varargin) - global XMIN XMAX YMIN YMAX GENTEN ARROWSIZE - global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ULEN; - Nargs=length(varargin) - Tmp=mtlb_findstr(ZIKU,'arrow'); - if Tmp~=[] - Arrowline([XMIN,GENTEN(2)],[XMAX,GENTEN(2)],ARROWSIZE); - Arrowline([GENTEN(1),YMIN],[GENTEN(1),YMAX],ARROWSIZE); - else - Drwline(Listplot([XMIN,GENTEN(2)],[XMAX,GENTEN(2)])); - Drwline(Listplot([GENTEN(1),YMIN],[GENTEN(1),YMAX])); - end; - Letter([XMAX,GENTEN(2)],XPOS,XNAME); - Letter([GENTEN(1),YMAX],YPOS,YNAME); - Letter(GENTEN,OPOS,ONAME); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin Binary files differdeleted file mode 100644 index e3e99cfd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci deleted file mode 100644 index 9b67e366..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.09.25 -// 09.11.21 -// 09.11.26 - -function Out=Embed(varargin) - Nargs=length(varargin); - Pd3=varargin(1); - if Mixtype(Pd3)==1 - Pd3=list(Pd3); - elseif Mixtype(Pd3)==3 - Tmp=list(); - for I=1:length(Pd3) - Tmp=Mixjoin(Tmp,Pd3(I)); - end; - Pd3=Tmp; - end; - Tmpf=varargin(2); - if type(Tmpf)==10 - Tmp=varargin(3); - Tmp1=strsubst(Tmp,'[','('); - Vstr=strsubst(Tmp1,']',')'); - deff('Z=Tmpfn'+Vstr,'Z='+Tmpf); - else - Tmpfn=Tmpf; - end; - Out=list(); - for I=1:length(Pd3) - PD=Pd3(I); - Ans=[]; - for J=1:size(PD,1) - P=PD(J,:); - Tmp=Tmpfn(P(1),P(2)); - Ans=[Ans;Tmp]; - end; - Out($+1)=Ans; - end; - if length(Out)==1 - Out=Out(1); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin Binary files differdeleted file mode 100644 index 6a5a9096..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci deleted file mode 100644 index bfc191b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci +++ /dev/null @@ -1,23 +0,0 @@ -// 08.05.31 -// 10.12.04 -// 16.12.05 to make it a closed curve - -function AnsL=Enclosing(varargin) - global MilliIn; - Eps=10^(-7); // 12.05 - Nargs=length(varargin); - P=varargin(1); - if Mixtype(P)==2 - Tmp=Op(1,P); - if type(Tmp)~=1 | length(Tmp)~=1 - AnsL=EnclosingS(P,varargin(2:Nargs)); - AnsL=Joincrvs(AnsL) // 10.12.04 - end - end; - Tmp1=Op(1,AnsL); - Tmp2=Op(size(AnsL,1),AnsL); - if norm(Tmp2-Tmp1)>Eps then // 12.05 - AnsL=[AnsL;Tmp1]; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin Binary files differdeleted file mode 100644 index a5f0596e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci deleted file mode 100644 index cded7ef2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci +++ /dev/null @@ -1,126 +0,0 @@ -// 08.05.31 -// 08.11.12 -// 09.10.12 -// 09.10.14 -// 15.04.10 - -function AnsL=EnclosingS(varargin) - global MilliIn; - Nargs=length(varargin); - AnsL=[]; - PdataL=varargin(1); - Nall=length(PdataL); - Eps=10^(-3); - EEps=0.1; - S=[]; - Flg=0; - for I=2:Nargs - Tmp=varargin(I); - if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1 - S=Tmp; - end - if type(Tmp)==1 & length(Tmp)==1 - if Flg==0 - Eps=Tmp; - Flg=Flg+1 - else - EEps=Tmp - end - end - end - F=Op(1,PdataL); G=Op(Nall,PdataL); - KL=IntersectcrvsPp(F,G); - if length(KL)==1 - Tmp=Op(1,KL); - P=Op(1,Tmp); - T1=Op(2,Tmp); - end - if length(KL)==0 - if Numptcrv(F)>Numptcrv(G) - Tmp=Nearestpt(F,G); - P=Op(1,Tmp); - T1=Op(2,Tmp); - else - Tmp=Nearestpt(G,F); - P=Op(3,Tmp); - T1=Op(4,Tmp); - end - end - if length(KL)>1 // 15.04.10 - if S==[] - disp('No Start Point'); - return - end; - Tmp=Op(1,KL); - P=Op(1,Tmp); - T1=Op(2,Tmp); - Tmp=norm(P-S); - for I=2:length(KL) - Tmp1=Op(1,Op(I,KL)); - Tmp2=norm(Tmp1-S); - if Tmp2<Tmp - P=Tmp1; - T1=Op(2,Op(I,KL)); - Tmp=Tmp2; - end - end - end - S=P; - AnsL=[]; - for N=1:Nall - F=Op(N,PdataL); - if N>1 P=Q;end - if N==Nall - Q=S; - else - Flg=0; - G=Op(N+1,PdataL); - KL=IntersectcrvsPp(G,F); - if length(KL)==1 - Tmp=Op(1,KL); - Q=Op(1,Tmp); - T3=Op(2,Tmp); - Flg=10; - end - if length(KL)==0 Flg=1; end - if length(KL)>=2 // Maple bug? - Tmp1=Op(1,Op(1,KL)); - Tmp2=Op(1,Op(2,KL)); - Tmp=norm(Tmp1-Tmp2); - if Tmp<Eps*10 Flg=1; end - end - if Flg==1 - if Numptcrv(F)>Numptcrv(G) - Tmp=Nearestpt(F,G); - Q=Op(1,Tmp); - T3=Op(4,Tmp); - Flg=10; - else - Tmp=Nearestpt(G,F); - Q=Op(3,Tmp); - T3=Op(2,Tmp); - Flg=10; - end - end - if Flg<10 - T2=%inf; - for I=1:length(KL) - Dt=Op(I,KL); - Tmp1=Op(1,Dt); - Tmp=Op(3,Dt); - Tmp2=Paramoncrv(Tmp1,Tmp,F); - Tmp3=Op(2,Dt); - if (Tmp2>T1+Eps) & (Tmp2<T2+Eps) - Q=Tmp1; - T2=Tmp2; - T3=Tmp3; - end - end - end - end - Tmp=Partcrv(P,Q,F); - T1=T3; - AnsL=Mixadd(AnsL,Tmp); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin Binary files differdeleted file mode 100644 index ceb0ffb6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci deleted file mode 100644 index ff4a3c43..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci +++ /dev/null @@ -1,11 +0,0 @@ -// 08.05.22 - -function Endpicture(varargin) - if length(varargin)==0 - Flg=1 - else - Flg=varargin(1); - end - Closepicture(Flg) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin Binary files differdeleted file mode 100644 index 38c7da86..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci deleted file mode 100644 index b9c86eef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci +++ /dev/null @@ -1,79 +0,0 @@ -// 08.09.10 -// 13.10.21 ( __ added to varibles ) -// 17.05.21 Mdv, Ndv changed to division number - -function [Zval__,Xval__,Yval__]=Evlptablepara(MS__) - Nargs__=Mixlength(MS__); - Eps__=10^(-3); - Tmp__=Mixop(1,MS__); - FdL__=Fullformfunc(Tmp__); - Mdv=50; - Ndv__=50; - if Nargs__>=2 - Tmp__=Mixop(2,MS__); - if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end; - if length(Tmp__)>1 - Mdv__=Tmp__(1,1); - Ndv__=Tmp__(1,2); - else - Mdv__=Tmp__ - if Nargs__==2 - Ndv__=Mdv__ - else - Tmp1__=Mixop(3,MS__); - if type(Tmp1__)==1 & length(Tmp1__)==1 - Ndv__=Tmp1__; - else - Ndv__=Mdv__; - end - end - end - end; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - U1__=Urange__(1); U2__=Urange__(2); - V1__=Vrange__(1); V2__=Vrange__(2); - Du__=(U2__-U1__)/(Mdv__); //17.05.21 - Dv__=(V2__-V1__)/(Ndv__); //17.05.21 - Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)]; - I__=1; - Zval__=[]; - for v__=V1__:Dv__:V2__ - v1__=v__-Eps__/2; v2__=v__+Eps__/2; - ZuL__=[]; - for u__=U1__:Du__:U2__; - u1__=u__-Eps__/2; u2__=u__+Eps__/2; - Tmpv__=strsubst(Xyzstr__,Vname__,'v__'); - Tmp__=strsubst(Tmpv__,Uname__,'u1__'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmpv__,Uname__,'u2__'); - P2__=evstr(Tmp__); - Tmp1__=Parapt(P1__); - Tmp2__=Parapt(P2__); - Dxu__=(Tmp2__(1)-Tmp1__(1))/Eps__; - Dyu__=(Tmp2__(2)-Tmp1__(2))/Eps__; - u1__=u__-Eps__/2; u2__=u__+Eps__/2; - Tmpu__=strsubst(Xyzstr__,Uname__,'u__'); - Tmp__=strsubst(Tmpu__,Vname__,'v1__'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmpu__,Vname__,'v2__'); - P2__=evstr(Tmp__); - Tmp1__=Parapt(P1__); - Tmp2__=Parapt(P2__); - Dxv__=(Tmp2__(1)-Tmp1__(1))/Eps__; - Dyv__=(Tmp2__(2)-Tmp1__(2))/Eps__; - Tmp__=Dxu__*Dyv__-Dxv__*Dyu__; - ZuL__=[ZuL__,Tmp__]; - end; - Zval__=[Zval__;ZuL__]; - end; - Yval__=V1__:Dv__:V2__; - Xval__=U1__:Du__:U2__; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin Binary files differdeleted file mode 100644 index 775dd55e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci deleted file mode 100644 index 15ddd0a8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci +++ /dev/null @@ -1,77 +0,0 @@ -// 08.09.21 -// 13.11.01 ( __ added to varibles ) - -function [Zval__,Xval__,Yval__]=Evlptablepers(MS__) - Nargs__=Mixlength(MS__); - Eps__=10^(-3); - Tmp__=Mixop(1,MS__); - FdL__=Fullformfunc(Tmp__); - Mdv__=50; - Ndv__=50; - if Nargs__>=2 - Tmp__=Mixop(2,MS__); - if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end; - if length(Tmp__)>1 - Mdv__=Tmp__(1,1); - Ndv__=Tmp__(1,2); - else - Mdv__=Tmp__ - if Nargs__==2 - Ndv__=Mdv__ - else - Tmp__1=Mixop(3,MS__); - if type(Tmp__1)==1 & length(Tmp__1)==1 - Ndv__=Tmp__1; - else - Ndv__=Mdv__; - end - end - end - end; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - U1__=Urange__(1); U2__=Urange__(2); - V1__=Vrange__(1); V2__=Vrange__(2); - Du__=(U2__-U1__)/(Mdv__-1); - Dv__=(V2__-V1__)/(Ndv__-1); - Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)]; - I__=1; - Zval__=[]; - for v__=V1__:Dv__:V2__ - v__1=v__-Eps__/2; v__2=v__+Eps__/2; - ZuL__=[]; - for u__=U1__:Du__:U2__; - u__1=u__-Eps__/2; u__2=u__+Eps__/2; - Tmp__v=strsubst(Xyzstr__,Vname__,'v__'); - Tmp__=strsubst(Tmp__v,Uname__,'u__1'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmp__v,Uname__,'u__2'); - P2__=evstr(Tmp__); - Tmp__1=Perspt(P1__); - Tmp__2=Perspt(P2__); - Dxu__=(Tmp__2(1)-Tmp__1(1))/Eps__; - Dyu__=(Tmp__2(2)-Tmp__1(2))/Eps__; - u__1=u__-Eps__/2; u__2=u__+Eps__/2; - Tmp__u=strsubst(Xyzstr__,Uname__,'u__'); - Tmp__=strsubst(Tmp__u,Vname__,'v__1'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmp__u,Vname__,'v__2'); - P2__=evstr(Tmp__); - Tmp__1=Perspt(P1__); - Tmp__2=Perspt(P2__); - Dxv__=(Tmp__2(1)-Tmp__1(1))/Eps__; - Dyv__=(Tmp__2(2)-Tmp__1(2))/Eps__; - Tmp__=Dxu__*Dyv__-Dxv__*Dyu__; - ZuL__=[ZuL__,Tmp__]; - end; - Zval__=[Zval__;ZuL__]; - end; - Yval__=V1__:Dv__:V2__; - Xval__=U1__:Du__:U2__; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin Binary files differdeleted file mode 100644 index 44e39527..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci deleted file mode 100644 index 2a4d1491..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 10.01.16 -// 10.02.24 - -function Execmd(StrL) - for I=1:length(StrL) - execstr(Op(I,StrL)) - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin Binary files differdeleted file mode 100644 index b58e53fd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci deleted file mode 100644 index 5b9df24b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci +++ /dev/null @@ -1,100 +0,0 @@ -// -// 09.12.25 - -function Expr(varargin) - global Wfile FID MEMORI; - Nargs=length(varargin); - for I=1:3:Nargs - Tmp=varargin(I); - P=Doscaling(Tmp); - X=P(1); - Y=P(2); - Houkou=varargin(I+1); - Mojiretu='$'+varargin(I+2)+'$'; - Hset=Houkou; - Vhoko='c'; - if mtlb_findstr(Hset,'n')~=[] - Vhoko='n'; Y=Y+MEMORI; - end - if mtlb_findstr(Hset,'s')~=[] - Vhoko='s'; Y=Y-MEMORI; - end - Hhoko='c'; - if mtlb_findstr(Hset,'e')~=[] - Hhoko='e'; X=X+MEMORI; - end - if mtlb_findstr(Hset,'w')~=[] - Hhoko='w'; X=X-MEMORI; - end - Hoko=Vhoko+Hhoko; - Suu='+-.0123456789'; - SuuL=Suu; - Hcode=ascii(Houkou); - J=1; Dstr=''; - while J<=length(Houkou) - Tmp=char(Hcode(J)); - if mtlb_findstr(SuuL,Tmp)~=[] - if Dstr=='' - Hk=char(Hcode(J-1)); - end - Dstr=Dstr+Tmp; - else - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - Dstr=''; - end - end - J=J+1; - end - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - end - CalcWidth(Hoko,Mojiretu); - CalcHeight(Hoko,Mojiretu); - Tmp='){\hspace*{\Width}'; - Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}'; - if Wfile=='default' - mprintf('%s','\put('); - mprintf('%6.4f%s%6.4f',X,',',Y); - mprintf('%s%s\n',Str,'%'); - mprintf('%s\n','%'); - else - mfprintf(FID,'%s','\put('); - mfprintf(FID,'%6.4f%s%6.4f',X,',',Y); - mfprintf(FID,'%s%s\n',Str,'%'); - mfprintf(FID,'%s\n','%'); - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin Binary files differdeleted file mode 100644 index 17904d7a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci deleted file mode 100644 index d51dfa91..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 08.05.31 -// 08.08.24 -// 09.12.25 - -function Exprrot(varargin) - global MEMORI; - P=varargin(1); - V=varargin(2); N=3; - P=Doscaling(P); - V=Doscaling(V); - Tmov=0; - Tmp=varargin(N); - if type(Tmp)==1 - Tmov=Tmp; N=N+1; - end - Nmov=0; - Tmp=varargin(N); - if type(Tmp)==1 then - Nmov=Tmp; N=N+1; - end - Mojiretu='$'+varargin(N)+'$'; - Tv=1/norm(V)*V; - Nv=[-Tv(2),Tv(1)]; - P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv; - Tmp=acos(V(1)/norm(V)); - Theta=round(Tmp*180/%pi); - if V(2)>=0 - Units=''; - else - Units='units=-360,'; - end - Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta); - Tmp=Tmp+'}{'+Mojiretu+'}'; - Letter(P,"c",Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin Binary files differdeleted file mode 100644 index 5095cc06..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci deleted file mode 100644 index ae0bea54..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci +++ /dev/null @@ -1,78 +0,0 @@ -// 09.10.29 -// 10.02.07 debugged - -function NohiddenL=Faceremovaldata(FL,CLadd,PT) - global PHHIDDENDATA VELNO VELHI; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CLadd)// - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - VELNO=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - Ntmp=length(VELNO); // - VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); // - end; - end; - VELHI=list(); - Out=MakeveLfaceL(FL); - FaceL=Out(2); - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi2(Face,Nf,Ptype); - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - for I=1:length(VELHI) - Edge=Op(1,VELHI(I)); - if norm(Edge(1)-Edge(2))>Eps - HiddenL($+1)=Spaceline(Edge); - end; - end; - PHHIDDENDATA=HiddenL; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin Binary files differdeleted file mode 100644 index ea9738c8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci deleted file mode 100644 index 7dc8bef1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci +++ /dev/null @@ -1,81 +0,0 @@ -// NEW -// Faceremovaldata -// 09.10.24 -// 09.10.26 -// 09.10.27 - -function NohiddenL=Faceremovaldata(FL,CLadd,PT) - global PHHIDDENDATA VELNO VELHI; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CL) - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - VELNO=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - VELNO($+1)=list(Edge,0); - end; - end; - VELHI=list(); - Out=MakeveLfaceL(FL); - FaceL=Out(2); - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi(Face,Nf,Ptype); - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - for I=1:length(VELHI) - Edge=Op(1,VELHI(I)); - if norm(Edge(1)-Edge(2))>Eps - HiddenL($+1)=Spaceline(Edge); - end; - end; - PHHIDDENDATA=HiddenL; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin Binary files differdeleted file mode 100644 index 84ab9833..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci deleted file mode 100644 index 0ed2f249..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci +++ /dev/null @@ -1,154 +0,0 @@ -///////// -// 09.10.29 -// 11.01.13 (HiddenL) remodified 110122 -// 13.03.30 (HiddenL) debugged 140330 - -function NohiddenL=Facesdata(varargin) - global PHHIDDENDATA VELNO VELHI; - Nargs=length(varargin); - FL=varargin(1); - PT=varargin($); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if Nargs==2 - CLadd=list(); - else - CLadd=varargin(2); - end; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CL) - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - Out=MakeveLfaceL(FL); - VELNO=Out(1); - VELHI=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - Ntmp=length(VELNO); // - VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); // - end; - end; - FaceL=Out(2); - if mtlb_findstr(PT,'raw')==[] - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi2(Face,Nf,Ptype); - end; - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - EdgeL=list(); // from 13.03.30 - for K=1:length(VELHI) - Edge=Op(1,VELHI(K)); - P=Edge(1); Q=Edge(2); - if norm(P-Q)>Eps then - EdgeL($+1)=Edge; - end - end - for K=1:length(EdgeL) - Edge=EdgeL(K); // - P=Edge(1); Q=Edge(2); - Cflg=0; - for J=K+1:length(EdgeL) - Ej=EdgeL(J); // - Pj=Ej(1); Qj=Ej(2); - if norm(Crossprod(Q-P,Qj-Pj))>Eps then - continue - end - if norm(Q-Pj)<Eps then - EdgeL(J)=list(P,Qj); - Cflg=1; - break; - end - if norm(P-Qj)<Eps then - EdgeL(J)=list(Q,Pj) - Cflg=1; - break; - end; - end - if Cflg==0 then - HiddenL($+1)=Spaceline(Edge); - end; - end; // upto 14.03.30 - -// L=1:length(VELHI); // from 11.01.13 -// while length(L)>0 -// Lr=[]; -// Edge=Op(1,VELHI(L(1))); // -// P=Edge(1); -// Q=Edge(2); -// -// disp([293,P,Q]) -// -// if norm(P-Q)>Eps -// for J=2:length(L) -// Rflg=0; -// Ej=Op(1,VELHI(L(J))); // -// Pj=Ej(1); -// Qj=Ej(2); -// if norm(Crossprod(Q-P,Qj-Pj))>Eps -// Lr=[Lr,J]; -// continue; -// end; -// if norm(Q-Pj)<Eps -// Edge(2)=Qj; -// Rflg=1; -// elseif norm(P-Qj)<Eps -// Edge(1)=Pj; -// Rflg=1; -// end; -// if Rflg==0 -// Lr=[Lr,J]; -// end; -// end; -// else -// Lr=L(2:length(L)); -// end; -// L=Lr; // upto 11.01.13 -// HiddenL($+1)=Spaceline(Edge); -// end; - PHHIDDENDATA=HiddenL; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin Binary files differdeleted file mode 100644 index 82821a8b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci deleted file mode 100644 index c300cf6e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci +++ /dev/null @@ -1,88 +0,0 @@ -// 09.10.27 - -function NohiddenL=Facesdata(varargin) - global PHHIDDENDATA VELNO VELHI; - Nargs=length(varargin); - FL=varargin(1); - PT=varargin($); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if Nargs==2 - CLadd=list(); - else - CLadd=varargin(2); - end; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CL) - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - Out=MakeveLfaceL(FL); - VELNO=Out(1); - VELHI=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - VELNO($+1)=list(Edge,0); - end; - end; - FaceL=Out(2); - if mtlb_findstr(PT,'raw')==[] - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi(Face,Nf,Ptype); - end; - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - for I=1:length(VELHI) - Edge=Op(1,VELHI(I)); - if norm(Edge(1)-Edge(2))>Eps - HiddenL($+1)=Spaceline(Edge); - end; - end; - PHHIDDENDATA=HiddenL; -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin Binary files differdeleted file mode 100644 index ade40fbf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci deleted file mode 100644 index 062fcc5c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci +++ /dev/null @@ -1,127 +0,0 @@ -// 09.11.26 -// 09.12.06 -// 09.12.14 -// 10.01.12 -// 10.01.13 -// 10.01.14 - -function Out=Findcell(varargin)//TbL,Nrg,Mrg - Nargs=length(varargin); - TbL=varargin(1); - Ag=varargin(2); - Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; - if type(Ag)==10 - Clm=[]; - Rstr=''; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp-1]; - else - Rstr=Rstr+C; - end; - end; - Nrg=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg=Nrg+Tmp*26^Tmp1; - end; - Mrg=eval(Rstr); - if Nargs>=3 - Ag=varargin(3); - Clm=[]; - Rstr=''; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp]; - else - Rstr=Rstr+C; - end; - end; - Nrg2=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg2=Nrg2+Tmp*26^Tmp1; - end; - Nrg=[Nrg,Nrg2]; - Mrg=[Mrg,eval(Rstr)]; - end; - else - Nrg=varargin(2); - Mrg=varargin(3); - end; - if length(Mrg)==1 - m1=Mrg; m2=m1+1; - else - m1=Mrg(1); m2=Mrg(2); - end; - if length(Nrg)==1 - n1=Nrg; n2=n1+1; - else - n1=Nrg(1); n2=Nrg(2); - end; - n1=n1+1; n2=n2+1; - m1=m1+1; m2=m2+1; - Hind=TbL(2); - Vind=TbL(3); - HL=Mixsub(TbL(2),TbL(1)); - Tmp1=Op(1,TbL(4)); - Tmp2=Op(2,TbL(4)); - HL=Mixjoin(list(Tmp1),HL,list(Tmp2)); - VL=Mixsub(TbL(3),TbL(1)); - Tmp1=Op(1,TbL(5)); - Tmp2=Op(2,TbL(5)); - VL=Mixjoin(list(Tmp1),VL,list(Tmp2)); - Tmp=TbL(6); - Tmp1=Listplot([Ptsw(Tmp),Ptnw(Tmp)]); - Tmp2=Listplot([Ptse(Tmp),Ptne(Tmp)]); - HL=Mixjoin(list(Tmp1),HL,list(Tmp2)); - Tmp1=Listplot([Ptnw(Tmp),Ptne(Tmp)]); - Tmp2=Listplot([Ptsw(Tmp),Ptse(Tmp)]); - VL=Mixjoin(list(Tmp1),VL,list(Tmp2)); - Tmp=HL(n1); - if type(Tmp)==1 - H1=Tmp(1,1); - else - Tmp1=Tmp(1); - H1=Tmp1(1,1); - end; - Tmp=HL(n2); - if type(Tmp)==1 - H2=Tmp(1,1); - else - Tmp1=Tmp(1); - H2=Tmp1(1,1); - end; - Tmp=VL(m1); - if type(Tmp)==1 - V1=Tmp(1,2); - else - Tmp1=Tmp(1); - V1=Tmp1(1,2); - end; - Tmp=VL(m2); - if type(Tmp)==1 - V2=Tmp(1,2); - else - Tmp1=Tmp(1); - V2=Tmp1(1,2); - end; - Pt=[(H1+H2)/2,(V1+V2)/2]; - High=(V1-V2)/2; - Wide=(H2-H1)/2; - Out=list(Pt,Wide,High); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin Binary files differdeleted file mode 100644 index 31e5d594..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci deleted file mode 100644 index 903679ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 10.11.13 - -function Out=Flattenlist(varargin) - Out=list(); - for N=1:length(varargin) - D=varargin(N); - if type(D)~=15 - Out($+1)=D; - else - for I=1:length(D) - Ds=D(I); - Tmp=Flattenlist(Ds); - Out=lstcat(Out,Tmp); - end; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin Binary files differdeleted file mode 100644 index 10387e38..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci deleted file mode 100644 index 218b599f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci +++ /dev/null @@ -1,54 +0,0 @@ -function Fontsize(Ookisa) - global Wfile FID; - Str='%'; - Ucode=ascii(Ookisa); - S=char(Ucode(1)); - if S=='n' - Str='\normalsize%'; - end - if S=='s' - if length(Ucode)==1 - Tmp=''; - else - Tmp=char(Ucode(2)); - end - if Tmp=='s' - Str='\scriptsize%'; - else - Str='\small%'; - end - end - if S=='f' - Str='\footnotesize%'; - end - if S=='t' - Str='\tiny%'; - end - if S=='l' - Str='\large%'; - end - if S=='L' - if length(Ucode)==1 - Tmp='a'; - else - Tmp=char(Ucode(2)); - end - if Tmp=='a' - Str='\Large%'; - else - Str='\LARGE%'; - end - end - if S=='h' - Str='\huge%'; - end - if S=='H' - Str='\Huge%'; - end - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin Binary files differdeleted file mode 100644 index e718a4ba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci deleted file mode 100644 index af259244..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 09.03.13 - -function Out=Fouriercoeff(Fn,T,Ch,K) - Eps=10^(-5); - L=T/2; - Tmp1='Out=FUNC(x)'; - if Ch=='c' - Tmp2='Out=Fn(10*L*x)*cos('+string(K)+'*%pi*x*10)'; - else - Tmp2='Out=Fn(10*L*x)*sin('+string(K)+'*%pi*x*10)'; - end; - deff(Tmp1,Tmp2); - Out=10*intg(-0.1,0.1,FUNC); - if K==0 - Out=Out/2; - end; - if abs(Out)<Eps - Out=0; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin Binary files differdeleted file mode 100644 index 59f91f6c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci deleted file mode 100644 index 2d0d840b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 09.03.12 - -function Out=FouriercoeffL(Fn,T,Upto) - Out=Mix(Fouriercoeff(Fn,T,'c',0)); - CL=[]; - for K=1:Upto - Tmp=Fouriercoeff(Fn,T,'c',K); - CL=[CL,Tmp]; - end; - Out=Mixadd(Out,CL); - CL=[]; - for K=1:Upto - Tmp=Fouriercoeff(Fn,T,'s',K); - CL=[CL,Tmp]; - end; - Out=Mixadd(Out,CL); - Out=Mixadd(Out,T); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin Binary files differdeleted file mode 100644 index bf840511..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci deleted file mode 100644 index 6182f4a7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 09.03.12 - -function Out=Fouriersum(COEFF,x) - C=Mixop(1,COEFF); - A=Mixop(2,COEFF); - B=Mixop(3,COEFF); - T=Mixop(4,COEFF); - Upto=size(A,2); - L=T/2; - K=1:Upto; - Tmp1=sum(A(K).*cos(K*%pi*x/L)); - Tmp2=sum(B(K).*sin(K*%pi*x/L)); - Out=C+Tmp1+Tmp2; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin Binary files differdeleted file mode 100644 index 478d4e52..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci deleted file mode 100644 index 437ff122..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 09.08.23 - -function Out=Fracform(X) - [N,D]=rat(X); - Out=[]; - for I=1:size(X,1) - for J=1:size(X,2) - Tmp1=N(I,J); - Tmp2=D(I,J); - if Tmp2==1 - Out(I,J)=string(Tmp1); - else - Out(I,J)=string(Tmp1)+'/'+string(Tmp2); - end; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin Binary files differdeleted file mode 100644 index 442df592..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci deleted file mode 100644 index 071f7381..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 2011.12.18 ( available for list ) - -function P=Framedata(varargin) - global XMIN XMAX YMIN YMAX - VaL=Flattenlist(varargin); - N=length(VaL); - if N<=1 - H=1.0*10^(-4); - PA=[XMIN+H,YMIN+H]; - PB=[XMAX-H,YMIN+H]; - PC=[XMAX-H,YMAX-H]; - PD=[XMIN+H,YMAX-H]; - else - Tmp=VaL(N); - if type(Tmp)==1 & length(Tmp)==1 - Dy=Tmp; - Dx=Dy; - Tmp=VaL(N-1); - if type(Tmp)==1 & length(Tmp)==1 - Dx=Tmp; - end; - Tmp=VaL(1); - X=Tmp(1); Y=Tmp(2); - X1=X-Dx; X2=X+Dx; - Y1=Y-Dy; Y2=Y+Dy; - else - Tmp=VaL(1); - X1=Tmp(1); X2=Tmp(2); - Tmp=VaL(2); - Y1=Tmp(1); Y2=Tmp(2); - end; - PA=[X1,Y1]; PB=[X2,Y1]; - PC=[X2,Y2]; PD=[X1,Y2]; - end; - P=Listplot(PA,PB,PC,PD,PA) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin Binary files differdeleted file mode 100644 index b86c79cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci deleted file mode 100644 index 97ddae5b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci +++ /dev/null @@ -1,79 +0,0 @@ -// 08.08.16 -// 08.09.16 -// 09.11.14 -// 10.08.19 -// 13.10.22 ( __ added to varibles ) - -function Out__=Fullformfunc(FdL__) - Out__=MixS(Mixop(1,FdL__)); - N__=Mixlength(FdL__); - for Jrg__=1:N__ - Tmp__=Mixop(Jrg__,FdL__); - if part(Tmp__,length(Tmp__))==']' - break - end; - end; - Urg__=Mixop(Jrg__,FdL__); - K__=mtlb_findstr(Urg__,'='); - Uname__=stripblanks(part(Urg__,1:K__-1)); - Tmp__=part(Urg__,K__+1:length(Urg__)); // 2013.10.22 - Tmp1__=evstr(Tmp__); - Urg__=Uname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; - Vrg__=Mixop(Jrg__+1,FdL__); - K__=mtlb_findstr(Vrg__,'='); - Vname__=stripblanks(part(Vrg__,1:K__-1)); - Tmp__=part(Vrg__,K__+1:length(Vrg__)); - Tmp1__=evstr(Tmp__); - Vrg__=Vname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; // - if Jrg__==2 - Tmp__=Mixop(1,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Zf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=MixS(Uname__,Vname__,Zf__,Urg__,Vrg__); - Out__=Mixjoin(Out__,Tmp__); - elseif Jrg__==4 - Tmp__=Mixop(1,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Zf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=Mixop(2,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=stripblanks(part(Tmp__,1:K__-1)); - Xf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=Mixop(3,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=stripblanks(part(Tmp__,1:K__-1)); - Yf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=strsubst(Zf__,Xname__,'('+Xf__+')'); - Zf__=strsubst(Tmp__,Yname__,'('+Yf__+')'); - Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__); - Out__=Mixjoin(Out__,Tmp__); - else - Tmp__=Mixop(2,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Xf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=Mixop(3,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Yf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=Mixop(4,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Zf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__); - Out__=Mixjoin(Out__,Tmp__); - end; - DrwS__='enws'; - BdyL__=[]; - for I__=Jrg__+2:Mixlength(FdL__) - Tmp__=Mixop(I__,FdL__); - if type(Tmp__)==10 - if length(Tmp__)==0 // - Tmp__=' '; - end; - DrwS__=Tmp__; - end; - if type(Tmp__)==1 & size(Tmp__,2)>1 - BdyL__=Tmp__; - end; - end; - Tmp__=MixS(DrwS__,BdyL__); - Out__=Mixjoin(Out__,Tmp__); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin Binary files differdeleted file mode 100644 index 5ada2529..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci deleted file mode 100644 index 3d17995e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci +++ /dev/null @@ -1,11 +0,0 @@ -function G=Gaiseki(a,b) - if length(a)==3 - Tmp=[a(2)*b(3)-a(3)*b(2),... - a(3)*b(1)-a(1)*b(3),... - a(1)*b(2)-a(2)*b(1)]; - else - Tmp=a(1)*b(2)-a(2)*b(1); - end; - G=Tmp; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin Binary files differdeleted file mode 100644 index 9dbd0923..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci deleted file mode 100644 index ca4e0d2a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.09.10 - -function Out=Getcounter() - global GCOUNTER; - Out=GCOUNTER; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin Binary files differdeleted file mode 100644 index b99800fe..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci deleted file mode 100644 index 5395d885..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.09.10 - -function Out=Gettrace(); - global TRACEDATA; - Out=TRACEDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin Binary files differdeleted file mode 100644 index d688039f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci deleted file mode 100644 index 236287ef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci +++ /dev/null @@ -1,141 +0,0 @@ -// 08.05.21 -// 09.10.05 -// 09.12.25 -// 10.01.20 -// 10.02.01 -// 10.11.04 ( debugged 83 ) - -function ShaLs=Hatchdata(varargin) - global XMIN XMAX YMIN YMAX MilliIn; - ShaL=[]; - Nargs=length(varargin); - Kakudo=45; - Kankaku=0.125*1000/2.54/MilliIn; - Tmp=Doscaling([XMIN,YMIN]); - Xmn=Tmp(1); Ymn=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - Xmx=Tmp(1); Ymx=Tmp(2); - for N=Nargs:-1:1 - Tmp=varargin(N); - if Mixtype(Tmp)~=1 - break - end - end - if N<Nargs - Kakudo=varargin(N+1); - if N==Nargs-2 - Kankaku=0.125*varargin(Nargs); - end - end - NaitenL=varargin(1); - if Mixtype(NaitenL)==1 - NaitenL=list(NaitenL); - end - Ns=2; - StartP=Op(1,NaitenL); - if type(StartP)==10 - StartP=[(Xmn+Xmx)/2,(Ymn+Ymx)/2]; - end - if Mixtype(varargin(2))==1 - StartP=varargin(2); - StartP=Doscaling(StartP); - Ns=3; - end - Tmp=list(); - for I=Ns:N - Tmp1=list(varargin(I)); - Tmp=Mixjoin(Tmp,Tmp1); - end - Bdy=Kyoukai(Tmp); - Bdys=list(); - for I=1:length(Bdy) - Tmp1=Bdy(I); - Tmp2=Doscaling(Tmp1); - Bdys=Mixjoin(Bdys,list(Tmp2)); - end; - Bdy=Bdys; - PtnL=list(); - for I=1:length(NaitenL) - Tmp=Op(I,NaitenL); - if type(Tmp)==1 - Tmp1=Naigai(Tmp,Bdy); - PtnL=Mixjoin(PtnL,list(Tmp1)); - else - if type(Tmp)~=10 - disp('Type Error'); - return - end - Ptn=[]; - for J=1:length(Tmp) - if Op(J,Tmp)=='i' - Ptn=[Ptn,1]; - else - Ptn=[Ptn,0]; - end - end - PtnL=Mixjoin(PtnL,list(Ptn)); - end - end - Call=length(Bdy); - Ptn=zeros(1,Call); - if Member(Ptn,PtnL) - Wn=Doscaling(Framedata()); - Bdy=Mixjoin(Bdy,list(Wn)); - Tmp=list(); - for I=1:length(PtnL) - Tmp1=[Op(I,PtnL),1]; - Tmp=Mixjoin(Tmp,Tmp1); // 10.11.04 - end - PtnL=Tmp; - end - V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)]; - Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)]; - Tmp=Op(1,NaitenL); - if type(Tmp)==1 & size(Tmp,2)==2 - Tmp=Doscaling(Tmp); - Delta=Tmp-StartP; - K=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); - PA=StartP+K*Kankaku*Vm; - Sha=Makeshasen(PtnL,PA,V,Bdy); - I=1; - while length(Sha)~=0 - for J=1:length(Sha) - ShaL=Mixadd(ShaL,Sha(J)); - end; - Sha=Makeshasen(PtnL,PA+I*Kankaku*Vm,V,Bdy); - I=I+1; - end - Sha=Makeshasen(PtnL,PA-Kankaku*Vm,V,Bdy); - I=2; - while length(Sha)~=0 - for J=1:length(Sha) - ShaL=Mixjoin(ShaL,list(Sha(J))); - end; - Sha=Makeshasen(PtnL,PA-I*Kankaku*Vm,V,Bdy); - I=I+1; - end - else - Delta=[Xmn,Ymn]-StartP; - K1=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); - Delta=[Xmx,Ymn]-StartP; - K2=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); - Delta=[Xmx,Ymx]-StartP; - K3=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); - Delta=[Xmn,Ymx]-StartP; - K4=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); - IM=max(K1,K2,K3,K4); - Im=min(K1,K2,K3,K4); - for I=Im:IM - Sha=Makeshasen(PtnL,StartP+I*Kankaku*Vm,V,Bdy); - for J=1:length(Sha) - ShaL=Mixjoin(ShaL,list(Sha(J))); - end - end - end - ShaLs=list(); - for I=1:length(ShaL) - Tmp=ShaL(I); - Tmp1=Unscaling(Tmp); - ShaLs=Mixjoin(ShaLs,list(Tmp1)); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin Binary files differdeleted file mode 100644 index fed0c2c1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci deleted file mode 100644 index 7bc05ed9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci +++ /dev/null @@ -1,15 +0,0 @@ -// s : 2014.06.22 - -function Out=Hexahedrondata(A,V1,V2,V3) - Tmp=det([V1;V2;V3]); - if Tmp<0 then - Tmp1=V1; - V1=V2; - V2=Tmp1 - end - B=A+V1; C=A+V1+V2; D=A+V2; - E=A+V3; F=B+V3; G=C+V3; H=D+V3; - VL=list(A,B,C,D,E,F,G,H); - FL=list([1,4,3,2],[5,6,7,8],[1,2,6,5],[2,3,7,6],[3,4,8,7],[1,5,8,4]); - Out=list(VL,FL) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin Binary files differdeleted file mode 100644 index 09289136..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci deleted file mode 100644 index 2ead122d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.15 - -function Out=HiddenWireData() - global HIDDENWIREDATA - Out=HIDDENWIREDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin Binary files differdeleted file mode 100644 index 86cae9a7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci deleted file mode 100644 index ab8a54b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci +++ /dev/null @@ -1,144 +0,0 @@ -// 08.05.17 Debugged -// 09.12.25 -// 11.04.13 debugged ( [a,b] ) -// 14.03.05 MARKLEN - -function Htickmark(varargin) - global Wfile FID MARKLEN GENTEN XMIN XMAX; - Nargs=length(varargin); - ArgsL=list(varargin(1:Nargs)); - if type(Op(1,ArgsL))==10 - Str=Op(1,ArgsL); - Tmp=mtlb_findstr(Str,'m'); - if Tmp~=[] - I=Tmp(1); - else - I=0; - end - Tmp=mtlb_findstr(Str,'n'); - if Tmp~=[] - J=Tmp(1); - else - J=0; - end - Tmp=mtlb_findstr(Str,'r'); - if Tmp~=[] - K=Tmp(1); - else - K=0; - end; - if K>0 - Tmp=ascii(Str); - S=char(Tmp(K+1:length(Tmp))); - R=msscanf(S,'%f'); - if length(R)==0 - R=1; - end - else - R=1; - K=length(Str)+1; - end - if J>0 then - Tmp=ascii(Str); - S=char(Tmp(J+1:K-1)); - if S==[] - S=''; - end; - Dn=msscanf(S,'%d'); - if length(Dn)==0 - Dn=1; - end - else - Dn=1000; - J=length(Str)+1; - end - Tmp=ascii(Str); - S=char(Tmp(I+1:J-1)); - if S==[] - S=''; - end - Dm=msscanf(S,'%f'); - if length(Dm)==0 - Dm=1; - end - ArgsL=list(); - for I=1:floor((XMAX-GENTEN(1))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(Tmp(1:k-1)); - end - ArgsL($+1)=Str; - end - end - for I=-1:-1:ceil((XMIN-GENTEN(1))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(1:K-1); - end - ArgsL($+1)=Str; - end - end - end - MemoriList=list(); - Memori=list(); - for N=1:length(ArgsL) - Dt=ArgsL(N); - if type(Dt)==1 & length(Dt)>1 - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt(1),Dt(2)); - continue - end - if type(Dt)==10 - Memori($+1)=Dt; - else - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt,GENTEN(2)); - end - end - MemoriList($+1)=Memori; - for N=1:length(MemoriList) - Dt=MemoriList(N); - Ndt=length(Dt); - X=Op(1,Dt); - Y=Op(2,Dt); - Tmp=Doscaling([X,Y]); - X=Tmp(1); - Y=Tmp(2); - Moji=Op(Ndt,Dt); - Tmp1=Unscaling([X,Y+MARKLEN]); - Tmp2=Unscaling([X,Y-MARKLEN]); - Fd=Listplot([Tmp1,Tmp2]); - Drwline(Fd); - if Ndt==3 - Tmp=Unscaling([X,Y-MARKLEN]); - Expr(Tmp,'s',Moji); - end - if Ndt==4 - Houkou=Op(3,Dt); - if mtlb_findstr(Houkou,'s')~=[] - Tmp=Unscaling([X,Y-MARKLEN]); - Expr(Tmp,Houkou,Moji); - else - Tmp=Unscaling([X,Y+MARKLEN]); - Expr(Tmp,Houkou,Moji); - end - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin Binary files differdeleted file mode 100644 index 6334287e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci deleted file mode 100644 index ae02fee1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci +++ /dev/null @@ -1,9 +0,0 @@ -// 08.09.10 -// 08.09.16 -// 08.10.10 (Name) - -function Out=ImplicitData() - global IMPLICITDATA - Out=IMPLICITDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin Binary files differdeleted file mode 100644 index 6336bf4c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci deleted file mode 100644 index b0715484..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci +++ /dev/null @@ -1,61 +0,0 @@ -// 08.09.09 -// 08.09.20 -// 13.10.19 ( __ added to variables ) - -function Out__=Implicitplot(varargin) - Eps__=10^(-4); - Nargs__=length(varargin); - Fstr__=varargin(1); - if Mixtype(Fstr__)~=1 - MS__=Fstr__; - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - elseif type(Fstr__)==10 - MS__=[]; - for I__=1:Nargs__ - MS__=Mixadd(MS__,varargin(I__)); - end; - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - else - Zval__=varargin(1); - Xval__=varargin(2); - Yval__=varargin(3); - end; - Out__=[]; - for J__=1:length(Yval__)-1 - for I__=1:length(Xval__)-1 - a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__); - a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1); - a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1); - a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__); - PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; - VL__=[c1__,c2__,c3__,c4__,c1__]; - QL__=[]; - for K__=1:4 - if abs(VL__(K__))<=Eps__ - QL__=[QL__;PL__(K__,:)]; - elseif VL__(K__)>Eps__ - if VL__(K__+1)<-Eps__ - Tmp__=1/(VL__(K__)-VL__(K__+1))*(-VL__(K__+1)*PL__(K__,:)... - + VL__(K__)*PL__(K__+1,:)); - QL__=[QL__;Tmp__]; - end - else - if VL__(K__+1)>Eps__ - Tmp__=1/(-VL__(K__)+VL__(K__+1))*(VL__(K__+1)*PL__(K__,:)... - - VL__(K__)*PL__(K__+1,:)); - QL__=[QL__;Tmp__]; - end; - end; - end; - if size(QL__,1)==2 - Out__=[Out__;%inf,%inf;QL__(1,:);QL__(2,:)]; - end; - end; - end; - Out__=Out__(2:size(Out__,1),:); - if size(Out__,1)>0 - Out__=Connectseg(Out__); - else - Out__=[]; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin Binary files differdeleted file mode 100644 index da2db1f4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci deleted file mode 100644 index 9dacd30c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci +++ /dev/null @@ -1,11 +0,0 @@ -function Rx=InWindow(PA) - global XMIN XMAX YMIN YMAX - Eps=10.0^(-6); - X=PA(1); Y=PA(2); - if X>XMIN-Eps & X<XMAX+Eps & Y>YMIN-Eps & Y<YMAX+Eps - Rx='i' - else - Rx='o' - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin Binary files differdeleted file mode 100644 index ac64c46b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci deleted file mode 100644 index d5e09ff4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 08.07.11 - -function Initangle() - global PHI THETA; - PHI=30*%pi/180; - THETA=60*%pi/180; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin Binary files differdeleted file mode 100644 index b26672c0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci deleted file mode 100644 index abd3377f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci +++ /dev/null @@ -1,25 +0,0 @@ -// 09.10.09 -// 09.10.21 Es, Er - -function Out=Integrate(varargin); - Nargs=length(varargin); - Fs=varargin(1); - Vs=varargin(2); - Itv=varargin(3); - Es=1d-10; - if Nargs>3 - Es=varargin(4); - end; - Er=1d-8; - if Nargs>4 - Er=varargin(5); - end; - Out=0; - Na=1; - while Na<length(Itv) - A=Itv(Na); B=Itv(Na+1); - Out=Out+integrate(Fs,Vs,A,B,Es,Er); - Na=Na+1; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin Binary files differdeleted file mode 100644 index 3ff5a305..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci deleted file mode 100644 index 59b4fdcc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 08.05.18 Koshikawa -// 08.05.19 Changed -// 08.06.03 -// 09.11.12 -// 09.11.14 debug - -function PL=Intersectcrvs(varargin) - Nargs=length(varargin); - Eps=10^(-4); - Tmp=varargin(Nargs); - if type(Tmp)==1 & length(Tmp)==1 - Eps=Tmp; - end - G1=varargin(1); - if Mixtype(G1)==1 - G1=list(G1); - end; - G2=varargin(2); - if Mixtype(G2)==1 - G2=list(G2); // - end; - PL=list(); - for N=1:length(G1) - for M=1:length(G2) - KL=IntersectcrvsPp(G1(N),G2(M),Eps); - for I=1:length(KL) - Tmp=KL(I);; - P=Tmp(1); - PL($+1)=P; - end; - end; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin Binary files differdeleted file mode 100644 index 348451cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci deleted file mode 100644 index a1218d06..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci +++ /dev/null @@ -1,101 +0,0 @@ -// 08.05.18 Koshikawa -// 08.05.19 Changed -// 08.00.04 -// 09.11.07 for the same curve - -function KL=IntersectcrvsPp(varargin) // Modified - Nargs=length(varargin); - G1=varargin(1); G2=varargin(2); - Eps=10.0^(-4); - if Nargs>2 - Eps=varargin(3) - end - SqEps=10.0^(-10); - Eps2=0.1; - if Nargs>3 - Eps2=varargin(4) - end - Data1=G1; - Data2=G2; - if size(Data1,1)==size(Data2,1) - Tmp1=Data2(size(Data2,1):-1:1,:); // 09.11.07 - Eps0=10^(-6); - Tmp2=norm(Data1-Data2); - Tmp3=norm(Data1-Tmp1); - if Tmp2<Eps0|Tmp3<Eps0 - KL=list(); - return; - end; // - end; - KL1=[]; - KL2=[]; - for I=1:size(Data1,1)-1 - A=Data1(I,:); - B=Data1(I+1,:); - for J=1:size(Data2,1)-1 - P=Data2(J,:); Q=Data2(J+1,:); - Tmp=Koutenseg(A,B,P,Q,Eps,Eps2); - if Tmp~=[%inf,-%inf] - if Op(3,Tmp)==0 - Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J); - KL1=Mixadd(KL1,Tmp1); - else - Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J); - KL2=Mixadd(KL2,Tmp2); - end - end - end - end - KL=[]; - if Mixlength(KL1)>0 - Tmp=Op(1,KL1); - P=Op(1,Tmp); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - Tmp=MixS(P,I+T,J); - KL=MixL(Tmp); - end - for N=2:Mixlength(KL1) - Tmp=Op(N,KL1); - P=Op(1,Tmp); - Flg=0; - for K=1:Mixlength(KL) - Tmp=Op(K,KL); - if Vecnagasa2(P-Op(1,Tmp))<SqEps - Flg=1; - break - end - end - if Flg==0 - Tmp=Op(N,KL1); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - Tmp=MixS(P,I+T,J); - KL=Mixadd(KL,Tmp); - end - end - for N=1:Mixlength(KL2) - Tmp=Op(N,KL2); - P=Op(1,Tmp); - Flg=0; - for K=1:Mixlength(KL) - Tmp=Op(K,KL); - if Vecnagasa2(P-Op(1,Tmp))<SqEps - Flg=1; - break - end - end - if Flg==0 - Tmp=Op(N,KL2); - T=Op(2,Tmp); - T=min(max(T,0),1); - I=Op(3,Tmp); - J=Op(4,Tmp); - Tmp=MixS(P,I+T,J); - KL=Mixadd(KL,Tmp); - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin Binary files differdeleted file mode 100644 index 3d7069f0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci deleted file mode 100644 index 2a2e5b6c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci +++ /dev/null @@ -1,47 +0,0 @@ -// 08.10.26 -// 10.02.16 - -function Out=Intersectcrvsf(varargin) - Nargs=length(varargin); - Eps0=10^(-4); - Crv=varargin(1); - Fd=varargin(2); - N=3;Uveq=1; - if Nargs>=3 - Tmp=varargin(3); - if type(Tmp)==10 - Uveq=Tmp; - N=4; - end; - end; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N+1 - Eps=varargin(N+1); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Out=[]; - for I=1:Numptcrv(Crv)-1 - PtA=Ptcrv(I,Crv); - PtB=Ptcrv(I+1,Crv); - if norm(PtB-PtA)<Eps0 - continue; - end; - PL=Meetpoints(PtA,PtB,Fd,Uveq,Np,Eps(1)); - for J=1:Mixlength(PL) - Pt=Mixop(J,PL); - Tmp=norm(Pt-PtA)/norm(PtB-PtA); - Tmp=min(max(Tmp,0),1); - Out=Mixadd(Out,[Pt,I+Tmp]); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin Binary files differdeleted file mode 100644 index bebf87c5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci deleted file mode 100644 index ed92a5aa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci +++ /dev/null @@ -1,22 +0,0 @@ -// 09.10.11 -// 09.10.12 - -function Out=Intersectlines(L1,L2) - Eps0=10^(-6); - P=Ptstart(L1); - a1=P(1); a2=P(2); - V=Ptend(L1)-P; - b1=V(1); b2=V(2); - P=Ptstart(L2); - c1=P(1); c2=P(2); - V=Ptend(L2)-P; - d1=V(1); d2=V(2); - Den=b1*d2-d1*b2; - if abs(Den)<Eps0 - Out=[]; - return; - end; - x=-(d1*b2*a1-c1*b1*d2-d1*a2*b1+d1*b1*c2)/Den; - y=-(-a2*b1*d2+b2*a1*d2-b2*c1*d2+c2*d1*b2)/Den; - Out=[x,y]; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin Binary files differdeleted file mode 100644 index 5f0cad0f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci deleted file mode 100644 index 4b246e95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci +++ /dev/null @@ -1,95 +0,0 @@ -// 09.05.27 -// 09.06.03 -// 09.06.05 - -function KL=IntersectselfPp(varargin) - Nargs=length(varargin); - G1=varargin(1); - Eps=10.0^(-4); - if Nargs>1 - Eps=varargin(2) - end - Eps0=10.0^(-5); - Eps2=0.01; -// if Nargs>2 -// Eps2=varargin(3) -// end; - Data1=G1; - KL1=[]; - KL2=[]; - for I=1:size(Data1,1)-2 - A=Data1(I,:); - B=Data1(I+1,:); - Is=I+2; - Tmp=Data1(Is,:); - while norm(Tmp-B)<Eps & Is<size(Data1,1); - Is=Is+1; - Tmp=Data1(Is,:); - end; - for J=Is:size(Data1,1)-1 - P=Data1(J,:); Q=Data1(J+1,:); - Tmp=Koutenseg(A,B,P,Q,Eps,Eps2); - if Tmp~=[%inf,-%inf] - if Op(3,Tmp)==0 - Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J); - KL1=Mixadd(KL1,Tmp1); - else - Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J); - KL2=Mixadd(KL2,Tmp2); - end - end - end - end - KL=[]; - if Mixlength(KL1)>0 - Tmp=Op(1,KL1); - P=Op(1,Tmp); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - S=ParamonCurve(P,J,Data1); - Tmp=MixS(P,I+T,J); - Tmp2=MixS(P,S,I); - KL=MixL(Tmp); - KL=Mixadd(KL,Tmp2); - end; - for N=2:Mixlength(KL1) - Tmp=Op(N,KL1); - P=Op(1,Tmp); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - S=ParamonCurve(P,J,Data1); - Tmp=MixS(P,I+T,J); - Tmp1=MixS(P,S,I); - KL=Mixadd(KL,Tmp); - KL=Mixadd(KL,Tmp1); - end - for N=1:Mixlength(KL2) - Tmp=Op(N,KL2); - P=Op(1,Tmp); - T=Op(2,Tmp); - T=min(max(T,0),1); - I=Op(3,Tmp); - J=Op(4,Tmp); - S=ParamonCurve(P,J,Data1); - Flg=0; - for K=1:Mixlength(KL) - Tmp=Op(K,KL); - if norm(P-Op(1,Tmp))<Eps - Tmp1=Op(2,Tmp); - if abs(I+T-Tmp1)<Eps - Flg=1; - break; - end; - end; - end; - if Flg==0 - Tmp=MixS(P,I+T,J); - Tmp1=MixS(P,S,I); - KL=Mixadd(KL,Tmp); - KL=Mixadd(KL,Tmp1); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin Binary files differdeleted file mode 100644 index e3bc6bf4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci deleted file mode 100644 index bf6f976f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 10.11.13 ( Flattenlist used -// 13.10.19 debugged - -function Invdashline(varargin) - global MilliIn; - Nargs=length(varargin); - Nall=Nargs; Sen=1 ; Gap=1; - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 // 2013.10.19 - Tmp1=varargin(Nall-1); - if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 // 2013.10.19 - Sen=Tmp1; Gap=Tmp; - Nall=Nall-2; - else - Sen=Tmp; Gap=Sen; - Nall=Nall-1; - end - end - Sen=1000/2.54/MilliIn*Sen; - Gap=1000/2.54/MilliIn*Gap; - for N=1:Nall - Tmp=varargin(N); - Fdata=Flattenlist(Tmp); - for I=1:length(Fdata); - Figdata=Fdata(I); - Makehasen(Figdata,Sen,Gap,1); - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin Binary files differdeleted file mode 100644 index 2e870385..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci deleted file mode 100644 index 9f9f9d95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci +++ /dev/null @@ -1,6 +0,0 @@ -// 08.05.31 - -function OutL=Invert(Pd) - OutL=Pd(size(Pd,1):-1:1,:); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin Binary files differdeleted file mode 100644 index c92f5024..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci deleted file mode 100644 index 4d7863b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci +++ /dev/null @@ -1,50 +0,0 @@ -// 08.07.11 -// 08.08.17 -// 09.10.31 -// 09.11.12 - -function Out=Invparapt(varargin) - Eps=10^(-4); - Fk=varargin($); - NFk=Numptcrv(Fk) - Tmp=varargin(1); - if type(Tmp)==1 & size(Tmp)==1 - Ph=Tmp; - Fh=varargin(2); - else - Fh=Projpara(Fk); - if NFk>2 - Tmp1=Nearestpt(Tmp,Fh); - Ph=Tmp1(2); - else - Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh); - V1=Tmp-Ah; V2=Bh-Ah; - Tmp1=Crossprod(V1,V2); - if abs(Tmp1)>Eps - disp('Not on the line'); - Out=[]; - return; - else - Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12 - end; - end; - end; - if NFk>2 - N=Trunc(Ph); - S0=Ph-N; - if Ph>Numptcrv(Fh)-Eps - Out=list(Ptend(Fk),Numptcrv(Fh)); - return; - end; - else - N=1; - S0=Ph-1; // 09.11.12 - end; - Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk); - Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh); - Ph=(1-S0)*Ah+S0*Bh; - T2=S0; - Pk=(1-T2)*Ak+T2*Bk; - Out=list(Pk,N+T2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin Binary files differdeleted file mode 100644 index 073bbdca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci deleted file mode 100644 index c2c35355..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 08.08.12 -// 09.10.31 -// 09.11.12 - -function Out=Invperspt(varargin) - global FocusPoint EyePoint; - Eps=10^(-4); - Fk=varargin($); - NFk=Numptcrv(Fk) - Tmp=varargin(1); - if type(Tmp)==1 & length(Tmp)==1 - Ph=varargin(1); - Fh=varargin(2); - else - Fh=Projpers(Fk); - if NFk>2 - Tmp1=Nearestpt(Tmp,Fh); - Ph=Tmp1(2); - else - Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh); - V1=Tmp-Ah; V2=Bh-Ah; - Tmp1=Crossprod(V1,V2); - if abs(Tmp1)>Eps - disp('Not on the line'); - Out=[]; - return; - else - Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12 - end; - end; - end; - if NFk>2 - N=Trunc(Ph); - S0=Ph-N; - if Ph>Numptcrv(Fh)-Eps - Out=list(Ptend(Fk),Numptcrv(Fh)); - return; - end; - else - N=1; - S0=Ph-1; // 09.11.12 - end; - Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk); - Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh); - Ph=(1-S0)*Ah+S0*Bh; - Phc=Cancoordpers([Ph,0]); - Ahc=Cancoordpers([Ah,0]); - Bhc=Cancoordpers([Bh,0]); - Vp=Phc-EyePoint; - Va=Ak-EyePoint; - AB=Bk-Ak; - Cp=Crossprod(Vp,AB); - Nmr=Crossprod(Va,Vp); - Mx=max(abs(Cp)); - if abs(Cp(1))==Mx - T2=Nmr(1)/Cp(1); - elseif abs(Cp(2))==Mx - T2=Nmr(2)/Cp(2); - else - T2=Nmr(3)/Cp(3); - end; - Pk=(1-T2)*Ak+T2*Bk; - Out=list(Pk,N+T2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin Binary files differdeleted file mode 100644 index b44d17eb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci deleted file mode 100644 index 04aaf4eb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci +++ /dev/null @@ -1,51 +0,0 @@ -// 08.05.31 -// 08.08.22 -// 08.09.14 -// 08.09.20 -// 08.10.27 -// 11.06.25 - -function PtL=Joincrvs(varargin) - Nall=length(varargin); - Eps=10^(-4); - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 - Eps=Tmp; - Nall=Nall-1; - end; - QdL=list(); - for I=1:Nall - QdL($+1)=varargin(I); // 11.06.25 - end; - QdL=Flattenlist(QdL); // 11.06.25 - if length(QdL)==0 - PtL=[]; - return; - end; - PtL=[Mixop(1,QdL)]; - for I=2:Mixlength(QdL) - Qd=QdL(I); - if Numptcrv(Qd)<=1 // 11.06.25 - continue; - end; - P=Ptend(PtL) - S=Ptstart(PtL); - Q=Ptstart(Qd); - R=Ptend(Qd); - MN=min(norm(P-Q),norm(P-R),norm(S-Q),norm(S-R)); - if MN==norm(P-R) - Qd=Invert(Qd); - elseif MN==norm(S-Q) - PtL=Invert(PtL); - elseif MN==norm(S-R); - PtL=Invert(PtL); - Qd=Invert(Qd); - end; - if MN>Eps - PtL=[PtL;Qd]; - else - PtL=[PtL;Qd(2:size(Qd,1),:)]; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin Binary files differdeleted file mode 100644 index c7b88175..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci deleted file mode 100644 index 78cd46e5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci +++ /dev/null @@ -1,26 +0,0 @@ -// 11.11.02 (for list structure) - -function P=Joingraphics(varargin) - Ls=Flattenlist(varargin); - N=length(Ls); - Tp=Ls(N); - Listflg=0; - if type(Tp)==10 - Tmp=part(Tp,1); - if Tmp=="L"|Tmp=="l" - Listflg=1 - end; - N=N-1; - Ls=Mixsub(1:N,Ls); - end; - if Listflg==1 - P=Ls - else - P=[]; - for I=1:N - Tmp=Ls(I); - P=[P;%inf,%inf;Tmp]; - end; - P=P(2:size(P,1),:) - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin Binary files differdeleted file mode 100644 index 140d9028..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci deleted file mode 100644 index bbe02e62..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci +++ /dev/null @@ -1,57 +0,0 @@ -// 08.07.08 PHI,THETA,FocusPoint,EyePoint; -// 08.08.08 -// 08.08.31 -// 08.09.18 -// 09.10.09 ASSIGNLIST -// 09.12.25 SCALING -// 10.04.16 TEXFOR -// 13.05.19 funcprot(0) -// 13.03.05 MARKLEN instead of MEMORI - -function Ketinit() - global THISVERSION - global TenSize TenSizeInit Wfile XMIN XMAX YMIN YMAX - global XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE - global ULEN MilliIn PenThick PenThickInit ZIKU - global MEMORI MEMORIInit MEMORINow GENTEN - global MARKLEN MARKLENInit MARKLENNow - global YaSize YaAngle YaPosition YaThick YaStyle - global PHI THETA FocusPoint EyePoint ASSIGNLIST - global SCALEX SCALEY LOGX LOGY TEXFORLEVEL TEXFORLAST - funcprot(0); // 2013.05.19 - Setversion(); - XMIN=-5 ;XMAX=5; - YMIN=-5 ; YMAX=5; - ZIKU='line'; ARROWSIZE=1; - XNAME='$x$' ; XPOS='e'; - YNAME='$y$' ; YPOS='n'; - ONAME='O' ; OPOS='sw'; - ULEN='1cm'; - MilliIn=1/2.54*1000; - PenThick=round(MilliIn*0.02); - PenThickInit=PenThick; - TenSizeInit=0.02; - TenSize=TenSizeInit; - Wfile='default'; - MEMORI=0.05; - MEMORIInit=MEMORI; - MEMORINow=MEMORI; - MARKLEN=0.05; - MARKLENInit=MARKLEN; - MARKLENNow=MARKLEN; - GENTEN=[0,0]; - YaSize=1; YaAngle=18; YaPosition=1; - YaThick=1; YaStyle='tf'; - PHI=30*%pi/180; - THETA=60*%pi/180; - FocusPoint=[0,0,0]; - EyePoint=[5,5,5]; - ASSIGNLIST=list('`',char(39)); - SCALEX=1; - SCALEY=1; - LOGX=0; - LOGY=0; - TEXFORLEVEL=0; - TEXFORLAST=list(); - endfunction; -
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin Binary files differdeleted file mode 100644 index f5871542..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci deleted file mode 100644 index c12b721e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci +++ /dev/null @@ -1,31 +0,0 @@ -// 08.05.18 -// 08.05.19 -// 09.06.01 (same as 05.19) - -function Out=Kouten(PA,V,P,Q); - Eps=10.0^(-6); - A1=PA(1); A2=PA(2); - V1=V(1); V2=V(2); - P1=P(1); P2=P(2); - U1=Q(1)-P1; U2=Q(2)-P2; - Tmp=norm(P-Q)*norm(V); - if Tmp==0 - Out=[%inf,-%inf]; - return - end - D=U1*V2-U2*V1; - if abs(D)/Tmp<Eps - Out=[%inf,-%inf]; - return - end - S=((-A2+P2)*V1+(A1-P1)*V2)/D; - if S>1+Eps | S<-Eps - Out=[%inf,-%inf]; - return - end - T=((-A2+P2)*U1+(A1-P1)*U2)/D; - Tmp=PA+T*V; - Out=MixS(T,Tmp,sign(D)); -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin Binary files differdeleted file mode 100644 index f5b67546..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci deleted file mode 100644 index 82cf1e2c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci +++ /dev/null @@ -1,51 +0,0 @@ -// 08.05.18 -// 08.05.20 -// 08.06.02 - -function TenL=KoutenList(PA,V,Bdy) - Eps=10.0^(-6); - TenL=[]; - for N=1:Mixlength(Bdy) - KL=Op(N,Bdy); - for K=1:size(KL,1)-1 - P=KL(K,:); Q=KL(K+1,:); - if P~='/' & Q~='/' - Tmp=Kouten(PA,V,P,Q); - if Tmp~=[%inf,-%inf] - Ten=Mixadd(Tmp,N); - Flg=0; - NN=Mixlength(TenL); - I=1; - while Flg==0 & I<=NN - Tmp=Op(I,TenL); - if Op(1,Ten)<Op(1,Tmp)-Eps - Tmp=Mixsub(1:I-1,TenL); - Tmp1=Mixadd(Tmp,Ten); - Tmp2=Mixsub(I:Mixlength(TenL),TenL); - TenL=Mixjoin(Tmp1,Tmp2); - Flg=1; - elseif Op(1,Ten)<Op(1,Tmp)+Eps - if Op(4,Ten)~=Op(4,Tmp) - Tmp=Mixsub(1:I-1,TenL); - Tmp1=Mixadd(Tmp,Ten); - Tmp2=Mixsub(I:Mixlength(TenL),TenL); - TenL=Mixjoin(Tmp1,Tmp2); - Flg=1; - elseif Op(3,Ten)~=Op(3,Tmp) - Tmp1=Mixsub(1:I-1,TenL); - Tmp2=Mixsub(I+1:Mixlength(TenL),TenL); - TenL=Mixjoin(Tmp1,Tmp2); - end - Flg=1; - end - I=I+1; - end - if Flg==0 - TenL=Mixadd(TenL,Ten); - end - end - end - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin Binary files differdeleted file mode 100644 index be93baf3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci deleted file mode 100644 index 371807fa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci +++ /dev/null @@ -1,105 +0,0 @@ -// -// 08.05.19 -// 09.12.05 - -function Out=Koutenseg(varargin) - //pointdata on AB at which AB intersects CD - Nargs=length(varargin); - Eps0=10^(-4); - A=varargin(1); V=varargin(2)-A; - Sv2=V(1)^2+V(2)^2; - if Sv2<10^(-6) - Out=[%inf,-%inf]; - return - end - P=varargin(3)-A; Q=varargin(4)-A; - Eps=10.0^(-3); - if Nargs>=5 - Eps=varargin(5); - end - Eps2=0.2; - if Nargs>=6 - Eps2=varargin(6); - end - Eps=min(Eps2,Eps/sqrt(Sv2)); - P1=(P(1)*V(1)+P(2)*V(2))/Sv2; - P2=(-P(1)*V(2)+P(2)*V(1))/Sv2; - Q1=(Q(1)*V(1)+Q(2)*V(2))/Sv2; - Q2=(-Q(1)*V(2)+Q(2)*V(1))/Sv2; - m1=-Eps; M1=1+Eps; - m2=-Eps; M2=Eps; - if (max(P1,Q1)<m1) | (min(P1,Q1)>M1) - Out=[%inf,-%inf]; - return - end - if (max(P2,Q2)<m2) | (min(P2,Q2)>M2) - Out=[%inf,-%inf]; - return - end - if P2*Q2<0 - T=P1-(Q1-P1)/(Q2-P2)*P2; - if (T>m1) & (T<M1) - if (T>-Eps0) & (T<1+Eps0) - Tmp1=A+T*V; - Tmp2=min(max(T,0),1); - Out=MixS(Tmp1,Tmp2,0); - else - Tmp1=A+T*V; - Tmp2=min(max(T,0),1); - Out=MixS(Tmp1,Tmp2,1); - end - return - end - if P1<m1 | P1>M1 | P2<m2 | P2>M2 - if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2 - Out=[%inf,-%inf]; - return - end - T=min(max(Q1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - T=min(max(P1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - if P1 > -Eps0 & P1 < 1 + Eps0 & P2 > -Eps0 & P2 < Eps0 - T= P1; - Tmp=A+T*V; - Out= MixS(Tmp, T, 0); - return - end - if Q1 > -Eps0 & Q1 < 1 + Eps0 & Q2 > -Eps0 & Q2 < Eps0 - T= Q1; - Tmp=A+T*V; - Out=MixS(Tmp,T,0); - return - end - if P1<m1 | P1>M1 | P2<m2 | P2>M2 - if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2 - Out=[%inf,-%inf]; - return - end - T=min(max(Q1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2 - T=min(max(P1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - if abs(P2)<abs(Q2) - T=min(max(P1,0),1); - else - T=min(max(Q1,0),1); - end - Tmp=A+T*V; - Out=MixS(Tmp,T,1); -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin Binary files differdeleted file mode 100644 index 7535fd2e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci deleted file mode 100644 index 0e38dae7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci +++ /dev/null @@ -1,45 +0,0 @@ -// 08.07.13 -// 08.10.16 - -function Res=Kukannozoku(Jokyo,KukanL) - Eps=10^(-6); - N=size(KukanL,1); - T1=Jokyo(1); T2=Jokyo(2); - Tmp=KukanL(1,:); - T1=max(T1,Tmp(1)); - Tmp=KukanL(N,:); - T2=min(T2,Tmp(2)); - Res=[]; - Flg=0; - for I=1:N - Ku=KukanL(I,:); - if Flg==0 - if Ku(2)<T1 - Res=[Res;Ku]; - else - Flg=1; - if Ku(1)<T1-Eps - Tmp=[Ku(1),T1]; - Res=[Res;Tmp]; - end; - if Ku(2)>T2+Eps - Tmp=[T2,Ku(2)]; - Res=[Res;Tmp]; - end; - end; - elseif Flg==1 - if Ku(2)<T2 - continue; - else - Flg=2; - if Ku(1)<T2-Eps - Ku=[T2,Ku(2)]; - end; - Res=[Res;Ku]; - end; - else - Res=[Res;Ku]; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin Binary files differdeleted file mode 100644 index 656dd42d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci deleted file mode 100644 index 4e38175f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci +++ /dev/null @@ -1,62 +0,0 @@ -// 08.05.30 - -function Out=Kukeiwake(PL) - global XMIN XMAX YMIN YMAX; - Eps=10.0^(-6); - NW=[XMIN,YMAX]; SW=[XMIN,YMIN]; - SE=[XMAX,YMIN]; NE=[XMAX,YMAX]; - Sikaku=[NW;SW;SE;NE;NW]; - Kt=IntersectcrvsPp(PL,Sikaku); - if Mixlength(Kt)~=2 - disp('not two points') - return - end - Tmp=Op(1,Kt); - Pt1=Op(1,Tmp); - N1=Trunc(Op(2,Tmp)); - M1=Op(3,Tmp); - Tmp=Op(2,Kt); - Pt2=Op(1,Tmp); - N2=Trunc(Op(2,Tmp)); - M2=Op(3,Tmp); - T1=ParamonCurve(Pt1,M1,Sikaku); - T2=ParamonCurve(Pt2,M2,Sikaku); - QL=[]; - if Vecnagasa(Pt1,PL(N1+1,:))>Eps - QL=[Pt1]; - end - QL=[QL;PL(N1+1:N2,:)]; - if Vecnagasa(Pt2,PL(N2,:))>Eps - QL=[QL;Pt2]; - end - HidariL=QL; - Ms=M2+1; Me=M1; - if T1<T2+Eps Me=M1+4; end - for M=Ms:Me - Tmp=HidariL(size(HidariL,1),:); - P=Sikaku(modulo(M-1,4)+1,:); - if Vecnagasa(Tmp,P)>Eps - HidariL=[HidariL;P]; - end - end - Tmp=HidariL(size(HidariL,1),:); - if Vecnagasa(Tmp,Pt1)>Eps - HidariL=[HidariL;Pt1]; - end - MigiL=QL; - Ms=M2; Me=M1+1; - if T1>T2-Eps Me=Me-4; end; - for M=Ms:-1:Me - Tmp=MigiL(size(MigiL,1),:); - P=Sikaku(modulo(M-1,4)+1,:); - if Vecnagasa(Tmp,P)>Eps - MigiL=[MigiL;P] - end - end - Tmp=MigiL(size(MigiL,1),:); - if Vecnagasa(Tmp,Pt1)>Eps - MigiL=[MigiL;Pt1]; - end - Out=MixS(HidariL,MigiL); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin Binary files differdeleted file mode 100644 index a45aa2e3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci deleted file mode 100644 index a07a89d1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci +++ /dev/null @@ -1,30 +0,0 @@ -function Kyorihensuu(varargin) - if length(varargin)==0 - FL='default'; - else - FL=varargin(1); - if FL=='' - FL='tmp.tex' - end - end - StrM=[... - '\newlength{\Width}%',... - '\newlength{\Height}%',... - '\newlength{\Depth}%'... - ]; - if FL~='default' - Fid=mopen(FL,'w'); - mprintf('%s\n\n','Writing to '+FL); - end; - for I=1:size(StrM,2) - Str=StrM(I); - mprintf('%s\n',Str); - if FL~='default' - mfprintf(Fid,'%s\n',Str); - end - end - if FL~='default' - mclose(Fid) - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin Binary files differdeleted file mode 100644 index 07c938a3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci deleted file mode 100644 index 4090c2da..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci +++ /dev/null @@ -1,144 +0,0 @@ -// 08.05.18 -// 08.05.19 -// 08.05.20 -// 08.05.30 -// 08.09.19 -// 08.10.26 -// 09.01.15 "e" -// 09.05.18 -// 09.12.05 -// 16.11.03 Eps=10^(-5) -// 16.12.05 Eps=10^(-7) - -function PLall=Kyoukai(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - Eps0=10^(-7); - DataL=[]; - for I=1:Nargs - Tmp=varargin(I); - if Mixtype(Tmp)==1 - Tmp1=MixS(Tmp); - DataL=Mixadd(DataL,Tmp1); - end - if Mixtype(Tmp)==2 - DataL=Mixadd(DataL,Tmp); - end - if Mixtype(Tmp)==3 - DataL=Mixjoin(DataL,Tmp); - end - end; - Eps=10.0^(-4); - PLall=[]; - Sflg=0; - N=Mixlength(DataL); - for I=1:N - Data=Op(I,DataL); - Tmp=Op(Mixlength(Data),Data); - if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1 - Rg=Tmp ; Nd=Mixlength(Data)-1; - elseif type(Tmp)==10 - Rg=Tmp ; Nd=Mixlength(Data)-1; - else - Rg='c' ; Nd=Mixlength(Data); - end; - for J=1:Nd - Tmp=Op(J,Data); - if type(Tmp)==10 - Rg=Tmp; - continue - end - Points=Tmp; - P1=Ptstart(Points); - P2=Ptend(Points); - if J==1 - PL=Points; - Pfirst=P1; - Plast=P2; - if Nd>=2 - Tmp=Op(2,Data); - P=Ptstart(Tmp); - Q=Ptend(Tmp); - if norm(P2-P)>Eps & norm(P2-Q)>Eps - Tmp=size(PL,1); - PL=PL(Tmp:-1:1,:); - Pfirst=Ptstart(PL); - Plast=Ptend(PL); - end; - end - else - if norm(P1-Plast)<Eps - Stp=1; Ks=2; Ke=size(Points,1); - elseif norm(P2-Plast)<Eps - Stp=-1; Ks=size(Points,1)-1; Ke=1; - else - PL=[PL;%inf,%inf;Points]; - Sflg=1; - Pfirst=P1; - Plast=P2; - Stp=1; Ks=size(Points,1)-1; Ke=1; - end - for K=Ks:Stp:Ke - PL=[PL;Points(K,:)]; - end - Plast=Points(Ke,:); - end - end - if norm(Pfirst-Plast)>Eps - Np=size(PL,1); - if Rg=='c' - PL=[PL;Pfirst]; - elseif Rg=='s' - Tmp=[PL(1:Np,2);YMIN]; - Y=min(Tmp)-1; - P=[Plast(1),Y]; Q=[Pfirst(1),Y]; - PL=[PL;P;Q;Pfirst]; - elseif Rg=='n' - Tmp=[PL(1:Np,2);YMAX]; - Y=max(Tmp)+1; - P=[Plast(1),Y]; Q=[Pfirst(1),Y]; - PL=[PL;P;Q;Pfirst]; - elseif Rg=='w' - Tmp=[PL(1:Np,1);XMIN]; - X=min(Tmp)-1; - P=[X,Plast(2)]; Q=[X,Pfirst(2)]; - PL=[PL;P;Q;Pfirst]; - elseif Rg=='e' - Tmp=[PL(1:Np,1);XMAX]; - X=max(Tmp)+1; - P=[X,Plast(2)]; Q=[X,Pfirst(2)]; - PL=[PL;P;Q;Pfirst]; - elseif type(Rg)==1 & size(Rg,1)==1 & size(Rg,2)>1 - Tmp=Kukeiwake(PL); //Modified from here - Tmp1=Op(1,Tmp); - Tmp2=Naigai(Rg,Mix(Tmp1)); - if Tmp2==[1] - PL=Op(1,Tmp); - else - PL=Op(2,Tmp); // to here - end - end - end - Tmp=[Ptstart(PL)]; - for J=2:size(PL,1) - P=PL(J,:); - Q=Tmp(size(Tmp,1),:); - if norm(P-Q)>Eps then - Tmp=[Tmp;P]; - end - end - PL=Tmp; - PLall=Mixadd(PLall,PL); - end - if Mixlength(PLall)==1 & Sflg==0 - Tmp=Op(1,PLall); -// Tmp=Op(1,Tmp); - if norm(Ptstart(Tmp)-Ptend(Tmp))>Eps0 - Tmp=[Tmp;Ptstart(Tmp)]; - PLall=MixS(Tmp); - end - end; -endfunction; - - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin Binary files differdeleted file mode 100644 index 41551ef5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci deleted file mode 100644 index 7a7a4b78..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci +++ /dev/null @@ -1,100 +0,0 @@ -// -// 09.12.25 - -function Letter(varargin) - global Wfile FID MEMORI; - Nargs=length(varargin); - for I=1:3:Nargs - Tmp=varargin(I); - P=Doscaling(Tmp); - X=P(1); - Y=P(2); - Houkou=varargin(I+1); - Mojiretu=varargin(I+2); - Hset=Houkou; - Vhoko='c'; - if mtlb_findstr(Hset,'n')~=[] - Vhoko='n'; Y=Y+MEMORI; - end - if mtlb_findstr(Hset,'s')~=[] - Vhoko='s'; Y=Y-MEMORI; - end - Hhoko='c'; - if mtlb_findstr(Hset,'e')~=[] - Hhoko='e'; X=X+MEMORI; - end - if mtlb_findstr(Hset,'w')~=[] - Hhoko='w'; X=X-MEMORI; - end - Hoko=Vhoko+Hhoko; - Suu='+-.0123456789'; - SuuL=Suu; - Hcode=ascii(Houkou); - J=1; Dstr=''; - while J<=length(Houkou) - Tmp=char(Hcode(J)); - if mtlb_findstr(SuuL,Tmp)~=[] - if Dstr=='' - Hk=char(Hcode(J-1)); - end - Dstr=Dstr+Tmp; - else - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - Dstr=''; - end - end - J=J+1; - end - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - end - CalcWidth(Hoko,Mojiretu); - CalcHeight(Hoko,Mojiretu); - Tmp='){\hspace*{\Width}'; - Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}'; - if Wfile=='default' - mprintf('%s','\put('); - mprintf('%6.4f%s%6.4f',X,',',Y); - mprintf('%s%s\n',Str,'%'); - mprintf('%s\n','%'); - else - mfprintf(FID,'%s','\put('); - mfprintf(FID,'%6.4f%s%6.4f',X,',',Y); - mfprintf(FID,'%s%s\n',Str,'%'); - mfprintf(FID,'%s\n','%'); - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin Binary files differdeleted file mode 100644 index 53dcb238..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci deleted file mode 100644 index f99917cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 08.05.31 -// 08.08.24 -// 09.12.25 - -function Letterrot(varargin) - global MEMORI; - P=varargin(1); - V=varargin(2); N=3; - P=Doscaling(P); - V=Doscaling(V); - Tmov=0; - Tmp=varargin(N); - if type(Tmp)==1 - Tmov=Tmp; N=N+1; - end - Nmov=0; - Tmp=varargin(N); - if type(Tmp)==1 then - Nmov=Tmp; N=N+1; - end - Mojiretu=varargin(N); - Tv=1/Vecnagasa(V)*V; - Nv=[-Tv(2),Tv(1)]; - P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv; - Tmp=acos(V(1)/Vecnagasa(V)); - Theta=round(Tmp*180/%pi); - if V(2)>=0 - Units=''; - else - Units='units=-360,'; - end - Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta); - Tmp=Tmp+'}{'+Mojiretu+'}'; - Letter(P,"c",Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin Binary files differdeleted file mode 100644 index 3acfa7aa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci deleted file mode 100644 index bc44c2e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci +++ /dev/null @@ -1,44 +0,0 @@ -// 09.10.09 -// 09.10.12 -// 09.11.01 -// 09.11.12 -// 09.12.06 -// 10.12.04 - -function Out=Lineplot(varargin) - Nargs=length(varargin); - A=varargin(1); - if type(A)==1 // 09.11.12 from - Tmp=length(A); - if Tmp>3 - B=A(Tmp/2+1:Tmp); - A=A(1:Tmp/2); - Is=2; - else - B=varargin(2); - Is=3; - end; - else - B=A(2); - A=A(1); - Is=2; - end; // upto - Mag=100; Semi=''; - for I=Is:Nargs - Tmp=varargin(I); - select type(Tmp) - case 1 - Mag=Tmp; - case 10 - Semi=Tmp; - end; - end; - V= Mag/norm(B-A)*(B-A) // 10.12.04 from here - if Semi=="" - Out=Listplot(A-V,A+V) - elseif Semi=="+" - Out=Listplot(A,A+V) - else - Out=Listplot(A-V,A) - end // 10.12.04 to here -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin Binary files differdeleted file mode 100644 index e2ea3688..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci deleted file mode 100644 index 0bc9f736..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci +++ /dev/null @@ -1,24 +0,0 @@ -// -// 08.07.13 -// 09.06.13 - -function Z=Listplot(varargin) - Z=[]; - for I=1:length(varargin) - Data=varargin(I); - if Mixtype(Data)==1 - if size(Data,1)==1 - Tmp=matrix(Data,2,size(Data,2)/2); - Z=[Z;Tmp']; - else - Z=[Z;Data]; - end; - else - for J=1:Mixlength(Data) - Tmp=Mixop(J,Data); - Z=[Z;Tmp]; - end - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin Binary files differdeleted file mode 100644 index 10970e3d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci deleted file mode 100644 index 27e70d48..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci +++ /dev/null @@ -1,49 +0,0 @@ -// -// 08.08.24 -// 10.01.02 - -function Out=MakeBowdata(PA,PB,H) - global BOWSTART BOWEND - BOWSTART=PA; - BOWEND=PB; - Eps=10^(-5); - D=1/2*Vecnagasa(PB-PA); - R=(H^2+D^2)/(2*H); - A1=PA(1); A2=PA(2); - B1=PB(1); B2=PB(2); - if abs(A2-B2)>Eps - x=poly(0,'X'); - y=-(A1-B1)*x/(A2-B2)+(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2); - Eq1=(A1-x)^2+(A2-y)^2-R^2; - Tmp=coeff(Eq1); - C0=Tmp(1); C1=Tmp(2); C2=Tmp(3); - Det=sqrt(C1^2-4*C0*C2); - Ansx1=(-C1+Det)/(2*C2); - Ansx2=(-C1-Det)/(2*C2); - Tmp=horner(y,Ansx1); - PC=[Ansx1,Tmp]; - Tmp=horner(y,Ansx2); - PC2=[Ansx2,Tmp]; - else - Tmp=0.5*(PA+PB); - PC=Tmp+[0,R-H]; - PC2=Tmp-[0,R-H]; - end; - VA=PA-PC; - VB=PB-PC; - if VA(1)*VB(2)-VA(2)*VB(1)<0 - PC=PC2; - end - AngA=acos((PA(1)-PC(1))/R); - if PA(2)-PC(2)<0 - AngA=-AngA; - end - AngB=acos((PB(1)-PC(1))/R); - if PB(2)-PC(2)<0 - AngB=-AngB; - end - if AngA>AngB - AngB=AngB+2*%pi; - end - Out=Mixmake(PC,R,AngA,AngB); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin Binary files differdeleted file mode 100644 index 1e4a9df1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci deleted file mode 100644 index f3bbd3ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci +++ /dev/null @@ -1,62 +0,0 @@ -// -// 09.12.25 -// 10.01.01 -// 10.12.02 ( debugged for norm()==0 ) - -function Outdata=MakeCurves(varargin) - Figdata=varargin(1); - Ptout=1; - if length(varargin)>=2 - Ptout=varargin(2); - end - Eps=10.0^(-6); - IndM=Dataindex(Figdata); - Atos=[]; - for Nd=1:size(IndM,1) - Tmp=IndM(Nd,:); - Motos=Figdata(Tmp(1):Tmp(2),:); - All=size(Motos,1); - if size(Motos,1)==1 - if InWindow(Motos)=='o' - continue; - end; - if Ptout==1 - Drwpt(Motos(1,:)); - else - Atos=[Atos;%inf,%inf;Doscaling(Motos)]; - end - continue - end - Crv=[]; - for I=2:All - P=Motos(I-1,:); - Q=Motos(I,:); - Snbn=MeetWindow(P,Q); - if Snbn==[] - if Crv~=[] - Atos=[Atos;%inf,%inf;Doscaling(Crv)]; - Crv=[]; - end - else - if norm(Snbn(1,:)-Snbn(2,:))<Eps // 10.12.02 - continue; - end; - if Crv==[] - Crv=Snbn - else - Tmp=Crv(size(Crv,1),:); - if norm(Tmp-Snbn(1,:))<Eps - Crv=[Crv;Snbn(2,:)]; - else - Atos=[Atos;%inf,%inf;Doscaling(Crv)]; - Crv=Snbn; - end - end - end - end - if size(Crv,1)>=2 - Atos=[Atos;%inf,%inf;Doscaling(Crv)]; - end - end - Outdata=Atos(2:size(Atos,1),:); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin Binary files differdeleted file mode 100644 index 8d2516c2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci deleted file mode 100644 index 81b0492f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci +++ /dev/null @@ -1,45 +0,0 @@ -// 08.09.19 -// 08.10.15 -// 08.12.21 - -function AnsL=MakecutbycrvL(Out1,CutuvL,Uveqstr,Uname,Vname,Eps) - if CutuvL==[] - if Mixtype(Out1)==1 - AnsL=Mix(Out1); - else - AnsL=Out1; - end; - return; - end; - AnsL=[]; - ParL=Partitionseg(Out1,CutuvL,Eps); - Flg=0; - for J=1:length(ParL)-1 - Tmp=(ParL(J)+ParL(J+1))*0.5; - Tmp=PointonCurve(Tmp,Out1); - Tmp1='('+string(Tmp(1))+')'; - Tmp2='('+string(Tmp(2))+')'; - Tmp=strsubst(Uveqstr,Uname,Tmp1); - Tmp=strsubst(Tmp,Vname,Tmp2); - Tmp=evstr(Tmp); - if Tmp>0 - if Flg==0 - P1=ParL(J); - end; - Flg=1 - else - if Flg==1 - P2=ParL(J); - Tmp=Partcrv(P1,P2,Out1); - AnsL=Mixadd(AnsL,Tmp); - end; - Flg=0 - end; - end; - if Flg==1 - P2=ParL(length(ParL)); - Tmp=Partcrv(P1,P2,Out1); - AnsL=Mixadd(AnsL,Tmp); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin Binary files differdeleted file mode 100644 index b2f34062..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci deleted file mode 100644 index 3f768e87..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci +++ /dev/null @@ -1,123 +0,0 @@ -// -// 11.05.26 (for pdflatex) - -function Makehasen(Figdata,Sen,Gap,Ptn) - global Wfile FID; - Eps=10.0^(-6); - Clist=MakeCurves(Figdata); - DinM=Dataindex(Clist); - for N=1:size(DinM,1) - Tmp=DinM(N,:); - Data=Clist(Tmp(1):Tmp(2),:); - Dtall=size(Data,1); - Len=0; - Lenlist=[0]; - for I=2:Dtall - Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); - Lenlist=[Lenlist,Len]; - end - Lenall=Lenlist(Dtall); - if Lenall==0 - continue - end - Kari=(Sen+Gap)*0.1; - Naga=Sen*0.1; - Tobi=Gap*0.1; - if Vecnagasa(Data(1,:)-Data(Dtall,:))<Eps - Nsen=max(ceil(Lenall/Kari),3); - SegUnit=Lenall/Nsen; - Naga=SegUnit*Sen/(Sen+Gap); - Tobi=SegUnit*Gap/(Sen+Gap); - SegList=[0:SegUnit:(Nsen-1)*SegUnit]; - else - if Ptn==0 - Nsen=max(ceil((Lenall+Tobi)/Kari),3); - SegUnit=Lenall*(Sen+Gap)/(Nsen*Sen+(Nsen-1)*Gap); - Naga=SegUnit*Sen/(Sen+Gap); - Tobi=SegUnit*Gap/(Sen+Gap); - SegList=[0:SegUnit:(Nsen-1)*SegUnit]; - else - Nsen=max(ceil((Lenall+Naga)/Kari),3); - SegUnit=Lenall*(Sen+Gap)/((Nsen-1)*Sen+Nsen*Gap); - Naga=SegUnit*Sen/(Sen+Gap); - Tobi=SegUnit*Gap/(Sen+Gap); - SegList=[Tobi:SegUnit:Tobi+(Nsen-2)*SegUnit]; - end - end - Hajime=1; Owari=1; - Mojisu=0; - for I=1:length(SegList) - Len=SegList(I); - J=Owari; - while Len>=Lenlist(J)-Eps - if J==Dtall - break - end - J=J+1; - end - Hajime=J-1; - J=Hajime; - while Len+Naga>Lenlist(J)-Eps - if J==Dtall - break - end - J=J+1 - end - Owari=J-1; - T=(Len-Lenlist(Hajime))... - /(Lenlist(Hajime+1)-Lenlist(Hajime)); - P=Data(Hajime,:)+T*(Data(Hajime+1,:)-Data(Hajime,:)); - X0=sprintf('%5.5f',P(1)); - Y0=sprintf('%5.5f',P(2)); - Pt0='('+X0+','+Y0+')'; - Str='\polyline'+Pt0; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Mojisu=Mojisu+length(Str); - for J=Hajime+1:Owari - P=Data(J,:); - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Pt='('+X+','+Y+')'; - Str=Pt; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Pt0=Pt; - Mojisu=Mojisu+length(Str); - end; - T=(Len+Naga-Lenlist(Owari))... - /(Lenlist(Owari+1)-Lenlist(Owari)); - P=Data(Owari,:)+T*(Data(Owari+1,:)-Data(Owari,:)); - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Pt='('+string(X)+','+string(Y)+')'; - Str=Pt; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end; - Mojisu=0; - end - end - end - if Wfile=='default' - mprintf('%s\n%s\n','%','%'); - else - mfprintf(FID,'%s\n%s\n','%','%'); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin Binary files differdeleted file mode 100644 index 1c9d8f4d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci deleted file mode 100644 index e9915e1b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.10.21 - -function Out=Makeliststr(L) - Out='list('; - for I=1:length(L) - Dt=L(I); - if type(Dt)==1 - if length(Dt)==1 - Dts=string(Dt); - else - Dts='['; - for J=1:size(Dt,1) - for K=1:size(Dt,2) - Dts=Dts+string(Dt(J,K)); - if K<size(Dt,2) - Dts=Dts+','; - end; - end; - if J<size(Dt,1) - Dts=Dts+';'; - else - Dts=Dts+']'; - end; - end; - end; - end; - if type(Dt)==10 - Dts=Prime()+Dt+Prime(); - end; - if type(Dt)==15 - Dts=Makeliststr(Dt); - end; - Out=Out+Dts; - if I<length(L) - Out=Out+','; - else - Out=Out+')'; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin Binary files differdeleted file mode 100644 index bafa4670..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci deleted file mode 100644 index e24525e1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci +++ /dev/null @@ -1,345 +0,0 @@ -// 08.09.19 -// 08.09.24 -// 08.10.09 -// 08.10.10 -// 08.10.15 -// 08.12.06 -// 08.12.21 -// 08.12.31 -// 10.02.16 Eps__ ( And Mislength, Mixop replaced ) -// 13.10.21 ( __ added to varibles ) - -function FsL__=Makesfcutoffdata(MS__) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT - global BORDERPT OTHERPARTITION PARTITIONPT - global HIDDENDATA BORDERHIDDENDATA; - timer(); - Nargs__=length(MS__); - HT__=Op(1,MS__); - PT__=Op(2,MS__); - Fd__=Op(3,MS__); - CutD__=Op(4,MS__); - Np__=[50,50]; - Eps__=[0.05,1]; // - Eps__2=0.2; - Sgnstr__='+'; - K__=0; - for I__=5:Nargs__ - Tmp__=Op(I__,MS__); - if type(Tmp__)==10 - Sgnstr__=Tmp__; - end; - if type(Tmp__)==1 // from - K__=K__+1; - if K__==1 - Np__=Tmp__; - if length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - if K__==2 - Eps__=Tmp__; - if length(Eps__)==1 - Eps__=[Eps__,1]; - end; - end; - if K__==3 - Eps__2=Tmp__; - end; - end; // upto - end; - Tmp__=Op(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Op(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Op(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Op(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - Fd__L=Fullformfunc(Fd__); - Fxy__=Op(1,Fd__L); - Xf__=Op(2,Fd__L); - Yf__=Op(3,Fd__L); - Zf__=Op(4,Fd__L); - DrwS__=Op(7,Fd__L); - Tmp__=Op(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Op(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); Umax__=Urg__(2); - Vmin__=Vrg__(1); Vmax__=Vrg__(2); - Fugou__=1; - if Sgnstr__=='-' | Sgnstr__=='n' - Fugou__=-1; - end; - if Mixtype(CutD__)~=1 - V1__=Op(1,CutD__); - Tmp__=Op(2,CutD__); - if length(Tmp__)>1 - D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - D__=Tmp__; - end; - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-'; - Eq__=Tmp__+string(D__); - elseif type(CutD__)==1 - V1__=CutD__(1:3); - D__=CutD__(4); - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+'; - Eq__=Tmp__+string(D__); - else - K__=mtlb_findstr(CutD__,'='); - if K__>0 - Tmp__1=part(CutD__,1:K__-1); - Tmp__2=part(CutD__,K__+1:length(CutD__)); - Eq__=Tmp__1+'-('+Tmp__2+')'; - else - Eq__=CutD__; - end; - end; - Eq__='('+string(Fugou__)+')*('+Eq__+')'; - Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')'); - Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')'); - Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')'); - Tmp__1=Op(5,Fd__L); - Tmp__2=Op(6,Fd__L); - CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__); - EkL__=[]; - for I__=1:length(CutuvL__) - Out__1=Op(I__,CutuvL__); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end; - Tmp__=mtlb_findstr(DrwS__,'e'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[Umax__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Tmp__=mtlb_findstr(DrwS__,'n'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[T,Vmax__]','T=[Umin__,Umax__]','N='+string(Np__(1))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Tmp__=mtlb_findstr(DrwS__,'w'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[Umin__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Tmp__=mtlb_findstr(DrwS__,'s'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[T,Vmin__]','T=[Umin__,Umax__]','N='+string(Np__(1))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Fbdxy__=[]; - for I__=1:length(EkL__) - Out__1=Op(I__,EkL__); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__=Out__1(J__,1:2); - Out__2=[Out__2,Tmp__]; - end; - Tmp__=Listplot(Out__2); - Fbdxy__=Mixjoin(Fbdxy__,list(Tmp__)); - end; - if PT__=='pers' - [Zval__,Xval__,Yval__]=Evlptablepers(Mix(Fd__,Np__)); - end; - if PT__=='para' - [Zval__,Xval__,Yval__]=Evlptablepara(Mix(Fd__,Np__)); - end; - Mixdisp(Mix('Ridge Equation obtained ',timer())); - Out__2=Implicitplot(Zval__,Xval__,Yval__); - IMPLICITDATA=Out__2; - Tmp__L=[]; - for I__=1:length(Out__2) - Tmp__1=Op(I__,Out__2); - Tmp__=MakecutbycrvL(Tmp__1,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for J__=1:length(Tmp__) - Tmp__L=Mixjoin(Tmp__L,Op(J__,Tmp__)); - end; - end; - Out__3=Tmp__L; - IMPLICITDATA=Out__3; - Mixdisp(Mix('ImplicitData obtained ',timer())); - if PT__=='pers' - Out__4=Cuspsplitpers(Out__3,Fd__,Eps__(1)); - end; - if PT__=='para' - Out__4=Cuspsplitpara(Out__3,Fd__,Eps__(1)); - end; - CUSPDATA=Out__4; - CUSPT=CUSPSPLITPT; - Mixdisp(Mix('CuspData obtained ',timer())); - FkL__=Mixjoin(EkL__,Out__4); - if PT__=='pers' - Fall__=Projpers(FkL__); - end; - if PT__=='para' - Fall__=Projpara(FkL__); - end; - if HT__=='raw' - Mixdisp(Mix('BorderData obtained ',timer())); - FsL__=FkL__; - return; - end; - BORDERPT=[]; - Tmp__=[]; - for I__=1:length(Fall__) - Tmp__=Mixjoin(Tmp__,list([])); - end; - OTHERPARTITION=Tmp__; - FsL__=[]; - BORDERHIDDENDATA=[]; - for I__=1:length(Fall__) - if PT__=='pers' - Tmp__=Projpers(Op(I__,FkL__)); - end; - if PT__=='para' - Tmp__=Projpara(Op(I__,FkL__)); - end; - ParL__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); - if length(PARTITIONPT)>2 - Tmp__=length(PARTITIONPT)-1; - Tmp__1=BORDERPT; - for J__=2:Tmp__ - Tmp__2=Op(J__,PARTITIONPT); - Tmp__1=Mixjoin(Tmp__1,list(Tmp__2)); - end; - BORDERPT=Tmp__1; - end; - if PT__=='pers' - if Fxy__=='p' - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); - else - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); -// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__); -// Tmp__=Nohiddenpers(ParL__,Tmp__1,Tmp__2); - end; - else - if Fxy__=='p' - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); - else - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); -// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__); -// Tmp__=Nohiddenpara(ParL__,Tmp__1,Tmp__2); - end; - end; - BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); - FsL__=Mixjoin(FsL__,Tmp__); - end; - Mixdisp(Mix('BorderData obtained ',timer())); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin Binary files differdeleted file mode 100644 index c4f4d4c5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci deleted file mode 100644 index 443751be..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 08.05.20 -// 09.10.05 -// 10.01.20 -// 10.02.01 - -function Out=Makeshasen(PtnL,PA,V,Bdy) - Eps=10.0^(-6); - TenL=KoutenList(PA,V,Bdy); - Nten=length(TenL); - Call=length(Bdy); - Ptn=zeros(1,Call); - Out=list(); - GL=[] - Te=-10.0^6; - for I=1:Nten-1 - TenP=Op(I,TenL); TenQ=Op(I+1,TenL); - Ts=Op(1,TenP); - P=Op(2,TenP); Q=Op(2,TenQ); - NC=Op(4,TenP); - Tmp=modulo(Ptn(NC)+1,2); - Ptn(1,NC)=Tmp; - if Op(1,TenQ)-Ts>Eps - if Member(Ptn,PtnL) - if abs(Te-Ts)>Eps - if GL~=[] - J=length(Out); - Out(J+1)=GL; - end; - Tmp=Listplot(P,Q); - GL=Tmp; - else - GL=[GL;Q]; - end - Te=Op(1,TenQ); - end - end - end - if size(GL,1)>0 - Out=Mixjoin(Out,list(GL)) - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin Binary files differdeleted file mode 100644 index 102b44b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci deleted file mode 100644 index 99ad5910..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci +++ /dev/null @@ -1,171 +0,0 @@ -// 08.07.13 -// 08.10.16 -// 09.03.05 -// 09.05.12 -// 10.05.09 -// 14.07.05 -// 16.12.24 ( when kukanL=[] ) - -function Allres=Makeskeletondata(Obj2L,Plt2L,R0,Eps2) - Eps=10.0^(-3); - Dmat=[]; - Dind=[]; - for I=1:Mixlength(Plt2L) - Dt=Mixop(I,Plt2L); - N1=size(Dmat,1)+1; - Dmat=[Dmat;Dt]; - N2=size(Dmat,1); - Dind=[Dind;N1,N2]; - end; - Nind=size(Dind,1); - Allres=[]; - for Nobj=1:Mixlength(Obj2L) - Plt2=Mixop(Nobj,Obj2L); - PhL=Plt2(:,1:2); - ClipL=[]; - for Ns=1:size(PhL,1)-1 - P1=PhL(Ns:Ns+1,:); - for I=1:size(Dind,1) - Tmp=Dmat(Dind(I,1):Dind(I,2),:); - P2=Tmp(:,1:2); - KC=IntersectcrvsPp(P1,P2,Eps); - if Mixlength(KC)>0 - for J=1:Mixlength(KC) - P=Mixop(1,Mixop(J,KC)); - Tmp=Mixop(2,Mixop(J,KC)); - if Tmp<1+Eps & Ns==1 // 2010.05.09 - continue; - end; - if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1 - continue; - end; // - N1=Ns; - N2=Mixop(3,Mixop(J,KC)); - Pa=Plt2(N1,1:2); - Za=Plt2(N1,3); - Pb=Plt2(N1+1,1:2); - Zb=Plt2(N1+1,3); - if norm(Pa-Pb)<Eps // added from here - continue; - end; // upto here - T1=norm(Pa-P)/norm(Pa-Pb); - Z1=(1-T1)*Za+T1*Zb; - Tmp=Dmat(Dind(I,1):Dind(I,2),:); - Pa=Tmp(N2,1:2); - Za=Tmp(N2,3); - Pb=Tmp(N2+1,1:2); - Zb=Tmp(N2+1,3); - if norm(Pa-Pb)<Eps // added from here - continue; - end; // upto here - T2=norm(Pa-P)/norm(Pa-Pb); - Z2=(1-T2)*Za+T2*Zb; - if Z1<Z2-Eps2 - if ClipL==[] // corrected from here - Tmp=1; - else - Tmp1=ClipL(:,1)-P(1); - Tmp2=ClipL(:,2)-P(2); - Tmp3=Tmp1.^2+Tmp2.^2; // 20140705 - Tmp=min(Tmp3); - end; // upto here - if Tmp>Eps^2 - Tmp1=P1(2,:)-P1(1,:); - Tmp2=Pb-Pa; - Tmp3=Naiseki(Tmp1,Tmp2); - Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2); - Tmp=1-0.5*Tmp3^2; - ClipL=[ClipL;P,N1,T1,R0/Tmp]; - end; - end; - end; - end; - end; - end; - Te=size(Plt2,1); - KukanL=[1.0,Te]; - P1=PhL; - if size(ClipL,1)>0 - for I=1:size(ClipL,1) - P=ClipL(I,1:2); - NN=ClipL(I,3); - T=NN+ClipL(I,4); - R=ClipL(I,5); - Flg=0; - for J=NN:-1:1 - Q=PointonCurve(J,P1); - if norm(P-Q)<R - continue; - end - Flg=1; - break; - end; - if Flg==0 - T1=1; - else - T1=J; T2=T; - H=T2-T1; - for N=1:10 - H=H*0.5; - Q=PointonCurve(T1+H,P1); - if norm(P-Q)<R - T2=T2-H; - else - T1=T1+H; - end; - end; - end; - Ku=[T1]; - Flg=0; - for J=NN+1:Te - Q=PointonCurve(J,P1); - if norm(P-Q)<R - continue; - end; - Flg=1; - break; - end; - if Flg==0 - T2=Te; - else - T1=T; T2=J; - H=T2-T1; - for N=1:10 - H=H*0.5; - Q=PointonCurve(T1+H,P1); - if norm(P-Q)<R - T1=T1+H; - else - T2=T2-H; - end; - end; - end; - Ku=[Ku,T2]; - if size(KukanL,2)==0 then - break; - end; - KukanL=Kukannozoku(Ku,KukanL); - end; - end; - Res=[]; - for I=1:size(KukanL,1) - T1=KukanL(I,1); N1=Trunc(T1); - T2=KukanL(I,2); N2=Trunc(T2); - PtL=[]; - if T1-N1<1-Eps - Tmp=PointonCurve(T1,P1); - PtL=MixS(Tmp); - end; - for J=N1+1:N2 - Tmp=PointonCurve(J,P1); - PtL=Mixadd(PtL,Tmp); - end; - if T2-N2>Eps - Tmp=PointonCurve(T2,P1); - PtL=Mixadd(PtL,Tmp); - end; - Res=Mixadd(Res,Listplot(PtL)); - end; - Allres=Mixjoin(Allres,Res); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin Binary files differdeleted file mode 100644 index 0082bcd5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci deleted file mode 100644 index 4838d658..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci +++ /dev/null @@ -1,188 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 09.05.12 -// 09.09.25 -// 10.05.09 -// 10.08.17 -// 14.07.05 - -function Allres=Makeskeletonpersdata(Obj2L,Plt2L,R0,Eps2) - Eps=10.0^(-3); - Dmat=[]; - Dind=[]; - for I=1:Mixlength(Plt2L) - Dt=Mixop(I,Plt2L); - N1=size(Dmat,1)+1; - Dmat=[Dmat;Dt]; - N2=size(Dmat,1); - Dind=[Dind;N1,N2]; - end; - Nind=size(Dind,1); - Allres=[]; - for Nobj=1:Mixlength(Obj2L) - Plt2=Mixop(Nobj,Obj2L); - PhL=Plt2(:,1:2); - ClipL=[]; - for Ns=1:size(PhL,1)-1 - P1=PhL(Ns:Ns+1,:); - for I=1:size(Dind,1) - Tmp=Dmat(Dind(I,1):Dind(I,2),:); - P2=Tmp(:,1:2); - KC=IntersectcrvsPp(P1,P2,Eps); - if Mixlength(KC)>0 - for J=1:Mixlength(KC) - P=Mixop(1,Mixop(J,KC)); - Tmp=Mixop(2,Mixop(J,KC)); - if Tmp<1+Eps & Ns==1 // 2010.05.09 - continue; - end; - if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1 - continue; - end; // - N1=Ns; - N2=Mixop(3,Mixop(J,KC)); - Pa=Plt2(N1,1:2); - Za=Plt2(N1,3); - Pb=Plt2(N1+1,1:2); - Zb=Plt2(N1+1,3); - if norm(Pa-Pb)<Eps // added from here - continue; - end; // upto here - T1=norm(Pa-P)/norm(Pa-Pb); - Pka=Cancoordpers([Pa(1),Pa(2),Za]); - Pkb=Cancoordpers([Pb(1),Pb(2),Zb]); - if T1>1-Eps - Pk=Pkb; - else - Tmp1=Listplot([Pa,Pb]); - Tmp2=Spaceline([Pka,Pkb]); - Tmp=Invperspt(1+T1,Tmp1,Tmp2); - Pk=Mixop(1,Tmp); - end; - Z1=Zperspt(Pk); - Tmp=Dmat(Dind(I,1):Dind(I,2),:); - Pa=Tmp(N2,1:2); - Za=Tmp(N2,3); - Pb=Tmp(N2+1,1:2); - Zb=Tmp(N2+1,3); - if norm(Pa-Pb)<Eps // added from here - continue; - end; // upto here - T2=norm(Pa-P)/norm(Pa-Pb); - Pka=Cancoordpers([Pa(1),Pa(2),Za]); - Pkb=Cancoordpers([Pb(1),Pb(2),Zb]); - if T2>1-Eps - Pk=Pkb; - else - Tmp1=Listplot([Pa,Pb]); - Tmp2=Spaceline([Pka,Pkb]); - Tmp=Invperspt(1+T2,Tmp1,Tmp2); - Pk=Mixop(1,Tmp); - end - Z2=Zperspt(Pk); - if Z1<Z2-Eps2 - if ClipL==[] // corrected from here - Tmp=1; - else - Tmp1=ClipL(:,1)-P(1); - Tmp2=ClipL(:,2)-P(2); - Tmp3=Tmp1.^2+Tmp2.^2; // 20140705 - Tmp=min(Tmp3); - end; // upto here - if Tmp>Eps^2 - Tmp1=P1(2,:)-P1(1,:); - Tmp2=Pb-Pa; - Tmp3=Naiseki(Tmp1,Tmp2); - Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2); - Tmp=1-0.5*Tmp3^2; - ClipL=[ClipL;P,N1,T1,R0/Tmp]; - end; - end; - end; - end; - end; - end; - Te=size(Plt2,1); - KukanL=[1.0,Te]; - P1=PhL; - if size(ClipL,1)>0 - for I=1:size(ClipL,1) - P=ClipL(I,1:2); - NN=ClipL(I,3); - T=NN+ClipL(I,4); - R= ClipL(I,5); // 10.08.17 - Flg=0; - for J=NN:-1:1 - Q=PointonCurve(J,P1); - if norm(P-Q)<R - continue; - end - Flg=1; - break; - end; - if Flg==0 - T1=1; - else - T1=J; T2=T; - H=T2-T1; - for N=1:10 - H=H*0.5; - Q=PointonCurve(T1+H,P1); - if norm(P-Q)<R - T2=T2-H; - else - T1=T1+H; - end; - end; - end; - Ku=[T1]; - Flg=0; - for J=NN+1:Te - Q=PointonCurve(J,P1); - if norm(P-Q)<R - continue; - end; - Flg=1; - break; - end; - if Flg==0 - T2=Te; - else - T1=T; T2=J; - H=T2-T1; - for N=1:10 - H=H*0.5; - Q=PointonCurve(T1+H,P1); - if norm(P-Q)<R - T1=T1+H; - else - T2=T2-H; - end; - end; - end; - Ku=[Ku,T2]; - KukanL=Kukannozoku(Ku,KukanL); - end; - end; - Res=[]; - for I=1:size(KukanL,1) - T1=KukanL(I,1); N1=Trunc(T1); - T2=KukanL(I,2); N2=Trunc(T2); - PtL=[]; - if T1-N1<1-Eps - Tmp=PointonCurve(T1,P1); - PtL=MixS(Tmp); - end; - for J=N1+1:N2 - Tmp=PointonCurve(J,P1); - PtL=Mixadd(PtL,Tmp); - end; - if T2-N2>Eps - Tmp=PointonCurve(T2,P1); - PtL=Mixadd(PtL,Tmp); - end; - Res=Mixadd(Res,Listplot(PtL)); - end; - Allres=Mixjoin(Allres,Res); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin Binary files differdeleted file mode 100644 index 37e149ff..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci deleted file mode 100644 index dc917f30..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci +++ /dev/null @@ -1,79 +0,0 @@ -// 08.09.09 -// 08.10.08 -// 08.12.06 -// 08.12.30 -// 09.06.03 -// 13.10.19 ( __ added to variables ) - -function [Zval__,Xval__,Yval__]=Makevaltable(MS__) - Eps__=10^(-6); - Nargs__=Mixlength(MS__); - Fstr__=Mixop(1,MS__); - Tmp__=Mixop(2,MS__); - Tmp1__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,Tmp1__-1); - Xrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__))); - Tmp__=Mixop(3,MS__); - Tmp1__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,Tmp1__-1); - Yrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__))); - Tmp__=strsubst(Fstr__,Xname__,'x'); - Fstr__=strsubst(Tmp__,Yname__,'y'); - Tmp__=mtlb_findstr(Fstr__,Xname__); - if length(Tmp__)==0 - Fstr__=Fstr__+'+0*x'; - end; - Mdv__=50; - Ndv__=50; - if Nargs__>=4 - Tmp__=Mixop(4,MS__); - if length(Tmp__)>1 - Mdv__=Tmp__(1,1); - Ndv__=Tmp__(1,2); - else - Mdv__=Tmp__ - if Nargs__==4 - Ndv__=Mdv__ - else - Tmp1__=Mixop(5,MS__); - if type(Tmp1__)==1 & length(Tmp1__)==1 - Ndv__=Tmp1__; - else - Ndv__=Mdv__; - end - end - end - end - X1__=Xrange__(1); X2__=Xrange__(2); - Y1__=Yrange__(1); Y2__=Yrange__(2); - Dx__=(X2__-X1__)/(Mdv__-1); - Dy__=(Y2__-Y1__)/(Ndv__-1); - Xval__=[]; - Tmp__=X1__; - while Tmp__<X2__+Eps__ - Xval__=[Xval__,Tmp__]; - Tmp__=Tmp__+Dx__; - end; - Yval__=[]; - Tmp__=Y1__; - while Tmp__<Y2__+Eps__ - Yval__=[Yval__,Tmp__]; - Tmp__=Tmp__+Dy__; - end; - I__=1; -// x=Xval; -// for y=Yval -// Tmp=evstr(Fstr); -// Zval(I,:)=Tmp; -// I=I+1; -// end; - for y=Yval__ - J__=1; - for x=Xval__ - Zval__(I__,J__)=evstr(Fstr__); - J__=J__+1; - end; - I__=I__+1; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin Binary files differdeleted file mode 100644 index 82acb406..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci deleted file mode 100644 index a16a5a4d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci +++ /dev/null @@ -1,68 +0,0 @@ -// 08.08.22 -// 09.10.25 -// 09.10.26 -// 09.10.27 -// 09.10.29 - -function Out=MakeveLfaceL(VfL) - // Out format - // VeL Edge, Face num(as numlist), VeL num - // FL Face (Vertexs) - Eps=10^(-4); - Tmp=VfL($); - Tmp1=Tmp(1); - if type(Tmp1)==1 - FvL=list(VfL); - else - FvL=VfL; - end; - EL=list(); FL=list(); - for Nn=1:length(FvL) - Tmp=FvL(Nn); - VL=Tmp(1); - if length(VL)>0 - FnL=Tmp(2); - FaceL=list(); - for I=1:length(FnL) - Tmp1=FnL(I); - PtL=list(); - for J=1:length(Tmp1) - Tmp2=Tmp1(J); - PtL(J)=VL(Tmp2); - end; - FaceL(I)=PtL; - end; - else - FaceL=list(Tmp(2)); - end; - for I=1:length(FaceL) - Face=FaceL(I); - Face($+1)=Face(1); - FL($+1)=Face; - for J=1:length(Face)-1 - Edge=list(Face(J),Face(J+1)); - Flg=0; - for K=1:length(EL) - Tmp=EL(K); - Tmp1=Tmp(1); - Tmp2=norm(Edge(1)-Tmp1(1))+norm(Edge(2)-Tmp1(2)); - Tmp3=norm(Edge(1)-Tmp1(2))+norm(Edge(2)-Tmp1(1)); - if Tmp2<Eps | Tmp3<Eps - Tmp=EL(K); - Tmp1=Tmp(1); - Tmp2=[Tmp(2),length(FL)]; - EL(K)=list(Tmp1,Tmp2,K); - Flg=1; - break; - end; - end; - if Flg==0 - Ntmp=length(EL); - EL(Ntmp+1)=list(Edge,[length(FL)],Ntmp+1); - end; - end; - end; - end; - Out=list(EL,FL); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin Binary files differdeleted file mode 100644 index 7c309bf0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci deleted file mode 100644 index fb8aa27b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci +++ /dev/null @@ -1,111 +0,0 @@ -// 08.09.13 -// 08.09.16 -// 08.10.11 -// 08.10.27 -// 14.07.07 debug ( Kitahara ) - -function EhL=Makexybdy(Fd,Np) - Eps0=10^(-4); - FdL=Fullformfunc(Fd); - Tmp1=Mixop(2,FdL); - Tmp2=Mixop(3,FdL); - Xystr=[Tmp1,Tmp2]; - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - DrwS=Mixop(7,FdL); - Cflg=0; - EhL=[]; - Tmp=mtlb_findstr(DrwS,'e'); - if length(Tmp)~=0 - Tmp1=strsubst(Xystr,Uname,'('+string(Umax)+')'); - Tmp2=Mixop(6,FdL); - Tmp3='N='+string(Np(2)); - Tmp=Paramplot(Tmp1,Tmp2,Tmp3); - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - EhL=Mixadd(EhL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'n'); - if length(Tmp)~=0 - Tmp1=strsubst(Xystr,Vname,'('+string(Vmax)+')'); - Tmp2=Mixop(5,FdL); - Tmp3='N='+string(Np(1)); - Tmp=Paramplot(Tmp1,Tmp2,Tmp3); - if Cflg~=0 // 140707 Kitahara - Tmp1=Mixop(Mixlength(EhL),EhL); - Tmp=Joincrvs(Tmp1,Tmp); - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL); - EhL=Mixadd(Tmp1,Tmp); - else - Cflg=0; - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - EhL=Mixadd(EhL,Tmp); - end; - end; - Tmp=mtlb_findstr(DrwS,'w'); - if length(Tmp)~=0 - Tmp1=strsubst(Xystr,Uname,'('+string(Umin)+')'); - Tmp2=Mixop(6,FdL); - Tmp3='N='+string(Np(2)); - Tmp=Paramplot(Tmp1,Tmp2,Tmp3); - if Cflg~=0 //if Cflg==0 - Tmp1=Mixop(Mixlength(EhL),EhL); - Tmp=Joincrvs(Tmp1,Tmp); - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL); - EhL=Mixadd(Tmp1,Tmp); - else - Cflg=0; - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - EhL=Mixadd(EhL,Tmp); - end; - end; - Tmp=mtlb_findstr(DrwS,'s'); - if length(Tmp)~=0 - Tmp1=strsubst(Xystr,Vname,'('+string(Vmin)+')'); - Tmp2=Mixop(5,FdL); - Tmp3='N='+string(Np(1)); - Tmp=Paramplot(Tmp1,Tmp2,Tmp3); - if Cflg~=0 //if Cflg==0 - Tmp1=Mixop(Mixlength(EhL),EhL); - Tmp=Joincrvs(Tmp1,Tmp); - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL); - EhL=Mixadd(Tmp1,Tmp); - else - Cflg=0; - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - EhL=Mixadd(EhL,Tmp); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin Binary files differdeleted file mode 100644 index 86b2954f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci deleted file mode 100644 index 11b02c63..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci +++ /dev/null @@ -1,39 +0,0 @@ -function Mawarikomi(varargin) - FL='default'; - haba='10cm'; - Nargs=length(varargin); - if Nargs>0 - haba=varargin(1); - if Nargs>=2 - FL=varargin(2); - if FL=='' - FL='tmp.tex' - end - end - end - StrM=[ - '\begin{mawarikomi}%',... - '%<1>[5](0,0)%',... - '{'+haba+'}{%',... - '',... - '}',... - '',... - '',... - '\end{mawarikomi}'... - ]; - if FL~='default' - Fid=mopen(FL,'w'); - mprintf('%s\n\n','Writing to '+FL); - end; - for I=1:size(StrM,2) - Str=StrM(I); - mprintf('%s\n',Str); - if FL~='default' - mfprintf(Fid,'%s\n',Str); - end - end - if FL~='default' - mclose(Fid); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin Binary files differdeleted file mode 100644 index 78d328fc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci deleted file mode 100644 index 65f543ea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci +++ /dev/null @@ -1,91 +0,0 @@ -// -// 08.05.30 debugged -// 08.08.14 (horner) -// 09.12.31 (gsort) -// 15.10.23 ( horner not used ) -// 16.12.29 (msprintf("%3.10f",..) used ) - -function R=MeetWindow(PA,PB) - global XMIN XMAX YMIN YMAX - if InWindow(PA)=='i' & InWindow(PB)=='i' - R=[PA;PB]; - return - end; - Eps=10.0^(-6); - t=poly(0,'T'); - PT="(1-(t))*PA+(t)*PB"; - Txm=-1; TxM=-1; Tym=-1; TyM=-1; - if PA(1)~=PB(1) - Txm=(XMIN-PA(1))/(PB(1)-PA(1)); - TxM=(XMAX-PA(1))/(PB(1)-PA(1)); - end - if PA(2)~=PB(2) - Tym=(YMIN-PA(2))/(PB(2)-PA(2)); - TyM=(YMAX-PA(2))/(PB(2)-PA(2)); - end; -// Tmp=horner(PT(2),Txm); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",Txm)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(2); - if Tmp<YMIN-Eps | Tmp>YMAX+Eps - Txm=-1; - end -// Tmp=horner(PT(2),TxM); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",TxM)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(2); - if Tmp<YMIN-Eps | Tmp>YMAX+Eps - TxM=-1 - end -// Tmp=horner(PT(1),Tym); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",Tym)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(1); - if Tmp<XMIN-Eps | Tmp>XMAX+Eps - Tym=-1 - end -// Tmp=horner(PT(1),TyM); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",TyM)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(1); - if Tmp<XMIN-Eps | Tmp>XMAX+Eps - TyM=-1 - end - Tmp=gsort([Txm,TxM,Tym,TyM]); - Tans=Tmp(length(Tmp):-1:1); - Tmp=[]; - for I=1:length(Tans) - Tmp1=Tans(I); - if Tmp1>-Eps & Tmp1<1+Eps - if length(Tmp)==0 - Tmp=[Tmp1]; - elseif abs(Tmp(length(Tmp))-Tmp1)>Eps - Tmp=[Tmp,Tmp1] - end - end - end - Tans=Tmp; - if length(Tans)==0 - R=[]; - return; - end - if length(Tans)==1 -// Ten1=horner(PT,Tans(1)); - Tmp1=strsubst(PT,"t",string(Tans(1))); - Ten1=evstr(Tmp1) - if InWindow(PA)=='i' - R=[PA;Ten1]; - return; - else - R=[Ten1;PB]; - return - end - end -// Ten1=horner(PT,Tans(1)); - Tmp1=strsubst(PT,"t",string(Tans(1))); - Ten1=evstr(Tmp1) -// Ten2=horner(PT,Tans(2)); - Tmp1=strsubst(PT,"t",string(Tans(2))); - Ten2=evstr(Tmp1) - R=[Ten1;Ten2]; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin Binary files differdeleted file mode 100644 index ebe3ead9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci deleted file mode 100644 index 65ba1166..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci +++ /dev/null @@ -1,169 +0,0 @@ -// 08.10.24 -// 08.10.25 -// 08.10.26 -// 09.12.31 (gsort) -// 13.10.22 ( __ added to varibles ) -// 13.12.02 debugged - -function PtL__=Meetpoints(PtA__,PtB__,Fd__,Uveq__,Np__,Eps__) - Eps__0=10^(-4); - Vec__=PtB__-PtA__; - Out__=[]; - PtL__=[]; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Mixop(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - Fd__L=Fullformfunc(Fd__); - Xf__=Mixop(2,Fd__L); - Yf__=Mixop(3,Fd__L); - Zf__=Mixop(4,Fd__L); - Tmp__=Mixop(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); UMax__=Urg__(2); - Vmin__=Vrg__(1); VMax__=Vrg__(2); - V1__='('+string(Vec__(1))+')'; - V2__='('+string(Vec__(2))+')'; - V3__='('+string(Vec__(3))+')'; - Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))'; - Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))'; - Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))'; - Urg__str=Mixop(5,Fd__L); - Vrg__str=Mixop(6,Fd__L); - if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0 - Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__; - else - Eq__=Xstr__; - end; - MS__=Mix(Eq__,Urg__str,Vrg__str,Np__); - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - for J=1:length(Yval__)-1 - for I=1:length(Xval__)-1 - a1__=Xval__(I);b1__=Yval__(J);c1__=Zval__(J,I); - a2__=Xval__(I+1);b2__=Yval__(J);c2__=Zval__(J,I+1); - a3__=Xval__(I+1);b3__=Yval__(J+1);c3__=Zval__(J+1,I+1); - a4__=Xval__(I);b4__=Yval__(J+1);c4__=Zval__(J+1,I); - PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; - VL__=[c1__,c2__,c3__,c4__,c1__]; - QL__=[]; - for K__=1:4 - P1__=PL__(K__,:); P2__=PL__(K__+1,:); - M1__=VL__(K__); M2__=VL__(K__+1); - if M1__>=Eps__0 & M2__>=Eps__0 - continue; - end; - if M1__<=-Eps__0 & M2__<=-Eps__0 - continue; - end; - if abs(M1__)<Eps__0 - Tmp__=P1__; - elseif abs(M2__)<Eps__0 - continue; - else - Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); - end; - QL__=[QL__;Tmp__]; - end; - if size(QL__,1)==2 - Puv__1=QL__(1,:); Puv__2=QL__(2,:); - Tmp__1=Puv__1(1); - Tmp__2=Puv__1(2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); // 13.12.02 - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - P1__=[Xv__,Yv__,Zv__]; - Tmp__1=Puv__2(1); - Tmp__2=Puv__2(2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - P2__=[Xv__,Yv__,Zv__]; - V1__=Vec__(1); V2__=Vec__(2); V3__=Vec__(3); - if abs(V1__)>Eps__0 - M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3); - M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3); - elseif abs(V2__)>Eps__0 - M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3); - M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3); - else - M1__=PtA__(2)-P1__(2); - M2__=PtA__(2)-P2__(2); - end; - if M1__*M2__>=0 - if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0) - continue; - end; - if abs(M1__)<=Eps__0 - Pt__=P1__; Ptuv__=Puv__1; - else - Pt__=P2__; Ptuv__=Puv__2; - end; - else - Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); - Ptuv__=1/(M1__-M2__)*(-M2__*Puv__1+M1__*Puv__2); - end; - if type(Uveq__)==10 - Tmp__1='('+string(Ptuv__(1))+')'; - Tmp__2='('+string(Ptuv__(2))+')'; - Tmp__=strsubst(Uveq__,Uname__,Tmp__1); - Tmp__=strsubst(Tmp__,Vname__,Tmp__2); - Tmp__=evstr(Tmp__); - if Tmp__<-Eps__0 - continue; - end; - end; - Tmp__1=Naiseki(Pt__-PtA__,Vec__); - Tmp__1=Tmp__1/norm(Vec__)^2; - if Tmp__1>-Eps__0 & Tmp__1<1+Eps__0 - Out__=[Out__,Tmp__1]; - end; - end; - end; - end; - if length(Out__)>0 - Out__=gsort(Out__); - Out__=Out__(length(Out__):-1:1); - Tmp__=[Out__(1)]; - for I__=2:length(Out__) - Tmp__1=(Out__(I__)-Tmp__(length(Tmp__)))*Vec__; - Tmp__1=norm(Tmp__1); - if Tmp__1>Eps__ - Tmp__=[Tmp__,Out__(I__)]; - end; - end; - Out__=Tmp__; - for I__=1:length(Out__) - Tmp__=PtA__+Out__(I__)*Vec__; - PtL__=Mixadd(PtL__,Tmp__); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin Binary files differdeleted file mode 100644 index 711c4fc4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci deleted file mode 100644 index 79826f90..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 08.05.18 - -// Structure changed -// 09.10.11 - -function TF=Member(A,L) - if Mixtype(L)>1 - N=Mixlength(L); - else - N=length(L); - end - for I=1:N - Tmp=Op(I,L); - if A==Tmp - TF=%t - return - end - end - TF=%f -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin Binary files differdeleted file mode 100644 index 9cb3477e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci deleted file mode 100644 index de8d4b0d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci +++ /dev/null @@ -1,206 +0,0 @@ -// 08.08.21 -// 09.10.24 -// 09.10.26 - -function Menkakusi(Face,Nf,Ptype) - global THETA PHI EyePoint FocusPoint VELNO VELHI; - Eps0=10^(-6); - Eps=10^(-4); - Tmp1=Face(1)-Face(2); - Tmp2=Face(3)-Face(2); - if norm(Tmp1)<Eps | norm(Tmp2)<Eps - return; - end; - Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2); - if norm(Vec)<Eps - return; - end; - if Ptype==-1 - W=EyePoint; - Tmp=Dotprod(Vec,W-Face(1)); - else - W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; - W=100*W; - Tmp=Dotprod(Vec,W-Face(1)); - end; - if abs(Tmp)<Eps - return; - end; - if Tmp<-Eps - Vec=-Vec; - end; - if Ptype==-1 - G1=Projpers(Spaceline(Face)); - else - G1=Projpara(Spaceline(Face)) - end; - VL=list(); - for I=1:Numptcrv(G1) - VL(I)=Ptcrv(I,G1); - end; - Out1L=list(); - Out2L=VELHI; - for N=1:length(VELNO) - Tmp=VELNO(N); - Edge=Tmp(1); - Ne=Tmp(2); - Nenm=Tmp(3); - if Member(Nf,Ne) - Out1L($+1)=list(Edge,Ne,Nenm); - continue; - end; - if Ptype==-1 - P=Perspt(Edge(1)); - Q=Perspt(Edge(2)); - else - P=Parapt(Edge(1)); - Q=Parapt(Edge(2)); - end; - if norm(P-Q)<Eps - continue; - end; - Tmp=Kyoukai(Mix(G1)); - Tmp1=Naigai(P,Tmp); - Ng1=Tmp1(1); - Tmp1=Naigai(Q,Tmp); - Ng2=Tmp1(1); - KL=IntersectcrvsPp(Listplot([P,Q]),G1); - if Mixlength(KL)==0 - if Ng1==0 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp1=(Edge(1)+Edge(2))*0.5-Face(1); - Tmp=Dotprod(Tmp1,Vec)/norm(Tmp1); - if Tmp>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out2L($+1)=list(Edge,Ne,Nenm); - end; - end; - continue; - end; - Flg=0; - for I=1:Mixlength(VL)-1 - Tmp=VL(I+1)-VL(I); - if norm(Tmp)<Eps continue; end; - Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P); - if abs(Tmp1)<Eps - Flg=1; - break; - end; - end; - if Flg==1 - Tmp=Mixop(I,VL)-P; - if norm(Tmp)<Eps - Tmp1=0; - else - Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P); - end; - if abs(Tmp1)<Eps then - Out1L($+1)=list(Edge,Ne,Nenm); - continue; - end; - end; - if Mixlength(KL)==1 - Tmp=KL(1); - Tmp=Tmp(2)-1; - if Tmp<Eps - if Ng2==0 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp1=Edge(2)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out2L($+1)=list(Edge,Ne,Nenm); - end; - end; - continue; - end; - if Tmp>1-Eps - if Ng1==0 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp1=Edge(1)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out2L($+1)=list(Edge,Ne,Nenm); - end; - end; - continue; - end; - if Ng1==0 & Ng2==0 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp1=KL(1); - Tmp1=Tmp1(1); - if Ptype==-1 - Tmp=Invperspt(Tmp1,Spaceline(Edge)); - else - Tmp=Invparapt(Tmp1,Spaceline(Edge)) - end; - Ak=Tmp(1); - if Ng1==1 - Tmp1=Edge(1)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp2=list(Ak,Edge(2)); - Out1L($+1)=list(Tmp2,Ne,Nenm); - Tmp2=list(Edge(1),Ak); - Out2L($+1)=list(Tmp2,Ne,Nenm); - end; - end; - if Ng2==1 - Tmp1=Edge(2)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp2=list(Edge(1),Ak); - Out1L($+1)=list(Tmp2,Ne,Nenm); - Tmp2=list(Ak,Edge(2)); - Out2L($+1)=list(Tmp2,Ne,Nenm); - end; - end; - end; - end; - if Mixlength(KL)==2 - Tmp1=KL(1); - Tmp1=Tmp1(2); - Tmp2=KL(2); - Tmp2=Tmp2(2); - if Tmp1>Tmp2 - KL=list(KL(2),KL(1)); - end; - Tmp=Spaceline(Edge); - Tmp1=KL(1); - Tmp1=Tmp1(1); - Tmp2=KL(2); - Tmp2=Tmp2(1); - if Ptype==-1 - Ak=Mixop(1,Invperspt(Tmp1,Tmp)); - Bk=Mixop(1,Invperspt(Tmp2,Tmp)) - else - Ak=Mixop(1,Invparapt(Tmp1,Tmp)); - Bk=Mixop(1,Invparapt(Tmp2,Tmp)) - end; - Tmp1=(Ak+Bk)*0.5-Face(1); - Tmp=Dotprod(Tmp1,Vec); - if Tmp>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out1L($+1)=list(list(Edge(1),Ak),Ne,Nenm); - Out1L($+1)=list(list(Bk,Edge(2)),Ne,Nenm); - Out2L($+1)=list(list(Ak,Bk),Ne,Nenm); - end; - end; - end; - VELNO=Out1L; - VELHI=Out2L; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin Binary files differdeleted file mode 100644 index e8361324..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci deleted file mode 100644 index 43eab74b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci +++ /dev/null @@ -1,186 +0,0 @@ -// 09.10.29 -// 09.11.15 -// 10.08.17 debug (line 66) - -function Menkakusi2(Face,Nf,Ptype) - global THETA PHI EyePoint FocusPoint VELNO VELHI; - Eps0=10^(-6); - Eps=10^(-4); - Tmp1=Face(1)-Face(2); - Tmp2=Face(3)-Face(2); - if norm(Tmp1)<Eps | norm(Tmp2)<Eps - return; - end; - Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2); - if norm(Vec)<Eps - return; - end; - if Ptype==-1 - W=EyePoint; - Tmp=Dotprod(Vec,W-Face(1)); - else - W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; - W=100*W; - Tmp=Dotprod(Vec,W-Face(1)); - end; - if abs(Tmp)<Eps - return; - end; - if Tmp<-Eps - Vec=-Vec; - end; - if Ptype==-1 - G1=Projpers(Spaceline(Face)); - else - G1=Projpara(Spaceline(Face)) - end; - VL=list(); - for I=1:Numptcrv(G1) - VL(I)=Ptcrv(I,G1); - end; - Out1L=list(); - Out2L=VELHI; - for N=1:length(VELNO) - Out1=list(); - Out2=list(); - Tmp=VELNO(N); - Edge=Tmp(1); - Ne=Tmp(2); - NNe=Tmp(3); - if Member(Nf,Ne) - Out1L($+1)=list(Edge,Ne,NNe); - continue; - end; - if Ptype==-1 - PtA=Perspt(Edge(1)); - PtB=Perspt(Edge(2)); - else - PtA=Parapt(Edge(1)); - PtB=Parapt(Edge(2)); - end; - if norm(PtA-PtB)<Eps continue; end; - Bdy=list(G1); - V=PtB-PtA; - TenL=KoutenList(PtA,V,Bdy); - Nten=length(TenL); - if Nten==0 // 10.08.17 - Out1L($+1)=list(Edge,Ne,NNe); - continue; - end; - Te=0; - Pe3=Edge(1); - if Ptype==-1 - Tmp1=Perspt(Pe3); - Tmp=Invperspt(Tmp1,Spaceline(Face)); - else - Tmp1=Parapt(Pe3); - Tmp=Invparapt(Tmp1,Spaceline(Face)); - end; - Qe3=Tmp(1); - Flg=0; - for I=1:Nten - TenP=TenL(I); - Ts=TenP(1); - P=TenP(2); - if Ts<-Eps - continue; - end; - Eline=Spaceline(Edge); - if Ptype==-1 - Tmp=Invperspt(P,Eline); - Tmp1=Invperspt(P,Spaceline(Face)); - else - Tmp=Invparapt(P,Eline) - Tmp1=Invparapt(P,Spaceline(Face)); - end; - P3=Tmp(1); Q3=Tmp1(1); - if Ts>1-Eps // P3, Q3 are necessary - Flg=I; - break; - end; - if abs(Te-Ts)>Eps0 // - if modulo(I,2)==1 - Out1($+1)=list(Pe3,P3); - else - if Qe3==[] - Tmp=Op(2,TenL(I-1)); - if Ptype==-1 - Tmp1=Invperspt(Tmp,Spaceline(Face)); - else - Tmp1=Invparapt(Tmp,Spaceline(Face)); - end; - Qe3=Tmp1(1); - end; - PM=0.5*(Pe3+P3); QM=0.5*(Qe3+Q3); - if Ptype==-1 - Z1=Zperspt(PM); Z2=Zperspt(QM); - else - Z1=Zparapt(PM); Z2=Zparapt(QM); - end; - if Z1>Z2 - Out1($+1)=list(Pe3,P3); - else - Out2($+1)=list(Pe3,P3); - end; - end; - end; - Te=Ts; Pe3=P3; Qe3=Q3; - end; - if Flg==0 - if norm(Pe3-Edge(2))>Eps0 - Out1($+1)=list(Pe3,Edge(2)); - end; - else - if modulo(Flg,2)==1 - Out1($+1)=list(Pe3,Edge(2)); - else - PM=0.5*(Pe3+P3); QM=0.5*(Qe3+Q3); - if Ptype==-1 - Z1=Zperspt(PM); Z2=Zperspt(QM); - else - Z1=Zparapt(PM); Z2=Zparapt(QM); - end; - if Z1>Z2 - Out1($+1)=list(Pe3,Edge(2)); - else - Out2($+1)=list(Pe3,Edge(2)); - end; - end; - end; - for I=1:length(Out1) - Tmp=Out1(I); - if I==1 - SeL=Tmp; - else - if norm(SeL(2)-Tmp(1))<Eps0 - SeL(2)=Tmp(2); - else - Out1L($+1)=list(SeL,Ne,NNe); - SeL=Tmp; - end; - end; - end; - if length(Out1)>0 - Out1L($+1)=list(SeL,Ne,NNe); - end; - for I=1:length(Out2) - Tmp=Out2(I); - if I==1 - SeL=Tmp; - else - if norm(SeL(2)-Tmp(1))<Eps0 - SeL(2)=Tmp(2); - else - Out2L($+1)=list(SeL,Ne,NNe); - SeL=Tmp; - end; - end; - end; - if length(Out2)>0 - Out2L($+1)=list(SeL,Ne,NNe); - end; - end; - VELNO=Out1L; - VELHI=Out2L; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin Binary files differdeleted file mode 100644 index acc02ec0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci deleted file mode 100644 index 4f06c437..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.20 -// 08.08.08 - -// Structure changed -// 09.10.11 - -function M=Mix(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Da=varargin(I); - M(I)=Da; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin Binary files differdeleted file mode 100644 index 50f6189c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci deleted file mode 100644 index daf5a2d9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 - -function M=MixL(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Da=varargin(I); - M(I)=Da; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin Binary files differdeleted file mode 100644 index 2372bb1f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci deleted file mode 100644 index 623af493..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.19 - -//Structure Changed - -// 09.10.11 - -function M=MixS(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Da=varargin(I); - M(I)=Da; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin Binary files differdeleted file mode 100644 index 0dbd5427..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci deleted file mode 100644 index 8d45fea1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci +++ /dev/null @@ -1,23 +0,0 @@ -// 05.14 Data Structure -// 05.16 List of MixList -// 05.19 use:MixS, MixL, Mixtype -// 08.08.17 - -// Structure changed -// 09.10.11 - -function M=Mixadd(varargin) - Nargs=length(varargin); - M=list(); - Tmp=varargin(1); - if length(Tmp)==0 - M(1)=varargin(2); - else - M=Tmp; - M($+1)=varargin(2); - end; - for I=3:Nargs - M($+1)=varargin(I); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin Binary files differdeleted file mode 100644 index 45325b78..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci deleted file mode 100644 index 2fed1197..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 -// 10.01.02 - -function Mixdisp(L) - if Mixtype(L)==1 - disp(L) - return; - end; - Str=Makeliststr(L); - disp(Str) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin Binary files differdeleted file mode 100644 index 6ed0a2a6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci deleted file mode 100644 index d6e49c14..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.05.18 -// 08.05.19 Changed -// 08.08.15 - -// Structure changed -// 09.10.11 - -function M=Mixjoin(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Tmp=varargin(I); - if length(Tmp)==0 - continue; - end; - if Mixtype(Tmp)==1 - Tmp=list(Tmp); - end; - if length(M)==0 - M=Tmp; - else - M=lstcat(M,Tmp); - end; - end; - if length(M)==0 - M=[]; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin Binary files differdeleted file mode 100644 index b601884d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci deleted file mode 100644 index 6fd31749..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.14 Data Structure -// 08.05.23 Debugged - -// Structure changed -// 09.10.11 - -function Out=Mixlength(PL) - if PL==[] - Out=0; - return - end - if Mixtype(PL)==1 - Out=size(PL,1); - else - Out=length(PL); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin Binary files differdeleted file mode 100644 index c607a109..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci deleted file mode 100644 index 7f05a2ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 - -function PL=Mixmake(varargin) - PL=list(); - for I=1:length(varargin) - Tmp=varargin(I); - PL=Mixadd(PL,Tmp); - end -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin Binary files differdeleted file mode 100644 index 9aa1f9f1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci deleted file mode 100644 index 10c846dc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci +++ /dev/null @@ -1,22 +0,0 @@ -// 08.05.14 Data Structure -// 08.04.15 List ex N=1:3 -// 08.05.16 List of MixL -// 08.05.18 Debugged -// 08.05.19 Changed -// 08.08.17 - -// Structure changed -// 09.10.11 - -function D=Mixop(N,PL) - D=[]; - if Mixtype(PL)==1 - D=PL; - return; - end; - if type(N)~=1 | length(N)>1 | N>Mixlength(PL) - return - end; - D=PL(N); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin Binary files differdeleted file mode 100644 index e2b2ba6a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci deleted file mode 100644 index e3e281f3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.19 -// 08.05.20 debugged -// 08.06.02 - -// Structure changed -// 09.10.11 - -function M=Mixsub(Rg,PL) - M=list(); - N=Mixlength(PL); - for I=Rg - if I>N - return; - end; - M($+1)=PL(I); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin Binary files differdeleted file mode 100644 index 4d786a5d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci deleted file mode 100644 index b336c763..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci +++ /dev/null @@ -1,19 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 - -function T=Mixtype(D) - if type(D)~=15 - T=1; - return; - end; - for I=1:length(D) - if type(D(I))==15 - T=3; - return; - end; - end; - T=2; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin Binary files differdeleted file mode 100644 index aa1e8c72..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci deleted file mode 100644 index 8a4f0557..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.18 -// 08.05.20 - -function Ptn=Naigai(A,Bdy) - V=[1,1]; - Call=Mixlength(Bdy); - KL=KoutenList(A,V,Bdy); - Ptn=zeros(1,Call); - for K=1:Mixlength(KL) - Ten=Op(K,KL); - T=Op(1,Ten); NC=Op(4,Ten); - if T<0 - Tmp=modulo(Ptn(NC)+1,2); - Ptn(1,NC)=Tmp; - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin Binary files differdeleted file mode 100644 index 0c5dc7b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci deleted file mode 100644 index 193ad384..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci +++ /dev/null @@ -1,4 +0,0 @@ -function N=Naiseki(a,b) - N=a*b'; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin Binary files differdeleted file mode 100644 index 59d31369..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci deleted file mode 100644 index a404370a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci +++ /dev/null @@ -1,53 +0,0 @@ -// 08.05.31 -// 08.06.03 -// 08.10.07 - -function Ans=Nearestpt(varargin) - Nargs=length(varargin); - PL1=varargin(1); - if size(PL1,1)==1 - Flg=0; - else - Flg=1 - end - Eps=10.0^(-6); -// Fig=varargin(2); - PL=varargin(2); - Ans=MixS(PL1(1,:),1,PL(1,:),1,norm(PL1(1,:)-PL(1,:))); - for N=1:size(PL1,1) - PA=PL1(N,:); - Pm=PL(1,:); - Im=1; - Sm=norm(Pm-PA); - for I=1:size(PL,1)-1 - A1=PL(I,1); A2=PL(I,2); - B1=PL(I+1,1); B2=PL(I+1,2); - V1=B1-A1; V2=B2-A2; - X1=PA(1); X2=PA(2); - Tmp=V2^2+V1^2; - if abs(Tmp)<Eps - continue; - end; - T=(-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp; - if T<-Eps - P=[A1,A2]; - elseif T>1+Eps - P=[B1,B2]; - else - P=[A1+T*V1,A2+T*V2]; - end - S=norm(P-PA); - if S<Sm-Eps - Tmp=ParamonCurve(P,I,PL); - Pm=P; Im=Tmp; Sm=S; - end - end - if Sm<Op(5,Ans) - Ans=MixS(PA,N,Pm,Im,Sm); - end - end - if Flg==0 - Ans=Mixsub(3:5,Ans); - end -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin Binary files differdeleted file mode 100644 index 038306fb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci deleted file mode 100644 index 9e0227e8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci +++ /dev/null @@ -1,9 +0,0 @@ -function Newlength(varargin) - if length(varargin)==0 - Kyorihensuu(); - else - FL=varargin(1); - Kyorihensuu(FL); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin Binary files differdeleted file mode 100644 index 701b77db..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci deleted file mode 100644 index 3826b281..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci +++ /dev/null @@ -1,254 +0,0 @@ -// 08.09.13 -// 09.12.31 (gsort) - -function FigkL=Nohiddenpara(varargin) - global HIDDENDATA THETA PHI; - Eps=0.001; - PaL=varargin(1); - Fk=varargin(2); - FuncdL=varargin(3); - Tmp=Mixop(1,FuncdL); - Fxy=Mixop(1,Tmp); - K=mtlb_findstr(Fxy,'='); - Fxy=part(Fxy,K+1:length(Fxy)); - Fbdxy=Mixop(2,FuncdL); - Tmp=Mixop(3,FuncdL); - Xname=Mixop(1,Tmp); - Tmp=Mixop(4,FuncdL); - Yname=Mixop(1,Tmp); - FigkL=[]; - if Fbdxy==[] - return; - end; - Bdy=Kyoukai(Fbdxy); - Ptn=0; - Fh=Projpara(Fk); - SeL=[]; - for N=1:length(PaL)-1 - S=(PaL(N)+PaL(N+1))/2; - P=PointonCurve(S,Fh); - Tmp=Invparapt(S,Fh,Fk) - Pk=Mixop(1,Tmp); - Qk=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; - Flg=zeros(1,Mixlength(Fbdxy)); - for I=1:1000 - Tmp=Pk+I*10*Qk; - Tmp1=Naigai(Tmp(1:2),Bdy); - if Tmp1==Flg - Flg=1; - Qk=Tmp; - break; - end; - end; - if Flg~=1 - disp('Bad EyePoint'); - return; - end; - T=poly(0,'t'); - P0=(1-T)*Pk+T*Qk; - X0str='('+pol2str(P0(1))+')'; - Y0str='('+pol2str(P0(2))+')'; - Z0str='('+pol2str(P0(3))+')'; - Tmp=strsubst(Fxy,Xname,X0str); - Tmp=strsubst(Tmp,Yname,Y0str); - Efn=Z0str+'-('+Tmp+')'; - t=0; - Tmp=evstr(Efn); - Eps=max(Eps,abs(Tmp)); - Tmp1=evstr([X0str,Y0str]); - t=1; - Tmp2=evstr([X0str,Y0str]); - Seg=Listplot([Tmp1,Tmp2]); - Tmp=[]; - for I=1:Mixlength(Fbdxy) - Tmp2=Mixop(I,Fbdxy); - Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps); - if Mixlength(Tmp1)>0 - Tmp2=[]; - for J=1:Mixlength(Tmp1) - Tmp3=Mixop(J,Tmp1); - Tmp3=Mixop(2,Tmp3)-1; - Tmp2=[Tmp2,Tmp3]; - end; - Tmp=[Tmp,Tmp2]; - else - Tmp2=Mixop(I,Fbdxy); - Tmp1=Nearestpt(Tmp2,Seg); - Tmp3=Mixop(5,Tmp1); - if Tmp3<Eps - Tmp4=Mixop(4,Tmp1); - Tmp=[Tmp,Tmp4-1]; - end; - end; - end; - if length(Tmp)==0 - SeL=[SeL,N]; - continue; - end; - Tmp=gsort(Tmp); - Tmp=Tmp(length(Tmp):-1:1); - ParamL=[0]; - for I=1:length(Tmp) - Tmp1=Tmp(I); - Tmp2=ParamL(length(ParamL)); - if Tmp1-Tmp2>Eps - ParamL=[ParamL,Tmp1]; - end; - end; - Nhdflg=0; - for M=1:length(ParamL)-1 - TL=[ParamL(M),ParamL(M+1)]; - t=TL(1); - Tmp1=evstr([X0str,Y0str]); - t=TL(2); - Tmp2=evstr([X0str,Y0str]); - Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy); - Tmp=modulo(sum(Tmp),2); - if Tmp==Ptn continue; end; - Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6); - t=TL(1); - Tmp1=evstr(Efn); - t=TL(2); - Tmp2=evstr(Efn); - if abs(Tmp1)<=Eps - if M>1 - Nhdflg=-10; - break; - end; - end; - if abs(Tmp2)<=Eps - Nhdflg=-10; - break; - end; - if Tmp2>Eps - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=min(VL); - if Tmp1<=-Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - else - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=max(VL); - if Tmp1>Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - end; - end; - if Nhdflg==0 - SeL=[SeL,N]; - end; - end; - FigL=[]; - FigkL=[]; - for I=1:length(SeL) - Tmp1=PointonCurve(PaL(SeL(I)),Fh); - Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - Tmp4=Partcrv3(TP,TQ,Fk) - FigkL=Mixadd(FigkL,Tmp4); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin Binary files differdeleted file mode 100644 index cbc317ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci deleted file mode 100644 index 996559db..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci +++ /dev/null @@ -1,131 +0,0 @@ -// 08.10.10 -// 08.10.15 -// 09.06.24 -// 10.02.16 Eps - -function FigkL=Nohiddenpara2(PaL,Fk,Fd,Uveq,Np,Eps) - global HIDDENDATA THETA PHI TMP; - Eps0=10^(-5); - Fh=Projpara(Fk); - P1=Ptstart(Fh); - P2=Ptend(Fh); - Csp=CuspPt(); - Cspflg=1; - for I=1:Mixlength(Csp) - Tmp=Mixop(I,Csp); - if norm(Tmp-P1)<Eps0 - select Cspflg, - case 1 then Cspflg=2, - case 3 then Cspflg=6; - end; - continue; - end; - if norm(Tmp-P2)<Eps0 - select Cspflg, - case 1 then Cspflg=3, - case 2 then Cspflg=6; - end; - continue; - end; - end; - SeL=[]; - for N=1:length(PaL)-1 - S=(PaL(N)+PaL(N+1))/2; - Tmp=Invparapt(S,Fh,Fk); - PtA=Mixop(1,Tmp); - PtAp=Parapt(PtA); - Vec=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; - Epstmp=Eps; - if N==1 & modulo(Cspflg,2)==0 - Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); // - Epstmp=[Tmp,Eps(2)]; // - end; - if N==length(PaL)-1 & modulo(Cspflg,3)==0 - Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); // - Epstmp=[Tmp,Eps(2)]; // - end; - Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp); - if Flg==0 - SeL=[SeL,N]; - end; - end; - FigL=[]; - FigkL=[]; - for I=1:length(SeL) - Tmp1=PointonCurve(PaL(SeL(I)),Fh); - Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - Tmp4=Partcrv3(TP,TQ,Fk) - FigkL=Mixadd(FigkL,Tmp4); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps(1) // - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps(1) // - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin Binary files differdeleted file mode 100644 index 1ad435a7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci deleted file mode 100644 index 140516b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci +++ /dev/null @@ -1,253 +0,0 @@ -// 08.09.21 -// 09.12.31 (gsort) - -function FigkL=Nohiddenpers(varargin) - global EyePoint FocusPoint HIDDENDATA; - Eps=0.001; - PaL=varargin(1); - Fk=varargin(2); - FuncdL=varargin(3); - Tmp=Mixop(1,FuncdL); - Fxy=Mixop(1,Tmp); - K=mtlb_findstr(Fxy,'='); - Fxy=part(Fxy,K+1:length(Fxy)); - Fbdxy=Mixop(2,FuncdL); - Tmp=Mixop(3,FuncdL); - Xname=Mixop(1,Tmp); - Tmp=Mixop(4,FuncdL); - Yname=Mixop(1,Tmp); - FigkL=[]; - if Fbdxy==[] - return; - end; - Bdy=Kyoukai(Fbdxy); - Ptn=0; - Fh=Projpers(Fk); - SeL=[]; - for N=1:length(PaL)-1 - S=(PaL(N)+PaL(N+1))/2; - P=PointonCurve(S,Fh); - Tmp=Invperspt(S,Fh,Fk) - Pk=Mixop(1,Tmp); - Flg=zeros(1,Mixlength(Fbdxy)); - for I=1:1000 - Tmp=Pk+I*(EyePoint-Pk); - Tmp1=Naigai(Tmp(1:2),Bdy); - if Tmp1==Flg - Flg=1; - Qk=Tmp; - break; - end; - end; - if Flg~=1 - disp('Bad EyePoint'); - return; - end; - T=poly(0,'t'); - P0=(1-T)*Pk+T*Qk; - X0str='('+pol2str(P0(1))+')'; - Y0str='('+pol2str(P0(2))+')'; - Z0str='('+pol2str(P0(3))+')'; - Tmp=strsubst(Fxy,Xname,X0str); - Tmp=strsubst(Tmp,Yname,Y0str); - Efn=Z0str+'-('+Tmp+')'; - t=0; - Tmp=evstr(Efn); - Eps=max(Eps,abs(Tmp)); - Tmp1=evstr([X0str,Y0str]); - t=1; - Tmp2=evstr([X0str,Y0str]); - Seg=Listplot([Tmp1,Tmp2]); - Tmp=[]; - for I=1:Mixlength(Fbdxy) - Tmp2=Mixop(I,Fbdxy); - Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps); - if Mixlength(Tmp1)>0 - Tmp2=[]; - for J=1:Mixlength(Tmp1) - Tmp3=Mixop(J,Tmp1); - Tmp3=Mixop(2,Tmp3)-1; - Tmp2=[Tmp2,Tmp3]; - end; - Tmp=[Tmp,Tmp2]; - else - Tmp2=Mixop(I,Fbdxy); - Tmp1=Nearestpt(Tmp2,Seg); - Tmp3=Mixop(5,Tmp1); - if Tmp3<Eps - Tmp4=Mixop(4,Tmp1); - Tmp=[Tmp,Tmp4-1]; - end; - end; - end; - if length(Tmp)==0 - SeL=[SeL,N]; - continue; - end; - Tmp=gsort(Tmp); - Tmp=Tmp(length(Tmp):-1:1); - ParamL=[0]; - for I=1:length(Tmp) - Tmp1=Tmp(I); - Tmp2=ParamL(length(ParamL)); - if Tmp1-Tmp2>Eps - ParamL=[ParamL,Tmp1]; - end; - end; - Nhdflg=0; - for M=1:length(ParamL)-1 - TL=[ParamL(M),ParamL(M+1)]; - t=TL(1); - Tmp1=evstr([X0str,Y0str]); - t=TL(2); - Tmp2=evstr([X0str,Y0str]); - Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy); - Tmp=modulo(sum(Tmp),2); - if Tmp==Ptn continue; end; - Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6); - t=TL(1); - Tmp1=evstr(Efn); - t=TL(2); - Tmp2=evstr(Efn); - if abs(Tmp1)<=Eps - if M>1 - Nhdflg=-10; - break; - end; - end; - if abs(Tmp2)<=Eps - Nhdflg=-10; - break; - end; - if Tmp2>Eps - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=min(VL); - if Tmp1<=-Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - else - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=max(VL); - if Tmp1>Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - end; - end; - if Nhdflg==0 - SeL=[SeL,N]; - end; - end; - FigL=[]; - FigkL=[]; - for I=1:length(SeL) - Tmp1=PointonCurve(PaL(SeL(I)),Fh); - Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - Tmp4=Partcrv3(TP,TQ,Fk) - FigkL=Mixadd(FigkL,Tmp4); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin Binary files differdeleted file mode 100644 index 7de094a4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci deleted file mode 100644 index d49bce91..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci +++ /dev/null @@ -1,134 +0,0 @@ -// 08.10.11 -// 08.10.12 -// 08.10.15 -// 09.06.24 -// 10.02.16 Eps -// 11.04.12 Eps0 (bug) -// 13.11.02 bug - -function FigkL=Nohiddenpers2(PaL,Fk,Fd,Uveq,Np,Eps) - global EyePoint FocusPoint HIDDENDATA; - Eps0=10^(-5); // 11.04.12 - Fh=Projpers(Fk); - P1=Ptstart(Fh); - P2=Ptend(Fh); - Csp=CuspPt(); - Cspflg=1; - for I=1:Mixlength(Csp) - Tmp=Mixop(I,Csp); - if norm(Tmp-P1)<Eps0 - select Cspflg, - case 1 then Cspflg=2, - case 3 then Cspflg=6; - end; - continue; - end; - if norm(Tmp-P2)<Eps0 - select Cspflg, - case 1 then Cspflg=3, - case 2 then Cspflg=6; - end; - continue; - end; - end; - SeL=[]; - for N=1:length(PaL)-1 - S=(PaL(N)+PaL(N+1))/2; - Tmp=Invperspt(S,Fh,Fk) - PtA=Mixop(1,Tmp); - PtAp=Perspt(PtA); -// Vec=EyePoint-FocusPoint; - Vec=EyePoint-PtA; // 2013.11.02 - Epstmp=Eps; // 2011.04.12 - if N==1 & modulo(Cspflg,2)==0 - Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); // - Epstmp=[Tmp,Eps(2)]; // - end; - if N==length(PaL)-1 & modulo(Cspflg,3)==0 - Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); // - Epstmp=[Tmp,Eps(2)]; // - end; - Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp); - if Flg==0 - SeL=[SeL,N]; - end; - end; - FigL=[]; - FigkL=[]; - for I=1:length(SeL) - Tmp1=PointonCurve(PaL(SeL(I)),Fh); - Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - Tmp4=Partcrv3(TP,TQ,Fk) - FigkL=Mixadd(FigkL,Tmp4); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps(1) // - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps(1) // - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin Binary files differdeleted file mode 100644 index dff5f719..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci deleted file mode 100644 index dad4f4ef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci +++ /dev/null @@ -1,4 +0,0 @@ -function N=Numptcrv(Fig) - N=size(Fig,1) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin Binary files differdeleted file mode 100644 index 544abced..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci deleted file mode 100644 index 20a86640..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci +++ /dev/null @@ -1,115 +0,0 @@ -// s : 2014.06.22 -// 2014.08.26 debugged 1,-1 => "+","-" -// 2014.09.07 Objjoin added -// 2016.10.09 Np in Spacecurve changed - -function Out=Objcurve(varargin) - global OBJFIGNO OBJJOIN - Eps=10^(-6); - Args=varargin; - Nargs=length(Args) - Tmp=Args(1); - PtL=Flattenlist(Tmp); - PL=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL=lstcat(PL,list(Tmp(K,:))) - end; - end; - Closed=norm(PL(length(PL))-PL(1))<Eps - Pstr="xy"; - Tmp=Args(Nargs) - if type(Tmp)==10 then - Pstr=Tmp; - Nargs=Nargs-1 - end; - Sz=0.1; - Np=4; - if Nargs>=2 then - Sz=Args(2) - end; - if Nargs>=3 then - Np=Args(3) - end; - Assign("Sz",Sz) - if Pstr=="xy" then - Vz=[0,0,1]; - Fs=Assign("[Sz*cos(t),Sz*sin(t),0]") - end; - if Pstr=="yz" then - Vz=[1,0,0]; - Fs=Assign("[0,Sz*cos(t),Sz*sin(t)]") - end; - if Pstr=="zx" then - Vz=[0,1,0]; - Fs=Assign("[Sz*sin(t),0,Sz*cos(t)]") - end; - Gc0=Spacecurve(Fs,"t=[0,2*%pi]","N="+string(Np));//16.10.09 - P=PL(1); Q=PL(2); R=PL(length(PL)-1); - PQ1=Q-P; - if ~Closed then - PQ2=PQ1 - else - PQ2=P-R - end; - Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2); - Vp1=Vp/norm(Vp); - Theta=acos(min(Dotprod(Vz,Vp1),1)); - Vj=Crossprod(Vz,Vp1); - if norm(Vj)<Eps then - Vj=Vz - end; - Gc1=Rotate3data(Gc0,Vj,Theta); - CL=list(Translate3data(Gc1,P)); - for J=2:(length(PL)-1) - P=PL(J); Q=PL(J+1); - PQ2=Q-P; - if norm(PQ2)<Eps then - continue - end; - Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2); - Vp2=Vp/norm(Vp); - Theta=acos(min(Dotprod(Vp1,Vp2),1)); - Vj=Crossprod(Vp1,Vp2); - if norm(Vj)<Eps then - Vj=Vp1 - end; - Gc2=Rotate3data(Gc1,Vj,Theta); - CL=lstcat(CL,list(Translate3data(Gc2,P))); - PQ1=PQ2; - Vp1=Vp2; - Gc1=Gc2; - end; - if ~Closed then - Vp2=(Q-P)/norm(Q-P); - Theta=acos(min(Dotprod(Vp1,Vp2),1)); - Vj=Crossprod(Vp1,Vp2); - if norm(Vj)<Eps then - Vj=Vp1 - end; - Gc3=Rotate3data(Gc1,Vj,Theta); - CL=lstcat(CL,list(Translate3data(Gc3,Q))) - end; - Objname(); // from 140907 - Join=Objjoin(); - Objjoin(1); // upto - GL1=CL(1); - for J=2:length(CL) - GL2=CL(J); - Dt=Objrecs(GL1,GL2,"-"); - GL1=Dt(2); - if J==2 then - GL0=Dt(1) - end; - end; - if ~Closed then - Objpolygon(CL(1),"-"); - N=length(CL); - Objpolygon(CL(N),"+") - else - Objrecs(GL1,GL0,"-") - end; - Out=CL - OBJJOIN=Join; // 140907 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin Binary files differdeleted file mode 100644 index 9b530ae6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci deleted file mode 100644 index e8a80ff3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci +++ /dev/null @@ -1,9 +0,0 @@ -// s: 2014.09.07 - -function Out=Objjoin(varargin) - global OBJJOIN - if length(varargin)>0 - OBJJOIN=abs(sign(varargin(1))) - end; - Out=OBJJOIN -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin Binary files differdeleted file mode 100644 index c1e415ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci deleted file mode 100644 index 6c523fc2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci +++ /dev/null @@ -1,11 +0,0 @@ -// s: 2014.09.07 - -function Objname() - global OBJFIGNO OBJJOIN - if OBJJOIN==0 then - OBJFIGNO=OBJFIGNO+1; - Gname="ketfig"+string(OBJFIGNO); - Printobjstr("# "+Gname); - Printobjstr("g "+Gname); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin Binary files differdeleted file mode 100644 index ad6e0eba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci deleted file mode 100644 index ba5b346a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci +++ /dev/null @@ -1,65 +0,0 @@ -// s : 2014.06.22 -// 14.09.07 Objjoin added - -function Out=Objpolygon(varargin) - global OBJFIGNO OBJJOIN - Eps=10^(-6); - Args=varargin; - Nargs=length(Args); - Tmp=Args(1); - PtL=Flattenlist(Tmp); - PL=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL=lstcat(PL,list(Tmp(K,:))) - end; - end; - Sel=Args(Nargs); Nargs=Nargs-1; - Objname(); // 140907 - for J=1:length(PL) - P=PL(J); - if (length(P)<4) | (P(4)==0) then - Np=Writeobjpoint(P); - PL(J)=[P(1:3),Np] - end; - end; - if Nargs==1 then - Tmp=PL(1); - Cen=Tmp(1:3); - Nc=Tmp(4) - else - Tmp=Args(2); - if length(Tmp)==1 then - Tmp1=PL(Tmp); - Cen=Tmp1(1:3); - Nc=Tmp(4) - else - Cen=Tmp; - Nc=Writeobjpoint(Cen) - end; - end; - for J=1:length(PL) - if J<length(PL) then - Je=J+1 - else - Je=1 - end; - Pt1=Cen; - PLj=PL(J); PLje=PL(Je); - Pt2=PLj(1:3); Pt3=PLje(1:3); - if norm(Crossprod(Pt2-Pt1,Pt3-Pt1))<Eps then - continue - end; - P1=sprintf("%1d",Nc); - P2=sprintf("%1d",PLj(4)) - P3=sprintf("%1d",PLje(4)) - if Sel=="+" then // 6.22 - Str="f "+P1+" "+P2+" "+P3+" " - else - Str="f "+P1+" "+P3+" "+P2+" " - end; - Printobjstr(Str) - end; - Out=PL -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin Binary files differdeleted file mode 100644 index a0fdf444..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci deleted file mode 100644 index c33e23a8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci +++ /dev/null @@ -1,25 +0,0 @@ -// s : 2014.06.22 -// 14.09.07 Objjoin added - -function Out=Objpolyhedron(Vertex,Face) - global NPOINT OBJFIGNO; - OBJFIGNO=OBJFIGNO+1; - Ninit=NPOINT; - Objname(); // 140907 - for N=1:length(Vertex) - P=Vertex(N); - Np=Writeobjpoint(P); - Vertex(N)=[P(1:3),Np] - end; - for N=1:length(Face) - F=Face(N)+Ninit; - Face(N)=F; - Str="f" - for J=1:length(F) - P=sprintf("%1d",F(J)); - Str=Str+" "+P - end; - Printobjstr(Str) - end; - Out=list(Vertex,Face) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin Binary files differdeleted file mode 100644 index 4f7b55de..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci deleted file mode 100644 index d8775fb3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci +++ /dev/null @@ -1,87 +0,0 @@ -// s : 2014.06.22 -// 2014.09.07 Objjoin added - -function Out=Objrecs(varargin) - global OBJFIGNO OBJJOIN - Eps=10^(-6); - Args=varargin; - Nargs=length(Args); - Tmp=Args(1); - PtL=Flattenlist(Tmp); - PL1=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL1=lstcat(PL1,list(Tmp(K,:))) - end; - end; - Sel=Args(Nargs); Nargs=Nargs-1; - Objname(); // // 140907 - for J=1:length(PL1) - P=PL1(J) - if (length(P)<4) | (P(4)==0) then - Np=Writeobjpoint(P); - PL1(J)=[P(1:3),Np]; - end; - end; - Tmp=Args(2); - if (type(Tmp)==1) & (size(Tmp,1)==1) then - Drv=Tmp; - Len=norm(Drv); - PL2=list(); - for J=1:length(PL1) - Tmp=PL1(J); - P=Tmp(1:3)+Drv; - Np=Writeobjpoint(P); - PL2=lstcat(PL2,list([P(1:3),Np])); - if J<length(PL1) then - Vec=PL1(J+1)-PL1(J); - if norm(Vec)>Eps then - Tmp1=Crossprod(Drv,Vec); - Tmp2=Crossprod(Tmp1,Vec); - Tmp3=Dotprod(Tmp2,Drv); - if Tmp3<-Eps then - Tmp2=-Tmp2 - end; - Drv=Len/norm(Tmp2)*Tmp2 - end - end - end - else - PtL=Flattenlist(Tmp); - PL2=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL2=lstcat(PL2,list(Tmp(K,:))) - end; - end; - for J=1:length(PL2) - P=PL2(J); - if (length(P)<4) | (P(4)==0) then - Np=Writeobjpoint(P); - PL2(J)=[P(1:3),Np] - end; - end; - end; - Printobjstr("vt 0 0"); - Printobjstr("vt 1 0"); - Printobjstr("vt 1 1"); - Printobjstr("vt 0 1"); - for J=2:length(PL1) - P1=sprintf("%1d",Op(4,PL1(J-1))); - P2=sprintf("%1d",Op(4,PL2(J-1))); - P3=sprintf("%1d",Op(4,PL2(J))); - P4=sprintf("%1d",Op(4,PL1(J))); - N1=""; N2=""; N3=""; N4=""; - if Sel=="+" then // 6.22 - Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" "; - Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4; - else - Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" "; - Str=Str+P3+"/3/"+N3+" "+P2+"/2/"+N2; - end; - Printobjstr(Str) - end; - Out=list(PL1,PL2) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin Binary files differdeleted file mode 100644 index 122e0986..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci deleted file mode 100644 index 15543b8a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci +++ /dev/null @@ -1,114 +0,0 @@ -// s : 2014.06.22 -// e : 2014.07.18 -// Objsurf, Objthicksurf : Range argments changed -// 2014.09.07 Objjoin added - -function Out=Objsurf(varargin) - global OBJFIGNO OBJJOIN - Args=varargin; - Nargs=length(Args); - Sel=Args(Nargs); Nargs=Nargs-1; - Rf=Args(1); - N=2; - Mg=0; Ng=0; - if type(Args(N))==1 then - if length(Args(N))>2 then - U=Args(N); - Mg=length(U)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - else - Ag=Args(N); Bg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - end; - if type(Args(N))==1 then - if length(Args(N))>2 then - V=Args(N); - Ng=length(V)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - else - Cg=Args(N); Dg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - end; - if Mg==0 then - Mg=Args(N); - N=N+1; - U=[]; - for J=1:(Mg+1) - U=[U,Ag+(J-1)/Mg*(Bg-Ag)]; - end; - end; - if Ng==0 then - Ng=Args(N); - V=[]; - for K=1:(Ng+1) - V=[V,Cg+(K-1)/Ng*(Dg-Cg)]; - end; - end; - Objname(); // // 140907 - PL=list(); - for J=1:(Mg+1) - for K=1:(Ng+1) - P=Rf(U(J),V(K)); - Np=Writeobjpoint(P) - PL=lstcat(PL,list([P,Np])); - end; - end; - Idx=1:(Ng+1):(Ng+1)*Mg+1; - Pus=Mixsub(Idx,PL); - Idx=(Ng+1):(Ng+1):(Ng+1)*(Mg+1); - Pue=Mixsub(Idx,PL); - Idx=1:1:Ng+1; - Pvs=Mixsub(Idx,PL); - Idx=(Ng+1)*Mg+1:1:(Ng+1)*(Mg+1); - Pve=Mixsub(Idx,PL); - Printobjstr("vt 0 0"); - Printobjstr("vt 1 0"); - Printobjstr("vt 1 1"); - Printobjstr("vt 0 1"); - for J=1:Mg - for K=1:Ng - P1=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K))) - P2=sprintf("%1d",Op(4,PL((Ng+1)*J+K))) - P3=sprintf("%1d",Op(4,PL((Ng+1)*J+K+1))) - P4=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K+1))) - N1=""; N2=""; N3=""; N4=""; - if Sel=="+" then // 6.22 - Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" "; - Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4; - else - Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" "; - Str=Str+P3+"/3/"+N3+" "+P2+"/2/",N2; - end; - Printobjstr(Str) - end; - end; - Out=list(U,V,Pus,Pue,Pvs,Pve) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin Binary files differdeleted file mode 100644 index 733ab14d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci deleted file mode 100644 index 808924a4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci +++ /dev/null @@ -1,7 +0,0 @@ -// s : 2014.08.25 - -function Objsymb(Symb,Thick,Face,Dir) - for J=1:length(Symb) - Objcurve(Symb(J),Thick,Face,Dir); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin Binary files differdeleted file mode 100644 index 6c85bcca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci deleted file mode 100644 index 42fde6a5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci +++ /dev/null @@ -1,123 +0,0 @@ -// s : 2014.06.22 -// e : 2014.07.18 -// Objsurf, Objthicksurf : Range argments changed -// 14.09.07 Objjoin added - -function Out=Objthicksurf(varargin) - global OBJJOIN - Args=varargin; - Nargs=length(Args) - Sel=Args(Nargs); Nargs=Nargs-1; - Selsurf=part(Sel,1); // from 6.22 - Selside=["0","0","0","0"]; // wesn - Tmp=mtlb_findstr(Sel,"w"); - if length(Tmp)>0 then - Selside(1)=part(Sel,Tmp+1) - end; - Tmp=mtlb_findstr(Sel,"e"); - if length(Tmp)>0 then - Selside(2)=part(Sel,Tmp+1) - end; - Tmp=mtlb_findstr(Sel,"s"); - if length(Tmp)>0 then - Selside(3)=part(Sel,Tmp+1) - end; - Tmp=mtlb_findstr(Sel,"n"); - if length(Tmp)>0 then - Selside(4)=part(Sel,Tmp+1) - end; - Nfth=Args(Nargs-2); - Thick1=Args(Nargs-1); - Thick2=Args(Nargs); - Nargs=Nargs-3; // upto 6.22 - Rfth=Args(1); // 6.22 - N=2; - Mg=0; Ng=0; - if type(Args(N))==1 then - if length(Args(N))>2 then - U=Args(N); - Mg=length(U)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - else - Ag=Args(N); Bg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - end; - if type(Args(N))==1 then - if length(Args(N))>2 then - V=Args(N); - Ng=length(V)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - else - Cg=Args(N); Dg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - end; - if Mg==0 then - Mg=Args(N); - N=N+1; - U=[]; - for J=1:(Mg+1) - U=[U,Ag+(J-1)/Mg*(Bg-Ag)]; - end; - end; - if Ng==0 then - Ng=Args(N); - V=[]; - for K=1:(Ng+1) - V=[V,Cg+(K-1)/Ng*(Dg-Cg)]; - end; - end; - Objname(); // 140907 from - Join=OBJJOIN; - OBJJOIN=1; // upto - deff("Out=F1(u,v)","Out=Rfth(u,v)+Thick1*Nfth(u,v)"); - deff("Out=F2(u,v)","Out=Rfth(u,v)+Thick2*Nfth(u,v)"); - Dt1=Objsurf(F1,U,V,Selsurf); - if Selsurf=="+" then Tmp="-"; else Tmp="+"; end; - Dt2=Objsurf(F2,U,V,Tmp); - Out=list(Dt1,Dt2); //from 06.22 - if Selside(1)~="0" then - Dt=Objrecs(Dt1(3),Dt2(3),Selside(1)); - Out=lstcat(Out,list(Dt)); - end - if Selside(2)~="0" then - Dt=Objrecs(Dt1(4),Dt2(4),Selside(2)); - Out=lstcat(Out,list(Dt)); - end - if Selside(3)~="0" then - Dt=Objrecs(Dt1(5),Dt2(5),Selside(3)); - Out=lstcat(Out,list(Dt)); - end - if Selside(4)~="0" then - Dt=Objrecs(Dt1(6),Dt2(6),Selside(4)); - Out=lstcat(Out,list(Dt)); - end; // upto 6.22 - OBJJOIN=Join // 140907 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin Binary files differdeleted file mode 100644 index e90f633d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci deleted file mode 100644 index 519bc9da..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 -// 10.01.10 available for plotdata -// 10.01.12 available for Dataindexed -// 10.01.16 - -function C=Op(N,Data) - C=[]; - if Mixtype(Data)>1 - C=Mixop(N,Data); - return; - end; - if type(Data)==10 - if size(Data,2)==1 - C=part(Data,N:N); - else - C=Data(N) - end; - return; - end; - if type(Data)==1 - if size(Data,1)==1 - C=Data(N); - else - Din=Dataindex(Data); - if size(Din,1)==1 - C=Data(N,:); - else - C=Data(Din(N,1):Din(N,2),:); - end; - end; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin Binary files differdeleted file mode 100644 index 3935c2e7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci deleted file mode 100644 index 4007e1b3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci +++ /dev/null @@ -1,106 +0,0 @@ - -// -// 10.01.10 filename written -// 13.05.20 openfile error tackled -// creator and date recorded -// 13.11.01 Beginpicture joined optionally - -function Openfile(varargin) - global Wfile FID; - - function Out=Datecount(F) - Tmp1=fileinfo(F); - Tmp=getdate(Tmp1(7)); - Year=Tmp(1); - Sec=((Tmp(4)-1)*24+Tmp(7))*3600+Tmp(8)*60+Tmp(9); - Out=[Year,Sec]; - endfunction - - function Out=Datestr(F) - if F~="" then - Tmp1=fileinfo(F); - Tmp=getdate(Tmp1(7)); - else - Tmp=getdate(); - end; - Year=Tmp(1); - Month=Tmp(2); - Day=Tmp(6); - Hour=Tmp(7); - Min=Tmp(8); - D=string(Year)+"-"+string(Month)+"-"+string(Day); - T=string(Hour)+":"+string(Min); - Out=D+" "+T; - endfunction - - File=varargin(1); - Bflg=0; - Creator=''; - Cflg=0; - Nargs=length(varargin); - for N=2:Nargs - Tmp=varargin(N); - K=mtlb_findstr(Tmp,"="); - if length(K)>0 then - Creator=part(Tmp,(K+1):length(Tmp)); - Cflg=1; - else - Bflg=1; - Unitstr=Tmp - end - end; - Recentf=''; - Tmp1=dir("*.sce"); - Files=Tmp1(2); - if size(Files,1)>0 then - Recentf=Files(1,:); - Dt=Datecount(Recentf); - for J=2:size(Files,1) - F=Files(J,:); - D=Datecount(F); - if D(1)~=Dt(1) then - if D(1)>Dt(1) then - Recentf=F; - Dt=D; - end - continue - end - if D(2)>Dt(2) then - Recentf=F; - Dt=D; - end - end; - end; - StrW="%%% "+File+" "+Datestr("") - StrC="%%% "+Creator; - if Cflg==0 then - if Recentf~="" then - StrC=StrC+Recentf+" "+Datestr(Recentf); - end - end - if File =='' then - Wfile='default'; - else -// errcatch(4,"continue"); // 2017.02.18 from -// Tmp=FID; -// if iserror(4) then -// FID=[]; -// errclear(4); -// end; -// if FID~=[] then -// mclose(FID); -// FID=[]; -// end -// errcatch(4,"kill"); // 2017.02.18 upto - FID=mopen(File,'w'); - Wfile=File; - end - if Wfile=='default' - mprintf('%s\n%s\n',StrW,StrC); - else - mfprintf(FID,'%s\n%s\n',StrW,StrC); - end - if Bflg==1 then - Beginpicture(Unitstr) - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin Binary files differdeleted file mode 100644 index e72281c1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci deleted file mode 100644 index e902ce5d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci +++ /dev/null @@ -1,33 +0,0 @@ -// s : 2014.06.22 -// e : 14.09.07 - -function Out=Openobj(Fnm) - global OBJFMT NPOINT NNORM OBJSCALE OBJFIGNO Wfile FID OBJJOIN - OBJFMT= "%7.4f"; - NPOINT= 0; - NNORM=0; - OBJSCALE=1; - OBJFIGNO=0; - OBJJOIN=0; // 140906 - if Fnm =='' then - Wfile='default'; - else -// errcatch(4,"continue"); //17.02.18from -// Tmp=FID; -// if iserror(4) then -// FID=[]; -// errclear(4); -// end; -// if FID~=[] then -// mclose(FID); -// FID=[]; -// end -// errcatch(4,"kill"); //17.02.18upto - if length(mtlb_findstr(Fnm,".obj"))==0 - Fnm=Fnm+".obj"; - end; - FID=mopen(Fnm,'w'); - Wfile=Fnm; - Out=Wfile; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin Binary files differdeleted file mode 100644 index a8d4c7fc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci deleted file mode 100644 index a3056f66..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.05.31 - -function Openpar(varargin) - global Wfile FID; - Nargs=length(varargin); - Tmp=varargin(1); - Tmp1=Strop(1,Tmp); - if Tmp1=='\' | Tmp1=='Â¥' - Namestr=Tmp; - N=2; - else - Namestr='\tmp'; - N=1; - end - Habastr=varargin(N); - if Nargs>N - Posstr='['+varargin(N+1)+']'; - else - Posstr='[c]' - end - Openphr(Namestr); - S='\begin{minipage}'+Posstr+'{'+Habastr+'}%'; - if Wfile=='default' - mprintf('%s\n',S); - else - mfprintf(FID,'%s\n',S); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin Binary files differdeleted file mode 100644 index f9d281d0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci deleted file mode 100644 index 461549e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.05.31 - -function Openphr(Str) - global Wfile FID - S='\def'+Str+'{%'; - if Wfile=='default' - mprintf('%s\n',S); - else - mfprintf(FID,'%s\n',S); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin Binary files differdeleted file mode 100644 index 877c0a04..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci deleted file mode 100644 index edf043ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci +++ /dev/null @@ -1,92 +0,0 @@ -// -// 09.12.25 -// 11.05.25 -// 14.03.05 MARKLEN -// 17.03.19 VL=[] => VL=""; - -function Openpicture(ul) - global Wfile FID XMIN XMAX YMIN YMAX ULEN - global MilliIn MARKLEN MARKLENNow PenThickInit; - Tmp=Doscaling([XMIN,YMIN]); - Xm=Tmp(1); - Ym=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - XM=Tmp(1); - YM=Tmp(2); - Dx=XM-Xm; - Dy=YM-Ym; - Sym='.0123456789 +-*/'; - Tmp=ascii(Sym); - SL=Sym; - OL='+-*/'; - if ul~='' - ULEN=ul; - end - Is=1; - VL=""; // 17.03.19 - Ucode=ascii(ULEN); - for I=1:length(Ucode) - C=char(Ucode(I)); - if mtlb_findstr(SL,C)~=[] - if mtlb_findstr(OL,C)~=[] - Str=char(Ucode(Is:(I-1))); - VL=VL+Str+C; - Is=I+1; - end - else - Unit=char(Ucode(I:(I+1))); - Str=char(Ucode(Is:(I-1))); - VL=VL+Str; - break; - end; - end; - Valu=evstr(VL); - Str=string(Valu); - ULEN=Str+Unit; - if Unit=='cm' - MilliIn=1000/2.54*Valu; - end - if Unit=='mm' - MilliIn=1000/2.54*Valu/10; - end - if Unit=='in' - MilliIn=1000*Valu; - end - if Unit=='pt' - MilliIn=1000/72.27*Valu; - end - if Unit=='pc' - MilliIn=1000/6.022*Valu; - end - if Unit=='bp' - MilliIn=1000/72*Valu; - end - if Unit=='dd' - MilliIn=1000/1238/1157/72.27*Valu; - end - if Unit=='cc' - MilliIn=1000/1238/1157/72.27*12*Valu;p - end - if Unit=='sp' - MilliIn=1000/72.27/65536*Valu/10; - end - MARKLEN=MARKLENNow*1000/2.54/MilliIn; - if Wfile=='default' - mprintf('%s%s%s\n','{\unitlength=',ULEN,'%'); - mprintf('%s\n','\begin{picture}%'); - mprintf('%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',... - '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); - Str='\special{pn '+string(PenThickInit)+'}%'; - mprintf('%s\n',Str); - mprintf('%s\n','%'); - else - mfprintf(FID,'%s%s%s\n','{\unitlength=',ULEN,'%'); - mfprintf(FID,'%s\n','\begin{picture}%'); - mfprintf(FID,'%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',... - '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); //11.05.25 - Str='\special{pn '+string(PenThickInit)+'}%'; - mfprintf(FID,'%s\n',Str); - mfprintf(FID,'%s\n','%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin Binary files differdeleted file mode 100644 index eca8a277..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci deleted file mode 100644 index 8889de32..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci +++ /dev/null @@ -1,42 +0,0 @@ -function Ovalbox(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - Pos=varargin(1); - Dr=varargin(2); - StrV=varargin(3); - R=0.2; - NDflg=0; - for I=4:Nargs - Tmp=varargin(I); - if type(Tmp)==1 - R=Tmp; - else - if part(Tmp,1)=='-' - NDflg=1; - Tmp1=part(Tmp,2:length(Tmp)); - Cmdstr=strsubst(Tmp1,'*','G1'); - end; - end; - end; - Xr=[XMIN,XMAX]; - Yr=[YMIN,YMAX]; - Uv=0.6; Uh=0.8; - N=length(StrV); - W=Uh; H=Uv*N; - Setwindow([-W/2,W/2],[-H,0]); - G1=Ovaldata([0,-H/2],W/2,H/2,R); - Openphr('\ketpictmp'); - Beginpicture('1cm'); - if NDflg==0 - Drwline(G1); - else - execstr(Cmdstr); - end; - for I=1:N - Letter([0,Uv/2-Uv*I],'c',Op(I,StrV)) - end; - Endpicture(0); - Closephr(); - Setwindow(Xr,Yr); - Letter(Pos,Dr,'\ketpictmp'); -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin Binary files differdeleted file mode 100644 index a33c17e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci deleted file mode 100644 index 823fc8c4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci +++ /dev/null @@ -1,31 +0,0 @@ -// e : 2015.11.15 -function Out=Ovaldata(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - if Nargs<=1 - Eps=1.0*10^(-4); - C=[(XMIN+XMAX)/2,(YMIN+YMAX)/2]; - Dx=XMAX-C(1)-Eps; - Dy=YMAX-C(2)-Eps; - N=1; - else - C=varargin(1); - Dx=varargin(2); - Dy=varargin(3); - N=4; - end; - Rc=0.2; - if N<=Nargs - Rc=varargin(N)*Rc; // 15.11.15 - end; - Out=[]; - P=C+[Dx-Rc,Dy-Rc]; - Tmp1=Circledata(P,Rc,'R=[0,%pi/2]','N=10'); - Tmp2=Listplot(C+[Dx-Rc,Dy],C+[0,Dy]); - Tmp3=Listplot(C+[Dx,0],C+[Dx,Dy-Rc]); - G=Joincrvs(Tmp3,Tmp1,Tmp2); - Tmp=Reflectdata(G,[C,C+[0,1]]); - G=Joincrvs(G,Tmp); - Tmp=Reflectdata(G,[C,C+[1,0]]); - Out=Joincrvs(G,Tmp); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin Binary files differdeleted file mode 100644 index e86a5592..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci deleted file mode 100644 index 82ac7c4f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 08.06.18 - -function P=Paramark(varargin) - Nargs=length(varargin); - PA=varargin(1); - PB=varargin(2); - PC=varargin(3); - R=0.5; - if Nargs>=4 - R=varargin(4)*R; - end - U=R*(PA-PB)/Vecnagasa(PA,PB); - V=R*(PC-PB)/Vecnagasa(PC,PB); - if Gaiseki(PA-PB,PC-PB)~=0 - P=Listplot([PB+U,PB+U+V,PB+V]); - else - P=[]; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin Binary files differdeleted file mode 100644 index 3479482b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci deleted file mode 100644 index ce7e0d76..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.30 - -function Out=ParamonCurve(P,N,PtL) -// PtL=Plt; - if N==size(PtL,1) - Out=N; - else - Pa=PtL(N,:); - Pb=PtL(N+1,:); - V=Pb-Pa; - W=P-Pa; - D2=V(1)^2+V(2)^2; - S=(V(1)*W(1)+V(2)*W(2))/D2; - S=min(max(S,0),1); - Out=N+S; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin Binary files differdeleted file mode 100644 index d3aeafcc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci deleted file mode 100644 index 83661787..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 09.10.03 - -function Out=Paramoncrv(varargin) - Eps=10^(-8); - Nargs=length(varargin); - P=varargin(1); - Gdata=varargin(Nargs); - if size(P,1)>1 - Tmp=P; P=Gdata; Gdata=Tmp; - end; - if Nargs==2 - Tmp=Nearestpt(P,Gdata); - Out=Mixop(2,Tmp); - return; - end; - N=varargin(2); - PtL=Gdata; - if N==size(PtL,1) - Out=N; - else - Pa=PtL(N,:); - Pb=PtL(N+1,:); - V=Pb-Pa; - W=P-Pa; - D2=norm(V)^2; - if D2<Eps - Out=0; - return; - end; - S=Dotprod(V,W)/D2; - S=min(max(S,0),1); - Out=N+S; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin Binary files differdeleted file mode 100644 index 79569617..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci deleted file mode 100644 index 4e3effdc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci +++ /dev/null @@ -1,140 +0,0 @@ -// 08.06.18 (N) -// 08.12.18 -// 09.03.12 -// 09.12.31 (gsort) -// 13.10.19 ( __ added to variables ) -// 14.10.24 N,D,E => N__, etc -// 14.12.11 Assign used -// 15.11.16 N changed to number of intervals -// 16.12.13 in case of T1=T2 - -function P__=Paramplot(varargin) - Eps__=10^(-5); - Nargs__=length(varargin); - if type(varargin(1))==13 - Fnflg__=1; - Fnx__=varargin(1); - Fny__=varargin(2); Is__=3; - if type(varargin(Is__))==13 - Fnflg__=Fnflg__+1; - Fnargx__=varargin(Is__); - Fnargy__=varargin(Is__+1); - Is__=Is__+2; - end; - else - Fnflg__=0; - Fnstr__=varargin(1); Is__=2; - end; - Rgstr__=varargin(Is__); Is__=Is__+1; - Range__=[0,2*%pi]; - N__=50; // Numpoints - E__=[]; // Exclusions - D__=%inf; // Discont - for I__=Is__:Nargs__ - Tmp__=varargin(I__); - K__=mtlb_findstr(Tmp__,'='); - Tmp1__=strsplit(Tmp__,[K__-1,K__]); - Tmp2__=ascii(Tmp1__(1,1)); - Lhs__=char(Tmp2__(1)); - Str__=Lhs__+'__='+Tmp1__(3,1); - execstr(Str__); - end; - K__=mtlb_findstr(Rgstr__,'='); - if K__~=[] - Tmp__=strsplit(Rgstr__,[K__-1,K__]); - Vname__=Tmp__(1,1); - Rng__=evstr(Tmp__(3,1)); - else - Vname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end - T1__=Rng__(1); T2__=Rng__(2); -// Dt__=(T2__-T1__)/(N__-1); - Dt__=(T2__-T1__)/(N__); // 15.11.16 - if Fnflg__==0 - Str__=Assign(Fnstr__,Vname__,'t__'); - end; - if abs(Dt__)<Eps__ then // 16.12.13 - t__=T1__; - P__=evstr(Str__); - return; - end; - P__=[]; - E__=gsort(E__); - E__=E__(length(E__):-1:1); - E__=[E__,%inf]; - Tmp__=gsort(E__); - E__=Tmp__(length(Tmp__):-1:1); - Ke__=1; - for t__=T1__:Dt__:T2__ - Pa__=[]; - if t__-E__(Ke__)<-Eps__ - if Fnflg__==0 - Pa__=evstr(Str__); - else - if Fnflg__==1 - Pa__=[Fnx__(t__),Fny__(t__)]; - else - if type(Fnargx__)==1 - Tmp1__=Fnx__(t__); - else - Tmp1__=Fnx__(Fnargx__,t__); - end; - if type(Fnargy__)==1 - Tmp2__=Fny__(t__); - else - Tmp2__=Fny__(Fnargy__,t__); - end; - Pa__=[Tmp1__,Tmp2__]; - end; - end; - end - if abs(t__-E__(Ke__))<=Eps__ - if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf] - Pa__=[%inf,%inf]; - end - end - if t__-E__(Ke__)>Eps__ - if Fnflg__==0 - Pa__=evstr(Str__); - else - if Fnflg__==1 - Pa__=[Fnx__(t__),Fny__(t__)]; - else - if type(Fnargx__)==1 - Tmp1__=Fnx__(t__); - else - Tmp1__=Fnx__(Fnargx__,t__); - end; - if type(Fnargy__)==1 - Tmp2__=Fny__(t__); - else - Tmp2__=Fny__(Fnargy__,t__); - end; - Pa__=[Tmp1__,Tmp2__]; - end; - end; - Ke__=Ke__+1; - end - if Pa__~=[] - if Pa__(1)==%inf - P__=[P__; Pa__] - elseif P__==[] - P__=[Pa__]; - else - Tmp__=P__(size(P__,1),:); - if Tmp__(1)==%inf - P__=[P__;Pa__]; - elseif norm(Tmp__-Pa__)<D__ - P__=[P__;Pa__]; - else - P__=[P__;%inf,%inf;Pa__]; - end - end - end - end; - Tmp__=size(P__,1); - if P__(Tmp__,1)==%inf - P__=P__(1:Tmp__-1,:); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin Binary files differdeleted file mode 100644 index 468a99cd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci deleted file mode 100644 index 5adb4837..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.07.11 -// 10.01.02 - -function Out=Parapt(P) - global PHI THETA - x=P(1); - y=P(2); - z=P(3); - Xz=-x*sin(PHI)+y*cos(PHI); - Yz=-x*cos(PHI)*cos(THETA)-y*sin(PHI)*cos(THETA)+z*sin(THETA); - Out=[Xz,Yz]; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin Binary files differdeleted file mode 100644 index a488103c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci deleted file mode 100644 index 0b4844df..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci +++ /dev/null @@ -1,42 +0,0 @@ -// 08.05.31 -// 09.03.06 - -function Ans=Partcrv(A,B,PkL) - Eps=10.0^(-3); - if type(A)==1 & length(A)==1 - // new part from - if A>B+Eps - Npt=Numptcrv(PkL); - Out1=Partcrv(A,Npt,PkL); - Out2=Partcrv(1,B,PkL); - Tmp=Ptstart(PkL)-Ptend(PkL); - if norm(Tmp)<Eps - Ans=Joincrvs(Out1,Out2); - else - Ans=Mix(Out1,Out2); - end; - return; - end; - // to here - Is=ceil(A); - Ie=floor(B); - PL=[]; - if A<Is-Eps - P=(Is-A)*PkL(Is-1,:)+(1-Is+A)*PkL(Is,:); - PL=[P]; - end - PL=[PL;PkL(Is:Ie,:)]; - if B>Ie+Eps - P=(1-B+Ie)*PkL(Ie,:)+(B-Ie)*PkL(Ie+1,:); - PL=[PL;P] - end - Ans=PL; - return - end; - Tmp=Nearestpt(A,PkL);// - Ta=Op(2,Tmp);// - Tmp=Nearestpt(B,PkL);// - Tb=Op(2,Tmp);// - Ans=Partcrv(Ta,Tb,PkL);// -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin Binary files differdeleted file mode 100644 index 5b652d87..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci deleted file mode 100644 index 5b3cd178..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 08.09.13 -// 09.03.06 - -function PL=Partcrv3(T1,T2,Fk) - Eps=10^(-4); -// Tmp=Mixop(1,Fk); - // new part from - if T1>T2+Eps - Npt=size(Fk,1); - Out1=Partcrv3(T1,Npt,Fk); - Out2=Partcrv3(1,T2,Fk); - Tmp=Fk(1,:)-Fk(Npt,:); - if norm(Tmp)<Eps - PL=Joincrvs(Out1,Out2); - else - PL=Mix(Out1,Out2); - end; - return; - end; - // to here - Is=ceil(T1); - Ie=floor(T2); - PL=[]; - if T1<Is-Eps - P=(Is-T1)*Fk(Is-1,:)+(1-Is+T1)*Fk(Is,:); - PL=[P] - end; - PL=[PL;Fk(Is:Ie,:)]; - if T2>Ie+Eps - P=(1-T2+Ie)*Fk(Ie,:)+(T2-Ie)*Fk(Ie+1,:); - PL=[PL;P] - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin Binary files differdeleted file mode 100644 index 1678ce6b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci deleted file mode 100644 index a8581b1b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci +++ /dev/null @@ -1,27 +0,0 @@ -// 13.05.03 - -function Out=Partframe(Tb,St,Ed) - G=Dividetable(Tb); - Gw=G(1); - Gt=G(2); - Gy=G(3); - Gwt=Tb(4); - Gwy=Tb(5); - Gat=lstcat(list(Gwt(1)),Gt,list(Gwt(2))); - Gay=lstcat(list(Gwy(1)),Gy,list(Gwy(2))); - Tmp1=Ptstart(Gat(St(1))); - Tmp2=Ptstart(Gay(St(2))); - Ps=[Tmp1(1),Tmp2(2)]; - Tmp1=Ptstart(Gat(Ed(1))); - Tmp2=Ptstart(Gay(Ed(2))); - Pe=[Tmp1(1),Tmp2(2)]; - Pars=Paramoncrv(Ps,Gw); - Pare=Paramoncrv(Pe,Gw); - if Pars<Pare then - Out=Partcrv(Pars,Pare,Gw); - else - Tmp1=Partcrv(Pars,Numptcrv(Gw),Gw); - Tmp2=Partcrv(1,Pare,Gw); - Out=Joincrvs(Tmp1,Tmp2); - end -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin Binary files differdeleted file mode 100644 index 13e1cb62..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci deleted file mode 100644 index 15d74ec4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.13 - -function Out=PartitionPt() - global PARTITIONPT; - Out=PARTITIONPT; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin Binary files differdeleted file mode 100644 index 7e736e20..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci deleted file mode 100644 index 39c23c45..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci +++ /dev/null @@ -1,100 +0,0 @@ -// 08.09.13 -// 08.10.17 -// 09.05.27 -// 09.12.31 (gsort) - -function Out=Partitionseg(varargin) - global PARTITIONPT OTHERPARTITION; - Nargs=length(varargin); - Fig=varargin(1); - GL=varargin(2); N=3; - Eps0=10^(-5); - Eps=0.05; - if Nargs>2 - Eps=varargin(3); - end; - Eps2=0.2; - if Nargs>3 - Eps2=varargin(4); - end; - if Nargs>4 - Ns=varargin(5); - Other=Mixop(Ns,OTHERPARTITION); - else - Ns=1; - Other=[]; - OTHERPARTITION=[]; - for N=1:Mixlength(GL) - OTHERPARTITION=Mixadd(OTHERPARTITION,[]); - end; - end; - Npt=size(Fig,1); - ParL=[1,Npt,Other]; - for N=Ns:Mixlength(GL) - G=Mixop(N,GL); - if Fig==G - KouL=IntersectselfPp(Fig,Eps,Eps2); - else - KouL=IntersectcrvsPp(Fig,G,Eps,Eps2); - Tmp=Nearestpt(Ptstart(Fig),G); - Tmp1=Mixop(1,Tmp); - Tmp2=Mixop(2,Tmp); - Tmp3=Mixop(3,Tmp); - if Tmp3>Eps0 & Tmp3<Eps - Tmp1=Mix(Tmp1,1,floor(Tmp2)); - KouL=Mixadd(KouL,Tmp1); - end; - Tmp=Nearestpt(Ptend(Fig),G); - Tmp1=Mixop(1,Tmp); - Tmp2=Mixop(2,Tmp); - Tmp3=Mixop(3,Tmp); - if Tmp3>Eps0 & Tmp3<Eps - Tmp1=Mix(Tmp1,Numptcrv(Fig),floor(Tmp2)); - KouL=Mixadd(KouL,Tmp1); - end; - end; - for I=1:Mixlength(KouL) - Tmp=Mixop(I,KouL); - P=Mixop(1,Tmp); - S=Mixop(2,Tmp); - ParL=[ParL,S]; - K=Mixop(3,Tmp); - S=ParamonCurve(P,K,G); - Tmp=Mixop(N,OTHERPARTITION); - Tmp1=gsort([Tmp,S]); - Tmp1=Tmp1(length(Tmp1):-1:1); - Tmp2=[]; - for J=1:Mixlength(OTHERPARTITION) - Tmp3=Mixop(J,OTHERPARTITION); - if J~=N - Tmp2=Mixadd(Tmp2,Tmp3); - else - Tmp2=Mixadd(Tmp2,Tmp1); - end; - end; - OTHERPARTITION=Tmp2; - end; - end; - ParL=gsort(ParL); - ParL=ParL(length(ParL):-1:1); - ParL(1)=1; - Out=[ParL(1)]; - P=PointonCurve(ParL(1),Fig); - PARTITIONPT=Mix(P); - for I=1:length(ParL) - Tmp=ParL(I); - P=PointonCurve(Tmp,Fig); - Tmp1=Out(length(Out)); - Q=PointonCurve(Tmp1,Fig); - if norm(P-Q)>Eps - Out=[Out,Tmp]; -// P=PointonCurve(Tmp,Fig); - PARTITIONPT=Mixadd(PARTITIONPT,P); - end; - end; - if Out(length(Out))~=Npt - Out=[Out(1:length(Out)-1),Npt]; - end; - if length(Out)==1 Out=[1,Npt]; end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin Binary files differdeleted file mode 100644 index e07e8ade..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci deleted file mode 100644 index eb689ffe..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 08.08.12 - -function Out=Perspt(P) - global FocusPoint EyePoint; - Tmp=P-FocusPoint; - X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3); - Tmp=EyePoint-FocusPoint; - E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); - Ca=E1/sqrt(E1^2+F1^2); - Sa=F1/sqrt(E1^2+F1^2); - X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1; - E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; - Cb=E2/sqrt(E2^2+G2^2); - Sb=G2/sqrt(E2^2+G2^2); - X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb; - E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb; - Yz=E3/(E3-X3)*Y3; - Zz=E3/(E3-X3)*Z3; - Out=[Yz,Zz]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin Binary files differdeleted file mode 100644 index c7fb3404..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci deleted file mode 100644 index ea2c8e28..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.17 - -function Out=PhFaceL() - global PHCUTPOINTL PHVERTEXL PHFACEL; - Out=PHFACEL; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin Binary files differdeleted file mode 100644 index 162ba3f6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci deleted file mode 100644 index d5333cd1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22
-
-function Out=PhHiddenData()
- global PHHIDDENDATA;
- Out=PHHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin Binary files differdeleted file mode 100644 index 7c4526ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci deleted file mode 100644 index 1eae4bc9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.17 - -function Out=PhVertexL() - global PHCUTPOINTL PHVERTEXL PHFACEL; - Out=PHVERTEXL; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin Binary files differdeleted file mode 100644 index 767e453e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci deleted file mode 100644 index 9c7806f5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci +++ /dev/null @@ -1,173 +0,0 @@ -// 08.08.17 -// 08.09.16 -// 10.01.02 -// 13.10.21 ( __ added to varibles ) -// 14.06.09 ( debugged -- the cause unknown ) - -function Out__=Phcutdata(VL__,FaceL__,PlaneD__) - global PHCUTPOINTL - Out__=[]; - EL__=[]; - Eps__=10^(-4); - for I__=1:Mixlength(FaceL__) - Face__=Mixop(I__,FaceL__); - for J__=1:length(Face__) - Nj__=J__+1; - if J__==length(Face__) - Nj__=1; - end; - N1__=Face__(J__); N2__=Face__(Nj__); - Tmp__=[N1__,N2__]; - Flg__=0; - for K__=1:Mixlength(EL__) - Tmp1__=Mixop(K__,EL__); - Tmp2__=[Tmp1__(2),Tmp1__(1)]; - if Tmp__==Tmp1__ | Tmp__==Tmp2__ - Flg__=1; - break; - end - end; - if Flg__==0 - EL__=Mixadd(EL__,Tmp__); - end; - end; - end; - Out0__=[]; - for I__=1:Mixlength(EL__) - Tmp__=Mixop(I__,EL__); - Tmp1__=Mixop(Tmp__(1),VL__); - Tmp2__=Mixop(Tmp__(2),VL__); - Out0__=Mixadd(Out0__, Spaceline([Tmp1__,Tmp2__])); - end; - if Mixtype(PlaneD__)~=1 - V1__=Mixop(1,PlaneD__); - Tmp__=Mixop(2,PlaneD__); - if length(Tmp__)>1 - d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - d__=Tmp__; - end; - elseif type(PlaneD__)==1 - V1__=PlaneD__(1:3); - d__=PlaneD__(4); - else - K__=mtlb_findstr(PlaneD__,'='); - if K__>0 - Tmp1__=part(PlaneD__,1:K__-1); - Tmp2__=part(PlaneD__,K__+1:length(PlaneD__)); - PlaneD__=Tmp1__+'-('+Tmp2__+')'; - end; - x=0; y=0; z=0; - d__=-evstr(PlaneD__); - x=1; y=0; z=0; - Tmp1__=evstr(PlaneD__)+d__; - x=0; y=1; z=0; - Tmp2__=evstr(PlaneD__)+d__; - x=0; y=0; z=1; - Tmp3__=evstr(PlaneD__)+d__; - V1__=[Tmp1__,Tmp2__,Tmp3__]; - end; - if V1__==[0,0,0] - Out__=Out0__; - return; - end; - V3__=[1,0,0]; - Out1__=Rotate3data(Out0__,V1__,V3__); -// x=poly(0,'X'); - Tmp2__=Rotate3pt([1,0,0],V3__,V1__); - Tmp__=V1__(1)*Tmp2__(1)+V1__(2)*Tmp2__(2)+V1__(3)*Tmp2__(3); - x0__=d__/Tmp__; - t__=poly(0,'T'); - PtL__ =[]; - for I__=1:Mixlength(Out1__) - Tmp__=Mixop(I__,Out1__); - Tmp1__=Tmp__(1,:); Tmp2__=Tmp__(2,:); - P__=Tmp1__+t__*(Tmp2__-Tmp1__); - Tmp__=Tmp1__(1)+t__*(Tmp2__(1)-Tmp1__(1)); - if abs(coeff(Tmp__,1))<Eps__ - Tmp__=[]; - else - Tmp1__=coeff(Tmp__,1); - Tmp2__=x0__-coeff(Tmp__,0); - Tmp__=[Tmp2__/Tmp1__]; - end; - if length(Tmp__)>0 - Tmp__=Tmp__(1); - if (Tmp__>-Eps__) & (Tmp__<1+Eps__) - Tmp3__=horner(P__,Tmp__); - Tmp3__=Rotate3pt(Tmp3__,V3__,V1__); - if Tmp__<Eps__ - Tmp1__=Mixop(I__,EL__); - Tmp1__=Tmp1__(1); - Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__); - else - if Tmp__>1-Eps__ then - Tmp1__=Mixop(I__,EL__); - Tmp1__=Tmp1__(2); - Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__); - else - Tmp4__=MixS(Mixop(I__,EL__),Tmp3__); - end; - end; - Flg__=0; - for J__=1:Mixlength(PtL__) - Tmp__=Mixop(J__,PtL__); - Tmp__=Mixop(2,Tmp__); - if norm(Tmp3__-Tmp__)<Eps__ then - Flg__=1; - break; - end; - end; - if Flg__==0 - PtL__=Mixadd(PtL__,Tmp4__); - end; - end; - end; - end; - if Mixlength(PtL__)==0 - Out__=Out0__; - return - end; - PL__=Mix(Mixop(1,PtL__)); - QL__=Mixsub(2:Mixlength(PtL__),PtL__); - N__=Mixlength(QL__); - for I__=2:N__+1 - Tmp1__=Mixop(Mixlength(PL__),PL__); - Tmp1__=Mixop(1,Tmp1__); - for J__=1:Mixlength(QL__) - Tmp2__=Mixop(J__,QL__); - Tmp2__=Mixop(1,Tmp2__); - Flg__=0; - for K__=1:Mixlength(FaceL__) - Tmp3__=Mixop(K__,FaceL__); - if Member(Tmp1__(1),Tmp3__) & Member(Tmp1__(2),Tmp3__) & Member(Tmp2__(1),Tmp3__) & Member(Tmp2__(2),Tmp3__) - Flg__=1; - break; - end; - end; - if Flg__==1 - break; - end; - end; - J__=min(J__, Mixlength(QL__)); - PL__=Mixadd(PL__,Mixop(J__,QL__)); - Tmp1__=Mixsub(1:J__-1,QL__); - Tmp2__=Mixsub(J__+1:Mixlength(QL__),QL__); - QL__=Mixjoin(Tmp1__,Tmp2__); - if Mixlength(QL__)==0 - break; - end; - end; - PHCUTPOINTL=PL__; - Tmp__=[]; - for J__=1:Mixlength(PL__); - Tmp1__=Mixop(J__,PL__); - Tmp1__=Mixop(2,Tmp1__); - Tmp__=Mixadd(Tmp__,Tmp1__); - end; - Tmp1__=Mixop(1,PL__); - Tmp1__=Mixop(2,Tmp1__); - Tmp__=Mixadd(Tmp__,Tmp1__); - Out2__=Spaceline(Tmp__); - Out__=Mixadd(Out0__,Out2__); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin Binary files differdeleted file mode 100644 index 5e7c757a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci deleted file mode 100644 index 879067ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci +++ /dev/null @@ -1,184 +0,0 @@ -// 08.08.17 -// 10.08.15 near line 25 or so -// 13.10.21 ( __ added to varibles ) - -function Out2__=Phcutoffdata(varargin) - global PHCUTPOINTL PHVERTEXL PHFACEL; - Eps__=10^(-4); - Out2__=[]; - VL__=varargin(1); - FaceL__=varargin(2); - PlaneD__=varargin(3); - Sgnstr__=varargin(4); - Fugou__=1; - if Sgnstr__=='-' | Sgnstr__=='n' Fugou__=-1; end; - Out0__=Phcutdata(VL__,FaceL__,PlaneD__); - PtL__=PHCUTPOINTL; - PHVERTEXL=VL__; - PHFACEL=FaceL__; - if PtL__==[] - Out2__=Out0__; - return; - end; - N1__=Mixlength(VL__); - Face__=[]; - for I__=1:Mixlength(PtL__); - Tmp__=Mixop(I__,PtL__); - Tmp3__=Mixop(1,Tmp__); // 2010.08.15 - Tmp1__=Tmp3__(1); Tmp2__=Tmp3__(2); // 2010.08.15 - if Tmp1__~=Tmp2__ - VL__=Mixadd(VL__,Mixop(2,Tmp__)); - N1__=N1__+1; - Tmp1__=N1__; - end; - Face__=[Face__,Tmp1__]; - PtL__(I__)=list(Mixop(1,Tmp__),Tmp1__); // 2010.08.15 -// Tmp2__=Mixsub(1:I__-1,PtL__); -// Tmp2__=Mixadd(Tmp2__,Mix(Mixop(1,Tmp__),Tmp1__)); -// Tmp3__=Mixsub(I__+1:Mixlength(PtL__),PtL__); -// PtL__=Mixjoin(Tmp2__,Tmp3__); - end; - OutfL__=MixS(Face__); - if Mixtype(PlaneD__)~=1 - V1__=Mixop(1,PlaneD__); - Tmp__=Mixop(2,PlaneD__); - if length(Tmp__)>1 - d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - d__=Tmp__; - end; - elseif type(PlaneD__)==1 - V1__=PlaneD__(1:3); - d__=PlaneD__(4); - else - K__=mtlb_findstr(PlaneD__,'='); - if K__>0 - Tmp1__=part(PlaneD__,1:K__-1); - Tmp2__=part(PlaneD__,K__+1:length(PlaneD__)); - PlaneD__=Tmp1__+'-('+Tmp2__+')'; - end; - x=0; y=0; z=0; - d__=-evstr(PlaneD__); - x=1; y=0; z=0; - Tmp1__=evstr(PlaneD__)+d__; - x=0; y=1; z=0; - Tmp2__=evstr(PlaneD__)+d__; - x=0; y=0; z=1; - Tmp3__=evstr(PlaneD__)+d__; - V1__=[Tmp1__,Tmp2__,Tmp3__]; - end; - for I__=1:Mixlength(FaceL__) - Face__=Mixop(I__,FaceL__); - TmpL__=[]; - for J__=1:length(Face__) - N1__=Face__(J__); - if J__==length(Face__) - N2__=Face__(1); - else - N2__=Face__(J__+1); - end; - for K__=1:Mixlength(PtL__) - Pd__=Mixop(K__,PtL__); - Tmp__=Mixop(1,Pd__); - if Tmp__(1)==Tmp__(2) - if Tmp__(1)==N1__ - TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__))); - end - else - if Tmp__==[N1__,N2__] | Tmp__==[N2__,N1__] - TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__))); - end; - end; - end; - end; - if Mixlength(TmpL__)<2 - Flg__=0; - for J__=1:length(Face__) - Tmp__=Mixop(Face__(J__),VL__); - Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__); - if Tmp1__<-Eps__ - Flg__=1; - break; - end; - end; - if Flg__==0 - OutfL__=Mixadd(OutfL__,Face__); - end; - continue; - end; - Pd__=Mixop(1,TmpL__); - Qd__=Mixop(2,TmpL__); - Outf1__=[Mixop(3,Pd__)]; - Nf__=Mixop(1,Pd__)+1; - Tmp__=Mixop(2,Pd__); - JJ__=0; - while Tmp__~=Mixop(2,Qd__) - JJ__=JJ__+1; - if JJ__>20 - disp('bug'); - return; - end; - Tmp1__=Tmp__(2); - if Outf1__(length(Outf1__))~=Tmp1__ - Outf1__=[Outf1__,Tmp1__]; - end; - Tmp__=[Face__(Nf__)]; - Nf__=Nf__+1; - if Nf__>length(Face__) Nf__=1; end; - Tmp__=[Tmp__,Face__(Nf__)]; - end; - Tmp1__=Mixop(3,Qd__); - if Outf1__(length(Outf1__))~=Tmp1__ - Outf1__=[Outf1__,Tmp1__]; - end; - Outf2__=[Mixop(3,Pd__)]; - Nf__=Mixop(1,Pd__); - Tmp__=Mixop(2,Pd__); - JJ__=0; - while Tmp__~=Mixop(2,Qd__) - JJ__=JJ__+1; - if JJ__>20 - disp('bug'); - return; - end; - Tmp1__=Tmp__(1); - if Outf2__(length(Outf2__))~=Tmp1__ - Outf2__=[Outf2__,Tmp1__] - end; - Tmp__=[Face__(Nf__)]; - Nf__=Nf__-1; - if Nf__<1 Nf__=length(Face__); end; - Tmp__=[Face__(Nf__),Tmp__]; - end; - Tmp1__=Mixop(3,Qd__); - if Outf2__(length(Outf2__))~=Tmp1__ - Outf2__=[Outf2__,Tmp1__] - end; - if length(Outf1__)<3 | length(Outf2__)<3 - Face__=Outf1__; - if length(Outf1__)<length(Outf2__) Face__=Outf2__; end; - Flg__=0; - for J__=1:length(Face__) - Tmp__=Mixop(Face__(J__),VL__); - Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__); - if Tmp1__<-Eps__ - Flg__=1; - break; - end; - end; - if Flg__==0 - OutfL__=Mixadd(OutfL__,Face__); - end; - else - Tmp__=Mixop(Outf1__(2),VL__); - Tmp1__=Outf1__; - Tmp2__=Fugou__*(Naiseki(V1__,Tmp__)-d__); - if Tmp2__<0 Tmp1__=Outf2__; end; - OutfL__=Mixadd(OutfL__,Tmp1__); - end; - end; - PHVERTEXL=VL__; - PHFACEL=OutfL__; - Out2__=Phcutdata(VL__,OutfL__,[0,0,0,0]); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin Binary files differdeleted file mode 100644 index 2e8372d4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci deleted file mode 100644 index 02fe98a5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.07.11 - -function Ang=Phidegree() - global PHI; - Ang=PHI*180/%pi; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin Binary files differdeleted file mode 100644 index f048d289..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci deleted file mode 100644 index 835c173e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.21 -// 09.10.27 - -function Out=Phparadata(VL,FaceL) - Out=Facesdata(list(VL,FaceL),'para'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin Binary files differdeleted file mode 100644 index fd962e37..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci deleted file mode 100644 index e422b6fc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.21 -// 09.10.27 - -function Out=Phpersdata(VL,FaceL) - Out=Facesdata(list(VL,FaceL),'pers'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin Binary files differdeleted file mode 100644 index ab558ee1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci deleted file mode 100644 index c4c79c26..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.21 -// 09.10.27 - -function Out=Phrawparadata(VL,FaceL) - Out=Facesdata(list(VL,FaceL),'rawpara'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin Binary files differdeleted file mode 100644 index b07adddd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci deleted file mode 100644 index 29870630..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.21 -// 09.10.27 - -function Phrawpersdata(VL,FaceL) - Out=Facesdata(list(VL,FaceL),'rawpers'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin Binary files differdeleted file mode 100644 index 5548e0e3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci deleted file mode 100644 index 3c8018e3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22 -// 09.10.27 - -function Out=Phsparadata(Fdata) - Out=Facesdata(Fdata,'para') -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin Binary files differdeleted file mode 100644 index b625f4d4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci deleted file mode 100644 index 58ab8101..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22 -// 09.10.27 - -function Out=Phspersdata(Fdata) - Out=Facesdata(Fdata,'pers') -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin Binary files differdeleted file mode 100644 index 7b3c7f0f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci deleted file mode 100644 index 6928d928..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22 -// 09.10.27 - -function Out=Phsrawparadata(Fdata) - Out=Facesdata(Fdata,'rawpara') -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin Binary files differdeleted file mode 100644 index 0594752f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci deleted file mode 100644 index 21677841..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22 -// 09.10.27 - -function Phsrawpersdata(Fdata) - Out=Facesdata(Fdata,'rawpers') -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin Binary files differdeleted file mode 100644 index 7d239bba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci deleted file mode 100644 index fc548f28..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci +++ /dev/null @@ -1,138 +0,0 @@ -// -// 08.06.18 (N) -// 08.08.24 -// 08.10.05 -// 08.12.18 -// 09.03.12 -// 09.12.31 (gsort) -// 13.10.19 (__ added to variables) -// 14.10.24 N,D,E => N__ ,... -// 14.12.11 Assign used, and debugged (Exfun ) -// 15.11.16 N changed to number of intervals -// 16.12.13 in case of X1=X2 - -function P__=Plotdata(varargin) - global XMIN XMAX YMIN YMAX - Eps__=10^(-5); - Fnstr__=varargin(1); Is__=2; - if type(Fnstr__)==13 - Fnflg__=1; - Fnarg__=varargin(Is__); - if type(Fnarg__)==13 - Fnflg__=Fnflg__+1; - Is__=Is__+1; - end; - else - Fnflg__=0; - end; - Rgstr__=varargin(Is__); Is__=Is__+1; - K__=mtlb_findstr(Rgstr__,'='); - if length(K__)>0 - Tmp__=strsplit(Rgstr__,[K__-1,K__]); - Vname__=Tmp__(1,1); - Rng__=evstr(Tmp__(3,1)); - else - Vname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end; - N__=50; // Numpoints - E__=[]; // Exclusions - Exfun__=''; // Exclusion function - D__=%inf; // Discont - for I__=Is__:length(varargin) - Tmp__=varargin(I__); - Lhs__=part(Tmp__,1); - K__=mtlb_findstr(Tmp__,'='); - Tmp1__=part(Tmp__,K__+1:length(Tmp__)); - if mtlb_findstr(Tmp__,Vname__)==[] - Str__=Lhs__+'__='+Tmp1__; - execstr(Str__); - else - Exfun__=Tmp1__; - end; - end; - X1__=Rng__(1); X2__=Rng__(2); -// dx__=(X2__-X1__)/(N__-1); - dx__=(X2__-X1__)/(N__); // 15.11.16 - if Fnflg__==0 - Str__=Assign(Fnstr__,Vname__,'x__'); - end; - if abs(dx__)<Eps__ then // 16.12.13 - x__=X1__; - P__=[X1__,evstr(Str__)]; - return; - end; - Exfun__=Assign(Exfun__,Vname__,'x__'); - if length(Exfun__)>0 then // 14.12.11 - Tmp__=mtlb_findstr(Exfun__,"x__"); - if length(Tmp__)==0 then - E__=evstr(Exfun__); - Exfun__=""; - end - end - P__=[]; - E__=gsort(E__); - E__=E__(length(E__):-1:1); - E__=[E__,%inf]; - Tmp__=gsort(E__); - E__=Tmp__(length(Tmp__):-1:1); - Ke__=1; - for x__=X1__:dx__:X2__ - if Exfun__~='' - Tmp__=evstr(Exfun__); - if abs(Tmp__)<Eps__ - P__=[P__;%inf,%inf]; - continue; - end; - end; - Pa__=[]; - if x__-E__(Ke__)<-Eps__ - if Fnflg__==0 - Pa__=[x__,evstr(Str__)]; - else - if Fnflg__==1 - Pa__=[x__,Fnstr__(x__)]; - else - Pa__=[x__,Fnstr__(Fnarg__,x__)]; - end; - end; - end; - if abs(x__-E__(Ke__))<=Eps__ - if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf] - Pa__=[%inf,%inf]; - end - end - if x__-E__(Ke__)>Eps__ - if Fnflg__==0 - Pa__=[x__,evstr(Str__)]; - else - if Fnflg__==1 - Pa__=[x__,Fnstr(x__)]; - else - Pa__=[x__,Fnstr__(Fnarg__,x__)]; - end; - end; - Ke__=Ke__+1; - end - if Pa__~=[] - if Pa__(1)==%inf - P__=[P__;Pa__] - elseif P__==[] - P__=[Pa__]; - else - Tmp__=P__(size(P__,1),:); - if Tmp__(1)==%inf - P__=[P__;Pa__]; - elseif norm(Tmp__-Pa__)<D__ - P__=[P__;Pa__]; - else - P__=[P__;%inf,%inf;Pa__]; - end - end - end - end; - Tmp__=size(P__,1); - if P__(Tmp__,1)==%inf - P__=P__(1:Tmp__-1,:); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin Binary files differdeleted file mode 100644 index 73d006ea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci deleted file mode 100644 index 35e2347e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci +++ /dev/null @@ -1,25 +0,0 @@ -// -// 08.05.23 -// 09.09.18 -// 13.05.03 list of points is outputted - -function PL=Pointdata(varargin) - Nargs=length(varargin); - PL=list(); - for I=1:Nargs - DL=varargin(I); - DL=Flattenlist(DL); - for K=1:length(DL); - Dt=DL(K); - for J=1:size(Dt,1) - Tmp=Dt(J,:); - if Tmp(1)~=%inf then - PL($+1)=Tmp; - end - end - end; - end; - if length(PL)==1 - PL=PL(1); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin Binary files differdeleted file mode 100644 index 1914f8a3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci deleted file mode 100644 index fd2a35d0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.30 - -function Out=PointonCurve(T,PtL) - Eps=10^(-4); - N=Trunc(T+Eps); - S=max(T-N,0); -// PtL=Plt; - if N==size(PtL,1) - Out=PtL(N,:); - else - Pa=PtL(N,:);; - Pb=PtL(N+1,:); - Out=(1-S)*Pa+S*Pb; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin Binary files differdeleted file mode 100644 index 69dc99ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci deleted file mode 100644 index c39cdadc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 09.10.03 - -function Out=Pointoncrv(varargin) - Eps=10^(-4); - T=varargin(1); - Gdata=varargin(2); - if size(T,1)>1 - Tmp=T; T=Gdata; Gdata=Tmp; - end; - PtL=Gdata; - N=Trunc(T+Eps); - S=max(T-N,0); - if N==size(PtL,1) - Out=PtL(N,:); - else - Pa=PtL(N,:);; - Pb=PtL(N+1,:); - Out=(1-S)*Pa+S*Pb; - end -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin Binary files differdeleted file mode 100644 index f85dfeb2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci deleted file mode 100644 index b23dfdc8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 09.03.12 - -function Out=Powersum(varargin) - Nargs=length(varargin); - COEFF=varargin(1); - x=varargin(2); - if Nargs>2 - x=x-varargin(3); - end; - NL=Mixop(1,COEFF); - A=Mixop(2,COEFF); - Upto=min(size(NL,2),size(A,2)); - NL=NL(1:Upto); - A=A(1:Upto); - Out=sum(A.*x^NL); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin Binary files differdeleted file mode 100644 index 54fceb67..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci deleted file mode 100644 index bc866928..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci +++ /dev/null @@ -1,10 +0,0 @@ -// 09.08.23 - -function Out=Prime(varargin) - if length(varargin)==0 - Out=char(39); - else - Out=varargin(1)+char(39); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin Binary files differdeleted file mode 100644 index 3e8d6ca7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci deleted file mode 100644 index bf137751..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci +++ /dev/null @@ -1,10 +0,0 @@ -// s : 2014.06.22 - -function Printobjstr(Str) - global Wfile FID; - if Wfile=='default' then - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin Binary files differdeleted file mode 100644 index 22cf9f20..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci deleted file mode 100644 index bbe28c12..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci +++ /dev/null @@ -1,32 +0,0 @@ -// 08.07.11 -// 08.10.07 -// 09.06.02 -// 09.08.23 - -function AnsL=ProjCurve(Curve) - global PHI THETA; - Eps=10^(-6); - AnsL=[]; // Added - SP=sin(PHI); CP=cos(PHI); - ST=sin(THETA); CT=cos(THETA); - for I=1:size(Curve,1) - P=Curve(I,:); - x=P(1); y=P(2); z=P(3); - if x~=%inf - Xz=-x*SP+y*CP; - Yz=-x*CP*CT-y*SP*CT+z*ST; - Tmp=[Xz,Yz]; - if I==1 - AnsL=[Tmp]; - else - Tmp1=AnsL(size(AnsL,1),:); - if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps - AnsL=[AnsL;Tmp]; - end; - end; - else - AnsL=[AnsL;%inf,%inf]; - end; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin Binary files differdeleted file mode 100644 index 1a815b50..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci deleted file mode 100644 index 74c552a6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.07.11 -// 08.10.16 - -function Out=ProjcoordCurve(Curve) - global PHI THETA; - SP=sin(PHI); CP=cos(PHI); - ST=sin(THETA); CT=cos(THETA); - Out=[]; - for J=1:size(Curve,1) - P=Curve(J,:); - x=P(1); y=P(2); z=P(3); - Xz=-x*SP+y*CP; - Yz=-x*CP*CT-y*SP*CT+z*ST; - Zz=x*CP*ST+y*SP*ST+z*CT; - Out=[Out;Xz,Yz,Zz]; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin Binary files differdeleted file mode 100644 index c78a60ff..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci deleted file mode 100644 index 82feeff2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 08.07.11 -// 08.07.15 -// 08.08.12 -// 08.10.28 - -function CL=Projpara(varargin) - Nargs=length(varargin); - Flg=0; - if Nargs==1 & Mixtype(varargin(1))==1 - Flg=1; - end; - CL=[]; - for N=1:Nargs - Crv=varargin(N); - if Mixtype(Crv)==1 - Tmp=ProjCurve(Crv); - CL=Mixadd(CL,Tmp); - else - if Mixtype(Crv)==3 - ObjL=[]; - for I=1:Mixlength(Crv) - Tmp1=Mixop(I,Crv); - if Mixtype(Tmp1)==1 - ObjL=Mixadd(ObjL,Tmp1); - else - ObjL=Mixjoin(ObjL,Tmp1); - end; - end; - Crv=ObjL; - end; - for J=1:Mixlength(Crv) - Tmp=ProjCurve(Mixop(J,Crv)); - CL=Mixadd(CL,Tmp); - end - end - end - if Mixlength(CL)==1 & Flg==1 - CL=Mixop(1,CL); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin Binary files differdeleted file mode 100644 index fe160426..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci deleted file mode 100644 index b43451a9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 08.08.12 -// 08.10.28 - -function CL=Projpers(varargin) - Nargs=length(varargin); - Flg=0; - if Nargs==1 & Mixtype(varargin(1))==1 - Flg=1; - end; - CL=[]; - for N=1:Nargs - Crv=varargin(N); - if Mixtype(Crv)==1 - Tmp=CameraCurve(Crv); - CL=Mixadd(CL,Tmp); - else - if Mixtype(Crv)==3 - ObjL=[]; - for I=1:Mixlength(Crv) - Tmp1=Mixop(I,Crv); - if Mixtype(Tmp1)==1 - ObjL=Mixadd(ObjL,Tmp1); - else - ObjL=Mixjoin(ObjL,Tmp1); - end; - end; - Crv=ObjL; - end; - for J=1:Mixlength(Crv) - Tmp=CameraCurve(Mixop(J,Crv)); - CL=Mixadd(CL,Tmp); - end - end - end - if Mixlength(CL)==1 & Flg==1 - CL=Mixop(1,CL); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin Binary files differdeleted file mode 100644 index 6ba89403..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci deleted file mode 100644 index 78776d7b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci +++ /dev/null @@ -1,4 +0,0 @@ -function P=Ptcrv(N,Fig) - P=Fig(N,:) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin Binary files differdeleted file mode 100644 index 9cc74d07..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci deleted file mode 100644 index d16ebf80..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci +++ /dev/null @@ -1,4 +0,0 @@ -function P=Ptend(Fig) - P=Fig(size(Fig,1),:) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin Binary files differdeleted file mode 100644 index f195927d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci deleted file mode 100644 index 98f2ca94..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci +++ /dev/null @@ -1,250 +0,0 @@ -// 08.10.10 -// 08.10.12 -// 08.10.15 -// 08.10.26 -// 09.06.05 -// 09.09.10 -// 09.10.12 debug -// 09.11.07 debugged -// 10.02.16 Eps__ -// 13.10.22 ( __ added to variables ) - -function Out__=PthiddenQ(PtA__,Vec__,Fd__,Uveq__,Np__,EPS__) -// Out__=1 : hidden -// SL__ : List of segments near PtA__+Vec__ - Eps__0=10^(-4)*(Xmax()-Xmin())/10; - Eps__=EPS__(1)*(Xmax()-Xmin())/10; // - Out__=0; - Vec__1=1/norm(Vec__)*Vec__; - PtL__=[]; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Mixop(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - FdL__=Fullformfunc(Fd__); - Xf__=Mixop(2,FdL__); - Yf__=Mixop(3,FdL__); - Zf__=Mixop(4,FdL__); - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); UMax__=Urg__(2); - Vmin__=Vrg__(1); VMax__=Vrg__(2); - V1__='('+string(Vec__(1))+')'; - V2__='('+string(Vec__(2))+')'; - V3__='('+string(Vec__(3))+')'; - Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))'; - Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))'; - Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))'; - Urg__str=Mixop(5,FdL__); - Vrg__str=Mixop(6,FdL__); - if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0 - Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__; - else - Eq__=Xstr__; - end; - MS__=Mix(Eq__,Urg__str,Vrg__str,Np__); - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - SL__=[]; - for J__=1:length(Yval__)-1 - for I__=1:length(Xval__)-1 - a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__); - a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1); - a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1); - a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__); - PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; - VL__=[c1__,c2__,c3__,c4__,c1__]; - QL__=[]; - for K__=1:4 - P1__=PL__(K__,:); P2__=PL__(K__+1,:); - M1__=VL__(K__); M2__=VL__(K__+1); - if M1__>=Eps__0 & M2__>=Eps__0 - continue; - end; - if M1__<=-Eps__0 & M2__<=-Eps__0 - continue; - end; - if abs(M1__)<Eps__0 - Tmp__=P1__; - elseif abs(M2__)<Eps__0 - continue; - else - Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); - end; - QL__=[QL__;Tmp__]; - end; - if size(QL__,1)==2 - Puv1__=QL__(1,:); Puv2=QL__(2,:); - Tmp__1=Puv1__(1); - Tmp__2=Puv1__(2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - P1__=[Xv__,Yv__,Zv__]; - Tmp__1=Puv2(1); - Tmp__2=Puv2(2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - P2__=[Xv__,Yv__,Zv__]; - if norm(P1__-P2__)<Eps__0 // 09.11.07 - continue; - end; // - Tmp__1=norm(P1__-PtA__); - Tmp__2=Naiseki(P1__-PtA__,Vec__1); - Tmp__3=sqrt(abs(Tmp__1^2-Tmp__2^2)); - Tmp__4=norm(P2__-PtA__); - Tmp__5=Naiseki(P2__-PtA__,Vec__1); - Tmp__6=sqrt(abs(Tmp__4^2-Tmp__5^2)); - if Tmp__2<Tmp__5 - Tmp__=P1__; P1__=P2__; P2__=Tmp__; - Tmp__=Tmp__2; Tmp__2=Tmp__5; Tmp__5=Tmp__; - Tmp__=Tmp__3; Tmp__3=Tmp__6; Tmp__6=Tmp__; - end; - if Tmp__3<EPS__(2)*Eps__ & Tmp__6<EPS__(2)*Eps__ // - if Tmp__2>-Eps__0 - if Tmp__5<-Eps__0 - SL__=[SL__;P1__,P2__,-1]; - else - SL__=[SL__;P1__,P2__,1]; - end; - end; - end; - V1__=Vec__1(1); V2__=Vec__1(2); V3__=Vec__1(3); - if abs(V1__)>Eps__0 - M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3); - M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3); - elseif abs(V2__)>Eps__0 - M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3); - M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3); - else - M1__=PtA__(2)-P1__(2); - M2__=PtA__(2)-P2__(2); - end; - if M1__*M2__>=0 - if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0) - continue; - end; - if abs(M1__)<=Eps__0 - Pt__=P1__; Ptuv__=Puv1__; - else - Pt__=P2__; Ptuv__=Puv2; - end; - else - Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); - Ptuv__=1/(M1__-M2__)*(-M2__*Puv1__+M1__*Puv2); - end; - if type(Uveq__)==10 - Tmp__1='('+string(Ptuv__(1))+')'; - Tmp__2='('+string(Ptuv__(2))+')'; - Tmp__=strsubst(Uveq__,Uname__,Tmp__1); - Tmp__=strsubst(Tmp__,Vname__,Tmp__2); - Tmp__=evstr(Tmp__); - if Tmp__<-Eps__0 - continue; - end; - end; - Tmp__1=Dotprod(Pt__-PtA__,Vec__1); - Tmp__2=abs(Tmp__1); - Tmp__3=Dotprod(P1__-P2__,Vec__1); - Tmp__4=norm(P1__-P2__); - Tmp__6=Tmp__3/Tmp__4; - if Tmp__1>Eps__0 - if abs(Tmp__6)>0.75 // from - PtL__=[PtL__;Pt__,P2__]; - continue; - end; // upto - if Tmp__2>Eps__ - Out__=1; - return - end; - if Tmp__2<2*Eps__ - continue; - end; - end; - end; - end; - end; - if PtL__==[] - return; - end; - for I__=1:size(SL__,1) - P2__=SL__(I__,4:6); - Flg__=0; - for J__=1:size(SL__,1) - P=SL__(J__,1:3); - if norm(P-P2__)<Eps__0 - SL__(I__,7)=J__; - Flg__=1; - break; - end; - end; - if Flg__==0 & SL__(I__,7)>0 - SL__(I__,7)=-2; - end; - end; - for I__=1:size(PtL__,1) - P__=PtL__(I__,4:6); - Flg__=0; - for J__=1:size(SL__,1) - P1__=SL__(J__,1:3); - if norm(P1__-P__)<Eps__0 - Flg__=1; - break; - end; - end; - if Flg__==0 - Pt__=PtL__(I__,1:3); // from - Tmp__0=norm(P__-Pt__); - Tmp__1=abs(Dotprod(P__-Pt__,Vec__1)); - Tmp__2=sqrt(abs(Tmp__0^2-Tmp__1^2)); - Tmp__3=Tmp__2*norm(Pt__-PtA__)/Tmp__0; // should to be changed 10.02.16 - if Tmp__3>Eps__/5 - Out__=1; - return; - else - continue; - end; // upto - end; - Nxt__=SL__(J__,7); - while Nxt__>0 - P__=SL__(Nxt__,4:6); - Nxt__=SL__(Nxt__,7); - end; - if Nxt__==-2 - Out__=1; - return; - else - Out__=0; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin Binary files differdeleted file mode 100644 index 00ce8734..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci deleted file mode 100644 index f6452897..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 10.01.13 - -function Out=Ptne(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMAX,YMAX]; - else - G=varargin(1); - XM=max(G(:,1)); - YM=max(G(:,2)); - Out=[XM,YM]; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin Binary files differdeleted file mode 100644 index d8c23898..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci deleted file mode 100644 index e3cd5ebc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 10.01.13 - -function Out=Ptnw(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMIN,YMAX]; - else - G=varargin(1); - Xm=min(G(:,1)); - YM=max(G(:,2)); - Out=[Xm,YM]; - end; - endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin Binary files differdeleted file mode 100644 index 19bd2ccc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci deleted file mode 100644 index fe5e52b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 10.01.13 - -function Out=Ptse(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMAX,YMIN]; - else - G=varargin(1); - XM=max(G(:,1)); - Ym=min(G(:,2)); - Out=[XM,Ym]; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin Binary files differdeleted file mode 100644 index c87076aa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci deleted file mode 100644 index f94437cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci +++ /dev/null @@ -1,4 +0,0 @@ -function P=Ptstart(Fig) - P=Fig(1,:) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin Binary files differdeleted file mode 100644 index df35b82c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci deleted file mode 100644 index 5b0a3474..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 10.01.13 - -function Out=Ptsw(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMIN,YMIN]; - else - G=varargin(1); - Xm=min(G(:,1)); - Ym=min(G(:,2)); - Out=[Xm,Ym]; - end; -endfunction
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin Binary files differdeleted file mode 100644 index baf3e29f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci deleted file mode 100644 index e0020f0b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci +++ /dev/null @@ -1,72 +0,0 @@ -// 09.11.26 -// 09.12.06 -// 09.12.25 -// 09.12.29 - -function Putcell(varargin) - Nargs=length(varargin); - TbL=varargin(1); - Str=varargin(Nargs); - if type(Str)==1 - Str=string(Str); - end; - Pos=varargin(Nargs-1); - Nrg=varargin(2); - if type(Nrg)==10 - if Nargs==4 - Cell=Findcell(TbL,Nrg); - else - Mrg=varargin(3); - Cell=Findcell(TbL,Nrg,Mrg); - end; - else - Mrg=varargin(3); - Cell=Findcell(TbL,Nrg,Mrg); - end; - Pt=Cell(1); Dr='c'; - Posh=part(Pos,1); - Post=part(Pos,2:length(Pos)); - if (Posh=='r')|(Posh=='R') - Pt=Pt+[Cell(2),0]; - if length(Post)==0 - Dr='w1'; - else - Dr='w'+Post; - end; - end; - if (Posh=='l')|(Posh=='L') - Pt=Pt-[Cell(2),0]; - if length(Post)==0 - Dr='e1'; - else - Dr='e'+Post; - end; - end; - if (Posh=='u')|(Posh=='U') - Pt=Pt+[0,Cell(3)]; - if length(Post)==0 - Dr='s1'; - else - Dr='s'+Post; - end; - end; - if (Posh=='d')|(Posh=='D') - Pt=Pt-[0,Cell(3)]; - if length(Post)==0 - Dr='n1'; - else - Dr='n'+Post; - end; - end; - if (Posh=='b')|(Posh=='B') - Pt=Pt-[0,Cell(3)]; - if length(Post)==0 - Dr='n1'; - else - Dr='n'+Post; - end; - Str='$\mathstrut$'+Str; - end; - Letter(Pt,Dr,Str); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin Binary files differdeleted file mode 100644 index 3a9d0634..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci deleted file mode 100644 index 63bc151f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 09.11.26 - -function Putcirmark(TbL,Nrg,Mrg,Dt) - if type(Dt)==10 - N=1; Pos=Dt; Str=''; - else - N=length(Dt); Pos='l'; Str='\hspace*{2mm}'; - end; - for I=1:N - Tmp1=Dt(I); - Str=Str+'\cirmark'; - if I<N - Str=Str+'\hspace{3mm}'; - end; - end; - Putcell(TbL,Nrg,Mrg,Pos,Str); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin Binary files differdeleted file mode 100644 index b7994dc4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci deleted file mode 100644 index 41b9a1b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 09.12.06 -// 10.01.26 - -function PutcoL(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Ag=varargin(2); - if type(Ag)==1 - CoL=Ag; - else - Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; - Clm=[]; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp-1]; - end; - end; - Nrg=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg=Nrg+Tmp*26^Tmp1; - end; - CoL=Nrg; - end; - Nr=length(TbL(3))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Putcell(TbL,CoL,K,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str=Dt(N); - Rrng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Rrng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,CoL,Rrng,Pos,Str) - K=Rrng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin Binary files differdeleted file mode 100644 index 304768e4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci deleted file mode 100644 index 0e2f9d0a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 10.04.01 - -function PutcoLexpr(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Ag=varargin(2); - if type(Ag)==1 - CoL=Ag; - else - Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; - Clm=[]; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp-1]; - end; - end; - Nrg=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg=Nrg+Tmp*26^Tmp1; - end; - CoL=Nrg; - end; - Nr=length(TbL(3))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Dt='$'+Dt+'$'; - Putcell(TbL,CoL,K,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str='$'+Dt(N)+'$'; - Rrng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Rrng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,CoL,Rrng,Pos,Str) - K=Rrng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin Binary files differdeleted file mode 100644 index 153f9afd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci deleted file mode 100644 index b993ffa9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 10.01.02 for v5 - -function PutcoLstr(varargin) - Tb=varargin(1); - Nr=varargin(2); - Pos=varargin(3); - Str=varargin(4); - Sep=''; - if length(varargin)>4 - Sep=varargin(5); - end; - if Sep=='' - for I=1:length(Str) - Tmp=part(Str,I); - Putcell(Tb,Nr,I,Pos,Tmp); - end; - else - Ltr=''; - K=1; - for I=1:length(Str) - Tmp=part(Str,I); - if Tmp==Sep - Putcell(Tb,Nr,K,Pos,Ltr); - K=K+1; - Ltr=''; - else - Ltr=Ltr+Tmp; - end; - end; - if Ltr~='' - Putcell(Tb,Nr,K,Pos,Ltr); - end; - end; -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin Binary files differdeleted file mode 100644 index f48d783b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci deleted file mode 100644 index 8d732a9d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 09.11.26 - -function Putdashmark(TbL,Nrg,Mrg,Dt) - N=length(Dt); - Str='\hspace*{2mm}'; - for I=1:N - Tmp1=Dt(I); - if type(Tmp1)==1 - Tmp1=string(Tmp1); - end; - Str=Str+'\dashmark{'+Tmp1+'}'; - if I<N - Str=Str+'\hspace{3mm}'; - end; - end; - Putcell(TbL,Nrg,Mrg,'l',Str); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin Binary files differdeleted file mode 100644 index ae7f9955..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci deleted file mode 100644 index ce63e542..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 09.11.26 - -function Putrecmark(TbL,Nrg,Mrg,Dt) - if type(Dt)==10 - N=1; Pos=Dt; Str=''; - else - N=length(Dt); Pos='l'; Str='\hspace*{2mm}'; - end; - for I=1:N - Str=Str+'\recmark'; - if I<N - Str=Str+'\hspace{3mm}'; - end; - end; - Putcell(TbL,Nrg,Mrg,Pos,Str); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin Binary files differdeleted file mode 100644 index 9e4117c2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci deleted file mode 100644 index 0c2c209a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.12.06 -// 10.01.26 - -function Putrow(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Row=varargin(2); - Nr=length(TbL(2))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Putcell(TbL,K,Row,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str=Dt(N); - Crng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Crng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,Crng,Row,Pos,Str) - K=Crng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin Binary files differdeleted file mode 100644 index f29ca390..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci deleted file mode 100644 index 0a3158cc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 10.04.01 - -function Putrowexpr(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Row=varargin(2); - Nr=length(TbL(2))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Dt='$'+Dt+'$'; - Putcell(TbL,K,Row,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str='$'+Dt(N)+'$'; - Crng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Crng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,Crng,Row,Pos,Str) - K=Crng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin Binary files differdeleted file mode 100644 index 32f9675d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci deleted file mode 100644 index d006f3ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 10.01.02 for v5 - -function Putrowstr(varargin) - Tb=varargin(1); - Nr=varargin(2); - Pos=varargin(3); - Str=varargin(4); - Sep=''; - if length(varargin)>4 - Sep=varargin(5); - end; - if Sep=='' - for I=1:length(Str) - Tmp=part(Str,I); - Putcell(Tb,I,Nr,Pos,Tmp); - end; - else - Ltr=''; - K=1; - for I=1:length(Str) - Tmp=part(Str,I); - if Tmp==Sep - Putcell(Tb,K,Nr,Pos,Ltr); - K=K+1; - Ltr=''; - else - Ltr=Ltr+Tmp; - end; - end; - if Ltr~='' - Putcell(Tb,K,Nr,Pos,Ltr); - end; - end; -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin Binary files differdeleted file mode 100644 index 30dda6f7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci deleted file mode 100644 index a4f1ad89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.09.10 - -function Puttrace(Dt); - global TRACEDATA; - TRACEDATA=Dt; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin Binary files differdeleted file mode 100644 index aa4a60ac..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci deleted file mode 100644 index 839452f6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci +++ /dev/null @@ -1,87 +0,0 @@ -// 11.05.28 -// 15.05.03 - -function R=Ratiocmyk(Color) - if type(Color)==1 then - R=Color; - return; - end; - Tmp=grep(Color,','); - if length(Tmp)>0 - R=evstr(Tmp); - return; - end; - select Color - case 'greenyellow' then R=[0.15,0,0.69,0], - case 'yellow' then R=[0,0,1,0], - case 'goldenrod' then R=[0,0.1,0.84,0], - case 'dandelion' then R=[0,0.29,0.84,0], - case 'apricot' then R=[0,0.32,0.52,0], - case 'peach' then R=[0,0.5,0.7,0], - case 'melon' then R=[0,0.46,0.5,0], - case 'yelloworange' then R=[0,0.42,1,0], - case 'orange' then R=[0,0.61,0.87,0], - case 'burntorange' then R=[0,0.51,1,0], - case 'bittersweet' then R=[0,0.75,1,0.24], - case 'redorange' then R=[0,0.77,0.87,0], - case 'mahogany' then R=[0,0.85,0.87,0.35], - case 'maroon' then R=[0,0.87,0.68,0.32], - case 'brickred' then R=[0,0.89,0.94,0.28], - case 'red' then R=[0,1,1,0], - case 'orangered' then R=[0,1,0.5,0], - case 'rubinered' then R=[0,1,0.13,0], - case 'wildstrawberry' then R=[0,0.96,0.39,0], - case 'salmon' then R=[0,0.53,0.38,0], - case 'carnationpink' then R=[0,0.63,0,0], - case 'magenta' then R=[0,1,0,0], - case 'violetred' then R=[0,0.81,0,0], - case 'rhodamine' then R=[0,0.82,0,0], - case 'mulberry' then R=[0.34,0.9,0,0.02], - case 'redviolet' then R=[0.07,0.9,0,0.34], - case 'fuchsia' then R=[0.47,0.91,0,0.08], - case 'lavender' then R=[0,0.48,0,0], - case 'thistle' then R=[0.12,0.59,0,0], - case 'orchid' then R=[0.32,0.64,0,0], - case 'darkorchid' then R=[0.4,0.8,0.2,0], - case 'purple' then R=[0.45,0.86,0,0], - case 'plum' then R=[0.5,1,0,0], - case 'violet' then R=[0.79,0.88,0,0], - case 'royalpurple' then R=[0.75,0.9,0,0], - case 'blueviolet' then R=[0.86,0.91,0,0.04], - case 'periwinkle' then R=[0.57,0.55,0,0], - case 'cadetblue' then R=[0.62,0.57,0.23,0], - case 'cornflowerblue' then R=[0.65,0.13,0,0], - case 'midnightblue' then R=[0.98,0.13,0,0.43], - case 'navyblue' then R=[0.94,0.54,0,0], - case 'royalblue' then R=[1,0.5,0,0], - case 'blue' then R=[1,1,0,0], - case 'cerulean' then R=[0.94,0.11,0,0], - case 'cyan' then R=[1,0,0,0], - case 'processblue' then R=[0.96,0,0,0], - case 'skyblue' then R=[0.62,0,0.12,0], - case 'turquoise' then R=[0.85,0,0.2,0], - case 'tealblue' then R=[0.86,0,0.34,0.02], - case 'aquamarine' then R=[0.82,0,0.3,0], - case 'bluegreen' then R=[0.85,0,0.33,0], - case 'emerald' then R=[1,0,0.5,0], - case 'junglegreen' then R=[0.99,0,0.52,0], - case 'seagreen' then R=[0.69,0,0.5,0], - case 'green' then R=[1,0,1,0], - case 'forestgreen' then R=[0.91,0,0.88,0.12], - case 'pinegreen' then R=[0.92,0,0.59,0.25], - case 'limegreen' then R=[0.5,0,1,0], - case 'yellowgreen' then R=[0.44,0,0.74,0], - case 'springgreen' then R=[0.26,0,0.76,0], - case 'olivegreen' then R=[0.64,0,0.95,0.4], - case 'rawsienna' then R=[0,0.72,1,0.45], - case 'sepia' then R=[0,0.83,1,0.7], - case 'brown' then R=[0,0.81,1,0.6], - case 'tan' then R=[0.14,0.42,0.56,0], - case 'gray' then R=[0,0,0,0.5], - case 'black' then R=[0,0,0,1], - case 'white' then R=[0,0,0,0], - else - disp(Color+' may be user-defined'); - R=Color; // 15.05.03 - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin Binary files differdeleted file mode 100644 index 0b858b05..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci deleted file mode 100644 index c1656b15..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci +++ /dev/null @@ -1,92 +0,0 @@ -// 14.10.10 -// 14.12.14 for 3d -// 15.01.03 changed ("start","end") -// 15.10.24 in case of list-length==1 - -function Out=ReadOutData(varargin) - global Fnameout - if length(varargin)==0 then - Fname=Rnameout; - else - Fname=varargin(1); - end - Fid=mopen(Fname,"rb"); - Gstr=[]; - Str=""; - Flg=1; - Tmp=mgetstr(1,Fid); - while 1==1 - if Tmp=="" then - break; - end; - C=ascii(Tmp); - if Tmp=="/"|C==13|C==10 then// / CR,LF - if Flg==1 then - if part(Str,1:5)=="start" then - Str="Tmp=[];"; - else - if part(Str,1:3)=="end" then - if Flg3d==0 then // 2014.12.14 - Str=Varname+"($+1)=Listplot(Tmp);"; - else - Str=Varname+"($+1)=Spaceline(Tmp);"; - end - else - if part(Str,1:2)=="[[" then - Str="Tmp=[Tmp,"+Str+"];"; - else - Varname=Str; - Str=Varname+"=list();" - Flg3d=-1; - end; - end; - end; - if Flg3d==-1 then // 2014.12.14 - Tmp1=mtlb_findstr(Str,"[["); - if length(Tmp1)>0 then - Tmp2=mtlb_findstr(Str,"]"); - Tmp3=part(Str,Tmp1:Tmp2(1)); - Tmp4=mtlb_findstr(Tmp3,",") - if length(Tmp4)==2 then - Flg3d=1; - else - Flg3d=0; - end - end - end - Gstr=[Gstr;Str]; - Str=""; - Flg=0; - end; - else - Str=Str+Tmp; - Flg=1; - end; - Tmp=mgetstr(1,Fid); - end; - mclose(Fid); - Out=[]; // 15.10.24 from - Var=""; - Ctr=0; - for J=1:size(Gstr,1) - St=Gstr(J,1); - Out=[Out;St]; - Tmp=strsplit(St,"="); - Tmp1=Tmp(1,1); - Tmp2=Tmp(2,1); - if grep(Tmp2,"list()") then - if Ctr==1 then - Out=[Out;Var+"="+Var+"(1)"]; - end; - Var=Tmp1; - Ctr=0; - end; - if grep(Tmp1,"$") then - Ctr=Ctr+1; - end; - end - if Ctr==1 then - Out=[Out;Var+"="+Var+"(1)"]; - end; // 15.10.24 upto - Out; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin Binary files differdeleted file mode 100644 index e078ba2f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci deleted file mode 100644 index eaf9f6df..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci +++ /dev/null @@ -1,38 +0,0 @@ -// s:2014,09.08 -// e:2014.09.26 -// e:2014.10.07 debugged, code changed -// e:2014.10.08 CR | LF - -function Out=ReadfromCindy(Fname) - Fid=mopen(Fname,"rb"); - Gline=list(); - Gpt=list(); - Gstr=[]; - Str=""; - Flg=1; - Tmp=mgetstr(1,Fid); - while 1==1 - if Tmp=="" then - if Flg==1 then - Gstr=[Gstr;Str]; - Str=""; - Flg=1; - end; - break; - end - C=ascii(Tmp); - if C==13|C==10 then// CR,LF - if Flg==1 then - Gstr=[Gstr;Str]; - Str=""; - Flg=0; - end; - else - Str=Str+Tmp; - Flg=1; - end; - Tmp=mgetstr(1,Fid); - end; - mclose(Fid); - Out=Gstr; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin Binary files differdeleted file mode 100644 index 05df3aa2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci deleted file mode 100644 index 7109f789..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci +++ /dev/null @@ -1,160 +0,0 @@ -// 08.05.22
-// 08.05.23
-// 08.05.26
-// 08.05.28
-// 10.04.25
-// 11.01.05
-// 13.10.06 format, debug
-// 14.01.20 debugged (Big data)
-
-function OutL=Readtextdata(varargin)
- OutL=[];
- Nargs=length(varargin);
- Fname=varargin(1);
- Suuji='0123456789.+-';
- Sep='';
- Hajime=[1,1];
- N=%inf;
- R=%inf;
- D=-%inf; // 11.01.04
- Fmt="%lf"; // 13.10.06
- Flg=0;
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- if Flg==0
- Hajime=Tmp;
- Flg=1
- else
- Owari=Tmp;
- end
- elseif mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- else
- if part(Tmp,1)=="%" // 13.10.06
- Fmt=Tmp
- else
- Sep=Tmp;
- if Tmp=='s' Sep=' '; end
- if Tmp==',' Sep=','; end
- if Tmp=='t' Sep=char(9); end
- end
- end
- end
- Owari=Hajime+[N-1,R-1];
- Fid=mopen(Fname,'rb');
- SL=[];
- S='';
- Lsp=0;
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1 // 2014.01.20
- if Tmp=='' break; end
- C=ascii(Tmp);
- if C>=32 | C==9
- if C==32
- if Flg==1
- Tmp='';
- end
- Flg=1
- else
- Flg=0;
- end
- S=S+Tmp;
- Tmp=mgetstr(1,Fid);
- else
- SL=[SL;S];
- S='';
- Flg=1;
- Tmp=mgetstr(1,Fid);
- if Lsp==0
- if C==10 // LF
- Lsp=1;
- elseif C==13
- if ascii(Tmp)==10
- Lsp=3; // CR LF
- Tmp=mgetstr(1,Fid);
- else
- Lsp=2; // CR
- end
- else
- break;
- end
- else
- if C==10 | C==13
- if Lsp==3
- Tmp=mgetstr(1,Fid);
- end
- else
- break
- end
- end
- end
- end
- mclose(Fid);
- if length(S)>0 then // 2013.10.06
- SL=[SL;S]
- end
- for I=1:size(SL,1)
- S=SL(I,1);
- if S=='' continue; end
- if mtlb_findstr(Suuji,Strop(1,S))~=[]
- break
- end
- end
- Hajime(1,1)=max(Hajime(1,1),I);
- S=SL(Hajime(1),1);
- if Sep==''
- if length(mtlb_findstr(S,char(9)))~=0
- Sep=char(9);
- elseif length(mtlb_findstr(S,','))~=0
- Sep=',';
- else
- Sep=' ';
- end
- end
- Tmp=mtlb_findstr(S,Sep);
- J=length(Tmp);
- if Tmp(J)~=length(S)
- J=J+1;
- end
- Owari(1,1)=min(size(SL,1),Owari(1));
- Owari(1,2)=min(J,Owari(2));
- S=SL(Owari(1),1);
- while S==''
- Owari(1,1)=Owari(1,1)-1;
- S=SL(Owari(1),1);
- end
- OutL=[];
- for J=Hajime(1):Owari(1)
- S=SL(J,1);
- if S==''
- Tmp=%inf*ones(1,Owari(2)-Hajime(2)+1);
- OutL=[OutL;Tmp];
- continue
- end
- Tmp=Strop(1,S);
- if mtlb_findstr(Suuji+Sep,Tmp)==[]
- continue
- end
- SpL=[0,mtlb_findstr(S,Sep),length(S)+1];
- Data=[];
- for K=Hajime(2):Owari(2)
- Tmp=Strop(SpL(K)+1:SpL(K+1)-1,S);
- Tmp1=msscanf(Tmp,Fmt); // 13.10.06
- Data=[Data,Tmp1];
- end
- OutL=[OutL;Data];
- end;
- if D~=-%inf // 11.01.04
- Data=[];
- for I=1:size(OutL,1)
- Tmp=OutL(I,:);
- if Tmp(1)<=D // 11.01.04
- Tmp=[%inf,%inf];
- end;
- Data=[Data;Tmp];
- end;
- OutL=Data;
- end; //
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin Binary files differdeleted file mode 100644 index 2269d9ad..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci deleted file mode 100644 index 837a5727..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci +++ /dev/null @@ -1,51 +0,0 @@ -// 08.05.25 Koshikawa -// 08.09.20 -// 15.04.12 - -function OutL=Reflectdata(varargin) - Nargs=length(varargin) - ML=varargin(1); - ML=Flattenlist(ML); - if Nargs==1 - PtA=[0,0];PtB=PtA; - else - Pts=varargin(2); - if length(Pts)==2 - PtA=Pts; PtB=PtA; - else - PtA=Pts(1,1:2); PtB=Pts(1,3:4); - end - end - OutL=[]; - for N=1:length(ML) - GL=Op(N,ML); - Out=[]; - for I=1:size(GL,1) - Tmp=GL(I,:); - X1=Tmp(1); - Y1=Tmp(2); - if Tmp==[%inf,%inf] - X2=X1; - Y2=Y1; - else - if PtA==PtB - X2=2*PtA(1)-X1; - Y2=2*PtA(2)-Y1; - else - U=PtB(1)-PtA(1); - V=PtB(2)-PtA(2); - A=PtA(1); - B=PtA(2); - X2=(U^2-V^2)/(U^2+V^2)*X1+2*U*V/(U^2+V^2)*Y1-2*V*(U*B-V*A)/(U^2+V^2); - Y2=2*U*V/(U^2+V^2)*X1-(U^2-V^2)/(U^2+V^2)*Y1+2*U*(U*B-V*A)/(U^2+V^2); - end - end - Out=[Out;X2,Y2]; - end; - OutL=Mixadd(OutL,Out); - end; - if length(OutL)==1 - OutL=Op(1,OutL); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin Binary files differdeleted file mode 100644 index 1a99c6ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci deleted file mode 100644 index facea4d5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 11.01.14 New - -function Out=Rmmember(L,Rm) - if type(L)==1 - Out=[]; - end; - if type(L)==15 - Out=list(); - end; - for J=1:length(L) - Tmp=L(J); - if ~Member(Tmp,Rm) - Out($+1)=Tmp; - end; - end; - if type(L)==1 & size(L,1)==1 - Out=Out'; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin Binary files differdeleted file mode 100644 index c9391ec5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci deleted file mode 100644 index 9082290d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci +++ /dev/null @@ -1,40 +0,0 @@ -// 08.08.15 -// 14.03.23 debugged "center" -// 15.04.12 - -function Out=Rotate3data(varargin) -// Eps=10^(-4); - Nargs=length(varargin); - Pd3=varargin(1); - Pd3=Flattenlist(Pd3); // 15.04.12 - W1=varargin(2); - W2=varargin(3); - C=[0,0,0]; - if Nargs>=4 - C=varargin(4); - end; -// if Mixtype(Pd3)==1 // 15.04.12 from -// Pd3=MixS(Pd3); -// elseif Mixtype(Pd3)==3 -// Tmp=[]; -// for I=1:Mixlength(Pd3) -// Tmp=Mixjoin(Tmp,Mixop(I,Pd3)); -// end; -// Pd3=Tmp; -// end; - Out=[]; - for I=1:length(Pd3) - PD=Op(I,Pd3); - Ans=[]; - for J=1:size(PD,1) - P=PD(J,:); - Tmp=Rotate3pt(P,W1,W2,C); // 14.03.23 - Ans=[Ans;Tmp]; - end; - Out=Mixadd(Out,Ans); - end; - if length(Out)==1 - Out=Op(1,Out); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin Binary files differdeleted file mode 100644 index 35da0ed9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci deleted file mode 100644 index 910aa734..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci +++ /dev/null @@ -1,75 +0,0 @@ -// 08.08.15 - -function Ans=Rotate3pt(varargin) - Eps=10^(-4); - Nargs=length(varargin); - P=varargin(1); - W1=varargin(2); - W2=varargin(3); - C=[0,0,0]; - if Nargs>=4 - C=varargin(4); - end; - if type(W2)==1 & length(W2)==1 - Ct=cos(W2); - St=sin(W2); - V3=1/norm(W1)*W1; - if V3(1)==0 - Tmp=[1,0,0]; - else - Tmp=[0,1,0]; - end; - W1=[Tmp(2)*V3(3)-Tmp(3)*V3(2),Tmp(3)*V3(1)-Tmp(1)*V3(3),Tmp(1)*V3(2)-Tmp(2)*V3(1)]; - V1=1/norm(W1)*W1; - V2=[V3(2)*V1(3)-V3(3)*V1(2),V3(3)*V1(1)-V3(1)*V1(3),V3(1)*V1(2)-V3(2)*V1(1)]; - else - Tmp=[W1(2)*W2(3)-W1(3)*W2(2),W1(3)*W2(1)-W1(1)*W2(3),W1(1)*W2(2)-W1(2)*W2(1)]; - if norm(Tmp)<Eps - Ans=P; - return; - end; - V1=1/norm(W1)*W1; - Ns=V1(1)*W2(1)+V1(2)*W2(2)+V1(3)*W2(3); - Tmp=W2-Ns*V1; - V2=1/norm(Tmp)*Tmp; - Tmp=[V1(2)*V2(3)-V1(3)*V2(2),V1(3)*V2(1)-V1(1)*V2(3),V1(1)*V2(2)-V1(2)*V2(1)]; - V3=1/norm(Tmp)*Tmp; - Ct=Ns/norm(W2); - St=sqrt(1-Ct^2); - end; - if norm(Tmp)<Eps - Ans=P; - return; - end; - V1x=V1(1); V1y=V1(2); V1z=V1(3); - V2x=V2(1); V2y=V2(2); V2z=V2(3); - V3x=V3(1); V3y=V3(2); V3z=V3(3); - if Mixtype(P)~=1 - PtL=P; - else - PtL=MixS(P); - end; - Ans=[]; - for N=1:Mixlength(PtL) - P=Mixop(N,PtL); - if P(1)==%inf - Ans=Mixadd(Ans,[%inf,%inf,%inf]); - continue; - end; - x=P(1)-C(1); y=P(2)-C(2); z=P(3)-C(3); - X=((V1x*Ct+V2x*St)*V1x+(-V1x*St+V2x*Ct)*V2x+V3x^2)*x; - X=X+((V1x*Ct+V2x*St)*V1y+(-V1x*St+V2x*Ct)*V2y+V3x*V3y)*y; - X=X+((V1x*Ct+V2x*St)*V1z+(-V1x*St+V2x*Ct)*V2z+V3x*V3z)*z; - Y=((V1y*Ct+V2y*St)*V1x+(-V1y*St+V2y*Ct)*V2x+V3x*V3y)*x; - Y=Y+((V1y*Ct+V2y*St)*V1y+(-V1y*St+V2y*Ct)*V2y+V3y^2)*y; - Y=Y+((V1y*Ct+V2y*St)*V1z+(-V1y*St+V2y*Ct)*V2z+V3y*V3z)*z; - Z=((V1z*Ct+V2z*St)*V1x+(-V1z*St+V2z*Ct)*V2x+V3x*V3z)*x; - Z=Z+((V1z*Ct+V2z*St)*V1y+(-V1z*St+V2z*Ct)*V2y+V3y*V3z)*y; - Z=Z+((V1z*Ct+V2z*St)*V1z+(-V1z*St+V2z*Ct)*V2z+V3z^2)*z; - Ans=Mixadd(Ans,C+[X,Y,Z]); - end; - if Mixlength(Ans)==1 - Ans=Mixop(1,Ans); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin Binary files differdeleted file mode 100644 index fda8e518..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci deleted file mode 100644 index 845cac17..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 08.05.23 Koshikawa -// 08.09.20 -// 15.04.12 - -function OutL=Rotatedata(varargin) - Nargs=length(varargin); - ML=varargin(1); - ML=Flattenlist(ML); - Theta=varargin(2); - if Nargs==2, - Pt=[0,0] - else - Pt=varargin(3); - end - Cx=Pt(1);Cy=Pt(2); - OutL=[]; - for N=1:length(ML) - GL=Op(N,ML); - Out=[]; - for I=1:size(GL,1) - Tmp=GL(I,:); - X1=Tmp(1); - Y1=Tmp(2); - if Tmp==[%inf,%inf] - X2=X1; - Y2=Y1; - else - X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); - Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); - end; - Out=[Out;X2,Y2]; - end; - OutL=Mixadd(OutL,Out); - end; - if length(OutL)==1 - OutL=Op(1,OutL); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin Binary files differdeleted file mode 100644 index dd5656fd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci deleted file mode 100644 index d14f3b3a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 10.11.04 - -function Out=Roundstr(X,Ni,Nf) - Na=Ni+1+Nf; - Fmt='%'+string(Na)+'.'+string(Nf)+'f'; - Out=sprintf(Fmt,X); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin Binary files differdeleted file mode 100644 index 7aeb7385..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci deleted file mode 100644 index 7e563f4b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 08.05.25 Koshikawa -// 08.09.20 -// 15.04.12 - -function OutL=Scaledata(varargin) - Nargs=length(varargin); - ML=varargin(1); - ML=Flattenlist(ML); - A=varargin(2); - B=varargin(3); - if Nargs==3 - Pt=[0,0]; - else - Pt=varargin(4); - end - OutL=[]; - for N=1:length(ML) - GL=Op(N,ML); - Out=[]; - for I=1:size(GL,1) - Tmp=GL(I,:); - X1=Tmp(1); - Y1=Tmp(2); - if Tmp==[%inf,%inf] - X2=X1; - Y2=Y1; - else - X2=Pt(1)+A*(X1-Pt(1)); - Y2=Pt(2)+B*(Y1-Pt(2)); - end - Out=[Out;X2,Y2]; - end; - OutL=Mixadd(OutL,Out); - end; - if length(OutL)==1 - OutL=Op(1,OutL); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin Binary files differdeleted file mode 100644 index 4ebf14d1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci deleted file mode 100644 index e918e475..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 09.09.10 -// 09.10.12 remove:Uveq, add:Glist - -function Out=Sectionview(PtA,Vec,Fd,Glist,Np,Eps) - Uv=1/norm(Vec)*Vec; - Nv=[Uv(2),-Uv(1),0]; - G1=Sfcutdata(Fd,Mix(Nv,PtA),Np); - G2=Spaceline([PtA,PtA+10*Uv]); - Tmp=Mixjoin(G1,G2,Glist); - Tmp1=Viewfrom(Nv,Tmp); - Out=Tmp; -endfunction; - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin Binary files differdeleted file mode 100644 index 4b102f32..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci deleted file mode 100644 index 2a4a3c95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 08.07.11 -// 08.08.12 -// 09.02.27 - -function Setangle(varargin) - global PHI THETA; - Nargs=length(varargin); - if Nargs<2 - Mixdisp(Mix('theta=',THETA*180/%pi)); - Mixdisp(Mix('phi=',PHI*180/%pi)); - return; - else - PHI=varargin(2)*%pi/180; - THETA=varargin(1)*%pi/180; - end -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin Binary files differdeleted file mode 100644 index 7ea694d9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci deleted file mode 100644 index 8f9d6053..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 08.05.31 -// 09.02.27 - -function Setarrow(varargin) - global YaSize YaAngle YaPosition YaThick YaStyle; - Nargs=length(varargin); - if Nargs==0 - Mixdisp(Mix('Size=',YaSize)); - Mixdisp(Mix('Angle=',YaAngle)); - Mixdisp(Mix('Position=',YaThick)); - Mixdisp(Mix('Style=',YaStyle)); - return; - end; - Flg=0; - for I=1:Nargs - Tmp=varargin(I); - if type(Tmp)==1 - Flg=Flg+1; - if Flg==1 YaSize=Tmp; end - if Flg==2 - if Tmp<5 - YaAngle=18*Tmp; - else - YaAngle=Tmp; - end - end - if Flg==3 YaPosition=Tmp; end - if Flg==4 YaThick=Tmp; end - end - if type(Tmp)==10 - YaStyle=Tmp - end - end -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin Binary files differdeleted file mode 100644 index 55e4fb8c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci deleted file mode 100644 index 5fab30e2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci +++ /dev/null @@ -1,102 +0,0 @@ -// 08.08.08 -// 09,02.27 - -function Out=Setax(varargin) - global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE; - Nargs=length(varargin); - if Nargs==0 - if ZIKU=='line' - Tmp=',' - else - Tmp='(Arrowsize='+string(ARROWSIZE)+'),' - end; - Str=... - ZIKU+Tmp+... - XNAME+','+XPOS+','+YNAME+','+... - YPOS+','+ONAME+','+OPOS; - Out=Str; - disp(Str); - return; - end; - ArgL=[]; - Is=1; - Tmp=varargin(1); - if type(Tmp)==1 & length(Tmp)==1 - Is=varargin(1); - ArgL=[]; - for I=1:Is-1 - ArgL=[ArgL,'']; - end - for I=2:Nargs - ArgL=[ArgL,varargin(I)]; - end - else - if Nargs==1 - ArgL=[varargin(1)]; - else - Tmp=varargin(2); - if type(Tmp)==1 & length(Tmp)==1 - ARROWSIZE=Tmp; - ArgL=[varargin(1)]; - for I=3:Nargs - ArgL=[ArgL,varargin(I)]; - end; - else - ArgL=[]; - for I=1:Nargs - ArgL=[ArgL,varargin(I)]; - end; - end - end - end - for I=size(ArgL,2)+1:7 - ArgL=[ArgL,'']; - end - Zk=ArgL(1); - if Zk~='' - ZL=msscanf(Zk,'%c%f'); - Zk=ZL(1); - if length(ZL)>1 // modified at 080807 - ARROWSIZE=ZL(2); - end - end - Xn=ArgL(2); Xp=ArgL(3); - Yn=ArgL(4); Yp=ArgL(5); - Genn=ArgL(6); Genp=ArgL(7); - if Zk~='' - C=Zk; - if C=='a' - ZIKU='arrow'; - else - ZIKU='line'; - end - end - if Xn~='' - XNAME='$'+Xn+'$' - end - if Xp~='' - XPOS=Xp - end - if Yn~='' - YNAME='$'+Yn+'$' - end - if Yp~='' - YPOS=Yp - end - if Genn~='' - ONAME=Genn - end - if Genp~='' - OPOS=Genp - end - if ZIKU=='line' - Tmp=',' - else - Tmp='(Arrowsize='+string(ARROWSIZE)+'),' - end; - Str=... - ZIKU+Tmp+... - XNAME+','+XPOS+','+YNAME+','+... - YPOS+','+ONAME+','+OPOS; - Out=Str; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin Binary files differdeleted file mode 100644 index a6d15d9d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci deleted file mode 100644 index 51b8e0c3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 11.05.28 -// 11.08.24 -// 15.05.03 - -function Setcolor(varargin) - global Wfile FID; - Nargs=length(varargin); - Color='black'; - Kosa=1; - Color=varargin(1); - if length(varargin)>1 - Kosa=varargin(2); - end; - Iro=Ratiocmyk(Color); - if type(Iro)==10 - Str='\color{'+Iro+"}%"; - else - if size(Iro,2)>3 - Str='\color[cmyk]{'; - else - Str='\color[rgb]{'; - end; - for J=1:size(Iro,2) - Str=Str+string(Kosa*Iro(J)); - if J<size(Iro,2) - Str=Str+','; - end; - end; - Str=Str+'}%'; - end; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin Binary files differdeleted file mode 100644 index e8d09380..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci deleted file mode 100644 index 4b8b932b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 09.09.10 - -function Setcounter(varargin) - global GCOUNTER; - Nargs=length(varargin); - if Nargs==0 - N=1; - else - N=varargin(1); - end; - GCOUNTER=N; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin Binary files differdeleted file mode 100644 index b50381fd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci deleted file mode 100644 index ae713f4e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci +++ /dev/null @@ -1,43 +0,0 @@ -// 09.11.26 -// 09.12.06 - -function Setmark(); - Xminnow=Xmin(); Xmaxnow=Xmax(); - Yminnow=Ymin(); Ymaxnow=Ymax(); - Setwindow([-1.5,1.5],[-2.3,2.3]); - F1=Framedata(); - F2=Paramplot('[1.5*cos(t),2.3*sin(t)]','t=[0,2*%pi]','N=25'); - Texcom('\def\recmark{'); - Texcom('\begin{minipage}[c]{3mm}'); - Beginpicture('1mm'); - Shade(F1); - Drwline(F1); - Endpicture(0); - Texcom(''); - Texcom('\end{minipage}'); - Texcom('}'); - - Texcom('\def\cirmark{'); - Texcom('\begin{minipage}[c]{3mm}'); - Beginpicture('1mm'); - Shade(F2); - Drwline(F2); - Endpicture(0); - Texcom(''); - Texcom('\end{minipage}'); - Texcom('}'); - - Texcom('\def\dashmark#1{'); - Texcom('\begin{minipage}[c]{3mm}'); - Beginpicture('1mm'); - Setpen(0.5); - Dashline(F2,0.5,0.5); - Fontsize('ss'); - Letter([0,0],'c','#1'); - Endpicture(0); - Texcom(''); - Texcom('\end{minipage}'); - Texcom('}'); - Setwindow([Xminnow,Xmaxnow],[Yminnow,Ymaxnow]); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin Binary files differdeleted file mode 100644 index 1ad13b66..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci deleted file mode 100644 index a17c9e95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci +++ /dev/null @@ -1,17 +0,0 @@ -// -// 09.02.27 -// 14.03.05 MARKLEN - -function Setmarklen(varargin) - global MARKLEN MARKLENInit MARKLENNow; - Nargs=length(varargin); - if Nargs==0 - Tmp=MARKLEN/MARKLENInit; - Tmp=round(Tmp*100)/100; - disp(Tmp); - return; - end; - Size=varargin(1); - MARKLEN=MARKLENInit*Size; - MARKLENNow=MARKLEN; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin Binary files differdeleted file mode 100644 index af675f9c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci deleted file mode 100644 index 2ee06cbb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci +++ /dev/null @@ -1,8 +0,0 @@ -// s : 2014.06.22 - -function Setobjdecimals(n) - global OBJFMT; - s1=string(n); - s2=string(n+3); - OBJFMT="%"+s2+"."+s1+"f"; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin Binary files differdeleted file mode 100644 index 5ae9c620..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci deleted file mode 100644 index 22f13c4d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci +++ /dev/null @@ -1,6 +0,0 @@ -// s : 2014.06.22 - -function Setobjscale(scale) - global OBJSCALE; - OBJSCALE=scale; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin Binary files differdeleted file mode 100644 index 05b3c3e2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci deleted file mode 100644 index 62a1f624..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 09.02.27 - -function Setorigin(varargin) - global GENTEN; - Nargs=length(varargin); - if Nargs==0 - disp(GENTEN); - return; - end; - Pt=varargin(1); - GENTEN=Pt; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin Binary files differdeleted file mode 100644 index fd0d6bd7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci deleted file mode 100644 index b3f0cbad..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci +++ /dev/null @@ -1,11 +0,0 @@ -function Setpen(Width) - global Wfile FID PenThick PenThickInit; - PenThick=round(PenThickInit*Width); - Str='\linethickness{'+string(PenThick/1000)+'in}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin Binary files differdeleted file mode 100644 index 07e56733..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci deleted file mode 100644 index 455551bb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci +++ /dev/null @@ -1,16 +0,0 @@ -// 08.08.12 -// 08.08.15 - -function Setpers(varargin) - global FocusPoint EyePoint; - Nargs=length(varargin); - if Nargs==0 - Mixdisp(Mix('FocusPoints=',FocusPoint)); - Mixdisp(Mix('EyePoint=',EyePoint)); - return; - else - FocusPoint=varargin(1); - EyePoint=varargin(2); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin Binary files differdeleted file mode 100644 index 43792ee3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci deleted file mode 100644 index a3b86b01..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci +++ /dev/null @@ -1,16 +0,0 @@ -// -// 09.02.27 - -function Setpt(varargin) - global TenSize TenSizeInit; - Nargs=length(varargin); - if Nargs==0 - Tmp=TenSize/TenSizeInit; - Tmp=round(Tmp*100)/100; - disp(Tmp); - return; - end; - Size=varargin(1); - TenSize=TenSizeInit*Size; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin Binary files differdeleted file mode 100644 index 85da2aca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci deleted file mode 100644 index 1d4868c9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci +++ /dev/null @@ -1,28 +0,0 @@ -function Out=Setscaling(varargin) - global LOGX LOGY SCALEX SCALEY; - Nargs= length(varargin) - if Nargs==0 - Out=[SCALEY,LOGX,LOGY]; - return; - end; - for I=1:Nargs - Tmp=varargin(I); - if type(Tmp)==1 - SCALEY=Tmp; - end; - if type(Tmp)==10 - if Tmp=="l" - LOGX=0; - LOGY=1; - elseif Tmp=="ll" - LOGX=1 - LOGY=1 - else - LOGX=0 - LOGY=0 - end; - end; - end; - Out=[SCALEY,LOGX,LOGY]; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin Binary files differdeleted file mode 100644 index 4e097b75..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci deleted file mode 100644 index cb6c79ae..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.08.12 -// 08.09.21 -// 09.03.09 - -function SetstereoL(R,T,P,H) - X=R*sin(T*%pi/180)*cos(P*%pi/180); - Y=R*sin(T*%pi/180)*sin(P*%pi/180); - Z=R*cos(T*%pi/180); - Eye=[X+H/2*Y/(X^2+Y^2),Y-H/2*X/(X^2+Y^2),Z]; - Setpers([0,0,0],Eye); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin Binary files differdeleted file mode 100644 index bf25b018..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci deleted file mode 100644 index ff9de892..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci +++ /dev/null @@ -1,10 +0,0 @@ -// 08.08.12 - -function SetstereoR(R,T,P,H) - X=R*sin(T*%pi/180)*cos(P*%pi/180); - Y=R*sin(T*%pi/180)*sin(P*%pi/180); - Z=R*cos(T*%pi/180); - Eye=[X-H/2*Y/(X^2+Y^2),Y+H/2*X/(X^2+Y^2),Z]; - Setpers([0,0,0],Eye); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin Binary files differdeleted file mode 100644 index 455d977f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci deleted file mode 100644 index 84ea4d60..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci +++ /dev/null @@ -1,78 +0,0 @@ -// 08.12.06 -// 08.12.18 -// 09.02.20 -// 09.02.27 -// 14.03.05 MARKLEN -// 17.03.19 VL=[] => VL=""; - -function Out=Setunitlen(varargin) - global FID XMIN XMAX YMIN YMAX ULEN - global MilliIn MARKLEN MARKLENNow PenThickInit; - if length(varargin)==0 - Out=ULEN; - disp(ULEN); - return; - end; - Ul=varargin(1); - Dx=XMAX-XMIN; - Dy=YMAX-YMIN; - Sym='.0123456789 +-*/'; - Tmp=ascii(Sym); - SL=Sym; - OL='+-*/'; - if Ul~='' - ULEN=Ul; - end; - Out=ULEN; - Is=1; - VL=""; // 17.03.19 - Ucode=ascii(ULEN); - for I=1:length(Ucode) - C=char(Ucode(I)); - if mtlb_findstr(SL,C)~=[] - if mtlb_findstr(OL,C) - Str=char(Ucode(Is:(I-1))); - VL=VL+Str+C; - Is=I+1; - end - else - Unit=char(Ucode(I:(I+1))); - Str=char(Ucode(Is:(I-1))); - VL=VL+Str; - break; - end; - end; - Valu=evstr(VL); - Str=string(Valu); - ULEN=Str+Unit; - Out=ULEN; - if Unit=='cm' - MilliIn=1000/2.54*Valu; - end - if Unit=='mm' - MilliIn=1000/2.54*Valu/10; - end - if Unit=='in' - MilliIn=1000*Valu; - end - if Unit=='pt' - MilliIn=1000/72.27*Valu; - end - if Unit=='pc' - MilliIn=1000/6.022*Valu; - end - if Unit=='bp' - MilliIn=1000/72*Valu; - end - if Unit=='dd' - MilliIn=1000/1238/1157/72.27*Valu; - end - if Unit=='cc' - MilliIn=1000/1238/1157/72.27*12*Valu;p - end - if Unit=='sp' - MilliIn=1000/72.27/65536*Valu/10; - end - MARKLEN=MARKLENNow*1000/2.54/MilliIn; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin Binary files differdeleted file mode 100644 index a2e35ff2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci deleted file mode 100644 index 92883d5a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci +++ /dev/null @@ -1,182 +0,0 @@ -// -// 08.11.12 V3.0.2b -// 08.11.26 V3.0.2c -// 08.12.08 V3.0.2d -// 08.12.11 v3.0.2e -// 08.12.17 v3.0.3a -// 08.12.21 v3.0.3b -// 08.12.30 v3.0.3c -// 09.01.15 v3.0.3d -// 09.02.20 v3.0.3e -// 09.02.27 v3.0.4a -// 09.02.27 v3.0.4b -// 09.03.06 v3.0.4c -// 09.03.09 v3.0.4d -// 09.03.10 v3.0.4e -// 09.03.12 v3.0.5a -// 09.05.12 v3.0.5b -// 09.05.18 v3.0.5c -// 09.05.27 v3.0.6a -// 09.06.01 v3.0.6b -// 09.06.05 v3.0.6c -// 09.06.13 v3.0.6d -// 09.06.24 v3.0.6e -// 09.08.12 v3.0.7a -// 09.08.13 v3.0.7b -// 09.08.23 v3.0.8a -// 09.09.10 v3.0.9a -// 09.09.18 v3.1.0a -// 09.09.21 v3.1.0b -// 09.09.25 v3.1.1a -// 09.09.25 v3.1.1b -// 09.10.01 v3.1.1c -// 09.10.03 v3.1.2a -// 09.10.04 v3.1.3a -// 09.10.05 v3.1.3b -// 09.10.08 v3.1.3c -// 09.10.09 v3.1.4a -// 09.10.11 v3.1.5a - -// Structure changed -// 09.10.11 v3.2.0beta -// 09.10.31 v3.2.0beta1031 - -// 09.11.01 v3.2.0a -// 09.11.04 v3.2.1a -// 09.11.12 v3.2.1b -// 09.11.14 v3.2.1c -// 09.11.14 v3.2.1d -// 09.11.21 v3.2.1e -// 09.11.26 v3.2.2a -// 09.12.05 v3.2.2b -// 09.12.06 v3.2.3a -// 09.12.17 v3.2.3b -// 09.12.24 v3.2.3c -// 09.12.25 v3.3.1a -// 09.12.26 v3.3.1b -// 09.12.28 v3.3.1c -// 09.12.31 v3.3.1d ( for v5.2.0) -// 10.01.01 v3.4.0alpha -// 10.01.05 v3.4.0beta -// 10.01.10 v3.4.1a -// 10.01.12 v3.4.1b -// 10.01.16 v3.4.1c -// 10.01.21 v3.4.2a -// 10.02.01 v3.4.2b -// 10.02.07 v3.4.2c -// 10.02.12 v3.4.2d -// 10.02.14 v3.4.2e -// 10.02.16 v3.4.3a -// 10.02.20 v3.4.3b Windisp -// 10.02.24 v3.4.3c Execmd -// 10.03.07 v3.4.3d -// 10.03.28 v3.4.4a -// 10.03.28 v3.4.4b -// 10.04.03 v3.4.5a -// 10.04.10 v3.4.5b -// 10.04.16 v3.4.6a -// 10.04.24 v3.4.6b -// 10.04.24 v3.4.6b1 -// 10.04.27 v3.4.7a -// 10.05.03 v3.4.7b -// 10.05.09 v3.4.7c Makeskeletondata, Makeskeletonpersdata -// 10.05.12 v3.4.7d Texfor -// 10.05.15 v3.4.8a Texctr -// 10.08.15 v3.5.0a Phcutoffdata -// 10.09.02 Dropnumlistcrv -// 10.10.20 Texfor -// 10.11.04 Hatchdata, Roundstr -// 10.11.13 v3.5.0b Flattenlist added. Dashline, Invdashline changed -// 10.12.02 v3.5.0c Lineplot changed -// Makecurves debugged -// Enclosing changed (Output ) -// 11.01.07 v3.5.1a Readtextdata is changed -// Dividegraphiics, Splinedata are changed -// Facesdata is debugged (HiddenL) -// Rmmember added -// 11.04.13 Nohiddenpers2, Htickmark, Vtickmark are debugged -// 11.05.29 v4.0.0a ketpict2e released, too -// Setcolor, Ratiocmyk -// 11.11.02 v4.0.0b Joingraphics changed -// 11.12.12 v4.0.0c Skeletonparadata... changed (for various list ) -// 11.12.18 Framedata (compliant for list ) -// 12.01.07 v4.0.1a Arrowline, Arrowhead ( kirikomi ) -// 12.04.16 v4.0.1b Arrowhead debugged -// 12.08.26 v4.0.1c Arrowline debugged -// 13.05.03 v4.2a Tabledata, Pointdata changed -// Dividetable, Partframe added -// 13.05.17 v4.2_1a Arrowhead debugged -// Openfile, Closefile, Ketinit() changed -// 13.08.13 v4.2_2 Cancoordpara added -// 13.10.06 v4.2_2a Readtextdata debugged and changed (Format) -// 13.11.02 v4.3_0 __ added to local variables -// Openfile, Closefile changed -// 13.11.02 v4.3_0a Closefile debugged -// 13.11.13 v4.3_0b Arrowhead, Arrowheaddata debugged -// 13.12.03 v4.3_1 Bowname changed, Meetpoint debugged -// 14.01.10 v4.3_1a Readtextdata debugged (Big data) -// 14.03.05 v4.3_1b MARKLEN separated from MEMORI -// 14.03.23 Rotate3data debugged -// 14.03.30 v43_1c Facesdata debugged -// 14.06.09 v43_2a Phcutdata debugged (cause unknown ) -// 14.06.22 v5_0_1a Obj macros added -// 14.06.28 v5_0_1b debug cuspsplit (para, pers) -// 14.07.05 v5_0_1c debug (warning ) Makeskeletondata, Makeskeletonpersdata -// debug Makexybdy (by Kitahara) -// 14.07.18 v5_0_1d Objsurf, Objthicksurf changed ( input argument ) -// 14.08.26 V5_1_0a Symbdata, Symb3data, Objsymb added -// Objcurve debugged -// 14.09.07 v5_1_0b Objjoin added -// 14.09,08 v5_1_1a ReadfromCindy added -// 14.09.16 v5_1_1b WritetoCindy added -// 14.09.26 v5_1_1c Derivative changed ( to numderivative) -// 14.09.30 v5_1_1d Assignrep changed -// 14.10.08 v5_1_1e ReadfromCindy debugged -// 14.10.08 v5_1_1f ReadfromCindy supported CF|LF -// 14.10.10 v5_1_2a ReadOutdata, WritOutData added -// 14.10.24 v5_1_2b Derivative changed ( derivative or numderivative used a.t scilab version) -// Plotdata,Paramplot,Circledata changed ( N,D,E,R => N__, ... ) -// 14.12.11 v5_1_3a Assign changed (replaced only variable name ) -// Plotdata changed (and debugged ), Paramplot changed -// 12.14 WriteOutData,ReadOutData changed ( for 3d ) -// 14.12.28 v5_1_3b Assign debugged -// 15.01.01 v5_1_4a Bezierpt,Bezier added -// 15.01.03 v5_1_4b ReadOutData changed ("start","end") -// 15.02.08 v5_1_5a Bezier pt changed (available for 3d) -// 15.02.18 v5_1_5b Assign debugged -// 15.02.19 v5_1_5c Assign again debugged -// 15.04.10 v5_1_5d EnclosingS debugged -// Translatedata, Rotatedata, Reflectdata, Scaledate changed (Flattenlist) -// 15.04.18 v5_1_5e Assign debugged -// 15.05.03 v5_1_6a Setcolor,Ratiocmyk changed ( for cmyk, rgb, mycolor ) -// 15.05.04 Definecolor added -// 15.06.11 v5_1_6b Arrowline, Arrowhead debugged -// 15.06.14 v5_1_6c Skeletonpara3data debugged -// Arrowhead changed (0.2 -> 0.1 ) -// 15.10.19 v5_1_6d Skeletonpara3data debugged -// 15.10.23 v5_1_6e ReadOutData changed ( for the lenth of PD is 1 ) -// 15.10.23 Meetwindow changed ( horner non used ) -// 15.10.24 Arrowline debugged -// 15.10.23 v5_1_6f WriteOutData changed ( endmark //// ) -// 15.11.05 v5_1_6g WriteOutData changed -// 15.11.16 v5_2_1 Ovaldata changed ( Rc ) -// Plotdata, Paramplot, Deqplot -// number of points changed to number of intervals -// 15.12.08 v5_2_2 Deqplot debugged ( option __) -// 16.08.20 v5_2_3 Spacecurve debugged ( N ) -// 16.10.09 v5_2_3a Objcurve changed ( N of Sapcecurve) -// 16.10.09 v5_2_3b Kyoukai changed ( Eps =>10^(-4)) -// 16.10.09 v5_2_3c Enclosing, Kyoukai changed ( to make it a closed curve)) -// 16.12.13 v5_2_3d Plotdata,Paramplot,Spacecurve changed ( for only one point) -// 16.12.24 v5_2_3e Makeskeletondata debugged ( for nul interval) -// 16.12.29 v5_2_3f Anglemark, MeetWindow debugged ( for nul interval) -// 16.12.29 v5_2_3g Shade changed (for colorname or colorcode) -// 17.03.19 v5_2_3h Openpicture,Setunitlen debugged ( for 6 ) -// 17.05.21 v5_2_3i Evlptablepara changed (division number) - - -function Setversion() - global THISVERSION; - THISVERSION='v5_2_3i'; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin Binary files differdeleted file mode 100644 index 0fdd661f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci deleted file mode 100644 index fb72097b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci +++ /dev/null @@ -1,44 +0,0 @@ -// -// 09.02.27 -// 10.04.25 - -function Out=Setwindow(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - if Nargs==0 - Out=[XMIN,XMAX,YMIN,YMAX]; - disp(Out); - return; - end; - if Nargs==1 - Dt=varargin(1); - if type(Dt)==1 - Dt=list(Dt); - end; - Xm=%inf; XM=-%inf; - Ym=%inf; YM=-%inf; - for I=1:length(Dt) - GL=Dividegraphics(Dt(I)); - for J=1:length(GL) - G=GL(J); - Tmp=min(G(:,1)); Xm=min(Xm,Tmp); - Tmp=max(G(:,1)); XM=max(XM,Tmp); - Tmp=min(G(:,2)); Ym=min(Ym,Tmp); - Tmp=max(G(:,2)); YM=max(YM,Tmp); - end; - end; - XMIN=Xm; XMAX=XM; - YMIN=Ym; YMAX=YM; - end; - if Nargs==2 - RgX=varargin(1); - RgY=varargin(2); - XMIN=RgX(1); XMAX=RgX(2); - YMIN=RgY(1); YMAX=RgY(2); - end - if Nargs==4 - XMIN=varargin(1); XMAX=varargin(2); - YMIN=varargin(3); YMAX=varargin(4); - end; - Out=[XMIN,XMAX,YMIN,YMAX]; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin Binary files differdeleted file mode 100644 index df965eb7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci deleted file mode 100644 index 9c20a13b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci +++ /dev/null @@ -1,62 +0,0 @@ -// 08.08.16 -// 08.10.10 -// 13.10.21 ( __ added to varibles ) - -function PL__=Sf3data(varargin) - Nargs__=length(varargin); - FdL__=Fullformfunc(varargin(1)); - F__=Mixop(1,FdL__); - Xf__=Mixop(2,FdL__); - Yf__=Mixop(3,FdL__); - Zf__=Mixop(4,FdL__); - Urg__=Mixop(5,FdL__); - Vrg__=Mixop(6,FdL__); - K__=mtlb_findstr(Urg__,'='); - U__=part(Urg__,1:K__-1); - Tmp__=part(Urg__,K__+1:length(Urg__)); - Tmp__=evstr(Tmp__); - Umin__=Tmp__(1); Umax__=Tmp__(2); - K__=mtlb_findstr(Vrg__,'='); - V__=part(Vrg__,1:K__-1); - Tmp__=part(Vrg__,K__+1:length(Vrg__)); - Tmp__=evstr(Tmp__); - Vmin__=Tmp__(1); Vmax__=Tmp__(2); - Ndu__=25 ; Ndv__=25; Np__=[50,50]; - if Nargs__>=3 - Ndu__=varargin(2); - Ndv__=varargin(3); - end; - if Nargs__>=4 - Np__=varargin(4); - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Du__=(Umax__-Umin__)/Ndu__; - Dv__=(Vmax__-Vmin__)/Ndv__; - PL__ = []; - for I__=0:Ndu__ - U0__ ='('+string(Umin__+I__*Du__)+')'; - Tmp__=strsubst(Xf__,U__,U0__); - Tmp1__=strsubst(Tmp__,V__,'t'); - Tmp__=strsubst(Yf__,U__,U0__); - Tmp2__=strsubst(Tmp__,V__,'t'); - Tmp__=strsubst(Zf__,U__,U0__); - Tmp3__=strsubst(Tmp__,V__,'t'); - Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']'; - PD__=Spacecurve(Tmp__,'t=[Vmin__,Vmax__]','N='+string(Np__(2))); - PL__=Mixadd(PL__,PD__); - end; - for J__=0:Ndv__ - V0__='('+string(Vmin__+J__*Dv__)+')'; - Tmp__=strsubst(Xf__,V__,V0__); - Tmp1__=strsubst(Tmp__,U__,'t'); - Tmp__=strsubst(Yf__,V__,V0__); - Tmp2__=strsubst(Tmp__,U__,'t'); - Tmp__=strsubst(Zf__,V__,V0__); - Tmp3__=strsubst(Tmp__,U__,'t'); - Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']'; - PD__=Spacecurve(Tmp__,'t=[Umin__,Umax__]','N='+string(Np__(1))); - PL__=Mixadd(PL__,PD__); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin Binary files differdeleted file mode 100644 index a86220d5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci deleted file mode 100644 index 7a759f69..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 08.09.13 -// 10.02.16 Eps => [Eps, Epsmag] - -function Out5=Sfbdparadata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=3 - Eps=varargin(3); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=4 - Eps2=varargin(4); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - IMPLICITDATA=Out3; - Mixdisp(Mix('ImplicitData obtained ',timer())); - Out4=Cuspsplitpara(Out3,Fd,Eps(1)); // - CUSPDATA=Out4; - CUSPPT=CUSPSPLITPT; - Mixdisp(Mix('CuspData obtained ',timer())); - Out5=Borderparadata(Out4,Fd,Np,Eps,Eps2); - Mixdisp(Mix('BorderData obtained ',timer())); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin Binary files differdeleted file mode 100644 index 304be9f0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci deleted file mode 100644 index 9833a7f4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci +++ /dev/null @@ -1,42 +0,0 @@ - -// 08.09.21 -// 10.02.16 Eps => [Eps, Epsmag] -// 13.11.02 bug - -function Out5=Sfbdpersdata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=3 - Eps=varargin(3); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=4 - Eps2=varargin(4); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - IMPLICITDATA=Out3; - Mixdisp(Mix('ImplicitData obtained ',timer())); - Out4=Cuspsplitpers(Out3,Fd,Eps(1)); // 13.11.02 - CUSPDATA=Out4; - CUSPPT=CUSPSPLITPT; - Mixdisp(Mix('CuspData obtained ',timer())); - Out5=Borderpersdata(Out4,Fd,Np,Eps,Eps2); - Mixdisp(Mix('BorderData obtained ',timer())); -endfunction; - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin Binary files differdeleted file mode 100644 index cb2d0f7a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci deleted file mode 100644 index 082ccec3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci +++ /dev/null @@ -1,33 +0,0 @@ -// 08.09.10 -// 08.09.13 - -function Out5=Sfbdrawparadata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=0.05; - if Nargs>=3 - Eps=varargin(3); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - BdyL=Mixop(8,FdL); - if BdyL~=[] - Out3=Clipindomain(Out3,BdyL) - end; - IMPLICITDATA=Out3; - Out4=Cuspsplitpara(Out3,Fd,Eps); - CUSPDATA=Out4; - CCUSPPT=CUSPSPLITPT; - Out5=Borderrawdata(Out4,Fd,Np,Eps); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin Binary files differdeleted file mode 100644 index 5731c723..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci deleted file mode 100644 index cde6870f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci +++ /dev/null @@ -1,31 +0,0 @@ -// 08.09.21 - -function Out5=Sfbdrawpersdata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=0.05; - if Nargs>=3 - Eps=varargin(3); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - BdyL=Mixop(8,FdL); - if BdyL~=[] - Out3=Clipindomain(Out3,BdyL) - end; - IMPLICITDATA=Out3; - Out4=Cuspsplitpers(Out3,Fd,Eps); - CUSPDATA=Out4; - CCUSPPT=CUSPSPLITPT; - Out5=Borderrawdata(Out4,Fd,Np,Eps); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin Binary files differdeleted file mode 100644 index a7dae3c3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci deleted file mode 100644 index 5a15d61c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci +++ /dev/null @@ -1,105 +0,0 @@ -// 08.09.09 -// 08.09.19 -// 08.09.20 -// 08.09.24 -// 08.10.09 -// 08.10.10 -// 13.10.21 ( __ added to varibles ) - -function EkL__=Sfcutdata(varargin) - Nargs__=length(varargin); - Fd__=varargin(1); - CutD__=varargin(2); - Np__=[50,50]; - if Nargs__>=3 - Tmp__=varargin(3); - if type(Tmp__)==1 & length(Tmp__)==1 - Np__=[Tmp__,Tmp__]; - end; - end; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Mixop(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - Fd__L=Fullformfunc(Fd__); - Xf__=Mixop(2,Fd__L); - Yf__=Mixop(3,Fd__L); - Zf__=Mixop(4,Fd__L); - Tmp__=Mixop(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); Umax=Urg__(2); - Vmin__=Vrg__(1); Vmax=Vrg__(2); - if Mixtype(CutD__)~=1 - V1__=Mixop(1,CutD__); - Tmp__=Mixop(2,CutD__); - if length(Tmp__)>1 - D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - D__=Tmp__; - end; - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-'; - Eq__=Tmp__+string(D__); - elseif type(CutD__)==1 - V1__=CutD__(1:3); - D__=CutD__(4); - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+'; - Eq__=Tmp__+string(D__); - else - K__=mtlb_findstr(CutD__,'='); - if K__>0 - Tmp__1=part(CutD__,1:K__-1); - Tmp__2=part(CutD__,K__+1:length(CutD__)); - Eq__=Tmp__1+'-('+Tmp__2+')'; - else - Eq__=CutD__; - end; - end; - Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')'); - Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')'); - Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')'); - Tmp__1=Mixop(5,Fd__L); - Tmp__2=Mixop(6,Fd__L); - CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__); - EkL__=[]; - for I__=1:Mixlength(CutuvL__) - Out__1=Mixop(I__,CutuvL__); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixadd(EkL__,Tmp__); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin Binary files differdeleted file mode 100644 index 07cfe7f8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci deleted file mode 100644 index 0e4c6a5b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.1 -// 10.02.17 - -function Out=Sfcutoffparadata(varargin) - Ms=list('hidden','para'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin Binary files differdeleted file mode 100644 index aaf088b5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci deleted file mode 100644 index c10cdb8d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.21 -// 10.02.17 - -function Out=Sfcutoffpersdata(varargin) - Ms=list('hidden','pers'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin Binary files differdeleted file mode 100644 index b2d998a7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci deleted file mode 100644 index 546f66d8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.19 -// 10.02.17 - -function Out=Sfcutoffrawparadata(varargin) - Ms=list('raw','para'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin Binary files differdeleted file mode 100644 index 8c08c1b7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci deleted file mode 100644 index e5a387f5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.21 -// 10.02.17 - -function Out=Sfcutoffrawpersdata(varargin) - Ms=list('raw','pers'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin Binary files differdeleted file mode 100644 index 45df29ba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci deleted file mode 100644 index 5aa4e5e5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 08.08.16 - -function Out=Sfparadata(varargin) - Nargs=length(varargin); - Fd=varargin(1); - Ndu=25 ; Ndv=25; Np=[50,50]; - if Nargs>=3 - Ndu=varargin(2); - Ndv=varargin(3); - end; - if Nargs>=4 - Np=varargin(4); - end; - Tmp=Sf3data(Fd,Ndu,Ndv,Np); - Out=Projpara(Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin Binary files differdeleted file mode 100644 index 3350f9b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci deleted file mode 100644 index ecc63e41..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 08.08.15 - -function Out=Sfpersdata(varargin) - Nargs=length(varargin); - Fd=varargin(1); - Ndu=25 ; Ndv=25; Np=[50,50]; - if Nargs>=3 - Ndu=varargin(2); - Ndv=varargin(3); - end; - if Nargs>=4 - Np=varargin(4); - end; - Tmp=Sf3data(Fd,Ndu,Ndv,Np); - Out=Projpers(Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin Binary files differdeleted file mode 100644 index 130e2b32..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci deleted file mode 100644 index ff22a933..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci +++ /dev/null @@ -1,84 +0,0 @@ -// 08.05.22 -// 09.12.25 -// 11.05.27 (for pdflatex ) -// 17.01.09 (shade, thickness ) - -function Shade(varargin) - global Wfile FID MilliIn; - // 2nd arg is a color name or '[..]{ }' - Nargs=length(varargin); - Iroflg=0; - if Nargs>1 - Iroflg=1; - Iro=varargin(Nargs); - if type(Iro)==10 then - if length(strchr(Iro,"{"))>0 - Str="{\color"+Iro; - else - Str="{\color{"+Iro+"}"; - end; - else - if length(Iro)==4 - Str='{\color[cmyk]{'; - else - Str='{\color[rgb]{'; - end; - for J=1:length(Iro) - Str=Str+string(Iro(J)); - if J<length(Iro) then - Str=Str+','; - end - end - Str=Str+'}'; - end; - if Wfile=='default' - mprintf('%s\n',Str+'%'); - else - mfprintf(FID,'%s\n',Str); - end; - end; - Mojisu=0; // - Tmp=varargin(1); - Data=Kyoukai(Tmp); - for I=1:length(Data) - PL=Op(I,Data); - for J=1:size(PL,1) - P=Doscaling(PL(J,:)); - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Pt='('+X+','+Y+')'; - if J==1 then - Str='\polygon*'+Pt; - else - Str=Pt; - end - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - Mojisu=0; - end; - end; - end; - if Iroflg==1 - Str='}%'; - if Mojisu>0 - Fmt='\n%s\n'; - else - Fmt='%s\n'; - end; - if Wfile=='default' - mprintf(Fmt,Str); - else - mfprintf(FID,Fmt,Str); - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin Binary files differdeleted file mode 100644 index 89d8b459..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci deleted file mode 100644 index 4eec31cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci +++ /dev/null @@ -1,71 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 09.06.13 - -function Out=Skeleton2data(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - Tmp=varargin(1); - if Mixtype(Tmp)==1 - ObjL=MixS(Tmp); - elseif Mixtype(Tmp)==2 - ObjL=Tmp; - else - ObjL=[]; - for I=1:Mixlength(Tmp) - Tmp1=Mixop(I,Tmp); - if Mixtype(Tmp1)==1 - ObjL=Mixadd(ObjL,Tmp1); - else - ObjL=Mixjoin(ObjL,Tmp1); - end; - end; - end; - Tmp=varargin(2); - if Mixtype(Tmp)==1 - PltL=MixS(Tmp); - elseif Mixtype(Tmp)==2 - PltL=Tmp - else - PltL=[]; - for I=1:Mixlength(Tmp) - Tmp1=Mixop(I,Tmp); - if Mixtype(Tmp1)==1 - PltL=Mixadd(PltL,Tmp1); - else - PltL=Mixjoin(PltL,Tmp1); - end; - end; - end; - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.01; - if Nargs>3 - Eps2=varargin(4); - end; - Obj2L=[]; - for I=1:Mixlength(ObjL) - Curve=Mixop(I,ObjL); - Obj2=[]; - for J=1:size(Curve,1) - P=Curve(J,:); - Obj2=[Obj2;P,-1]; - end; - Obj2L=Mixadd(Obj2L,Obj2); - end; - Plt2L=[] - for I=1:Mixlength(PltL) - Curve=Mixop(I,PltL); - Plt2=[]; - for J=1:size(Curve,1) - P=Curve(J,:); - Plt2=[Plt2;P,0]; - end; - Plt2L=Mixadd(Plt2L,Plt2); - end; - Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin Binary files differdeleted file mode 100644 index 03fcdda2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci deleted file mode 100644 index 5914d47a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci +++ /dev/null @@ -1,48 +0,0 @@ -// 09.09.25 -// 11.12.12 -// 15.06.14 -// 15.10.19 - -function Out=Skeletonpara3data(varargin) - global MilliIn; - Eps=10^(-4); // 15.06.14 - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Plt2L=list(); - for I=1:Mixlength(Plt3L) - Plt2L($+1)=ProjcoordCurve(Plt3L(I)); - end; - Out=list(); - for I=1:length(ObjL) - Obj3=ObjL(I); - Tmp=ProjcoordCurve(Obj3); - Data=Makeskeletondata(Mix(Tmp),Plt2L,R,Eps2); - for J=1:length(Data) - Gd=Data(J); - if size(Gd,1)==1 // 15.10.19 - continue; - end; - if norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))<Eps // 15.06.14 - continue - end; - PtD=[]; - for J=1:size(Gd,1) - Tmp=Gd(J,:); - Tmp1=Invparapt(Tmp,Obj3); - Tmp1=Mixop(1,Tmp1); - PtD=[PtD;Tmp1]; - end; - Out($+1)=PtD; - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin Binary files differdeleted file mode 100644 index 913af31d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci deleted file mode 100644 index 1270f789..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.07.13 -// 08.08.08 -// 08.10.16 -// 11.12.12 (Flattenlist) - -function Out=Skeletonparadata(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Obj2L=list(); - for I=1:length(ObjL) - Obj2L($+1)=ProjcoordCurve(ObjL(I)); - end; - Plt2L=list(); - for I=1:length(Plt3L) - Plt2L($+1)=ProjcoordCurve(Plt3L(I)); - end; - Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin Binary files differdeleted file mode 100644 index ec2a9bad..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci deleted file mode 100644 index 57dde938..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.09.25 -// 11.12.12 - -function Out=Skeletonpers3data(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Plt2L=[]; - for I=1:Mixlength(Plt3L) - Tmp=CameracoordCurve(Mixop(I,Plt3L)); - Plt2L=Mixadd(Plt2L,Tmp); - end; - Out=list(); - for I=1:length(ObjL) - Obj3=ObjL(I); - Tmp=CameracoordCurve(Obj3); - Data=Makeskeletonpersdata(Mix(Tmp),Plt2L,R,Eps2); - for J=1:length(Data) - Gd=Data(J); - PtD=[]; - for J=1:size(Gd,1) - Tmp=Gd(J,:); - Tmp1=Invperspt(Tmp,Obj3); - Tmp1=Mixop(1,Tmp1); - PtD=[PtD;Tmp1]; - end; - Out($+1)=PtD; - end; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin Binary files differdeleted file mode 100644 index 7d2c1a07..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci deleted file mode 100644 index c91e73cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 11.12.12 - -function Out=Skeletonpersdata(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Obj2L=list(); - for I=1:length(ObjL) - Obj2L($+1)=CameracoordCurve(ObjL(I)); - end; - Plt2L=list(); - for I=1:length(Plt3L) - Plt2L($+1)=CameracoordCurve(Plt3L(I)); - end; - Out=Makeskeletonpersdata(Obj2L,Plt2L,R,Eps2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin Binary files differdeleted file mode 100644 index 880f8540..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci deleted file mode 100644 index 077a88cb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci +++ /dev/null @@ -1,83 +0,0 @@ -// 08.07.11 -// 09.05.27 -// 09.06.02 -// 09.12.31 (gsort) -// 13.10.21 ( __ added to varibles ) -// 16.08.20 (N changed to devided number ) -// 16.12.13 ( in case of T1=T2) - -function P__=Spacecurve(varargin) - Eps__=10^(-5); - Nargs__=length(varargin); - Fnstr__=varargin(1); - Rgstr__=varargin(2); - Range__=[0,2*%pi]; - N=50; // Numpoints - E=[]; // Exclusions - D=%inf; // Discont (Changed) - for I__=3:Nargs__ - Tmp__=varargin(I__); - K__=mtlb_findstr(Tmp__,'='); - Tmp1__=strsplit(Tmp__,[K__-1,K__]); - Tmp2__=ascii(Tmp1__(1,1)); - Lhs__=char(Tmp2__(1)); - Str__=Lhs__+'='+Tmp1__(3,1); - execstr(Str__); - end; - K__=mtlb_findstr(Rgstr__,'='); - if K__~=[] - Tmp__=strsplit(Rgstr__,[K__-1,K__]); - Vname__=Tmp__(1,1); - Rng__=evstr(Tmp__(3,1)); - else - Vname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end - T1__=Rng__(1); T2__=Rng__(2); - Dt__=(T2__-T1__)/N; // 16.08.20 - Str__=mtlb_strrep(Fnstr__,Vname__,'t__'); - if abs(Dt__)<Eps__ then // 16.12.13 - t__=T1__; - P__=evstr(Str__); - return; - end; - P__=[]; - E=gsort(E); - E=E(length(E):-1:1); - E=[E,%inf]; - Tmp__=gsort(E); - E=Tmp__(length(Tmp__):-1:1); - Ke__=1; - for t__=T1__:Dt__:T2__ - Pa__=[]; - if t__-E(Ke__)<-Eps__ - Pa__=evstr(Str__); - end - if abs(t__-E(Ke__))<=Eps__ - if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf,%inf] - Pa__=[%inf,%inf,%inf]; - end - end - if t__-E(Ke__)>Eps__ - Pa__=evstr(Str__); - Ke__=Ke__+1; - end - if Pa__~=[] - if Pa__(1)==%inf - P__=[P__;Pa__] - elseif P__==[] - P__=[Pa__]; - else - Tmp__=P__(size(P__,1),:); - if Tmp__(1)==%inf - P__=[P__;Pa__]; - elseif norm(Tmp__-Pa__)<D - P__=[P__;Pa__]; - else - P__=[P__;%inf,%inf,%inf;Pa__]; - end - end - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin Binary files differdeleted file mode 100644 index 86bddaa8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci deleted file mode 100644 index 9fe33c06..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci +++ /dev/null @@ -1,27 +0,0 @@ -// 08.07.11 - -function Z=Spaceline(varargin) - Z=[]; - for I=1:length(varargin) - Data=varargin(I); - if Mixtype(Data)==1 - for J=1:3:size(Data,2) - Tmp=Data(J:J+2); - Z=[Z;Tmp]; - end; - continue; - end; - if Mixtype(Data)==3 - Tmp=[]; - for I=1:Mixlength(Data); - Tmp=Mixjoin(Tmp,Mixop(I,Data)); - end; - Data=Tmp; - end; - for J=1:Mixlength(Data) - Tmp=Mixop(J,Data); - Z=[Z;Tmp]; - end; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin Binary files differdeleted file mode 100644 index cadb3d56..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci deleted file mode 100644 index a4de85ea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci +++ /dev/null @@ -1,108 +0,0 @@ -// 08.05.28 -// 08.05.29 -// 09.06.13 -// 10.04.24 -// 10.04.25 -// 11.01.07 ( major changed ) - -function OutL=Splinedata(varargin) - global SplinePt; - Nargs=length(varargin); - Eps=10^(-3); - PL=varargin(1); - if type(PL)==10 // 100425 - Fname=PL; - PL=Readtextdata(Fname); - else - if size(PL,1)==1 - PL=matrix(PL,2,length(PL)/2); - PL=PL'; - end; - end; - if size(PL,2)==3 - Flg3=1; - else - Flg3=0; - end; - PLL=Dividegraphics(PL); - N=50; - C=[]; - for I=2:Nargs - Tmp=varargin(I); - if type(Tmp)~=10 continue; end - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - else - Tmp1=Strop(1,Tmp); - if Tmp1=='C' | Tmp1=='c' - C=1:length(PLL); - end; - end; - end; - Cflg=zeros(1,length(PLL)); - for J=1:length(C) - K=C(J); - Cflg(K)=1; - end; - if length(N)>1 - if type(Nj)==1 - Nj=N; - else - Nj=[]; - for J=1:length(N) - Nj(J)=N(J); - end; - end; - else - Tmp1=[]; - for J=1:length(PLL) - Tmp1(J)=size(PLL(J),1); - end; - MxP=max(Tmp1); - Nj=[]; - for J=1:length(PLL) - Tmp=size(PLL(J),1); - Tmp1=round(N/MxP*(Tmp-1)); - Nj(J)=Tmp1; - end; - end; - OutL=list(); - for J=1:length(PLL) // - PL=PLL(J); - if Cflg(J)==1 - if norm(PL(1,:)-PL(size(PL,1),:))>Eps - PL=[PL;PL(1,:)]; - Nj(J)=round(N/MxP*size(PL,1)); - else - PL(size(PL,1),:)=PL(1,:); - end - end; - SplinePt=PL; - Tn=1:size(PL,1); - Xn=PL(:,1)'; - Yn=PL(:,2)'; - if Flg3==1 Zn=PL(:,3)';end; - if Cflg(J)==0 - Dxn=splin(Tn,Xn); - Dyn=splin(Tn,Yn); - if Flg3==1 Dzn=splin(Tn,Zn); end; - else - Dxn=splin(Tn,Xn,'periodic'); - Dyn=splin(Tn,Yn,'periodic'); - if Flg3==1 Dzn=splin(Tn,Zn,'periodic'); end; - end - T=linspace(1,size(PL,1),Nj(J)); - X=interp(T,Tn,Xn,Dxn); - Y=interp(T,Tn,Yn,Dyn); - if Flg3==1 Z=interp(T,Tn,Zn,Dzn); end; - if Flg3==1 - Out=[X',Y',Z']; - else - Out=[X',Y']; - end; - OutL($+1)=Out; - end; - if length(OutL)==1 - OutL=OutL(1); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin Binary files differdeleted file mode 100644 index de695ff2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci deleted file mode 100644 index 8f4da94d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci +++ /dev/null @@ -1,11 +0,0 @@ -function C=Strop(Num,Str) - N=length(Num); - L=ascii(Str); - C=''; - for I=1:N - K=Num(I); - Tmp=char(L(K)); - C=C+Tmp; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin Binary files differdeleted file mode 100644 index 2ca7ae03..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci deleted file mode 100644 index 785b605c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci +++ /dev/null @@ -1,21 +0,0 @@ -// -// 08.06.04 - -function V=Subs(SbstrL,StrF) - Str=StrF; - if type(StrF)==2 - Str=pol2str(StrF); - end - V=StrF; - for N=1:size(SbstrL,2) - Sbstr=SbstrL(1,N); - I=mtlb_findstr(Sbstr,'='); - Tmp=strsplit(Sbstr,I); - SbA=Tmp(1); - SbA=Op(1:length(SbA)-1,SbA); - SbB=Tmp(2); - V=strsubst(V,SbA,SbB); - end - V=evstr(V); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin Binary files differdeleted file mode 100644 index 0e796d65..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci deleted file mode 100644 index 55fdfd0f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 08.05.30 -// 08.05.31 -// 08.06.03 -// 13.10.21 (__ added to variables ) - -function PL__=Sumfun(varargin) - global XMIN XMAX YMIN YMAX - Nargs__=length(varargin); - Const__=0; - Addstr__='A__=0'; - J__=1; - Tmp__=varargin(1); - if type(Tmp__)==1 - Const__=Tmp__; - J__=J__+1; - end - if type(Tmp__)==10 - Tmp1__=Strop(length(Tmp__),Tmp__); - if Tmp1__=='+' - Addstr__='A__='+Strop(1:length(Tmp__)-1,Tmp__); - J__=J__+1 - end - end - Fnstr__=varargin(J__); - Krange__=varargin(J__+1); - Xrange__=varargin(J__+2); - N=50; - for I__=J__+3:Nargs__ - Tmp__=varargin(I__); - execstr(Tmp__); - end - Tmp__=mtlb_findstr(Krange__,'='); - Kname__=Strop(1:Tmp__-1,Krange__); - Tmp1__=Strop(Tmp__+1:length(Krange__),Krange__); - Tmp1__='Krg__='+Tmp1__; - execstr(Tmp1__); - Tmp__=mtlb_findstr(Xrange__,'='); - if Tmp__==[] - Xname__=Xrange__; - Xrg__=[XMIN,XMAX]; - else - Xname__=Strop(1:Tmp__-1,Xrange__); - Tmp1__=Strop(Tmp__+1:length(Xrange__),Xrange__); - Tmp1__='Xrg__='+Tmp1__; - execstr(Tmp1__); - end - Dx__=(Xrg__(2)-Xrg__(1))/N; - PL__=[]; - I__=0; - while I__<=N - Tmp__=Xname__+'=Xrg__(1)+I__*Dx__'; - execstr(Tmp__); - J__=Krg__(1); - execstr(Addstr__); - Y__=Const__+A__; - while J__<=Krg__(length(Krg__)) - Tmp__=Kname__+'=J__'; - execstr(Tmp__); - execstr('Y__=Y__+'+Fnstr__); - J__=J__+1; - end - PL__=[PL__;Xrg__(1)+I__*Dx__,Y__]; - I__=I__+1; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin Binary files differdeleted file mode 100644 index c5c00977..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci deleted file mode 100644 index 0d649872..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci +++ /dev/null @@ -1,30 +0,0 @@ -// s : 2014.08.25 - -function Out=Symb3data(Moji,Size,Kaiten,NV,Pos) - if type(Moji)==10 then - Tmp=Symbdata(Moji); - GY1=Tmp(2) - else - GY1=Moji - end - GY1=Scaledata(GY1,Size,Size); - GY1=Rotatedata(GY1,Kaiten*%pi/180); - A=NV(1); B=NV(2); C=NV(3); - if A^2+B^2==0 then - E1=[1,0,0]; - E2=[0,1,0]; - else - E1=[B,-A,0]; - E2=[-A*C,-B*C,A^2+B^2]; - D=det([E1;E2;NV]); - if D<0 then - E1=-E1 - end - E1=E1/norm(E1); - E2=E2/norm(E2); - end - deff("Out=Em(X,Y)","Out=[E1(1)*X+E2(1)*Y,E1(2)*X+E2(2)*Y,E1(3)*X+E2(3)*Y]"); - GY1=Embed(GY1,Em); - GY1=Translate3data(GY1,Pos); - Out=Flattenlist(GY1); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin Binary files differdeleted file mode 100644 index 2fb81c8f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci deleted file mode 100644 index d63a3470..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci +++ /dev/null @@ -1,67 +0,0 @@ -// s : 2014.08.25 -// 14.09.07 - -function Out=Symbdata(Moji) - ML=list(); Sp=[]; CC=[]; - if Moji=="x" then - M1=[-0.042,0.035;-0.027,0.045;-0.01,0.045;0.004,0.03;0.00,0.00;... - -0.004,-0.03;0.01,-0.045;0.027,-0.045;0.042,-0.035]; - M2=[0.055,0.035;0.043,0.045;0.027,0.045;0.01,0.03;0.00,0.00;... - -0.01,-0.03;-0.027,-0.045;-0.043,-0.045;-0.055,-0.035]; - ML=list(M1,M2); - Sp=[100,100]; - CC=[0,0]; - end; - if Moji=="y" then - M1=[-0.06,0.06;... - -0.045,0.080;... - -0.03,0.080;... - -0.022,0.065;... - -0.032,0.035;... - -0.035,-0.01;... - 0.007,-0.008;... - 0.037,0.04;... - 0.05,0.09]; - M2=[0.05,0.09;... - 0.037,0.04;... - 0.025,-0.00;... - 0.015,-0.035;... - -0.000,-0.055;... - -0.025,-0.062;... - -0.05,-0.045]; - ML=list(M1,M2); - Sp=[100,100]; - CC=[0,0]; - end - if Moji=="z" then - M1=[-0.035,0.035;-0.023,0.045;-0.01,0.045;... - 0.01,0.04;0.035,0.04;0.042,0.045]; - M2=[0.042,0.045;0.00,0.00;-0.042,-0.045]; - M3=[-0.042,-0.045;-0.035,-0.04;-0.01,-0.04;... - 0.01,-0.045;0.023,-0.045;0.035,-0.035]; - ML=list(M1,M2,M3); - Sp=[100,0,100]; - CC=[0,0,0]; - end - Out1=list() - Out2=list() - for J=1:length(ML) - M=ML(J); - N=Sp(J); - for K=1:size(M,1) - P=M(K,:) - Out1($+1)=P - end - if N>0 then - if CC(J)==0 then - S=Splinedata(M,"N="+string(N)) - else - S=Splinedata(M,"N="+string(N),"C") - end - else - S=M - end; - Out2($+1)=S - end - Out=list(Out1,Out2) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin Binary files differdeleted file mode 100644 index 774b416f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci deleted file mode 100644 index 621f6256..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci +++ /dev/null @@ -1,130 +0,0 @@ -// 09.11.26 -// 09.12.06 -// 09.12.25 -// 10.01.12 -// 10.01.13 -// 10.03.28 -// 10.03.30 -// 13.05.03 Domain can be omitted - -function Out=Tabledata(varargin) -// 2013.05.01 Domain is optional. - Eps=0.001; - Tmp=varargin(1); // 130502 from - if type(Tmp)==1 - Domain=varargin(1); - VL=varargin(2); - HL=varargin(3); - else - Domain=[-1,-1]; - VL=varargin(1); - HL=varargin(2); - end; // 130502 upto - Hsize=Domain(1); - SvL=list(0); - S=0; - for I=1:length(VL) - Tmp=VL(I); - S=S+Tmp(1); - Tmp(1)=S; - SvL($+1)=Tmp; - end; - if Hsize>S - SvL($+1)=Hsize; - end; - Hsize=Op(1,SvL(length(SvL))); - Vsize=Domain(2); - ShL=list(0); - S=0; - for I=1:length(HL) - Tmp=HL(I); - S=S+Tmp(1); - Tmp(1)=S; - ShL($+1)=Tmp; - end; - if Vsize>S - ShL($+1)=Vsize; - end; - Vsize=Op(1,ShL(length(ShL))); - Marw=0; Mare=0; Mars=0; Marn=0; - if length(Domain)>2 - Marw=Domain(3); - Mare=Domain(4); - end; - if length(Domain)>4 - Marn=Domain(5); - Mars=Domain(6); - end; - Setwindow([-Marw,Hsize+Mare],[-Mars,Vsize+Marn]); - Tmp=Framedata([Eps,Hsize-Eps],[Eps,Vsize-Eps]); - Gdata=list(Tmp); - Tmp=-Marw; - Hdata=list(Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]])); - for I=1:length(SvL) // 10.03.30 - Data=SvL(I); - X=Data(1); - if length(Data)==1 - Y1=0; - Y2=Vsize; - G=Listplot([X,Y1],[X,Y2]); - else - G=[]; - for J=2:2:length(Data) - Y1=Vsize-Op(1,ShL(Data(J))); // 10.03.30 - Y2=Vsize-Op(1,ShL(Data(J+1))); - Tmp=Listplot([[X,Y1],[X,Y2]]); - G=[G;%inf,%inf;Tmp]; - end; - G=G(2:size(G,1),:); - end; - Hdata($+1)=G; - end; - Tmp=Hsize+Mare; - Tmp1=Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]); - Hdata($+1)=Tmp1; - Tmp=Vsize+Marn; - Vdata=list(Listplot([[-Marw,Tmp],[Hsize+Mare,Tmp]])); - for I=1:length(ShL) - Data=ShL(I); - Y=Vsize-Data(1); - if length(Data)==1 - X1=0; - X2=Hsize; - G=Listplot([X1,Y],[X2,Y]); - else - G=[]; - for J=2:2:length(Data) - X1=Op(1,SvL(Data(J))); // 10.03.30 - X2=Op(1,SvL(Data(J+1))); - Tmp=Listplot([X1,Y],[X2,Y]); - G=[G;%inf,%inf;Tmp]; - end; - G=G(2:size(G,1),:); - end; - Vdata($+1)=G; - end; - Tmp=Listplot([[-Marw,-Mars],[Hsize+Mare,-Mars]]); - Vdata($+1)=Tmp; - Tmp1=Mixsub(3:(length(Hdata)-2),Hdata); - Tmp2=Mixsub(3:(length(Vdata)-2),Vdata); - Gdata=Mixjoin(Gdata,Tmp1,Tmp2); - Hind=2:(1+length(Tmp1)); - Vind=(2+length(Tmp1)):(1+length(Tmp1)+length(Tmp2)); - G=Gdata(1); - P1=Ptsw(G); P2=Ptnw(G); - Q1=Ptse(G); Q2=Ptne(G); - Tmp1=list(Listplot([P1,P2]),Listplot([Q1,Q2])); - P1=Ptnw(G); P2=Ptne(G); - Q1=Ptsw(G); Q2=Ptse(G); - Tmp2=list(Listplot([P1,P2]),Listplot([Q1,Q2])); - Tmp3=Framedata(); - Out=list(Gdata,Hind,Vind,Tmp1,Tmp2,Tmp3); -endfunction; - -function Out=Dividetable(Tb) - G=Tb(1); - Gw=G(1); - Gt=Mixsub(Tb(2),G); - Gy=Mixsub(Tb(3),G); - Out=list(Gw,Gt,Gy) -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin Binary files differdeleted file mode 100644 index 97832ff7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci deleted file mode 100644 index 9b848315..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci +++ /dev/null @@ -1,41 +0,0 @@ -// -// 09,12.05 -// 09.12.06 -// 09.12.07 -// 09.12.20 - -function Texcom(Meirei) - global Wfile FID; - if Meirei=='\thinlines' - Setpen(1); - return - end - if Meirei=='\thicklines' - Setpen(2); - return - end - if Meirei=='\Thicklines' - Setpen(3); - return - end; - - if Meirei=='' // 09.12.07 - Tmp=[]; - else - Tmp=mtlb_findstr(Meirei,'newline'); - end; - if length(Tmp)>0 - if Wfile=='default' - mprintf('%s\n',''); - else - mfprintf(FID,'%s\n',''); - end; - return; - end; - if Wfile=='default' - mprintf('%s%s\n',Meirei,'%'); - else - mfprintf(FID,'%s%s\n',Meirei,'%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin Binary files differdeleted file mode 100644 index e04419ed..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci deleted file mode 100644 index 2a8b08ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci +++ /dev/null @@ -1,15 +0,0 @@ -// -// 2010.05.15 - -function Out=Texctr(N) - if type(N)==1 - Alpha='abcdefghijklmnopqrstuvwxyz'; - Out='ketpicctr'+part(Alpha,N); - else - if part(N,1)=='\' - Out=part(N,2:length(N)); - else - Out=N; - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin Binary files differdeleted file mode 100644 index 30d0e388..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci deleted file mode 100644 index 8ef93556..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 10.04.16 -// 10.04.18 - -function Texelse() - Texcom(''); - Texcom('\else'); -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin Binary files differdeleted file mode 100644 index 89cf7657..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci deleted file mode 100644 index a3139873..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci +++ /dev/null @@ -1,5 +0,0 @@ -// 01.10.21 - -function Texend() - Closephr(); -endfunction
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin Binary files differdeleted file mode 100644 index 72f260ac..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci deleted file mode 100644 index ecb7b788..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 10.04.16 - -function Texendfor(I) - global TEXFORLEVEL TEXFORLAST - Last=TEXFORLAST(TEXFORLEVEL); - Texcom(''); - Texcom('\ifnum'+Texthectr(I)+'<'+Last); - Texcom('\repeat'); - Texcom('}'); - TEXFORLEVEL=TEXFORLEVEL-1; - TEXFORLAST=Mixsub(1:(length(TEXFORLAST)-1),TEXFORLAST); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin Binary files differdeleted file mode 100644 index bd069613..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci deleted file mode 100644 index 97d32d85..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 10.04.16 -// 10.04.18 - -function Texendif() - Texcom(''); // - Texcom('\fi'); - Texcom('}'); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin Binary files differdeleted file mode 100644 index b9861fc7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci deleted file mode 100644 index 0c239842..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 10.04.16 -// 10.05.12 -// 10.10.20 ( available for numeric ) - -function Texfor(I,First,Last) - global TEXFORLEVEL TEXFORLAST - TEXFORLEVEL=TEXFORLEVEL+1; - Texsetctr(I,'0'); - Texsetctr(I,string(First)+'-1'); - Texcom(''); - Texcom('{'); - Texcom('\loop'); - Texsetctr(I,'+1'); - TEXFORLAST($+1)=string(Last); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin Binary files differdeleted file mode 100644 index 3d33948a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci deleted file mode 100644 index f661c649..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 10.04.18 - -function Texforinit() - global TEXFORLEVEL TEXFORLAST - TEXFORLEVEL=0; - TEXFORLAST=list(); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin Binary files differdeleted file mode 100644 index 6f53de74..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci deleted file mode 100644 index 8cbae5dc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci +++ /dev/null @@ -1,19 +0,0 @@ -// 10.04.16 -// 10.04.18 -// 10.05.03 - -function Texif(varargin) - Condstr=varargin(1); - Tp=0; - if length(varargin)>1 - Tp=varargin(2); - end; - Texcom(''); - Texcom('{'); - if Tp==0 - Texcom('\ifnum '); - else - Texcom('\ifdim '); - end; - Texcom(Condstr+' '); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin Binary files differdeleted file mode 100644 index 4dea33e2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci deleted file mode 100644 index f83cc8c8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci +++ /dev/null @@ -1,44 +0,0 @@ -// 10.01.07 - -function Texletter(varargin) - global Wfile FID MEMORI; - Nargs=length(varargin); - for I=1:3:Nargs - P=varargin(I); - X=P(1); - if type(X)==1 - X=string(X); - end; - Y=P(2); - if type(Y)==1 - Y=string(Y); - end; - Houkou=varargin(I+1); - Mojiretu=varargin(I+2); - Hset=Houkou; - Vhoko='c'; - if mtlb_findstr(Hset,'n')~=[] - Vhoko='n'; - end - if mtlb_findstr(Hset,'s')~=[] - Vhoko='s'; - end - Hhoko='c'; - if mtlb_findstr(Hset,'e')~=[] - Hhoko='e'; - end - if mtlb_findstr(Hset,'w')~=[] - Hhoko='w'; - end - Hoko=Vhoko+Hhoko; - CalcWidth(Hoko,Mojiretu); - CalcHeight(Hoko,Mojiretu); - Tmp='\put('+X+','+Y+'){\hspace*{\Width}'; - Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin Binary files differdeleted file mode 100644 index a44b7156..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci deleted file mode 100644 index b3b9a417..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 10.01.21 - -function Texnewcmd(varargin) - Nargs=length(varargin); - Str=varargin(1); - S='\newcommand{'+Str+'}'; - if Nargs>1 - Tmp=string(varargin(2)); - S=S+'['+Tmp+']'; - end; - if Nargs>2 - Tmp=varargin(3); - if type(Tmp)==1 - Tmp=string(Tmp); - end; - S=S+'['+Tmp+']'; - end; - S=S+'{'; - Texcom(S); -endfunction
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin Binary files differdeleted file mode 100644 index c0acb00b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci deleted file mode 100644 index 03cabf81..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 10.01.21 - -function Texnewctr(N) - if type(N)==10 - Str='\newcounter{'+N+'}'; - Texcom(Str); - else - for I=N - Str='\newcounter{'+Texctr(I)+'}'; - Texcom(Str); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin Binary files differdeleted file mode 100644 index 507705b2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci deleted file mode 100644 index b8926589..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 10.01.21 - -function Texrenewcmd(varargin) - Nargs=length(varargin); - Str=varargin(1); - S='\renewcommand{'+Str+'}'; - if Nargs>1 - Tmp=string(varargin(2)); - S=S+'['+Tmp+']'; - end; - if Nargs>2 - Tmp=varargin(3); - if type(Tmp)==1 - Tmp=string(Tmp); - end; - S=S+'['+Tmp+']'; - end; - S=S+'{'; - Texcom(S); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin Binary files differdeleted file mode 100644 index d9c2bcae..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci deleted file mode 100644 index 166af676..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci +++ /dev/null @@ -1,70 +0,0 @@ -// 10.01.21 - -function Texsetctr(Nctr,Opstr) - Ctr=Texctr(Nctr); - Opstr=Opstr+'%'; - OperL='+-*/%'; - Oper=''; - Va=''; - Evflg=0; - Paflg=0; - for I=1:length(Opstr) - Tmp=part(Opstr,I); - if Tmp=='(' - Paflg=1; - if length(Va)>0 - Evflg=1; - Va=Va+Tmp; - end; - continue; - end; - if Tmp==')' - Paflg=0; - if Evflg>0 - Va=Va+Tmp; - end; - continue; - end; - if Paflg>0 - Va=Va+Tmp; - continue; - end; - if length(mtlb_findstr(Tmp,OperL))==0 - Va=Va+Tmp; - else - if Evflg>0 - Tmp1=evstr(Va); - Va='\value{'+Tmp1+'}'; - Evflg=0; - end; - if Oper=='' - if length(Va)>0 - Str='\setcounter{'+Ctr+'}{'+Va+'}'; - Texcom(Str); - end; - Oper=Tmp; - Va=''; - elseif Oper=='+' - Str='\addtocounter{'+Ctr+'}{'+Va+'}'; - Texcom(Str); - Oper=Tmp; - Va=''; - elseif Oper=='-' - Str='\addtocounter{'+Ctr+'}{-'+Va+'}'; - Texcom(Str); - Oper=Tmp; - Va=''; - elseif Oper=='*' - Str='\multiply\value{'+Ctr+'} by '+Va; - Texcom(Str); - Oper=Tmp; - Va=''; - elseif Oper=='/' - Str='\divide\value{'+Ctr+'} by '+Va; - Texcom(Str); - Oper=Tmp; - Va='' - end; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin Binary files differdeleted file mode 100644 index 26d4e8ef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci deleted file mode 100644 index 469da91a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci +++ /dev/null @@ -1,5 +0,0 @@ -// 2010.02.12 - -function Out=Texthectr(N) - Out='\the'+Texctr(N); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin Binary files differdeleted file mode 100644 index fd208b4a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci deleted file mode 100644 index 96d1c734..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci +++ /dev/null @@ -1,5 +0,0 @@ -// 2010.02.12 - -function Out=Texvalctr(N) - Out='\value{'+Texctr(N)+'}'; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin Binary files differdeleted file mode 100644 index 74890021..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci deleted file mode 100644 index fc443411..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci +++ /dev/null @@ -1,6 +0,0 @@ -// 10.01.21 - -function Out=Texvctr(N) - Out='\value{'+Texctr(N)+'}'; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin Binary files differdeleted file mode 100644 index 67df224b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci deleted file mode 100644 index c6ceff89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.07.11 - -function Ang=Thetadegree() - global THETA; - Ang=THETA*180/%pi; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin Binary files differdeleted file mode 100644 index 3cbb70be..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci deleted file mode 100644 index a7a3fc2d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=ThisVersion() - global THISVERSION - Y=THISVERSION -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin Binary files differdeleted file mode 100644 index a0704ffc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci deleted file mode 100644 index 8ef53bd5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 10.01.02 - -function Out=Tolist(LG) - Out=list(); - for I=1:length(LG) - Out($+1)=LG(I); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin Binary files differdeleted file mode 100644 index 55b89eee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci deleted file mode 100644 index 98d69544..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 08.08.15 -// 15.04.12 - -function Out=Translate3data(varargin) - Nargs=length(varargin); - Pd3=varargin(1); - Pd3=Flattenlist(Pd3); // 15.04.12 - Mv=varargin(2); - if type(Mv)==1 & length(Mv)==1 - Mv=[varargin(2),varargin(3),varargin(4)]; - end; -// if Mixtype(Pd3)==1 // 15.04.12 from -// Pd3=MixS(Pd3); -// elseif Mixtype(Pd3)==3 -// Tmp=[]; -// for I=1:Mixlength(Pd3) -// Tmp=Mixjoin(Tmp,Mixop(I,Pd3)); -// end; -// Pd3=Tmp; -// end; - Out=[]; - for I=1:length(Pd3) - PD=Op(I,Pd3); - Ans=[]; - for J=1:size(PD,1) - P=PD(J,:); - Tmp=P+Mv;; - Ans=[Ans;Tmp]; - end; - Out=Mixadd(Out,Ans); - end; - if length(Out)==1 - Out=Op(1,Out); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin Binary files differdeleted file mode 100644 index 2239d9d6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci deleted file mode 100644 index a2e31085..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci +++ /dev/null @@ -1,42 +0,0 @@ -// 08.05.25 Koshikawa -// 08.09.20 -// 15.04.12 - -function OutL=Translatedata(varargin) - Nargs=length(varargin); - ML=varargin(1); - ML=Flattenlist(ML); - Tmp=varargin(2); - if type(Tmp)==1 & length(Tmp)>1 - A=Tmp(1); B=Tmp(2); - else - A=Tmp; - if Nargs>=3 - B=varargin(3); - else - B=0; - end; - end; - OutL=[]; - for N=1:length(ML) - GL=Op(N,ML); - Out=[]; - for I=1:size(GL,1) - Tmp=GL(I,:); - X1=Tmp(1); - Y1=Tmp(2); - if Tmp==[%inf,%inf] - X2=X1; - Y2=Y1; - else - X2=X1+A; - Y2=Y1+B; - end - Out=[Out;X2,Y2]; - end; - OutL=Mixadd(OutL,Out); - end; - if length(OutL)==1 - OutL=Op(1,OutL); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin Binary files differdeleted file mode 100644 index 4d0816a4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci deleted file mode 100644 index b4705593..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci +++ /dev/null @@ -1,10 +0,0 @@ -// 08.05.20 - -function N=Trunc(X) - if X>=0 - N=floor(X) - else - N=ceil(X) - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin Binary files differdeleted file mode 100644 index c9d8edf5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci deleted file mode 100644 index 74910ceb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci +++ /dev/null @@ -1,12 +0,0 @@ -function Out=Unscaling(G) - global LOGX LOGY SCALEX SCALEY; - GLg=[G(:,1)/SCALEX,G(:,2)/SCALEY]; - Out=GLg; - if LOGX==1 - Out=[10^(GLg(:,1)),GLg(:,2)]; - end; - if LOGY==1 - Out=[GLg(:,1),10^(GLg(:,2))]; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin Binary files differdeleted file mode 100644 index ba124a81..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci deleted file mode 100644 index 4bc7684c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci +++ /dev/null @@ -1,11 +0,0 @@ -function L=Vecnagasa(varargin) - PA=varargin(1); - if length(varargin)>1 - PB=varargin(2); - else - PB=zeros(1,length(PA)); - end - Tmp=PB-PA; - L=sqrt(Tmp*Tmp'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin Binary files differdeleted file mode 100644 index b524d528..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci deleted file mode 100644 index 527d3834..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci +++ /dev/null @@ -1,11 +0,0 @@ -function L=Vecnagasa2(varargin) - PA=varargin(1); - if length(varargin)>1 - PB=varargin(2); - else - PB=[0,0]; - end - Tmp=PB-PA; - L=Tmp*Tmp'; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin Binary files differdeleted file mode 100644 index cef98adc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci deleted file mode 100644 index 44bde517..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 08.10.26 - -function Out=Viewfrom(varargin) - global THETA PHI - Nargs=length(varargin); - Nvec=varargin(1); - GL=varargin(2); - Flg=1; - if Nargs>=3 - Flg=varargin(3); - end; - Theta=THETA; Phi=PHI; - Tmp=Rotate3data(GL,Nvec,[-1,0,0]); - THETA=%pi/2; PHI=0; - Out=Projpara(Tmp); - if Flg==1 - Windisp(Out); - end; - THETA=Theta; PHI=Phi; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin Binary files differdeleted file mode 100644 index 278e7845..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci deleted file mode 100644 index de320918..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci +++ /dev/null @@ -1,144 +0,0 @@ -// 08.05.26 Debugged -// 09.12.25 -// 11.04.13 debugged ( [a,b] ) -// 14.03.05 MARKLEN - -function Vtickmark(varargin) - global Wfile FID MARKLEN GENTEN YMIN YMAX; - Nargs=length(varargin); - ArgsL=list(varargin(1:Nargs)); - if type(Op(1,ArgsL))==10 - Str=Op(1,ArgsL); - Tmp=mtlb_findstr(Str,'m'); - if Tmp~=[] - I=Tmp(1); - else - I=0; - end - Tmp=mtlb_findstr(Str,'n'); - if Tmp~=[] - J=Tmp(1); - else - J=0; - end - Tmp=mtlb_findstr(Str,'r'); - if Tmp~=[] - K=Tmp(1); - else - K=0; - end; - if K>0 - Tmp=ascii(Str); - S=char(Tmp(K+1:length(Tmp))); - R=msscanf(S,'%f'); - if length(R)==0 - R=1; - end - else - R=1; - K=length(Str)+1; - end - if J>0 then - Tmp=ascii(Str); - S=char(Tmp(J+1:K-1)); - if S==[] - S=''; - end; - Dn=msscanf(S,'%d'); - if length(Dn)==0 - Dn=1; - end - else - Dn=1000; - J=length(Str)+1; - end - Tmp=ascii(Str); - S=char(Tmp(I+1:J-1)); - if S==[] - S=''; - end - Dm=msscanf(S,'%f'); - if length(Dm)==0 - Dm=1; - end - ArgsL=list(); - for I=1:floor((YMAX-GENTEN(2))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(Tmp(1:k-1)); - end - ArgsL($+1)=Str; - end - end - for I=-1:-1:ceil((YMIN-GENTEN(2))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(1:K-1); - end - ArgsL($+1)=Str; - end - end - end - MemoriList=list(); - Memori=list(); - for N=1:length(ArgsL) - Dt=Op(N,ArgsL); - if type(Dt)==1 & length(Dt)>1 - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt(1),Dt(2)); - continue - end - if type(Dt)==10 - Memori($+1)=Dt; - else - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(GENTEN(1),Dt); - end - end - MemoriList($+1)=Memori; - for N=1:length(MemoriList) - Dt=MemoriList(N); - Ndt=length(Dt); - X=Op(1,Dt); - Y=Op(2,Dt); - Tmp=Doscaling([X,Y]); - X=Tmp(1); - Y=Tmp(2); - Moji=Op(Ndt,Dt); - Tmp1=Unscaling([X+MARKLEN,Y]); - Tmp2=Unscaling([X-MARKLEN,Y]); - Fd=Listplot([Tmp1,Tmp2]); - Drwline(Fd); - if Ndt==3 - Tmp=Unscaling([X-MARKLEN,Y]); - Expr(Tmp,'w',Moji); - end - if Ndt==4 - Houkou=Op(3,Dt); - if mtlb_findstr(Houkou,'w')~=[] - Tmp=Unscaling([X-MARKLEN,Y]); - Expr(Tmp,Houkou,Moji); - else - Tmp=Unscaling([X+MARKLEN,Y]); - Expr(Tmp,Houkou,Moji); - end - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin Binary files differdeleted file mode 100644 index 6b3e87e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci deleted file mode 100644 index baa03e73..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci +++ /dev/null @@ -1,110 +0,0 @@ -// 08.05.16 Point style -// 08.05.17 MixL -// 08.05.19 Changed -// 08.05.21 Eps=0.1 -// 08.08.16 square -// 09.11.04 window option -// 09.11.07 gcf used -// 09.12.25 -// 10.01.01 -// 10.01.09 ' ' -// 10.01.10 drw one by one -// 10.02.08 revised for the case "a" -// 10.02.13 square debugged -// 10.02.21 square debugged (2) -// 10.02.23 case of mixlength=3 -// 10.04.10 Origin bug -// 11.05.29 Flattenlist used - -function Windisp(varargin) - global XMIN XMAX YMIN YMAX GENTEN - Nargs=length(varargin); - Tp=varargin(Nargs); - Ch=''; - if type(Tp)~=10 - scf(); - else - Ch=part(Tp,1); - Nargs=Nargs-1; - select Ch; - case 'N' then scf(); - case 'n' then scf(); - case 'C' then Tmp=gcf();clf('clear'); - case 'c' then Tmp=gcf();clf('clear'); - case 'A' then Tmp=gcf(); - case 'a' then Tmp=gcf(); - else - Tmp1=part(Tp,length(Tp)); - Tmp2=part(Tp,1:length(Tp)-1); - Tmp3=evstr(Tmp2); - scf(Tmp3); - if Tmp1=='C'|Tmp1=='c' - clf('clear'); - end; - end; - end; - Eps=0.1; - Tmp=Doscaling([XMIN,YMIN]); - Xm=Tmp(1); Ym=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - XM=Tmp(1); YM=Tmp(2); - C=[(Xm+XM)/2,(Ym+YM)/2]; - H=max(XM-Xm,YM-Ym)/2; - R1=C-H; R2=C+H; - R1=Unscaling(R1); - R2=Unscaling(R2); - if (Ch~='A')&(Ch~='a') - Tmp1=R1(1); - Tmp2=R2(1); - Tmp3=R1(2); - Tmp4=R2(2); - square(Tmp1,Tmp3,Tmp2,Tmp4);// - P=Framedata([XMIN,XMAX],[YMIN,YMAX]); - Tmp1=P(:,1)'; - Tmp2=P(:,2)'; - plot2d(Tmp1,Tmp2); - PtO=GENTEN; // 10.04.10 - if (PtO(2)>=YMIN) & (PtO(2)<=YMAX) // - P=Listplot([XMIN,PtO(2)],[XMAX,PtO(2)]); - Tmp1=P(:,1)'; - Tmp2=P(:,2)'; - plot2d(Tmp1,Tmp2,style=[3]); - end; - if (PtO(1)>=XMIN) & (PtO(1)<=XMAX) - P=Listplot([PtO(1),YMIN],[PtO(1),YMAX]); - Tmp1=P(:,1)'; - Tmp2=P(:,2)'; - plot2d(Tmp1,Tmp2,style=[3]); - end; - end; - for I=1:Nargs - Tmp=varargin(I); - Pdata=Flattenlist(Tmp); // - for II=1:length(Pdata) - Tmp=Op(II,Pdata); - P=MakeCurves(Tmp,0); - P=Unscaling(P); - Ndm=Dataindex(P); - for J=1:size(Ndm,1) - Q=P(Ndm(J,1):Ndm(J,2),:) - if size(Q,1)==1 - for K=1:2:length(Q) - plot2d(Q(K),Q(K+1),style=[-3]); - end - else - Tmp1=Q(:,1)'; - Tmp2=Q(:,2)'; - plot2d(Tmp1,Tmp2); - end - end - end -// for II=2:length(Pdata) -// Tmp=Op(II,Pdata); -// Windisp(Tmp,'a'); -// end; - end - for I=2:Nargs - Pdata=varargin(I); - Windisp(Pdata,'a'); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin Binary files differdeleted file mode 100644 index 68abd1d4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci deleted file mode 100644 index 24920661..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.12.11 - -function Out=WireHiddenData() - global HIDDENWIREDATA - Out=HIDDENWIREDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin Binary files differdeleted file mode 100644 index 085de36e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci deleted file mode 100644 index d62acaf3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 08.09.15 -// 09.09.10 registered - -function Out=WirePt() - global WIREPT - Out=WIREPT; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin Binary files differdeleted file mode 100644 index d84e23dc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci deleted file mode 100644 index b46e359c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci +++ /dev/null @@ -1,120 +0,0 @@ -// 08.09.15 -// 08.10.10 -// 08.10.11 -// 08.10.15 -// 08.10.21 -// 08.10.25 -// 09.09.10 -// 10.02.16 Eps -// 17.05.07 Eps changed - -function FsL=Wireparadata(varargin) - global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA - timer(); - Nargs=length(varargin); - Fbdy=Projpara(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=[0.05,1]; // - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DuL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - WIREPT=[]; - HIDDENWIREDATA=[]; - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07 - FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');//17.05.07 - FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin Binary files differdeleted file mode 100644 index 01266c62..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci deleted file mode 100644 index 11def80c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci +++ /dev/null @@ -1,120 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 08.10.11 -// 08.10.15 -// 08.10.21 -// 08.10.25 -// 09.09.10 -// 10.02.16 Eps -// 17.05.07 Eps changed - -function FsL=Wirepersdata(varargin) - global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA - timer(); - Nargs=length(varargin); - Fbdy=Projpers(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=[0.05,1]; // - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DuL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - WIREPT=[]; - HIDDENWIREDATA=[]; - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07 - FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)'); - FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //17.05.07 - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin Binary files differdeleted file mode 100644 index 4e6ca980..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci deleted file mode 100644 index 59c5ba54..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci +++ /dev/null @@ -1,86 +0,0 @@ -// 08.09.15 -// 08.10.10 -// 08.10.21 -// 09.09.10 - -function FsL=Wirerawparadata(varargin) - timer(); - Nargs=length(varargin); - Fbdy=Projpara(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=0.05; - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DuL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)'); - FkL=Cuspsplitpara(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)'); - FkL=Cuspsplitpara(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin Binary files differdeleted file mode 100644 index 2718cfd0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci deleted file mode 100644 index d168b4f7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci +++ /dev/null @@ -1,86 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 08.10.21 -// 09.09.10 - -function FsL=Wirerawpersdata(varargin) - timer(); - Nargs=length(varargin); - Fbdy=Projpers(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=0.05; - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DvL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)'); - FkL=Cuspsplitpers(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)'); - FkL=Cuspsplitpers(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin Binary files differdeleted file mode 100644 index 3016dd47..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci deleted file mode 100644 index 059ac6d5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci +++ /dev/null @@ -1,55 +0,0 @@ -// s:2014.10.10 -// e:2014.12.14 ( for 3d ) -// e:2015.10.29 ( endmark //// ) - -function WriteOutData(varargin) - global Fnameout - Nargs=length(varargin); - if modulo(Nargs,2)==0 then - Fname=Fnameout; - Nst=1; - else - Fname=varargin(1); - Nst=2; - end; - Fid=mopen(Fname,'w'); - for N=Nst:2:Nargs - Gname=varargin(N); - mfprintf(Fid,'%s\n',Gname+"//"); - Gdata=varargin(N+1); - Gdata=Flattenlist(Gdata); - for K=1:length(Gdata) - GL=Dividegraphics(Gdata(K)); - for J=1:length(GL) - mfprintf(Fid,'%s\n',"start//"); - Str=""; - for I=1:Numptcrv(GL(J)) - Pt=Ptcrv(I,GL(J)); - if length(Str)>0 then - Str=Str+"," - end; - if length(Pt)<3 // 2014.12.14 - Str=Str+msprintf("[%5.4f,%5.4f]",Pt(1),Pt(2)); - else - Str=Str+msprintf("[%5.4f,%5.4f,%5.4f]",Pt(1),Pt(2),Pt(3)); - end; - if length(Str)>80 then - mfprintf(Fid,'%s\n',"["+Str+"]//"); - Str=""; - end - end - if length(Str)>0 then - mfprintf(Fid,'%s\n',"["+Str+"]//"); - end - if N==Nargs-1 & K==length(Gdata) & J==length(GL) then // 15.10.29 -// mfprintf(Fid,'%s\n',"end////"); - mfprintf(Fid,'%s\n',"end//"); - else - mfprintf(Fid,'%s\n',"end//"); - end; - end - end - end - mfprintf(Fid,'%s\n',"//"); - mclose(Fid); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin Binary files differdeleted file mode 100644 index e53ba463..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci deleted file mode 100644 index ae51bf8b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci +++ /dev/null @@ -1,12 +0,0 @@ -// s : 2014.06.22 - -function Out=Writeobjpoint(P) - global OBJFMT OBJSCALE NPOINT; - X=sprintf(OBJFMT,P(1)*OBJSCALE); - Y=sprintf(OBJFMT,P(2)*OBJSCALE); - Z=sprintf(OBJFMT,P(3)*OBJSCALE); - Str="v "+X+" "+Y+" "+Z; - Printobjstr(Str) - NPOINT=NPOINT+1 - Out=NPOINT; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin Binary files differdeleted file mode 100644 index c3f3d522..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci deleted file mode 100644 index 51a13884..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci +++ /dev/null @@ -1,47 +0,0 @@ -// 2010.04.27 - -function Writetextdata(varargin) - Fname=varargin(1); - Mt=varargin(2); - D=-1; - for I=3:length(varargin) - Tmp=varargin(I); - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - end; - end; - Str=''; - for J=1:size(Mt,2) - Str=Str+'x'+string(J); - if J<size(Mt,2) - Str=Str+','; - end; - end; - if Fname~='' - Fid=mopen(Fname,'w'); - mfprintf(Fid,'%s\n',Str); - else - mprintf('%s\n',Str); - end; - for I=1:size(Mt,1) - Str=''; - for J=1:size(Mt,2) - Dt=Mt(I,J); - if Dt==%inf - Dt=D; - end; - Str=Str+string(Dt); - if J<size(Mt,2) - Str=Str+','; - end; - end; - if Fname~='' - mfprintf(Fid,'%s\n',Str); - else - mprintf('%s\n',Str); - end; - end; - if Fname~='' - mclose(Fid); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin Binary files differdeleted file mode 100644 index 655cd4e6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci deleted file mode 100644 index 60d73ef7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci +++ /dev/null @@ -1,42 +0,0 @@ -// s:2014.09.16 - -function WritetoCindy(varargin) - global Fnametxt - GnameV=list(); - for J=1:length(varargin) - Tmp=varargin(J); - for K=1:size(Tmp,2) - GnameV($+1)=Tmp(1,K); - end - end; - Fid=mopen(Fnametxt,'w'); - for Nv=1:length(GnameV) - Gname=GnameV(Nv); - Tmp=evstr(Gname); - GL=Dividegraphics(Tmp); - Lnst=""; - for J=1:length(GL) - G=GL(J); - Gn=Gname+"No"+string(J); - mfprintf(Fid,'%s\n',Gn+"=[];//"); - for K=1:Numptcrv(G) - Pt=Ptcrv(K,G); - if length(Lnst)==0 - Lnst=Gn+"=concat("+Gn+",["; - end; - Tmp=msprintf("[%6.4f,%6.4f]",Pt(1),Pt(2)); - Lnst=Lnst+Tmp; - if length(Lnst)>80 | K==Numptcrv(G) - Lnst=Lnst+"]);//"; - mfprintf(Fid,'%s\n',Lnst); - Lnst=""; - else - Lnst=Lnst+","; - end; - end; - Str="Goutdatalist=Append(Goutdatalist,"+Gn+");//"; - mfprintf(Fid,'%s\n',Str); - end; - end; - mclose(Fid); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin Binary files differdeleted file mode 100644 index ba00f67f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci deleted file mode 100644 index 28ab28ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Xmax() - global XMAX - Y=XMAX; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin Binary files differdeleted file mode 100644 index 7e8c9e46..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci deleted file mode 100644 index e18e83d7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Xmin() - global XMIN - Y=XMIN; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin Binary files differdeleted file mode 100644 index fc0a8807..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci deleted file mode 100644 index b2118c90..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.07.11 - -function Out=Xyzax3data(Xrange,Yrange,Zrange) - J=mtlb_findstr(Xrange,'='); - Tmp=evstr(part(Xrange,J+1:length(Xrange))); - Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; - J=mtlb_findstr(Yrange,'='); - Tmp=evstr(part(Yrange,J+1:length(Yrange))); - Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; - J=mtlb_findstr(Zrange,'='); - Tmp=evstr(part(Zrange,J+1:length(Zrange))); - Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; - Out=MixS(Spaceline([Px,Qx]),Spaceline([Py,Qy]),Spaceline([Pz,Qz])); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin Binary files differdeleted file mode 100644 index 04b8bdce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci deleted file mode 100644 index b833802d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci +++ /dev/null @@ -1,71 +0,0 @@ -// 08.07.11 -// 09.09.18 - -function Kekka=Xyzaxparaname(varargin) - global MilliIn; - Nargs=length(varargin); - Eps=10.0^(-6); - Dr=0.19*1000/2.54/MilliIn; - Tmp=varargin(Nargs); - if Nargs>1 & type(Tmp)==1 - Dr=Dr*Tmp; - Nargs=Nargs-1; - end; - if type(varargin(1))==10 - Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3); - J=mtlb_findstr(Xrange,'='); - Xname=part(Xrange,1:J-1); - Tmp=evstr(part(Xrange,J+1:length(Xrange))); - Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; - J=mtlb_findstr(Yrange,'='); - Yname=part(Yrange,1:J-1); - Tmp=evstr(part(Yrange,J+1:length(Yrange))); - Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; - J=mtlb_findstr(Zrange,'='); - Zname=part(Zrange,1:J-1); - Tmp=evstr(part(Zrange,J+1:length(Zrange))); - Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; - else - Data=varargin(1); - Xname='x'; Yname='y'; Zname='z'; - if Nargs>1 - if varargin(2)~='' - Xname=varargin(2); - end; - if varargin(3)~='' - Yname=varargin(3); - end; - if varargin(4)~='' - Zname=varargin(4); - end; - end; - Tmp=Mixop(1,Data); - Px=Tmp(1,:); Qx=Tmp(2,:); - Tmp=Mixop(2,Data); - Py=Tmp(1,:) ; - Qy=Tmp(2,:); - Tmp=Mixop(3,Data); - Pz=Tmp(1,:); - Qz=Tmp(2,:); - end; - Ph=Parapt(Px); Qh=Parapt(Qx); R=Vecnagasa(Ph,Qh); - Kekka=[]; - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Xname); - end - Ph=Parapt(Py); Qh=Parapt(Qy); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Yname); - end; - Ph=Parapt(Pz); Qh=Parapt(Qz); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Zname); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin Binary files differdeleted file mode 100644 index 3940b5b0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci deleted file mode 100644 index d9c1c7df..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci +++ /dev/null @@ -1,72 +0,0 @@ -// 08.08.14 -// 08.08.15 -// 09.09.18 - -function Kekka=Xyzaxpersname(varargin) - global MilliIn; - Eps=10.0^(-6); - Nargs=length(varargin); - Dr=0.19*1000/2.54/MilliIn; - Tmp=varargin(Nargs); - if Nargs>1 & type(Tmp)==1 - Dr=Dr*Tmp; - Nargs=Nargs-1; - end; - if type(varargin(1))==10 - Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3); - J=mtlb_findstr(Xrange,'='); - Xname=part(Xrange,1:J-1); - Tmp=evstr(part(Xrange,J+1:length(Xrange))); - Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; - J=mtlb_findstr(Yrange,'='); - Yname=part(Yrange,1:J-1); - Tmp=evstr(part(Yrange,J+1:length(Yrange))); - Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; - J=mtlb_findstr(Zrange,'='); - Zname=part(Zrange,1:J-1); - Tmp=evstr(part(Zrange,J+1:length(Zrange))); - Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; - else - Data=varargin(1); - Xname='x'; Yname='y'; Zname='z'; - if Nargs>1 - if varargin(2)~='' - Xname=varargin(2); - end; - if varargin(3)~='' - Yname=varargin(3); - end; - if varargin(4)~='' - Zname=varargin(4); - end; - end; - Tmp=Mixop(1,Data); - Px=Tmp(1,:); Qx=Tmp(2,:); - Tmp=Mixop(2,Data); - Py=Tmp(1,:) ; - Qy=Tmp(2,:); - Tmp=Mixop(3,Data); - Pz=Tmp(1,:); - Qz=Tmp(2,:); - end; - Ph=Perspt(Px); Qh=Perspt(Qx); R=Vecnagasa(Ph,Qh); - Kekka=[]; - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Xname); - end - Ph=Perspt(Py); Qh=Perspt(Qy); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Yname); - end; - Ph=Perspt(Pz); Qh=Perspt(Qz); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Zname); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin Binary files differdeleted file mode 100644 index 93cbf4e2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci deleted file mode 100644 index 0a835534..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Ymax() - global YMAX - Y=YMAX; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin Binary files differdeleted file mode 100644 index 79ab6600..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci deleted file mode 100644 index 73d0d261..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Ymin() - global YMIN - Y=YMIN; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin Binary files differdeleted file mode 100644 index d870458d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci deleted file mode 100644 index 5c237179..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 08.07.11 - -function Out=Zparapt(P) - global PHI THETA; - x=P(1); y=P(2); z=P(3); - Out=x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin Binary files differdeleted file mode 100644 index 0af89330..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci deleted file mode 100644 index 13601556..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 08.08.12 -// 10.01.02 - -function X3=Zperspt(P) - - global FocusPoint EyePoint - - Tmp=P-FocusPoint; - X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3); - Tmp=EyePoint-FocusPoint; - E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); - Ca=E1/sqrt(E1^2+F1^2); - Sa=F1/sqrt(E1^2+F1^2); - X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1; - E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; - Cb=E2/sqrt(E2^2+G2^2); - Sb=G2/sqrt(E2^2+G2^2); - X3=X2*Cb+Z2*Sb; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib deleted file mode 100644 index 24864cee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib +++ /dev/null @@ -1,344 +0,0 @@ -<?xml version="1.0" encoding="UTF-8" standalone="no"?> -<scilablib name="ketpic2esciL6"> - <macro name="Addcounter" file="Addcounter.bin" md5="f7a17da511ba9fdd3cf4cdaf83f3d78c"/> - <macro name="Anglemark" file="Anglemark.bin" md5="0e984414d47cb604faef41ae93390dcb"/> - <macro name="Arrowdata" file="Arrowdata.bin" md5="b39db1a6340e09c9dfaa3fbb4c3777f1"/> - <macro name="Arrowhead" file="Arrowhead.bin" md5="0b0bc5478ce8afeb47770d9add192560"/> - <macro name="Arrowheaddata" file="Arrowheaddata.bin" md5="3c06f276e57945b3d54e11e39a9e9435"/> - <macro name="Arrowline" file="Arrowline.bin" md5="e15854f9c5c640cee8667f6128023620"/> - <macro name="Assign" file="Assign.bin" md5="c8d1390433c0a317d199f5491669e988"/> - <macro name="Assignadd" file="Assignadd.bin" md5="d24d31a4cfd1dc707c51c51ff9cdf364"/> - <macro name="Assignrep" file="Assignrep.bin" md5="e81413f3bc64c05ae0821b56fd63e5ef"/> - <macro name="Assignset" file="Assignset.bin" md5="6a6dad9e5a35cdddb0ac069ec601c061"/> - <macro name="Beginpicture" file="Beginpicture.bin" md5="9fd24a768a0d6548b1f458d51e1bb202"/> - <macro name="Bezier" file="Bezier.bin" md5="f23aa1069913d825c6f8040b3de17e7d"/> - <macro name="Bezierpt" file="Bezierpt.bin" md5="f09183e61d71f55243937a28ef90fb06"/> - <macro name="BorderHiddenData" file="BorderHiddenData.bin" md5="67622b4dca726e7aff9b4e92d411edcd"/> - <macro name="BorderPt" file="BorderPt.bin" md5="e482d76b67ceb360021f9cef448abc73"/> - <macro name="Borderparadata" file="Borderparadata.bin" md5="1bf108993d36707c45e3a25770ca2869"/> - <macro name="Borderpersdata" file="Borderpersdata.bin" md5="d46e7fdcf42a61c354a540359dcd9f5f"/> - <macro name="Borderrawdata" file="Borderrawdata.bin" md5="0228890cf35b6929fc3bb083b1211da6"/> - <macro name="Bowdata" file="Bowdata.bin" md5="1f5f1c65d0448af83143e14f53565393"/> - <macro name="Bowmiddle" file="Bowmiddle.bin" md5="0a765efd6dae8c6fbd0d075ef0ff8b3c"/> - <macro name="Bowname" file="Bowname.bin" md5="e8ab45879c83d386dcf5e086fe71e1a4"/> - <macro name="Bownamerot" file="Bownamerot.bin" md5="ce9e45bf14fca7b62fa56b6d0b3baaef"/> - <macro name="CalcHeight" file="CalcHeight.bin" md5="f535ff3dcd86bc6552b54894e5865673"/> - <macro name="CalcWidth" file="CalcWidth.bin" md5="cf0f3d22a9dd2ffdb077a4be5bf1219f"/> - <macro name="Calcfun" file="Calcfun.bin" md5="618d36dbe48f68b4a3e2664b5df8cad2"/> - <macro name="CameraCurve" file="CameraCurve.bin" md5="b8acf2da07c09553106c10b4cc29d9e7"/> - <macro name="CameracoordCurve" file="CameracoordCurve.bin" md5="91ad20f64500117414f16a1cce2c344f"/> - <macro name="Cancoordpara" file="Cancoordpara.bin" md5="61afc19fb49f4b16d48a3cc54c6c6650"/> - <macro name="Cancoordpers" file="Cancoordpers.bin" md5="3a82d9864deed9b050795decae25d8bb"/> - <macro name="Circledata" file="Circledata.bin" md5="a5a1cf644e81417a9065d80f71b24d8d"/> - <macro name="Clipindomain" file="Clipindomain.bin" md5="773133bed55b7003b0248ffb670e3685"/> - <macro name="Closefile" file="Closefile.bin" md5="d29119f97c49373729d10b0cfba746e4"/> - <macro name="Closeobj" file="Closeobj.bin" md5="18df14cfd19b6a7911f9a3748572c02c"/> - <macro name="Closepar" file="Closepar.bin" md5="b8f58e851efa7f12560401c5b0760ecf"/> - <macro name="Closephr" file="Closephr.bin" md5="f53a01c653931c16bd3c493950798acf"/> - <macro name="Closepicture" file="Closepicture.bin" md5="32f401713757a349111cfaf0adcf199d"/> - <macro name="Connectseg" file="Connectseg.bin" md5="439d9f55197c09cd7b54e98cc7151208"/> - <macro name="Crossprod" file="Crossprod.bin" md5="536992b625b66d009e88e73a21a354d6"/> - <macro name="Crv3onsfHiddenData" file="Crv3onsfHiddenData.bin" md5="716dedc06dea644e6aadecf58ab050f4"/> - <macro name="Crv3onsfparadata" file="Crv3onsfparadata.bin" md5="e0d51c785077d687bfc222837fd8593b"/> - <macro name="Crv3onsfpersdata" file="Crv3onsfpersdata.bin" md5="63bcd579f64f40cc04e50094782e09e0"/> - <macro name="CrvonsfHiddenData" file="CrvonsfHiddenData.bin" md5="009a9889bf1f2a3a05f38918b579b7cb"/> - <macro name="Crvonsfparadata" file="Crvonsfparadata.bin" md5="6d5468227fd75007c1dfe4572c1c189c"/> - <macro name="Crvonsfpersdata" file="Crvonsfpersdata.bin" md5="de082902912599535a629ed08e56fb6c"/> - <macro name="CrvsfHiddenData" file="CrvsfHiddenData.bin" md5="f8d158838c95df89a67bf8233e541a09"/> - <macro name="Crvsfparadata" file="Crvsfparadata.bin" md5="885de6d7639a403dd01a2761e39a6ad1"/> - <macro name="Crvsfpersdata" file="Crvsfpersdata.bin" md5="3a660a01512f537e270f611d45512032"/> - <macro name="CuspData" file="CuspData.bin" md5="0958a008a4c59305d62522f9b80028da"/> - <macro name="CuspPt" file="CuspPt.bin" md5="08b55dc8b3e2d0ee1fea47b71825af92"/> - <macro name="CuspSplitPt" file="CuspSplitPt.bin" md5="0ff09f7f3d56080bbad1a1a26260f254"/> - <macro name="Cuspsplitpara" file="Cuspsplitpara.bin" md5="e54d63f2224cff696951a50800d0c4d4"/> - <macro name="Cuspsplitpers" file="Cuspsplitpers.bin" md5="ebf6aef58ed839a05d27771eeb0fc60c"/> - <macro name="Cutsf2d" file="Cutsf2d.bin" md5="adc0dd43b75ee65d181c56c5eeef3b0a"/> - <macro name="Dashline" file="Dashline.bin" md5="4d0497d9013039e15ff2b287b2c0988b"/> - <macro name="Dataindex" file="Dataindex.bin" md5="f0b3b146c9ee16cde54ecd4937acb0b9"/> - <macro name="Definecolor" file="Definecolor.bin" md5="337b7001704f8c604b555e35721973d6"/> - <macro name="Deqplot" file="Deqplot.bin" md5="43a868bfe9d41dc2389116b15d18df80"/> - <macro name="Derivative" file="Derivative.bin" md5="f0b451a2b43c69168ac088e8443f6961"/> - <macro name="Diagcelldata" file="Diagcelldata.bin" md5="efc679b9d0239e2669c6a0929a4e242b"/> - <macro name="Dividegraphics" file="Dividegraphics.bin" md5="b2c065a1249613d3cf7f6ba80ec816a4"/> - <macro name="Dividetable" file="Dividetable.bin" md5="af1d4f7f854da91ce2b4cec13ff44bc5"/> - <macro name="Doscaling" file="Doscaling.bin" md5="86184ec15f528517d5e37e8b5baa3754"/> - <macro name="Dotfilldata" file="Dotfilldata.bin" md5="80a560945fc679f1f036778833dd59a7"/> - <macro name="Dotprod" file="Dotprod.bin" md5="e1a7afad315e324245ec76499b5dfb6c"/> - <macro name="Dottedline" file="Dottedline.bin" md5="6505941ec7ec4395b72df15f93621117"/> - <macro name="Dropnumlistcrv" file="Dropnumlistcrv.bin" md5="1875178bc5c363af0d15f8276503be4a"/> - <macro name="Droppoint" file="Droppoint.bin" md5="c25e16076a319350b8763f48476b4ec6"/> - <macro name="Drwline" file="Drwline.bin" md5="3aedf6f6a861fa772b06071e29680824"/> - <macro name="Drwpt" file="Drwpt.bin" md5="52f450f7724e33a424582cfe03c06877"/> - <macro name="Drwxy" file="Drwxy.bin" md5="c17d9f6608390f019c87d6e1e181e8a3"/> - <macro name="Embed" file="Embed.bin" md5="7cc5c0ccfeb87763b205b3fcf0dc67b4"/> - <macro name="Enclosing" file="Enclosing.bin" md5="457c453795c3b3224be70e1721385cb1"/> - <macro name="EnclosingS" file="EnclosingS.bin" md5="13de130f31f7932194fd173f977ff896"/> - <macro name="Endpicture" file="Endpicture.bin" md5="9b3ce661a450d798d55889be6ffd31ac"/> - <macro name="Evlptablepara" file="Evlptablepara.bin" md5="06e669cba02eb0218f852fdf46b1cae5"/> - <macro name="Evlptablepers" file="Evlptablepers.bin" md5="6cc6897a677911ce2629157f932f32c5"/> - <macro name="Execmd" file="Execmd.bin" md5="c3a30b0fae6f2a8ce6593607ed0d2ed8"/> - <macro name="Expr" file="Expr.bin" md5="c3e260bc0fd7af5a7231431ef9033f5c"/> - <macro name="Exprrot" file="Exprrot.bin" md5="6fc71ff18629fc512e5fed1218433619"/> - <macro name="Faceremovaldata" file="Faceremovaldata.bin" md5="90e9f3a860839349b2486df6fff7adb4"/> - <macro name="Facesdata" file="Facesdata.bin" md5="0c43ae73a08dcfce906c075f17eec59a"/> - <macro name="Findcell" file="Findcell.bin" md5="9b9cc86ef6f67a8d539d30ec58ad9005"/> - <macro name="Flattenlist" file="Flattenlist.bin" md5="d4b4a78c9e9760a4cbeda97f54592acb"/> - <macro name="Fontsize" file="Fontsize.bin" md5="3620d8e64b61ab17778776195acec82a"/> - <macro name="Fouriercoeff" file="Fouriercoeff.bin" md5="83dfcd5c4a1d0f7ccb711d89b0a8003c"/> - <macro name="FouriercoeffL" file="FouriercoeffL.bin" md5="29b8c2c57c53796531cb8316630e87ee"/> - <macro name="Fouriersum" file="Fouriersum.bin" md5="3cf167292e587148fe7d3a9d2e34eab0"/> - <macro name="Fracform" file="Fracform.bin" md5="6dfc4e723a0a2d55ef9e2e9028e5a0b1"/> - <macro name="Framedata" file="Framedata.bin" md5="712be5ee4fdd60fe132b951022f7f5e1"/> - <macro name="Fullformfunc" file="Fullformfunc.bin" md5="ebc5473763f9884c091aa9863062702b"/> - <macro name="Gaiseki" file="Gaiseki.bin" md5="36a6b9567ed081b46107ed3374562196"/> - <macro name="Getcounter" file="Getcounter.bin" md5="45f7aec5f0936f4abe6e65296634a847"/> - <macro name="Gettrace" file="Gettrace.bin" md5="bb84c353b0e3af593e903273160d9bd9"/> - <macro name="Hatchdata" file="Hatchdata.bin" md5="e05c42f885a108c41a75bf1b607b509b"/> - <macro name="Hexahedrondata" file="Hexahedrondata.bin" md5="86efcd2c370b4e76adfeea3b75639d31"/> - <macro name="HiddenWireData" file="HiddenWireData.bin" md5="a080bcb1dcc97c1205fff04562d694fd"/> - <macro name="Htickmark" file="Htickmark.bin" md5="bdafbfedbc2441fe5cd989910852c79e"/> - <macro name="ImplicitData" file="ImplicitData.bin" md5="24a9ea9eb043677084250a30d6c6db00"/> - <macro name="Implicitplot" file="Implicitplot.bin" md5="7d1075882d5446646c2304e00e70ad6d"/> - <macro name="InWindow" file="InWindow.bin" md5="cf3f449e5189b8d40a3d3a4c219a92ea"/> - <macro name="Initangle" file="Initangle.bin" md5="c6902d32536d434af7f28c28b45290ab"/> - <macro name="Integrate" file="Integrate.bin" md5="6f255339baf16af41b20d9b2d86adb50"/> - <macro name="Intersectcrvs" file="Intersectcrvs.bin" md5="68b875e1418a8a231095155ca2482cbc"/> - <macro name="IntersectcrvsPp" file="IntersectcrvsPp.bin" md5="5c05582df9fa8f9a05fa42ef1cf799ae"/> - <macro name="Intersectcrvsf" file="Intersectcrvsf.bin" md5="89b1b7d500237aebbd41f1094560609b"/> - <macro name="Intersectlines" file="Intersectlines.bin" md5="5a4837581398e0f6299d83805b325fd6"/> - <macro name="IntersectselfPp" file="IntersectselfPp.bin" md5="d10bc970ff6540655fedece748a0f1d7"/> - <macro name="Invdashline" file="Invdashline.bin" md5="d72a1842fe88eb719dd85ce45caafc96"/> - <macro name="Invert" file="Invert.bin" md5="7018f80081bca2cb147e81ea435ba287"/> - <macro name="Invparapt" file="Invparapt.bin" md5="b58cfbc854e7b14d076b1f1676c3f54b"/> - <macro name="Invperspt" file="Invperspt.bin" md5="c8500cf469fd4a4c8399e5e093f49126"/> - <macro name="Joincrvs" file="Joincrvs.bin" md5="41981f483c2cfacab95b25356ee5a7d1"/> - <macro name="Joingraphics" file="Joingraphics.bin" md5="e525e21001a3408e5bb3587d24ca4916"/> - <macro name="Ketinit" file="Ketinit.bin" md5="bd9d49f1927a921db621d419da386e1d"/> - <macro name="Kouten" file="Kouten.bin" md5="b0fbbe27e4961ef9a8d0652b1d9edfaf"/> - <macro name="KoutenList" file="KoutenList.bin" md5="ca822b6e42d545a627a7129d02b91cb2"/> - <macro name="Koutenseg" file="Koutenseg.bin" md5="2424557c72db63186699b8ab8fb4ef64"/> - <macro name="Kukannozoku" file="Kukannozoku.bin" md5="40cef25e80745039eb34c5066dfe2d14"/> - <macro name="Kukeiwake" file="Kukeiwake.bin" md5="2e42c3fdef9ac1f7aaca550ff11307c3"/> - <macro name="Kyorihensuu" file="Kyorihensuu.bin" md5="3f313b70f962d573d0db9a548ed4ebc4"/> - <macro name="Kyoukai" file="Kyoukai.bin" md5="630a8517e9e9ae8ecb2a5372c87193fd"/> - <macro name="Letter" file="Letter.bin" md5="a587d241a5c2f1c69b0904632af16a26"/> - <macro name="Letterrot" file="Letterrot.bin" md5="1ce92bf2c945ee12d0746ae7f2fe6b5d"/> - <macro name="Lineplot" file="Lineplot.bin" md5="d2b8a90dd16c873622ffc291b7c9ed64"/> - <macro name="Listplot" file="Listplot.bin" md5="1575fd89b2e6c3c96b90b6889006370f"/> - <macro name="MakeBowdata" file="MakeBowdata.bin" md5="ab5ea1d8c5cc092ea13021c3fb255613"/> - <macro name="MakeCurves" file="MakeCurves.bin" md5="a1d7968df6f80673bab58af5762640a4"/> - <macro name="MakecutbycrvL" file="MakecutbycrvL.bin" md5="8ddeb50d60ce53392a6d6ec76fad7bee"/> - <macro name="Makehasen" file="Makehasen.bin" md5="b6e177ea7ad735910a2c6b45dc1bb580"/> - <macro name="Makeliststr" file="Makeliststr.bin" md5="bf4e86417206108a51e2b0210b990557"/> - <macro name="Makesfcutoffdata" file="Makesfcutoffdata.bin" md5="7b61d0f517b18505225edbac83729b6f"/> - <macro name="Makeshasen" file="Makeshasen.bin" md5="878e44c4780cdac427a7d55f551373a2"/> - <macro name="Makeskeletondata" file="Makeskeletondata.bin" md5="6c918f7f13736227cc0ac351c6fd7a54"/> - <macro name="Makeskeletonpersdata" file="Makeskeletonpersdata.bin" md5="72dd47219b4e6689c54c69eed62f06dc"/> - <macro name="Makevaltable" file="Makevaltable.bin" md5="c279f90b73efc06d235c983bd08ce47b"/> - <macro name="MakeveLfaceL" file="MakeveLfaceL.bin" md5="1afea9c44a3dbe277e601b02d38be3cc"/> - <macro name="Makexybdy" file="Makexybdy.bin" md5="6eca03d530a515cdfe0b98d33fee2b67"/> - <macro name="Mawarikomi" file="Mawarikomi.bin" md5="61b967de5ef56e29016932c9f77c561a"/> - <macro name="MeetWindow" file="MeetWindow.bin" md5="ae7f015eebc2250c20ad876d1d3ec9e4"/> - <macro name="Meetpoints" file="Meetpoints.bin" md5="ffeccee8bfbebd44a45abdfe91c3cca1"/> - <macro name="Member" file="Member.bin" md5="6c29ab2fdbbc61889c95b45d820d317d"/> - <macro name="Menkakusi" file="Menkakusi.bin" md5="53d3fee4c99b28d7aac10f8114fe2524"/> - <macro name="Menkakusi2" file="Menkakusi2.bin" md5="eedabe7e3dd93f6af4fe225a6aa4b2ed"/> - <macro name="Mix" file="Mix.bin" md5="f9f822bf34f04f9dc5401f492b8dc76b"/> - <macro name="MixL" file="MixL.bin" md5="e80cd4b09be7c0a9b88cfaea7bcf802a"/> - <macro name="MixS" file="MixS.bin" md5="d60abae70f94ff28b184306e971d1102"/> - <macro name="Mixadd" file="Mixadd.bin" md5="51da5be70ce2e556dd75d812715faad4"/> - <macro name="Mixdisp" file="Mixdisp.bin" md5="b2b5187462a54615cca28f272232b61f"/> - <macro name="Mixjoin" file="Mixjoin.bin" md5="f9df8699f8cb95ca2b657403a94a9d8f"/> - <macro name="Mixlength" file="Mixlength.bin" md5="ee9cee8e9c916ea42ed8e1e8ad70e321"/> - <macro name="Mixmake" file="Mixmake.bin" md5="b84d74ef8def9658fa2d8f34cc8424f5"/> - <macro name="Mixop" file="Mixop.bin" md5="8c5f9a72e8838aa4b9c9f45013000670"/> - <macro name="Mixsub" file="Mixsub.bin" md5="f2a14687cf8a0c6daaede12d0b730dd5"/> - <macro name="Mixtype" file="Mixtype.bin" md5="0a0931265b0666b53416685a35897f82"/> - <macro name="Naigai" file="Naigai.bin" md5="6e97fdbd9f1feabfb09b2247518c4399"/> - <macro name="Naiseki" file="Naiseki.bin" md5="8f33757e011f07a03a144414296c3190"/> - <macro name="Nearestpt" file="Nearestpt.bin" md5="7b392fdb66cdafb6ccf4e3f083967ba2"/> - <macro name="Newlength" file="Newlength.bin" md5="ea7efdb86cdb3345f0b3e43427cb2c48"/> - <macro name="Nohiddenpara" file="Nohiddenpara.bin" md5="b46886584a10d67fbdb7816c5c739fb8"/> - <macro name="Nohiddenpara2" file="Nohiddenpara2.bin" md5="be95c5d2791c7b05e25c1def88f2bdc6"/> - <macro name="Nohiddenpers" file="Nohiddenpers.bin" md5="1e867c6479823f428d90911b099cdbcf"/> - <macro name="Nohiddenpers2" file="Nohiddenpers2.bin" md5="f96bfe5e316b4b771ab3d26b27b73615"/> - <macro name="Numptcrv" file="Numptcrv.bin" md5="5bf4461504105054dd993bff3b35f370"/> - <macro name="Objcurve" file="Objcurve.bin" md5="3f7684be52bce1b1458d378be0849229"/> - <macro name="Objjoin" file="Objjoin.bin" md5="74a96fb8ed5d88ff1008156f27738f5a"/> - <macro name="Objname" file="Objname.bin" md5="74d2732da725b97cb3c0eb443a6f5ed9"/> - <macro name="Objpolygon" file="Objpolygon.bin" md5="56d22a5ae20dcfc9a0cd4b8a440385e6"/> - <macro name="Objpolyhedron" file="Objpolyhedron.bin" md5="ff92bd278e558ead5df19970d6d01546"/> - <macro name="Objrecs" file="Objrecs.bin" md5="e8ca7cd5993fb7ce8e5b509dce42e46b"/> - <macro name="Objsurf" file="Objsurf.bin" md5="f3017f49c709447a7024d16edb01580d"/> - <macro name="Objsymb" file="Objsymb.bin" md5="ef3fbae27f502a20ff4df575638d4e52"/> - <macro name="Objthicksurf" file="Objthicksurf.bin" md5="07f9c70cedf719587412c848812c7704"/> - <macro name="Op" file="Op.bin" md5="cb2e0935be6b77b1c0bc4f2c7071a1cb"/> - <macro name="Openfile" file="Openfile.bin" md5="bfccc88e9e9abcd83236dd4dd5da2cb4"/> - <macro name="Openobj" file="Openobj.bin" md5="c60578368dceeb4ab79f74e6de774ffd"/> - <macro name="Openpar" file="Openpar.bin" md5="39554dc8c76d98179e21e6878af691c5"/> - <macro name="Openphr" file="Openphr.bin" md5="a086531ca6cf4e112742d5aef90943cf"/> - <macro name="Openpicture" file="Openpicture.bin" md5="e7b76f0bb2132c86350d0f1293a31069"/> - <macro name="Ovalbox" file="Ovalbox.bin" md5="d22bdac24b70c1d6b1625dcf3a8ce007"/> - <macro name="Ovaldata" file="Ovaldata.bin" md5="0facfbd0760cec3d8fa762f7dea098f2"/> - <macro name="Paramark" file="Paramark.bin" md5="644e9aa93430fd35f3639875d6759584"/> - <macro name="ParamonCurve" file="ParamonCurve.bin" md5="910c0b77eb025faf243e2d2cb7ebd043"/> - <macro name="Paramoncrv" file="Paramoncrv.bin" md5="48c6dc127d039740c0a11def8a18fe8a"/> - <macro name="Paramplot" file="Paramplot.bin" md5="09b2750fc9950bbc258a881a2c12a97b"/> - <macro name="Parapt" file="Parapt.bin" md5="e130c84b03164202cf8e25ea27558859"/> - <macro name="Partcrv" file="Partcrv.bin" md5="819797d94d68bf7df7c29b01717525a6"/> - <macro name="Partcrv3" file="Partcrv3.bin" md5="c87d37f9f00aff9ce05a3a3879c6ea5a"/> - <macro name="Partframe" file="Partframe.bin" md5="8df2a78e61362e18cf3b71779ffffbd4"/> - <macro name="PartitionPt" file="PartitionPt.bin" md5="a4afd33aca16e70df0984f7cf05371ce"/> - <macro name="Partitionseg" file="Partitionseg.bin" md5="c0ce6ccd18ea9794f55a9e6926328ea1"/> - <macro name="Perspt" file="Perspt.bin" md5="5415e8696ae175005b59936b2e164bac"/> - <macro name="PhFaceL" file="PhFaceL.bin" md5="b8748ee001a1357e2820b304083ce09e"/> - <macro name="PhHiddenData" file="PhHiddenData.bin" md5="6a0ab5d6aeb7d4c66b31ab86ac5afdae"/> - <macro name="PhVertexL" file="PhVertexL.bin" md5="9d7e1d653e88fc9b98f783ec57ebe8ca"/> - <macro name="Phcutdata" file="Phcutdata.bin" md5="bed83bc88efc277012bab8ba47b9d810"/> - <macro name="Phcutoffdata" file="Phcutoffdata.bin" md5="2ca3881c7cdfe2fee62aa3e64af34157"/> - <macro name="Phidegree" file="Phidegree.bin" md5="5d1ac461a2fee60c6c2dda978a262428"/> - <macro name="Phparadata" file="Phparadata.bin" md5="cbc40d5c2c508a72e51adac3ffecdd4c"/> - <macro name="Phpersdata" file="Phpersdata.bin" md5="51601f80ae1578cf4aa0d6f244ba5027"/> - <macro name="Phrawparadata" file="Phrawparadata.bin" md5="371b244204a19e6a12e70773cb118f21"/> - <macro name="Phrawpersdata" file="Phrawpersdata.bin" md5="f2371fdb24326f6c7a209f9b70d07ce1"/> - <macro name="Phsparadata" file="Phsparadata.bin" md5="762751108de07b4e5a1e6264e16d487c"/> - <macro name="Phspersdata" file="Phspersdata.bin" md5="acf5af0f78c134ae893fd057e408dd3e"/> - <macro name="Phsrawparadata" file="Phsrawparadata.bin" md5="2aebf882e1d6cd11e44cb2815fd186fd"/> - <macro name="Phsrawpersdata" file="Phsrawpersdata.bin" md5="b90465806262e6016d26450f6654194d"/> - <macro name="Plotdata" file="Plotdata.bin" md5="676695f9f9b9a91cfea1ee426d7185ce"/> - <macro name="Pointdata" file="Pointdata.bin" md5="eb131a9f0a6687722dc491cedb732ade"/> - <macro name="PointonCurve" file="PointonCurve.bin" md5="168183930f3fce712571ad5b737f7004"/> - <macro name="Pointoncrv" file="Pointoncrv.bin" md5="a0a2cd4d7f51bec560eb26fef054d835"/> - <macro name="Powersum" file="Powersum.bin" md5="29a72b2125d2f95cfd9bdd742a4e106b"/> - <macro name="Prime" file="Prime.bin" md5="35045b439a59fabbe9a4127d12706fb6"/> - <macro name="Printobjstr" file="Printobjstr.bin" md5="2b4d610c4a39dcab5cfb5c93f7dff5ea"/> - <macro name="ProjCurve" file="ProjCurve.bin" md5="7d548512c30e79cd098aa7b2f96a4ebf"/> - <macro name="ProjcoordCurve" file="ProjcoordCurve.bin" md5="ddf1fa0e05421feaa482038b26925ab5"/> - <macro name="Projpara" file="Projpara.bin" md5="98da96de9ea67f2db4111877d7ff785e"/> - <macro name="Projpers" file="Projpers.bin" md5="7820810b8c0861b22e8dcdc23f1c0864"/> - <macro name="Ptcrv" file="Ptcrv.bin" md5="d353fd7e1af4fac1533c7e0ddebf996e"/> - <macro name="Ptend" file="Ptend.bin" md5="5b30f64ef0920f13b540db8eb5f93e5a"/> - <macro name="PthiddenQ" file="PthiddenQ.bin" md5="c1e31cee1140bf7942b7e1c83514d790"/> - <macro name="Ptne" file="Ptne.bin" md5="833e0e4b3ced75d740eaaab4c1fc88bd"/> - <macro name="Ptnw" file="Ptnw.bin" md5="8415bd27db46c35cec56e67d2ca9734f"/> - <macro name="Ptse" file="Ptse.bin" md5="f5180a6df918355d3a588786e7be8cf4"/> - <macro name="Ptstart" file="Ptstart.bin" md5="f0e4baaf1f46e6b379571e9414a83812"/> - <macro name="Ptsw" file="Ptsw.bin" md5="c30adf43aa5f3c9a0961402ab3b8ddc9"/> - <macro name="Putcell" file="Putcell.bin" md5="da158190a8848db850d3d34a16d36dc8"/> - <macro name="Putcirmark" file="Putcirmark.bin" md5="9f1b9f829d10c8d29f3c2ea6d316383b"/> - <macro name="PutcoL" file="PutcoL.bin" md5="d8f49a7b534060301063804207669228"/> - <macro name="PutcoLexpr" file="PutcoLexpr.bin" md5="d35417b4b818f80c7b96f99118795d48"/> - <macro name="PutcoLstr" file="PutcoLstr.bin" md5="32c9d7d6751b5c85adca1c384ec98c10"/> - <macro name="Putdashmark" file="Putdashmark.bin" md5="03b76cd3bbc9e52df76c2be30c42570b"/> - <macro name="Putrecmark" file="Putrecmark.bin" md5="a5c20a30353d0c79c0dcea3cf39c54e3"/> - <macro name="Putrow" file="Putrow.bin" md5="0a9adbebc80444ab1495a302265920e6"/> - <macro name="Putrowexpr" file="Putrowexpr.bin" md5="4a32c3441cd9ad7c23656ab97e65d352"/> - <macro name="Putrowstr" file="Putrowstr.bin" md5="92ee0311a5e4bb7995a9d44bfbc1460d"/> - <macro name="Puttrace" file="Puttrace.bin" md5="08b64f48285a49c1cb6138fe1491c8fe"/> - <macro name="Ratiocmyk" file="Ratiocmyk.bin" md5="54098c052d304f2b329cc4fd2bd23bc1"/> - <macro name="ReadOutData" file="ReadOutData.bin" md5="0198ca044595d75779d267e425e5380a"/> - <macro name="ReadfromCindy" file="ReadfromCindy.bin" md5="1fed87229911382502d7e7cfd359f4c1"/> - <macro name="Readtextdata" file="Readtextdata.bin" md5="4acbbc591808404b6814db3175c2ffed"/> - <macro name="Reflectdata" file="Reflectdata.bin" md5="51d5020a418590fe64cbf4883da76562"/> - <macro name="Rmmember" file="Rmmember.bin" md5="31ade9c8802d46438ace1e53bb769b86"/> - <macro name="Rotate3data" file="Rotate3data.bin" md5="5aaab016d1fed7a61f270e3b4ad84316"/> - <macro name="Rotate3pt" file="Rotate3pt.bin" md5="7feea2dd66e7a02b96c384011d818a0e"/> - <macro name="Rotatedata" file="Rotatedata.bin" md5="f7c7aa1bd5b2d2d99b66bb3bd711de19"/> - <macro name="Roundstr" file="Roundstr.bin" md5="dd261bcd78d1110bfd9fd775efcf5a4e"/> - <macro name="Scaledata" file="Scaledata.bin" md5="fac166fc1de490a64dd7f7a8f46164a9"/> - <macro name="Sectionview" file="Sectionview.bin" md5="db370ec400c90c7865f7c626572e39f7"/> - <macro name="Setangle" file="Setangle.bin" md5="57190782b3c5c0ace7f2adecb18e4aed"/> - <macro name="Setarrow" file="Setarrow.bin" md5="e7baa60ca4f593de15c7cb8b56be800a"/> - <macro name="Setax" file="Setax.bin" md5="ef281e109b01e3b65d1842e0d2a03873"/> - <macro name="Setcolor" file="Setcolor.bin" md5="b0adb12d43ae4da2815331389b85f944"/> - <macro name="Setcounter" file="Setcounter.bin" md5="e38d212ffa114288c73ccdb613c9cb9d"/> - <macro name="Setmark" file="Setmark.bin" md5="d4cb68ac16edcd28a86ba2a0563b9597"/> - <macro name="Setmarklen" file="Setmarklen.bin" md5="ec3870c326393f15a29d77cf476618cf"/> - <macro name="Setobjdecimals" file="Setobjdecimals.bin" md5="823bc64fbdda67813d1e3c3bf592a0e3"/> - <macro name="Setobjscale" file="Setobjscale.bin" md5="a2cdb49a13b0dc89328a7194f34eeeab"/> - <macro name="Setorigin" file="Setorigin.bin" md5="fe236fa677bab1dd24e53cfc28022826"/> - <macro name="Setpen" file="Setpen.bin" md5="9d87bbd283d225fd62422263375a94b5"/> - <macro name="Setpers" file="Setpers.bin" md5="830fe8254a07765e703077b456353070"/> - <macro name="Setpt" file="Setpt.bin" md5="cbfbda69ce4184fc0ad59bfbe01943a6"/> - <macro name="Setscaling" file="Setscaling.bin" md5="263333f56ad33907534fdb460e54da9b"/> - <macro name="SetstereoL" file="SetstereoL.bin" md5="2711aa6a1541336aec852ac1437155ac"/> - <macro name="SetstereoR" file="SetstereoR.bin" md5="bd74d871d1bc79ed8c01a13a569eb7bb"/> - <macro name="Setunitlen" file="Setunitlen.bin" md5="1e245724b987e84c413bf37a30bb5dd3"/> - <macro name="Setversion" file="Setversion.bin" md5="d6dbab1ce7bb18b2c773bae647e4ac5d"/> - <macro name="Setwindow" file="Setwindow.bin" md5="e781a89da1ce77fbc46f713553523c51"/> - <macro name="Sf3data" file="Sf3data.bin" md5="095b6c0f2bf25f7b9ed5f5d8d3a8915d"/> - <macro name="Sfbdparadata" file="Sfbdparadata.bin" md5="f9c0c54671a68458f4bcb1936fa402ec"/> - <macro name="Sfbdpersdata" file="Sfbdpersdata.bin" md5="aa08f921566b64c11e888ee34429eca5"/> - <macro name="Sfbdrawparadata" file="Sfbdrawparadata.bin" md5="fae8431fd5fe5ead8ff2f85d45e144c1"/> - <macro name="Sfbdrawpersdata" file="Sfbdrawpersdata.bin" md5="1cafbda088573fad0d85f2bb2a165178"/> - <macro name="Sfcutdata" file="Sfcutdata.bin" md5="4dff7dff641c5e51588e8f27c2068396"/> - <macro name="Sfcutoffparadata" file="Sfcutoffparadata.bin" md5="d5089ce276ce8329a5e25772eda825ad"/> - <macro name="Sfcutoffpersdata" file="Sfcutoffpersdata.bin" md5="8f232600533c8c553d279fb7999a9aef"/> - <macro name="Sfcutoffrawparadata" file="Sfcutoffrawparadata.bin" md5="b530fdec88ecac05548dcbc183fac672"/> - <macro name="Sfcutoffrawpersdata" file="Sfcutoffrawpersdata.bin" md5="c7dc8aec4aedc1a9e3b88a423b4e4091"/> - <macro name="Sfparadata" file="Sfparadata.bin" md5="636205ff5e7fa28c188beb8a788ec30f"/> - <macro name="Sfpersdata" file="Sfpersdata.bin" md5="2c198aaa68180b41eb0dd81812668a52"/> - <macro name="Shade" file="Shade.bin" md5="db51cd9b42032b1fd9cebb3f0565d055"/> - <macro name="Skeleton2data" file="Skeleton2data.bin" md5="046308bb7c2d18186a5db1abf5724ace"/> - <macro name="Skeletonpara3data" file="Skeletonpara3data.bin" md5="8b00d1898174de20f097983ad72f96d9"/> - <macro name="Skeletonparadata" file="Skeletonparadata.bin" md5="6368394d29bd3e34c9dadbc54dd49755"/> - <macro name="Skeletonpers3data" file="Skeletonpers3data.bin" md5="62a627cd77291d934150cbe175d9ec06"/> - <macro name="Skeletonpersdata" file="Skeletonpersdata.bin" md5="63663e9c381325970209a62a00877361"/> - <macro name="Spacecurve" file="Spacecurve.bin" md5="e06c5eb2ae8623cee4fe135d6ed8d2a5"/> - <macro name="Spaceline" file="Spaceline.bin" md5="bcdf09d58fde1a3071968c7600cbcadc"/> - <macro name="Splinedata" file="Splinedata.bin" md5="c8cac41f49166b548f6bb20eb765f513"/> - <macro name="Strop" file="Strop.bin" md5="b3e20bfeaaf10aa827ec9be26865547b"/> - <macro name="Subs" file="Subs.bin" md5="daa0438a2d34af2d043c50b3d2a00a01"/> - <macro name="Sumfun" file="Sumfun.bin" md5="0a785d3c30c763778e1f92d3b8fb785e"/> - <macro name="Symb3data" file="Symb3data.bin" md5="ba72252ea118f44b847927d0de9b9892"/> - <macro name="Symbdata" file="Symbdata.bin" md5="53c196c0ca5f9026e4cd441e0d6586ed"/> - <macro name="Tabledata" file="Tabledata.bin" md5="b79bdcd7c171ab768e763d26d9b4f6a1"/> - <macro name="Texcom" file="Texcom.bin" md5="dc0139e9541acb939d1c3839a0fc11f6"/> - <macro name="Texctr" file="Texctr.bin" md5="5f23e09b23191bec07cb10b070d5c66b"/> - <macro name="Texelse" file="Texelse.bin" md5="f8b67c8497e8dd9ac1dbcc5a90fc930c"/> - <macro name="Texend" file="Texend.bin" md5="351105e6dd3c5c171f0944030fba69c4"/> - <macro name="Texendfor" file="Texendfor.bin" md5="7d1005515ed98a776c7c9a00a2a970d8"/> - <macro name="Texendif" file="Texendif.bin" md5="6323c9cf98ac4c1d6e01bef2dadc6614"/> - <macro name="Texfor" file="Texfor.bin" md5="0ade87f95e63dadbdbfe35efbca00e86"/> - <macro name="Texforinit" file="Texforinit.bin" md5="6e96556a978535b632dba9e33b9551b3"/> - <macro name="Texif" file="Texif.bin" md5="db3af265fced379c5bc2a35dcd661aef"/> - <macro name="Texletter" file="Texletter.bin" md5="7a7ebe58bae97a3a17d646d1c7a9e1da"/> - <macro name="Texnewcmd" file="Texnewcmd.bin" md5="b4f314f440314e77d8c93385172eb5e1"/> - <macro name="Texnewctr" file="Texnewctr.bin" md5="86756d50c10bcf8359c1a924e6e1004d"/> - <macro name="Texrenewcmd" file="Texrenewcmd.bin" md5="90e63f10dd735a7263da2cb8661692c7"/> - <macro name="Texsetctr" file="Texsetctr.bin" md5="8d9cd50bcb9304e25e27ac7818c9b047"/> - <macro name="Texthectr" file="Texthectr.bin" md5="b74d5106ff432a8c84dfd3e8baf9402f"/> - <macro name="Texvalctr" file="Texvalctr.bin" md5="6a789e4941c736527f57d75d1ba26123"/> - <macro name="Texvctr" file="Texvctr.bin" md5="05e1f689e4002ca0b53c1b7674d814e0"/> - <macro name="Thetadegree" file="Thetadegree.bin" md5="0ff4846aaeb83b20683ec4d4b60ed98f"/> - <macro name="ThisVersion" file="ThisVersion.bin" md5="5d9fc94c56eb694d62a16b1f7a6a9d04"/> - <macro name="Tolist" file="Tolist.bin" md5="65c83ab06c83674c70f46e0f402d3580"/> - <macro name="Translate3data" file="Translate3data.bin" md5="38c5bcaf8d3659c75cd7cf335d26196b"/> - <macro name="Translatedata" file="Translatedata.bin" md5="17b85cc7ed17d1f260cf758ead8dc0ab"/> - <macro name="Trunc" file="Trunc.bin" md5="7a6a605bcba822854e4c917fe41db659"/> - <macro name="Unscaling" file="Unscaling.bin" md5="08ee317471c47d086c9404e47955b17b"/> - <macro name="Vecnagasa" file="Vecnagasa.bin" md5="aaeae5f1a186bba7b2c357a2c77ce2a1"/> - <macro name="Vecnagasa2" file="Vecnagasa2.bin" md5="41c4c41904d6b87a9844d20fd860a6cb"/> - <macro name="Viewfrom" file="Viewfrom.bin" md5="fe4685d5db0abf45a31b2b643b20c23f"/> - <macro name="Vtickmark" file="Vtickmark.bin" md5="375b4bc294d26ab3b7d30f8fbd4bfad7"/> - <macro name="Windisp" file="Windisp.bin" md5="1e48a32bf2ea244b701fb5bb63ea18f4"/> - <macro name="WireHiddenData" file="WireHiddenData.bin" md5="7fb2be220f2c6dfefea57e5a9acf9145"/> - <macro name="WirePt" file="WirePt.bin" md5="0936e8dd2f3ca890efaf0b274aa64d96"/> - <macro name="Wireparadata" file="Wireparadata.bin" md5="60a5c112230c8cb7ebd803304b1b17b7"/> - <macro name="Wirepersdata" file="Wirepersdata.bin" md5="b2696b1685c9456c6857fbdd1424256a"/> - <macro name="Wirerawparadata" file="Wirerawparadata.bin" md5="e770b9a2bce4c8804fc62a5191be1545"/> - <macro name="Wirerawpersdata" file="Wirerawpersdata.bin" md5="f254f9cad0b02b01e7388fbbb433bcc4"/> - <macro name="WriteOutData" file="WriteOutData.bin" md5="55682f0605917544dd41d2c25f24786c"/> - <macro name="Writeobjpoint" file="Writeobjpoint.bin" md5="24c598f95cc38899d5cf5d3048a9e263"/> - <macro name="Writetextdata" file="Writetextdata.bin" md5="b1da333518052fedb658e0827833a54f"/> - <macro name="WritetoCindy" file="WritetoCindy.bin" md5="c8a05614d69d73bd4aa3c562cf479872"/> - <macro name="Xmax" file="Xmax.bin" md5="87038803908d553ab8de412b410887dd"/> - <macro name="Xmin" file="Xmin.bin" md5="eae15ed2438d2805a6ad488cf22b75e8"/> - <macro name="Xyzax3data" file="Xyzax3data.bin" md5="633e040e19b435e55bb66dbc4f231117"/> - <macro name="Xyzaxparaname" file="Xyzaxparaname.bin" md5="8fa701d6b92b478a97ed8b4e263c9a18"/> - <macro name="Xyzaxpersname" file="Xyzaxpersname.bin" md5="1e9573e9452267842a7907f30661e902"/> - <macro name="Ymax" file="Ymax.bin" md5="4ab8eccdba393b4c41a45d38f97faf88"/> - <macro name="Ymin" file="Ymin.bin" md5="5dedfdfc18e01299ea069b578be8b697"/> - <macro name="Zparapt" file="Zparapt.bin" md5="e16dd6e761c2e8ec7eb31da49d7a3b96"/> - <macro name="Zperspt" file="Zperspt.bin" md5="b04d5677e9ee74a1cbff3ad73c9d2a20"/> -</scilablib> diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names deleted file mode 100644 index cef9f19b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names +++ /dev/null @@ -1,335 +0,0 @@ -Addcounter -Anglemark -Arrowdata -Arrowhead -Arrowheaddata -Arrowline -Assign -Assignadd -Assignrep -Assignset -Beginpicture -BorderHiddenData -Borderparadata -Borderpersdata -BorderPt -Borderrawdata -Bowdata -Bowmiddle -Bowname -Bownamerot -Calcfun -CalcHeight -CalcWidth -CameracoordCurve -CameraCurve -Cancoordpara -Cancoordpers -Circledata -Clipindomain -Closefile -Closepar -Closephr -Closepicture -Closeobj -Connectseg -Crossprod -Crv3onsfHiddenData -Crv3onsfparadata -Crv3onsfpersdata -CrvonsfHiddenData -Crvonsfparadata -Crvonsfpersdata -CrvsfHiddenData -Crvsfparadata -Crvsfpersdata -CuspData -CuspPt -Cuspsplitpara -Cuspsplitpers -CuspSplitPt -Cutsf2d -Dashline -Dataindex -Deqplot -Derivative -Diagcelldata -Dividegraphics -Dividetable -Doscaling -Dotfilldata -Dotprod -Dottedline -Dropnumlistcrv -Droppoint -Drwline -Drwpt -Drwxy -Embed -Enclosing -EnclosingS -Endpicture -Evlptablepara -Evlptablepers -Execmd -Expr -Exprrot -Faceremovaldata -Facesdata -Findcell -Flattenlist -Fontsize -Fouriercoeff -FouriercoeffL -Fouriersum -Fracform -Framedata -Fullformfunc -Gaiseki -Getcounter -Gettrace -Hatchdata -Hexahedrondata -HiddenWireData -Htickmark -Implicitplot -ImplicitData -Initangle -Integrate -Intersectcrvs -Intersectcrvsf -IntersectcrvsPp -Intersectlines -IntersectselfPp -Invdashline -Invert -Invparapt -Invperspt -InWindow -Joincrvs -Joingraphics -Ketinit -Kouten -KoutenList -Koutenseg -Kukannozoku -Kukeiwake -Kyorihensuu -Kyoukai -Letter -Letterrot -Lineplot -Listplot -MakeBowdata -MakecutbycrvL -MakeCurves -Makehasen -Makeliststr -Makesfcutoffdata -Makeshasen -Makeskeletondata -Makeskeletonpersdata -Makevaltable -MakeveLfaceL -Makexybdy -Mawarikomi -Meetpoints -MeetWindow -Member -Menkakusi -Menkakusi2 -Mix -Mixadd -Mixdisp -Mixjoin -MixL -Mixlength -Mixmake -Mixop -MixS -Mixsub -Mixtype -Naigai -Naiseki -Nearestpt -Newlength -Nohiddenpara -Nohiddenpara2 -Nohiddenpers -Nohiddenpers2 -Numptcrv -Objjoin -Objname -Objcurve -Objpolyhedron -Objpolygon -Objrecs -Objsurf -Objsymb -Objthicksurf -Openobj -Op -Openfile -Openpar -Openphr -Openpicture -Ovalbox -Ovaldata -Paramark -Paramoncrv -ParamonCurve -Paramplot -Parapt -Partcrv -Partcrv3 -Partframe -PartitionPt -Partitionseg -Perspt -Phcutdata -Phcutoffdata -Phidegree -PhFaceL -PhHiddenData -Phparadata -Phpersdata -Phsparadata -Phspersdata -Phrawparadata -Phrawpersdata -Phsrawparadata -Phsrawpersdata -PhVertexL -Plotdata -Pointdata -Pointoncrv -PointonCurve -Powersum -Prime -Printobjstr -ProjcoordCurve -ProjCurve -Projpara -Projpers -Ptcrv -Ptend -PthiddenQ -Ptne -Ptnw -Ptse -Ptstart -Ptsw -Putcell -Putcirmark -PutcoL -PutcoLexpr -PutcoLstr -Putdashmark -Putrecmark -Putrow -Putrowexpr -Putrowstr -Puttrace -Ratiocmyk -ReadfromCindy -Readtextdata -Reflectdata -Rmmember -Rotate3data -Rotate3pt -Rotatedata -Roundstr -Scaledata -Sectionview -Setangle -Setarrow -Setax -Setcolor -Setcounter -Setmark -Setmarklen -Setobjdecimals -Setobjscale -Setorigin -Setpen -Setpers -Setpt -Setscaling -SetstereoL -SetstereoR -Setunitlen -Setversion -Setwindow -Sf3data -Sfbdparadata -Sfbdpersdata -Sfbdrawparadata -Sfbdrawpersdata -Sfcutdata -Sfcutoffparadata -Sfcutoffpersdata -Sfcutoffrawparadata -Sfcutoffrawpersdata -Sfparadata -Sfpersdata -Shade -Skeleton2data -Skeletonparadata -Skeletonpara3data -Skeletonpersdata -Skeletonpers3data -Spacecurve -Spaceline -Splinedata -Strop -Subs -Sumfun -Symbdata -Symb3data -Tabledata -Texcom -Texctr -Texelse -Texend -Texendfor -Texendif -Texfor -Texforinit -Texif -Texletter -Texnewcmd -Texnewctr -Texrenewcmd -Texsetctr -Texthectr -Texvalctr -Texvctr -Thetadegree -ThisVersion -Tolist -Translate3data -Translatedata -Trunc -Unscaling -Vecnagasa -Vecnagasa2 -Viewfrom -Vtickmark -Windisp -WireHiddenData -Wireparadata -Wirepersdata -WirePt -Wirerawparadata -Wirerawpersdata -Writetextdata -Writeobjpoint -Xmax -Xmin -Xyzaxparaname -Xyzaxpersname -Xyzax3data -Ymax -Ymin -Zparapt -Zperspt diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r index 7c102a22..2478a8fb 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r @@ -16,10 +16,51 @@ ######################################### -# source("/Rfiles/ketpic5_2_3.r") - -ThisVersion<- "KeTpic for R v5_2_3(17.10.08)" - +ThisVersion<- "KeTpic for R v5_2_3(18.02.02)" + +# 2018.02.02 +# Enclosing2 changed ( for distant curves, startpt option removed ) +# 2018.02.01 +# Intersectline,Intersectseg,...,Intersectcuves added +# Quicksort added +# Enclosing2 added (incomplete) +# 2018.01.29 +# Length added +# 2017.12.24 +# Objpolyhedron added +# 2017.12.23 +# Objsymb, symb3data added +# Objrecs, Objpolygon debugged +# Objthicksurf added +# 2017.12.22 +# Openobj,Closeobj,Writeobjpoint,Printobjstr,Objname,Objsurf added +# Crossprod added +# Objjoin, Objcurve, Objrecs, Objpolygon, Objsymb added +# Spacecurve debugged +# 2017.12.17 +# Setunitlen debugged ( MEMORI ) +# 2017.12.13 +# ReadOutData debugged +# 2017.12.11 +# Enclosing debugged ( appendrow -> Appendrow ) +# 2017.11.29 +# Anglemark, Arrowhead, Ovaldata debugged ( Circldeta included ) +# 2017.11.27 +# Anglemark changed ( Scilab 16.12.29) +# Plotdata,Paramplot,Spacecurve changed ( Scilab 16.12.13) +# Enclosing changed ( Scilab 16.10.09) +# Arrowhead,Arrowline changed ( Scilab 15.06.11) +# Definecolor added ( Scilab 15.05.04) +# 2017.11.26 +# Exprrot, Letterrot debugged ( `) +# 2017.11.24 +# Deqplot debugged (Looprange) +# 2017.11.20 +# InWindow debugged (for length=1) +# 2017.10.28 +# Openfile changed (Creator) +# 2017.10.23 +# ReadOutData greatly changed # 2017.10.11 # Drwpt debugged (Flattenlist ) # 2017.10.08 @@ -420,6 +461,17 @@ Datalength<-function(Data) if (mode(Data)=="list") return(length(Data)) } +Crossprod<- function (a,b){ # 17.12.22 + if(length(a)==3){ + Tmp1=a[2]*b[3]-a[3]*b[2] + Tmp2=a[3]*b[1]-a[1]*b[3] + Tmp3=a[1]*b[2]-a[2]*b[1] + Out=c(Tmp1,Tmp2,Tmp3) + }else{ + Out=a[1]*b[2]-a[2]*b[1] + } +} + Dotprod<-function(a,b) { Tmp=crossprod(a,b) @@ -499,6 +551,34 @@ Stripblanks<- function(Ch){ return(Tmp) } +Quicksort<- function(seqL,key){ #18.02.01 + if(length(seqL)<2){ + out=seqL + }else{ + tmp1=Op(1,seqL) + tmp2=Op(2,seqL) + if(Op(key,tmp1)>=Op(key,tmp2)){ + pivot = tmp1 + }else{ + pivot=tmp2 + } + left = list() + right = list() + for(ii in 1:length(seqL)){ + tmp=Op(ii,seqL) + if(Op(key,tmp)< Op(key,pivot)){ + left=c(left,list(tmp)) + }else{ + right=c(right,list(tmp)) + } + } + left = Quicksort(left,key) + right = Quicksort(right,key) + out=c(left,right) + } + return(out) +} + Derivative<- function(...) { varargin<- list(...) @@ -581,7 +661,11 @@ Anglemark<- function(...) if (Nargs>=4){ r<- varargin[[4]]*r } - Cir<- Circledata(PB,r) + Out=c() + if(r>min(Norm(PA-PB),Norm(PC-PB))){ + return(Out) + } + Cir<- Circledata(c(PB,r)) #17.11.29 Tmp<- IntersectcrvsPp(Cir,Listplot(PA,PB)) P1<- Op(2,Op(1,Tmp)) Tmp<- IntersectcrvsPp(Cir,Listplot(PC,PB)) @@ -715,7 +799,7 @@ Arrowhead<-function(...) Tmp<-Nearestpt(P,Houkou) A<-Tmp[[1]] I<-floor(Tmp[[2]]) - G<-Circledata(P,Ookisa*cos(Theta),N=10) + G<-Circledata(c(P,Ookisa*cos(Theta)),N=10) #17.11.29 Flg<- 0 # 13.11.13 JL<-seq(I,1,by=-1) for (J in JL){ @@ -757,7 +841,9 @@ Arrowhead<-function(...) Tmp<- Listplot(list(A,P,B,C,A)) # 12.01.07 Tmp1<- Unscaling(Tmp) Shade(Tmp1) - Drwline(Tmp1,1) + Tmp=Listplot(c(A,P,B,C,A,P)) # 15.6.20 + Tmp1=Unscaling(Tmp) + Drwline(Tmp1,0.1) # 15.06.11, 15.06.14 } } @@ -806,7 +892,7 @@ Arrowheaddata<- function(...) Tmp<-Nearestpt(P,Houkou) A<-Tmp[[1]] I<-floor(Tmp[[2]]) - G<-Circledata(P,Ookisa*cos(Theta),N=10) + G<-Circledata(c(P,Ookisa*cos(Theta)),N=10) #17.11.29 Flg<- 0 # 13.11.13 JL<-seq(I,1,by=-1) for (J in JL){ @@ -886,7 +972,8 @@ Arrowline<- function(...) } } R<- P+Yapos*(Q-P) - Drwline(Listplot(c(P,Q)),Futosa) + Tmp=Q-Unscaling(0.2*Ookisa/2*(Q-P)/Norm(Q-P)) # 15.10.24 + Drwline(Listplot(c(P,Tmp)),Futosa) Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str) } @@ -1112,15 +1199,15 @@ Beginpicture<-function(ul) } } else{ - Unit<-substring(Ucode,I,I+1); - Str<-substring(Ucode,Is,I-1); + Unit<-substring(Ucode,I,I+1) + Str<-substring(Ucode,Is,I-1) VL<-paste(VL,Str,sep="") break; } } - Valu<-eval(parse(text=VL)); + Valu<-eval(parse(text=VL)) Str<-as.character(Valu); - ULEN<<- paste(Str,Unit,sep=""); + ULEN<<- paste(Str,Unit,sep="") if (Unit=="cm") MilliIn<<-1000/2.54*Valu if (Unit=="mm") MilliIn<<-1000/2.54*Valu/10 if (Unit=="in") MilliIn<<-1000*Valu @@ -1131,22 +1218,22 @@ Beginpicture<-function(ul) if (Unit=="cc") MilliIn<<-1000/1238/1157/72.27*12*Valu; if (Unit=="sp") MilliIn<<-1000/72.27/65536*Valu/10 MARKLEN<<- MARKLENNow*1000/2.54/MilliIn; - Str<-paste("{\\unitlength=",ULEN,"%\n",sep=""); - cat(Str,file=Wfile,append=TRUE); - cat("\\begin{picture}%\n",file=Wfile,append=TRUE); - Str<-"("; - Tmp<-as.character(round(Dx,digits=6)); - Str<-paste(Str,Tmp,",",sep=""); - Tmp<-as.character(round(Dy,digits=6)); - Str<-paste(Str,Tmp,")(",sep=""); - Tmp<-as.character(round(Xm,digits=6)); - Str<-paste(Str,Tmp,",",sep=""); - Tmp<-as.character(round(Ym,digits=6)); - Str<-paste(Str,Tmp,")%\n",sep=""); - cat(Str,file=Wfile,append=TRUE); - Str<-paste("\\special{pn ",as.character(PenThickInit),"}%\n",sep=""); - cat(Str,file=Wfile,append=TRUE); - cat("%\n",file=Wfile,append=TRUE); + Str<-paste("{\\unitlength=",ULEN,"%\n",sep="") + cat(Str,file=Wfile,append=TRUE) + cat("\\begin{picture}%\n",file=Wfile,append=TRUE) + Str<-"(" + Tmp<-as.character(round(Dx,digits=6)) + Str<-paste(Str,Tmp,",",sep="") + Tmp<-as.character(round(Dy,digits=6)) + Str<-paste(Str,Tmp,")(",sep="") + Tmp<-as.character(round(Xm,digits=6)) + Str<-paste(Str,Tmp,",",sep="") + Tmp<-as.character(round(Ym,digits=6)) + Str<-paste(Str,Tmp,")%\n",sep="") + cat(Str,file=Wfile,append=TRUE) + Str<-paste("\\special{pn ",as.character(PenThickInit),"}%\n",sep="") + cat(Str,file=Wfile,append=TRUE) + cat("%\n",file=Wfile,append=TRUE) } ################################################# @@ -1551,6 +1638,31 @@ Dashline<- function(...) } ############################################## +# 17.11.27 + +Definecolor<- function(Name,Data){ + Tmp1=length(Data) + if((Tmp1<3) || (Tmp1>4)){ + cat("Size of data should be 3 or 4.") + return() + } + if(Tmp1==4){ + Tp="cmyk" + }else{ + Tp="rgb" + } + Tmp="" + for(J in 1:Tmp1){ + Tmp=paste(Tmp, as.character(Data[J]),sep="") + if(J<Tmp1){ + Tmp=paste(Tmp,",",sep="") + } + } + Tmp=paste("\\definecolor{",Name,"}{",Tp,"}{",Tmp,"}",sep="") + Texcom(Tmp) +} + +############################################## Diagcelldata<- function(Tb,Nc,Nr) { @@ -2088,6 +2200,7 @@ Drwxy<-function(...) Enclosing<- function(...) { + Eps=10^(-7) # Scilab 16.12.05 varargin<- list(...) Nargs<- length(varargin) P<- varargin[[1]] @@ -2096,9 +2209,14 @@ Enclosing<- function(...) if (mode(Tmp)!="numeric" || length(Tmp)>1){ AnsL<- EnclosingS(...) AnsL<- Joincrvs(AnsL) # 10.12.04 - return(AnsL) } } + Tmp1=Op(1,AnsL) # Scilab 16.12.05from + Tmp2=Op(nrow(AnsL),AnsL) + if(Norm(Tmp2-Tmp1)>Eps){ + AnsL=Appendrow(AnsL,Tmp1) + } + return(AnsL) } ######################################### @@ -2364,7 +2482,7 @@ Exprrot<- function(...) if (mode(Tmp)=="numeric"){ Nmov<- Tmp; N<- N+1 } - Mojiretu<- paste("$",varargin[[N]],"$",sep="") + Mojiretu<- paste("$",Assign(varargin[[N]]),"$",sep="") # 2017.11.26 Tv<- 1/Norm(V)*V Nv<- c(-Tv[2],Tv[1]) P<- P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv @@ -3209,12 +3327,16 @@ Invert<- function(Pd) InWindow<-function(PA) { Eps<-10.0^(-6); - X<-PA[1]; Y<-PA[2]; - if (X>XMIN-Eps && X<XMAX+Eps && Y>YMIN-Eps && Y<YMAX+Eps) - Rx<-"i" - else - Rx<-"o" - return(Rx); + if((length(PA)==2)&(is.numeric(PA))){ # 17.11.20 + X<-PA[1]; Y<-PA[2]; + if (X>XMIN-Eps && X<XMAX+Eps && Y>YMIN-Eps && Y<YMAX+Eps) + Rx<-"i" + else + Rx<-"o" + return(Rx) + }else{ + return("o") + } } ####################################### @@ -3605,7 +3727,7 @@ Kyoukai<- function(...) { varargin<- list(...) Nargs<- length(varargin) - Eps0<- 10^(-5) + Eps0<- 10^(-7) DataL<-list() for (I in 1:Nargs){ Tmp<- varargin[[I]] @@ -3860,7 +3982,7 @@ Letterrot<- function(...) if (mode(Tmp)=="numeric"){ Nmov<- Tmp; N<- N+1 } - Mojiretu<- varargin[[N]] + Mojiretu<- Assign(varargin[[N]]) #2017.11.26 Tv<- 1/Norm(V)*V Nv<- c(-Tv[2],Tv[1]) P<- P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv @@ -4459,62 +4581,50 @@ Naigai<- function(A,Bdy) ######################################## -Nearestpt<-function(...) -{ - varargin<-list(...) - Nargs<-length(varargin) - PL1<-varargin[[1]] - if (!is.matrix(PL1)) - { - Tmp<-matrix(PL1); - PL1<-t(Tmp) +Nearestpt<- function(...){ + varargin<- list(...) + Nargs<- length(varargin) + PL1<- varargin[[1]] + if (!is.matrix(PL1)){ + Tmp<- matrix(PL1); + PL1<- t(Tmp) } if (Nrow(PL1)==1) Flg=0 else Flg=1 - Eps<-10.0^(-6) - PL<-varargin[[2]] - Ans<-list(PL1[1,],1,PL[1,],1,Norm(PL1[1,]-PL[1,])) - for (N in 1:Nrow(PL1)) - { - PA<-PL1[N,] - Pm<-PL[1,] - Im<-1 - Sm<-Norm(Pm-PA) - for (I in 1:(Nrow(PL)-1)) - { - A1<-PL[I,1]; A2<-PL[I,2] - B1<-PL[I+1,1]; B2<-PL[I+1,2] - V1<-B1-A1; V2<-B2-A2 - X1<-PA[1]; X2<-PA[2] + Eps<- 10.0^(-6) + PL<- varargin[[2]] + Ans<- list(PL1[1,],1,PL[1,],1,Norm(PL1[1,]-PL[1,])) + for(N in Looprange(1,Nrow(PL1))){ + PA<- PL1[N,] + Pm<- PL[1,] + Im<- 1 + Sm<- Norm(Pm-PA) + for(I in Looprange(1,Nrow(PL)-1)){ + A1<- PL[I,1]; A2<-PL[I,2] + B1<- PL[I+1,1]; B2<-PL[I+1,2] + V1<- B1-A1; V2<-B2-A2 + X1<- PA[1]; X2<-PA[2] Tmp<-V2^2+V1^2 if (abs(Tmp)<Eps) next - T<-(-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp - if (T< -Eps) - { - P<-c(A1,A2) - } - else - { - if (T>1+Eps) - { - P<-c(B1,B2) - } - else - { - P<-c(A1+T*V1,A2+T*V2) + T<- (-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp + if (T< -Eps){ + P<- c(A1,A2) + }else{ + if (T>1+Eps){ + P<- c(B1,B2) + }else{ + P<- c(A1+T*V1,A2+T*V2) } } - S<-Norm(P-PA) - if (S<Sm-Eps) - { - Tmp<-Paramoncrv(P,I,PL) - Pm<-P; Im<-Tmp; Sm<-S + S<- Norm(P-PA) + if (S<Sm-Eps){ + Tmp<- Paramoncrv(P,I,PL) + Pm<- P; Im<- Tmp; Sm<- S } } - if (Sm<Ans[[5]]) Ans<-list(PA,N,Pm,Im,Sm) - if (Flg==0) - { - Ans<-Ans[3:5] + if (Sm<Op(5,Ans)) Ans<- list(PA,N,Pm,Im,Sm) + if (Flg==0){ + Ans<- Ans[3:5] } } return(Ans) @@ -4539,6 +4649,13 @@ Numptcrv<-function(Fig) return(Nrow(Fig)) } +# 2018.01.29 +Length<- function(Data){ + if(is.matrix(Data)){return(nrow(Data))} + if(is.character(Data)){return(nchar(Data))} + return(length(Data)) +} + ######################################### Op<-function(N,Data) @@ -4588,48 +4705,34 @@ Op<-function(N,Data) Openfile<-function(...) { - varargin<- list(...) # 2013.05.20 from + varargin<- list(...) File<- varargin[[1]] Bflg<- 0 Wfile<<- File Creator<- "" Cflg<- 0 Nargs<- length(varargin) - if(Nargs>1){ - for(N in 2:Nargs){ - Tmp<- varargin[[N]] - Tmp1<- strsplit(Tmp,"=",fixed=TRUE) - Tmp1<- Tmp1[[1]] - if(length(Tmp1)>1){ - Creator<- Tmp1[2] - Cflg<- 1 - } - else{ - Unitstr<- Tmp - Bflg<- 1 - } + for(N in Looprange(2,Nargs)){ + Tmp<- varargin[[N]] + Tmp1<- strsplit(Tmp,"=",fixed=TRUE) + Tmp1<- Tmp1[[1]] + if(length(Tmp1)>1){ + Creator<- Tmp1[2] + Cflg<- 1 + } + else{ + Unitstr<- Tmp + Bflg<- 1 } } Recentf<- "" Fv<- list.files() Nv<- grep("\\.r$", Fv) Rfiles<- Fv[Nv] -# if(length(Rfiles)>0){ -# Finfo<- file.info(Rfiles) -# Tmp1<- as.POSIXlt(Finfo$ctime) -# Tmp2<- order(Tmp1,decreasing=TRUE) -# Recentf<- Rfiles[Tmp2[1]] -# } -# Tmp<- sprintf("%s",Sys.time()) - StrW<- paste("%%% ",File," ",Tmp,sep="") - StrC<- paste("%%% ",Creator,sep="") + StrW<- paste("%%% ",File,sep="") #17.10.28 + StrC<- paste("%%% Generator=",Creator,sep="") if(Cflg==0){ -# if(nchar(Recentf)>0){ -# Tmp1<- file.info(Recentf) -# Tmp2<- sprintf("%s",Tmp1$ctime) -# StrC<- paste(StrC,Recentf," ",Tmp2,sep="") -# } - } # 2013.12.15 upto + } cat(StrW,"\n",file=Wfile) cat(StrC,"\n",file=Wfile,append=TRUE) if(Bflg==1){ @@ -4746,7 +4849,7 @@ Ovaldata<- function(...) #17.09.11 } Out<- c() P<- C+c(Dx-Rc,Dy-Rc) - Tmp1<- Circledata(P,Rc,"R=c(0,pi/2)","N=10") + Tmp1<- Circledata(c(P,Rc),"R=c(0,pi/2)","N=10") #17.11.29 Tmp2<- Listplot(C+c(Dx-Rc,Dy),C+c(0,Dy)) Tmp3<- Listplot(C+c(Dx,0),C+c(Dx,Dy-Rc)) G<- Joincrvs(Tmp3,Tmp1,Tmp2) @@ -4826,20 +4929,8 @@ Paramplot<- function(...) varargin<- list(...) Eps<- 10^(-5) Nargs<- length(varargin) -# if type(varargin(1))==13 -# Fnflg=1; -# Fnx=varargin(1); -# Fny=varargin(2); Is=3; -# if type(varargin(Is))==13 -# Fnflg=Fnflg+1; -# Fnargx=varargin(Is); -# Fnargy=varargin(Is+1); -# Is=Is+2; -# end; -# else - Fnflg<- 0 - Fnstr<- varargin[[1]]; Is=2 -# end; + Fnflg<- 0 + Fnstr<- varargin[[1]]; Is=2 Rgstr<- varargin[[Is]]; Is<- Is+1 Range<- c(0,2*pi) N<- 50 # Numpoints @@ -4875,6 +4966,11 @@ Paramplot<- function(...) { Str<- gsub(Vname,"t",Fnstr) } + if(abs(Dt)<Eps){ # 16.12.13 + t=T1 + P=eval(parse(text=Str)) + return(P) + } P<-c() if (length(E)>0) { @@ -5085,6 +5181,11 @@ Plotdata<- function(...) if (Fnflg==0){ Str<- gsub(Vname,"x",Fnstr,fixed=TRUE) } + if(abs(dx)<Eps){ # Scilab 16.12.13 + x=X1 + P=c(X1,eval(parse(text=Str))) + return(P) + } Exfun<- gsub(Vname,"x",Exfun,fixed=TRUE) P<-c() if (length(E)>0){ @@ -6028,9 +6129,8 @@ WriteOutData<- function(...){ cat("//","\n",sep="",file=Fname,append=TRUE) # 15.11.05 } -########################################## +###### Old #################################### # 2015.10.23 - ReadOutData<- function(...){ varargin<- list(...) Nargs<- length(varargin) @@ -6087,6 +6187,65 @@ ReadOutData<- function(...){ #################################################### +ReadOutData<- function(...){ #2017.10.23 + varargin<- list(...) + Nargs<- length(varargin) + Fname=varargin[[1]] + cmdall=readLines(Fname) + cmdall=gsub("//","",cmdall,fixed=TRUE) + varname=""#17.12.13 cmdall[1] + outdt=list() + varL=c() + ptL=list() + flg=0 + for(cmd in cmdall){ + if(nchar(cmd)>0){ + if((cmd=="start") | cmd=="end" | substring(cmd,1,1)=="["){ + if(cmd=="start"){ + tmp=paste(varname,"<<- c(",varname,",list(c()))",sep="") + eval(parse(text=tmp)) + Ctr=Ctr+1 + } + if(cmd=="end"){ + } + if(substring(cmd,1,1)=="["){ + tmp1=paste(",",substring(cmd,2,nchar(cmd)-1),sep="") + tmp1=strsplit(tmp1,"]",fixed=TRUE) + tmp1=tmp1[[1]] + tmp1=gsub(",[","c(",tmp1,fixed=TRUE) + for(st in tmp1){ + tmp=paste(varname,"[[",as.character(Ctr),"]]",sep="") + tmp=paste(tmp,"<<- rbind(",tmp,",",st,"))",sep="")# + eval(parse(text=tmp)) + } + } + } + else{ + # 17.12.13from + if(nchar(varname)>0){ + tmp=paste("if(length(",varname,")==1){",varname,"<<- ",varname,"[[1]]}",sep="") + eval(parse(text=tmp)) + } + # 17.12.13upto + varname=cmd + tmp=paste(varname,"<<- list()",sep="") + eval(parse(text=tmp)) + Ctr=0 + if(flg==0){ # 17.10.07from + flg=1 + }else{ + } # 17.10.07upto + } + } + } + # 17.12.13from + tmp=paste("if(length(",varname,")==1){",varname,"<<- ",varname,"[[1]]}",sep="") + eval(parse(text=tmp)) + # 17.12.13upto +} + +#################################################### + Rotatedata<- function(..., deg=FALSE) { varargin<- list(...) @@ -6492,7 +6651,8 @@ Setunitlen<-function(...) if (Unit=="dd2") MilliIn<<-1000/1238/1157/72.27*Valu if (Unit=="cc") MilliIn<<-1000/1238/1157/72.27*12*Valu if (Unit=="sp") MilliIn<<-1000/72.27/65536*Valu/10 - MARKLEN<<-MARKLENNow*1000/2.54/MilliIn; + MARKLEN<<-MARKLENNow*1000/2.54/MilliIn + MEMORI<<-MEMORINow*1000/2.54/MilliIn #17.12.17 } ######################################### @@ -7742,7 +7902,7 @@ Cancoordpers<- function(P){ ####################################### -Embed <- function(...){ +Embed<- function(...){ varargin<- list(...) Nargs<- length(varargin) Pd3<- varargin[[1]] @@ -9861,7 +10021,7 @@ Spacecurve<- function(...){ StrV<- StrV[[1]] Tmp1<- toupper(StrV[1]) Lhs<- substr(Tmp1,1,1) - Str<- paste(Lhs,"=",StrV[2]) + Str<- paste(Lhs,"=",StrV[2],sep="") eval(parse(text=Str)) } StrV<- strsplit(Rgstr,"=",fixed=TRUE) @@ -9877,6 +10037,13 @@ Spacecurve<- function(...){ T1<- Rng[1]; T2<- Rng[2] Dt<- (T2-T1)/N #17.09.22 Str<- gsub(Vname,"t",Fnstr) + Str=gsub("[","c(",Str,fixed=TRUE) #17.12.22(2lines) + Str=gsub("]",")",Str,fixed=TRUE) + if(abs(Dt)<Eps){ # 16.12.13 + t=T1 + P=eval(parse(text=Str)) + return(P) + } P<- c() # E<- sort(E,decreasing=FALSE) E<- c(E,Inf) @@ -11278,7 +11445,7 @@ Deqdata=function(deq,rng,initt,initf,Num){ tt=initt X0=initf pdL=c(tt,X0) - for(J in 1:(floor((t2-initt)/dt))){ + for(J in Looprange(1,floor((t2-initt)/dt))){ kl1=dt*funP(tt,X0) kl2=dt*funP(tt+dt/2,X0+kl1/2) kl3=dt*funP(tt+dt/2,X0+kl2/2) @@ -11291,7 +11458,7 @@ Deqdata=function(deq,rng,initt,initf,Num){ } tt=initt X0=initf - for(J in 1:(floor((initt-t1)/dt))){ + for(J in Looprange(1,floor((initt-t1)/dt))){ kl1=dt*funN(tt,X0) kl2=dt*funN(tt+dt/2,X0+kl1/2) kl3=dt*funN(tt+dt/2,X0+kl2/2) @@ -11325,3 +11492,1169 @@ Deqplot=function(...){ pdL=Deqdata(deq,rng,initt,initf,Num) pdL=pdL[,SeL] } + + +############## obj ############### + +Openobj<- function(Fnm){ + OBJFMT<<- "%7.4f" + NPOINT<<- 0 + NNORM<<- 0 + OBJSCALE<<- 1 + OBJFIGNO<<- 0 + OBJJOIN<<- 0 + Wfile<<- Fnm + Tmp=grep(".obj",Fnm,fixed=TRUE) + if(length(Tmp)==0){ + if(nchar(Fnm)>0){ + Wfile<<- paste(Fnm,".obj",sep="") + } + } + cat("",file=Wfile,sep="") + Wfile +} + +Closeobj<- function(){ + Wfile="" +} + +Writeobjpoint<- function(P){ + X=sprintf(OBJFMT,P[1]*OBJSCALE) + Y=sprintf(OBJFMT,P[2]*OBJSCALE) + Z=sprintf(OBJFMT,P[3]*OBJSCALE) + Str=paste("v",X,Y,Z,sep=" ") + Printobjstr(Str) + NPOINT<<- NPOINT+1 + return(NPOINT) +} + +Printobjstr<- function(Str){ + cat(Str,"\n",sep="",file=Wfile,append=TRUE) +} + +Objname<- function(){ + if(OBJJOIN==0){ + OBJFIGNO<<- OBJFIGNO+1 + Gname=paste("ketfig",as.character(OBJFIGNO),sep="") + Printobjstr(paste("# ",Gname,sep="")) + Printobjstr(paste("g ",Gname,sep="")) + } +} + +Objjoin<- function(...){ + varargin=list() + if(length(varargin)>0){ + OBJJOIN<<- abs(sign(varargin[[1]])) + } + OBJJOIN +} + +Objsurf<- function(...){ #17.12.18 + Args<- list(...) + Nargs<- length(Args) + Sel=Args[[Nargs]]; Nargs=Nargs-1 + Rf=Args[[1]] + N=2 + Mg=0; Ng=0 + if(is.numeric(Args[[N]])){ + if(length(Args[[N]])>2){ + U=Args[[N]] + Mg=length(U)-1 + N=N+1 + }else if(length(Args[[N]])==2){ + Intab=Args[[N]] + Ag=Intab[1]; Bg=Intab[2] + N=N+1 + }else{ + Ag=Args[N]; Bg=Args[N+1] + N=N+2 + } + }else{ + Tmp0=Args[[N]] + Tmp=grep("=",Tmp0,fixed=TRUE) + if(length(Tmp)>0){ + Tmp1=strsplit(Tmp0,"=") + Tmp0=Tmp1[[1]][2] + } + Intab=eval(parse(text=Tmp0)) + Ag=Intab[1]; Bg=Intab[2] + N=N+1 + } + if(is.numeric(Args[[N]])){ + if(length(Args[[N]])>2){ + V=Args[[N]] + Ng=length(V)-1 + N=N+1 + }else if(length(Args[[N]])==2){ + Intab=Args[[N]] + Cg=Intab[1]; Dg=Intab[2] + N=N+1 + }else{ + Cg=Args[[N]]; Dg=Args[[N+1]] + N=N+2 + } + }else{ # the case of is.character(Args[[N]]) + Tmp0=Args[[N]] + Tmp=grep("=",Tmp0,fixed=TRUE) + if(length(Tmp)>0){ + Tmp2=strsplit(Tmp0,"=") + Tmp0=Tmp2[[1]][2] + } + Intab=eval(parse(text=Tmp0)) + Cg=Intab[1]; Dg=Intab[2] + N=N+1 + } + if(Mg==0){ + Mg=Args[[N]] + N=N+1 + U=c() + for(J in Looprange(1,Mg+1)){ + U=c(U,Ag+(J-1)/Mg*(Bg-Ag)) + } + } + if(Ng==0){ + Ng=Args[[N]] + V=c() + for(K in Looprange(1,Ng+1)){ + V=c(V,Cg+(K-1)/Ng*(Dg-Cg)) + } + } + Objname() + PL=list() + for(J in Looprange(1,Mg+1)){ + for(K in Looprange(1,Ng+1)){ + P=Rf(U[J],V[K]) + Np=Writeobjpoint(P) + PL=c(PL,list(c(P,Np))) + } + } + Idx=1+(Ng+1)*(0:Mg) + Pus=PL[Idx] + Idx=(Ng+1)*(1:(Mg+1)) + Pue=PL[Idx] + Idx=1:(Ng+1) + Pvs=PL[Idx] + Idx=((Ng+1)*Mg+1):((Ng+1)*(Mg+1)) + Pve=PL[Idx] + Printobjstr("vt 0 0") + Printobjstr("vt 1 0") + Printobjstr("vt 1 1") + Printobjstr("vt 0 1") + for(J in Looprange(1,Mg)){ + for(K in Looprange(1,Ng)){ + P1=sprintf("%1d",Op(4,PL[[(Ng+1)*(J-1)+K]])) + P2=sprintf("%1d",Op(4,PL[[(Ng+1)*J+K]])) + P3=sprintf("%1d",Op(4,PL[[(Ng+1)*J+K+1]])) + P4=sprintf("%1d",Op(4,PL[[(Ng+1)*(J-1)+K+1]])) + N1=""; N2=""; N3=""; N4="" + if(Sel=="+"){ + Str=paste("f ",P1,"/1/",N1," ",P2,"/2/",N2," ",sep="") + Str=paste(Str,P3,"/3/",N3," ",P4,"/4/",N4,sep="") + }else{ + Str=paste("f ",P1,"/1/",N1," ",P4,"/4/",N4," ",sep="") + Str=paste(Str,P3,"/3/",N3," ",P2,"/2/",N2,sep="") + } + Printobjstr(Str) + } + } + list(U,V,Pus,Pue,Pvs,Pve) +} + +Objthicksurf<- function(...){ + Args=list(...) + Nargs=length(Args) + Sel=Args[[Nargs]]; Nargs=Nargs-1 + Selsurf=substring(Sel,1,1) + Selside=c("0","0","0","0") + Tmp=grep("w",Sel,fixed=TRUE) + if(length(Tmp)>0){ + Selside[1]="w" + } + Tmp=grep("e",Sel,fixed=TRUE) + if(length(Tmp)>0){ + Selside[2]="e" + } + Tmp=grep("s",Sel,fixed=TRUE) + if(length(Tmp)>0){ + Selside[3]="s" + } + Tmp=grep("n",Sel,fixed=TRUE) + if(length(Tmp)>0){ + Selside[4]="n" + } + Nfth=Args[[Nargs-2]] + Thick1=Args[[Nargs-1]] + Thick2=Args[[Nargs]] + Nargs=Nargs-3 + Rfth=Args[[1]] + N=2 + Mg=0; Ng=0 + if(is.numeric(Args[[N]])){ + if(length(Args[[N]])>2){ + U=Args[[N]] + Mg=length(U)-1 + N=N+1 + }else if(length(Args[[N]])==2){ + Intab=Args[[N]] + Ag=Intab[1]; Bg=Intab[2] + N=N+1 + }else{ + Ag=Args[[N]]; Bg=Args[[N+1]] + N=N+2 + } + }else{ + Tmp0=Args[[N]] + Tmp=strsplit(Tmp0,"=",fixe=TRUE) + if(length(Tmp)>0){ + Tmp0=Tmp[[1]][2] + } + Intab=eval(parse(text=Tmp0)) + Ag=Intab[1]; Bg=Intab[2] + N=N+1 + } + if(is.numeric(Args[[N]])){ + if(length(Args[[N]])>2){ + V=Args[[N]] + Ng=length(V)-1 + N=N+1 + }else if(length(Args[[N]])==2){ + Intab=Args[[N]] + Cg=Intab[1]; Dg=Intab[2] + N=N+1 + }else{ + Cg=Args[[N]]; Dg=Args[[N+1]] + N=N+2 + } + }else{ + Tmp0=Args[[N]] + Tmp=strsplit(Tmp0,"=",fixed=TRUE) + if(length(Tmp)>0){ + Tmp0=Tmp[[1]][2] + } + Intab=eval(parse(text=Tmp0)) + Cg=Intab[1]; Dg=Intab[2] + N=N+1 + } + if(Mg==0){ + Mg=Args[[N]] + N=N+1 + U=c() + for(J in Looprange(1,Mg+1)){ + U=c(U,Ag+(J-1)/Mg*(Bg-Ag)) + } + } + if(Ng==0){ + Ng=Args[[N]] + V=c() + for(K in Looprange(1,Ng+1)){ + V=c(V,Cg+(K-1)/Ng*(Dg-Cg)) + } + } + Objname() + Join=OBJJOIN + OBJJOIN<<- 1 + F1=function(u,v){ + Rfth(u,v)+Thick1*Nfth(u,v) + } + F2=function(u,v){ + Rfth(u,v)+Thick2*Nfth(u,v) + } + Dt1=Objsurf(F1,U,V,Selsurf) + if(Selsurf=="+"){ + Tmp="-" + }else{ + Tmp="+" + } + Dt2=Objsurf(F2,U,V,Tmp); + Out=list(Dt1,Dt2); + + if(Selside[1]!="0"){ + Dt=Objrecs(Op(3,Dt1),Op(3,Dt2),Selside[1]) + Out=c(Out,list(Dt)) + } + if(Selside[2]!="0"){ + Dt=Objrecs(Op(4,Dt1),Op(4,Dt2),Selside[2]) + Out=c(Out,list(Dt)) + } + if(Selside[3]!="0"){ + Dt=Objrecs(Op(5,Dt1),Op(5,Dt2),Selside[3]) + Out=c(Out,list(Dt)) + } + if(Selside[4]!="0"){ + Dt=Objrecs(Op(6,Dt1),Op(6,Dt2),Selside[4]) + Out=c(Out,list(Dt)) + } + OBJJOIN<<- Join +} + +Objrecs<- function(...){ + Eps=10^(-6) + Args=list(...) + Nargs=length(Args) + Tmp=Args[[1]] + PtL=Flattenlist(Tmp) + for(J in Looprange(1,length(PtL))){ #17.12.23from + Tmp=PtL[[J]] + if(!is.matrix(Tmp)){ + PtL[[J]]=matrix(Tmp,nrow=1) + } + } #17.12.23upto + PL1=list() + for(J in Looprange(1,length(PtL))){ + Tmp=PtL[[J]] + for(K in Looprange(1,nrow(Tmp))){ + PL1=c(PL1,list(Tmp[K,])) + } + } + Sel=Args[[Nargs]]; Nargs=Nargs-1 + Objname() + for(J in Looprange(1,length(PL1))){ + P=PL1[[J]] + if((length(P)<4) || (P[4]==0)){ + Np=Writeobjpoint(P) + PL1[[J]]=c(P[1:3],Np) + } + } + Tmp=Args[[2]] + if((is.numeric(Tmp)) && (length(Tmp)==1)){ + Drv=Tmp + Len=Norm(Drv) + PL2=list() + for(J in Looprange(1,length(PL1))){ + Tmp=PL1[[J]] + P=Tmp[1:3]+Drv + Np=Writeobjpoint(P) + PL2=c(PL2,list(c(P[1:3],Np))) + if(J<length(PL1)){ + Vec=PL1[[J+1]]-PL1[[J]] + if(Norm(Vec)>Eps){ + Tmp1=Crossprod(Drv,Vec) + Tmp2=Crossprod(Tmp1,Vec) + Tmp3=Dotprod(Tmp2,Drv) + if(Tmp3<-Eps){ + Tmp2=-Tmp2 + } + Drv=Len/Norm(Tmp2)*Tmp2 + } + } + } + }else{ + PtL=Flattenlist(Tmp) + for(J in Looprange(1,length(PtL))){ #17.12.23from + Tmp=PtL[[J]] + if(!is.matrix(Tmp)){ + PtL[[J]]=matrix(Tmp,nrow=1) + } + } #17.12.23upto + PL2=list() + for(J in Looprange(1,length(PtL))){ + Tmp=PtL[[J]] + for(K in Looprange(1,nrow(Tmp))){ + PL2=c(PL2,list(Tmp[K,])) + } + } + for(J in Looprange(1,length(PL2))){ + P=PL2[[J]] + if((length(P)<4) || (P[4]==0)){ + Np=Writeobjpoint(P) + PL2[[J]]=c(P[1:3],Np) + } + } + } + Printobjstr("vt 0 0") + Printobjstr("vt 1 0") + Printobjstr("vt 1 1") + Printobjstr("vt 0 1") + for(J in Looprange(2,length(PL1))){ + P1=sprintf("%1d",Op(4,PL1[[J-1]])) + P2=sprintf("%1d",Op(4,PL2[[J-1]])) + P3=sprintf("%1d",Op(4,PL2[[J]])) + P4=sprintf("%1d",Op(4,PL1[[J]])) + N1=""; N2=""; N3=""; N4="" + if(Sel=="+"){ + Str=paste("f ",P1,"/1/",N1," ",P2,"/2/",N2," ",sep="") + Str=paste(Str,P3,"/3/",N3," ",P4,"/4/",N4,sep="") + }else{ + Str=paste("f ",P1,"/1/",N1," ",P4,"/4/",N4," ",sep="") + Str=paste(Str,P3,"/3/",N3," ",P2,"/2/",N2,sep="") + } + Printobjstr(Str) + } + list(PL1,PL2) +} + +Objpolygon<- function(...){ + Eps=10^(-6) + Args=list(...) + Nargs=length(Args) + Tmp=Args[[1]] + PtL=Flattenlist(Tmp) + for(J in Looprange(1,length(PtL))){ #17.12.23from + Tmp=PtL[[J]] + if(!is.matrix(Tmp)){ + PtL[[J]]=matrix(Tmp,nrow=1) + } + } #17.12.23upto + PL=list() + for(J in Looprange(1,length(PtL))){ + Tmp=PtL[[J]] + for(K in Looprange(1,nrow(Tmp))){ + PL=c(PL,list(Tmp[K,])) + } + } + Sel=Args[[Nargs]]; Nargs=Nargs-1 + Objname() + for(J in Looprange(1,length(PL))){ + P=PL[[J]] + if((length(P)<4) || (P(4)==0)){ + Np=Writeobjpoint(P) + PL[[J]]=c(P[1:3],Np) + } + } + if(Nargs==1){ + Tmp=PL[[1]] + Cen=Tmp[1:3] + Nc=Tmp[4] + }else{ + Tmp=Args[[2]] + if(length(Tmp)==1){ + Tmp1=PL[[Tmp]] + Cen=Tmp1[1:3] + Nc=Tmp[4] + }else{ + Cen=Tmp + Nc=Writeobjpoint(Cen) + } + } + for(J in Looprange(1,length(PL))){ + if(J<length(PL)){ + Je=J+1 + }else{ + Je=1 + } + Pt1=Cen + PLj=PL[[J]]; PLje=PL[[Je]] + Pt2=PLj[1:3]; Pt3=PLje[1:3] + if(Norm(Crossprod(Pt2-Pt1,Pt3-Pt1))<Eps){ + next + } + P1=sprintf("%1d",Nc) + P2=sprintf("%1d",PLj[4]) + P3=sprintf("%1d",PLje[4]) + if(Sel=="+"){ + Str=paste("f",P1,P2,P3,"",sep=" ") + }else{ + Str=paste("f",P1,P3,P2,"",sep=" ") + } + Printobjstr(Str) + } + PL +} + +Objpolyhedron<- function(Vertex,Face){ + OBJFIGNO<<- OBJFIGNO+1 + Ninit=NPOINT + Objname() + for(N in Looprange(1,length(Vertex))){ + P=Vertex[[N]] + Np=Writeobjpoint(P) + Vertex[[N]]=c(P[1:3],Np) + } + for(N in Looprange(1,length(Face))){ + F=Face[[N]]+Ninit + Face[[N]]=F + Str="f" + for(J in Looprange(1,length(F))){ + P=sprintf("%1d",F[J]) + Str=paste(Str,P,sep=" ") + } + Printobjstr(Str) + } + list(Vertex,Face) +} + +Objcurve<- function(...){ + Eps=10^(-6) + Args=list(...) + Nargs=length(Args) + Tmp=Args[[1]] + PtL=Flattenlist(Tmp) + for(J in Looprange(1,length(PtL))){ #17.12.23from + Tmp=PtL[[J]] + if(!is.matrix(Tmp)){ + PtL[[J]]=matrix(Tmp,nrow=1) + } + } #17.12.23upto + PL=list() + for(J in Looprange(1,length(PtL))){ + Tmp=PtL[[J]] + for(K in Looprange(1,nrow(Tmp))){ + PL=c(PL,list(Tmp[K,])) + } + } + Closed=Norm(PL[[length(PL)]]-PL[[1]])<Eps + Pstr="xy" + Tmp=Args[[Nargs]] + if(is.character(Tmp)){ + Pstr=Tmp + Nargs=Nargs-1 + } + Sz=0.1 + Np=4 + if(Nargs>=2){ + Sz=Args[[2]] + } + if(Nargs>=3){ + Np=Args[[3]] + } + Assign("Sz",Sz) + if(Pstr=="xy"){ + Vz=c(0,0,1) + Fs=Assign("c(Sz*cos(t),Sz*sin(t),0)") + } + if(Pstr=="yz"){ + Vz=c(1,0,0) + Fs=Assign("c(0,Sz*cos(t),Sz*sin(t))") + } + if(Pstr=="zx"){ + Vz=c(0,1,0) + Fs=Assign("c(Sz*sin(t),0,Sz*cos(t))") + } + Gc0=Spacecurve(Fs,"t=c(0,2*pi)",paste("Num=",as.character(Np),sep="")) + P=PL[[1]]; Q=PL[[2]]; R=PL[[length(PL)-1]] + PQ1=Q-P + if(!Closed){ + PQ2=PQ1 + }else{ + PQ2=P-R + } + Vp=PQ1/Norm(PQ1)+PQ2/Norm(PQ2) + Vp1=Vp/Norm(Vp) + Theta=acos(min(Dotprod(Vz,Vp1),1)); + Vj=Crossprod(Vz,Vp1) + if(Norm(Vj)<Eps){ + Vj=Vz + } + Gc1=Rotate3data(Gc0,Vj,Theta) + CL=list(Translate3data(Gc1,P)) + for(J in Looprange(2,length(PL)-1)){ + P=PL[[J]]; Q=PL[[J+1]] + PQ2=Q-P + if(Norm(PQ2)<Eps){ + next + } + Vp=PQ1/Norm(PQ1)+PQ2/Norm(PQ2) + Vp2=Vp/Norm(Vp) + Theta=acos(min(Dotprod(Vp1,Vp2),1)) + Vj=Crossprod(Vp1,Vp2) + if(Norm(Vj)<Eps){ + Vj=Vp1 + } + Gc2=Rotate3data(Gc1,Vj,Theta) + CL=c(CL,list(Translate3data(Gc2,P))) + PQ1=PQ2 + Vp1=Vp2 + Gc1=Gc2 + } + if(!Closed){ + Vp2=(Q-P)/Norm(Q-P) + Theta=acos(min(Dotprod(Vp1,Vp2),1)) + Vj=Crossprod(Vp1,Vp2) + if(Norm(Vj)<Eps){ + Vj=Vp1 + } + Gc3=Rotate3data(Gc1,Vj,Theta) + CL=c(CL,list(Translate3data(Gc3,Q))) + } + Objname() + Join=Objjoin(); + Objjoin(1) + GL1=CL[[1]] + for(J in Looprange(2,length(CL))){ + GL2=CL[[J]] + Dt=Objrecs(GL1,GL2,"-") + GL1=Dt[[2]] + if(J==2){ + GL0=Dt[[1]] + } + } + if(!Closed){ + Objpolygon(CL[[1]],"-") + N=length(CL) + Objpolygon(CL[[N]],"+") + }else{ + Objrecs(GL1,GL0,"-") + } + Out=CL + OBJJOIN<<- Join +} + +Objsymb<- function(Symb,Thick,Face,Dir){ + for(J in Looprange(1,length(Symb))){ + Objcurve(Op(J,Symb),Thick,Face,Dir) + } +} + +Symb3data<- function(Moji,Size,Kaiten,NV,Pos){ + if(is.character(Moji)){ + #Tmp=Symbdata(Moji) + # GY1=Tmp(2) + }else{ + GY1=Moji + } + GY1=Scaledata(GY1,Size,Size) + GY1=Rotatedata(GY1,Kaiten*pi/180) + A=NV[1]; B=NV[2]; C=NV[3] + if(A^2+B^2==0){ + E1=c(1,0,0) + E2=c(0,1,0) + }else{ + E1=c(B,-A,0) + E2=c(-A*C,-B*C,A^2+B^2) + Tmp=matrix(c(E1,E2,NV),3,3) + D=det(Tmp) + if(D<0){ + E1=-E1 + } + E1=E1/Norm(E1) + E2=E2/Norm(E2) + } + Em<- function(X,Y){ + c(E1[1]*X+E2[1]*Y,E1[2]*X+E2[2]*Y,E1[3]*X+E2[3]*Y) + } + GY1=Embed(GY1,Em) + GY1=Translate3data(GY1,Pos) + Flattenlist(GY1) +} + +############## New Intersect 18.02.01 ############# + +Intersectline<- function(p1,v1,p2,v2){ + Eps=10^(-5) + tmp=Dotprod(v1,v2) + tmp1=c(tmp,Norm(v1)^2) + tmp2=c(-Norm(v2)^2,-tmp) + tmp3=c(Dotprod(p2-p1,v2),Dotprod(p2-p1,v1)) + d=Crossprod(tmp1,tmp2) + tmp=abs(Crossprod(v1,v2)) + if(tmp>Eps){ + dt=Crossprod(tmp3,tmp2) + ds=Crossprod(tmp1,tmp3) + t=dt/d + s=ds/d + pt=p1+v1*t + out=list(pt,t,s) + }else{ + tmp1=Crossprod(p2-p1,v1)/Norm(v1) + out=list(abs(tmp1)) + } + return(out) +} + +Intersectseg<- function(...){ + varargin=list(...) + Nargs=length(varargin) + Eps=10^(-4) + Eps1=0.01 + seg1=varargin[[1]] + seg2=varargin[[2]] + if(Nargs>2){Eps1=varargin[[3]]} + p1=Op(1,seg1); q1=Op(2,seg1) + p2=Op(1,seg2); q2=Op(2,seg2) + if((Norm(q1-p1)<Eps)||(Norm(q2-p2)<Eps)){ + out=list(-1) + }else{ + tmp=Intersectline(p1,q1-p1,p2,q2-p2) + if(length(Op(1,tmp))>1){ + pt=Op(1,tmp); t=Op(2,tmp); s=Op(3,tmp) + if((t*(t-1)<Eps)&&(s*(s-1)<Eps)){ + out=list(0,pt,t,s) + }else{ + t=min(max(t,0),1) + s=min(max(s,0),1) + tmp3=c(Norm(p1-p2),Norm(p1-q2),Norm(p2-p1),Norm(p2-q1)) + tmp1=c(Op(2,q2-p2),-Op(1,q2-p2)) + tmp=Intersectline(p1,tmp1,p2,q2-p2) + if(length(Op(1,tmp))>1){ + if(Op(3,tmp)*(Op(3,tmp)-1)<Eps){ + tmp3=c(tmp3,Norm(Op(1,tmp)-p1)) + } + } + tmp=Intersectline(q1,tmp1,p2,q2-p2) + if(length(Op(1,tmp))>1){ + if(Op(3,tmp)*(Op(3,tmp)-1)<Eps){ + tmp3=c(tmp3,Norm(Op(1,tmp)-q1)) + } + } + tmp1=c(Op(2,q1-p1),-Op(1,q1-p1)) + tmp=Intersectline(p2,tmp1,p1,q1-p1); + if(length(Op(1,tmp))>1){ + if(Op(3,tmp)*(Op(3,tmp)-1)<Eps){ + tmp3=c(tmp3,Norm(Op(1,tmp)-p2)) + } + } + if(length(Op(1,tmp))>1){ + if(Op(3,tmp)*(Op(3,tmp)-1)<Eps){ + tmp3=c(tmp3,Norm(Op(1,tmp)-q2)) + } + } + out=list(min(tmp3),pt,t,s) + } + }else{ + dist=tmp[[1]] + tmp1=q1-p1 + n=c(tmp1[2],-tmp1[1])/Norm(tmp1) + pts=list() + tmp=Intersectline(p1,n,p2,q2-p2) + if(tmp[[3]]*(tmp[[3]]-1)<Eps){ + tmp1=(1-tmp[[3]])*p2+tmp[[3]]*q2 + pts=c(pts,list(list(tmp1,0,tmp[[3]]))) + } + tmp=Intersectline(q1,n,p2,q2-p2) + if(tmp[[3]]*(tmp[[3]]-1)<Eps){ + tmp1=(1-tmp[[3]])*p2+tmp[[3]]*q2 + pts=c(pts,list(list(tmp1,1,tmp[[3]]))) + } + tmp=Intersectline(p2,n,p1,q1-p1) + if(tmp[[3]]*(tmp[[3]]-1)<Eps){ + tmp1=(1-tmp[[3]])*p1+tmp[[3]]*q1 + pts=c(pts,list(list(tmp1,tmp[[3]],0))) + } + tmp=Intersectline(q2,n,p1,q1-p1) + if(tmp[[3]]*(tmp[[3]]-1)<Eps){ + tmp1=(1-tmp[[3]])*p1+tmp[[3]]*q1 + pts=c(pts,list(list(tmp1,tmp[[3]],2))) + } + if(length(pts)==0){ + tmp1=min(Norm(p2-p1),Norm(q2-p1),Norm(p2-q1),Norm(q2-q1)) + out=list(tmp1) + }else{ + if(dist>Eps1){ + out=list(dist) + }else{ + tmp=c(); + for(j in 1:length(pts)){ + tmp=Appendrow(tmp,Op(1,pts[[j]])) + } + tmp1=sum(tmp[,1])/(length(pts)) + tmp2=sum(tmp[,2])/(length(pts)) + tmp3=c(tmp1,tmp2) + tmp=Nearestpt(tmp3,seg1) + tmp1=tmp[[2]] + tmp=Nearestpt(tmp3,seg2) + tmp2=tmp[[2]] + out=list(dist,tmp3,tmp1,tmp2) + } + } + } + } + return(out) +} + +Osplineseg<- function(...){ + varargin=list(...) + Nargs=length(varargin) + Eps=10^(-2) + Eps0=10^(-6) + list=varargin[[1]] + Numstr="Num=20" + if(Nargs>1){ + Numstr=varargin[[2]] + } + p0=Op(1,list); p1=Op(2,list); p2=Op(3,list); p3=Op(4,list) + tmp=Norm(p2-p0)*Norm(p3-p1) + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/tmp)/2) + cc=4*Norm(p2-p1)/3/(Norm(p2-p0)+Norm(p3-p1))/tmp + pQ=p1+cc*(p2-p0) + pR=p2+cc*(p1-p3) + ctrL=list(c(pQ,pR)) + out=Bezier(list(p1,p2),ctrL,Numstr) + return(out) +} + +Intersectpartseg<- function(...){ + varargin=list(...) + Nargs=length(varargin) + crv1=varargin[[1]] + crv2=varargin[[2]] + ii=varargin[[3]] + jj=varargin[[4]] + Eps1=varargin[[5]] + Eps2=varargin[[6]] + Dist=10*Eps2 + if(Nargs>6){Dist=varargin[[7]]} + Eps=10^(-4) + out=list() + seg1=Listplot(Op(ii,crv1),Op(ii+1,crv1)) + seg2=Listplot(Op(jj,crv2),Op(jj+1,crv2)) + tmp1=Op(2,seg1)-Op(1,seg1) + tmp2=Op(2,seg2)-Op(1,seg2) + snang=abs(Crossprod(tmp1,tmp2))/(Norm(tmp1)*Norm(tmp2)) + tmp=Intersectseg(seg1,seg2,Eps1) + dst=Op(1,tmp) + if(dst<Eps){ + out=list(Op(2,tmp),ii+Op(3,tmp),jj+Op(4,tmp),dst,snang) + }else{ + if(dst<Eps2){ + if((Length(crv1)==2)||(Norm(Op(2,seg1)-Op(1,seg1))>Dist-Eps)){ + os1=seg1 + }else{ + p1=Op(1,seg1); p2=Op(2,seg1) + if(ii==1){ + p3=Op(3,crv1) + tmp=p2-p1 + tmp=(p1+p2)/2+c(Op(2,tmp),-Op(1,tmp)) + p0=Reflectdata(p3,c((p1+p2)/2,tmp)) + }else{ + if(ii==Length(crv1)-1){ + p0=Op(ii-1,crv1) + tmp=p2-p1 + tmp=(p1+p2)/2+c(Op(2,tmp),-Op(1,tmp)) + p3=Reflectdata(p0,c((p1+p2)/2,tmp)) + }else{ + p0=Op(ii-1,crv1); p3=Op(ii+2,crv1) + } + } + os1=Osplineseg(list(p0,p1,p2,p3)) + } + if((Length(crv2)==2)||(Norm(Op(2,seg2)-Op(1,seg2))>Dist-Eps)){ + os2=seg2 + }else{ + p1=Op(1,seg2); p2=Op(2,seg2) + if(jj==1){ + p3=Op(3,crv2) + tmp=p2-p1 + tmp=(p1+p2)/2+c(Op(2,tmp),-Op(1,tmp)) + p0=Reflectdata(p3,c((p1+p2)/2,tmp)) + }else{ + if(jj==Length(crv2)-1){ + p0=Op(jj-1,crv2) + tmp=p2-p1 + tmp=(p1+p2)/2+c(Op(2,tmp),-Op(1,tmp)) + p3=Reflectdata(p0,c((p1+p2)/2,tmp)) + }else{ + p0=Op(jj-1,crv2); p3=Op(jj+2,crv2) + } + } + os2=Osplineseg(list(p0,p1,p2,p3)) + } + tmp2=list() + for(kk in Looprange(1,Length(os1)-1)){ + for(II in Looprange(1,Length(os2)-1)){ + seg1=Listplot(Op(kk,os1),Op(kk+1,os1)) + seg2=Listplot(Op(II,os2),Op(II+1,os2)) + tmp=Intersectseg(seg1,seg2,Eps1) + if(Op(1,tmp)<Eps1){ + if(Op(1,tmp)<dst+Eps){ + dst=Op(1,tmp) + tmp3=list() + for( nn in Looprange(1,length(tmp2))){ + if(Op(1,tmp2[[nn]])<dst){ + tmp3=c(tmp3,list(tmp2[[n]])) + } + } + tmp2=c(tmp3,list(list(dst,Op(2,tmp)))) + } + } + } + } + if(length(tmp2)>0){ + tmp1=c() + for(nn in Looprange(1,length(tmp2))){ + tmp1=Appendrow(tmp1,Op(2,tmp2[[nn]])) + } + tmp=sum(tmp1[,1])/length(tmp2) + tmp=c(tmp,sum(tmp1[,2])/length(tmp2)) + out=list(tmp) + p1=Op(ii,crv1); p2=Op(ii+1,crv1) + tmp=c(Op(2,p2-p1),-Op(1,p2-p1)) + tmp=Intersectline(Op(1,out),tmp,p1,p2-p1) + tmp=min(max(Op(3,tmp),0),1) + out=list(tmp1,ii+tmp) + p1=Op(jj,crv2); p2=Op(jj+1,crv2) + tmp=c(Op(2,p2-p1),-Op(1,p2-p1)) + tmp=Intersectline(Op(1,out),tmp,p1,p2-p1) + tmp=min(max(Op(3,tmp),0),1) + out=c(out,list(jj+tmp,dst,snang)) + } + } + } + return(out) +} + +Collectnear<- function(ptdL,Eps2){ + Eps=10^(-4); + gL=list(Op(1,ptdL)) + rL=ptdL[2:(length(ptdL))] + flg=0 + for( ii in Looprange(1,length(ptdL)-1)){ + if(flg==0){ + numL=c() + for(jj in Looprange(1,length(rL))){ + tmp1=100 + for(kk in Looprange(1,length(gL))){ + tmp=Norm(Op(1,gL[[kk]])-Op(1,rL[[jj]])) + if(tmp<tmp1){tmp1=tmp} + } + if(tmp1<Eps2){numL=c(numL,jj)} + } + if(length(numL)==0){ + flg=1 + }else{ + gL=c(gL,rm[numL]) + tmp=setdiff(1:(length(rL)),numL) + rL=rL[tmp] + } + } + } + return(list(gL,rL)) +} + +IntersectcurvesPp<- function(...){ + varargin=list(...) + Nargs=length(varargin) + Eps=10^(-4) + Eps1=0.01 + Eps2=0.1 + Dist=10*Eps2 + if(Nargs>2){Eps1=varargin[[3]]} + if(Nargs>3){Eps2=varargin[[4]]} + if(Nargs>4){Dist=varargin[[5]]} + tmp1=varargin[[1]] + crv1=matrix(Op(1,tmp1),nrow=1) + for(ii in Looprange(2,Length(tmp1))){ + tmp=Op(Length(crv1),crv1) + if(Norm(tmp-Op(ii,tmp1))>Eps){ + crv1=Appendrow(crv1,Op(ii,tmp1)) + } + } + tmp2=varargin[[2]] + crv2=matrix(Op(1,tmp2),nrow=1) + for(ii in Looprange(2,Length(tmp2))){ + tmp=Op(Length(crv2),crv2) + if(Norm(tmp-Op(ii,tmp2))>Eps){ + crv2=Appendrow(crv2,Op(ii,tmp2)) + } + } + if(Length(crv1)!=Length(crv2)){ + self=0 + }else{ + self=1 + for(ii in Looprange(1,Length(crv1))){ + if(Norm(Op(ii,crv1)-Op(ii,crv2))>0){ + self=0 + break + } + } + } + out=list() + for(ii in Looprange(1,Length(crv1)-1)){ + if(self==0){ + loopL=Looprange(1,Length(crv2)-1) + }else{ + loopL=Looprange(ii+2,Length(crv2)-1) + } + for(jj in loopL){ + tmp=Intersectpartseg(crv1,crv2,ii,jj,Eps1,Eps2,Dist) + if(length(tmp)>0){ + if(length(out)==0){ + out=list(tmp) + }else{ + tmp1=Op(length(out),out) + if(Norm(Op(1,tmp1)-Op(1,tmp))>Eps1){ + out=c(out,list(tmp)) + } + } + if(self==1){ + tmp=list(Op(1,tmp),Op(3,tmp),Op(2,tmp),Op(4,tmp),Op(5,tmp)) + out=c(out,list(tmp)) + } + } + } + } + tmp2=out + out=list() + tmp1=tmp2 + flg=0 + for(ii in Looprange(1,length(tmp2))){ + if(flg==0){ + tmp=Collectnear(tmp1,Eps2) + out=c(out,list(Op(1,tmp))) + if(length(Op(2,tmp))==0){ + flg=1 + }else{ + tmp1=Op(2,tmp) + } + } + } + for(ii in Looprange(1,length(out))){ + tmp1=Op(ii,out) + if(length(tmp1)==1){ + out[[ii]]=Op(1,tmp1) + }else{ + tmp=c() + for(jj in Looprange(1,length(tmp1))){ + tmp=c(tmp,Op(4,tmp1[[jj]])) + } + dst=min(tmp) + tmp=list() + for(jj in Looprange(1,length(tmp1))){ + if(Op(4,tmp1[[jj]])<dst+Eps){ + tmp=c(tmp,list(tmp1[[jj]])) + } + } + tmp1=tmp + tmp=c() + for(jj in Looprange(1,length(tmp1))){ + tmp=c(tmp,Op(1,tmp1[[jj]])) + } + tmp=sum(tmp)/length(tmp1); + tmp2=list(tmp) + tmp=Nearestpt(Op(1,tmp2),crv1) + tmp2=c(tmp2,list(Op(2,tmp))) + tmp=Nearestpt(Op(1,tmp2),crv2) + tmp2=c(tmp2,list(Op(2,tmp))) + tmp2=c(tmp2,list(list(dst,Op(5,tmp1[[1]])))) + out[[ii]]=tmp2 + } + } + return(out) +} + +Intersectcurves<- function(...){ + tmp=IntersectcurvesPp(...) + out=list() + for(ii in Looprange(1,length(tmp))){ + out=c(out,list(Op(1,tmp[[ii]]))) + } + return(out) +} + +############## end of New Intersect ############# + +############## New Enclosing2 ############# + +Enclosing2<- function(...){ + varargin=list(...) + Nargs=length(varargin) + plist=varargin[[1]] + Eps=10^(-5) + Eps1=0.01 + Eps2=0.1 + Start=c() + flg=0 + for(ii in Looprange(2,Nargs)){ + tmp=varargin[[ii]] + if(length(tmp)>1){ +# Start=tmp + }else{ + if(flg==0){Eps1=tmp} + if(flg==1){Eps2=tmp} + flg=flg+1 + } + } + flg=0 + AnsL=c() + if(length(plist)==1){ + Fdata=plist[[1]] + tmp1=Op(1,Fdata) + tmp2=Op(Length(Fdata),Fdata) + if(Norm(tmp1-tmp2)<Eps){ + AnsL=Fdata + }else{ + AnsL=Appendrow(Fdata,tmp1) + } + flg=1 + } + if(flg==0){ + Fdata=Op(1,plist) + Gdata=Op(length(plist),plist) + KL=IntersectcurvesPp(Fdata,Gdata) + if(length(KL)==0){ + tmp1=Op(Length(Gdata),Gdata) + tmp2=Op(1,Fdata) + tmp=Listplot(tmp1,tmp2) + plist=c(plist,list(tmp)) + Start=tmp2 + tst=1 +# flg=1 + }else{ + if(length(KL)==1){ + tmp=Op(1,KL) + tst=Op(2,tmp) + Start=Pointoncrv(tst,Fdata) + } + if(length(KL)>1){ + KL=Quicksort(KL,2) + if(length(Start)==0){ + tmp=Op(1,KL) + tst=Op(2,tmp) + Start=Pointoncrv(tst,Fdata) + }else{ + tmp=c() + for(ii in Looprange(1,length(KL))){ + tmp=c(tmp,Norm(Op(1,KL[[ii]]-Start))) + } + tmp=min(tmp) + tmp1=list() + for(ii in Looprange(1,length(KL))){ + tmp2=Op(1,KL[[ii]]) + if(Norm(tmp2-Start)==tmp){ + tmp1=c(tmp1,list(tmp2)) + } + } + tmp=Op(1,tmp1) + tst=Op(2,tmp) + Start=Pointoncrv(tst,Fdata) + } + } + } + } + if(flg==0){ + t1=tst + for(nn in Looprange(1,length(plist))){ + Fdata=Op(nn,plist) + if(nn==length(plist)){ + nxtno=1 + }else{ + nxtno=nn+1 + } + Gdata=Op(nxtno,plist) + KL=IntersectcurvesPp(Fdata,Gdata) + if(length(KL)==0){ + tmp=matrix(Op(Length(Fdata),Fdata),nrow=1) #18.02.02from + Gdata=Appendrow(tmp,Gdata) + plist[[nxtno]]=Gdata + t2=Length(Fdata) + ss=1 #18.02.02upto + }else{ + tmp=Op(1,KL) + t2=Op(2,tmp) + ss=Op(3,tmp) + if(abs(t2-t1)<Eps){ + if(length(KL)>1){ + tmp=Op(2,KL) + t2=Op(2,tmp) + ss=Op(3,tmp) + }else{ +# println(text(nn)+" and "+text(nn+1)+" not intersect"); +# flg=1 + } + } + } + if(flg==0){ + tmp=Partcrv(t1,t2,Fdata) + if(nn==1){ + AnsL=tmp + }else{ + tmp=tmp[2:Length(tmp),] + AnsL=Appendrow(AnsL,tmp) + } + t1=ss + } + } + } + return(AnsL) +} + +############## end of Enclosing2 ############# diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r index f45c949d..37033948 100644 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r @@ -16,8 +16,10 @@ ######################################### -ThisVersion<- "2ev5_2_3(17.10.07)" +ThisVersion<- "2ev5_2_3(17.10.28)" +# 2017.10.28 +# Drwpt debugged ( Flattenlist ) # 2017.10.07 # @@ -255,6 +257,7 @@ Drwpt<-function(...) Mojisu=0 for (II in Looprange(1,All)){ MS<- varargin[[II]] + MS=Flattenlist(MS) #17.10.28 if (mode(MS)=="numeric"){ MS<- list(MS) } diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Addcounter.bin Binary files differdeleted file mode 100644 index c1e3ef24..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Addcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Anglemark.bin Binary files differdeleted file mode 100644 index 8b094651..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Anglemark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowdata.bin Binary files differdeleted file mode 100644 index 2af2be64..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowhead.bin Binary files differdeleted file mode 100644 index f4101b32..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowhead.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowheaddata.bin Binary files differdeleted file mode 100644 index 3640469b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowheaddata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowline.bin Binary files differdeleted file mode 100644 index 0d68e6d0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assign.bin Binary files differdeleted file mode 100644 index 3f243306..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assign.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignadd.bin Binary files differdeleted file mode 100644 index 99a0cecd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignadd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignrep.bin Binary files differdeleted file mode 100644 index 47ac2ac9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignrep.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignset.bin Binary files differdeleted file mode 100644 index afb1b3bc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignset.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Beginpicture.bin Binary files differdeleted file mode 100644 index 81625f07..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Beginpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezier.bin Binary files differdeleted file mode 100644 index 1e8b41fb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezier.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezierpt.bin Binary files differdeleted file mode 100644 index f146b511..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezierpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderHiddenData.bin Binary files differdeleted file mode 100644 index bb466f84..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderPt.bin Binary files differdeleted file mode 100644 index 80964b1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderparadata.bin Binary files differdeleted file mode 100644 index 94cfb714..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderpersdata.bin Binary files differdeleted file mode 100644 index bee787d9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderrawdata.bin Binary files differdeleted file mode 100644 index f53ad324..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderrawdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowdata.bin Binary files differdeleted file mode 100644 index 05a4fb2e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowmiddle.bin Binary files differdeleted file mode 100644 index bc02de52..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowmiddle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowname.bin Binary files differdeleted file mode 100644 index 77aa840f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bownamerot.bin Binary files differdeleted file mode 100644 index 49978903..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bownamerot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcHeight.bin Binary files differdeleted file mode 100644 index 5e3f28b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcHeight.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcWidth.bin Binary files differdeleted file mode 100644 index 426023be..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcWidth.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Calcfun.bin Binary files differdeleted file mode 100644 index 7745bccc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Calcfun.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameraCurve.bin Binary files differdeleted file mode 100644 index d037c656..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameraCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameracoordCurve.bin Binary files differdeleted file mode 100644 index 13e374db..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameracoordCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpara.bin Binary files differdeleted file mode 100644 index c16f84ba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpers.bin Binary files differdeleted file mode 100644 index 55b15ad7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Circledata.bin Binary files differdeleted file mode 100644 index 9a27e094..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Circledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Clipindomain.bin Binary files differdeleted file mode 100644 index 73ea5db3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Clipindomain.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closefile.bin Binary files differdeleted file mode 100644 index e7a00c3e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closefile.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closeobj.bin Binary files differdeleted file mode 100644 index f62af795..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closeobj.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepar.bin Binary files differdeleted file mode 100644 index f73458f1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepar.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closephr.bin Binary files differdeleted file mode 100644 index 5960bb73..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closephr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepicture.bin Binary files differdeleted file mode 100644 index 1c8fd062..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Connectseg.bin Binary files differdeleted file mode 100644 index 70566c55..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Connectseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crossprod.bin Binary files differdeleted file mode 100644 index ade04624..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crossprod.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin Binary files differdeleted file mode 100644 index 5c4f8404..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfparadata.bin Binary files differdeleted file mode 100644 index 7d645929..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfpersdata.bin Binary files differdeleted file mode 100644 index 7f994b75..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvonsfHiddenData.bin Binary files differdeleted file mode 100644 index d92d7a5a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvonsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfparadata.bin Binary files differdeleted file mode 100644 index 71b24de1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfpersdata.bin Binary files differdeleted file mode 100644 index 835d570f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvsfHiddenData.bin Binary files differdeleted file mode 100644 index 0ecbcb1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfparadata.bin Binary files differdeleted file mode 100644 index dba77269..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfpersdata.bin Binary files differdeleted file mode 100644 index b3a3f8e4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspData.bin Binary files differdeleted file mode 100644 index b2124b51..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspPt.bin Binary files differdeleted file mode 100644 index 08f82d89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspSplitPt.bin Binary files differdeleted file mode 100644 index 2fbf6adb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspSplitPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpara.bin Binary files differdeleted file mode 100644 index b09e4aeb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpers.bin Binary files differdeleted file mode 100644 index 609d057a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cutsf2d.bin Binary files differdeleted file mode 100644 index e6f70b1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cutsf2d.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dashline.bin Binary files differdeleted file mode 100644 index 8f7d28a1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dashline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dataindex.bin Binary files differdeleted file mode 100644 index e3bd11d0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dataindex.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Definecolor.bin Binary files differdeleted file mode 100644 index f0ff3ef8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Definecolor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Deqplot.bin Binary files differdeleted file mode 100644 index a3ba57b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Deqplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Derivative.bin Binary files differdeleted file mode 100644 index 8ab45716..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Derivative.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Diagcelldata.bin Binary files differdeleted file mode 100644 index 70d3663e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Diagcelldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividegraphics.bin Binary files differdeleted file mode 100644 index 03498fd7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividegraphics.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividetable.bin Binary files differdeleted file mode 100644 index abf752c8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividetable.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Doscaling.bin Binary files differdeleted file mode 100644 index 1a024a4d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Doscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotfilldata.bin Binary files differdeleted file mode 100644 index 589adeaf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotfilldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotprod.bin Binary files differdeleted file mode 100644 index 7a097bea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotprod.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dottedline.bin Binary files differdeleted file mode 100644 index d3962817..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dottedline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dropnumlistcrv.bin Binary files differdeleted file mode 100644 index 9ac44969..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dropnumlistcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Droppoint.bin Binary files differdeleted file mode 100644 index f4bff84e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Droppoint.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwline.bin Binary files differdeleted file mode 100644 index d4520393..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwpt.bin Binary files differdeleted file mode 100644 index 05c9df9c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwxy.bin Binary files differdeleted file mode 100644 index 54ce1e7c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwxy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Embed.bin Binary files differdeleted file mode 100644 index 5a081c10..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Embed.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Enclosing.bin Binary files differdeleted file mode 100644 index 17e55798..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Enclosing.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/EnclosingS.bin Binary files differdeleted file mode 100644 index 1a6860c5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/EnclosingS.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Endpicture.bin Binary files differdeleted file mode 100644 index 7fa6e7b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Endpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepara.bin Binary files differdeleted file mode 100644 index e4bb3e12..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepers.bin Binary files differdeleted file mode 100644 index a300752a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Execmd.bin Binary files differdeleted file mode 100644 index 3ed90ff9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Execmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Expr.bin Binary files differdeleted file mode 100644 index 3cae8493..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Expr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Exprrot.bin Binary files differdeleted file mode 100644 index e249a055..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Exprrot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Faceremovaldata.bin Binary files differdeleted file mode 100644 index f7f2e09b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Faceremovaldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Facesdata.bin Binary files differdeleted file mode 100644 index 003930bd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Facesdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Findcell.bin Binary files differdeleted file mode 100644 index 1cc63d81..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Findcell.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Flattenlist.bin Binary files differdeleted file mode 100644 index 47cd3aff..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Flattenlist.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fontsize.bin Binary files differdeleted file mode 100644 index d0ac6d1f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fontsize.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriercoeff.bin Binary files differdeleted file mode 100644 index 0c1ff22d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriercoeff.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/FouriercoeffL.bin Binary files differdeleted file mode 100644 index 0ada7614..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/FouriercoeffL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriersum.bin Binary files differdeleted file mode 100644 index 80d7fa1d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriersum.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fracform.bin Binary files differdeleted file mode 100644 index f17997ae..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fracform.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Framedata.bin Binary files differdeleted file mode 100644 index 4dfc5fba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Framedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fullformfunc.bin Binary files differdeleted file mode 100644 index a445388d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fullformfunc.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gaiseki.bin Binary files differdeleted file mode 100644 index 00cefe7b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gaiseki.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Getcounter.bin Binary files differdeleted file mode 100644 index 5efa1ba3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Getcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gettrace.bin Binary files differdeleted file mode 100644 index 31de11e2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gettrace.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hatchdata.bin Binary files differdeleted file mode 100644 index 8bc86748..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hatchdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hexahedrondata.bin Binary files differdeleted file mode 100644 index ebb9f45e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hexahedrondata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/HiddenWireData.bin Binary files differdeleted file mode 100644 index 0335b185..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/HiddenWireData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Htickmark.bin Binary files differdeleted file mode 100644 index 88ce57e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Htickmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ImplicitData.bin Binary files differdeleted file mode 100644 index f52ad0ee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ImplicitData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Implicitplot.bin Binary files differdeleted file mode 100644 index 5662575f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Implicitplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/InWindow.bin Binary files differdeleted file mode 100644 index 38306a20..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/InWindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Initangle.bin Binary files differdeleted file mode 100644 index 3c6ed6c5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Initangle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Integrate.bin Binary files differdeleted file mode 100644 index deb2de0d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Integrate.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvs.bin Binary files differdeleted file mode 100644 index 3a87071b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectcrvsPp.bin Binary files differdeleted file mode 100644 index de85e2a9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectcrvsPp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvsf.bin Binary files differdeleted file mode 100644 index 3a918b84..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvsf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectlines.bin Binary files differdeleted file mode 100644 index 5b1846e7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectlines.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectselfPp.bin Binary files differdeleted file mode 100644 index 2b895f4d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectselfPp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invdashline.bin Binary files differdeleted file mode 100644 index 76baa221..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invdashline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invert.bin Binary files differdeleted file mode 100644 index def0bb31..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invert.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invparapt.bin Binary files differdeleted file mode 100644 index 07c0c078..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invparapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invperspt.bin Binary files differdeleted file mode 100644 index 5dbdc7cb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invperspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joincrvs.bin Binary files differdeleted file mode 100644 index dafe1e24..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joincrvs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joingraphics.bin Binary files differdeleted file mode 100644 index 97caac64..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joingraphics.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ketinit.bin Binary files differdeleted file mode 100644 index 70e1971c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ketinit.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kouten.bin Binary files differdeleted file mode 100644 index 21dc66a1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kouten.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/KoutenList.bin Binary files differdeleted file mode 100644 index 9ccea2a3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/KoutenList.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Koutenseg.bin Binary files differdeleted file mode 100644 index d191d41a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Koutenseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukannozoku.bin Binary files differdeleted file mode 100644 index 313c934d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukannozoku.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukeiwake.bin Binary files differdeleted file mode 100644 index f705d5b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukeiwake.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyorihensuu.bin Binary files differdeleted file mode 100644 index 3940a613..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyorihensuu.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyoukai.bin Binary files differdeleted file mode 100644 index c9ce9f14..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyoukai.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letter.bin Binary files differdeleted file mode 100644 index bcaebbbd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letterrot.bin Binary files differdeleted file mode 100644 index 4bc6206a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letterrot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Lineplot.bin Binary files differdeleted file mode 100644 index 51fbfbe1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Lineplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Listplot.bin Binary files differdeleted file mode 100644 index 0fa577df..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Listplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeBowdata.bin Binary files differdeleted file mode 100644 index fb13efa4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeBowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeCurves.bin Binary files differdeleted file mode 100644 index 98ddd1a4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeCurves.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakecutbycrvL.bin Binary files differdeleted file mode 100644 index 6356eaed..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakecutbycrvL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makehasen.bin Binary files differdeleted file mode 100644 index 7f8de9cd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makehasen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeliststr.bin Binary files differdeleted file mode 100644 index 83ba3861..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeliststr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makesfcutoffdata.bin Binary files differdeleted file mode 100644 index 92534466..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makesfcutoffdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeshasen.bin Binary files differdeleted file mode 100644 index 2d013048..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeshasen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletondata.bin Binary files differdeleted file mode 100644 index 0bd11580..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletondata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletonpersdata.bin Binary files differdeleted file mode 100644 index 49a24e6c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletonpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makevaltable.bin Binary files differdeleted file mode 100644 index 67316bd1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makevaltable.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeveLfaceL.bin Binary files differdeleted file mode 100644 index 1658b408..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeveLfaceL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makexybdy.bin Binary files differdeleted file mode 100644 index 95c31670..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makexybdy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mawarikomi.bin Binary files differdeleted file mode 100644 index fcf74e3c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mawarikomi.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MeetWindow.bin Binary files differdeleted file mode 100644 index f5ced4c3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MeetWindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Meetpoints.bin Binary files differdeleted file mode 100644 index 6cd9f985..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Meetpoints.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Member.bin Binary files differdeleted file mode 100644 index c41eb72e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Member.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi.bin Binary files differdeleted file mode 100644 index ab493424..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi2.bin Binary files differdeleted file mode 100644 index 659d412f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mix.bin Binary files differdeleted file mode 100644 index f26a75b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mix.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixL.bin Binary files differdeleted file mode 100644 index 1a2a931f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixS.bin Binary files differdeleted file mode 100644 index 92c22101..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixS.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixadd.bin Binary files differdeleted file mode 100644 index 43809cb9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixadd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixdisp.bin Binary files differdeleted file mode 100644 index 4562fd87..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixdisp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixjoin.bin Binary files differdeleted file mode 100644 index 29800896..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixjoin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixlength.bin Binary files differdeleted file mode 100644 index dc725565..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixlength.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixmake.bin Binary files differdeleted file mode 100644 index e1ab36e0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixmake.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixop.bin Binary files differdeleted file mode 100644 index 74a5a6aa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixop.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixsub.bin Binary files differdeleted file mode 100644 index 332d7968..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixsub.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixtype.bin Binary files differdeleted file mode 100644 index b188ade7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixtype.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naigai.bin Binary files differdeleted file mode 100644 index 4c0a5b2d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naigai.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naiseki.bin Binary files differdeleted file mode 100644 index d7d9f480..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naiseki.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nearestpt.bin Binary files differdeleted file mode 100644 index bf51af8a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nearestpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Newlength.bin Binary files differdeleted file mode 100644 index 80a32401..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Newlength.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara.bin Binary files differdeleted file mode 100644 index b7f0d8cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara2.bin Binary files differdeleted file mode 100644 index 7bfcf7ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers.bin Binary files differdeleted file mode 100644 index 2bdabcc4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers2.bin Binary files differdeleted file mode 100644 index b692d55a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Numptcrv.bin Binary files differdeleted file mode 100644 index 57a2ce6f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Numptcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objcurve.bin Binary files differdeleted file mode 100644 index 845d40ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objcurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objjoin.bin Binary files differdeleted file mode 100644 index 92afe9ad..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objjoin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objname.bin Binary files differdeleted file mode 100644 index a14bcc2f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolygon.bin Binary files differdeleted file mode 100644 index da05430c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolygon.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolyhedron.bin Binary files differdeleted file mode 100644 index 18416f1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolyhedron.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objrecs.bin Binary files differdeleted file mode 100644 index bef4fb7d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objrecs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsurf.bin Binary files differdeleted file mode 100644 index 6bbe6d7d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsurf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsymb.bin Binary files differdeleted file mode 100644 index 8c215679..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsymb.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objthicksurf.bin Binary files differdeleted file mode 100644 index e66c254e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objthicksurf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Op.bin Binary files differdeleted file mode 100644 index fb3d3b45..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Op.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openfile.bin Binary files differdeleted file mode 100644 index e1625a76..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openfile.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openobj.bin Binary files differdeleted file mode 100644 index 2024ea60..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openobj.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpar.bin Binary files differdeleted file mode 100644 index c812540a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpar.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openphr.bin Binary files differdeleted file mode 100644 index 41d69ca5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openphr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpicture.bin Binary files differdeleted file mode 100644 index d285a0cc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovalbox.bin Binary files differdeleted file mode 100644 index 32bf34e8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovalbox.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovaldata.bin Binary files differdeleted file mode 100644 index d28e36ee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovaldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramark.bin Binary files differdeleted file mode 100644 index a7078f9c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ParamonCurve.bin Binary files differdeleted file mode 100644 index e4c31df3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ParamonCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramoncrv.bin Binary files differdeleted file mode 100644 index f532d7ee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramoncrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramplot.bin Binary files differdeleted file mode 100644 index ffebca84..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Parapt.bin Binary files differdeleted file mode 100644 index e7958ab9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Parapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv.bin Binary files differdeleted file mode 100644 index d54eb52f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv3.bin Binary files differdeleted file mode 100644 index 07321262..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv3.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partframe.bin Binary files differdeleted file mode 100644 index a13d3f5f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partframe.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PartitionPt.bin Binary files differdeleted file mode 100644 index 58cef916..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PartitionPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partitionseg.bin Binary files differdeleted file mode 100644 index 6f557a3b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partitionseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Perspt.bin Binary files differdeleted file mode 100644 index f95c613a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Perspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhFaceL.bin Binary files differdeleted file mode 100644 index 2d1eec35..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhFaceL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhHiddenData.bin Binary files differdeleted file mode 100644 index ac5490d9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhVertexL.bin Binary files differdeleted file mode 100644 index 814b8791..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhVertexL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutdata.bin Binary files differdeleted file mode 100644 index d700ec69..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutoffdata.bin Binary files differdeleted file mode 100644 index ccea3366..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutoffdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phidegree.bin Binary files differdeleted file mode 100644 index c3f667e3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phidegree.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phparadata.bin Binary files differdeleted file mode 100644 index 2e3c664b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phpersdata.bin Binary files differdeleted file mode 100644 index 1a2bbf95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawparadata.bin Binary files differdeleted file mode 100644 index 903c9029..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawpersdata.bin Binary files differdeleted file mode 100644 index 5e7b5ffb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsparadata.bin Binary files differdeleted file mode 100644 index da8b1196..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phspersdata.bin Binary files differdeleted file mode 100644 index 6ac27dcb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phspersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawparadata.bin Binary files differdeleted file mode 100644 index a3da7dd1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawpersdata.bin Binary files differdeleted file mode 100644 index 8843cde4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Plotdata.bin Binary files differdeleted file mode 100644 index c0547852..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Plotdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointdata.bin Binary files differdeleted file mode 100644 index 8c11c2c2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PointonCurve.bin Binary files differdeleted file mode 100644 index e6055b42..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PointonCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointoncrv.bin Binary files differdeleted file mode 100644 index cf693dd1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointoncrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Powersum.bin Binary files differdeleted file mode 100644 index 1dce322f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Powersum.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Prime.bin Binary files differdeleted file mode 100644 index e7094eb4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Prime.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Printobjstr.bin Binary files differdeleted file mode 100644 index 3a62be73..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Printobjstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjCurve.bin Binary files differdeleted file mode 100644 index 2ca583e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjcoordCurve.bin Binary files differdeleted file mode 100644 index 5de23ccd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjcoordCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpara.bin Binary files differdeleted file mode 100644 index bda03ab0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpers.bin Binary files differdeleted file mode 100644 index fbf6d134..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptcrv.bin Binary files differdeleted file mode 100644 index 13f43f67..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptend.bin Binary files differdeleted file mode 100644 index 10ac2f07..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptend.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PthiddenQ.bin Binary files differdeleted file mode 100644 index cf36ca4e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PthiddenQ.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptne.bin Binary files differdeleted file mode 100644 index 4f608b89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptne.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptnw.bin Binary files differdeleted file mode 100644 index 727cf4d5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptnw.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptse.bin Binary files differdeleted file mode 100644 index f09e463c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptse.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptstart.bin Binary files differdeleted file mode 100644 index c1303557..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptstart.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptsw.bin Binary files differdeleted file mode 100644 index 1003cd61..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptsw.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcell.bin Binary files differdeleted file mode 100644 index be3a6f13..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcell.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcirmark.bin Binary files differdeleted file mode 100644 index d154a0a0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcirmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoL.bin Binary files differdeleted file mode 100644 index 77a99874..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLexpr.bin Binary files differdeleted file mode 100644 index 01e1b69c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLexpr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLstr.bin Binary files differdeleted file mode 100644 index a4872a7f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putdashmark.bin Binary files differdeleted file mode 100644 index 1e679bfc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putdashmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrecmark.bin Binary files differdeleted file mode 100644 index 5df6db75..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrecmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrow.bin Binary files differdeleted file mode 100644 index 042a7261..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowexpr.bin Binary files differdeleted file mode 100644 index df1a3849..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowexpr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowstr.bin Binary files differdeleted file mode 100644 index da18fb37..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Puttrace.bin Binary files differdeleted file mode 100644 index 10769324..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Puttrace.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ratiocmyk.bin Binary files differdeleted file mode 100644 index 56a87566..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ratiocmyk.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadOutData.bin Binary files differdeleted file mode 100644 index 0acb33cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadOutData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadfromCindy.bin Binary files differdeleted file mode 100644 index 8d4a1b0e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadfromCindy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Readtextdata.bin Binary files differdeleted file mode 100644 index f51f7599..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Readtextdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Reflectdata.bin Binary files differdeleted file mode 100644 index 02bd0619..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Reflectdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rmmember.bin Binary files differdeleted file mode 100644 index 1036fe46..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rmmember.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3data.bin Binary files differdeleted file mode 100644 index 6cfc7b1c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3pt.bin Binary files differdeleted file mode 100644 index 7bc8974d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3pt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotatedata.bin Binary files differdeleted file mode 100644 index dcde7e7d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotatedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Roundstr.bin Binary files differdeleted file mode 100644 index c9678719..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Roundstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Scaledata.bin Binary files differdeleted file mode 100644 index aca40719..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Scaledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sectionview.bin Binary files differdeleted file mode 100644 index bfdb8495..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sectionview.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setangle.bin Binary files differdeleted file mode 100644 index 997e8178..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setangle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setarrow.bin Binary files differdeleted file mode 100644 index 1d2063bf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setarrow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setax.bin Binary files differdeleted file mode 100644 index 46e49d69..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcolor.bin Binary files differdeleted file mode 100644 index ae62bffa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcolor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcounter.bin Binary files differdeleted file mode 100644 index 3a609bc9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmark.bin Binary files differdeleted file mode 100644 index be2cbbb6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmarklen.bin Binary files differdeleted file mode 100644 index 79ae6660..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmarklen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjdecimals.bin Binary files differdeleted file mode 100644 index 3fe068d8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjdecimals.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjscale.bin Binary files differdeleted file mode 100644 index adc5ef97..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjscale.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setorigin.bin Binary files differdeleted file mode 100644 index ed695e7f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setorigin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpen.bin Binary files differdeleted file mode 100644 index 918c968e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpers.bin Binary files differdeleted file mode 100644 index e417c91f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpt.bin Binary files differdeleted file mode 100644 index f9fb21b4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setscaling.bin Binary files differdeleted file mode 100644 index faf60668..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoL.bin Binary files differdeleted file mode 100644 index c0d4e9e7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoR.bin Binary files differdeleted file mode 100644 index 44dc173e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoR.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setunitlen.bin Binary files differdeleted file mode 100644 index 6ef24cf2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setunitlen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setversion.bin Binary files differdeleted file mode 100644 index 9658e1ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setversion.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setwindow.bin Binary files differdeleted file mode 100644 index fc39c4e1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setwindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sf3data.bin Binary files differdeleted file mode 100644 index bed3747e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sf3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdparadata.bin Binary files differdeleted file mode 100644 index bd7b7168..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdpersdata.bin Binary files differdeleted file mode 100644 index 86ba2a9e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawparadata.bin Binary files differdeleted file mode 100644 index c4009953..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawpersdata.bin Binary files differdeleted file mode 100644 index 278af331..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutdata.bin Binary files differdeleted file mode 100644 index 5aa6fd04..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffparadata.bin Binary files differdeleted file mode 100644 index b22043d8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffpersdata.bin Binary files differdeleted file mode 100644 index 64f416d6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin Binary files differdeleted file mode 100644 index cd356699..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin Binary files differdeleted file mode 100644 index 295812ba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfparadata.bin Binary files differdeleted file mode 100644 index c98b95ed..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfpersdata.bin Binary files differdeleted file mode 100644 index 5a780fab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Shade.bin Binary files differdeleted file mode 100644 index 037fffea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Shade.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeleton2data.bin Binary files differdeleted file mode 100644 index b3d2d402..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeleton2data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpara3data.bin Binary files differdeleted file mode 100644 index 5895e254..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpara3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonparadata.bin Binary files differdeleted file mode 100644 index c34f7e16..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpers3data.bin Binary files differdeleted file mode 100644 index 4ba4947b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpers3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpersdata.bin Binary files differdeleted file mode 100644 index 9c83ea64..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spacecurve.bin Binary files differdeleted file mode 100644 index 0e8bacaf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spacecurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spaceline.bin Binary files differdeleted file mode 100644 index b097e980..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spaceline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Splinedata.bin Binary files differdeleted file mode 100644 index 7a3c634c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Splinedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Strop.bin Binary files differdeleted file mode 100644 index ca70656e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Strop.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Subs.bin Binary files differdeleted file mode 100644 index 66f8e6c0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Subs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sumfun.bin Binary files differdeleted file mode 100644 index a2bafc2c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sumfun.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symb3data.bin Binary files differdeleted file mode 100644 index 131297e0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symb3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symbdata.bin Binary files differdeleted file mode 100644 index a1a27f00..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symbdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tabledata.bin Binary files differdeleted file mode 100644 index ab4bb5ed..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tabledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texcom.bin Binary files differdeleted file mode 100644 index 74871299..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texcom.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texctr.bin Binary files differdeleted file mode 100644 index e0e2dab3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texelse.bin Binary files differdeleted file mode 100644 index 4e974456..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texelse.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texend.bin Binary files differdeleted file mode 100644 index d22ea31d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texend.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendfor.bin Binary files differdeleted file mode 100644 index 0d86b601..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendfor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendif.bin Binary files differdeleted file mode 100644 index 46fd7b7e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendif.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texfor.bin Binary files differdeleted file mode 100644 index f5e92c99..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texfor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texforinit.bin Binary files differdeleted file mode 100644 index a8140128..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texforinit.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texif.bin Binary files differdeleted file mode 100644 index be4c9157..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texif.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texletter.bin Binary files differdeleted file mode 100644 index 99ef9902..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texletter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewcmd.bin Binary files differdeleted file mode 100644 index 0904029d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewcmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewctr.bin Binary files differdeleted file mode 100644 index 7d332cfd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texrenewcmd.bin Binary files differdeleted file mode 100644 index 1abdf882..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texrenewcmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texsetctr.bin Binary files differdeleted file mode 100644 index ccfce689..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texsetctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texthectr.bin Binary files differdeleted file mode 100644 index f2e50561..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texthectr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvalctr.bin Binary files differdeleted file mode 100644 index a224f885..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvalctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvctr.bin Binary files differdeleted file mode 100644 index 2fee3584..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Thetadegree.bin Binary files differdeleted file mode 100644 index 5f360f2f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Thetadegree.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ThisVersion.bin Binary files differdeleted file mode 100644 index 5aa530ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ThisVersion.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tolist.bin Binary files differdeleted file mode 100644 index 5e76126d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tolist.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translate3data.bin Binary files differdeleted file mode 100644 index 3fd4aeda..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translate3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translatedata.bin Binary files differdeleted file mode 100644 index 3262007d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translatedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Trunc.bin Binary files differdeleted file mode 100644 index a05f649a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Trunc.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Unscaling.bin Binary files differdeleted file mode 100644 index 1bd27535..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Unscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa.bin Binary files differdeleted file mode 100644 index 1668581e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa2.bin Binary files differdeleted file mode 100644 index 3acff07e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Viewfrom.bin Binary files differdeleted file mode 100644 index 06515c27..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Viewfrom.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vtickmark.bin Binary files differdeleted file mode 100644 index e0c9fdf2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vtickmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Windisp.bin Binary files differdeleted file mode 100644 index 487a5881..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Windisp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WireHiddenData.bin Binary files differdeleted file mode 100644 index 15d7c7ea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WireHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WirePt.bin Binary files differdeleted file mode 100644 index 8356c7d3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WirePt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wireparadata.bin Binary files differdeleted file mode 100644 index 8a956544..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wireparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirepersdata.bin Binary files differdeleted file mode 100644 index 06813c26..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirepersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawparadata.bin Binary files differdeleted file mode 100644 index 53ef48f2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawpersdata.bin Binary files differdeleted file mode 100644 index a4463d6f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WriteOutData.bin Binary files differdeleted file mode 100644 index 35bbb30a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WriteOutData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writeobjpoint.bin Binary files differdeleted file mode 100644 index 1c115eb9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writeobjpoint.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writetextdata.bin Binary files differdeleted file mode 100644 index 90e83be0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writetextdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WritetoCindy.bin Binary files differdeleted file mode 100644 index 3cc76a71..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WritetoCindy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmax.bin Binary files differdeleted file mode 100644 index 51ccdf48..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmin.bin Binary files differdeleted file mode 100644 index bba8a4ee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzax3data.bin Binary files differdeleted file mode 100644 index 3a5e517b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzax3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxparaname.bin Binary files differdeleted file mode 100644 index d89801c7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxparaname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxpersname.bin Binary files differdeleted file mode 100644 index f89ae3a7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxpersname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymax.bin Binary files differdeleted file mode 100644 index cc5aea83..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymin.bin Binary files differdeleted file mode 100644 index e454fb5a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zparapt.bin Binary files differdeleted file mode 100644 index 1749fad9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zparapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zperspt.bin Binary files differdeleted file mode 100644 index 8613eba7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zperspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/names b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/names deleted file mode 100644 index 02079ff8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/names +++ /dev/null @@ -1,341 +0,0 @@ -Addcounter -Anglemark -Arrowdata -Arrowhead -Arrowheaddata -Arrowline -Assign -Assignadd -Assignrep -Assignset -Beginpicture -Bezierpt -Bezier -BorderHiddenData -Borderparadata -Borderpersdata -BorderPt -Borderrawdata -Bowdata -Bowmiddle -Bowname -Bownamerot -Calcfun -CalcHeight -CalcWidth -CameracoordCurve -CameraCurve -Cancoordpara -Cancoordpers -Circledata -Clipindomain -Closefile -Closepar -Closephr -Closepicture -Closeobj -Connectseg -Crossprod -Crv3onsfHiddenData -Crv3onsfparadata -Crv3onsfpersdata -CrvonsfHiddenData -Crvonsfparadata -Crvonsfpersdata -CrvsfHiddenData -Crvsfparadata -Crvsfpersdata -CuspData -CuspPt -Cuspsplitpara -Cuspsplitpers -CuspSplitPt -Cutsf2d -Dashline -Dataindex -Definecolor -Deqplot -Derivative -Diagcelldata -Dividegraphics -Dividetable -Doscaling -Dotfilldata -Dotprod -Dottedline -Dropnumlistcrv -Droppoint -Drwline -Drwpt -Drwxy -Embed -Enclosing -EnclosingS -Endpicture -Evlptablepara -Evlptablepers -Execmd -Expr -Exprrot -Faceremovaldata -Facesdata -Findcell -Flattenlist -Fontsize -Fouriercoeff -FouriercoeffL -Fouriersum -Fracform -Framedata -Fullformfunc -Gaiseki -Getcounter -Gettrace -Hatchdata -Hexahedrondata -HiddenWireData -Htickmark -Implicitplot -ImplicitData -Initangle -Integrate -Intersectcrvs -Intersectcrvsf -IntersectcrvsPp -Intersectlines -IntersectselfPp -Invdashline -Invert -Invparapt -Invperspt -InWindow -Joincrvs -Joingraphics -Ketinit -Kouten -KoutenList -Koutenseg -Kukannozoku -Kukeiwake -Kyorihensuu -Kyoukai -Letter -Letterrot -Lineplot -Listplot -MakeBowdata -MakecutbycrvL -MakeCurves -Makehasen -Makeliststr -Makesfcutoffdata -Makeshasen -Makeskeletondata -Makeskeletonpersdata -Makevaltable -MakeveLfaceL -Makexybdy -Mawarikomi -Meetpoints -MeetWindow -Member -Menkakusi -Menkakusi2 -Mix -Mixadd -Mixdisp -Mixjoin -MixL -Mixlength -Mixmake -Mixop -MixS -Mixsub -Mixtype -Naigai -Naiseki -Nearestpt -Newlength -Nohiddenpara -Nohiddenpara2 -Nohiddenpers -Nohiddenpers2 -Numptcrv -Objjoin -Objname -Objcurve -Objpolyhedron -Objpolygon -Objrecs -Objsurf -Objsymb -Objthicksurf -Openobj -Op -Openfile -Openpar -Openphr -Openpicture -Ovalbox -Ovaldata -Paramark -Paramoncrv -ParamonCurve -Paramplot -Parapt -Partcrv -Partcrv3 -Partframe -PartitionPt -Partitionseg -Perspt -Phcutdata -Phcutoffdata -Phidegree -PhFaceL -PhHiddenData -Phparadata -Phpersdata -Phsparadata -Phspersdata -Phrawparadata -Phrawpersdata -Phsrawparadata -Phsrawpersdata -PhVertexL -Plotdata -Pointdata -Pointoncrv -PointonCurve -Powersum -Prime -Printobjstr -ProjcoordCurve -ProjCurve -Projpara -Projpers -Ptcrv -Ptend -PthiddenQ -Ptne -Ptnw -Ptse -Ptstart -Ptsw -Putcell -Putcirmark -PutcoL -PutcoLexpr -PutcoLstr -Putdashmark -Putrecmark -Putrow -Putrowexpr -Putrowstr -Puttrace -Ratiocmyk -ReadfromCindy -ReadOutData -Readtextdata -Reflectdata -Rmmember -Rotate3data -Rotate3pt -Rotatedata -Roundstr -Scaledata -Sectionview -Setangle -Setarrow -Setax -Setcolor -Setcounter -Setmark -Setmarklen -Setobjdecimals -Setobjscale -Setorigin -Setpen -Setpers -Setpt -Setscaling -SetstereoL -SetstereoR -Setunitlen -Setversion -Setwindow -Sf3data -Sfbdparadata -Sfbdpersdata -Sfbdrawparadata -Sfbdrawpersdata -Sfcutdata -Sfcutoffparadata -Sfcutoffpersdata -Sfcutoffrawparadata -Sfcutoffrawpersdata -Sfparadata -Sfpersdata -Shade -Skeleton2data -Skeletonparadata -Skeletonpara3data -Skeletonpersdata -Skeletonpers3data -Spacecurve -Spaceline -Splinedata -Strop -Subs -Sumfun -Symbdata -Symb3data -Tabledata -Texcom -Texctr -Texelse -Texend -Texendfor -Texendif -Texfor -Texforinit -Texif -Texletter -Texnewcmd -Texnewctr -Texrenewcmd -Texsetctr -Texthectr -Texvalctr -Texvctr -Thetadegree -ThisVersion -Tolist -Translate3data -Translatedata -Trunc -Unscaling -Vecnagasa -Vecnagasa2 -Viewfrom -Vtickmark -Windisp -WireHiddenData -Wireparadata -Wirepersdata -WirePt -Wirerawparadata -Wirerawpersdata -WriteOutData -Writetextdata -WritetoCindy -Writeobjpoint -Xmax -Xmin -Xyzaxparaname -Xyzaxpersname -Xyzax3data -Ymax -Ymin -Zparapt -Zperspt diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory deleted file mode 100644 index 9a32ff18..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory +++ /dev/null @@ -1 +0,0 @@ -source("/Users/takatoosetsuo/Dropbox/sciF/ketpicscifiles/Setversion.sci") diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.bin Binary files differdeleted file mode 100644 index d21df4c3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci deleted file mode 100644 index c940a543..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 09.09.10 - -function Addcounter(varargin) - global GCOUNTER; - if Nargs==0 - N=1; - else - N=varargin(1); - GCOUNTER=GCOUNTER+N; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin Binary files differdeleted file mode 100644 index 4a709337..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci deleted file mode 100644 index 6deb302c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci +++ /dev/null @@ -1,33 +0,0 @@ -// 08.06.05 -// 16.12.29 ( for too short segment ) - -function Out=Anglemark(varargin) - Nargs=length(varargin); - Eps=10^(-3); - PA=varargin(1); PB=varargin(2); PC=varargin(3); - r = 0.5; - if Nargs>=4 - r = varargin(4)*r; - end - Out=[]; // 16.12.29 - if r>min(norm(PA-PB),norm(PC-PB)) then - return; - end; - Cir=Circledata(PB,r); - Tmp=IntersectcrvsPp(Cir,Listplot(PA,PB)); - P1=Op(2,Op(1,Tmp)); - Tmp=IntersectcrvsPp(Cir,Listplot(PC,PB)); - P2=Op(2,Mixop(1,Tmp)); - if abs(P1-P2)<Eps - Out=[]; - return; - end - if P1<P2-Eps - Out=Partcrv(P1,P2,Cir); - else - Tmp=Numptcrv(Cir); - Tmp1=Partcrv(P1,Tmp,Cir); - Tmp2=Partcrv(1,P2,Cir); - Out=Joincrvs(Tmp1,Tmp2); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.bin Binary files differdeleted file mode 100644 index 4dcd94f2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci deleted file mode 100644 index f6ac6ef2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci +++ /dev/null @@ -1,58 +0,0 @@ -// 08.05.08 - -function Out=Arrowdata(varargin) - global YaSize YaAngle YaPosition YaThick YaStyle; - Nargs=length(varargin); - P=varargin(1); - Q=varargin(2); - R=Q; - Futosa=YaThick; - Ookisa=YaSize; - Thickness=1; - Hiraki=YaAngle; - Yapos=YaPosition; - Position=1; - Str=YaStyle; - Flg=0; - for I=3:Nargs - Tmp=varargin(I); - if type(Tmp)==1 - if length(Tmp)>1 - R=Tmp - else - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki; - else - Hiraki=Tmp; - end - end - if Flg==2 - R=P+Tmp*(Q-P); - else - R=P+Yapos*(Q-P); - end - if Flg==3 - Futosa=Tmp - end - Flg=Flg+1; - end - end - if type(Tmp)==10 - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - Futosa=Futosa*Thickness; - R=P+Position*(Q-P); - else - Str=Tmp - end - end - end - Tmp1=Listplot([P,Q]); - Tmp2=Arrowheaddata(R,Q-P,Ookisa,Hiraki,Futosa,Str); - Out=Joingraphics(Tmp1,Tmp2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.bin Binary files differdeleted file mode 100644 index 7c3ca7ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci deleted file mode 100644 index 9073ca6e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci +++ /dev/null @@ -1,107 +0,0 @@ -// -// 08.06.01 -// 09.12.25 -// 12.01.07 kirikomi(Cut) -// 12.04.16 debugged -// 13.05.17 debugged -// 13.11.13 debugged -// 15.06.11 debugged -// 15.06.14 debugged -// 15.06.15 improved - -function Arrowhead(varargin) - global Wfile FID MilliIn YaSize - global YaAngle YaPosition YaThick YaStyle; - Nargs=length(varargin); - P=varargin(1); - Houkou=varargin(2); - Ookisa=0.2*YaSize; - Hiraki=YaAngle; - Futosa=0.5*YaThick; - Cut=0; - Str=YaStyle; - Flg=0; - for I=3:Nargs - Tmp=varargin(I); - if type(Tmp)==10 - Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from - if length(Equal)>0 - Tmp2=strsplit(Tmp,Equal-1); - if Tmp2(1)=="Cut" | Tmp2(1)=="cut" - Tmp="Cut"+Tmp2(2); - execstr(Tmp); - end; - else - Str=Tmp; - end; // 12.01.07 upto - end; - if type(Tmp)==1 & length(Tmp)==1 - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki - else - Hiraki=Tmp - end - end - if Flg==2 - Futosa=Tmp - end - Flg=Flg+1; - end - end; - Ookisa=1000/2.54/MilliIn*Ookisa; - Theta=Hiraki*%pi/180; - if size(Houkou,1)>1 - P=Doscaling(P); - Houkou=Doscaling(Houkou); - Tmp=Nearestpt(P,Houkou); - A=Op(1,Tmp); - I=floor(Op(2,Tmp)); - G=Circledata(P,Ookisa*cos(Theta),'N=10'); - Flg=0; // 13.11.13 - for J=I:-1:1 - B=Ptcrv(J,Houkou); - Tmp=IntersectcrvsPp(Listplot([A,B]),G); - if Mixlength(Tmp)>0 - Flg=1; - break - end - A=B - end - if Flg==0 // 13.11.13 - disp('Arrowhead may be too large (no intersect)'); - return - end - Houkou=P-Op(1,Op(1,Tmp)); - Houkou=Unscaling(Houkou); - P=Unscaling(P); - end; - P=Doscaling(P); - Houkou=Doscaling(Houkou); - Ev=-1/Vecnagasa(Houkou)*Houkou; - Nv=[-Ev(2),Ev(1)]; - if mtlb_findstr(Str,'c')~=[] - P=P-0.5*Ookisa*cos(Theta)*Ev - end; - if mtlb_findstr(Str,'b')~=[] - P=P-Ookisa*cos(Theta)*Ev - end; - A=P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv; - B=P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv; - if mtlb_findstr(Str,'l')~=[] - Tmp=Listplot([A,P,B]); - Tmp1=Unscaling(Tmp); // 13.05.17 - Drwline(Tmp1,Futosa); - else - C=P+(1-Cut)*((A+B)/2-P); // 12.01.05 - Tmp=Listplot([A,P,B,C,A]); // 12.01.05 - Tmp1=Unscaling(Tmp); - Shade(Tmp1); - Tmp=Listplot([A,P,B,C,A,P]); // 15.6.20 - Tmp1=Unscaling(Tmp); - Drwline(Tmp1,0.1); // 15.06.11, 15.06.14 - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin Binary files differdeleted file mode 100644 index 56e18c45..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci deleted file mode 100644 index 68dfe27c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci +++ /dev/null @@ -1,89 +0,0 @@ -// 08.05.31 -// 09.12.25 -// 13.11.13 debugged -// 14.11.02 debugged - -function Out=Arrowheaddata(varargin) - global YaSize YaAngle YaPosition YaThick YaStyle; - Eps=10^(-3); - Nargs=length(varargin); - Out=[]; - P=varargin(1); - Houkou=varargin(2); - Ookisa=0.2*YaSize; - Hiraki=YaAngle; - Futosa=0; - Thickness=1; - Str=YaStyle; - Flg=0; - for I=3:Nargs - Tmp=varargin(I); - if type(Tmp)==10 - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - Futosa=Thickness; - else - Str=Tmp; - end - end - if type(Tmp)==1 & length(Tmp)==1 - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki; - else - Hiraki=Tmp; - end - end - Flg=Flg+1; - end - end - Theta=Hiraki*%pi/180; - if size(Houkou,1)>1 - P=Doscaling(P); - Houkou=Doscaling(Houkou); - Tmp=Nearestpt(P,Houkou); - A=Op(1,Tmp); - I=floor(Op(2,Tmp)); - if I==1 // 14.11.02 - if norm(Ptend(Houkou)-Ptstart(Houkou))<Eps - l=Numptcrv(Houkou); - end; - end; - G=Circledata(P,Ookisa*cos(Theta),'N=10'); - Flg=0; // 13.11.13 - for J=I:-1:1 - B=Ptcrv(J,Houkou); - Tmp=IntersectcrvsPp(Listplot([A,B]),G); - if Mixlength(Tmp)>0 - Flg=1; - break - end - A=B - end - if Flg==0 // 13.11.13 - disp('Arrowhead may be too large (no intersect)'); - return - end - Houkou=P-Op(1,Op(1,Tmp)); - Houkou=Unscaling(Houkou); - P=Unscaling(P); - end - P=Doscaling(P); - Houkou=Doscaling(Houkou); - E=-1/Vecnagasa(Houkou)*Houkou; - N=[-E(2),E(1)]; - if mtlb_findstr(Str,'c')~=[] - P=P-0.5*Ookisa*cos(Theta)*E; - end - if mtlb_findstr(Str,'b')~=[] - P=P-Ookisa*cos(Theta)*E - end - A=P+Ookisa*cos(Theta)*E+Ookisa*sin(Theta)*N; - B=P+Ookisa*cos(Theta)*E-Ookisa*sin(Theta)*N; - Out=Listplot([A,P,B]); - Out=Unscaling(Out); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.bin Binary files differdeleted file mode 100644 index 45527ddc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci deleted file mode 100644 index 881662b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci +++ /dev/null @@ -1,57 +0,0 @@ -// -// 12.01.07 kirikomi(Cut) -// 12.08.26 debugged -// 15.06.11 debugged -// 15.10.24 debugged - -function Arrowline(varargin) - global YaSize YaAngle YaPosition YaThick YaStyle Kirikomi; - Nargs=length(varargin) - P=varargin(1); - Q=varargin(2); - Futosa=YaThick; - Ookisa=YaSize; - Hiraki=YaAngle; - Yapos=YaPosition; - Cutstr="Cut=0"; - Str=YaStyle; - Flg=0; - for I=3:Nargs - Tmp=varargin(I); - if type(Tmp)==10 - Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from - if length(Equal)>0 - Tmp2=strsplit(Tmp,Equal-1); - if (Tmp2(1)=="Cut") | (Tmp2(1)=="cut") - Tmp="Cut"+Tmp2(2); - Cutstr=Tmp; - end - else - Str=Tmp; // 12.01.07 upto (debugged on 12.08.26) - end; - end; - if (type(Tmp)==1) & (length(Tmp)==1) - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki; - else - Hiraki=Tmp; - end - end - if Flg==2 - Yapos=Tmp; - end - if Flg==3 - Futosa=Tmp; - end - Flg=Flg+1; - end - end - R=P+Yapos*(Q-P); - Tmp=Q-Unscaling(0.2*Ookisa/2*(Q-P)/norm(Q-P)); // 15.10.24 - Drwline(Listplot([P,Tmp]),Futosa); - Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str); // 12.01.07 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin Binary files differdeleted file mode 100644 index b6f33643..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci deleted file mode 100644 index 8d9201cc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci +++ /dev/null @@ -1,202 +0,0 @@ -// 08.09.26 -// 09.09.21 -// 09.09.26 -// 09.10.01 -// 09.10.03 -// 09.10.05 -// 09.10.08 -// 09.10.09 ( format=20) -// 09.10.15 ( added Assign('') : reset -// 09.10.17 ( Matrix added, ? -> number returned) -// 09.10.21 ( list supported with Makeliststr ) -// 14.10.04 format=12 -// 14.12.11 only replaced when variable name -// 14.12.28 debugged ( tmp2, ` ) -// 15.02.18 debugged ( for list of string ) -// 15.02.19 debugged -// 15.04.18 debugged - -function Out=Assign(varargin) - global ASSIGNLIST; - Curfmt=format(); - format(12); // 14.10.04 - Nargs=length(varargin); - if Nargs==0 - ASSIGNLIST=list('`',Prime()); - Out=ASSIGNLIST; - format(Curfmt(2)); - return; - end; - L=list('`',char(39)); - NL=length(L); - if modulo(Nargs,2)==0 - for I=1:Nargs - L(I+NL)=varargin(I); - end; - ASSIGNLIST=L; - Out=L; - format(Curfmt(2)); - return; - end; - if Nargs==1 - Fnstr=varargin(1); - if Fnstr=='' - L=ASSIGNLIST; - Out=[]; - for I=1:2:length(L) - Tmp1=L(I); - Tmp2=L(I+1); - if length(Tmp2)==1 - Tmp3=string(Tmp2); - else - Tmp3='['; - for J=1:length(Tmp2) - Tmp3=Tmp3+string(Tmp2(J)); - if J<length(Tmp2) - Tmp3=Tmp3+','; - end; - end; - Tmp3=Tmp3+']'; - end; - Out=[Out,Tmp1+'='+Tmp3]; - end; - format(Curfmt(2)); - return; - end; - if part(Fnstr,1)=='?' - Tmp=strsplit(Fnstr,1); - Fnstr=Tmp(2); - for I=1:2:length(ASSIGNLIST) - Tmp=ASSIGNLIST(I); - if Tmp==Fnstr - Out=Mixjoin(I,ASSIGNLIST(I+1)); - format(Curfmt(2)); - return; - end; - end; - Out='Not found'; - format(Curfmt(2)); - return; - end; // - L=ASSIGNLIST; - else - if type(varargin(2))==1 - Fnstr=varargin(Nargs); - for I=1:Nargs-1 - L(I)=varargin(I); - end; - else - Fnstr=varargin(1); - for I=2:Nargs - L(I-1)=varargin(I); - end; - end; - end; - Tmp3=Fnstr; // 15.04.18 - for I=1:2:length(L) - Vname=L(I); - Val=L(I+1); - if Vname=="`" // 14.12.28 - Tmp3=strsubst(Tmp3,Vname,Val); - continue - end; - if type(Val)==1 - if size(Val,1)==1 & size(Val,2)>1 // 15.04.18 - for K=1:length(Val) - Tmp=Vname+'('+string(K)+')'; - if mtlb_findstr(Tmp3,Tmp)~=[] - if type(Val(K))==1 - Tmp1='('+string(Val(K))+')'; - else - Tmp1=Val(K); - end; - Tmp3=strsubst(Tmp3,Tmp,Tmp1); - end; - end; - else - for J=1:size(Val,1) - for K=1:size(Val,2) - Tmp=Vname+'('+string(J)+','+string(K)+')'; - if mtlb_findstr(Tmp3,Tmp)~=[] - if type(Val(J,K))==1 - Tmp1='('+string(Val(J,K))+')'; - else - Tmp1=Val(J,K); - end; - Tmp3=strsubst(Tmp3,Tmp,Tmp1); - end; - end; - end; - end; - if length(Val)==1 - Rep=string(Val); - else - Rep='['; - for J=1:size(Val,1) - for K=1:size(Val,2) - Rep=Rep+string(Val(J,K)); - if K<size(Val,2) - Rep=Rep+','; - end; - end; - if J<size(Val,1) - Rep=Rep+';'; - else - Rep=Rep+']'; - end; - end; - end; - Tmp1='('+Rep+')'; - end; - if type(Val)==10 - Tmp1=Val; - end; - if type(Val)==15 - Tmp1=Makeliststr(Val); - end; - Notvar=[48:57,65:90,97:122]; - for K=1:size(Tmp3,2) - Tmp2=Tmp3(K); - if length(Tmp2)>0 then - Flist=mtlb_findstr(Tmp2,Vname); - else - Flist=[]; - end - if length(Flist)==0 then - Tmp3(K)=Tmp2; // 15.04.18 - continue - end - Str=part(Tmp2,1:(Flist(1)-1)); - for I=1:length(Flist) - Flg=0; - J=Flist(I); - if J>1 then - Tmp=ascii(part(Tmp2,J-1)); - if Member(Tmp,Notvar) then - Flg=1; - end; - end - if J+length(Vname)-1<length(Tmp2) then // 15.04.18 - Tmp=ascii(part(Tmp2,J+length(Vname))); // 15.04.18 - if Member(Tmp,Notvar) then - Flg=1; - end; - end; - if Flg==0 then - Str=Str+Tmp1; - else - Str=Str+Vname; - end; - if I<length(Flist) then - Tmp=Flist(I+1)-1; - else - Tmp=length(Tmp2); - end; - Str=Str+part(Tmp2,(J+length(Vname)):Tmp); - Tmp3(K)=Str; // 15.04.18 - end; - end; - end; - Out=Tmp3; // 15.02.18 upto - format(Curfmt(2)); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.bin Binary files differdeleted file mode 100644 index 8c80117b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci deleted file mode 100644 index d8883e6c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 09.10.03 - -function Out=Assignadd(varargin) - global ASSIGNLIST; - Nargs=length(varargin); - L=ASSIGNLIST; - Is=length(L); - for I=1:Nargs - L(I+Is)=varargin(I); - end; - ASSIGNLIST=L; - Out=L; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.bin Binary files differdeleted file mode 100644 index 4ee61642..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci deleted file mode 100644 index 0a362b01..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci +++ /dev/null @@ -1,22 +0,0 @@ -// 09.10.17 -// 09.12.05 -// 09.12.29 -// 14.09.30 addition supported - -function Assignrep(varargin) - global ASSIGNLIST; - Nargs=length(varargin); - for I=1:2:Nargs - Vname=varargin(I); - Val=varargin(I+1); - Tmp=Assign('?'+Vname); - if Tmp=='Not found' - Tmp=length(ASSIGNLIST); - ASSIGNLIST(Tmp+1)=Vname; - ASSIGNLIST(Tmp+2)=Val; - else - I=Tmp(1); - ASSIGNLIST(I+1)=Val; - end; - end -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.bin Binary files differdeleted file mode 100644 index eb9e3072..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci deleted file mode 100644 index bb77c105..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.10.21 - -function Assignset(varargin) - I=1:length(varargin); - Tmp=Assign(varargin(I));; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.bin Binary files differdeleted file mode 100644 index 2f570d6e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci deleted file mode 100644 index f93e3200..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci +++ /dev/null @@ -1,6 +0,0 @@ -// 08.05.22 - -function Beginpicture(ul) - Openpicture(ul) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.bin Binary files differdeleted file mode 100644 index bcf1d42b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci deleted file mode 100644 index 7d1993eb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 15.01.01 - -function Out=Bezier(varargin) - Nargs=length(varargin); - Ptlist=varargin(1); - Ctrlist=varargin(2); - Num=10; - for J=3:Nargs - Tmp=varargin(J); - K=mtlb_findstr(Tmp,'='); - Tmp1=strsplit(Tmp,[K-1,K]); - Tmp2=ascii(Tmp1(1,1)); - Lhs=char(Tmp2(1)); - if Lhs=="N" then - Num=evstr(Tmp1(3,1)); - end; - end; - if length(Num)==1 - Num=Num*ones(1:length(Ctrlist)) - end; - Out=[]; - for ii=1:length(Ctrlist) - Tmp1=[Ptlist(ii),Ptlist(ii+1)]; - Tmp2=Ctrlist(ii); - if ii==1 then - St=0 - else - St=1 - end; - for J=St:Num(ii) - Tmp=Bezierpt(J/Num(ii),Tmp1,Tmp2); - Out=[Out;Tmp]; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.bin Binary files differdeleted file mode 100644 index 51ad025e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci deleted file mode 100644 index ac639249..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 15.01.01 -// 15.02.08 for 3d - -function Out=Bezierpt(t,Ptlist,Ctrlist) - if length(Ptlist)==6 then // 3d 15.02.08 - P0=Ptlist(1:3); - P3=Ptlist(4:6); - P1=Ctrlist(1:3); - if length(Ctrlist)==3 then - P2=P3; - flg3=0; - else - P2=Ctrlist(4:6); - flg3=1; - end; - else - P0=Ptlist(1:2); - P3=Ptlist(3:4); - P1=Ctrlist(1:2); - if length(Ctrlist)==2 then - P2=P3; - flg3=0; - else - P2=Ctrlist(3:4); - flg3=1; - end; - end; - P4=(1-t)*P0+t*P1; - P5=(1-t)*P1+t*P2; - P6=(1-t)*P2+t*P3; - P7=(1-t)*P4+t*P5; - P8=(1-t)*P5+t*P6; - P9=(1-t)*P7+t*P8; - if flg3==0 then - Out=P7; - else - Out=P9; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.bin Binary files differdeleted file mode 100644 index e238cbcb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci deleted file mode 100644 index dac12561..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.13 - -function Out=BorderHiddenData() - global BORDERHIDDENDATA - Out=BORDERHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.bin Binary files differdeleted file mode 100644 index 40553cd7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci deleted file mode 100644 index 12947bcd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.13 - -function Out=BorderPt() - global BORDERPT - Out=BORDERPT -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.bin Binary files differdeleted file mode 100644 index d5c08e6d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci deleted file mode 100644 index 2e944821..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci +++ /dev/null @@ -1,121 +0,0 @@ -// 08.09.13 -// 08.09.16 -// 08.10.10 -// 08.10.11 -// 08.10.15 -// 08.10.28 -// 09.03.09 -// 09.05.27 -// 09.06.03 -// 10.02.16 Eps=> [Eps, Epsmg] -// 13.10.21 ( __ added to varibles ) - -function FsL__=Borderparadata(varargin) - global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA - global PARTITIONPT - Nargs__=length(varargin); - FkL__=varargin(1); - Fd__=varargin(2); N__=3; - FdL__=Fullformfunc(Fd__); - Fxy__=Mixop(1,FdL__); - Tmp__1=Mixop(2,FdL__); - Tmp__2=Mixop(3,FdL__); - Tmp__3=Mixop(4,FdL__); - Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; - DrwS__=Mixop(7,FdL__); - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Np__=[50,50]; - if Nargs__>=3 - Np__=varargin(3); N__=4; - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Eps__=[0.05,1]; // - if Nargs__>=N__ Eps__=varargin(N__); end; - Eps__2=0.2; - if Nargs__>=N__+1 Eps__2=varargin(N__+1); end; - Umin__=Urg__(1); Umax__=Urg__(2); - Vmin__=Vrg__(1); Vmax__=Vrg__(2); - EkL__=[]; - Tmp__=mtlb_findstr(DrwS__,'e'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'n'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'w'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'s'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - if Mixlength(EkL__)>0 - FkL__=Mixjoin(FkL__,EkL__); - end; - Fall__=Projpara(FkL__); - if Mixtype(Fall__)==1 - Fall__=Mix(Fall__) - end; - Fbdxy__=Makexybdy(Fd__,Np__); - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - BORDERPT=[]; - Tmp__=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixadd(Tmp__,[]); - end; - OTHERPARTITION=Tmp__; - FsL__=[]; - BORDERHIDDENDATA=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixop(I__,FkL__); - Tmp__=Projpara(Tmp__); - Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); // - if Mixlength(PARTITIONPT)>2 - Tmp__=Mixlength(PARTITIONPT)-1; - Tmp__1=Mixsub(2:Tmp__,PARTITIONPT); - BORDERPT=Mixjoin(BORDERPT,Tmp__1); - end; - Tmp__1=Mixop(I__,FkL__); - Tmp__=Nohiddenpara2(Par__,Tmp__1,Fd__,1,Np__,Eps__); - if Mixlength(HIDDENDATA)>0 - BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); - end; - if Mixlength(Tmp__)>0 - FsL__=Mixjoin(FsL__,Tmp__); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.bin Binary files differdeleted file mode 100644 index 162c473d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci deleted file mode 100644 index f86ddfa0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci +++ /dev/null @@ -1,120 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 08.10.11 -// 08.10.28 -// 09.03.09 -// 09.05.27 -// 09.06.03 -// 10.02.16 Eps__ -// 13.11.01 ( __ added to varibles ) - -function FsL__=Borderpersdata(varargin) - global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA - global PARTITIONPT - Nargs__=length(varargin); - FkL__=varargin(1); - Fd__=varargin(2); N=3; - FdL__=Fullformfunc(Fd__); - Fxy__=Mixop(1,FdL__); - Tmp__1=Mixop(2,FdL__); - Tmp__2=Mixop(3,FdL__); - Tmp__3=Mixop(4,FdL__); - Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; - DrwS__=Mixop(7,FdL__); - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Np__=[50,50]; - if Nargs__>=3 - Np__=varargin(3); N=4; - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Eps__=0.05; - Eps__=[0.05,1]; // - if Nargs__>=N Eps__=varargin(N); end; - Eps__2=0.2; - if Nargs__>=N+1 Eps__2=varargin(N+1); end; - Umin__=Urg__(1); Umax__=Urg__(2); - Vmin__=Vrg__(1); Vmax__=Vrg__(2); - EkL__=[]; - Tmp__=mtlb_findstr(DrwS__,'e'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'n'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'w'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'s'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - if Mixlength(EkL__)>0 - FkL__=Mixjoin(FkL__,EkL__); - end; - Fall__=Projpers(FkL__); - if Mixtype(Fall__)==1 - Fall__=Mix(Fall__); - end; - Fbdxy__=Makexybdy(Fd__,Np__); - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - BORDERPT=[]; - Tmp__=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixadd(Tmp__,[]); - end; - OTHERPARTITION=Tmp__; - FsL__=[]; - BORDERHIDDENDATA=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixop(I__,FkL__); - Tmp__=Projpers(Tmp__); - Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); - if Mixlength(PARTITIONPT)>2 - Tmp__=Mixlength(PARTITIONPT)-1; - Tmp__1=Mixsub(2:Tmp__,PARTITIONPT); - BORDERPT=Mixjoin(BORDERPT,Tmp__1); - end; - Tmp__1=Mixop(I__,FkL__); - Tmp__=Nohiddenpers2(Par__,Tmp__1,Fd__,1,Np__,Eps__); - if Mixlength(HIDDENDATA)>0 - BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); - end; - if Mixlength(Tmp__)>0 - FsL__=Mixjoin(FsL__,Tmp__); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin Binary files differdeleted file mode 100644 index 41515f60..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci deleted file mode 100644 index 657efc23..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci +++ /dev/null @@ -1,64 +0,0 @@ -// 08.09.10 - -function FkL=Borderrawdata(varargin) - Nall=length(varargin); - FkL=varargin(1); - FdL=Fullformfunc(varargin(2)); - Tmp1=Mixop(2,FdL); - Tmp2=Mixop(3,FdL); - Tmp3=Mixop(4,FdL); - Xyzstr=[Tmp1,Tmp2,Tmp3]; - DrwS=Mixop(7,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - Np=[50,50]; - if Nall>=3 - Np=varargin(3); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Um=Urg(1); UM=Urg(2); - Vm=Vrg(1); VM=Vrg(2); - EkL=[]; - Tmp=mtlb_findstr(DrwS,'e'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Uname,'('+string(UM)+')'); - Tmp2=Mixop(6,FdL); - Tmp3='N='+string(Np(2)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'n'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Vname,'('+string(VM)+')'); - Tmp2=Mixop(5,FdL); - Tmp3='N='+string(Np(1)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'w'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Uname,'('+string(Um)+')'); - Tmp2=Mixop(6,FdL); - Tmp3='N='+string(Np(2)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'s'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Vname,'('+string(Vm)+')'); - Tmp2=Mixop(5,FdL); - Tmp3='N='+string(Np(1)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - FkL=Mixjoin(FkL,EkL); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin Binary files differdeleted file mode 100644 index 00fea499..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci deleted file mode 100644 index 48154cf1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci +++ /dev/null @@ -1,45 +0,0 @@ -// -// 08.05.22 -// 08.08.24 - -function Pd=Bowdata(varargin) - global BOWMIDDLE BOWSTART BOWEND - Nargs=length(varargin); - PA=varargin(1); - PB=varargin(2); - Cut=0; - D=1/2*Vecnagasa(PB-PA); - if Nargs>=3 - H=varargin(3)*D*0.2; - else - H=D*0.2; - end - H=min(H,D); - if Nargs>=4 - Cut=varargin(4); - end - Ydata=MakeBowdata(PA,PB,H); - C=Mixop(1,Ydata); - r=Mixop(2,Ydata); - R1=Mixop(3,Ydata); - R2=Mixop(4,Ydata); - Rng='R=['+string(R1)+','+string(R2)+']'; - Theta=(R1+R2)*0.5; - BOWMIDDLE=MixS([C(1)+r*cos(Theta),C(2)+r*sin(Theta)],Theta); - M=Mixop(1,BOWMIDDLE); - ThetaM=Mixop(2,BOWMIDDLE); - BOWSTART=PA; - BOWEND=PB; - if Cut==0 - Pd=Circledata(C,r,Rng); - else - Alpha=R1; Beta=ThetaM-Cut/(2*r); - Rng='R=['+string(Alpha)+','+string(Beta)+']'; - Pd=Circledata(C,r,Rng); - Alpha=ThetaM+Cut/(2*r); Beta=R2; - Rng='R=['+string(Alpha)+','+string(Beta)+']'; - Tmp=Circledata(C,r,Rng); - Pd=[Pd;%inf,%inf;Tmp]; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin Binary files differdeleted file mode 100644 index fe5aa36a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci deleted file mode 100644 index 5157c111..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci +++ /dev/null @@ -1,53 +0,0 @@ -// -// 08.05.22 -// 08.05.31 -// 09.08.12 - -function M=Bowmiddle(varargin) - global BOWMIDDLE; - Nargs=length(varargin); - if Nargs==0 - M=BOWMIDDLE; - return; - end; - if Nargs==1 - Bdata=varargin(1); - A=Bdata(1,:); - Dind=Dataindex(Bdata); - Dc=size(Dind,1); - Tmp=Dind(Dc,2); - B=Bdata(Tmp,:); - if Dc==1 - Tmp1=round(Tmp/2); - else - Tmp1=Dind(1,2); - end; - D=Bdata(Tmp1,:); - B=B-A; - D=D-A; - Tmp1=B(1)*D(2)-D(1)*B(2); - Tmp2=((B(1)^2+B(2)^2)*D(2)-B(2)*(D(1)^2+D(2)^2))/2; - Tmp3=-((B(1)^2+B(2)^2)*D(1)-B(1)*(D(1)^2+D(2)^2))/2; - C=[Tmp2,Tmp3]/Tmp1+A; - R=norm(C-A); - B=B+A; - V=(A+B)/2-C; - V=V/norm(V); - M=C+R*V; - else - A=varargin(1); B=varargin(2); - D=1/2*Vecnagasa(B-A); - H=0.2*D; - if length(varargin)>=3 - Tmp=varargin(3); - H=Tmp*D*0.2; - end - H=min(H,D); - Ydata=MakeBowdata(A,B,H); - C=Op(1,Ydata); - R=Op(2,Ydata); - T=(Op(3,Ydata)+Op(4,Ydata))/2; - P=C+R*[cos(T),sin(T)]; - M=MixS(P,T); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin Binary files differdeleted file mode 100644 index 320dc759..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci deleted file mode 100644 index f57c4961..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci +++ /dev/null @@ -1,40 +0,0 @@ -// -// 08.08.24 -// 09.08.12 -// 09.08.13 -// 13.11.30 Directon supported - -function Bowname(varargin) - global BOWMIDDLE; - Nargs=length(varargin); - Siki=varargin(Nargs); - Nargs=Nargs-1; // 13.11.30 - Dr="c"; - if Nargs>=1 then - Tmp=varargin(Nargs); - if type(Tmp)==10 - Dr=Tmp; - Nargs=Nargs-1; - end - end - if Nargs==0 // 13.11.30 - P=Mixop(1,BOWMIDDLE); - elseif Nargs==1 // 13.11.30 - Bdata=varargin(1); - P=Bowmiddle(Bdata); - else - A=varargin(1); B=varargin(2); - D=1/2*Vecnagasa(B-A); - Tmp=varargin(3); - if type(Tmp)==10 - H=D*0.2; - else - H=Tmp*D*0.2; - end; - H=min(H,D); - Ydata=MakeBowdata(A,B,H); - Tmp=Bowmiddle(Ydata); - P=Mixop(1,Tmp); - end - Expr(P,Dr,Siki); //13.11.30 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin Binary files differdeleted file mode 100644 index e4dd5aa2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci deleted file mode 100644 index 8d1edf78..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci +++ /dev/null @@ -1,77 +0,0 @@ -// 08.05.31 -// 08.08.24 -// 09.08.12 -// 09.08.13 -// 13.12.15 tiny move supported -// A,B type no longer supported - -function Bownamerot(varargin) - global Wfile FID BOWMIDDLE BOWSTART BOWEND; - Nargs=length(varargin); - Eps=10^(-6); - Flg=1; - Tmp=varargin(Nargs); - if type(Tmp)==1 & length(Tmp)==1 & Tmp<0 - Flg=Tmp; - Nargs=Nargs-1; - end; - Siki=varargin(Nargs); - Nargs=Nargs-1; - Dr="c"; - if Nargs>=1 then - Tmp=varargin(Nargs); - if type(Tmp)==10 - Dr=Tmp; - Nargs=Nargs-1; - end - end - if Nargs==0 - P=Mixop(1,BOWMIDDLE); - A=BOWSTART; - B=BOWEND; - else - Bdata=varargin(1); - P=Bowmiddle(Bdata); - A=Bdata(1,:); - B=Bdata(size(Bdata,1),:); - Tm=0; Tv=0; - if Nargs>1 then // 13.12.15 - Tm=varargin(2); - if Nargs>2 then - Tv=varargin(3); - end - end - end; -// elseif Nargs==1 -// Bdata=varargin(1); -// P=Bowmiddle(Bdata); -// A=Bdata(1,:); -// B=Bdata(size(Bdata,1),:); -// else -// A=varargin(1); B=varargin(2); -// D=1/2*Vecnagasa(B-A); -// Tmp=varargin(3); -// if type(Tmp)==10 -// H=0.2*D; Siki=Tmp; -// else -// H=Tmp*D*0.2; Siki=varargin(4); -// end -// H=min(H,D); -// Ydata=MakeBowdata(A,B,H); -// C=Op(1,Ydata); -// R=Op(2,Ydata); -// T=(Op(3,Ydata)+Op(4,Ydata))/2; -// P=C+R*[cos(T),sin(T)]; -// end; - if A(1)>B(1)+Eps - Tmp=A; - A=B; - B=Tmp; - end; - if Flg>0 - Tmp=B-A; - else - Tmp=A-B; - end; - Exprrot(P,Tmp,Tm,Tv,Siki); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin Binary files differdeleted file mode 100644 index 69e9a115..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci deleted file mode 100644 index aa1216dd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci +++ /dev/null @@ -1,31 +0,0 @@ -function CalcHeight(Hoko,Moji) - global Wfile FID; - D=0; - Tmp=ascii(Hoko); - H=char(Tmp(1)); - Str=['\settoheight{\Height}{'+Moji+'}']; - Str=[Str,'\settodepth{\Depth}{'+Moji+'}']; - if H=='n' - Str=[Str,'\setlength{\Height}{\Depth}']; - end - if H=='s' - Str=[Str,'\setlength{\Height}{-\Height}']; - end - if H=='c' - Str=[Str,'\setlength{\Height}{-0.5\Height}']; - Str=[Str,'\setlength{\Depth}{0.5\Depth}']; - Str=[Str,'\addtolength{\Height}{\Depth}']; - end - if Wfile=='default' - for I=1:size(Str,2) - mprintf('%s',Str(I)); - end - mprintf('%s\n','%'); - else - for I=1:size(Str,2) - mfprintf(FID,'%s',Str(I)); - end - mfprintf(FID,'%s\n','%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin Binary files differdeleted file mode 100644 index dea083ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci deleted file mode 100644 index 111e9b3b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci +++ /dev/null @@ -1,26 +0,0 @@ -function CalcWidth(Hoko,Moji) - global Wfile FID - D=0; - Tmp=ascii(Hoko); - H=char(Tmp(2)); - if H=='e' - D=0; - end - if H=='w' - D=-1.0; - end - if H=='c' - D=-0.5; - end - Str1='\settowidth{\Width}{'+Moji+'}'; - Tmp=string(D); - Str2='\setlength{\Width}{'+Tmp+'\Width}'; - if Wfile=='default' - mprintf('%s',Str1); - mprintf('%s%s\n',Str2,'%'); - else - mfprintf(FID,'%s',Str1); - mfprintf(FID,'%s%s\n',Str2,'%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin Binary files differdeleted file mode 100644 index 90ba14bb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci deleted file mode 100644 index 30c646a6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci +++ /dev/null @@ -1,9 +0,0 @@ -// 08.05.30 - -function PL=Calcfun(Siki,Namae,Atai) - execstr(Namae+'=Atai'); - Tmp='XY='+Siki; - execstr(Tmp); - PL=[Atai(:,1),XY(:,2)]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin Binary files differdeleted file mode 100644 index a0f9bec1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci deleted file mode 100644 index fcc7687c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci +++ /dev/null @@ -1,24 +0,0 @@ -// 08.08.12
-// 08.10.07
-// 09.06.02
-
-function AnsL=CameraCurve(Curve)
- Eps=10^(-6);
- for I=1:size(Curve,1)
- P=Curve(I,:);
- x=P(1); y=P(2); z=P(3);
- if x~=%inf
- Tmp=Perspt(P);
- if I==1
- AnsL=[Tmp];
- else
- Tmp1=AnsL(size(AnsL,1),:);
- if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
- AnsL=[AnsL;Tmp];
- end;
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin Binary files differdeleted file mode 100644 index 1504ef28..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci deleted file mode 100644 index 310ac166..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci +++ /dev/null @@ -1,28 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 09.09.25 - -function Out=CameracoordCurve(Curve) - global FocusPoint EyePoint; - Out=[]; // 09.09.25 - for J=1:size(Curve,1) - P=Curve(J,:); - Tmp=P-FocusPoint; - X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3); - Tmp=EyePoint-FocusPoint; - E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); - Ca=E1/sqrt(E1^2+F1^2); - Sa=F1/sqrt(E1^2+F1^2); - X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1; - E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; - Cb=E2/sqrt(E2^2+G2^2); - Sb=G2/sqrt(E2^2+G2^2); - X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb; - E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb; - Xz=X3; - Yz=E3/(E3-X3)*Y3; - Zz=E3/(E3-X3)*Z3; - Out=[Out;Yz,Zz,Xz]; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin Binary files differdeleted file mode 100644 index 09869b72..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci deleted file mode 100644 index 1574d812..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci +++ /dev/null @@ -1,11 +0,0 @@ -// 13.08.13 - -function Out=Cancoordpara(P) - global PHI THETA; - Xz=P(1); Yz=P(2); Zz=P(3); - X=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA); - Y=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA); - Z=Yz*sin(THETA)+Zz*cos(THETA); - Out=[X,Y,Z]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin Binary files differdeleted file mode 100644 index 9b976e9a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci deleted file mode 100644 index b63aba5c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci +++ /dev/null @@ -1,22 +0,0 @@ -// 08.08.12 - -function Out=Cancoordpers(P) - global EyePoint FocusPoint; - Tmp=EyePoint-FocusPoint; - E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); - Ca=E1/sqrt(E1^2+F1^2); - Sa=F1/sqrt(E1^2+F1^2); - E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; - Cb=E2/sqrt(E2^2+G2^2); - Sb=G2/sqrt(E2^2+G2^2); - E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb; - Xz=P(3); Yz=P(1); Zz=P(2); - X3=Xz; Y3=Yz*(E3-Xz)/E3; Z3=Zz*(E3-Xz)/E3; - X2=X3*Cb-Sb*Z3; Y2=Y3; Z2=Cb*Z3+Sb*X3; - X1=X2*Ca-Sa*Y2; Y1=Ca*Y2+Sa*X2; Z1=Z2; - X=X1+FocusPoint(1); - Y=Y1+FocusPoint(2); - Z=Z1+FocusPoint(3); - Out=[X,Y,Z]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin Binary files differdeleted file mode 100644 index 479debe4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci deleted file mode 100644 index 2148c061..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci +++ /dev/null @@ -1,32 +0,0 @@ -// s:2008,05.12 -// e:2014.09.08 [A,B] supported -// e:2014.10.24 N,R => N__, ... - -function P=Circledata(varargin) - Nargs=length(varargin); - C=varargin(1); - if length(C)==4 then - ra=norm(C(1:2)-C(3:4)); - C=C(1:2); - Nop=2; - else - ra=varargin(2); - Nop=3; - end; - R__=[0,2*%pi]; - N__=50; // Numpoints - for I=Nop:Nargs - Tmp=varargin(I); - K=mtlb_findstr(Tmp,'='); - Tmp1=strsplit(Tmp,[K-1,K]); - Tmp2=ascii(Tmp1(1,1)); - Lhs=char(Tmp2(1)); - Str=Lhs+'__='+Tmp1(3,1); - execstr(Str); - end; - Dt=(R__(2)-R__(1))/N__; - T=R__(1):Dt:R__(2); - X=C(1)+ra*cos(T); - Y=C(2)+ra*sin(T); - P=[X',Y']; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin Binary files differdeleted file mode 100644 index 7a4e7e0e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci deleted file mode 100644 index bf9572c5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci +++ /dev/null @@ -1,58 +0,0 @@ -// 08.09.10 -// 08.09.16 -// 09.12.31 (gsort) - -function OutL=Clipindomain(ObjL,FigL) - EEps=10^(-4); - Eps=0.01; - Eps2=0.2; - Bdy=Kyoukai(FigL); - if Mixlength(Bdy)>=2 - Fbdy=Joincrvs(FigL) - else - Fbdy=Mixop(1,FigL); - end; - if Mixtype(ObjL)==1 - ObjL=Mix(ObjL) - end; - if Mixtype(FigL)==1 - FigL=Mix(FigL) - end; - OutL=[]; - for Nobj=1:Mixlength(ObjL); - Obj=Mixop(Nobj,ObjL); - ParL=[1,Numptcrv(Obj)]; - Tmp=IntersectcrvsPp(Obj,Fbdy,Eps,Eps2); - for J=1:Mixlength(Tmp) - Tmp1=Mixop(J,Tmp); - ParL=[ParL,Mixop(2,Tmp1)]; - end; - ParL=gsort(ParL); - ParL=ParL(length(ParL):-1:1); - Tmp=[1]; - for I=1:length(ParL) - Tmp1=Tmp(length(Tmp)); - Tmp2=ParL(I); - if Tmp2-Tmp1>EEps - Tmp=[Tmp,Tmp2]; - end; - end; - ParL=Tmp; - Tmp1=ParL(length(ParL)); - Tmp2=Numptcrv(Obj); - if abs(Tmp1-Tmp2)<Eps - ParL=[ParL(1:length(ParL)-1),Tmp2]; - end; - Fig=[]; - for N=1:length(ParL)-1 - Tmp=(ParL(N)+ParL(N+1))*0.5; - Tmp=PointonCurve(Tmp,Obj); - Tmp=Naigai(Tmp,Bdy); - Tmp1=modulo(sum(Tmp),2); - if Tmp1==0 continue; end; - Fig=Mixadd(Fig,Partcrv(ParL(N),ParL(N+1),Obj)); - end; - OutL=Mixjoin(OutL,Fig); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.bin Binary files differdeleted file mode 100644 index ee0c01eb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci deleted file mode 100644 index f2928103..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci +++ /dev/null @@ -1,24 +0,0 @@ -// -// 13.05.19 openfile error tackled -// 13.11.01 Endpicture joined optionally -// 13.11.05 debugged - -function Closefile(varargin) - global Wfile FID; - if length(varargin)>=1 then - Pa=varargin(1); - if type(Pa)==10 then - if Pa=="1" then // 2013.11.05 - Endpicture(1) - end; - if Pa=="0" then - Endpicture(0) - end // - end - end - if Wfile~='default' then - mclose(FID); - FID=[]; // 2013.05.19 - end - Wfile='default'; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.bin Binary files differdeleted file mode 100644 index 459ad839..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci deleted file mode 100644 index da7c3850..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci +++ /dev/null @@ -1,10 +0,0 @@ -// s : 2014.06.22 - -function Closeobj() - global Wfile FID; - if Wfile~='default' then - mclose(FID); - FID=[]; - end; - Wfile='default'; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin Binary files differdeleted file mode 100644 index 2f0714fe..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci deleted file mode 100644 index 64b93e1a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.31 - -function Closepar() - global Wfile FID - S='\end{minipage}' - if Wfile=='default' - mprintf('%s\n','%'); - mprintf('%s',S); - else - mfprintf(FID,'%s\n','%'); - mfprintf(FID,'%s',S); - end - Closephr(); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin Binary files differdeleted file mode 100644 index 6a9af1b5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci deleted file mode 100644 index 39b363f6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 08.05.31 - -function Closephr() - global Wfile FID; - if Wfile=='default' - mprintf('%s\n','%'); - mprintf('%s\n','}%'); - else - mfprintf(FID,'%s\n','%'); - mfprintf(FID,'%s\n','}%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin Binary files differdeleted file mode 100644 index 45c1666b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci deleted file mode 100644 index a3f345cb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci +++ /dev/null @@ -1,22 +0,0 @@ -// -// 08.12.17 -// 09.02.20 -// 10.04.12 - -function Closepicture(varargin) - global Wfile FID MEMORI MEMORINow ULEN MilliIn; - Nargs=length(varargin); - if Nargs==0 - Drwxy(); - elseif varargin(1)==1 - Drwxy(); - end - if Wfile=='default' - mprintf('%s','\end{picture}}%'); - else - mfprintf(FID,'%s','\end{picture}}%'); - end -// MEMORI=MEMORINow*1000/2.54/MilliIn; - Setunitlen('1cm'); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin Binary files differdeleted file mode 100644 index 2ae19755..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci deleted file mode 100644 index 2abe8c90..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci +++ /dev/null @@ -1,76 +0,0 @@ -// 08.09.09 -// 08.09.10 -// 08.09.24 - -function PlotL=Connectseg(varargin) - Nargs=length(varargin); - Pdata=varargin(1); - Eps=10^(-5); - if Nargs>=2 - Eps=varargin(2) - end; - if Mixtype(Pdata)~=1 - Tmp=Mixop(1,Pdata); - Tmp=size(Tmp,2); - Sep=%inf*ones(1,Tmp); - Tmp=[]; - for I=1:Mixlength(Pdata) - Tmp1=Mixop(I,Pdata); - Tmp=[Tmp;Sep;Tmp1]; - end; - Pdata=Tmp(2:size(Tmp,1),:); - end; - Din=Dataindex(Pdata); - PlotL=[]; - Qd=Pdata(Din(1,1):Din(1,2),:); - Din=Din(2:size(Din,1),:); - N=size(Din,1); - while N>0 - Ah=Qd(1,:);Ao=Qd(size(Qd,1),:); - Flg=0; - for J=1:N - St=Din(J,1); - En=Din(J,2); - P=Pdata(St,:); - Q=Pdata(En,:); - if norm(P-Ao)<Eps - Tmp=Pdata(St+1:En,:); - Qd=[Qd;Tmp]; - Din=[Din(1:J-1,:);Din(J+1:N,:)]; - Flg=1; - break; - end; - if norm(Q-Ao)<Eps - Tmp=Pdata(En-1:-1:St,:); - Qd=[Qd;Tmp]; - Din=[Din(1:J-1,:);Din(J+1:N,:)]; - Flg=1; - break; - end; - if norm(P-Ah)<Eps - Tmp=Pdata(En:-1:St+1,:); - Qd=[Tmp;Qd]; - Din=[Din(1:J-1,:);Din(J+1:N,:)]; - Flg=1; - break; - end; - if norm(Q-Ah)<Eps - Tmp=Pdata(St:En-1,:); - Qd=[Tmp;Qd]; - Din=[Din(1:J-1,:);Din(J+1:N,:)]; - Flg=1; - break; - end; - end; - if Flg==0 - PlotL=Mixadd(PlotL,Qd); - Qd=Pdata(Din(1,1):Din(1,2),:); - Din=Din(2:N,:); - end; - N=size(Din,1); - end; - if size(Qd,1)>0 - PlotL=Mixadd(PlotL,Qd); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.bin Binary files differdeleted file mode 100644 index ebbf0250..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci deleted file mode 100644 index ab4d55b5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 09.10.0 - -function Out=Crossprod(a,b) - if length(a)==3 - Tmp1=a(2)*b(3)-a(3)*b(2); - Tmp2=a(3)*b(1)-a(1)*b(3); - Tmp3=a(1)*b(2)-a(2)*b(1); - Out=[Tmp1,Tmp2,Tmp3]; - else - Out=a(1)*b(2)-a(2)*b(1); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin Binary files differdeleted file mode 100644 index 945f328f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci deleted file mode 100644 index 07c17303..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.19 - -function Out=Crv3onsfHiddenData() - global CRV3ONSFHIDDENDATA - Out=CRV3ONSFHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin Binary files differdeleted file mode 100644 index edfc2433..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci deleted file mode 100644 index ba168b71..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci +++ /dev/null @@ -1,49 +0,0 @@ -// 08.09.16 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps - -function Out=Crv3onsfparadata(varargin) - global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA - Nargs=length(varargin); - Fk=varargin(1); - Fbdy=Projpara(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Fbdxy=Makexybdy(Fd,Np); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Fxy=='p' - Out=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - else - Tmp=Mix(Fxy,Fbdxy,Xname,Yname); - Out=Nohiddenpara(Par,Fk,Tmp); - end; - CRV3ONSFHIDDENDATA=HIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin Binary files differdeleted file mode 100644 index fcf19f53..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci deleted file mode 100644 index 5fc40737..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci +++ /dev/null @@ -1,50 +0,0 @@ -// 08.09.21 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps - -function Out=Crv3onsfpersdata(varargin) - global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA - Nargs=length(varargin); - Fk=varargin(1); - Fbdy=Projpers(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Fbdxy=Makexybdy(Fd,Np); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Fxy=='p' - Out=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - else - Tmp=Mix(Fxy,Fbdxy,Xname,Yname); - Out=Nohiddenpers(Par,Fk,Tmp); - end; - - CRV3ONSFHIDDENDATA=HIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin Binary files differdeleted file mode 100644 index 6c2acae3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci deleted file mode 100644 index 9d97b3ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.19 - -function Out=CrvonsfHiddenData() - global CRVONSFHIDDENDATA - Out=CRVONSFHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin Binary files differdeleted file mode 100644 index 5a5c9703..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci deleted file mode 100644 index a530284b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci +++ /dev/null @@ -1,90 +0,0 @@ -// 08.09.16 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps -// 13.10.22 ( __ added to varibles ) - -function OutL__=Crvonsfparadata(varargin) - global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA - Nargs__=length(varargin); - Eps__0=10^(-4); - Figuv__=varargin(1); - Fbdy__=Projpara(varargin(2)); - Fd__=varargin(3); N__=4; - Fd__L=Fullformfunc(Fd__); - Fxy__=Mixop(1,Fd__L); - Xf__=Mixop(2,Fd__L); - Yf__=Mixop(3,Fd__L); - Zf__=Mixop(4,Fd__L); - Np__=[50,50]; - if Nargs__>=N__ - Np__=varargin(N__); N__=N__+1; - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Eps__=[0.05,1]; // - if Nargs__>=N__ - Eps__=varargin(N__); - end; - if length(Eps__)==1 - Eps__=[Eps__,1]; - end; - Eps__2=0.2; - if Nargs__>=N__+1 - Eps__2=varargin(N__+1); - end; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Fbdxy__=Makexybdy(Fd__,Np__); - Fbdy__uv=Mixop(8,Fd__L); - if Fbdy__uv==[] - Fbdy__uv=Mix(Framedata(Urg__,Vrg__)); - end; - FigL__=Clipindomain(Figuv__,Fbdy__uv); - CRVONSFHIDDENDATA=[]; - OutL__=[]; - for N__=1:Mixlength(FigL__) - PtL__=Mixop(N__,FigL__); - Tmp__=[]; - for I__=1:size(PtL__,1) - P__=PtL__(I__,:); - Tmp__1=strsubst(Xf__,Uname__,'('+string(P__(1))+')'); - Tmp__1=strsubst(Tmp__1,Vname__,'('+string(P__(2))+')'); - Tmp__1=evstr(Tmp__1); - Tmp__2=strsubst(Yf__,Uname__,'('+string(P__(1))+')'); - Tmp__2=strsubst(Tmp__2,Vname__,'('+string(P__(2))+')'); - Tmp__2=evstr(Tmp__2); - Tmp__3=strsubst(Zf__,Uname__,'('+string(P__(1))+')'); - Tmp__3=strsubst(Tmp__3,Vname__,'('+string(P__(2))+')'); - Tmp__3=evstr(Tmp__3); - Tmp__=[Tmp__,[Tmp__1,Tmp__2,Tmp__3]]; - end; - Fk__=Spaceline(Tmp__); - Par__=Partitionseg(Projpara(Fk__),Fbdy__,Eps__(1),Eps__2); // - if Fxy__=='p' - Tmp__=Nohiddenpara2(Par__,Fk__,Fd__,1,Np__,Eps__); - else - Tmp__1=Mix(Fxy__,Fbdxy__,Xname__,Yname__); - Tmp__=Nohiddenpara(Par__,Fk__,Tmp__1); - end; - if Tmp__~=[] - OutL__=Mixjoin(OutL__,Tmp__); - end; - if HIDDENDATA~=[] - CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin Binary files differdeleted file mode 100644 index 29f41d3c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci deleted file mode 100644 index f3bdf700..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci +++ /dev/null @@ -1,86 +0,0 @@ -// 08.09.21 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps - -function OutL=Crvonsfpersdata(varargin) - global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA - Nargs=length(varargin); - Eps0=10^(-4); - Figuv=varargin(1); - Fbdy=Projpers(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Xf=Mixop(2,FdL); - Yf=Mixop(3,FdL); - Zf=Mixop(4,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 - Eps=[Eps,1]; - end; - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - Fbdxy=Makexybdy(Fd,Np); - Fbdyuv=Mixop(8,FdL); - if Fbdyuv==[] - Fbdyuv=Mix(Framedata(Urg,Vrg)); - end; - FigL=Clipindomain(Figuv,Fbdyuv); - CRVONSFHIDDENDATA=[]; - OutL=[]; - for N=1:Mixlength(FigL) - PtL=Mixop(N,FigL); - Tmp=[]; - for I=1:size(PtL,1) - P=PtL(I,:); - Tmp1=strsubst(Xf,Uname,'('+string(P(1))+')'); - Tmp1=strsubst(Tmp1,Vname,'('+string(P(2))+')'); - Tmp1=evstr(Tmp1); - Tmp2=strsubst(Yf,Uname,'('+string(P(1))+')'); - Tmp2=strsubst(Tmp2,Vname,'('+string(P(2))+')'); - Tmp2=evstr(Tmp2); - Tmp3=strsubst(Zf,Uname,'('+string(P(1))+')'); - Tmp3=strsubst(Tmp3,Vname,'('+string(P(2))+')'); - Tmp3=evstr(Tmp3); - Tmp=[Tmp,[Tmp1,Tmp2,Tmp3]]; - end; - Fk=Spaceline(Tmp); - Par=Partitionseg(Projpers(Fk),Fbdy,Eps(1),Eps2); // - if Fxy=='p' - Tmp=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - else - Tmp1=Mix(Fxy,Fbdxy,Xname,Yname); - Tmp=Nohiddenpers(Par,Fk,Tmp1); - end; - OutL=Mixjoin(OutL,Tmp); - CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin Binary files differdeleted file mode 100644 index c0c9a068..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci deleted file mode 100644 index 0081b20c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.10.24 - -function Out=CrvsfHiddenData() - global CRVSFHIDDENDATA - Out=CRVSFHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin Binary files differdeleted file mode 100644 index c4172a33..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci deleted file mode 100644 index a87506d2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci +++ /dev/null @@ -1,81 +0,0 @@ -// 08.10.24 -// 08.10.25 -// 08.10.26 -// 08.10.27 -// 09.06.02 -// 09.12.31 (gsort) -// 10.02.16 - -function Out=Crvsfparadata(varargin) - global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA - Nargs=length(varargin); - Sepflg=0; - Tmp=varargin(Nargs); - if type(Tmp)==1 & Tmp<=0 - Sepflg=1; - Nargs=Nargs-1; - end; - Fk=varargin(1); - if Mixtype(Fk)==1 - FkL=Mix(Fk); - else - FkL=Fk; - end; - Fbdy=Projpara(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Out=[]; - CRVSFHIDDENDATA=[]; - for Nn=1:Mixlength(FkL) - Fk=Mixop(Nn,FkL); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Sepflg==0 - for I=1:Numptcrv(Fk)-1 - Pa=Ptcrv(I,Fk); - Pb=Ptcrv(I+1,Fk); - PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); // - for J=1:Mixlength(PtL) - Tmp=Mixop(J,PtL); - Tmp=Parapt(Tmp); - Tmp1=ParamonCurve(Tmp,I,Projpara(Fk)); - Tmp2=min(abs(Par-Tmp1)); - if Tmp2*norm(Parapt(Pb-Pa))>Eps (1) // - Par=[Par,Tmp1]; - end; - end; - Par=gsort(Par); - Par=Par(length(Par):-1:1); - end; - end; - Tmp1=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - Out=Mixjoin(Out,Tmp1); - CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin Binary files differdeleted file mode 100644 index 8efb0eb2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci deleted file mode 100644 index 7e24efcb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci +++ /dev/null @@ -1,80 +0,0 @@ -// 08.10.24 -// 08.10.25 -// 08.10.26 -// 08.10.27 -// 09.06.02 -// 09.12.31 (gsort) - -function Out=Crvsfpersdata(varargin) - global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA - Nargs=length(varargin); - Sepflg=0; - Tmp=varargin(Nargs); - if type(Tmp)==1 & Tmp<=0 - Sepflg=1; - Nargs=Nargs-1; - end; - Fk=varargin(1); - if Mixtype(Fk)==1 - FkL=Mix(Fk); - else - FkL=Fk; - end; - Fbdy=Projpers(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Out=[]; - CRVSFHIDDENDATA=[]; - for Nn=1:Mixlength(FkL) - Fk=Mixop(Nn,FkL); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Sepflg==0 - for I=1:Numptcrv(Fk)-1 - Pa=Ptcrv(I,Fk); - Pb=Ptcrv(I+1,Fk); - PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); // - for J=1:Mixlength(PtL) - Tmp=Mixop(J,PtL); - Tmp=Perspt(Tmp); - Tmp1=ParamonCurve(Tmp,I,Projpers(Fk)); - Tmp2=min(abs(Par-Tmp1)); - if Tmp2*norm(Perspt(Pb-Pa))>Eps(1) // - Par=[Par,Tmp1]; - end; - end; - Par=gsort(Par); - Par=Par(length(Par):-1:1); - end; - end; - Tmp1=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - Out=Mixjoin(Out,Tmp1); - CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin Binary files differdeleted file mode 100644 index 98b1a53c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci deleted file mode 100644 index 8c2b6eee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.10 - -function Out=CuspData() - global CUSPDATA - Out=CUSPDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin Binary files differdeleted file mode 100644 index 8d097887..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci deleted file mode 100644 index 33f1d807..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.10 - -function Out=CuspPt() - global CUSPPT - Out=CUSPPT; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin Binary files differdeleted file mode 100644 index a3855489..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci deleted file mode 100644 index 07cbb09b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.10 - -function PL=CuspSplitPt() - global CUSPSPLITPT - PL=CUSPSPLITPT; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin Binary files differdeleted file mode 100644 index ae85baa1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci deleted file mode 100644 index 0ea935b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci +++ /dev/null @@ -1,179 +0,0 @@ -// 08.09.10 -// 08.09.13 -// 08.09.15 -// 08.10.10 -// 10.02.16 Eps -// 13.10.21 ( __ added to varibles ) -// 14.06.28 debug in the case of no cusp - -function OutkL__=Cuspsplitpara(varargin); - global CUSPSPLITPT; - Nargs__=length(varargin); - Gdxy__=varargin(1); - if Mixtype(Gdxy__)==1 - Gdxy__=Mix(Gdxy__); - end; - Fd__=varargin(2); - FdL__=Fullformfunc(Fd__); - Eps0__=10^(-5); - Eps__=0.05; - if Nargs__>2 Eps__=varargin(3); end; - if length(Eps__)>1 // - Eps__=Eps__(1); - end; // - Fxy__=Mixop(1,FdL__); N__=2; - Tmp1__=Mixop(2,FdL__); - Tmp2__=Mixop(3,FdL__); - Tmp3__=Mixop(4,FdL__); - Xyzstr__=[Tmp1__,Tmp2__,Tmp3__]; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - CUSPSPLITPT=[]; - OutkL__=[]; - for Ng__=1:Mixlength(Gdxy__) - PtxyL__=Mixop(Ng__,Gdxy__); - PtkL__=[]; - PthL__=[]; - for I__=1:size(PtxyL__,1) - Tmp__=PtxyL__(I__,:); - Tmp1__=Uname__+'='+string(Tmp__(1)); - execstr(Tmp1__); - Tmp1__=Vname__+'='+string(Tmp__(2)) - execstr(Tmp1__); - Tmp2__=evstr(Xyzstr__); - Tmp3__=Parapt(Tmp2__); - if I__==1 - PtkL__=[Tmp2__]; - PthL__=[Tmp3__]; - else - Tmp4__=PthL__(size(PthL__,1),:); - if norm(Tmp3__-Tmp4__)>Eps0__ - PtkL__=[PtkL__;Tmp2__]; - PthL__=[PthL__;Tmp3__] - end; - end; - end; - if size(PthL__,1)==0 then // from 20140628 - OutkL__=[]; - return; - end; // upto 20140628 - Ps__=PthL__(1,:); Pe__=PthL__(size(PthL__,1),:); - Cflg__=0; - if norm(Ps__-Pe__)<Eps__ Cflg__=1; end; - CuspL__=[]; - Cva__=cos(10*%pi/180); - for I__=1:size(PthL__,1)-1 - if size(PthL__,1)==2 break; end; - Tmp__=PthL__(I__,:); - if I__==1 - if Cflg__==0 continue; end; - Tmp1__=PthL__(size(PthL__,1)-1,:); - else - Tmp1__=PthL__(I__-1,:); - end; - Tmp2__=PthL__(I__+1,:); - V1__=Tmp__-Tmp1__; - V2__=Tmp2__-Tmp__; - Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2); - Tmp3__=Tmp3__/(norm(V1__)*norm(V2__)); - Cuspflg__=0; - if Tmp3__<Cva__ - P__=PthL__(I__,:); - Kaku__=acos(Tmp3__)*180/%pi; - if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 - Kaku__=-Kaku__ - end; - Cuspflg__=0; - for J__=I__+1:size(PthL__,1)-1 - if abs(Kaku__)>90 - Cuspflg__=1; - break - end; - Q__=PthL__(J__,:); - if norm(P__-Q__)>Eps__ - break - end; - V1__=Q__-PthL__(J__-1,:); - V2__=PthL__(J__+1,:)-Q__; - Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2); - Tmp3__=Tmp3__/(norm(V1__)*norm(V2__)); - Tmp__=acos(Tmp3__)*180/%pi; - if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 - Tmp__=-Tmp__ - end; - Kaku__=Kaku__+Tmp__ - end; - if Cuspflg__==1 - Tmp__=Trunc((I__+J__)*0.5); - I__=J__; - if length(CuspL__)==0 - CuspL__=[Tmp__] - else - CuspL__=[CuspL__,Tmp__]; - end; - end; - end; - end; - if Cflg__==0 - CuspL__=[1,CuspL__,size(PthL__,1)]; - elseif length(CuspL__)==0 - CuspL__=[1,size(PthL__,1)]; - elseif CuspL__(1)==1 - CuspL__=[CuspL__,size(PthL__,1)]; - else - Tmp__=CuspL__(1); - Tmp1__=size(PthL__,1); - PthL__=[PthL__(Tmp__:Tmp1__,:);PthL__(2:Tmp__,:)]; - PtkL__=[PtkL__(Tmp__:Tmp1__,:);PtkL__(2:Tmp__,:)]; - CuspL__=CuspL__-Tmp__+1; - CuspL__=[CuspL__,size(PthL__,1)]; - end; - if length(CuspL__)==2 - //Outh=[plot(PthL__)]; - Tmp4__=PthL__(size(PthL__,1),:); - if size(PtkL__,1)>=2 - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__); - OutkL__=Mixadd(OutkL__,PtkL__); - end; - continue - end; - //Outh=[]; - Outk__=[]; - Is__=1; - for I__=1:length(CuspL__)-1 - Tmp1__=CuspL__(Is__); Tmp2__=CuspL__(I__+1); - Tmp3__=PthL__(Tmp1__,:); Tmp4__=PthL__(Tmp2__,:); - if norm(Tmp3__-Tmp4__)>Eps__ - //Tmph__=[op(Tmp1__..Tmp2__,PthL__)]; - Tmpk__=PtkL__(Tmp1__:Tmp2__,:); - //Outh=[op(Outh),plot(Tmph__)]; - Outk__=Mixadd(Outk__,Tmpk__); - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__); - Is__=I__+1; - end; - end; - OutkL__=Mixjoin(OutkL__,Outk__); - end; - Tmp1__=Dropnumlistcrv(Projpara(OutkL__),Eps__*0.5); - Tmp__=[]; - for I__=1:Mixlength(OutkL__) - Tmp2__=Mixop(I__,OutkL__); - Tmp3__=Mixop(I__,Tmp1__); - Tmp4__=[]; - for J__=1:length(Tmp3__) - Tmp5__=Tmp2__(Tmp3__(J__),:); - Tmp4__=[Tmp4__;Tmp5__]; - end; - if Tmp4__~=[] - Tmp__=Mixadd(Tmp__,Tmp4__); - end; - end; - OutkL__=Tmp__; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.bin Binary files differdeleted file mode 100644 index 4f20be30..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci deleted file mode 100644 index a8221f5b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci +++ /dev/null @@ -1,176 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 10.02.16 Eps__ -// 13.11.01 ( __ added to varibles ) -// 14.06.28 debug in the case of no cusp - -function OutkL__=Cuspsplitpers(varargin); - global CUSPSPLITPT; - Nargs__=length(varargin); - Gdxy__=varargin(1); - if Mixtype(Gdxy__)==1 - Gdxy__=Mix(Gdxy__); - end; - Fd__=varargin(2); - FdL__=Fullformfunc(Fd__); - Eps__0=10^(-5); - Eps__=0.05; - if Nargs__>2 Eps__=varargin(3); end; - if length(Eps__)>1 // - Eps__=Eps__(1); - end; // - Fxy__=Mixop(1,FdL__); N=2; - Tmp__1=Mixop(2,FdL__); - Tmp__2=Mixop(3,FdL__); - Tmp__3=Mixop(4,FdL__); - Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - CUSPSPLITPT=[]; - OutkL__=[]; - for Ng__=1:Mixlength(Gdxy__) - PtxyL__=Mixop(Ng__,Gdxy__); - PtkL__=[]; - PthL__=[]; - for I__=1:size(PtxyL__,1) - Tmp__=PtxyL__(I__,:); - Tmp__1=Uname__+'='+string(Tmp__(1)); - execstr(Tmp__1); - Tmp__1=Vname__+'='+string(Tmp__(2)) - execstr(Tmp__1); - Tmp__2=evstr(Xyzstr__); - Tmp__3=Perspt(Tmp__2); - if I__==1 - PtkL__=[Tmp__2]; - PthL__=[Tmp__3]; - else - Tmp__4=PthL__(size(PthL__,1),:); - if norm(Tmp__3-Tmp__4)>Eps__0 - PtkL__=[PtkL__;Tmp__2]; - PthL__=[PthL__;Tmp__3] - end; - end; - end; - if size(PthL__,1)==0 then // from 20140628 - OutkL__=[]; - return; - end; // upto 20140628 - Ps__=PthL__(1,:); Pe=PthL__(size(PthL__,1),:); - Cflg__=0; - if norm(Ps__-Pe)<Eps__ Cflg__=1; end; - CuspL__=[]; - Cva__=cos(10*%pi/180); - for I__=1:size(PthL__,1)-1 - if size(PthL__,1)==2 break; end; - Tmp__=PthL__(I__,:); - if I__==1 - if Cflg__==0 continue; end; - Tmp__1=PthL__(size(PthL__,1)-1,:); - else - Tmp__1=PthL__(I__-1,:); - end; - Tmp__2=PthL__(I__+1,:); - V1__=Tmp__-Tmp__1; - V2__=Tmp__2-Tmp__; - Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2); - Tmp__3=Tmp__3/(norm(V1__)*norm(V2__)); - Cuspflg__=0; - if Tmp__3<Cva__ - P__=PthL__(I__,:); - Kaku__=acos(Tmp__3)*180/%pi; - if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 - Kaku__=-Kaku__ - end; - Cuspflg__=0; - for J__=I__+1:size(PthL__,1)-1 - if abs(Kaku__)>90 - Cuspflg__=1; - break - end; - Q__=PthL__(J__,:); - if norm(P__-Q__)>Eps__ - break - end; - V1__=Q__-PthL__(J__-1,:); - V2__=PthL__(J__+1,:)-Q__; - Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2); - Tmp__3=Tmp__3/(norm(V1__)*norm(V2__)); - Tmp__=acos(Tmp__3)*180/%pi; - if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 - Tmp__=-Tmp__ - end; - Kaku__=Kaku__+Tmp__ - end; - if Cuspflg__==1 - Tmp__=Trunc((I__+J__)*0.5); - I__=J__; - if length(CuspL__)==0 - CuspL__=[Tmp__] - else - CuspL__=[CuspL__,Tmp__]; - end; - end; - end; - end; - if Cflg__==0 - CuspL__=[1,CuspL__,size(PthL__,1)]; - elseif length(CuspL__)==0 - CuspL__=[1,size(PthL__,1)]; - elseif CuspL__(1)==1 - CuspL__=[CuspL__,size(PthL__,1)]; - else - Tmp__=CuspL__(1); - Tmp__1=size(PthL__,1); - PthL__=[PthL__(Tmp__:Tmp__1,:);PthL__(2:Tmp__,:)]; - PtkL__=[PtkL__(Tmp__:Tmp__1,:);PtkL__(2:Tmp__,:)]; - CuspL__=CuspL__-Tmp__+1; - CuspL__=[CuspL__,size(PthL__,1)]; - end; - if length(CuspL__)==2 - //Outh__=[plot(PthL__)]; - Tmp__4=PthL__(size(PthL__,1),:); - if size(PtkL__,1)>=2 - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4); - OutkL__=Mixadd(OutkL__,PtkL__); - end; - continue - end; - //Outh__=[]; - Outk__=[]; - Is__=1; - for I__=1:length(CuspL__)-1 - Tmp__1=CuspL__(Is__); Tmp__2=CuspL__(I__+1); - Tmp__3=PthL__(Tmp__1,:); Tmp__4=PthL__(Tmp__2,:); - if norm(Tmp__3-Tmp__4)>Eps__ - //Tmp__h=[op(Tmp__1..Tmp__2,PthL__)]; - Tmp__k=PtkL__(Tmp__1:Tmp__2,:); - //Outh__=[op(Outh__),plot(Tmp__h)]; - Outk__=Mixadd(Outk__,Tmp__k); - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4); - Is__=I__+1; - end; - end; - OutkL__=Mixjoin(OutkL__,Outk__); - end; - Tmp__1=Dropnumlistcrv(Projpers(OutkL__),Eps__*0.5); - Tmp__=[]; - for I__=1:Mixlength(OutkL__) - Tmp__2=Mixop(I__,OutkL__); - Tmp__3=Mixop(I__,Tmp__1); - Tmp__4=[]; - for J__=1:length(Tmp__3) - Tmp__5=Tmp__2(Tmp__3(J__),:); - Tmp__4=[Tmp__4;Tmp__5]; - end; - if Tmp__4~=[] - Tmp__=Mixadd(Tmp__,Tmp__4); - end; - end; - OutkL__=Tmp__; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.bin Binary files differdeleted file mode 100644 index 48b89428..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci deleted file mode 100644 index fa26b319..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.10.15 - -function Out=Cutsf2d(Nvec,GL,Flg) - global THETA PHI - Theta=THETA; Phi=PHI; - Tmp=Rotate3data(GL,Nvec,[-1,0,0]); - THETA=%pi/2; PHI=0; - Out=Projpara(Tmp); - if Flg==1 - Windisp(Out); - end; - THETA=Theta; PHI=Phi; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin Binary files differdeleted file mode 100644 index b20f8311..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci deleted file mode 100644 index 1df8e5e3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci +++ /dev/null @@ -1,31 +0,0 @@ -// 08.05.21 -// 08.07.14 -// 10.01.02 bin remade -// 10.11.13 Flattenlist used - -function Dashline(varargin) - global MilliIn - Nargs=length(varargin); - Nall=Nargs; Sen=1 ; Gap=1; - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 - Tmp1=varargin(Nall-1); - if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 - Sen=Tmp1; Gap=Tmp; - Nall=Nall-2; - else - Sen=Tmp; Gap=Sen; - Nall=Nall-1; - end - end - Sen=1000/2.54/MilliIn*Sen; - Gap=1000/2.54/MilliIn*Gap; - for N=1:Nall - Tmp=varargin(N); - Fdata=Flattenlist(Tmp); - for I=1:length(Fdata); - Figdata=Fdata(I); - Makehasen(Figdata,Sen,Gap,0); - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin Binary files differdeleted file mode 100644 index fc463260..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci deleted file mode 100644 index 82e9ac48..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci +++ /dev/null @@ -1,24 +0,0 @@ -// -// 08.05.31 - -function Ndm=Dataindex(P) - // %inf;%inf -> end - Ndm=[]; - if P==[] return; end - N1=1; - Flg=0; - for J=1:size(P,1) - if P(J,1)==%inf - Ndm=[Ndm;N1,J-1]; - N1=J+1; - if P(N1,1)==%inf - Flg=1; - break; - end - end - end - if Flg==0 - Ndm=[Ndm;N1,size(P,1)]; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin Binary files differdeleted file mode 100644 index 5069d551..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci deleted file mode 100644 index b06ac44b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci +++ /dev/null @@ -1,23 +0,0 @@ -// 15.05.04 - -function Definecolor(Name,Data) - Tmp1=size(Data,2); - if Tmp1<3 | Tmp1>4 - disp("Size of data should be 3 or 4."); - return; - end; - if Tmp1==4 - Tp="cmyk" - else - Tp="rgb" - end; - Tmp=""; - for J=1:Tmp1 - Tmp=Tmp+string(Data(J)); - if J<Tmp1 - Tmp=Tmp+","; - end; - end - Tmp="\definecolor{"+Name+"}{"+Tp+"}{"+Tmp+"}"; - Texcom(Tmp); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.bin Binary files differdeleted file mode 100644 index 1935267f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci deleted file mode 100644 index 43d8ea6e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci +++ /dev/null @@ -1,195 +0,0 @@ - -// 08.09.22 -// 09.03.10 -// 09.10.09 ( ` and order ) -// 09.10.09b ( system ) -// 09.11.12 ( debug for x<0 ) -// 13.10.19 ( __ added to variables ) -// 15.11.16 N changed to number of intervals -// 15.12.08 bug of optiion ( __ ) fixed - -function P__=Deqplot(varargin) - global XMIN XMAX YMIN YMAX - Nargs__=length(varargin); - Eps__=10^(-5); - Fnstr__=varargin(1); - Fnstr__=strsubst(Fnstr__,Prime(),'`'); - K__=mtlb_findstr(Fnstr__,'='); - Str__=part(Fnstr__,1:(K__-1)); - Fnstr__=part(Fnstr__,(K__+1):length(Fnstr__)); - JL__=mtlb_findstr(Str__,'`'); - Yname__=part(Str__,1:(JL__(1)-1)); - Yname__=strsubst(Yname__,',',';'); - Tmp__=mtlb_findstr(Yname__,';'); - if length(Tmp__)>0 - Dim__=length(Tmp__)+1; - Order__=1; - Fnstr__=strsubst(Fnstr__,',',';'); - else - Dim__=1; - Order__=length(JL__); - end; - Rgstr__=varargin(2); - K__=mtlb_findstr(Rgstr__,'='); - if K__~=[] - Xname__=part(Rgstr__,1:K__-1); - Rng__=evstr(part(Rgstr__,K__+1:length(Rgstr__))); - else - Xname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end; - X0__=varargin(3); - Y0__=varargin(4); - if size(Y0__,2)>1 - Y0__=Y0__'; - end; - N__=50; - if Nargs__>=5 - Tmp__=varargin(5); - Tmp__=strsubst(Tmp__,"=","__="); // 15.12.08 - Tmp__=strsubst(Tmp__,"____","__"); - execstr(Tmp__); - end; - X1__=Rng__(1); X2__=Rng__(2); - dX__=(X2__-X1__)/(N__-1); - dX__=(X2__-X1__)/(N__); // 15.11.16 - if Dim__>1 - Tmp__=mtlb_findstr(Yname__,'['); - Data__=part(Yname__,Tmp__+1:length(Yname__)); - Tmp__=mtlb_findstr(Data__,']'); - Data__=part(Data__,1:Tmp__-1); - Data__=';'+Data__+';'; - NL__=mtlb_findstr(Data__,';'); - NameL__=list(); - for I__=1:length(NL__)-1 - Tmp__=part(Data__,NL__(I__)+1:NL__(I__+1)-1); - NameL__(I__)=Tmp__; - end; - Fnrep__=Fnstr__; - for I__=1:length(NameL__) - Tmp__=NameL__(I__); - Fnrep__=strsubst(Fnrep__,Tmp__,'Pt('+string(I__)+')'); - end; - Tmp1__='Outf=Dfp__('+Xname__+',Pt)'; - Tmp2__='Outf='+Fnrep__; - deff(Tmp1__,Tmp2__); - Y0p__=Y0__; - Tmp1__='Outf=Dfn__('+Xname__+',Pt)'; - Tmp2__='Outf=-('+Fnrep__+')'; - deff(Tmp1__,Tmp2__); - Y0n__=Y0__; - else - YL__=mtlb_findstr(Fnstr__,Yname__); - Fnrep__=part(Fnstr__,1:YL__(1)-1); - for I__=1:length(YL__) - Py__=YL__(I__); - J__=1; - K__=Py__+1; - while part(Fnstr__,K__:K__)=='`' - J__=J__+1; K__=K__+1; - end; - Fnrep__=Fnrep__+Yname__+'('+string(J__)+')'; - if I__==length(YL__) - Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__)); - else - J__=YL__(I__+1)-1; - if J__>=K__ - Fnrep__=Fnrep__+part(Fnstr__,K__:J__); - end; - end; - end; - Eqvec__='['; - for I__=1:Order__-1 - Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');'; - end; - Eqvec__=Eqvec__+Fnrep__+']'; - Tmp1__='Outf=Dfp__('+Xname__+','+Yname__+')'; - Tmp2__='Outf='+Eqvec__; - deff(Tmp1__,Tmp2__); - Y0p__=Y0__; - YL__=mtlb_findstr(Fnstr__,Yname__); - Fnrep__=part(Fnstr__,1:YL__(1)-1); - for I__=1:length(YL__) - Py__=YL__(I__); - J__=1; - K__=Py__+1; - while part(Fnstr__,K__:K__)=='`' - J__=J__+1; K__=K__+1; - end; - if modulo(J__,2)==1 - Fnrep__=Fnrep__+Yname__+'('+string(J__)+')'; - else - Fnrep__=Fnrep__+'(-'+Yname__+'('+string(J__)+'))'; - end; - if I__==length(YL__) - Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__)); - else - J__=YL__(I__+1)-1; - if J__>=K__ - Fnrep__=Fnrep__+part(Fnstr__,K__:J__); - end; - end; - end; - if modulo(Order__,2)==1 - Fnrep__='-('+Fnrep__+')'; - end; - Fnrep__=strsubst(Fnrep__,Xname__,'(-'+Xname__+')'); // 09.11.12 - Eqvec__='['; - for I__=1:Order__-1 - Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');'; - end; - Eqvec__=Eqvec__+Fnrep__+']'; - Tmp1__='Outf=Dfn__('+Xname__+','+Yname__+')'; - Tmp2__='Outf='+Eqvec__; - deff(Tmp1__,Tmp2__); - Y0n__=[]; - for I__=1:size(Y0__,1) - Y0n__=[Y0n__;(-1)^(I__-1)*Y0__(I__)]; - end; - end; - if X0__<=X1__ - X__=X1__:dX__:X2__; - Y__=ode(Y0p__,X0__,X__,Dfp__); - M__=min(size(X__,2),size(Y__,2)); - if Dim__>1 - PL__=Y__'; - P__=PL__(1:M__,:); - else - P__=[X__(:,1:M__);Y__(1,1:M__)]'; - end; - return; - end; - if X2__<=X0__ - X__=(-X2__):dX__:(-X1__); - Y__=ode(Y0n__,-X0__,X__,Dfn__); - X__=-X__; - M__=min(size(X__,2),size(Y__,2)); - if Dim__>1 - PL__=Y__'; - P__=PL__(1:M__,:); - else - P__=[X__(:,1:M__);Y__(1,1:M__)]'; - end; - return; - end; - XP__=X0__:dX__:X2__; - YP__=ode(Y0p__,X0__,XP__,Dfp__); - M__=min(size(XP__,2),size(YP__,2)); - XP__=XP__(:,1:M__); - YP__=YP__(:,1:M__); - XN__=(-X0__)+dX__:dX__:(-X1__); - YN__=ode(Y0n__,-X0__,XN__,Dfn__); - M__=min(size(XN__,2),size(YN__,2)); - XN__=XN__(:,1:M__); - YN__=YN__(:,1:M__); - XN__=-XN__; - XN__=XN__(length(XN__):-1:1); - YN__=YN__(:,size(YN__,2):-1:1); - if Dim__>1 - P__=[YN__';YP__'] - else - X__=[XN__,XP__]; - Y__=[YN__(1,:),YP__(1,:)]; - P__=[X__;Y__]'; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.bin Binary files differdeleted file mode 100644 index b4f3edb7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci deleted file mode 100644 index cbffc3d7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci +++ /dev/null @@ -1,64 +0,0 @@ -// 09.10.04 -// 09.10.05 -// 09.10.06 -// 14.10.24 numderivative used after 5.5 - -function Out=Derivative(varargin) - Nargs=length(varargin); - Out=[]; - Fs=varargin(1); - Vv=varargin(2); - Np=3; - if type(Vv)==10 - Prstr=strsubst(Vv,'[','('); - Prstr=strsubst(Prstr,']',')'); - Tmp=part(Prstr,1); - if Tmp~='(' - Prstr='('+Prstr+')'; - end; - deff('Out=Tmpfun'+Prstr,'Out='+Fs); - Fs='Tmpfun'+Prstr; - Vv=varargin(Np); - Np=Np+1; - end; - Nd=[]; - if Np<=Nargs - Nd=varargin(Np); - end; - Js=mtlb_findstr(Fs,'('); - JL=mtlb_findstr(Fs,','); - Je=mtlb_findstr(Fs,')'); - Sep=[Js(1),JL,Je]; - Fse=Fs; - for I=1:length(Vv) - J1=Sep(I)+1; - J2=Sep(I+1)-1; - Tmp1=part(Fs,J1:J2); - Tmp2='X_'+string(I); - Fse=strsubst(Fse,Tmp1,Tmp2); - end; - function Ans=Tmpf(W) - X1=W(1); - if length(W)>1 - X2=W(2); - else; - X2=%inf; - end; - if length(W)>2 - X3=W(3); - else - X3=%inf; - end; - Tmp=Assign(Fse,'X_1',X1,'X_2',X2,'X_3',X3); - Ans=evstr(Tmp)'; - endfunction; - Tmp1=getversion("scilab"); - if Tmp1(1)*10+Tmp1(2)>=55 then - Out=numderivative(Tmpf,Vv')'; - else - Out=derivative(Tmpf,Vv')'; - end - if Nd~=[] - Out=Out(Nd,:) - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin Binary files differdeleted file mode 100644 index 8854f5a7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci deleted file mode 100644 index b6a53b62..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 10.03.28 - -function Out=Diagcelldata(Tb,Nc,Nr) - Tmp=Findcell(Tb,Nc,Nr); - C=Tmp(1); - Dx=Tmp(2); - Dy=Tmp(3); - Pne=C+[Dx,Dy]; - Pnw=C+[-Dx,Dy]; - Psw=C+[-Dx,-Dy]; - Pse=C+[Dx,-Dy]; - Tmp1=Listplot(Pnw,Pse); - Tmp2=Listplot(Pne,Psw); - Out=list(Tmp1,Tmp2); -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin Binary files differdeleted file mode 100644 index 91415a88..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci deleted file mode 100644 index be16b473..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 08.05.31 -// 10.01.01 -// 11.01.07 - -function OutL=Dividegraphics(Pd) - if length(Pd)==0 - OutL=Pd; - return; - end; - DtL=Flattenlist(Pd); - OutL=list(); - for J=1:length(DtL) - Dt= DtL(J); - Ndm=Dataindex(Dt); - for I=1:size(Ndm,1) - Fd=Dt(Ndm(I,1):Ndm(I,2),:); - OutL($+1)=Fd; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin Binary files differdeleted file mode 100644 index 7b1b6ff3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci deleted file mode 100644 index 36531da2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci +++ /dev/null @@ -1,9 +0,0 @@ -// 13.05.03 - -function Out=Dividetable(Tb) - G=Tb(1); - Gw=G(1); - Gt=Mixsub(Tb(2),G); - Gy=Mixsub(Tb(3),G); - Out=list(Gw,Gt,Gy) -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin Binary files differdeleted file mode 100644 index c7f08dda..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci deleted file mode 100644 index 5054faf2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 09.12.25 - -function Out=Doscaling(G) - global LOGX LOGY SCALEX SCALEY; - GLg=G; - if LOGX==1 - GLg=[log10(G(:,1)),GLg(:,2)]; - end; - if LOGY==1 - GLg=[GLg(:,1),log10(G(:,2))]; - end; - Out=[SCALEX*GLg(:,1),SCALEY*GLg(:,2)]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin Binary files differdeleted file mode 100644 index 489764ae..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci deleted file mode 100644 index fc2847c7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci +++ /dev/null @@ -1,186 +0,0 @@ -// 08.05.31 -// 10.01.01 -// 10.03.07 (Kosa ) - -function ShaL=Dotfilldata(varargin) - global XMIN XMAX YMIN YMAX MilliIn; - Nargs=length(varargin); - ShaL=[]; - Eps=0.01; - Kakudo=45; - Kosa=0.5; - Tmp=Doscaling([XMIN,YMIN]); - Xmn=Tmp(1); Ymn=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - Xmx=Tmp(1); Ymx=Tmp(2); - for N=Nargs:-1:1 - Tmp=varargin(N); - if Mixtype(Tmp)~=1 - break - end - end - if N<Nargs - Kosa=varargin(N+1); - end -// Kosa=min(Kosa,1); // 100307 - Tmp=1/(2*Kosa); - Kankaku=Tmp*0.100*1000/2.54/MilliIn; - NaitenL=varargin(1); - if Mixtype(NaitenL)==1 - NaitenL=list(NaitenL); - end - Ns=2; - StartP=Op(1,NaitenL); - if type(StartP)==10 - StartP=[(XMIN+XMAX)/2,(YMIN+YMAX)/2]; - else - StartP=Doscaling(StartP); - end; - Tmp=varargin(2); - if Mixtype(Tmp)==1 - StartP=Doscaling(Tmp); - Ns=3; - end - Tmp=[]; - for I=Ns:N - Tmp=Mixjoin(Tmp,list(varargin(I))); - end - Bdy=Kyoukai(Tmp); - Bdys=list(); - for I=1:length(Bdy) - Tmp1=Bdy(I); - Tmp2=Doscaling(Tmp1); - Bdys=Mixjoin(Bdys,list(Tmp2)) - end; - Bdy=Bdys; - PtnL=[]; - for I=1:length(NaitenL) - Tmp=Op(I,NaitenL); - if type(Tmp)==1 - Tmp1=Naigai(Tmp,Bdy) - PtnL=Mixjoin(PtnL,list(Tmp1)); - else - if type(Tmp)~=10 - disp('Type Error'); - return; - end - Ptn=[]; - for J=1:length(Tmp) - if Op(J,Tmp)=='i' - Ptn=[Ptn,1]; - else - Ptn=[Ptn,0]; - end - end - PtnL=Mixjoin(PtnL,list(Ptn)); - end - end - Call=length(Bdy); - Ptn=zeros(1,Call); - if Member(Ptn,PtnL) - Wn=Doscaling(Framedata()); - Bdy=Mixjoin(Bdy,list(Wn)); - Tmp=[]; - for I=1:Mixlength(PtnL) - Tmp1=[Op(I,PtnL),1]; - Tmp=Mixjoin(Tmp,list(Tmp1)); - end - PtnL=Tmp; - end - V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)]; - Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)]; - Tmp=Op(1,NaitenL); - if type(Tmp)==1 & size(Tmp,2)>1 - Delta=Tmp-StartP; - K=Trunc(Dotprod(Delta,Vm)/Kankaku); - PA=StartP+K*Kankaku*Vm; - P=PA; - Sha=Makeshasen(PtnL,P,V,Bdy); - Sha=Dividegraphics(Sha); - I=1; - while length(Sha)~=0 - for J=1:length(Sha) - Tmp=Op(J,Sha); - Q=Tmp(1,:); - R=Tmp(2,:); - Tmp=Dotprod(Q-P,V)/Kankaku; - K1=ceil(Tmp); - if abs(K1-Tmp)<Eps K1=K1+1; end - Tmp=Dotprod(R-P,V)/Kankaku; - K2=floor(Tmp); - if abs(Tmp-K2)<Eps K2=K2-1; end - for K=K1:K2 - Tmp1=Pointdata(P+K*Kankaku*V) - ShaL=Mixjoin(ShaL,list(Tmp1)); - end - end - P=PA+I*Kankaku*Vm; - Sha=Makeshasen(PtnL,P,V,Bdy); - Sha=Dividegraphics(Sha); - I=I+1; - end - P=PA-Kankaku*Vm; - Sha=Makeshasen(PtnL,P,V,Bdy); - I=2; - while length(Sha)~=0 - for J=1:length(Sha) - Tmp=Op(J,Sha); - Q=Tmp(1,:); - R=Tmp(2,:); - Tmp=Dotprod(Q-P,V)/Kankaku; - K1=ceil(Tmp); - if abs(K1-Tmp)<Eps K1=K1+1; end - Tmp=Dotprod(R-P,V)/Kankaku; - K2=floor(Tmp); - if abs(Tmp-K2)<Eps K2=K2-1; end - for K=K1:K2 - Tmp1=Pointdata(P+K*Kankaku*V) - ShaL=Mixjoin(ShaL,list(Tmp1)); - end - end - P=PA-I*Kankaku*Vm; - Sha=Makeshasen(PtnL,P,V,Bdy); - I=I+1; - end - else - Delta=[Xmn,Ymn]-StartP; - K1=Trunc(Dotprod(Delta,Vm)/Kankaku); - Delta=[Xmx,Ymn]-StartP; - K2=Trunc(Dotprod(Delta,Vm)/Kankaku); - Delta=[Xmx,Ymx]-StartP; - K3=Trunc(Dotprod(Delta,Vm)/Kankaku); - Delta=[Xmn,Ymx]-StartP; - K4=Trunc(Dotprod(Delta,Vm)/Kankaku); - IM=max(K1,K2,K3,K4); - Im=min(K1,K2,K3,K4); - for I=Im:IM - P=StartP+I*Kankaku*Vm; - Sha=Makeshasen(PtnL,P,V,Bdy); - Sha=Dividegraphics(Sha); - if length(Sha)>0 - for J=1:length(Sha) - Tmp=Op(J,Sha); - Q=Tmp(1,:); - R=Tmp(2,:); - Tmp=Dotprod(Q-P,V)/Kankaku; - K1=ceil(Tmp); - if abs(K1-Tmp)<Eps K1=K1+1; end - Tmp=Dotprod(R-P,V)/Kankaku; - K2=floor(Tmp); - if abs(Tmp-K2)<Eps K2=K2-1; end - for K=K1:K2 - Tmp1=Pointdata(P+K*Kankaku*V) - ShaL=Mixjoin(ShaL,list(Tmp1)); - end - end - end - end - end - ShaLs=list(); - for I=1:length(ShaL) - Tmp=ShaL(I); - Tmp1=Unscaling(Tmp); - ShaLs=Mixjoin(ShaLs,Tmp1); - end; - ShaL=ShaLs -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.bin Binary files differdeleted file mode 100644 index fe44d95c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci deleted file mode 100644 index dc35fde5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci +++ /dev/null @@ -1,6 +0,0 @@ -// 09.10.03 - -function Out=Dotprod(a,b) - Out=a*b'; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.bin Binary files differdeleted file mode 100644 index a678c346..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci deleted file mode 100644 index 7e4ea8a1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci +++ /dev/null @@ -1,133 +0,0 @@ -// 08.05.21 -// 08.11.26 -// 09.12.24 (Revised) -// 09.12.29 -// 10.01.02 - -function Dottedline(varargin) - global Wfile FID MilliIn PenThick PenThickInit - Nall=length(varargin); - Nagasa=0.1; - Ookisa=PenThick; - I=Nall; - Tmp=varargin(I); - while type(Tmp)==1 & length(Tmp)==1 - I=I-1; - Tmp=varargin(I); - end - if I==Nall-1 - Nagasa=Nagasa*varargin(Nall); - Nall=Nall-1; - end - if I==Nall-2 - Nagasa=Nagasa*varargin(Nall-1); - Ookisa=round(Ookisa*varargin(Nall)); - Nall=Nall-2; - end - Nagasa=1000/2.54/MilliIn*Nagasa; - for N=1:Nall - Tmp=varargin(N); - Pdata=Flattenlist(Tmp); // - for II=1:Mixlength(Pdata) - Clist=MakeCurves(Op(II,Pdata)); - DinM=Dataindex(Clist); - for n=1:size(DinM,1) - Tmp=DinM(n,:); - Data=Clist(Tmp(1):Tmp(2),:); - Len=0; - Lenlist=[0]; - for I=2:size(Data,1) - Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); - Lenlist=[Lenlist,Len]; - end - Lenall=Lenlist(length(Lenlist)); - if Lenall==0 - continue - end - Naga=Nagasa; - Nten=round(Lenall/Naga)+1; - if Nten>1 - Seg=Lenall/(Nten-1); - else - Seg=Lenall; - end - Eps=10^(-6)*Seg; - PPd=[]; - Hajime=1; - for I=0:Nten-1 - Len=Seg*I; - if I>0 - J=Hajime; - while Len>=Lenlist(J)+Eps - J=J+1; - end - Hajime=J-1; - end - T=(Len-Lenlist(Hajime))... - /(Lenlist(Hajime+1)-Lenlist(Hajime)); - P=Data(Hajime,:)+T*(Data(Hajime+1,:)... - -Data(Hajime,:)); - PPd=[PPd;P]; - if I==Nten-1 - if norm(P-Data(1,:))<Eps - continue - end - end - end - Str='\special{pn '+string(Ookisa)+'}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - for I=1:size(PPd,1) - P=PPd(I,:); - if size(PPd,1)==1 - V=[1,0]; - elseif I==1 - Tmp=PPd(I+1,:)-P; - V=1/norm(Tmp)*Tmp; - elseif I==size(PPd,1) - Tmp= P-PPd(I-1,:); - V=1/norm(Tmp)*Tmp; - else - Tmp1=PPd(I+1,:)-P; - Tmp2=P-PPd(I-1,:); - Tmp3=1/norm(Tmp1)*Tmp1+1/norm(Tmp2)*Tmp2; - V=1/norm(Tmp3)*Tmp3; - end; - Tmp=round(MilliIn*P(1)-1/2*Ookisa*V(1)); - X=string(Tmp); - Tmp=-round(MilliIn*P(2)-1/2*Ookisa*V(2)); - Y=string(Tmp); - Str='\special{pa '+X+' '+Y+'}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Tmp=round(MilliIn*P(1)+1/2*Ookisa*V(1)); - X=string(Tmp); - Tmp=-round(MilliIn*P(2)+1/2*Ookisa*V(2)); - Y=string(Tmp); - Str='\special{pa '+X+' '+Y+'}'; - if Wfile=='default' - mprintf('%s',Str); - mprintf('%s','\special{fp}'); - if modulo(I,2)==0 - mprintf('%s\n','%'); - end; - else - mfprintf(FID,'%s',Str); - mfprintf(FID,'%s','\special{fp}'); - if modulo(I,2)==0 - mfprintf(FID,'%s\n','%'); - end; - end - end - end - end; - end; - Tmp=PenThick/PenThickInit; - Setpen(Tmp); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.bin Binary files differdeleted file mode 100644 index 5871fcc7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci deleted file mode 100644 index c4d9b86a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci +++ /dev/null @@ -1,115 +0,0 @@ -// 08.05.21 -// 08.11.26 - -function Dottedline(varargin) - global Wfile FID MilliIn; - Nall=length(varargin); - Nagasa=0.1; - Ookisa=0.02*0.5; - I=Nall; - Tmp=varargin(I); - while type(Tmp)==1 & length(Tmp)==1 - I=I-1; - Tmp=varargin(I); - end - if I==Nall-1 - Nagasa=Nagasa*varargin(Nall); - Nall=Nall-1; - end - if I==Nall-2 - Nagasa=Nagasa*varargin(Nall-1); - Ookisa=Ookisa*varargin(Nall); - Nall=Nall-2; - end - Nagasa=1000/2.54/MilliIn*Nagasa; - Ookisa=1000/2.54/MilliIn*Ookisa; - CL=[]; - Nk=4; - Tmp=Framedata([0,0],Ookisa/2); - CL=Tmp; - for N=1:Nall - Pdata=varargin(N); - if Mixtype(Pdata)==1 - Pdata=MixS(Pdata); - end - for II=1:Mixlength(Pdata) - Clist=MakeCurves(Op(II,Pdata)); - DinM=Dataindex(Clist); - for n=1:size(DinM,1) - Tmp=DinM(n,:); - Data=Clist(Tmp(1):Tmp(2),:); - Len=0; - Lenlist=[0]; - for I=2:size(Data,1) - Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); - Lenlist=[Lenlist,Len]; - end - Lenall=Lenlist(length(Lenlist)); - if Lenall==0 - continue - end - Naga=Nagasa; - Nten=round(Lenall/Naga)+1; - if Nten>1 - Seg=Lenall/(Nten-1); - else - Seg=Lenall; - end - Eps=10^(-6)*Seg; - Hajime=1; - for I=0:Nten-1 - Len=Seg*I; - if I>0 - J=Hajime; - while Len>=Lenlist(J)+Eps - J=J+1; - end - Hajime=J-1; - end - T=(Len-Lenlist(Hajime))... - /(Lenlist(Hajime+1)-Lenlist(Hajime)); - P=Data(Hajime,:)+T*(Data(Hajime+1,:)... - -Data(Hajime,:)); - if I==Nten-1 - if Vecnagasa(P-Data(1,:))<Eps - continue - end - end - PL=[]; - for J=1:size(CL,1) - PL=[PL;P+CL(J,:)]; - end - Mojisu=0; - for J=1:size(PL,1) - Q=PL(J,:); - X=round(MilliIn*Q(1)); - X=string(X); - Y=-round(MilliIn*Q(2)); - Y=string(Y); - Str='\special{pa '+X+" "+Y+'}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%c\n','%'); - else - mfprintf(FID,'%c\n','%'); - end - Mojisu=0; - end - end - Str='\special{sh 1}'+'\special{fp}%' - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - end - end - end - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.bin Binary files differdeleted file mode 100644 index 9777c32b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci deleted file mode 100644 index 3a06be00..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 08.09.10 -// 08.09.15 -// 08.10.10 -// 10.09.03 - -function OutL=Dropnumlistcrv(QdL,Eps) - Eps0=10^(-6); // - if Mixtype(QdL)==1 - PdL=list(QdL); - else - PdL=QdL; - end; - OutL=[]; - for I=1:Mixlength(PdL) - Pd=Op(I,PdL); - PtL=[1]; - P=Pd(1,:); - for K=2:size(Pd,1)-1 // - if norm(P-Pd(K,:))>Eps - PtL=[PtL,K]; - P=Pd(K,:); - end; - end; - // PtL=[PtL,size(Pd,1)]; - K=size(Pd,1) // - if norm(P-Pd(K,:))>Eps0 // - PtL=[PtL,K]; // - end; // - if length(PtL)==1 - PtL=[]; - end; - OutL=Mixadd(OutL,PtL); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin Binary files differdeleted file mode 100644 index cf57e835..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci deleted file mode 100644 index 84fd6daa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci +++ /dev/null @@ -1,28 +0,0 @@ -// 08.10.07
-// 08.10.27
-// 09.06.02
-
-function AnsL=Droppoint(varargin)
- Nargs=length(varargin);
- Curve=varargin(1);
- Eps=0.02;
- if Nargs>=2
- Eps=varargin(2);
- end;
- AnsL=[%inf,%inf];
- for I=1:size(Curve,1)
- P=Curve(I,:);
- if P(1)~=%inf
- Tmp=AnsL(size(AnsL,1),:);
- if norm(P-Tmp)>Eps
- AnsL=[AnsL;P];
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
- AnsL=AnsL(2:size(AnsL,1),:);
- Tmp=Ptend(Curve);
- AnsL=[AnsL(1:size(AnsL,1)-1,:);Tmp];
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin Binary files differdeleted file mode 100644 index 071b7070..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci deleted file mode 100644 index 2ec407ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci +++ /dev/null @@ -1,71 +0,0 @@ -// 08.05.21
-
-function Drwline(varargin)
- global Wfile FID MilliIn PenThick PenThickInit;
- Nall=length(varargin);
- Thick=0;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1
- Thick=round(varargin(Nall)*PenThickInit);
- Str='\special{pn '+string(Thick)+'}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- Nall=Nall-1;
- end
- for N=1:Nall
- Tmp=varargin(N);
- Pdata=Flattenlist(Tmp);
- for II=1:length(Pdata)
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Mojisu=0;
- for I=1:size(Data,1)
- Tmp=Data(I,:);
- X=round(MilliIn*Tmp(1));
- X=string(X);
- Y=-round(MilliIn*Tmp(2));
- Y=string(Y);
- Str='\special{pa '+X+" "+Y+'}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end
- Mojisu=0;
- end
- end
- if Mojisu~=0
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end;
- if Wfile=='default'
- mprintf('%s\n','\special{fp}%');
- else
- mfprintf(FID,'%s\n','\special{fp}%');
- end
- end
- end
- end;
- Str='%';
- if Thick>0
- Tmp=PenThick/PenThickInit; // modified
- Setpen(Tmp);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.bin Binary files differdeleted file mode 100644 index 198c0c88..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci deleted file mode 100644 index 5cb45c6f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci +++ /dev/null @@ -1,75 +0,0 @@ -// -// 08.05.31 -// 09.12.25 -// 10.01.01 - -function Drwpt(varargin) - global Wfile FID TenSize TenSizeInit MilliIn; - Nargs=length(varargin); - if TenSize>TenSizeInit - N=round(6*sqrt(TenSize/TenSizeInit)); - else - N=4 - end - Tmp=varargin(Nargs); - if type(Tmp)==1 - if length(Tmp)>1 - Kosa=1; All=Nargs; - else - Kosa=Tmp; All=Nargs-1; - end; - elseif type(Tmp)==15 - Kosa=1; All=Nargs; - end; - CL=[]; - for J=0:N - Tmp=TenSize*0.5*1000/2.54/MilliIn; - Tmp=Tmp*[cos(%pi/4+J*2*%pi/N),sin(%pi/4+J*2*%pi/N)]; - CL=[CL;Tmp]; - end - for II=1:All - Tmp=varargin(II); - MS=Flattenlist(Tmp); // 11.05.29 - for I=1:length(MS); - P=Op(I,MS); - if InWindow(P)~='i' - continue - end - P=Doscaling(P); - PL=[]; - for J=0:N - PL=[PL;P+CL(J+1,:)]; - end; - Mojisu=0; - for J=1:size(PL,1) - Q=PL(J,:); - X=string(round(MilliIn*Q(1))); - Y=string(-round(MilliIn*Q(2))); - Str='\special{pa '+X+' '+Y+'}' - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - Mojisu=0; - end - end; - Str1='\special{sh '+string(Kosa)+'}'; - Str2='\special{fp}%'; - if Wfile=='default' - mprintf('%s',Str1); - mprintf('%s\n',Str2); - else - mfprintf(FID,'%s',Str1); - mfprintf(FID,'%s\n',Str2); - end - end - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.bin Binary files differdeleted file mode 100644 index 42407401..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci deleted file mode 100644 index b091754f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci +++ /dev/null @@ -1,17 +0,0 @@ -function Drwxy(varargin) - global XMIN XMAX YMIN YMAX GENTEN ARROWSIZE - global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ULEN; - Nargs=length(varargin) - Tmp=mtlb_findstr(ZIKU,'arrow'); - if Tmp~=[] - Arrowline([XMIN,GENTEN(2)],[XMAX,GENTEN(2)],ARROWSIZE); - Arrowline([GENTEN(1),YMIN],[GENTEN(1),YMAX],ARROWSIZE); - else - Drwline(Listplot([XMIN,GENTEN(2)],[XMAX,GENTEN(2)])); - Drwline(Listplot([GENTEN(1),YMIN],[GENTEN(1),YMAX])); - end; - Letter([XMAX,GENTEN(2)],XPOS,XNAME); - Letter([GENTEN(1),YMAX],YPOS,YNAME); - Letter(GENTEN,OPOS,ONAME); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin Binary files differdeleted file mode 100644 index dd1bf063..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci deleted file mode 100644 index 9b67e366..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.09.25 -// 09.11.21 -// 09.11.26 - -function Out=Embed(varargin) - Nargs=length(varargin); - Pd3=varargin(1); - if Mixtype(Pd3)==1 - Pd3=list(Pd3); - elseif Mixtype(Pd3)==3 - Tmp=list(); - for I=1:length(Pd3) - Tmp=Mixjoin(Tmp,Pd3(I)); - end; - Pd3=Tmp; - end; - Tmpf=varargin(2); - if type(Tmpf)==10 - Tmp=varargin(3); - Tmp1=strsubst(Tmp,'[','('); - Vstr=strsubst(Tmp1,']',')'); - deff('Z=Tmpfn'+Vstr,'Z='+Tmpf); - else - Tmpfn=Tmpf; - end; - Out=list(); - for I=1:length(Pd3) - PD=Pd3(I); - Ans=[]; - for J=1:size(PD,1) - P=PD(J,:); - Tmp=Tmpfn(P(1),P(2)); - Ans=[Ans;Tmp]; - end; - Out($+1)=Ans; - end; - if length(Out)==1 - Out=Out(1); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin Binary files differdeleted file mode 100644 index d9d9c1bf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci deleted file mode 100644 index bfc191b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci +++ /dev/null @@ -1,23 +0,0 @@ -// 08.05.31 -// 10.12.04 -// 16.12.05 to make it a closed curve - -function AnsL=Enclosing(varargin) - global MilliIn; - Eps=10^(-7); // 12.05 - Nargs=length(varargin); - P=varargin(1); - if Mixtype(P)==2 - Tmp=Op(1,P); - if type(Tmp)~=1 | length(Tmp)~=1 - AnsL=EnclosingS(P,varargin(2:Nargs)); - AnsL=Joincrvs(AnsL) // 10.12.04 - end - end; - Tmp1=Op(1,AnsL); - Tmp2=Op(size(AnsL,1),AnsL); - if norm(Tmp2-Tmp1)>Eps then // 12.05 - AnsL=[AnsL;Tmp1]; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin Binary files differdeleted file mode 100644 index 6e120c8d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci deleted file mode 100644 index cded7ef2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci +++ /dev/null @@ -1,126 +0,0 @@ -// 08.05.31 -// 08.11.12 -// 09.10.12 -// 09.10.14 -// 15.04.10 - -function AnsL=EnclosingS(varargin) - global MilliIn; - Nargs=length(varargin); - AnsL=[]; - PdataL=varargin(1); - Nall=length(PdataL); - Eps=10^(-3); - EEps=0.1; - S=[]; - Flg=0; - for I=2:Nargs - Tmp=varargin(I); - if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1 - S=Tmp; - end - if type(Tmp)==1 & length(Tmp)==1 - if Flg==0 - Eps=Tmp; - Flg=Flg+1 - else - EEps=Tmp - end - end - end - F=Op(1,PdataL); G=Op(Nall,PdataL); - KL=IntersectcrvsPp(F,G); - if length(KL)==1 - Tmp=Op(1,KL); - P=Op(1,Tmp); - T1=Op(2,Tmp); - end - if length(KL)==0 - if Numptcrv(F)>Numptcrv(G) - Tmp=Nearestpt(F,G); - P=Op(1,Tmp); - T1=Op(2,Tmp); - else - Tmp=Nearestpt(G,F); - P=Op(3,Tmp); - T1=Op(4,Tmp); - end - end - if length(KL)>1 // 15.04.10 - if S==[] - disp('No Start Point'); - return - end; - Tmp=Op(1,KL); - P=Op(1,Tmp); - T1=Op(2,Tmp); - Tmp=norm(P-S); - for I=2:length(KL) - Tmp1=Op(1,Op(I,KL)); - Tmp2=norm(Tmp1-S); - if Tmp2<Tmp - P=Tmp1; - T1=Op(2,Op(I,KL)); - Tmp=Tmp2; - end - end - end - S=P; - AnsL=[]; - for N=1:Nall - F=Op(N,PdataL); - if N>1 P=Q;end - if N==Nall - Q=S; - else - Flg=0; - G=Op(N+1,PdataL); - KL=IntersectcrvsPp(G,F); - if length(KL)==1 - Tmp=Op(1,KL); - Q=Op(1,Tmp); - T3=Op(2,Tmp); - Flg=10; - end - if length(KL)==0 Flg=1; end - if length(KL)>=2 // Maple bug? - Tmp1=Op(1,Op(1,KL)); - Tmp2=Op(1,Op(2,KL)); - Tmp=norm(Tmp1-Tmp2); - if Tmp<Eps*10 Flg=1; end - end - if Flg==1 - if Numptcrv(F)>Numptcrv(G) - Tmp=Nearestpt(F,G); - Q=Op(1,Tmp); - T3=Op(4,Tmp); - Flg=10; - else - Tmp=Nearestpt(G,F); - Q=Op(3,Tmp); - T3=Op(2,Tmp); - Flg=10; - end - end - if Flg<10 - T2=%inf; - for I=1:length(KL) - Dt=Op(I,KL); - Tmp1=Op(1,Dt); - Tmp=Op(3,Dt); - Tmp2=Paramoncrv(Tmp1,Tmp,F); - Tmp3=Op(2,Dt); - if (Tmp2>T1+Eps) & (Tmp2<T2+Eps) - Q=Tmp1; - T2=Tmp2; - T3=Tmp3; - end - end - end - end - Tmp=Partcrv(P,Q,F); - T1=T3; - AnsL=Mixadd(AnsL,Tmp); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.bin Binary files differdeleted file mode 100644 index 36e0755f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci deleted file mode 100644 index ff4a3c43..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci +++ /dev/null @@ -1,11 +0,0 @@ -// 08.05.22 - -function Endpicture(varargin) - if length(varargin)==0 - Flg=1 - else - Flg=varargin(1); - end - Closepicture(Flg) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.bin Binary files differdeleted file mode 100644 index 027661d5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci deleted file mode 100644 index b9c86eef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci +++ /dev/null @@ -1,79 +0,0 @@ -// 08.09.10 -// 13.10.21 ( __ added to varibles ) -// 17.05.21 Mdv, Ndv changed to division number - -function [Zval__,Xval__,Yval__]=Evlptablepara(MS__) - Nargs__=Mixlength(MS__); - Eps__=10^(-3); - Tmp__=Mixop(1,MS__); - FdL__=Fullformfunc(Tmp__); - Mdv=50; - Ndv__=50; - if Nargs__>=2 - Tmp__=Mixop(2,MS__); - if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end; - if length(Tmp__)>1 - Mdv__=Tmp__(1,1); - Ndv__=Tmp__(1,2); - else - Mdv__=Tmp__ - if Nargs__==2 - Ndv__=Mdv__ - else - Tmp1__=Mixop(3,MS__); - if type(Tmp1__)==1 & length(Tmp1__)==1 - Ndv__=Tmp1__; - else - Ndv__=Mdv__; - end - end - end - end; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - U1__=Urange__(1); U2__=Urange__(2); - V1__=Vrange__(1); V2__=Vrange__(2); - Du__=(U2__-U1__)/(Mdv__); //17.05.21 - Dv__=(V2__-V1__)/(Ndv__); //17.05.21 - Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)]; - I__=1; - Zval__=[]; - for v__=V1__:Dv__:V2__ - v1__=v__-Eps__/2; v2__=v__+Eps__/2; - ZuL__=[]; - for u__=U1__:Du__:U2__; - u1__=u__-Eps__/2; u2__=u__+Eps__/2; - Tmpv__=strsubst(Xyzstr__,Vname__,'v__'); - Tmp__=strsubst(Tmpv__,Uname__,'u1__'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmpv__,Uname__,'u2__'); - P2__=evstr(Tmp__); - Tmp1__=Parapt(P1__); - Tmp2__=Parapt(P2__); - Dxu__=(Tmp2__(1)-Tmp1__(1))/Eps__; - Dyu__=(Tmp2__(2)-Tmp1__(2))/Eps__; - u1__=u__-Eps__/2; u2__=u__+Eps__/2; - Tmpu__=strsubst(Xyzstr__,Uname__,'u__'); - Tmp__=strsubst(Tmpu__,Vname__,'v1__'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmpu__,Vname__,'v2__'); - P2__=evstr(Tmp__); - Tmp1__=Parapt(P1__); - Tmp2__=Parapt(P2__); - Dxv__=(Tmp2__(1)-Tmp1__(1))/Eps__; - Dyv__=(Tmp2__(2)-Tmp1__(2))/Eps__; - Tmp__=Dxu__*Dyv__-Dxv__*Dyu__; - ZuL__=[ZuL__,Tmp__]; - end; - Zval__=[Zval__;ZuL__]; - end; - Yval__=V1__:Dv__:V2__; - Xval__=U1__:Du__:U2__; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.bin Binary files differdeleted file mode 100644 index d5745d92..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci deleted file mode 100644 index 15ddd0a8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci +++ /dev/null @@ -1,77 +0,0 @@ -// 08.09.21 -// 13.11.01 ( __ added to varibles ) - -function [Zval__,Xval__,Yval__]=Evlptablepers(MS__) - Nargs__=Mixlength(MS__); - Eps__=10^(-3); - Tmp__=Mixop(1,MS__); - FdL__=Fullformfunc(Tmp__); - Mdv__=50; - Ndv__=50; - if Nargs__>=2 - Tmp__=Mixop(2,MS__); - if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end; - if length(Tmp__)>1 - Mdv__=Tmp__(1,1); - Ndv__=Tmp__(1,2); - else - Mdv__=Tmp__ - if Nargs__==2 - Ndv__=Mdv__ - else - Tmp__1=Mixop(3,MS__); - if type(Tmp__1)==1 & length(Tmp__1)==1 - Ndv__=Tmp__1; - else - Ndv__=Mdv__; - end - end - end - end; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - U1__=Urange__(1); U2__=Urange__(2); - V1__=Vrange__(1); V2__=Vrange__(2); - Du__=(U2__-U1__)/(Mdv__-1); - Dv__=(V2__-V1__)/(Ndv__-1); - Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)]; - I__=1; - Zval__=[]; - for v__=V1__:Dv__:V2__ - v__1=v__-Eps__/2; v__2=v__+Eps__/2; - ZuL__=[]; - for u__=U1__:Du__:U2__; - u__1=u__-Eps__/2; u__2=u__+Eps__/2; - Tmp__v=strsubst(Xyzstr__,Vname__,'v__'); - Tmp__=strsubst(Tmp__v,Uname__,'u__1'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmp__v,Uname__,'u__2'); - P2__=evstr(Tmp__); - Tmp__1=Perspt(P1__); - Tmp__2=Perspt(P2__); - Dxu__=(Tmp__2(1)-Tmp__1(1))/Eps__; - Dyu__=(Tmp__2(2)-Tmp__1(2))/Eps__; - u__1=u__-Eps__/2; u__2=u__+Eps__/2; - Tmp__u=strsubst(Xyzstr__,Uname__,'u__'); - Tmp__=strsubst(Tmp__u,Vname__,'v__1'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmp__u,Vname__,'v__2'); - P2__=evstr(Tmp__); - Tmp__1=Perspt(P1__); - Tmp__2=Perspt(P2__); - Dxv__=(Tmp__2(1)-Tmp__1(1))/Eps__; - Dyv__=(Tmp__2(2)-Tmp__1(2))/Eps__; - Tmp__=Dxu__*Dyv__-Dxv__*Dyu__; - ZuL__=[ZuL__,Tmp__]; - end; - Zval__=[Zval__;ZuL__]; - end; - Yval__=V1__:Dv__:V2__; - Xval__=U1__:Du__:U2__; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin Binary files differdeleted file mode 100644 index a18f4f27..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci deleted file mode 100644 index 2a4d1491..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 10.01.16 -// 10.02.24 - -function Execmd(StrL) - for I=1:length(StrL) - execstr(Op(I,StrL)) - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin Binary files differdeleted file mode 100644 index b714247e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci deleted file mode 100644 index 5b9df24b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci +++ /dev/null @@ -1,100 +0,0 @@ -// -// 09.12.25 - -function Expr(varargin) - global Wfile FID MEMORI; - Nargs=length(varargin); - for I=1:3:Nargs - Tmp=varargin(I); - P=Doscaling(Tmp); - X=P(1); - Y=P(2); - Houkou=varargin(I+1); - Mojiretu='$'+varargin(I+2)+'$'; - Hset=Houkou; - Vhoko='c'; - if mtlb_findstr(Hset,'n')~=[] - Vhoko='n'; Y=Y+MEMORI; - end - if mtlb_findstr(Hset,'s')~=[] - Vhoko='s'; Y=Y-MEMORI; - end - Hhoko='c'; - if mtlb_findstr(Hset,'e')~=[] - Hhoko='e'; X=X+MEMORI; - end - if mtlb_findstr(Hset,'w')~=[] - Hhoko='w'; X=X-MEMORI; - end - Hoko=Vhoko+Hhoko; - Suu='+-.0123456789'; - SuuL=Suu; - Hcode=ascii(Houkou); - J=1; Dstr=''; - while J<=length(Houkou) - Tmp=char(Hcode(J)); - if mtlb_findstr(SuuL,Tmp)~=[] - if Dstr=='' - Hk=char(Hcode(J-1)); - end - Dstr=Dstr+Tmp; - else - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - Dstr=''; - end - end - J=J+1; - end - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - end - CalcWidth(Hoko,Mojiretu); - CalcHeight(Hoko,Mojiretu); - Tmp='){\hspace*{\Width}'; - Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}'; - if Wfile=='default' - mprintf('%s','\put('); - mprintf('%6.4f%s%6.4f',X,',',Y); - mprintf('%s%s\n',Str,'%'); - mprintf('%s\n','%'); - else - mfprintf(FID,'%s','\put('); - mfprintf(FID,'%6.4f%s%6.4f',X,',',Y); - mfprintf(FID,'%s%s\n',Str,'%'); - mfprintf(FID,'%s\n','%'); - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin Binary files differdeleted file mode 100644 index ea7beb15..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci deleted file mode 100644 index d51dfa91..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 08.05.31 -// 08.08.24 -// 09.12.25 - -function Exprrot(varargin) - global MEMORI; - P=varargin(1); - V=varargin(2); N=3; - P=Doscaling(P); - V=Doscaling(V); - Tmov=0; - Tmp=varargin(N); - if type(Tmp)==1 - Tmov=Tmp; N=N+1; - end - Nmov=0; - Tmp=varargin(N); - if type(Tmp)==1 then - Nmov=Tmp; N=N+1; - end - Mojiretu='$'+varargin(N)+'$'; - Tv=1/norm(V)*V; - Nv=[-Tv(2),Tv(1)]; - P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv; - Tmp=acos(V(1)/norm(V)); - Theta=round(Tmp*180/%pi); - if V(2)>=0 - Units=''; - else - Units='units=-360,'; - end - Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta); - Tmp=Tmp+'}{'+Mojiretu+'}'; - Letter(P,"c",Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin Binary files differdeleted file mode 100644 index 9c11aaad..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci deleted file mode 100644 index ae0bea54..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci +++ /dev/null @@ -1,78 +0,0 @@ -// 09.10.29 -// 10.02.07 debugged - -function NohiddenL=Faceremovaldata(FL,CLadd,PT) - global PHHIDDENDATA VELNO VELHI; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CLadd)// - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - VELNO=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - Ntmp=length(VELNO); // - VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); // - end; - end; - VELHI=list(); - Out=MakeveLfaceL(FL); - FaceL=Out(2); - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi2(Face,Nf,Ptype); - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - for I=1:length(VELHI) - Edge=Op(1,VELHI(I)); - if norm(Edge(1)-Edge(2))>Eps - HiddenL($+1)=Spaceline(Edge); - end; - end; - PHHIDDENDATA=HiddenL; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin Binary files differdeleted file mode 100644 index d32b2b3d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci deleted file mode 100644 index 7dc8bef1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci +++ /dev/null @@ -1,81 +0,0 @@ -// NEW -// Faceremovaldata -// 09.10.24 -// 09.10.26 -// 09.10.27 - -function NohiddenL=Faceremovaldata(FL,CLadd,PT) - global PHHIDDENDATA VELNO VELHI; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CL) - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - VELNO=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - VELNO($+1)=list(Edge,0); - end; - end; - VELHI=list(); - Out=MakeveLfaceL(FL); - FaceL=Out(2); - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi(Face,Nf,Ptype); - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - for I=1:length(VELHI) - Edge=Op(1,VELHI(I)); - if norm(Edge(1)-Edge(2))>Eps - HiddenL($+1)=Spaceline(Edge); - end; - end; - PHHIDDENDATA=HiddenL; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin Binary files differdeleted file mode 100644 index 10b573ba..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci deleted file mode 100644 index 0ed2f249..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci +++ /dev/null @@ -1,154 +0,0 @@ -///////// -// 09.10.29 -// 11.01.13 (HiddenL) remodified 110122 -// 13.03.30 (HiddenL) debugged 140330 - -function NohiddenL=Facesdata(varargin) - global PHHIDDENDATA VELNO VELHI; - Nargs=length(varargin); - FL=varargin(1); - PT=varargin($); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if Nargs==2 - CLadd=list(); - else - CLadd=varargin(2); - end; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CL) - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - Out=MakeveLfaceL(FL); - VELNO=Out(1); - VELHI=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - Ntmp=length(VELNO); // - VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); // - end; - end; - FaceL=Out(2); - if mtlb_findstr(PT,'raw')==[] - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi2(Face,Nf,Ptype); - end; - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - EdgeL=list(); // from 13.03.30 - for K=1:length(VELHI) - Edge=Op(1,VELHI(K)); - P=Edge(1); Q=Edge(2); - if norm(P-Q)>Eps then - EdgeL($+1)=Edge; - end - end - for K=1:length(EdgeL) - Edge=EdgeL(K); // - P=Edge(1); Q=Edge(2); - Cflg=0; - for J=K+1:length(EdgeL) - Ej=EdgeL(J); // - Pj=Ej(1); Qj=Ej(2); - if norm(Crossprod(Q-P,Qj-Pj))>Eps then - continue - end - if norm(Q-Pj)<Eps then - EdgeL(J)=list(P,Qj); - Cflg=1; - break; - end - if norm(P-Qj)<Eps then - EdgeL(J)=list(Q,Pj) - Cflg=1; - break; - end; - end - if Cflg==0 then - HiddenL($+1)=Spaceline(Edge); - end; - end; // upto 14.03.30 - -// L=1:length(VELHI); // from 11.01.13 -// while length(L)>0 -// Lr=[]; -// Edge=Op(1,VELHI(L(1))); // -// P=Edge(1); -// Q=Edge(2); -// -// disp([293,P,Q]) -// -// if norm(P-Q)>Eps -// for J=2:length(L) -// Rflg=0; -// Ej=Op(1,VELHI(L(J))); // -// Pj=Ej(1); -// Qj=Ej(2); -// if norm(Crossprod(Q-P,Qj-Pj))>Eps -// Lr=[Lr,J]; -// continue; -// end; -// if norm(Q-Pj)<Eps -// Edge(2)=Qj; -// Rflg=1; -// elseif norm(P-Qj)<Eps -// Edge(1)=Pj; -// Rflg=1; -// end; -// if Rflg==0 -// Lr=[Lr,J]; -// end; -// end; -// else -// Lr=L(2:length(L)); -// end; -// L=Lr; // upto 11.01.13 -// HiddenL($+1)=Spaceline(Edge); -// end; - PHHIDDENDATA=HiddenL; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.bin Binary files differdeleted file mode 100644 index 8af8ea49..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci deleted file mode 100644 index c300cf6e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci +++ /dev/null @@ -1,88 +0,0 @@ -// 09.10.27 - -function NohiddenL=Facesdata(varargin) - global PHHIDDENDATA VELNO VELHI; - Nargs=length(varargin); - FL=varargin(1); - PT=varargin($); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if Nargs==2 - CLadd=list(); - else - CLadd=varargin(2); - end; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CL) - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - Out=MakeveLfaceL(FL); - VELNO=Out(1); - VELHI=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - VELNO($+1)=list(Edge,0); - end; - end; - FaceL=Out(2); - if mtlb_findstr(PT,'raw')==[] - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi(Face,Nf,Ptype); - end; - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - for I=1:length(VELHI) - Edge=Op(1,VELHI(I)); - if norm(Edge(1)-Edge(2))>Eps - HiddenL($+1)=Spaceline(Edge); - end; - end; - PHHIDDENDATA=HiddenL; -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.bin Binary files differdeleted file mode 100644 index 513db3d6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci deleted file mode 100644 index 062fcc5c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci +++ /dev/null @@ -1,127 +0,0 @@ -// 09.11.26 -// 09.12.06 -// 09.12.14 -// 10.01.12 -// 10.01.13 -// 10.01.14 - -function Out=Findcell(varargin)//TbL,Nrg,Mrg - Nargs=length(varargin); - TbL=varargin(1); - Ag=varargin(2); - Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; - if type(Ag)==10 - Clm=[]; - Rstr=''; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp-1]; - else - Rstr=Rstr+C; - end; - end; - Nrg=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg=Nrg+Tmp*26^Tmp1; - end; - Mrg=eval(Rstr); - if Nargs>=3 - Ag=varargin(3); - Clm=[]; - Rstr=''; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp]; - else - Rstr=Rstr+C; - end; - end; - Nrg2=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg2=Nrg2+Tmp*26^Tmp1; - end; - Nrg=[Nrg,Nrg2]; - Mrg=[Mrg,eval(Rstr)]; - end; - else - Nrg=varargin(2); - Mrg=varargin(3); - end; - if length(Mrg)==1 - m1=Mrg; m2=m1+1; - else - m1=Mrg(1); m2=Mrg(2); - end; - if length(Nrg)==1 - n1=Nrg; n2=n1+1; - else - n1=Nrg(1); n2=Nrg(2); - end; - n1=n1+1; n2=n2+1; - m1=m1+1; m2=m2+1; - Hind=TbL(2); - Vind=TbL(3); - HL=Mixsub(TbL(2),TbL(1)); - Tmp1=Op(1,TbL(4)); - Tmp2=Op(2,TbL(4)); - HL=Mixjoin(list(Tmp1),HL,list(Tmp2)); - VL=Mixsub(TbL(3),TbL(1)); - Tmp1=Op(1,TbL(5)); - Tmp2=Op(2,TbL(5)); - VL=Mixjoin(list(Tmp1),VL,list(Tmp2)); - Tmp=TbL(6); - Tmp1=Listplot([Ptsw(Tmp),Ptnw(Tmp)]); - Tmp2=Listplot([Ptse(Tmp),Ptne(Tmp)]); - HL=Mixjoin(list(Tmp1),HL,list(Tmp2)); - Tmp1=Listplot([Ptnw(Tmp),Ptne(Tmp)]); - Tmp2=Listplot([Ptsw(Tmp),Ptse(Tmp)]); - VL=Mixjoin(list(Tmp1),VL,list(Tmp2)); - Tmp=HL(n1); - if type(Tmp)==1 - H1=Tmp(1,1); - else - Tmp1=Tmp(1); - H1=Tmp1(1,1); - end; - Tmp=HL(n2); - if type(Tmp)==1 - H2=Tmp(1,1); - else - Tmp1=Tmp(1); - H2=Tmp1(1,1); - end; - Tmp=VL(m1); - if type(Tmp)==1 - V1=Tmp(1,2); - else - Tmp1=Tmp(1); - V1=Tmp1(1,2); - end; - Tmp=VL(m2); - if type(Tmp)==1 - V2=Tmp(1,2); - else - Tmp1=Tmp(1); - V2=Tmp1(1,2); - end; - Pt=[(H1+H2)/2,(V1+V2)/2]; - High=(V1-V2)/2; - Wide=(H2-H1)/2; - Out=list(Pt,Wide,High); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin Binary files differdeleted file mode 100644 index 54c4fa4b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci deleted file mode 100644 index 903679ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 10.11.13 - -function Out=Flattenlist(varargin) - Out=list(); - for N=1:length(varargin) - D=varargin(N); - if type(D)~=15 - Out($+1)=D; - else - for I=1:length(D) - Ds=D(I); - Tmp=Flattenlist(Ds); - Out=lstcat(Out,Tmp); - end; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin Binary files differdeleted file mode 100644 index e1a1d3b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci deleted file mode 100644 index 218b599f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci +++ /dev/null @@ -1,54 +0,0 @@ -function Fontsize(Ookisa) - global Wfile FID; - Str='%'; - Ucode=ascii(Ookisa); - S=char(Ucode(1)); - if S=='n' - Str='\normalsize%'; - end - if S=='s' - if length(Ucode)==1 - Tmp=''; - else - Tmp=char(Ucode(2)); - end - if Tmp=='s' - Str='\scriptsize%'; - else - Str='\small%'; - end - end - if S=='f' - Str='\footnotesize%'; - end - if S=='t' - Str='\tiny%'; - end - if S=='l' - Str='\large%'; - end - if S=='L' - if length(Ucode)==1 - Tmp='a'; - else - Tmp=char(Ucode(2)); - end - if Tmp=='a' - Str='\Large%'; - else - Str='\LARGE%'; - end - end - if S=='h' - Str='\huge%'; - end - if S=='H' - Str='\Huge%'; - end - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin Binary files differdeleted file mode 100644 index de2203fe..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci deleted file mode 100644 index af259244..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 09.03.13 - -function Out=Fouriercoeff(Fn,T,Ch,K) - Eps=10^(-5); - L=T/2; - Tmp1='Out=FUNC(x)'; - if Ch=='c' - Tmp2='Out=Fn(10*L*x)*cos('+string(K)+'*%pi*x*10)'; - else - Tmp2='Out=Fn(10*L*x)*sin('+string(K)+'*%pi*x*10)'; - end; - deff(Tmp1,Tmp2); - Out=10*intg(-0.1,0.1,FUNC); - if K==0 - Out=Out/2; - end; - if abs(Out)<Eps - Out=0; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.bin Binary files differdeleted file mode 100644 index cc5d39c4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci deleted file mode 100644 index 2d0d840b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 09.03.12 - -function Out=FouriercoeffL(Fn,T,Upto) - Out=Mix(Fouriercoeff(Fn,T,'c',0)); - CL=[]; - for K=1:Upto - Tmp=Fouriercoeff(Fn,T,'c',K); - CL=[CL,Tmp]; - end; - Out=Mixadd(Out,CL); - CL=[]; - for K=1:Upto - Tmp=Fouriercoeff(Fn,T,'s',K); - CL=[CL,Tmp]; - end; - Out=Mixadd(Out,CL); - Out=Mixadd(Out,T); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.bin Binary files differdeleted file mode 100644 index 91dee3ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci deleted file mode 100644 index 6182f4a7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 09.03.12 - -function Out=Fouriersum(COEFF,x) - C=Mixop(1,COEFF); - A=Mixop(2,COEFF); - B=Mixop(3,COEFF); - T=Mixop(4,COEFF); - Upto=size(A,2); - L=T/2; - K=1:Upto; - Tmp1=sum(A(K).*cos(K*%pi*x/L)); - Tmp2=sum(B(K).*sin(K*%pi*x/L)); - Out=C+Tmp1+Tmp2; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.bin Binary files differdeleted file mode 100644 index 4cc02afc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci deleted file mode 100644 index 437ff122..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 09.08.23 - -function Out=Fracform(X) - [N,D]=rat(X); - Out=[]; - for I=1:size(X,1) - for J=1:size(X,2) - Tmp1=N(I,J); - Tmp2=D(I,J); - if Tmp2==1 - Out(I,J)=string(Tmp1); - else - Out(I,J)=string(Tmp1)+'/'+string(Tmp2); - end; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.bin Binary files differdeleted file mode 100644 index 828acf25..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci deleted file mode 100644 index 071f7381..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 2011.12.18 ( available for list ) - -function P=Framedata(varargin) - global XMIN XMAX YMIN YMAX - VaL=Flattenlist(varargin); - N=length(VaL); - if N<=1 - H=1.0*10^(-4); - PA=[XMIN+H,YMIN+H]; - PB=[XMAX-H,YMIN+H]; - PC=[XMAX-H,YMAX-H]; - PD=[XMIN+H,YMAX-H]; - else - Tmp=VaL(N); - if type(Tmp)==1 & length(Tmp)==1 - Dy=Tmp; - Dx=Dy; - Tmp=VaL(N-1); - if type(Tmp)==1 & length(Tmp)==1 - Dx=Tmp; - end; - Tmp=VaL(1); - X=Tmp(1); Y=Tmp(2); - X1=X-Dx; X2=X+Dx; - Y1=Y-Dy; Y2=Y+Dy; - else - Tmp=VaL(1); - X1=Tmp(1); X2=Tmp(2); - Tmp=VaL(2); - Y1=Tmp(1); Y2=Tmp(2); - end; - PA=[X1,Y1]; PB=[X2,Y1]; - PC=[X2,Y2]; PD=[X1,Y2]; - end; - P=Listplot(PA,PB,PC,PD,PA) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.bin Binary files differdeleted file mode 100644 index 5e765044..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci deleted file mode 100644 index 97ddae5b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci +++ /dev/null @@ -1,79 +0,0 @@ -// 08.08.16 -// 08.09.16 -// 09.11.14 -// 10.08.19 -// 13.10.22 ( __ added to varibles ) - -function Out__=Fullformfunc(FdL__) - Out__=MixS(Mixop(1,FdL__)); - N__=Mixlength(FdL__); - for Jrg__=1:N__ - Tmp__=Mixop(Jrg__,FdL__); - if part(Tmp__,length(Tmp__))==']' - break - end; - end; - Urg__=Mixop(Jrg__,FdL__); - K__=mtlb_findstr(Urg__,'='); - Uname__=stripblanks(part(Urg__,1:K__-1)); - Tmp__=part(Urg__,K__+1:length(Urg__)); // 2013.10.22 - Tmp1__=evstr(Tmp__); - Urg__=Uname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; - Vrg__=Mixop(Jrg__+1,FdL__); - K__=mtlb_findstr(Vrg__,'='); - Vname__=stripblanks(part(Vrg__,1:K__-1)); - Tmp__=part(Vrg__,K__+1:length(Vrg__)); - Tmp1__=evstr(Tmp__); - Vrg__=Vname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; // - if Jrg__==2 - Tmp__=Mixop(1,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Zf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=MixS(Uname__,Vname__,Zf__,Urg__,Vrg__); - Out__=Mixjoin(Out__,Tmp__); - elseif Jrg__==4 - Tmp__=Mixop(1,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Zf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=Mixop(2,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=stripblanks(part(Tmp__,1:K__-1)); - Xf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=Mixop(3,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=stripblanks(part(Tmp__,1:K__-1)); - Yf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=strsubst(Zf__,Xname__,'('+Xf__+')'); - Zf__=strsubst(Tmp__,Yname__,'('+Yf__+')'); - Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__); - Out__=Mixjoin(Out__,Tmp__); - else - Tmp__=Mixop(2,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Xf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=Mixop(3,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Yf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=Mixop(4,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Zf__=part(Tmp__,K__+1:length(Tmp__)); - Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__); - Out__=Mixjoin(Out__,Tmp__); - end; - DrwS__='enws'; - BdyL__=[]; - for I__=Jrg__+2:Mixlength(FdL__) - Tmp__=Mixop(I__,FdL__); - if type(Tmp__)==10 - if length(Tmp__)==0 // - Tmp__=' '; - end; - DrwS__=Tmp__; - end; - if type(Tmp__)==1 & size(Tmp__,2)>1 - BdyL__=Tmp__; - end; - end; - Tmp__=MixS(DrwS__,BdyL__); - Out__=Mixjoin(Out__,Tmp__); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.bin Binary files differdeleted file mode 100644 index ba4a0779..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci deleted file mode 100644 index 3d17995e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci +++ /dev/null @@ -1,11 +0,0 @@ -function G=Gaiseki(a,b) - if length(a)==3 - Tmp=[a(2)*b(3)-a(3)*b(2),... - a(3)*b(1)-a(1)*b(3),... - a(1)*b(2)-a(2)*b(1)]; - else - Tmp=a(1)*b(2)-a(2)*b(1); - end; - G=Tmp; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin Binary files differdeleted file mode 100644 index a66e7b20..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci deleted file mode 100644 index ca4e0d2a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.09.10 - -function Out=Getcounter() - global GCOUNTER; - Out=GCOUNTER; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin Binary files differdeleted file mode 100644 index d0751e37..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci deleted file mode 100644 index 5395d885..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.09.10 - -function Out=Gettrace(); - global TRACEDATA; - Out=TRACEDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin Binary files differdeleted file mode 100644 index 4e13bb0c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci deleted file mode 100644 index 236287ef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci +++ /dev/null @@ -1,141 +0,0 @@ -// 08.05.21 -// 09.10.05 -// 09.12.25 -// 10.01.20 -// 10.02.01 -// 10.11.04 ( debugged 83 ) - -function ShaLs=Hatchdata(varargin) - global XMIN XMAX YMIN YMAX MilliIn; - ShaL=[]; - Nargs=length(varargin); - Kakudo=45; - Kankaku=0.125*1000/2.54/MilliIn; - Tmp=Doscaling([XMIN,YMIN]); - Xmn=Tmp(1); Ymn=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - Xmx=Tmp(1); Ymx=Tmp(2); - for N=Nargs:-1:1 - Tmp=varargin(N); - if Mixtype(Tmp)~=1 - break - end - end - if N<Nargs - Kakudo=varargin(N+1); - if N==Nargs-2 - Kankaku=0.125*varargin(Nargs); - end - end - NaitenL=varargin(1); - if Mixtype(NaitenL)==1 - NaitenL=list(NaitenL); - end - Ns=2; - StartP=Op(1,NaitenL); - if type(StartP)==10 - StartP=[(Xmn+Xmx)/2,(Ymn+Ymx)/2]; - end - if Mixtype(varargin(2))==1 - StartP=varargin(2); - StartP=Doscaling(StartP); - Ns=3; - end - Tmp=list(); - for I=Ns:N - Tmp1=list(varargin(I)); - Tmp=Mixjoin(Tmp,Tmp1); - end - Bdy=Kyoukai(Tmp); - Bdys=list(); - for I=1:length(Bdy) - Tmp1=Bdy(I); - Tmp2=Doscaling(Tmp1); - Bdys=Mixjoin(Bdys,list(Tmp2)); - end; - Bdy=Bdys; - PtnL=list(); - for I=1:length(NaitenL) - Tmp=Op(I,NaitenL); - if type(Tmp)==1 - Tmp1=Naigai(Tmp,Bdy); - PtnL=Mixjoin(PtnL,list(Tmp1)); - else - if type(Tmp)~=10 - disp('Type Error'); - return - end - Ptn=[]; - for J=1:length(Tmp) - if Op(J,Tmp)=='i' - Ptn=[Ptn,1]; - else - Ptn=[Ptn,0]; - end - end - PtnL=Mixjoin(PtnL,list(Ptn)); - end - end - Call=length(Bdy); - Ptn=zeros(1,Call); - if Member(Ptn,PtnL) - Wn=Doscaling(Framedata()); - Bdy=Mixjoin(Bdy,list(Wn)); - Tmp=list(); - for I=1:length(PtnL) - Tmp1=[Op(I,PtnL),1]; - Tmp=Mixjoin(Tmp,Tmp1); // 10.11.04 - end - PtnL=Tmp; - end - V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)]; - Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)]; - Tmp=Op(1,NaitenL); - if type(Tmp)==1 & size(Tmp,2)==2 - Tmp=Doscaling(Tmp); - Delta=Tmp-StartP; - K=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); - PA=StartP+K*Kankaku*Vm; - Sha=Makeshasen(PtnL,PA,V,Bdy); - I=1; - while length(Sha)~=0 - for J=1:length(Sha) - ShaL=Mixadd(ShaL,Sha(J)); - end; - Sha=Makeshasen(PtnL,PA+I*Kankaku*Vm,V,Bdy); - I=I+1; - end - Sha=Makeshasen(PtnL,PA-Kankaku*Vm,V,Bdy); - I=2; - while length(Sha)~=0 - for J=1:length(Sha) - ShaL=Mixjoin(ShaL,list(Sha(J))); - end; - Sha=Makeshasen(PtnL,PA-I*Kankaku*Vm,V,Bdy); - I=I+1; - end - else - Delta=[Xmn,Ymn]-StartP; - K1=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); - Delta=[Xmx,Ymn]-StartP; - K2=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); - Delta=[Xmx,Ymx]-StartP; - K3=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); - Delta=[Xmn,Ymx]-StartP; - K4=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); - IM=max(K1,K2,K3,K4); - Im=min(K1,K2,K3,K4); - for I=Im:IM - Sha=Makeshasen(PtnL,StartP+I*Kankaku*Vm,V,Bdy); - for J=1:length(Sha) - ShaL=Mixjoin(ShaL,list(Sha(J))); - end - end - end - ShaLs=list(); - for I=1:length(ShaL) - Tmp=ShaL(I); - Tmp1=Unscaling(Tmp); - ShaLs=Mixjoin(ShaLs,list(Tmp1)); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.bin Binary files differdeleted file mode 100644 index b7f91dc9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci deleted file mode 100644 index 7bc05ed9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci +++ /dev/null @@ -1,15 +0,0 @@ -// s : 2014.06.22 - -function Out=Hexahedrondata(A,V1,V2,V3) - Tmp=det([V1;V2;V3]); - if Tmp<0 then - Tmp1=V1; - V1=V2; - V2=Tmp1 - end - B=A+V1; C=A+V1+V2; D=A+V2; - E=A+V3; F=B+V3; G=C+V3; H=D+V3; - VL=list(A,B,C,D,E,F,G,H); - FL=list([1,4,3,2],[5,6,7,8],[1,2,6,5],[2,3,7,6],[3,4,8,7],[1,5,8,4]); - Out=list(VL,FL) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.bin Binary files differdeleted file mode 100644 index d4296e92..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci deleted file mode 100644 index 2ead122d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.15 - -function Out=HiddenWireData() - global HIDDENWIREDATA - Out=HIDDENWIREDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.bin Binary files differdeleted file mode 100644 index 65df35b0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci deleted file mode 100644 index ab8a54b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci +++ /dev/null @@ -1,144 +0,0 @@ -// 08.05.17 Debugged -// 09.12.25 -// 11.04.13 debugged ( [a,b] ) -// 14.03.05 MARKLEN - -function Htickmark(varargin) - global Wfile FID MARKLEN GENTEN XMIN XMAX; - Nargs=length(varargin); - ArgsL=list(varargin(1:Nargs)); - if type(Op(1,ArgsL))==10 - Str=Op(1,ArgsL); - Tmp=mtlb_findstr(Str,'m'); - if Tmp~=[] - I=Tmp(1); - else - I=0; - end - Tmp=mtlb_findstr(Str,'n'); - if Tmp~=[] - J=Tmp(1); - else - J=0; - end - Tmp=mtlb_findstr(Str,'r'); - if Tmp~=[] - K=Tmp(1); - else - K=0; - end; - if K>0 - Tmp=ascii(Str); - S=char(Tmp(K+1:length(Tmp))); - R=msscanf(S,'%f'); - if length(R)==0 - R=1; - end - else - R=1; - K=length(Str)+1; - end - if J>0 then - Tmp=ascii(Str); - S=char(Tmp(J+1:K-1)); - if S==[] - S=''; - end; - Dn=msscanf(S,'%d'); - if length(Dn)==0 - Dn=1; - end - else - Dn=1000; - J=length(Str)+1; - end - Tmp=ascii(Str); - S=char(Tmp(I+1:J-1)); - if S==[] - S=''; - end - Dm=msscanf(S,'%f'); - if length(Dm)==0 - Dm=1; - end - ArgsL=list(); - for I=1:floor((XMAX-GENTEN(1))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(Tmp(1:k-1)); - end - ArgsL($+1)=Str; - end - end - for I=-1:-1:ceil((XMIN-GENTEN(1))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(1:K-1); - end - ArgsL($+1)=Str; - end - end - end - MemoriList=list(); - Memori=list(); - for N=1:length(ArgsL) - Dt=ArgsL(N); - if type(Dt)==1 & length(Dt)>1 - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt(1),Dt(2)); - continue - end - if type(Dt)==10 - Memori($+1)=Dt; - else - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt,GENTEN(2)); - end - end - MemoriList($+1)=Memori; - for N=1:length(MemoriList) - Dt=MemoriList(N); - Ndt=length(Dt); - X=Op(1,Dt); - Y=Op(2,Dt); - Tmp=Doscaling([X,Y]); - X=Tmp(1); - Y=Tmp(2); - Moji=Op(Ndt,Dt); - Tmp1=Unscaling([X,Y+MARKLEN]); - Tmp2=Unscaling([X,Y-MARKLEN]); - Fd=Listplot([Tmp1,Tmp2]); - Drwline(Fd); - if Ndt==3 - Tmp=Unscaling([X,Y-MARKLEN]); - Expr(Tmp,'s',Moji); - end - if Ndt==4 - Houkou=Op(3,Dt); - if mtlb_findstr(Houkou,'s')~=[] - Tmp=Unscaling([X,Y-MARKLEN]); - Expr(Tmp,Houkou,Moji); - else - Tmp=Unscaling([X,Y+MARKLEN]); - Expr(Tmp,Houkou,Moji); - end - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.bin Binary files differdeleted file mode 100644 index 39861c63..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci deleted file mode 100644 index ae02fee1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci +++ /dev/null @@ -1,9 +0,0 @@ -// 08.09.10 -// 08.09.16 -// 08.10.10 (Name) - -function Out=ImplicitData() - global IMPLICITDATA - Out=IMPLICITDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin Binary files differdeleted file mode 100644 index 875a82b3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci deleted file mode 100644 index b0715484..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci +++ /dev/null @@ -1,61 +0,0 @@ -// 08.09.09 -// 08.09.20 -// 13.10.19 ( __ added to variables ) - -function Out__=Implicitplot(varargin) - Eps__=10^(-4); - Nargs__=length(varargin); - Fstr__=varargin(1); - if Mixtype(Fstr__)~=1 - MS__=Fstr__; - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - elseif type(Fstr__)==10 - MS__=[]; - for I__=1:Nargs__ - MS__=Mixadd(MS__,varargin(I__)); - end; - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - else - Zval__=varargin(1); - Xval__=varargin(2); - Yval__=varargin(3); - end; - Out__=[]; - for J__=1:length(Yval__)-1 - for I__=1:length(Xval__)-1 - a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__); - a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1); - a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1); - a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__); - PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; - VL__=[c1__,c2__,c3__,c4__,c1__]; - QL__=[]; - for K__=1:4 - if abs(VL__(K__))<=Eps__ - QL__=[QL__;PL__(K__,:)]; - elseif VL__(K__)>Eps__ - if VL__(K__+1)<-Eps__ - Tmp__=1/(VL__(K__)-VL__(K__+1))*(-VL__(K__+1)*PL__(K__,:)... - + VL__(K__)*PL__(K__+1,:)); - QL__=[QL__;Tmp__]; - end - else - if VL__(K__+1)>Eps__ - Tmp__=1/(-VL__(K__)+VL__(K__+1))*(VL__(K__+1)*PL__(K__,:)... - - VL__(K__)*PL__(K__+1,:)); - QL__=[QL__;Tmp__]; - end; - end; - end; - if size(QL__,1)==2 - Out__=[Out__;%inf,%inf;QL__(1,:);QL__(2,:)]; - end; - end; - end; - Out__=Out__(2:size(Out__,1),:); - if size(Out__,1)>0 - Out__=Connectseg(Out__); - else - Out__=[]; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin Binary files differdeleted file mode 100644 index 37882bfa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci deleted file mode 100644 index 9dacd30c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci +++ /dev/null @@ -1,11 +0,0 @@ -function Rx=InWindow(PA) - global XMIN XMAX YMIN YMAX - Eps=10.0^(-6); - X=PA(1); Y=PA(2); - if X>XMIN-Eps & X<XMAX+Eps & Y>YMIN-Eps & Y<YMAX+Eps - Rx='i' - else - Rx='o' - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.bin Binary files differdeleted file mode 100644 index 80050aeb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci deleted file mode 100644 index d5e09ff4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 08.07.11 - -function Initangle() - global PHI THETA; - PHI=30*%pi/180; - THETA=60*%pi/180; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.bin Binary files differdeleted file mode 100644 index cca9ea76..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci deleted file mode 100644 index abd3377f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci +++ /dev/null @@ -1,25 +0,0 @@ -// 09.10.09 -// 09.10.21 Es, Er - -function Out=Integrate(varargin); - Nargs=length(varargin); - Fs=varargin(1); - Vs=varargin(2); - Itv=varargin(3); - Es=1d-10; - if Nargs>3 - Es=varargin(4); - end; - Er=1d-8; - if Nargs>4 - Er=varargin(5); - end; - Out=0; - Na=1; - while Na<length(Itv) - A=Itv(Na); B=Itv(Na+1); - Out=Out+integrate(Fs,Vs,A,B,Es,Er); - Na=Na+1; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.bin Binary files differdeleted file mode 100644 index 9c865940..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci deleted file mode 100644 index 59b4fdcc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 08.05.18 Koshikawa -// 08.05.19 Changed -// 08.06.03 -// 09.11.12 -// 09.11.14 debug - -function PL=Intersectcrvs(varargin) - Nargs=length(varargin); - Eps=10^(-4); - Tmp=varargin(Nargs); - if type(Tmp)==1 & length(Tmp)==1 - Eps=Tmp; - end - G1=varargin(1); - if Mixtype(G1)==1 - G1=list(G1); - end; - G2=varargin(2); - if Mixtype(G2)==1 - G2=list(G2); // - end; - PL=list(); - for N=1:length(G1) - for M=1:length(G2) - KL=IntersectcrvsPp(G1(N),G2(M),Eps); - for I=1:length(KL) - Tmp=KL(I);; - P=Tmp(1); - PL($+1)=P; - end; - end; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.bin Binary files differdeleted file mode 100644 index 806ccfa3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci deleted file mode 100644 index a1218d06..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci +++ /dev/null @@ -1,101 +0,0 @@ -// 08.05.18 Koshikawa -// 08.05.19 Changed -// 08.00.04 -// 09.11.07 for the same curve - -function KL=IntersectcrvsPp(varargin) // Modified - Nargs=length(varargin); - G1=varargin(1); G2=varargin(2); - Eps=10.0^(-4); - if Nargs>2 - Eps=varargin(3) - end - SqEps=10.0^(-10); - Eps2=0.1; - if Nargs>3 - Eps2=varargin(4) - end - Data1=G1; - Data2=G2; - if size(Data1,1)==size(Data2,1) - Tmp1=Data2(size(Data2,1):-1:1,:); // 09.11.07 - Eps0=10^(-6); - Tmp2=norm(Data1-Data2); - Tmp3=norm(Data1-Tmp1); - if Tmp2<Eps0|Tmp3<Eps0 - KL=list(); - return; - end; // - end; - KL1=[]; - KL2=[]; - for I=1:size(Data1,1)-1 - A=Data1(I,:); - B=Data1(I+1,:); - for J=1:size(Data2,1)-1 - P=Data2(J,:); Q=Data2(J+1,:); - Tmp=Koutenseg(A,B,P,Q,Eps,Eps2); - if Tmp~=[%inf,-%inf] - if Op(3,Tmp)==0 - Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J); - KL1=Mixadd(KL1,Tmp1); - else - Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J); - KL2=Mixadd(KL2,Tmp2); - end - end - end - end - KL=[]; - if Mixlength(KL1)>0 - Tmp=Op(1,KL1); - P=Op(1,Tmp); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - Tmp=MixS(P,I+T,J); - KL=MixL(Tmp); - end - for N=2:Mixlength(KL1) - Tmp=Op(N,KL1); - P=Op(1,Tmp); - Flg=0; - for K=1:Mixlength(KL) - Tmp=Op(K,KL); - if Vecnagasa2(P-Op(1,Tmp))<SqEps - Flg=1; - break - end - end - if Flg==0 - Tmp=Op(N,KL1); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - Tmp=MixS(P,I+T,J); - KL=Mixadd(KL,Tmp); - end - end - for N=1:Mixlength(KL2) - Tmp=Op(N,KL2); - P=Op(1,Tmp); - Flg=0; - for K=1:Mixlength(KL) - Tmp=Op(K,KL); - if Vecnagasa2(P-Op(1,Tmp))<SqEps - Flg=1; - break - end - end - if Flg==0 - Tmp=Op(N,KL2); - T=Op(2,Tmp); - T=min(max(T,0),1); - I=Op(3,Tmp); - J=Op(4,Tmp); - Tmp=MixS(P,I+T,J); - KL=Mixadd(KL,Tmp); - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.bin Binary files differdeleted file mode 100644 index fd6bbac1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci deleted file mode 100644 index 2a2e5b6c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci +++ /dev/null @@ -1,47 +0,0 @@ -// 08.10.26 -// 10.02.16 - -function Out=Intersectcrvsf(varargin) - Nargs=length(varargin); - Eps0=10^(-4); - Crv=varargin(1); - Fd=varargin(2); - N=3;Uveq=1; - if Nargs>=3 - Tmp=varargin(3); - if type(Tmp)==10 - Uveq=Tmp; - N=4; - end; - end; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N+1 - Eps=varargin(N+1); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Out=[]; - for I=1:Numptcrv(Crv)-1 - PtA=Ptcrv(I,Crv); - PtB=Ptcrv(I+1,Crv); - if norm(PtB-PtA)<Eps0 - continue; - end; - PL=Meetpoints(PtA,PtB,Fd,Uveq,Np,Eps(1)); - for J=1:Mixlength(PL) - Pt=Mixop(J,PL); - Tmp=norm(Pt-PtA)/norm(PtB-PtA); - Tmp=min(max(Tmp,0),1); - Out=Mixadd(Out,[Pt,I+Tmp]); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.bin Binary files differdeleted file mode 100644 index 12e2536d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci deleted file mode 100644 index ed92a5aa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci +++ /dev/null @@ -1,22 +0,0 @@ -// 09.10.11 -// 09.10.12 - -function Out=Intersectlines(L1,L2) - Eps0=10^(-6); - P=Ptstart(L1); - a1=P(1); a2=P(2); - V=Ptend(L1)-P; - b1=V(1); b2=V(2); - P=Ptstart(L2); - c1=P(1); c2=P(2); - V=Ptend(L2)-P; - d1=V(1); d2=V(2); - Den=b1*d2-d1*b2; - if abs(Den)<Eps0 - Out=[]; - return; - end; - x=-(d1*b2*a1-c1*b1*d2-d1*a2*b1+d1*b1*c2)/Den; - y=-(-a2*b1*d2+b2*a1*d2-b2*c1*d2+c2*d1*b2)/Den; - Out=[x,y]; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.bin Binary files differdeleted file mode 100644 index 12429fff..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci deleted file mode 100644 index 4b246e95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci +++ /dev/null @@ -1,95 +0,0 @@ -// 09.05.27 -// 09.06.03 -// 09.06.05 - -function KL=IntersectselfPp(varargin) - Nargs=length(varargin); - G1=varargin(1); - Eps=10.0^(-4); - if Nargs>1 - Eps=varargin(2) - end - Eps0=10.0^(-5); - Eps2=0.01; -// if Nargs>2 -// Eps2=varargin(3) -// end; - Data1=G1; - KL1=[]; - KL2=[]; - for I=1:size(Data1,1)-2 - A=Data1(I,:); - B=Data1(I+1,:); - Is=I+2; - Tmp=Data1(Is,:); - while norm(Tmp-B)<Eps & Is<size(Data1,1); - Is=Is+1; - Tmp=Data1(Is,:); - end; - for J=Is:size(Data1,1)-1 - P=Data1(J,:); Q=Data1(J+1,:); - Tmp=Koutenseg(A,B,P,Q,Eps,Eps2); - if Tmp~=[%inf,-%inf] - if Op(3,Tmp)==0 - Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J); - KL1=Mixadd(KL1,Tmp1); - else - Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J); - KL2=Mixadd(KL2,Tmp2); - end - end - end - end - KL=[]; - if Mixlength(KL1)>0 - Tmp=Op(1,KL1); - P=Op(1,Tmp); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - S=ParamonCurve(P,J,Data1); - Tmp=MixS(P,I+T,J); - Tmp2=MixS(P,S,I); - KL=MixL(Tmp); - KL=Mixadd(KL,Tmp2); - end; - for N=2:Mixlength(KL1) - Tmp=Op(N,KL1); - P=Op(1,Tmp); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - S=ParamonCurve(P,J,Data1); - Tmp=MixS(P,I+T,J); - Tmp1=MixS(P,S,I); - KL=Mixadd(KL,Tmp); - KL=Mixadd(KL,Tmp1); - end - for N=1:Mixlength(KL2) - Tmp=Op(N,KL2); - P=Op(1,Tmp); - T=Op(2,Tmp); - T=min(max(T,0),1); - I=Op(3,Tmp); - J=Op(4,Tmp); - S=ParamonCurve(P,J,Data1); - Flg=0; - for K=1:Mixlength(KL) - Tmp=Op(K,KL); - if norm(P-Op(1,Tmp))<Eps - Tmp1=Op(2,Tmp); - if abs(I+T-Tmp1)<Eps - Flg=1; - break; - end; - end; - end; - if Flg==0 - Tmp=MixS(P,I+T,J); - Tmp1=MixS(P,S,I); - KL=Mixadd(KL,Tmp); - KL=Mixadd(KL,Tmp1); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.bin Binary files differdeleted file mode 100644 index a247d3a0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci deleted file mode 100644 index bf6f976f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 10.11.13 ( Flattenlist used -// 13.10.19 debugged - -function Invdashline(varargin) - global MilliIn; - Nargs=length(varargin); - Nall=Nargs; Sen=1 ; Gap=1; - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 // 2013.10.19 - Tmp1=varargin(Nall-1); - if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 // 2013.10.19 - Sen=Tmp1; Gap=Tmp; - Nall=Nall-2; - else - Sen=Tmp; Gap=Sen; - Nall=Nall-1; - end - end - Sen=1000/2.54/MilliIn*Sen; - Gap=1000/2.54/MilliIn*Gap; - for N=1:Nall - Tmp=varargin(N); - Fdata=Flattenlist(Tmp); - for I=1:length(Fdata); - Figdata=Fdata(I); - Makehasen(Figdata,Sen,Gap,1); - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.bin Binary files differdeleted file mode 100644 index ab928c50..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci deleted file mode 100644 index 9f9f9d95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci +++ /dev/null @@ -1,6 +0,0 @@ -// 08.05.31 - -function OutL=Invert(Pd) - OutL=Pd(size(Pd,1):-1:1,:); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin Binary files differdeleted file mode 100644 index b5f41832..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci deleted file mode 100644 index 4d7863b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci +++ /dev/null @@ -1,50 +0,0 @@ -// 08.07.11 -// 08.08.17 -// 09.10.31 -// 09.11.12 - -function Out=Invparapt(varargin) - Eps=10^(-4); - Fk=varargin($); - NFk=Numptcrv(Fk) - Tmp=varargin(1); - if type(Tmp)==1 & size(Tmp)==1 - Ph=Tmp; - Fh=varargin(2); - else - Fh=Projpara(Fk); - if NFk>2 - Tmp1=Nearestpt(Tmp,Fh); - Ph=Tmp1(2); - else - Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh); - V1=Tmp-Ah; V2=Bh-Ah; - Tmp1=Crossprod(V1,V2); - if abs(Tmp1)>Eps - disp('Not on the line'); - Out=[]; - return; - else - Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12 - end; - end; - end; - if NFk>2 - N=Trunc(Ph); - S0=Ph-N; - if Ph>Numptcrv(Fh)-Eps - Out=list(Ptend(Fk),Numptcrv(Fh)); - return; - end; - else - N=1; - S0=Ph-1; // 09.11.12 - end; - Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk); - Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh); - Ph=(1-S0)*Ah+S0*Bh; - T2=S0; - Pk=(1-T2)*Ak+T2*Bk; - Out=list(Pk,N+T2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin Binary files differdeleted file mode 100644 index 10fe9aa7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci deleted file mode 100644 index c2c35355..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 08.08.12 -// 09.10.31 -// 09.11.12 - -function Out=Invperspt(varargin) - global FocusPoint EyePoint; - Eps=10^(-4); - Fk=varargin($); - NFk=Numptcrv(Fk) - Tmp=varargin(1); - if type(Tmp)==1 & length(Tmp)==1 - Ph=varargin(1); - Fh=varargin(2); - else - Fh=Projpers(Fk); - if NFk>2 - Tmp1=Nearestpt(Tmp,Fh); - Ph=Tmp1(2); - else - Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh); - V1=Tmp-Ah; V2=Bh-Ah; - Tmp1=Crossprod(V1,V2); - if abs(Tmp1)>Eps - disp('Not on the line'); - Out=[]; - return; - else - Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12 - end; - end; - end; - if NFk>2 - N=Trunc(Ph); - S0=Ph-N; - if Ph>Numptcrv(Fh)-Eps - Out=list(Ptend(Fk),Numptcrv(Fh)); - return; - end; - else - N=1; - S0=Ph-1; // 09.11.12 - end; - Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk); - Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh); - Ph=(1-S0)*Ah+S0*Bh; - Phc=Cancoordpers([Ph,0]); - Ahc=Cancoordpers([Ah,0]); - Bhc=Cancoordpers([Bh,0]); - Vp=Phc-EyePoint; - Va=Ak-EyePoint; - AB=Bk-Ak; - Cp=Crossprod(Vp,AB); - Nmr=Crossprod(Va,Vp); - Mx=max(abs(Cp)); - if abs(Cp(1))==Mx - T2=Nmr(1)/Cp(1); - elseif abs(Cp(2))==Mx - T2=Nmr(2)/Cp(2); - else - T2=Nmr(3)/Cp(3); - end; - Pk=(1-T2)*Ak+T2*Bk; - Out=list(Pk,N+T2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin Binary files differdeleted file mode 100644 index 13bbbe42..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci deleted file mode 100644 index 04aaf4eb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci +++ /dev/null @@ -1,51 +0,0 @@ -// 08.05.31 -// 08.08.22 -// 08.09.14 -// 08.09.20 -// 08.10.27 -// 11.06.25 - -function PtL=Joincrvs(varargin) - Nall=length(varargin); - Eps=10^(-4); - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 - Eps=Tmp; - Nall=Nall-1; - end; - QdL=list(); - for I=1:Nall - QdL($+1)=varargin(I); // 11.06.25 - end; - QdL=Flattenlist(QdL); // 11.06.25 - if length(QdL)==0 - PtL=[]; - return; - end; - PtL=[Mixop(1,QdL)]; - for I=2:Mixlength(QdL) - Qd=QdL(I); - if Numptcrv(Qd)<=1 // 11.06.25 - continue; - end; - P=Ptend(PtL) - S=Ptstart(PtL); - Q=Ptstart(Qd); - R=Ptend(Qd); - MN=min(norm(P-Q),norm(P-R),norm(S-Q),norm(S-R)); - if MN==norm(P-R) - Qd=Invert(Qd); - elseif MN==norm(S-Q) - PtL=Invert(PtL); - elseif MN==norm(S-R); - PtL=Invert(PtL); - Qd=Invert(Qd); - end; - if MN>Eps - PtL=[PtL;Qd]; - else - PtL=[PtL;Qd(2:size(Qd,1),:)]; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin Binary files differdeleted file mode 100644 index 5baec784..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci deleted file mode 100644 index 78cd46e5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci +++ /dev/null @@ -1,26 +0,0 @@ -// 11.11.02 (for list structure) - -function P=Joingraphics(varargin) - Ls=Flattenlist(varargin); - N=length(Ls); - Tp=Ls(N); - Listflg=0; - if type(Tp)==10 - Tmp=part(Tp,1); - if Tmp=="L"|Tmp=="l" - Listflg=1 - end; - N=N-1; - Ls=Mixsub(1:N,Ls); - end; - if Listflg==1 - P=Ls - else - P=[]; - for I=1:N - Tmp=Ls(I); - P=[P;%inf,%inf;Tmp]; - end; - P=P(2:size(P,1),:) - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin Binary files differdeleted file mode 100644 index 5d029c80..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci deleted file mode 100644 index bbe02e62..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci +++ /dev/null @@ -1,57 +0,0 @@ -// 08.07.08 PHI,THETA,FocusPoint,EyePoint; -// 08.08.08 -// 08.08.31 -// 08.09.18 -// 09.10.09 ASSIGNLIST -// 09.12.25 SCALING -// 10.04.16 TEXFOR -// 13.05.19 funcprot(0) -// 13.03.05 MARKLEN instead of MEMORI - -function Ketinit() - global THISVERSION - global TenSize TenSizeInit Wfile XMIN XMAX YMIN YMAX - global XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE - global ULEN MilliIn PenThick PenThickInit ZIKU - global MEMORI MEMORIInit MEMORINow GENTEN - global MARKLEN MARKLENInit MARKLENNow - global YaSize YaAngle YaPosition YaThick YaStyle - global PHI THETA FocusPoint EyePoint ASSIGNLIST - global SCALEX SCALEY LOGX LOGY TEXFORLEVEL TEXFORLAST - funcprot(0); // 2013.05.19 - Setversion(); - XMIN=-5 ;XMAX=5; - YMIN=-5 ; YMAX=5; - ZIKU='line'; ARROWSIZE=1; - XNAME='$x$' ; XPOS='e'; - YNAME='$y$' ; YPOS='n'; - ONAME='O' ; OPOS='sw'; - ULEN='1cm'; - MilliIn=1/2.54*1000; - PenThick=round(MilliIn*0.02); - PenThickInit=PenThick; - TenSizeInit=0.02; - TenSize=TenSizeInit; - Wfile='default'; - MEMORI=0.05; - MEMORIInit=MEMORI; - MEMORINow=MEMORI; - MARKLEN=0.05; - MARKLENInit=MARKLEN; - MARKLENNow=MARKLEN; - GENTEN=[0,0]; - YaSize=1; YaAngle=18; YaPosition=1; - YaThick=1; YaStyle='tf'; - PHI=30*%pi/180; - THETA=60*%pi/180; - FocusPoint=[0,0,0]; - EyePoint=[5,5,5]; - ASSIGNLIST=list('`',char(39)); - SCALEX=1; - SCALEY=1; - LOGX=0; - LOGY=0; - TEXFORLEVEL=0; - TEXFORLAST=list(); - endfunction; -
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin Binary files differdeleted file mode 100644 index 2f1c2398..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci deleted file mode 100644 index c12b721e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci +++ /dev/null @@ -1,31 +0,0 @@ -// 08.05.18 -// 08.05.19 -// 09.06.01 (same as 05.19) - -function Out=Kouten(PA,V,P,Q); - Eps=10.0^(-6); - A1=PA(1); A2=PA(2); - V1=V(1); V2=V(2); - P1=P(1); P2=P(2); - U1=Q(1)-P1; U2=Q(2)-P2; - Tmp=norm(P-Q)*norm(V); - if Tmp==0 - Out=[%inf,-%inf]; - return - end - D=U1*V2-U2*V1; - if abs(D)/Tmp<Eps - Out=[%inf,-%inf]; - return - end - S=((-A2+P2)*V1+(A1-P1)*V2)/D; - if S>1+Eps | S<-Eps - Out=[%inf,-%inf]; - return - end - T=((-A2+P2)*U1+(A1-P1)*U2)/D; - Tmp=PA+T*V; - Out=MixS(T,Tmp,sign(D)); -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.bin Binary files differdeleted file mode 100644 index ffe8ecfe..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci deleted file mode 100644 index 82cf1e2c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci +++ /dev/null @@ -1,51 +0,0 @@ -// 08.05.18 -// 08.05.20 -// 08.06.02 - -function TenL=KoutenList(PA,V,Bdy) - Eps=10.0^(-6); - TenL=[]; - for N=1:Mixlength(Bdy) - KL=Op(N,Bdy); - for K=1:size(KL,1)-1 - P=KL(K,:); Q=KL(K+1,:); - if P~='/' & Q~='/' - Tmp=Kouten(PA,V,P,Q); - if Tmp~=[%inf,-%inf] - Ten=Mixadd(Tmp,N); - Flg=0; - NN=Mixlength(TenL); - I=1; - while Flg==0 & I<=NN - Tmp=Op(I,TenL); - if Op(1,Ten)<Op(1,Tmp)-Eps - Tmp=Mixsub(1:I-1,TenL); - Tmp1=Mixadd(Tmp,Ten); - Tmp2=Mixsub(I:Mixlength(TenL),TenL); - TenL=Mixjoin(Tmp1,Tmp2); - Flg=1; - elseif Op(1,Ten)<Op(1,Tmp)+Eps - if Op(4,Ten)~=Op(4,Tmp) - Tmp=Mixsub(1:I-1,TenL); - Tmp1=Mixadd(Tmp,Ten); - Tmp2=Mixsub(I:Mixlength(TenL),TenL); - TenL=Mixjoin(Tmp1,Tmp2); - Flg=1; - elseif Op(3,Ten)~=Op(3,Tmp) - Tmp1=Mixsub(1:I-1,TenL); - Tmp2=Mixsub(I+1:Mixlength(TenL),TenL); - TenL=Mixjoin(Tmp1,Tmp2); - end - Flg=1; - end - I=I+1; - end - if Flg==0 - TenL=Mixadd(TenL,Ten); - end - end - end - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.bin Binary files differdeleted file mode 100644 index f7e0a110..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci deleted file mode 100644 index 371807fa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci +++ /dev/null @@ -1,105 +0,0 @@ -// -// 08.05.19 -// 09.12.05 - -function Out=Koutenseg(varargin) - //pointdata on AB at which AB intersects CD - Nargs=length(varargin); - Eps0=10^(-4); - A=varargin(1); V=varargin(2)-A; - Sv2=V(1)^2+V(2)^2; - if Sv2<10^(-6) - Out=[%inf,-%inf]; - return - end - P=varargin(3)-A; Q=varargin(4)-A; - Eps=10.0^(-3); - if Nargs>=5 - Eps=varargin(5); - end - Eps2=0.2; - if Nargs>=6 - Eps2=varargin(6); - end - Eps=min(Eps2,Eps/sqrt(Sv2)); - P1=(P(1)*V(1)+P(2)*V(2))/Sv2; - P2=(-P(1)*V(2)+P(2)*V(1))/Sv2; - Q1=(Q(1)*V(1)+Q(2)*V(2))/Sv2; - Q2=(-Q(1)*V(2)+Q(2)*V(1))/Sv2; - m1=-Eps; M1=1+Eps; - m2=-Eps; M2=Eps; - if (max(P1,Q1)<m1) | (min(P1,Q1)>M1) - Out=[%inf,-%inf]; - return - end - if (max(P2,Q2)<m2) | (min(P2,Q2)>M2) - Out=[%inf,-%inf]; - return - end - if P2*Q2<0 - T=P1-(Q1-P1)/(Q2-P2)*P2; - if (T>m1) & (T<M1) - if (T>-Eps0) & (T<1+Eps0) - Tmp1=A+T*V; - Tmp2=min(max(T,0),1); - Out=MixS(Tmp1,Tmp2,0); - else - Tmp1=A+T*V; - Tmp2=min(max(T,0),1); - Out=MixS(Tmp1,Tmp2,1); - end - return - end - if P1<m1 | P1>M1 | P2<m2 | P2>M2 - if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2 - Out=[%inf,-%inf]; - return - end - T=min(max(Q1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - T=min(max(P1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - if P1 > -Eps0 & P1 < 1 + Eps0 & P2 > -Eps0 & P2 < Eps0 - T= P1; - Tmp=A+T*V; - Out= MixS(Tmp, T, 0); - return - end - if Q1 > -Eps0 & Q1 < 1 + Eps0 & Q2 > -Eps0 & Q2 < Eps0 - T= Q1; - Tmp=A+T*V; - Out=MixS(Tmp,T,0); - return - end - if P1<m1 | P1>M1 | P2<m2 | P2>M2 - if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2 - Out=[%inf,-%inf]; - return - end - T=min(max(Q1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2 - T=min(max(P1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - if abs(P2)<abs(Q2) - T=min(max(P1,0),1); - else - T=min(max(Q1,0),1); - end - Tmp=A+T*V; - Out=MixS(Tmp,T,1); -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.bin Binary files differdeleted file mode 100644 index 70d72423..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci deleted file mode 100644 index 0e38dae7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci +++ /dev/null @@ -1,45 +0,0 @@ -// 08.07.13 -// 08.10.16 - -function Res=Kukannozoku(Jokyo,KukanL) - Eps=10^(-6); - N=size(KukanL,1); - T1=Jokyo(1); T2=Jokyo(2); - Tmp=KukanL(1,:); - T1=max(T1,Tmp(1)); - Tmp=KukanL(N,:); - T2=min(T2,Tmp(2)); - Res=[]; - Flg=0; - for I=1:N - Ku=KukanL(I,:); - if Flg==0 - if Ku(2)<T1 - Res=[Res;Ku]; - else - Flg=1; - if Ku(1)<T1-Eps - Tmp=[Ku(1),T1]; - Res=[Res;Tmp]; - end; - if Ku(2)>T2+Eps - Tmp=[T2,Ku(2)]; - Res=[Res;Tmp]; - end; - end; - elseif Flg==1 - if Ku(2)<T2 - continue; - else - Flg=2; - if Ku(1)<T2-Eps - Ku=[T2,Ku(2)]; - end; - Res=[Res;Ku]; - end; - else - Res=[Res;Ku]; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.bin Binary files differdeleted file mode 100644 index 0d78251c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci deleted file mode 100644 index 4e38175f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci +++ /dev/null @@ -1,62 +0,0 @@ -// 08.05.30 - -function Out=Kukeiwake(PL) - global XMIN XMAX YMIN YMAX; - Eps=10.0^(-6); - NW=[XMIN,YMAX]; SW=[XMIN,YMIN]; - SE=[XMAX,YMIN]; NE=[XMAX,YMAX]; - Sikaku=[NW;SW;SE;NE;NW]; - Kt=IntersectcrvsPp(PL,Sikaku); - if Mixlength(Kt)~=2 - disp('not two points') - return - end - Tmp=Op(1,Kt); - Pt1=Op(1,Tmp); - N1=Trunc(Op(2,Tmp)); - M1=Op(3,Tmp); - Tmp=Op(2,Kt); - Pt2=Op(1,Tmp); - N2=Trunc(Op(2,Tmp)); - M2=Op(3,Tmp); - T1=ParamonCurve(Pt1,M1,Sikaku); - T2=ParamonCurve(Pt2,M2,Sikaku); - QL=[]; - if Vecnagasa(Pt1,PL(N1+1,:))>Eps - QL=[Pt1]; - end - QL=[QL;PL(N1+1:N2,:)]; - if Vecnagasa(Pt2,PL(N2,:))>Eps - QL=[QL;Pt2]; - end - HidariL=QL; - Ms=M2+1; Me=M1; - if T1<T2+Eps Me=M1+4; end - for M=Ms:Me - Tmp=HidariL(size(HidariL,1),:); - P=Sikaku(modulo(M-1,4)+1,:); - if Vecnagasa(Tmp,P)>Eps - HidariL=[HidariL;P]; - end - end - Tmp=HidariL(size(HidariL,1),:); - if Vecnagasa(Tmp,Pt1)>Eps - HidariL=[HidariL;Pt1]; - end - MigiL=QL; - Ms=M2; Me=M1+1; - if T1>T2-Eps Me=Me-4; end; - for M=Ms:-1:Me - Tmp=MigiL(size(MigiL,1),:); - P=Sikaku(modulo(M-1,4)+1,:); - if Vecnagasa(Tmp,P)>Eps - MigiL=[MigiL;P] - end - end - Tmp=MigiL(size(MigiL,1),:); - if Vecnagasa(Tmp,Pt1)>Eps - MigiL=[MigiL;Pt1]; - end - Out=MixS(HidariL,MigiL); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.bin Binary files differdeleted file mode 100644 index fdf86c27..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci deleted file mode 100644 index a07a89d1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci +++ /dev/null @@ -1,30 +0,0 @@ -function Kyorihensuu(varargin) - if length(varargin)==0 - FL='default'; - else - FL=varargin(1); - if FL=='' - FL='tmp.tex' - end - end - StrM=[... - '\newlength{\Width}%',... - '\newlength{\Height}%',... - '\newlength{\Depth}%'... - ]; - if FL~='default' - Fid=mopen(FL,'w'); - mprintf('%s\n\n','Writing to '+FL); - end; - for I=1:size(StrM,2) - Str=StrM(I); - mprintf('%s\n',Str); - if FL~='default' - mfprintf(Fid,'%s\n',Str); - end - end - if FL~='default' - mclose(Fid) - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin Binary files differdeleted file mode 100644 index fcb5da5c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci deleted file mode 100644 index 4090c2da..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci +++ /dev/null @@ -1,144 +0,0 @@ -// 08.05.18 -// 08.05.19 -// 08.05.20 -// 08.05.30 -// 08.09.19 -// 08.10.26 -// 09.01.15 "e" -// 09.05.18 -// 09.12.05 -// 16.11.03 Eps=10^(-5) -// 16.12.05 Eps=10^(-7) - -function PLall=Kyoukai(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - Eps0=10^(-7); - DataL=[]; - for I=1:Nargs - Tmp=varargin(I); - if Mixtype(Tmp)==1 - Tmp1=MixS(Tmp); - DataL=Mixadd(DataL,Tmp1); - end - if Mixtype(Tmp)==2 - DataL=Mixadd(DataL,Tmp); - end - if Mixtype(Tmp)==3 - DataL=Mixjoin(DataL,Tmp); - end - end; - Eps=10.0^(-4); - PLall=[]; - Sflg=0; - N=Mixlength(DataL); - for I=1:N - Data=Op(I,DataL); - Tmp=Op(Mixlength(Data),Data); - if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1 - Rg=Tmp ; Nd=Mixlength(Data)-1; - elseif type(Tmp)==10 - Rg=Tmp ; Nd=Mixlength(Data)-1; - else - Rg='c' ; Nd=Mixlength(Data); - end; - for J=1:Nd - Tmp=Op(J,Data); - if type(Tmp)==10 - Rg=Tmp; - continue - end - Points=Tmp; - P1=Ptstart(Points); - P2=Ptend(Points); - if J==1 - PL=Points; - Pfirst=P1; - Plast=P2; - if Nd>=2 - Tmp=Op(2,Data); - P=Ptstart(Tmp); - Q=Ptend(Tmp); - if norm(P2-P)>Eps & norm(P2-Q)>Eps - Tmp=size(PL,1); - PL=PL(Tmp:-1:1,:); - Pfirst=Ptstart(PL); - Plast=Ptend(PL); - end; - end - else - if norm(P1-Plast)<Eps - Stp=1; Ks=2; Ke=size(Points,1); - elseif norm(P2-Plast)<Eps - Stp=-1; Ks=size(Points,1)-1; Ke=1; - else - PL=[PL;%inf,%inf;Points]; - Sflg=1; - Pfirst=P1; - Plast=P2; - Stp=1; Ks=size(Points,1)-1; Ke=1; - end - for K=Ks:Stp:Ke - PL=[PL;Points(K,:)]; - end - Plast=Points(Ke,:); - end - end - if norm(Pfirst-Plast)>Eps - Np=size(PL,1); - if Rg=='c' - PL=[PL;Pfirst]; - elseif Rg=='s' - Tmp=[PL(1:Np,2);YMIN]; - Y=min(Tmp)-1; - P=[Plast(1),Y]; Q=[Pfirst(1),Y]; - PL=[PL;P;Q;Pfirst]; - elseif Rg=='n' - Tmp=[PL(1:Np,2);YMAX]; - Y=max(Tmp)+1; - P=[Plast(1),Y]; Q=[Pfirst(1),Y]; - PL=[PL;P;Q;Pfirst]; - elseif Rg=='w' - Tmp=[PL(1:Np,1);XMIN]; - X=min(Tmp)-1; - P=[X,Plast(2)]; Q=[X,Pfirst(2)]; - PL=[PL;P;Q;Pfirst]; - elseif Rg=='e' - Tmp=[PL(1:Np,1);XMAX]; - X=max(Tmp)+1; - P=[X,Plast(2)]; Q=[X,Pfirst(2)]; - PL=[PL;P;Q;Pfirst]; - elseif type(Rg)==1 & size(Rg,1)==1 & size(Rg,2)>1 - Tmp=Kukeiwake(PL); //Modified from here - Tmp1=Op(1,Tmp); - Tmp2=Naigai(Rg,Mix(Tmp1)); - if Tmp2==[1] - PL=Op(1,Tmp); - else - PL=Op(2,Tmp); // to here - end - end - end - Tmp=[Ptstart(PL)]; - for J=2:size(PL,1) - P=PL(J,:); - Q=Tmp(size(Tmp,1),:); - if norm(P-Q)>Eps then - Tmp=[Tmp;P]; - end - end - PL=Tmp; - PLall=Mixadd(PLall,PL); - end - if Mixlength(PLall)==1 & Sflg==0 - Tmp=Op(1,PLall); -// Tmp=Op(1,Tmp); - if norm(Ptstart(Tmp)-Ptend(Tmp))>Eps0 - Tmp=[Tmp;Ptstart(Tmp)]; - PLall=MixS(Tmp); - end - end; -endfunction; - - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.bin Binary files differdeleted file mode 100644 index 7949b7bf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci deleted file mode 100644 index 7a7a4b78..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci +++ /dev/null @@ -1,100 +0,0 @@ -// -// 09.12.25 - -function Letter(varargin) - global Wfile FID MEMORI; - Nargs=length(varargin); - for I=1:3:Nargs - Tmp=varargin(I); - P=Doscaling(Tmp); - X=P(1); - Y=P(2); - Houkou=varargin(I+1); - Mojiretu=varargin(I+2); - Hset=Houkou; - Vhoko='c'; - if mtlb_findstr(Hset,'n')~=[] - Vhoko='n'; Y=Y+MEMORI; - end - if mtlb_findstr(Hset,'s')~=[] - Vhoko='s'; Y=Y-MEMORI; - end - Hhoko='c'; - if mtlb_findstr(Hset,'e')~=[] - Hhoko='e'; X=X+MEMORI; - end - if mtlb_findstr(Hset,'w')~=[] - Hhoko='w'; X=X-MEMORI; - end - Hoko=Vhoko+Hhoko; - Suu='+-.0123456789'; - SuuL=Suu; - Hcode=ascii(Houkou); - J=1; Dstr=''; - while J<=length(Houkou) - Tmp=char(Hcode(J)); - if mtlb_findstr(SuuL,Tmp)~=[] - if Dstr=='' - Hk=char(Hcode(J-1)); - end - Dstr=Dstr+Tmp; - else - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - Dstr=''; - end - end - J=J+1; - end - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - end - CalcWidth(Hoko,Mojiretu); - CalcHeight(Hoko,Mojiretu); - Tmp='){\hspace*{\Width}'; - Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}'; - if Wfile=='default' - mprintf('%s','\put('); - mprintf('%6.4f%s%6.4f',X,',',Y); - mprintf('%s%s\n',Str,'%'); - mprintf('%s\n','%'); - else - mfprintf(FID,'%s','\put('); - mfprintf(FID,'%6.4f%s%6.4f',X,',',Y); - mfprintf(FID,'%s%s\n',Str,'%'); - mfprintf(FID,'%s\n','%'); - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin Binary files differdeleted file mode 100644 index dc1116b4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci deleted file mode 100644 index f99917cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 08.05.31 -// 08.08.24 -// 09.12.25 - -function Letterrot(varargin) - global MEMORI; - P=varargin(1); - V=varargin(2); N=3; - P=Doscaling(P); - V=Doscaling(V); - Tmov=0; - Tmp=varargin(N); - if type(Tmp)==1 - Tmov=Tmp; N=N+1; - end - Nmov=0; - Tmp=varargin(N); - if type(Tmp)==1 then - Nmov=Tmp; N=N+1; - end - Mojiretu=varargin(N); - Tv=1/Vecnagasa(V)*V; - Nv=[-Tv(2),Tv(1)]; - P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv; - Tmp=acos(V(1)/Vecnagasa(V)); - Theta=round(Tmp*180/%pi); - if V(2)>=0 - Units=''; - else - Units='units=-360,'; - end - Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta); - Tmp=Tmp+'}{'+Mojiretu+'}'; - Letter(P,"c",Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin Binary files differdeleted file mode 100644 index b8e9311a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci deleted file mode 100644 index bc44c2e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci +++ /dev/null @@ -1,44 +0,0 @@ -// 09.10.09 -// 09.10.12 -// 09.11.01 -// 09.11.12 -// 09.12.06 -// 10.12.04 - -function Out=Lineplot(varargin) - Nargs=length(varargin); - A=varargin(1); - if type(A)==1 // 09.11.12 from - Tmp=length(A); - if Tmp>3 - B=A(Tmp/2+1:Tmp); - A=A(1:Tmp/2); - Is=2; - else - B=varargin(2); - Is=3; - end; - else - B=A(2); - A=A(1); - Is=2; - end; // upto - Mag=100; Semi=''; - for I=Is:Nargs - Tmp=varargin(I); - select type(Tmp) - case 1 - Mag=Tmp; - case 10 - Semi=Tmp; - end; - end; - V= Mag/norm(B-A)*(B-A) // 10.12.04 from here - if Semi=="" - Out=Listplot(A-V,A+V) - elseif Semi=="+" - Out=Listplot(A,A+V) - else - Out=Listplot(A-V,A) - end // 10.12.04 to here -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin Binary files differdeleted file mode 100644 index 5f1081ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci deleted file mode 100644 index 0bc9f736..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci +++ /dev/null @@ -1,24 +0,0 @@ -// -// 08.07.13 -// 09.06.13 - -function Z=Listplot(varargin) - Z=[]; - for I=1:length(varargin) - Data=varargin(I); - if Mixtype(Data)==1 - if size(Data,1)==1 - Tmp=matrix(Data,2,size(Data,2)/2); - Z=[Z;Tmp']; - else - Z=[Z;Data]; - end; - else - for J=1:Mixlength(Data) - Tmp=Mixop(J,Data); - Z=[Z;Tmp]; - end - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin Binary files differdeleted file mode 100644 index e44f369d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci deleted file mode 100644 index 27e70d48..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci +++ /dev/null @@ -1,49 +0,0 @@ -// -// 08.08.24 -// 10.01.02 - -function Out=MakeBowdata(PA,PB,H) - global BOWSTART BOWEND - BOWSTART=PA; - BOWEND=PB; - Eps=10^(-5); - D=1/2*Vecnagasa(PB-PA); - R=(H^2+D^2)/(2*H); - A1=PA(1); A2=PA(2); - B1=PB(1); B2=PB(2); - if abs(A2-B2)>Eps - x=poly(0,'X'); - y=-(A1-B1)*x/(A2-B2)+(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2); - Eq1=(A1-x)^2+(A2-y)^2-R^2; - Tmp=coeff(Eq1); - C0=Tmp(1); C1=Tmp(2); C2=Tmp(3); - Det=sqrt(C1^2-4*C0*C2); - Ansx1=(-C1+Det)/(2*C2); - Ansx2=(-C1-Det)/(2*C2); - Tmp=horner(y,Ansx1); - PC=[Ansx1,Tmp]; - Tmp=horner(y,Ansx2); - PC2=[Ansx2,Tmp]; - else - Tmp=0.5*(PA+PB); - PC=Tmp+[0,R-H]; - PC2=Tmp-[0,R-H]; - end; - VA=PA-PC; - VB=PB-PC; - if VA(1)*VB(2)-VA(2)*VB(1)<0 - PC=PC2; - end - AngA=acos((PA(1)-PC(1))/R); - if PA(2)-PC(2)<0 - AngA=-AngA; - end - AngB=acos((PB(1)-PC(1))/R); - if PB(2)-PC(2)<0 - AngB=-AngB; - end - if AngA>AngB - AngB=AngB+2*%pi; - end - Out=Mixmake(PC,R,AngA,AngB); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin Binary files differdeleted file mode 100644 index f1333732..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci deleted file mode 100644 index f3bbd3ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci +++ /dev/null @@ -1,62 +0,0 @@ -// -// 09.12.25 -// 10.01.01 -// 10.12.02 ( debugged for norm()==0 ) - -function Outdata=MakeCurves(varargin) - Figdata=varargin(1); - Ptout=1; - if length(varargin)>=2 - Ptout=varargin(2); - end - Eps=10.0^(-6); - IndM=Dataindex(Figdata); - Atos=[]; - for Nd=1:size(IndM,1) - Tmp=IndM(Nd,:); - Motos=Figdata(Tmp(1):Tmp(2),:); - All=size(Motos,1); - if size(Motos,1)==1 - if InWindow(Motos)=='o' - continue; - end; - if Ptout==1 - Drwpt(Motos(1,:)); - else - Atos=[Atos;%inf,%inf;Doscaling(Motos)]; - end - continue - end - Crv=[]; - for I=2:All - P=Motos(I-1,:); - Q=Motos(I,:); - Snbn=MeetWindow(P,Q); - if Snbn==[] - if Crv~=[] - Atos=[Atos;%inf,%inf;Doscaling(Crv)]; - Crv=[]; - end - else - if norm(Snbn(1,:)-Snbn(2,:))<Eps // 10.12.02 - continue; - end; - if Crv==[] - Crv=Snbn - else - Tmp=Crv(size(Crv,1),:); - if norm(Tmp-Snbn(1,:))<Eps - Crv=[Crv;Snbn(2,:)]; - else - Atos=[Atos;%inf,%inf;Doscaling(Crv)]; - Crv=Snbn; - end - end - end - end - if size(Crv,1)>=2 - Atos=[Atos;%inf,%inf;Doscaling(Crv)]; - end - end - Outdata=Atos(2:size(Atos,1),:); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.bin Binary files differdeleted file mode 100644 index 1c1d8d80..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci deleted file mode 100644 index 81b0492f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci +++ /dev/null @@ -1,45 +0,0 @@ -// 08.09.19 -// 08.10.15 -// 08.12.21 - -function AnsL=MakecutbycrvL(Out1,CutuvL,Uveqstr,Uname,Vname,Eps) - if CutuvL==[] - if Mixtype(Out1)==1 - AnsL=Mix(Out1); - else - AnsL=Out1; - end; - return; - end; - AnsL=[]; - ParL=Partitionseg(Out1,CutuvL,Eps); - Flg=0; - for J=1:length(ParL)-1 - Tmp=(ParL(J)+ParL(J+1))*0.5; - Tmp=PointonCurve(Tmp,Out1); - Tmp1='('+string(Tmp(1))+')'; - Tmp2='('+string(Tmp(2))+')'; - Tmp=strsubst(Uveqstr,Uname,Tmp1); - Tmp=strsubst(Tmp,Vname,Tmp2); - Tmp=evstr(Tmp); - if Tmp>0 - if Flg==0 - P1=ParL(J); - end; - Flg=1 - else - if Flg==1 - P2=ParL(J); - Tmp=Partcrv(P1,P2,Out1); - AnsL=Mixadd(AnsL,Tmp); - end; - Flg=0 - end; - end; - if Flg==1 - P2=ParL(length(ParL)); - Tmp=Partcrv(P1,P2,Out1); - AnsL=Mixadd(AnsL,Tmp); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin Binary files differdeleted file mode 100644 index eb542783..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci deleted file mode 100644 index 9cf82362..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci +++ /dev/null @@ -1,119 +0,0 @@ -function Makehasen(Figdata,Sen,Gap,Ptn) - global Wfile FID; - Eps=10.0^(-6); - Clist=MakeCurves(Figdata); - DinM=Dataindex(Clist); - for N=1:size(DinM,1) - Tmp=DinM(N,:); - Data=Clist(Tmp(1):Tmp(2),:); - Dtall=size(Data,1); - Len=0; - Lenlist=[0]; - for I=2:Dtall - Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); - Lenlist=[Lenlist,Len]; - end - Lenall=Lenlist(Dtall); - if Lenall==0 - continue - end - Kari=(Sen+Gap)*0.1; - Naga=Sen*0.1; - Tobi=Gap*0.1; - if Vecnagasa(Data(1,:)-Data(Dtall,:))<Eps - Nsen=max(ceil(Lenall/Kari),3); - SegUnit=Lenall/Nsen; - Naga=SegUnit*Sen/(Sen+Gap); - Tobi=SegUnit*Gap/(Sen+Gap); - SegList=[0:SegUnit:(Nsen-1)*SegUnit]; - else - if Ptn==0 - Nsen=max(ceil((Lenall+Tobi)/Kari),3); - SegUnit=Lenall*(Sen+Gap)/(Nsen*Sen+(Nsen-1)*Gap); - Naga=SegUnit*Sen/(Sen+Gap); - Tobi=SegUnit*Gap/(Sen+Gap); - SegList=[0:SegUnit:(Nsen-1)*SegUnit]; - else - Nsen=max(ceil((Lenall+Naga)/Kari),3); - SegUnit=Lenall*(Sen+Gap)/((Nsen-1)*Sen+Nsen*Gap); - Naga=SegUnit*Sen/(Sen+Gap); - Tobi=SegUnit*Gap/(Sen+Gap); - SegList=[Tobi:SegUnit:Tobi+(Nsen-2)*SegUnit]; - end - end - Hajime=1; Owari=1; - Mojisu=0; - for I=1:length(SegList) - Len=SegList(I); - J=Owari; - while Len>=Lenlist(J)-Eps - if J==Dtall - break - end - J=J+1; - end - Hajime=J-1; - J=Hajime; - while Len+Naga>Lenlist(J)-Eps - if J==Dtall - break - end - J=J+1 - end - Owari=J-1; - T=(Len-Lenlist(Hajime))... - /(Lenlist(Hajime+1)-Lenlist(Hajime)); - P=Data(Hajime,:)+T*(Data(Hajime+1,:)-Data(Hajime,:)); - X=string(round(MilliIn*P(1))); - Y=string(-round(MilliIn*P(2))); - Str='\special{pa '+X+' '+Y+'}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Mojisu=Mojisu+length(Str); - for J=Hajime+1:Owari - P=Data(J,:); - X=string(round(MilliIn*P(1))); - Y=string(-round(MilliIn*P(2))); - Str='\special{pa '+X+' '+Y+'}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Mojisu=Mojisu+length(Str); - end - T=(Len+Naga-Lenlist(Owari))... - /(Lenlist(Owari+1)-Lenlist(Owari)); - P=Data(Owari,:)+T*(Data(Owari+1,:)-Data(Owari,:)); - X=string(round(MilliIn*P(1))); - Y=string(-round(MilliIn*P(2))); - Str1='\special{pa '+X+' '+Y+'}'; - Str2='\special{fp}'; - if Wfile=='default' - mprintf('%s',Str1); - mprintf('%s',Str2); - else - mfprintf(FID,'%s',Str1); - mfprintf(FID,'%s',Str2); - end; - Mojisu=Mojisu+length(Str1)+length(Str2); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end; - Mojisu=0; - end - end - end - if Wfile=='default' - mprintf('%s\n%s\n','%','%'); - else - mfprintf(FID,'%s\n%s\n','%','%'); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.bin Binary files differdeleted file mode 100644 index ec29163f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci deleted file mode 100644 index e9915e1b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.10.21 - -function Out=Makeliststr(L) - Out='list('; - for I=1:length(L) - Dt=L(I); - if type(Dt)==1 - if length(Dt)==1 - Dts=string(Dt); - else - Dts='['; - for J=1:size(Dt,1) - for K=1:size(Dt,2) - Dts=Dts+string(Dt(J,K)); - if K<size(Dt,2) - Dts=Dts+','; - end; - end; - if J<size(Dt,1) - Dts=Dts+';'; - else - Dts=Dts+']'; - end; - end; - end; - end; - if type(Dt)==10 - Dts=Prime()+Dt+Prime(); - end; - if type(Dt)==15 - Dts=Makeliststr(Dt); - end; - Out=Out+Dts; - if I<length(L) - Out=Out+','; - else - Out=Out+')'; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.bin Binary files differdeleted file mode 100644 index a5b313ff..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci deleted file mode 100644 index e24525e1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci +++ /dev/null @@ -1,345 +0,0 @@ -// 08.09.19 -// 08.09.24 -// 08.10.09 -// 08.10.10 -// 08.10.15 -// 08.12.06 -// 08.12.21 -// 08.12.31 -// 10.02.16 Eps__ ( And Mislength, Mixop replaced ) -// 13.10.21 ( __ added to varibles ) - -function FsL__=Makesfcutoffdata(MS__) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT - global BORDERPT OTHERPARTITION PARTITIONPT - global HIDDENDATA BORDERHIDDENDATA; - timer(); - Nargs__=length(MS__); - HT__=Op(1,MS__); - PT__=Op(2,MS__); - Fd__=Op(3,MS__); - CutD__=Op(4,MS__); - Np__=[50,50]; - Eps__=[0.05,1]; // - Eps__2=0.2; - Sgnstr__='+'; - K__=0; - for I__=5:Nargs__ - Tmp__=Op(I__,MS__); - if type(Tmp__)==10 - Sgnstr__=Tmp__; - end; - if type(Tmp__)==1 // from - K__=K__+1; - if K__==1 - Np__=Tmp__; - if length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - if K__==2 - Eps__=Tmp__; - if length(Eps__)==1 - Eps__=[Eps__,1]; - end; - end; - if K__==3 - Eps__2=Tmp__; - end; - end; // upto - end; - Tmp__=Op(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Op(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Op(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Op(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - Fd__L=Fullformfunc(Fd__); - Fxy__=Op(1,Fd__L); - Xf__=Op(2,Fd__L); - Yf__=Op(3,Fd__L); - Zf__=Op(4,Fd__L); - DrwS__=Op(7,Fd__L); - Tmp__=Op(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Op(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); Umax__=Urg__(2); - Vmin__=Vrg__(1); Vmax__=Vrg__(2); - Fugou__=1; - if Sgnstr__=='-' | Sgnstr__=='n' - Fugou__=-1; - end; - if Mixtype(CutD__)~=1 - V1__=Op(1,CutD__); - Tmp__=Op(2,CutD__); - if length(Tmp__)>1 - D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - D__=Tmp__; - end; - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-'; - Eq__=Tmp__+string(D__); - elseif type(CutD__)==1 - V1__=CutD__(1:3); - D__=CutD__(4); - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+'; - Eq__=Tmp__+string(D__); - else - K__=mtlb_findstr(CutD__,'='); - if K__>0 - Tmp__1=part(CutD__,1:K__-1); - Tmp__2=part(CutD__,K__+1:length(CutD__)); - Eq__=Tmp__1+'-('+Tmp__2+')'; - else - Eq__=CutD__; - end; - end; - Eq__='('+string(Fugou__)+')*('+Eq__+')'; - Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')'); - Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')'); - Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')'); - Tmp__1=Op(5,Fd__L); - Tmp__2=Op(6,Fd__L); - CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__); - EkL__=[]; - for I__=1:length(CutuvL__) - Out__1=Op(I__,CutuvL__); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end; - Tmp__=mtlb_findstr(DrwS__,'e'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[Umax__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Tmp__=mtlb_findstr(DrwS__,'n'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[T,Vmax__]','T=[Umin__,Umax__]','N='+string(Np__(1))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Tmp__=mtlb_findstr(DrwS__,'w'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[Umin__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Tmp__=mtlb_findstr(DrwS__,'s'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[T,Vmin__]','T=[Umin__,Umax__]','N='+string(Np__(1))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Fbdxy__=[]; - for I__=1:length(EkL__) - Out__1=Op(I__,EkL__); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__=Out__1(J__,1:2); - Out__2=[Out__2,Tmp__]; - end; - Tmp__=Listplot(Out__2); - Fbdxy__=Mixjoin(Fbdxy__,list(Tmp__)); - end; - if PT__=='pers' - [Zval__,Xval__,Yval__]=Evlptablepers(Mix(Fd__,Np__)); - end; - if PT__=='para' - [Zval__,Xval__,Yval__]=Evlptablepara(Mix(Fd__,Np__)); - end; - Mixdisp(Mix('Ridge Equation obtained ',timer())); - Out__2=Implicitplot(Zval__,Xval__,Yval__); - IMPLICITDATA=Out__2; - Tmp__L=[]; - for I__=1:length(Out__2) - Tmp__1=Op(I__,Out__2); - Tmp__=MakecutbycrvL(Tmp__1,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for J__=1:length(Tmp__) - Tmp__L=Mixjoin(Tmp__L,Op(J__,Tmp__)); - end; - end; - Out__3=Tmp__L; - IMPLICITDATA=Out__3; - Mixdisp(Mix('ImplicitData obtained ',timer())); - if PT__=='pers' - Out__4=Cuspsplitpers(Out__3,Fd__,Eps__(1)); - end; - if PT__=='para' - Out__4=Cuspsplitpara(Out__3,Fd__,Eps__(1)); - end; - CUSPDATA=Out__4; - CUSPT=CUSPSPLITPT; - Mixdisp(Mix('CuspData obtained ',timer())); - FkL__=Mixjoin(EkL__,Out__4); - if PT__=='pers' - Fall__=Projpers(FkL__); - end; - if PT__=='para' - Fall__=Projpara(FkL__); - end; - if HT__=='raw' - Mixdisp(Mix('BorderData obtained ',timer())); - FsL__=FkL__; - return; - end; - BORDERPT=[]; - Tmp__=[]; - for I__=1:length(Fall__) - Tmp__=Mixjoin(Tmp__,list([])); - end; - OTHERPARTITION=Tmp__; - FsL__=[]; - BORDERHIDDENDATA=[]; - for I__=1:length(Fall__) - if PT__=='pers' - Tmp__=Projpers(Op(I__,FkL__)); - end; - if PT__=='para' - Tmp__=Projpara(Op(I__,FkL__)); - end; - ParL__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); - if length(PARTITIONPT)>2 - Tmp__=length(PARTITIONPT)-1; - Tmp__1=BORDERPT; - for J__=2:Tmp__ - Tmp__2=Op(J__,PARTITIONPT); - Tmp__1=Mixjoin(Tmp__1,list(Tmp__2)); - end; - BORDERPT=Tmp__1; - end; - if PT__=='pers' - if Fxy__=='p' - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); - else - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); -// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__); -// Tmp__=Nohiddenpers(ParL__,Tmp__1,Tmp__2); - end; - else - if Fxy__=='p' - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); - else - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); -// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__); -// Tmp__=Nohiddenpara(ParL__,Tmp__1,Tmp__2); - end; - end; - BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); - FsL__=Mixjoin(FsL__,Tmp__); - end; - Mixdisp(Mix('BorderData obtained ',timer())); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.bin Binary files differdeleted file mode 100644 index 04b49b15..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci deleted file mode 100644 index 443751be..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 08.05.20 -// 09.10.05 -// 10.01.20 -// 10.02.01 - -function Out=Makeshasen(PtnL,PA,V,Bdy) - Eps=10.0^(-6); - TenL=KoutenList(PA,V,Bdy); - Nten=length(TenL); - Call=length(Bdy); - Ptn=zeros(1,Call); - Out=list(); - GL=[] - Te=-10.0^6; - for I=1:Nten-1 - TenP=Op(I,TenL); TenQ=Op(I+1,TenL); - Ts=Op(1,TenP); - P=Op(2,TenP); Q=Op(2,TenQ); - NC=Op(4,TenP); - Tmp=modulo(Ptn(NC)+1,2); - Ptn(1,NC)=Tmp; - if Op(1,TenQ)-Ts>Eps - if Member(Ptn,PtnL) - if abs(Te-Ts)>Eps - if GL~=[] - J=length(Out); - Out(J+1)=GL; - end; - Tmp=Listplot(P,Q); - GL=Tmp; - else - GL=[GL;Q]; - end - Te=Op(1,TenQ); - end - end - end - if size(GL,1)>0 - Out=Mixjoin(Out,list(GL)) - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin Binary files differdeleted file mode 100644 index ae09526a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci deleted file mode 100644 index 99ad5910..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci +++ /dev/null @@ -1,171 +0,0 @@ -// 08.07.13 -// 08.10.16 -// 09.03.05 -// 09.05.12 -// 10.05.09 -// 14.07.05 -// 16.12.24 ( when kukanL=[] ) - -function Allres=Makeskeletondata(Obj2L,Plt2L,R0,Eps2) - Eps=10.0^(-3); - Dmat=[]; - Dind=[]; - for I=1:Mixlength(Plt2L) - Dt=Mixop(I,Plt2L); - N1=size(Dmat,1)+1; - Dmat=[Dmat;Dt]; - N2=size(Dmat,1); - Dind=[Dind;N1,N2]; - end; - Nind=size(Dind,1); - Allres=[]; - for Nobj=1:Mixlength(Obj2L) - Plt2=Mixop(Nobj,Obj2L); - PhL=Plt2(:,1:2); - ClipL=[]; - for Ns=1:size(PhL,1)-1 - P1=PhL(Ns:Ns+1,:); - for I=1:size(Dind,1) - Tmp=Dmat(Dind(I,1):Dind(I,2),:); - P2=Tmp(:,1:2); - KC=IntersectcrvsPp(P1,P2,Eps); - if Mixlength(KC)>0 - for J=1:Mixlength(KC) - P=Mixop(1,Mixop(J,KC)); - Tmp=Mixop(2,Mixop(J,KC)); - if Tmp<1+Eps & Ns==1 // 2010.05.09 - continue; - end; - if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1 - continue; - end; // - N1=Ns; - N2=Mixop(3,Mixop(J,KC)); - Pa=Plt2(N1,1:2); - Za=Plt2(N1,3); - Pb=Plt2(N1+1,1:2); - Zb=Plt2(N1+1,3); - if norm(Pa-Pb)<Eps // added from here - continue; - end; // upto here - T1=norm(Pa-P)/norm(Pa-Pb); - Z1=(1-T1)*Za+T1*Zb; - Tmp=Dmat(Dind(I,1):Dind(I,2),:); - Pa=Tmp(N2,1:2); - Za=Tmp(N2,3); - Pb=Tmp(N2+1,1:2); - Zb=Tmp(N2+1,3); - if norm(Pa-Pb)<Eps // added from here - continue; - end; // upto here - T2=norm(Pa-P)/norm(Pa-Pb); - Z2=(1-T2)*Za+T2*Zb; - if Z1<Z2-Eps2 - if ClipL==[] // corrected from here - Tmp=1; - else - Tmp1=ClipL(:,1)-P(1); - Tmp2=ClipL(:,2)-P(2); - Tmp3=Tmp1.^2+Tmp2.^2; // 20140705 - Tmp=min(Tmp3); - end; // upto here - if Tmp>Eps^2 - Tmp1=P1(2,:)-P1(1,:); - Tmp2=Pb-Pa; - Tmp3=Naiseki(Tmp1,Tmp2); - Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2); - Tmp=1-0.5*Tmp3^2; - ClipL=[ClipL;P,N1,T1,R0/Tmp]; - end; - end; - end; - end; - end; - end; - Te=size(Plt2,1); - KukanL=[1.0,Te]; - P1=PhL; - if size(ClipL,1)>0 - for I=1:size(ClipL,1) - P=ClipL(I,1:2); - NN=ClipL(I,3); - T=NN+ClipL(I,4); - R=ClipL(I,5); - Flg=0; - for J=NN:-1:1 - Q=PointonCurve(J,P1); - if norm(P-Q)<R - continue; - end - Flg=1; - break; - end; - if Flg==0 - T1=1; - else - T1=J; T2=T; - H=T2-T1; - for N=1:10 - H=H*0.5; - Q=PointonCurve(T1+H,P1); - if norm(P-Q)<R - T2=T2-H; - else - T1=T1+H; - end; - end; - end; - Ku=[T1]; - Flg=0; - for J=NN+1:Te - Q=PointonCurve(J,P1); - if norm(P-Q)<R - continue; - end; - Flg=1; - break; - end; - if Flg==0 - T2=Te; - else - T1=T; T2=J; - H=T2-T1; - for N=1:10 - H=H*0.5; - Q=PointonCurve(T1+H,P1); - if norm(P-Q)<R - T1=T1+H; - else - T2=T2-H; - end; - end; - end; - Ku=[Ku,T2]; - if size(KukanL,2)==0 then - break; - end; - KukanL=Kukannozoku(Ku,KukanL); - end; - end; - Res=[]; - for I=1:size(KukanL,1) - T1=KukanL(I,1); N1=Trunc(T1); - T2=KukanL(I,2); N2=Trunc(T2); - PtL=[]; - if T1-N1<1-Eps - Tmp=PointonCurve(T1,P1); - PtL=MixS(Tmp); - end; - for J=N1+1:N2 - Tmp=PointonCurve(J,P1); - PtL=Mixadd(PtL,Tmp); - end; - if T2-N2>Eps - Tmp=PointonCurve(T2,P1); - PtL=Mixadd(PtL,Tmp); - end; - Res=Mixadd(Res,Listplot(PtL)); - end; - Allres=Mixjoin(Allres,Res); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin Binary files differdeleted file mode 100644 index 76247746..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci deleted file mode 100644 index 4838d658..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci +++ /dev/null @@ -1,188 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 09.05.12 -// 09.09.25 -// 10.05.09 -// 10.08.17 -// 14.07.05 - -function Allres=Makeskeletonpersdata(Obj2L,Plt2L,R0,Eps2) - Eps=10.0^(-3); - Dmat=[]; - Dind=[]; - for I=1:Mixlength(Plt2L) - Dt=Mixop(I,Plt2L); - N1=size(Dmat,1)+1; - Dmat=[Dmat;Dt]; - N2=size(Dmat,1); - Dind=[Dind;N1,N2]; - end; - Nind=size(Dind,1); - Allres=[]; - for Nobj=1:Mixlength(Obj2L) - Plt2=Mixop(Nobj,Obj2L); - PhL=Plt2(:,1:2); - ClipL=[]; - for Ns=1:size(PhL,1)-1 - P1=PhL(Ns:Ns+1,:); - for I=1:size(Dind,1) - Tmp=Dmat(Dind(I,1):Dind(I,2),:); - P2=Tmp(:,1:2); - KC=IntersectcrvsPp(P1,P2,Eps); - if Mixlength(KC)>0 - for J=1:Mixlength(KC) - P=Mixop(1,Mixop(J,KC)); - Tmp=Mixop(2,Mixop(J,KC)); - if Tmp<1+Eps & Ns==1 // 2010.05.09 - continue; - end; - if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1 - continue; - end; // - N1=Ns; - N2=Mixop(3,Mixop(J,KC)); - Pa=Plt2(N1,1:2); - Za=Plt2(N1,3); - Pb=Plt2(N1+1,1:2); - Zb=Plt2(N1+1,3); - if norm(Pa-Pb)<Eps // added from here - continue; - end; // upto here - T1=norm(Pa-P)/norm(Pa-Pb); - Pka=Cancoordpers([Pa(1),Pa(2),Za]); - Pkb=Cancoordpers([Pb(1),Pb(2),Zb]); - if T1>1-Eps - Pk=Pkb; - else - Tmp1=Listplot([Pa,Pb]); - Tmp2=Spaceline([Pka,Pkb]); - Tmp=Invperspt(1+T1,Tmp1,Tmp2); - Pk=Mixop(1,Tmp); - end; - Z1=Zperspt(Pk); - Tmp=Dmat(Dind(I,1):Dind(I,2),:); - Pa=Tmp(N2,1:2); - Za=Tmp(N2,3); - Pb=Tmp(N2+1,1:2); - Zb=Tmp(N2+1,3); - if norm(Pa-Pb)<Eps // added from here - continue; - end; // upto here - T2=norm(Pa-P)/norm(Pa-Pb); - Pka=Cancoordpers([Pa(1),Pa(2),Za]); - Pkb=Cancoordpers([Pb(1),Pb(2),Zb]); - if T2>1-Eps - Pk=Pkb; - else - Tmp1=Listplot([Pa,Pb]); - Tmp2=Spaceline([Pka,Pkb]); - Tmp=Invperspt(1+T2,Tmp1,Tmp2); - Pk=Mixop(1,Tmp); - end - Z2=Zperspt(Pk); - if Z1<Z2-Eps2 - if ClipL==[] // corrected from here - Tmp=1; - else - Tmp1=ClipL(:,1)-P(1); - Tmp2=ClipL(:,2)-P(2); - Tmp3=Tmp1.^2+Tmp2.^2; // 20140705 - Tmp=min(Tmp3); - end; // upto here - if Tmp>Eps^2 - Tmp1=P1(2,:)-P1(1,:); - Tmp2=Pb-Pa; - Tmp3=Naiseki(Tmp1,Tmp2); - Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2); - Tmp=1-0.5*Tmp3^2; - ClipL=[ClipL;P,N1,T1,R0/Tmp]; - end; - end; - end; - end; - end; - end; - Te=size(Plt2,1); - KukanL=[1.0,Te]; - P1=PhL; - if size(ClipL,1)>0 - for I=1:size(ClipL,1) - P=ClipL(I,1:2); - NN=ClipL(I,3); - T=NN+ClipL(I,4); - R= ClipL(I,5); // 10.08.17 - Flg=0; - for J=NN:-1:1 - Q=PointonCurve(J,P1); - if norm(P-Q)<R - continue; - end - Flg=1; - break; - end; - if Flg==0 - T1=1; - else - T1=J; T2=T; - H=T2-T1; - for N=1:10 - H=H*0.5; - Q=PointonCurve(T1+H,P1); - if norm(P-Q)<R - T2=T2-H; - else - T1=T1+H; - end; - end; - end; - Ku=[T1]; - Flg=0; - for J=NN+1:Te - Q=PointonCurve(J,P1); - if norm(P-Q)<R - continue; - end; - Flg=1; - break; - end; - if Flg==0 - T2=Te; - else - T1=T; T2=J; - H=T2-T1; - for N=1:10 - H=H*0.5; - Q=PointonCurve(T1+H,P1); - if norm(P-Q)<R - T1=T1+H; - else - T2=T2-H; - end; - end; - end; - Ku=[Ku,T2]; - KukanL=Kukannozoku(Ku,KukanL); - end; - end; - Res=[]; - for I=1:size(KukanL,1) - T1=KukanL(I,1); N1=Trunc(T1); - T2=KukanL(I,2); N2=Trunc(T2); - PtL=[]; - if T1-N1<1-Eps - Tmp=PointonCurve(T1,P1); - PtL=MixS(Tmp); - end; - for J=N1+1:N2 - Tmp=PointonCurve(J,P1); - PtL=Mixadd(PtL,Tmp); - end; - if T2-N2>Eps - Tmp=PointonCurve(T2,P1); - PtL=Mixadd(PtL,Tmp); - end; - Res=Mixadd(Res,Listplot(PtL)); - end; - Allres=Mixjoin(Allres,Res); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.bin Binary files differdeleted file mode 100644 index e8a0ce7a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci deleted file mode 100644 index dc917f30..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci +++ /dev/null @@ -1,79 +0,0 @@ -// 08.09.09 -// 08.10.08 -// 08.12.06 -// 08.12.30 -// 09.06.03 -// 13.10.19 ( __ added to variables ) - -function [Zval__,Xval__,Yval__]=Makevaltable(MS__) - Eps__=10^(-6); - Nargs__=Mixlength(MS__); - Fstr__=Mixop(1,MS__); - Tmp__=Mixop(2,MS__); - Tmp1__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,Tmp1__-1); - Xrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__))); - Tmp__=Mixop(3,MS__); - Tmp1__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,Tmp1__-1); - Yrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__))); - Tmp__=strsubst(Fstr__,Xname__,'x'); - Fstr__=strsubst(Tmp__,Yname__,'y'); - Tmp__=mtlb_findstr(Fstr__,Xname__); - if length(Tmp__)==0 - Fstr__=Fstr__+'+0*x'; - end; - Mdv__=50; - Ndv__=50; - if Nargs__>=4 - Tmp__=Mixop(4,MS__); - if length(Tmp__)>1 - Mdv__=Tmp__(1,1); - Ndv__=Tmp__(1,2); - else - Mdv__=Tmp__ - if Nargs__==4 - Ndv__=Mdv__ - else - Tmp1__=Mixop(5,MS__); - if type(Tmp1__)==1 & length(Tmp1__)==1 - Ndv__=Tmp1__; - else - Ndv__=Mdv__; - end - end - end - end - X1__=Xrange__(1); X2__=Xrange__(2); - Y1__=Yrange__(1); Y2__=Yrange__(2); - Dx__=(X2__-X1__)/(Mdv__-1); - Dy__=(Y2__-Y1__)/(Ndv__-1); - Xval__=[]; - Tmp__=X1__; - while Tmp__<X2__+Eps__ - Xval__=[Xval__,Tmp__]; - Tmp__=Tmp__+Dx__; - end; - Yval__=[]; - Tmp__=Y1__; - while Tmp__<Y2__+Eps__ - Yval__=[Yval__,Tmp__]; - Tmp__=Tmp__+Dy__; - end; - I__=1; -// x=Xval; -// for y=Yval -// Tmp=evstr(Fstr); -// Zval(I,:)=Tmp; -// I=I+1; -// end; - for y=Yval__ - J__=1; - for x=Xval__ - Zval__(I__,J__)=evstr(Fstr__); - J__=J__+1; - end; - I__=I__+1; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.bin Binary files differdeleted file mode 100644 index 36526d8e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci deleted file mode 100644 index a16a5a4d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci +++ /dev/null @@ -1,68 +0,0 @@ -// 08.08.22 -// 09.10.25 -// 09.10.26 -// 09.10.27 -// 09.10.29 - -function Out=MakeveLfaceL(VfL) - // Out format - // VeL Edge, Face num(as numlist), VeL num - // FL Face (Vertexs) - Eps=10^(-4); - Tmp=VfL($); - Tmp1=Tmp(1); - if type(Tmp1)==1 - FvL=list(VfL); - else - FvL=VfL; - end; - EL=list(); FL=list(); - for Nn=1:length(FvL) - Tmp=FvL(Nn); - VL=Tmp(1); - if length(VL)>0 - FnL=Tmp(2); - FaceL=list(); - for I=1:length(FnL) - Tmp1=FnL(I); - PtL=list(); - for J=1:length(Tmp1) - Tmp2=Tmp1(J); - PtL(J)=VL(Tmp2); - end; - FaceL(I)=PtL; - end; - else - FaceL=list(Tmp(2)); - end; - for I=1:length(FaceL) - Face=FaceL(I); - Face($+1)=Face(1); - FL($+1)=Face; - for J=1:length(Face)-1 - Edge=list(Face(J),Face(J+1)); - Flg=0; - for K=1:length(EL) - Tmp=EL(K); - Tmp1=Tmp(1); - Tmp2=norm(Edge(1)-Tmp1(1))+norm(Edge(2)-Tmp1(2)); - Tmp3=norm(Edge(1)-Tmp1(2))+norm(Edge(2)-Tmp1(1)); - if Tmp2<Eps | Tmp3<Eps - Tmp=EL(K); - Tmp1=Tmp(1); - Tmp2=[Tmp(2),length(FL)]; - EL(K)=list(Tmp1,Tmp2,K); - Flg=1; - break; - end; - end; - if Flg==0 - Ntmp=length(EL); - EL(Ntmp+1)=list(Edge,[length(FL)],Ntmp+1); - end; - end; - end; - end; - Out=list(EL,FL); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.bin Binary files differdeleted file mode 100644 index e1c2db72..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci deleted file mode 100644 index fb8aa27b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci +++ /dev/null @@ -1,111 +0,0 @@ -// 08.09.13 -// 08.09.16 -// 08.10.11 -// 08.10.27 -// 14.07.07 debug ( Kitahara ) - -function EhL=Makexybdy(Fd,Np) - Eps0=10^(-4); - FdL=Fullformfunc(Fd); - Tmp1=Mixop(2,FdL); - Tmp2=Mixop(3,FdL); - Xystr=[Tmp1,Tmp2]; - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - DrwS=Mixop(7,FdL); - Cflg=0; - EhL=[]; - Tmp=mtlb_findstr(DrwS,'e'); - if length(Tmp)~=0 - Tmp1=strsubst(Xystr,Uname,'('+string(Umax)+')'); - Tmp2=Mixop(6,FdL); - Tmp3='N='+string(Np(2)); - Tmp=Paramplot(Tmp1,Tmp2,Tmp3); - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - EhL=Mixadd(EhL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'n'); - if length(Tmp)~=0 - Tmp1=strsubst(Xystr,Vname,'('+string(Vmax)+')'); - Tmp2=Mixop(5,FdL); - Tmp3='N='+string(Np(1)); - Tmp=Paramplot(Tmp1,Tmp2,Tmp3); - if Cflg~=0 // 140707 Kitahara - Tmp1=Mixop(Mixlength(EhL),EhL); - Tmp=Joincrvs(Tmp1,Tmp); - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL); - EhL=Mixadd(Tmp1,Tmp); - else - Cflg=0; - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - EhL=Mixadd(EhL,Tmp); - end; - end; - Tmp=mtlb_findstr(DrwS,'w'); - if length(Tmp)~=0 - Tmp1=strsubst(Xystr,Uname,'('+string(Umin)+')'); - Tmp2=Mixop(6,FdL); - Tmp3='N='+string(Np(2)); - Tmp=Paramplot(Tmp1,Tmp2,Tmp3); - if Cflg~=0 //if Cflg==0 - Tmp1=Mixop(Mixlength(EhL),EhL); - Tmp=Joincrvs(Tmp1,Tmp); - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL); - EhL=Mixadd(Tmp1,Tmp); - else - Cflg=0; - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - EhL=Mixadd(EhL,Tmp); - end; - end; - Tmp=mtlb_findstr(DrwS,'s'); - if length(Tmp)~=0 - Tmp1=strsubst(Xystr,Vname,'('+string(Vmin)+')'); - Tmp2=Mixop(5,FdL); - Tmp3='N='+string(Np(1)); - Tmp=Paramplot(Tmp1,Tmp2,Tmp3); - if Cflg~=0 //if Cflg==0 - Tmp1=Mixop(Mixlength(EhL),EhL); - Tmp=Joincrvs(Tmp1,Tmp); - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL); - EhL=Mixadd(Tmp1,Tmp); - else - Cflg=0; - if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 - Cflg=1; - Tmp(size(Tmp,1),:)=Tmp(1,:); - end; - EhL=Mixadd(EhL,Tmp); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.bin Binary files differdeleted file mode 100644 index 8f3c4b69..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci deleted file mode 100644 index 11b02c63..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci +++ /dev/null @@ -1,39 +0,0 @@ -function Mawarikomi(varargin) - FL='default'; - haba='10cm'; - Nargs=length(varargin); - if Nargs>0 - haba=varargin(1); - if Nargs>=2 - FL=varargin(2); - if FL=='' - FL='tmp.tex' - end - end - end - StrM=[ - '\begin{mawarikomi}%',... - '%<1>[5](0,0)%',... - '{'+haba+'}{%',... - '',... - '}',... - '',... - '',... - '\end{mawarikomi}'... - ]; - if FL~='default' - Fid=mopen(FL,'w'); - mprintf('%s\n\n','Writing to '+FL); - end; - for I=1:size(StrM,2) - Str=StrM(I); - mprintf('%s\n',Str); - if FL~='default' - mfprintf(Fid,'%s\n',Str); - end - end - if FL~='default' - mclose(Fid); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.bin Binary files differdeleted file mode 100644 index 1bc9eef3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci deleted file mode 100644 index 65f543ea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci +++ /dev/null @@ -1,91 +0,0 @@ -// -// 08.05.30 debugged -// 08.08.14 (horner) -// 09.12.31 (gsort) -// 15.10.23 ( horner not used ) -// 16.12.29 (msprintf("%3.10f",..) used ) - -function R=MeetWindow(PA,PB) - global XMIN XMAX YMIN YMAX - if InWindow(PA)=='i' & InWindow(PB)=='i' - R=[PA;PB]; - return - end; - Eps=10.0^(-6); - t=poly(0,'T'); - PT="(1-(t))*PA+(t)*PB"; - Txm=-1; TxM=-1; Tym=-1; TyM=-1; - if PA(1)~=PB(1) - Txm=(XMIN-PA(1))/(PB(1)-PA(1)); - TxM=(XMAX-PA(1))/(PB(1)-PA(1)); - end - if PA(2)~=PB(2) - Tym=(YMIN-PA(2))/(PB(2)-PA(2)); - TyM=(YMAX-PA(2))/(PB(2)-PA(2)); - end; -// Tmp=horner(PT(2),Txm); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",Txm)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(2); - if Tmp<YMIN-Eps | Tmp>YMAX+Eps - Txm=-1; - end -// Tmp=horner(PT(2),TxM); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",TxM)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(2); - if Tmp<YMIN-Eps | Tmp>YMAX+Eps - TxM=-1 - end -// Tmp=horner(PT(1),Tym); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",Tym)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(1); - if Tmp<XMIN-Eps | Tmp>XMAX+Eps - Tym=-1 - end -// Tmp=horner(PT(1),TyM); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",TyM)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(1); - if Tmp<XMIN-Eps | Tmp>XMAX+Eps - TyM=-1 - end - Tmp=gsort([Txm,TxM,Tym,TyM]); - Tans=Tmp(length(Tmp):-1:1); - Tmp=[]; - for I=1:length(Tans) - Tmp1=Tans(I); - if Tmp1>-Eps & Tmp1<1+Eps - if length(Tmp)==0 - Tmp=[Tmp1]; - elseif abs(Tmp(length(Tmp))-Tmp1)>Eps - Tmp=[Tmp,Tmp1] - end - end - end - Tans=Tmp; - if length(Tans)==0 - R=[]; - return; - end - if length(Tans)==1 -// Ten1=horner(PT,Tans(1)); - Tmp1=strsubst(PT,"t",string(Tans(1))); - Ten1=evstr(Tmp1) - if InWindow(PA)=='i' - R=[PA;Ten1]; - return; - else - R=[Ten1;PB]; - return - end - end -// Ten1=horner(PT,Tans(1)); - Tmp1=strsubst(PT,"t",string(Tans(1))); - Ten1=evstr(Tmp1) -// Ten2=horner(PT,Tans(2)); - Tmp1=strsubst(PT,"t",string(Tans(2))); - Ten2=evstr(Tmp1) - R=[Ten1;Ten2]; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.bin Binary files differdeleted file mode 100644 index 0392c6b0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci deleted file mode 100644 index 65ba1166..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci +++ /dev/null @@ -1,169 +0,0 @@ -// 08.10.24 -// 08.10.25 -// 08.10.26 -// 09.12.31 (gsort) -// 13.10.22 ( __ added to varibles ) -// 13.12.02 debugged - -function PtL__=Meetpoints(PtA__,PtB__,Fd__,Uveq__,Np__,Eps__) - Eps__0=10^(-4); - Vec__=PtB__-PtA__; - Out__=[]; - PtL__=[]; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Mixop(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - Fd__L=Fullformfunc(Fd__); - Xf__=Mixop(2,Fd__L); - Yf__=Mixop(3,Fd__L); - Zf__=Mixop(4,Fd__L); - Tmp__=Mixop(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); UMax__=Urg__(2); - Vmin__=Vrg__(1); VMax__=Vrg__(2); - V1__='('+string(Vec__(1))+')'; - V2__='('+string(Vec__(2))+')'; - V3__='('+string(Vec__(3))+')'; - Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))'; - Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))'; - Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))'; - Urg__str=Mixop(5,Fd__L); - Vrg__str=Mixop(6,Fd__L); - if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0 - Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__; - else - Eq__=Xstr__; - end; - MS__=Mix(Eq__,Urg__str,Vrg__str,Np__); - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - for J=1:length(Yval__)-1 - for I=1:length(Xval__)-1 - a1__=Xval__(I);b1__=Yval__(J);c1__=Zval__(J,I); - a2__=Xval__(I+1);b2__=Yval__(J);c2__=Zval__(J,I+1); - a3__=Xval__(I+1);b3__=Yval__(J+1);c3__=Zval__(J+1,I+1); - a4__=Xval__(I);b4__=Yval__(J+1);c4__=Zval__(J+1,I); - PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; - VL__=[c1__,c2__,c3__,c4__,c1__]; - QL__=[]; - for K__=1:4 - P1__=PL__(K__,:); P2__=PL__(K__+1,:); - M1__=VL__(K__); M2__=VL__(K__+1); - if M1__>=Eps__0 & M2__>=Eps__0 - continue; - end; - if M1__<=-Eps__0 & M2__<=-Eps__0 - continue; - end; - if abs(M1__)<Eps__0 - Tmp__=P1__; - elseif abs(M2__)<Eps__0 - continue; - else - Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); - end; - QL__=[QL__;Tmp__]; - end; - if size(QL__,1)==2 - Puv__1=QL__(1,:); Puv__2=QL__(2,:); - Tmp__1=Puv__1(1); - Tmp__2=Puv__1(2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); // 13.12.02 - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - P1__=[Xv__,Yv__,Zv__]; - Tmp__1=Puv__2(1); - Tmp__2=Puv__2(2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - P2__=[Xv__,Yv__,Zv__]; - V1__=Vec__(1); V2__=Vec__(2); V3__=Vec__(3); - if abs(V1__)>Eps__0 - M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3); - M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3); - elseif abs(V2__)>Eps__0 - M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3); - M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3); - else - M1__=PtA__(2)-P1__(2); - M2__=PtA__(2)-P2__(2); - end; - if M1__*M2__>=0 - if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0) - continue; - end; - if abs(M1__)<=Eps__0 - Pt__=P1__; Ptuv__=Puv__1; - else - Pt__=P2__; Ptuv__=Puv__2; - end; - else - Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); - Ptuv__=1/(M1__-M2__)*(-M2__*Puv__1+M1__*Puv__2); - end; - if type(Uveq__)==10 - Tmp__1='('+string(Ptuv__(1))+')'; - Tmp__2='('+string(Ptuv__(2))+')'; - Tmp__=strsubst(Uveq__,Uname__,Tmp__1); - Tmp__=strsubst(Tmp__,Vname__,Tmp__2); - Tmp__=evstr(Tmp__); - if Tmp__<-Eps__0 - continue; - end; - end; - Tmp__1=Naiseki(Pt__-PtA__,Vec__); - Tmp__1=Tmp__1/norm(Vec__)^2; - if Tmp__1>-Eps__0 & Tmp__1<1+Eps__0 - Out__=[Out__,Tmp__1]; - end; - end; - end; - end; - if length(Out__)>0 - Out__=gsort(Out__); - Out__=Out__(length(Out__):-1:1); - Tmp__=[Out__(1)]; - for I__=2:length(Out__) - Tmp__1=(Out__(I__)-Tmp__(length(Tmp__)))*Vec__; - Tmp__1=norm(Tmp__1); - if Tmp__1>Eps__ - Tmp__=[Tmp__,Out__(I__)]; - end; - end; - Out__=Tmp__; - for I__=1:length(Out__) - Tmp__=PtA__+Out__(I__)*Vec__; - PtL__=Mixadd(PtL__,Tmp__); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.bin Binary files differdeleted file mode 100644 index 61d508ef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci deleted file mode 100644 index 79826f90..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 08.05.18 - -// Structure changed -// 09.10.11 - -function TF=Member(A,L) - if Mixtype(L)>1 - N=Mixlength(L); - else - N=length(L); - end - for I=1:N - Tmp=Op(I,L); - if A==Tmp - TF=%t - return - end - end - TF=%f -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin Binary files differdeleted file mode 100644 index 2bc985c7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci deleted file mode 100644 index de8d4b0d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci +++ /dev/null @@ -1,206 +0,0 @@ -// 08.08.21 -// 09.10.24 -// 09.10.26 - -function Menkakusi(Face,Nf,Ptype) - global THETA PHI EyePoint FocusPoint VELNO VELHI; - Eps0=10^(-6); - Eps=10^(-4); - Tmp1=Face(1)-Face(2); - Tmp2=Face(3)-Face(2); - if norm(Tmp1)<Eps | norm(Tmp2)<Eps - return; - end; - Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2); - if norm(Vec)<Eps - return; - end; - if Ptype==-1 - W=EyePoint; - Tmp=Dotprod(Vec,W-Face(1)); - else - W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; - W=100*W; - Tmp=Dotprod(Vec,W-Face(1)); - end; - if abs(Tmp)<Eps - return; - end; - if Tmp<-Eps - Vec=-Vec; - end; - if Ptype==-1 - G1=Projpers(Spaceline(Face)); - else - G1=Projpara(Spaceline(Face)) - end; - VL=list(); - for I=1:Numptcrv(G1) - VL(I)=Ptcrv(I,G1); - end; - Out1L=list(); - Out2L=VELHI; - for N=1:length(VELNO) - Tmp=VELNO(N); - Edge=Tmp(1); - Ne=Tmp(2); - Nenm=Tmp(3); - if Member(Nf,Ne) - Out1L($+1)=list(Edge,Ne,Nenm); - continue; - end; - if Ptype==-1 - P=Perspt(Edge(1)); - Q=Perspt(Edge(2)); - else - P=Parapt(Edge(1)); - Q=Parapt(Edge(2)); - end; - if norm(P-Q)<Eps - continue; - end; - Tmp=Kyoukai(Mix(G1)); - Tmp1=Naigai(P,Tmp); - Ng1=Tmp1(1); - Tmp1=Naigai(Q,Tmp); - Ng2=Tmp1(1); - KL=IntersectcrvsPp(Listplot([P,Q]),G1); - if Mixlength(KL)==0 - if Ng1==0 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp1=(Edge(1)+Edge(2))*0.5-Face(1); - Tmp=Dotprod(Tmp1,Vec)/norm(Tmp1); - if Tmp>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out2L($+1)=list(Edge,Ne,Nenm); - end; - end; - continue; - end; - Flg=0; - for I=1:Mixlength(VL)-1 - Tmp=VL(I+1)-VL(I); - if norm(Tmp)<Eps continue; end; - Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P); - if abs(Tmp1)<Eps - Flg=1; - break; - end; - end; - if Flg==1 - Tmp=Mixop(I,VL)-P; - if norm(Tmp)<Eps - Tmp1=0; - else - Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P); - end; - if abs(Tmp1)<Eps then - Out1L($+1)=list(Edge,Ne,Nenm); - continue; - end; - end; - if Mixlength(KL)==1 - Tmp=KL(1); - Tmp=Tmp(2)-1; - if Tmp<Eps - if Ng2==0 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp1=Edge(2)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out2L($+1)=list(Edge,Ne,Nenm); - end; - end; - continue; - end; - if Tmp>1-Eps - if Ng1==0 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp1=Edge(1)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out2L($+1)=list(Edge,Ne,Nenm); - end; - end; - continue; - end; - if Ng1==0 & Ng2==0 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp1=KL(1); - Tmp1=Tmp1(1); - if Ptype==-1 - Tmp=Invperspt(Tmp1,Spaceline(Edge)); - else - Tmp=Invparapt(Tmp1,Spaceline(Edge)) - end; - Ak=Tmp(1); - if Ng1==1 - Tmp1=Edge(1)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp2=list(Ak,Edge(2)); - Out1L($+1)=list(Tmp2,Ne,Nenm); - Tmp2=list(Edge(1),Ak); - Out2L($+1)=list(Tmp2,Ne,Nenm); - end; - end; - if Ng2==1 - Tmp1=Edge(2)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp2=list(Edge(1),Ak); - Out1L($+1)=list(Tmp2,Ne,Nenm); - Tmp2=list(Ak,Edge(2)); - Out2L($+1)=list(Tmp2,Ne,Nenm); - end; - end; - end; - end; - if Mixlength(KL)==2 - Tmp1=KL(1); - Tmp1=Tmp1(2); - Tmp2=KL(2); - Tmp2=Tmp2(2); - if Tmp1>Tmp2 - KL=list(KL(2),KL(1)); - end; - Tmp=Spaceline(Edge); - Tmp1=KL(1); - Tmp1=Tmp1(1); - Tmp2=KL(2); - Tmp2=Tmp2(1); - if Ptype==-1 - Ak=Mixop(1,Invperspt(Tmp1,Tmp)); - Bk=Mixop(1,Invperspt(Tmp2,Tmp)) - else - Ak=Mixop(1,Invparapt(Tmp1,Tmp)); - Bk=Mixop(1,Invparapt(Tmp2,Tmp)) - end; - Tmp1=(Ak+Bk)*0.5-Face(1); - Tmp=Dotprod(Tmp1,Vec); - if Tmp>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out1L($+1)=list(list(Edge(1),Ak),Ne,Nenm); - Out1L($+1)=list(list(Bk,Edge(2)),Ne,Nenm); - Out2L($+1)=list(list(Ak,Bk),Ne,Nenm); - end; - end; - end; - VELNO=Out1L; - VELHI=Out2L; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.bin Binary files differdeleted file mode 100644 index bcb9509f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci deleted file mode 100644 index 43eab74b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci +++ /dev/null @@ -1,186 +0,0 @@ -// 09.10.29 -// 09.11.15 -// 10.08.17 debug (line 66) - -function Menkakusi2(Face,Nf,Ptype) - global THETA PHI EyePoint FocusPoint VELNO VELHI; - Eps0=10^(-6); - Eps=10^(-4); - Tmp1=Face(1)-Face(2); - Tmp2=Face(3)-Face(2); - if norm(Tmp1)<Eps | norm(Tmp2)<Eps - return; - end; - Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2); - if norm(Vec)<Eps - return; - end; - if Ptype==-1 - W=EyePoint; - Tmp=Dotprod(Vec,W-Face(1)); - else - W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; - W=100*W; - Tmp=Dotprod(Vec,W-Face(1)); - end; - if abs(Tmp)<Eps - return; - end; - if Tmp<-Eps - Vec=-Vec; - end; - if Ptype==-1 - G1=Projpers(Spaceline(Face)); - else - G1=Projpara(Spaceline(Face)) - end; - VL=list(); - for I=1:Numptcrv(G1) - VL(I)=Ptcrv(I,G1); - end; - Out1L=list(); - Out2L=VELHI; - for N=1:length(VELNO) - Out1=list(); - Out2=list(); - Tmp=VELNO(N); - Edge=Tmp(1); - Ne=Tmp(2); - NNe=Tmp(3); - if Member(Nf,Ne) - Out1L($+1)=list(Edge,Ne,NNe); - continue; - end; - if Ptype==-1 - PtA=Perspt(Edge(1)); - PtB=Perspt(Edge(2)); - else - PtA=Parapt(Edge(1)); - PtB=Parapt(Edge(2)); - end; - if norm(PtA-PtB)<Eps continue; end; - Bdy=list(G1); - V=PtB-PtA; - TenL=KoutenList(PtA,V,Bdy); - Nten=length(TenL); - if Nten==0 // 10.08.17 - Out1L($+1)=list(Edge,Ne,NNe); - continue; - end; - Te=0; - Pe3=Edge(1); - if Ptype==-1 - Tmp1=Perspt(Pe3); - Tmp=Invperspt(Tmp1,Spaceline(Face)); - else - Tmp1=Parapt(Pe3); - Tmp=Invparapt(Tmp1,Spaceline(Face)); - end; - Qe3=Tmp(1); - Flg=0; - for I=1:Nten - TenP=TenL(I); - Ts=TenP(1); - P=TenP(2); - if Ts<-Eps - continue; - end; - Eline=Spaceline(Edge); - if Ptype==-1 - Tmp=Invperspt(P,Eline); - Tmp1=Invperspt(P,Spaceline(Face)); - else - Tmp=Invparapt(P,Eline) - Tmp1=Invparapt(P,Spaceline(Face)); - end; - P3=Tmp(1); Q3=Tmp1(1); - if Ts>1-Eps // P3, Q3 are necessary - Flg=I; - break; - end; - if abs(Te-Ts)>Eps0 // - if modulo(I,2)==1 - Out1($+1)=list(Pe3,P3); - else - if Qe3==[] - Tmp=Op(2,TenL(I-1)); - if Ptype==-1 - Tmp1=Invperspt(Tmp,Spaceline(Face)); - else - Tmp1=Invparapt(Tmp,Spaceline(Face)); - end; - Qe3=Tmp1(1); - end; - PM=0.5*(Pe3+P3); QM=0.5*(Qe3+Q3); - if Ptype==-1 - Z1=Zperspt(PM); Z2=Zperspt(QM); - else - Z1=Zparapt(PM); Z2=Zparapt(QM); - end; - if Z1>Z2 - Out1($+1)=list(Pe3,P3); - else - Out2($+1)=list(Pe3,P3); - end; - end; - end; - Te=Ts; Pe3=P3; Qe3=Q3; - end; - if Flg==0 - if norm(Pe3-Edge(2))>Eps0 - Out1($+1)=list(Pe3,Edge(2)); - end; - else - if modulo(Flg,2)==1 - Out1($+1)=list(Pe3,Edge(2)); - else - PM=0.5*(Pe3+P3); QM=0.5*(Qe3+Q3); - if Ptype==-1 - Z1=Zperspt(PM); Z2=Zperspt(QM); - else - Z1=Zparapt(PM); Z2=Zparapt(QM); - end; - if Z1>Z2 - Out1($+1)=list(Pe3,Edge(2)); - else - Out2($+1)=list(Pe3,Edge(2)); - end; - end; - end; - for I=1:length(Out1) - Tmp=Out1(I); - if I==1 - SeL=Tmp; - else - if norm(SeL(2)-Tmp(1))<Eps0 - SeL(2)=Tmp(2); - else - Out1L($+1)=list(SeL,Ne,NNe); - SeL=Tmp; - end; - end; - end; - if length(Out1)>0 - Out1L($+1)=list(SeL,Ne,NNe); - end; - for I=1:length(Out2) - Tmp=Out2(I); - if I==1 - SeL=Tmp; - else - if norm(SeL(2)-Tmp(1))<Eps0 - SeL(2)=Tmp(2); - else - Out2L($+1)=list(SeL,Ne,NNe); - SeL=Tmp; - end; - end; - end; - if length(Out2)>0 - Out2L($+1)=list(SeL,Ne,NNe); - end; - end; - VELNO=Out1L; - VELHI=Out2L; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.bin Binary files differdeleted file mode 100644 index 5b35bcb9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci deleted file mode 100644 index 4f06c437..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.20 -// 08.08.08 - -// Structure changed -// 09.10.11 - -function M=Mix(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Da=varargin(I); - M(I)=Da; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin Binary files differdeleted file mode 100644 index 92d14b2c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci deleted file mode 100644 index daf5a2d9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 - -function M=MixL(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Da=varargin(I); - M(I)=Da; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin Binary files differdeleted file mode 100644 index 5a0d9b25..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci deleted file mode 100644 index 623af493..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.19 - -//Structure Changed - -// 09.10.11 - -function M=MixS(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Da=varargin(I); - M(I)=Da; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin Binary files differdeleted file mode 100644 index cb5b4953..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci deleted file mode 100644 index 8d45fea1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci +++ /dev/null @@ -1,23 +0,0 @@ -// 05.14 Data Structure -// 05.16 List of MixList -// 05.19 use:MixS, MixL, Mixtype -// 08.08.17 - -// Structure changed -// 09.10.11 - -function M=Mixadd(varargin) - Nargs=length(varargin); - M=list(); - Tmp=varargin(1); - if length(Tmp)==0 - M(1)=varargin(2); - else - M=Tmp; - M($+1)=varargin(2); - end; - for I=3:Nargs - M($+1)=varargin(I); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin Binary files differdeleted file mode 100644 index c15a987e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci deleted file mode 100644 index 2fed1197..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 -// 10.01.02 - -function Mixdisp(L) - if Mixtype(L)==1 - disp(L) - return; - end; - Str=Makeliststr(L); - disp(Str) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin Binary files differdeleted file mode 100644 index 3666302f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci deleted file mode 100644 index d6e49c14..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.05.18 -// 08.05.19 Changed -// 08.08.15 - -// Structure changed -// 09.10.11 - -function M=Mixjoin(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Tmp=varargin(I); - if length(Tmp)==0 - continue; - end; - if Mixtype(Tmp)==1 - Tmp=list(Tmp); - end; - if length(M)==0 - M=Tmp; - else - M=lstcat(M,Tmp); - end; - end; - if length(M)==0 - M=[]; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin Binary files differdeleted file mode 100644 index d9515fd8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci deleted file mode 100644 index 6fd31749..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.14 Data Structure -// 08.05.23 Debugged - -// Structure changed -// 09.10.11 - -function Out=Mixlength(PL) - if PL==[] - Out=0; - return - end - if Mixtype(PL)==1 - Out=size(PL,1); - else - Out=length(PL); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin Binary files differdeleted file mode 100644 index b85a4f1a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci deleted file mode 100644 index 7f05a2ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 - -function PL=Mixmake(varargin) - PL=list(); - for I=1:length(varargin) - Tmp=varargin(I); - PL=Mixadd(PL,Tmp); - end -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin Binary files differdeleted file mode 100644 index f5ff95b4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci deleted file mode 100644 index 10c846dc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci +++ /dev/null @@ -1,22 +0,0 @@ -// 08.05.14 Data Structure -// 08.04.15 List ex N=1:3 -// 08.05.16 List of MixL -// 08.05.18 Debugged -// 08.05.19 Changed -// 08.08.17 - -// Structure changed -// 09.10.11 - -function D=Mixop(N,PL) - D=[]; - if Mixtype(PL)==1 - D=PL; - return; - end; - if type(N)~=1 | length(N)>1 | N>Mixlength(PL) - return - end; - D=PL(N); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin Binary files differdeleted file mode 100644 index 116f9ae6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci deleted file mode 100644 index e3e281f3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.19 -// 08.05.20 debugged -// 08.06.02 - -// Structure changed -// 09.10.11 - -function M=Mixsub(Rg,PL) - M=list(); - N=Mixlength(PL); - for I=Rg - if I>N - return; - end; - M($+1)=PL(I); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin Binary files differdeleted file mode 100644 index bd65bd09..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci deleted file mode 100644 index b336c763..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci +++ /dev/null @@ -1,19 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 - -function T=Mixtype(D) - if type(D)~=15 - T=1; - return; - end; - for I=1:length(D) - if type(D(I))==15 - T=3; - return; - end; - end; - T=2; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin Binary files differdeleted file mode 100644 index 23f75fa2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci deleted file mode 100644 index 8a4f0557..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.18 -// 08.05.20 - -function Ptn=Naigai(A,Bdy) - V=[1,1]; - Call=Mixlength(Bdy); - KL=KoutenList(A,V,Bdy); - Ptn=zeros(1,Call); - for K=1:Mixlength(KL) - Ten=Op(K,KL); - T=Op(1,Ten); NC=Op(4,Ten); - if T<0 - Tmp=modulo(Ptn(NC)+1,2); - Ptn(1,NC)=Tmp; - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin Binary files differdeleted file mode 100644 index cc184ed1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci deleted file mode 100644 index 193ad384..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci +++ /dev/null @@ -1,4 +0,0 @@ -function N=Naiseki(a,b) - N=a*b'; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin Binary files differdeleted file mode 100644 index 70999c76..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci deleted file mode 100644 index a404370a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci +++ /dev/null @@ -1,53 +0,0 @@ -// 08.05.31 -// 08.06.03 -// 08.10.07 - -function Ans=Nearestpt(varargin) - Nargs=length(varargin); - PL1=varargin(1); - if size(PL1,1)==1 - Flg=0; - else - Flg=1 - end - Eps=10.0^(-6); -// Fig=varargin(2); - PL=varargin(2); - Ans=MixS(PL1(1,:),1,PL(1,:),1,norm(PL1(1,:)-PL(1,:))); - for N=1:size(PL1,1) - PA=PL1(N,:); - Pm=PL(1,:); - Im=1; - Sm=norm(Pm-PA); - for I=1:size(PL,1)-1 - A1=PL(I,1); A2=PL(I,2); - B1=PL(I+1,1); B2=PL(I+1,2); - V1=B1-A1; V2=B2-A2; - X1=PA(1); X2=PA(2); - Tmp=V2^2+V1^2; - if abs(Tmp)<Eps - continue; - end; - T=(-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp; - if T<-Eps - P=[A1,A2]; - elseif T>1+Eps - P=[B1,B2]; - else - P=[A1+T*V1,A2+T*V2]; - end - S=norm(P-PA); - if S<Sm-Eps - Tmp=ParamonCurve(P,I,PL); - Pm=P; Im=Tmp; Sm=S; - end - end - if Sm<Op(5,Ans) - Ans=MixS(PA,N,Pm,Im,Sm); - end - end - if Flg==0 - Ans=Mixsub(3:5,Ans); - end -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.bin Binary files differdeleted file mode 100644 index b3417b7a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci deleted file mode 100644 index 9e0227e8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci +++ /dev/null @@ -1,9 +0,0 @@ -function Newlength(varargin) - if length(varargin)==0 - Kyorihensuu(); - else - FL=varargin(1); - Kyorihensuu(FL); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.bin Binary files differdeleted file mode 100644 index a7c43a91..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci deleted file mode 100644 index 3826b281..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci +++ /dev/null @@ -1,254 +0,0 @@ -// 08.09.13 -// 09.12.31 (gsort) - -function FigkL=Nohiddenpara(varargin) - global HIDDENDATA THETA PHI; - Eps=0.001; - PaL=varargin(1); - Fk=varargin(2); - FuncdL=varargin(3); - Tmp=Mixop(1,FuncdL); - Fxy=Mixop(1,Tmp); - K=mtlb_findstr(Fxy,'='); - Fxy=part(Fxy,K+1:length(Fxy)); - Fbdxy=Mixop(2,FuncdL); - Tmp=Mixop(3,FuncdL); - Xname=Mixop(1,Tmp); - Tmp=Mixop(4,FuncdL); - Yname=Mixop(1,Tmp); - FigkL=[]; - if Fbdxy==[] - return; - end; - Bdy=Kyoukai(Fbdxy); - Ptn=0; - Fh=Projpara(Fk); - SeL=[]; - for N=1:length(PaL)-1 - S=(PaL(N)+PaL(N+1))/2; - P=PointonCurve(S,Fh); - Tmp=Invparapt(S,Fh,Fk) - Pk=Mixop(1,Tmp); - Qk=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; - Flg=zeros(1,Mixlength(Fbdxy)); - for I=1:1000 - Tmp=Pk+I*10*Qk; - Tmp1=Naigai(Tmp(1:2),Bdy); - if Tmp1==Flg - Flg=1; - Qk=Tmp; - break; - end; - end; - if Flg~=1 - disp('Bad EyePoint'); - return; - end; - T=poly(0,'t'); - P0=(1-T)*Pk+T*Qk; - X0str='('+pol2str(P0(1))+')'; - Y0str='('+pol2str(P0(2))+')'; - Z0str='('+pol2str(P0(3))+')'; - Tmp=strsubst(Fxy,Xname,X0str); - Tmp=strsubst(Tmp,Yname,Y0str); - Efn=Z0str+'-('+Tmp+')'; - t=0; - Tmp=evstr(Efn); - Eps=max(Eps,abs(Tmp)); - Tmp1=evstr([X0str,Y0str]); - t=1; - Tmp2=evstr([X0str,Y0str]); - Seg=Listplot([Tmp1,Tmp2]); - Tmp=[]; - for I=1:Mixlength(Fbdxy) - Tmp2=Mixop(I,Fbdxy); - Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps); - if Mixlength(Tmp1)>0 - Tmp2=[]; - for J=1:Mixlength(Tmp1) - Tmp3=Mixop(J,Tmp1); - Tmp3=Mixop(2,Tmp3)-1; - Tmp2=[Tmp2,Tmp3]; - end; - Tmp=[Tmp,Tmp2]; - else - Tmp2=Mixop(I,Fbdxy); - Tmp1=Nearestpt(Tmp2,Seg); - Tmp3=Mixop(5,Tmp1); - if Tmp3<Eps - Tmp4=Mixop(4,Tmp1); - Tmp=[Tmp,Tmp4-1]; - end; - end; - end; - if length(Tmp)==0 - SeL=[SeL,N]; - continue; - end; - Tmp=gsort(Tmp); - Tmp=Tmp(length(Tmp):-1:1); - ParamL=[0]; - for I=1:length(Tmp) - Tmp1=Tmp(I); - Tmp2=ParamL(length(ParamL)); - if Tmp1-Tmp2>Eps - ParamL=[ParamL,Tmp1]; - end; - end; - Nhdflg=0; - for M=1:length(ParamL)-1 - TL=[ParamL(M),ParamL(M+1)]; - t=TL(1); - Tmp1=evstr([X0str,Y0str]); - t=TL(2); - Tmp2=evstr([X0str,Y0str]); - Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy); - Tmp=modulo(sum(Tmp),2); - if Tmp==Ptn continue; end; - Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6); - t=TL(1); - Tmp1=evstr(Efn); - t=TL(2); - Tmp2=evstr(Efn); - if abs(Tmp1)<=Eps - if M>1 - Nhdflg=-10; - break; - end; - end; - if abs(Tmp2)<=Eps - Nhdflg=-10; - break; - end; - if Tmp2>Eps - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=min(VL); - if Tmp1<=-Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - else - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=max(VL); - if Tmp1>Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - end; - end; - if Nhdflg==0 - SeL=[SeL,N]; - end; - end; - FigL=[]; - FigkL=[]; - for I=1:length(SeL) - Tmp1=PointonCurve(PaL(SeL(I)),Fh); - Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - Tmp4=Partcrv3(TP,TQ,Fk) - FigkL=Mixadd(FigkL,Tmp4); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.bin Binary files differdeleted file mode 100644 index 4bb581d7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci deleted file mode 100644 index 996559db..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci +++ /dev/null @@ -1,131 +0,0 @@ -// 08.10.10 -// 08.10.15 -// 09.06.24 -// 10.02.16 Eps - -function FigkL=Nohiddenpara2(PaL,Fk,Fd,Uveq,Np,Eps) - global HIDDENDATA THETA PHI TMP; - Eps0=10^(-5); - Fh=Projpara(Fk); - P1=Ptstart(Fh); - P2=Ptend(Fh); - Csp=CuspPt(); - Cspflg=1; - for I=1:Mixlength(Csp) - Tmp=Mixop(I,Csp); - if norm(Tmp-P1)<Eps0 - select Cspflg, - case 1 then Cspflg=2, - case 3 then Cspflg=6; - end; - continue; - end; - if norm(Tmp-P2)<Eps0 - select Cspflg, - case 1 then Cspflg=3, - case 2 then Cspflg=6; - end; - continue; - end; - end; - SeL=[]; - for N=1:length(PaL)-1 - S=(PaL(N)+PaL(N+1))/2; - Tmp=Invparapt(S,Fh,Fk); - PtA=Mixop(1,Tmp); - PtAp=Parapt(PtA); - Vec=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; - Epstmp=Eps; - if N==1 & modulo(Cspflg,2)==0 - Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); // - Epstmp=[Tmp,Eps(2)]; // - end; - if N==length(PaL)-1 & modulo(Cspflg,3)==0 - Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); // - Epstmp=[Tmp,Eps(2)]; // - end; - Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp); - if Flg==0 - SeL=[SeL,N]; - end; - end; - FigL=[]; - FigkL=[]; - for I=1:length(SeL) - Tmp1=PointonCurve(PaL(SeL(I)),Fh); - Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - Tmp4=Partcrv3(TP,TQ,Fk) - FigkL=Mixadd(FigkL,Tmp4); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps(1) // - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps(1) // - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.bin Binary files differdeleted file mode 100644 index 47aea6f6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci deleted file mode 100644 index 140516b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci +++ /dev/null @@ -1,253 +0,0 @@ -// 08.09.21 -// 09.12.31 (gsort) - -function FigkL=Nohiddenpers(varargin) - global EyePoint FocusPoint HIDDENDATA; - Eps=0.001; - PaL=varargin(1); - Fk=varargin(2); - FuncdL=varargin(3); - Tmp=Mixop(1,FuncdL); - Fxy=Mixop(1,Tmp); - K=mtlb_findstr(Fxy,'='); - Fxy=part(Fxy,K+1:length(Fxy)); - Fbdxy=Mixop(2,FuncdL); - Tmp=Mixop(3,FuncdL); - Xname=Mixop(1,Tmp); - Tmp=Mixop(4,FuncdL); - Yname=Mixop(1,Tmp); - FigkL=[]; - if Fbdxy==[] - return; - end; - Bdy=Kyoukai(Fbdxy); - Ptn=0; - Fh=Projpers(Fk); - SeL=[]; - for N=1:length(PaL)-1 - S=(PaL(N)+PaL(N+1))/2; - P=PointonCurve(S,Fh); - Tmp=Invperspt(S,Fh,Fk) - Pk=Mixop(1,Tmp); - Flg=zeros(1,Mixlength(Fbdxy)); - for I=1:1000 - Tmp=Pk+I*(EyePoint-Pk); - Tmp1=Naigai(Tmp(1:2),Bdy); - if Tmp1==Flg - Flg=1; - Qk=Tmp; - break; - end; - end; - if Flg~=1 - disp('Bad EyePoint'); - return; - end; - T=poly(0,'t'); - P0=(1-T)*Pk+T*Qk; - X0str='('+pol2str(P0(1))+')'; - Y0str='('+pol2str(P0(2))+')'; - Z0str='('+pol2str(P0(3))+')'; - Tmp=strsubst(Fxy,Xname,X0str); - Tmp=strsubst(Tmp,Yname,Y0str); - Efn=Z0str+'-('+Tmp+')'; - t=0; - Tmp=evstr(Efn); - Eps=max(Eps,abs(Tmp)); - Tmp1=evstr([X0str,Y0str]); - t=1; - Tmp2=evstr([X0str,Y0str]); - Seg=Listplot([Tmp1,Tmp2]); - Tmp=[]; - for I=1:Mixlength(Fbdxy) - Tmp2=Mixop(I,Fbdxy); - Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps); - if Mixlength(Tmp1)>0 - Tmp2=[]; - for J=1:Mixlength(Tmp1) - Tmp3=Mixop(J,Tmp1); - Tmp3=Mixop(2,Tmp3)-1; - Tmp2=[Tmp2,Tmp3]; - end; - Tmp=[Tmp,Tmp2]; - else - Tmp2=Mixop(I,Fbdxy); - Tmp1=Nearestpt(Tmp2,Seg); - Tmp3=Mixop(5,Tmp1); - if Tmp3<Eps - Tmp4=Mixop(4,Tmp1); - Tmp=[Tmp,Tmp4-1]; - end; - end; - end; - if length(Tmp)==0 - SeL=[SeL,N]; - continue; - end; - Tmp=gsort(Tmp); - Tmp=Tmp(length(Tmp):-1:1); - ParamL=[0]; - for I=1:length(Tmp) - Tmp1=Tmp(I); - Tmp2=ParamL(length(ParamL)); - if Tmp1-Tmp2>Eps - ParamL=[ParamL,Tmp1]; - end; - end; - Nhdflg=0; - for M=1:length(ParamL)-1 - TL=[ParamL(M),ParamL(M+1)]; - t=TL(1); - Tmp1=evstr([X0str,Y0str]); - t=TL(2); - Tmp2=evstr([X0str,Y0str]); - Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy); - Tmp=modulo(sum(Tmp),2); - if Tmp==Ptn continue; end; - Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6); - t=TL(1); - Tmp1=evstr(Efn); - t=TL(2); - Tmp2=evstr(Efn); - if abs(Tmp1)<=Eps - if M>1 - Nhdflg=-10; - break; - end; - end; - if abs(Tmp2)<=Eps - Nhdflg=-10; - break; - end; - if Tmp2>Eps - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=min(VL); - if Tmp1<=-Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - else - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=max(VL); - if Tmp1>Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - end; - end; - if Nhdflg==0 - SeL=[SeL,N]; - end; - end; - FigL=[]; - FigkL=[]; - for I=1:length(SeL) - Tmp1=PointonCurve(PaL(SeL(I)),Fh); - Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - Tmp4=Partcrv3(TP,TQ,Fk) - FigkL=Mixadd(FigkL,Tmp4); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.bin Binary files differdeleted file mode 100644 index 65217043..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci deleted file mode 100644 index d49bce91..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci +++ /dev/null @@ -1,134 +0,0 @@ -// 08.10.11 -// 08.10.12 -// 08.10.15 -// 09.06.24 -// 10.02.16 Eps -// 11.04.12 Eps0 (bug) -// 13.11.02 bug - -function FigkL=Nohiddenpers2(PaL,Fk,Fd,Uveq,Np,Eps) - global EyePoint FocusPoint HIDDENDATA; - Eps0=10^(-5); // 11.04.12 - Fh=Projpers(Fk); - P1=Ptstart(Fh); - P2=Ptend(Fh); - Csp=CuspPt(); - Cspflg=1; - for I=1:Mixlength(Csp) - Tmp=Mixop(I,Csp); - if norm(Tmp-P1)<Eps0 - select Cspflg, - case 1 then Cspflg=2, - case 3 then Cspflg=6; - end; - continue; - end; - if norm(Tmp-P2)<Eps0 - select Cspflg, - case 1 then Cspflg=3, - case 2 then Cspflg=6; - end; - continue; - end; - end; - SeL=[]; - for N=1:length(PaL)-1 - S=(PaL(N)+PaL(N+1))/2; - Tmp=Invperspt(S,Fh,Fk) - PtA=Mixop(1,Tmp); - PtAp=Perspt(PtA); -// Vec=EyePoint-FocusPoint; - Vec=EyePoint-PtA; // 2013.11.02 - Epstmp=Eps; // 2011.04.12 - if N==1 & modulo(Cspflg,2)==0 - Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); // - Epstmp=[Tmp,Eps(2)]; // - end; - if N==length(PaL)-1 & modulo(Cspflg,3)==0 - Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); // - Epstmp=[Tmp,Eps(2)]; // - end; - Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp); - if Flg==0 - SeL=[SeL,N]; - end; - end; - FigL=[]; - FigkL=[]; - for I=1:length(SeL) - Tmp1=PointonCurve(PaL(SeL(I)),Fh); - Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - Tmp4=Partcrv3(TP,TQ,Fk) - FigkL=Mixadd(FigkL,Tmp4); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps(1) // - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps(1) // - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.bin Binary files differdeleted file mode 100644 index 6093f704..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci deleted file mode 100644 index dad4f4ef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci +++ /dev/null @@ -1,4 +0,0 @@ -function N=Numptcrv(Fig) - N=size(Fig,1) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin Binary files differdeleted file mode 100644 index 1720cf7c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci deleted file mode 100644 index 20a86640..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci +++ /dev/null @@ -1,115 +0,0 @@ -// s : 2014.06.22 -// 2014.08.26 debugged 1,-1 => "+","-" -// 2014.09.07 Objjoin added -// 2016.10.09 Np in Spacecurve changed - -function Out=Objcurve(varargin) - global OBJFIGNO OBJJOIN - Eps=10^(-6); - Args=varargin; - Nargs=length(Args) - Tmp=Args(1); - PtL=Flattenlist(Tmp); - PL=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL=lstcat(PL,list(Tmp(K,:))) - end; - end; - Closed=norm(PL(length(PL))-PL(1))<Eps - Pstr="xy"; - Tmp=Args(Nargs) - if type(Tmp)==10 then - Pstr=Tmp; - Nargs=Nargs-1 - end; - Sz=0.1; - Np=4; - if Nargs>=2 then - Sz=Args(2) - end; - if Nargs>=3 then - Np=Args(3) - end; - Assign("Sz",Sz) - if Pstr=="xy" then - Vz=[0,0,1]; - Fs=Assign("[Sz*cos(t),Sz*sin(t),0]") - end; - if Pstr=="yz" then - Vz=[1,0,0]; - Fs=Assign("[0,Sz*cos(t),Sz*sin(t)]") - end; - if Pstr=="zx" then - Vz=[0,1,0]; - Fs=Assign("[Sz*sin(t),0,Sz*cos(t)]") - end; - Gc0=Spacecurve(Fs,"t=[0,2*%pi]","N="+string(Np));//16.10.09 - P=PL(1); Q=PL(2); R=PL(length(PL)-1); - PQ1=Q-P; - if ~Closed then - PQ2=PQ1 - else - PQ2=P-R - end; - Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2); - Vp1=Vp/norm(Vp); - Theta=acos(min(Dotprod(Vz,Vp1),1)); - Vj=Crossprod(Vz,Vp1); - if norm(Vj)<Eps then - Vj=Vz - end; - Gc1=Rotate3data(Gc0,Vj,Theta); - CL=list(Translate3data(Gc1,P)); - for J=2:(length(PL)-1) - P=PL(J); Q=PL(J+1); - PQ2=Q-P; - if norm(PQ2)<Eps then - continue - end; - Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2); - Vp2=Vp/norm(Vp); - Theta=acos(min(Dotprod(Vp1,Vp2),1)); - Vj=Crossprod(Vp1,Vp2); - if norm(Vj)<Eps then - Vj=Vp1 - end; - Gc2=Rotate3data(Gc1,Vj,Theta); - CL=lstcat(CL,list(Translate3data(Gc2,P))); - PQ1=PQ2; - Vp1=Vp2; - Gc1=Gc2; - end; - if ~Closed then - Vp2=(Q-P)/norm(Q-P); - Theta=acos(min(Dotprod(Vp1,Vp2),1)); - Vj=Crossprod(Vp1,Vp2); - if norm(Vj)<Eps then - Vj=Vp1 - end; - Gc3=Rotate3data(Gc1,Vj,Theta); - CL=lstcat(CL,list(Translate3data(Gc3,Q))) - end; - Objname(); // from 140907 - Join=Objjoin(); - Objjoin(1); // upto - GL1=CL(1); - for J=2:length(CL) - GL2=CL(J); - Dt=Objrecs(GL1,GL2,"-"); - GL1=Dt(2); - if J==2 then - GL0=Dt(1) - end; - end; - if ~Closed then - Objpolygon(CL(1),"-"); - N=length(CL); - Objpolygon(CL(N),"+") - else - Objrecs(GL1,GL0,"-") - end; - Out=CL - OBJJOIN=Join; // 140907 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.bin Binary files differdeleted file mode 100644 index 1691debf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci deleted file mode 100644 index e8a80ff3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci +++ /dev/null @@ -1,9 +0,0 @@ -// s: 2014.09.07 - -function Out=Objjoin(varargin) - global OBJJOIN - if length(varargin)>0 - OBJJOIN=abs(sign(varargin(1))) - end; - Out=OBJJOIN -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.bin Binary files differdeleted file mode 100644 index c6d194f0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci deleted file mode 100644 index 6c523fc2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci +++ /dev/null @@ -1,11 +0,0 @@ -// s: 2014.09.07 - -function Objname() - global OBJFIGNO OBJJOIN - if OBJJOIN==0 then - OBJFIGNO=OBJFIGNO+1; - Gname="ketfig"+string(OBJFIGNO); - Printobjstr("# "+Gname); - Printobjstr("g "+Gname); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin Binary files differdeleted file mode 100644 index d9a85501..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci deleted file mode 100644 index ba5b346a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci +++ /dev/null @@ -1,65 +0,0 @@ -// s : 2014.06.22 -// 14.09.07 Objjoin added - -function Out=Objpolygon(varargin) - global OBJFIGNO OBJJOIN - Eps=10^(-6); - Args=varargin; - Nargs=length(Args); - Tmp=Args(1); - PtL=Flattenlist(Tmp); - PL=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL=lstcat(PL,list(Tmp(K,:))) - end; - end; - Sel=Args(Nargs); Nargs=Nargs-1; - Objname(); // 140907 - for J=1:length(PL) - P=PL(J); - if (length(P)<4) | (P(4)==0) then - Np=Writeobjpoint(P); - PL(J)=[P(1:3),Np] - end; - end; - if Nargs==1 then - Tmp=PL(1); - Cen=Tmp(1:3); - Nc=Tmp(4) - else - Tmp=Args(2); - if length(Tmp)==1 then - Tmp1=PL(Tmp); - Cen=Tmp1(1:3); - Nc=Tmp(4) - else - Cen=Tmp; - Nc=Writeobjpoint(Cen) - end; - end; - for J=1:length(PL) - if J<length(PL) then - Je=J+1 - else - Je=1 - end; - Pt1=Cen; - PLj=PL(J); PLje=PL(Je); - Pt2=PLj(1:3); Pt3=PLje(1:3); - if norm(Crossprod(Pt2-Pt1,Pt3-Pt1))<Eps then - continue - end; - P1=sprintf("%1d",Nc); - P2=sprintf("%1d",PLj(4)) - P3=sprintf("%1d",PLje(4)) - if Sel=="+" then // 6.22 - Str="f "+P1+" "+P2+" "+P3+" " - else - Str="f "+P1+" "+P3+" "+P2+" " - end; - Printobjstr(Str) - end; - Out=PL -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.bin Binary files differdeleted file mode 100644 index fed77a7d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci deleted file mode 100644 index c33e23a8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci +++ /dev/null @@ -1,25 +0,0 @@ -// s : 2014.06.22 -// 14.09.07 Objjoin added - -function Out=Objpolyhedron(Vertex,Face) - global NPOINT OBJFIGNO; - OBJFIGNO=OBJFIGNO+1; - Ninit=NPOINT; - Objname(); // 140907 - for N=1:length(Vertex) - P=Vertex(N); - Np=Writeobjpoint(P); - Vertex(N)=[P(1:3),Np] - end; - for N=1:length(Face) - F=Face(N)+Ninit; - Face(N)=F; - Str="f" - for J=1:length(F) - P=sprintf("%1d",F(J)); - Str=Str+" "+P - end; - Printobjstr(Str) - end; - Out=list(Vertex,Face) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.bin Binary files differdeleted file mode 100644 index 2a419206..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci deleted file mode 100644 index d8775fb3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci +++ /dev/null @@ -1,87 +0,0 @@ -// s : 2014.06.22 -// 2014.09.07 Objjoin added - -function Out=Objrecs(varargin) - global OBJFIGNO OBJJOIN - Eps=10^(-6); - Args=varargin; - Nargs=length(Args); - Tmp=Args(1); - PtL=Flattenlist(Tmp); - PL1=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL1=lstcat(PL1,list(Tmp(K,:))) - end; - end; - Sel=Args(Nargs); Nargs=Nargs-1; - Objname(); // // 140907 - for J=1:length(PL1) - P=PL1(J) - if (length(P)<4) | (P(4)==0) then - Np=Writeobjpoint(P); - PL1(J)=[P(1:3),Np]; - end; - end; - Tmp=Args(2); - if (type(Tmp)==1) & (size(Tmp,1)==1) then - Drv=Tmp; - Len=norm(Drv); - PL2=list(); - for J=1:length(PL1) - Tmp=PL1(J); - P=Tmp(1:3)+Drv; - Np=Writeobjpoint(P); - PL2=lstcat(PL2,list([P(1:3),Np])); - if J<length(PL1) then - Vec=PL1(J+1)-PL1(J); - if norm(Vec)>Eps then - Tmp1=Crossprod(Drv,Vec); - Tmp2=Crossprod(Tmp1,Vec); - Tmp3=Dotprod(Tmp2,Drv); - if Tmp3<-Eps then - Tmp2=-Tmp2 - end; - Drv=Len/norm(Tmp2)*Tmp2 - end - end - end - else - PtL=Flattenlist(Tmp); - PL2=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL2=lstcat(PL2,list(Tmp(K,:))) - end; - end; - for J=1:length(PL2) - P=PL2(J); - if (length(P)<4) | (P(4)==0) then - Np=Writeobjpoint(P); - PL2(J)=[P(1:3),Np] - end; - end; - end; - Printobjstr("vt 0 0"); - Printobjstr("vt 1 0"); - Printobjstr("vt 1 1"); - Printobjstr("vt 0 1"); - for J=2:length(PL1) - P1=sprintf("%1d",Op(4,PL1(J-1))); - P2=sprintf("%1d",Op(4,PL2(J-1))); - P3=sprintf("%1d",Op(4,PL2(J))); - P4=sprintf("%1d",Op(4,PL1(J))); - N1=""; N2=""; N3=""; N4=""; - if Sel=="+" then // 6.22 - Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" "; - Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4; - else - Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" "; - Str=Str+P3+"/3/"+N3+" "+P2+"/2/"+N2; - end; - Printobjstr(Str) - end; - Out=list(PL1,PL2) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.bin Binary files differdeleted file mode 100644 index 99ec2207..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci deleted file mode 100644 index 15543b8a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci +++ /dev/null @@ -1,114 +0,0 @@ -// s : 2014.06.22 -// e : 2014.07.18 -// Objsurf, Objthicksurf : Range argments changed -// 2014.09.07 Objjoin added - -function Out=Objsurf(varargin) - global OBJFIGNO OBJJOIN - Args=varargin; - Nargs=length(Args); - Sel=Args(Nargs); Nargs=Nargs-1; - Rf=Args(1); - N=2; - Mg=0; Ng=0; - if type(Args(N))==1 then - if length(Args(N))>2 then - U=Args(N); - Mg=length(U)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - else - Ag=Args(N); Bg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - end; - if type(Args(N))==1 then - if length(Args(N))>2 then - V=Args(N); - Ng=length(V)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - else - Cg=Args(N); Dg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - end; - if Mg==0 then - Mg=Args(N); - N=N+1; - U=[]; - for J=1:(Mg+1) - U=[U,Ag+(J-1)/Mg*(Bg-Ag)]; - end; - end; - if Ng==0 then - Ng=Args(N); - V=[]; - for K=1:(Ng+1) - V=[V,Cg+(K-1)/Ng*(Dg-Cg)]; - end; - end; - Objname(); // // 140907 - PL=list(); - for J=1:(Mg+1) - for K=1:(Ng+1) - P=Rf(U(J),V(K)); - Np=Writeobjpoint(P) - PL=lstcat(PL,list([P,Np])); - end; - end; - Idx=1:(Ng+1):(Ng+1)*Mg+1; - Pus=Mixsub(Idx,PL); - Idx=(Ng+1):(Ng+1):(Ng+1)*(Mg+1); - Pue=Mixsub(Idx,PL); - Idx=1:1:Ng+1; - Pvs=Mixsub(Idx,PL); - Idx=(Ng+1)*Mg+1:1:(Ng+1)*(Mg+1); - Pve=Mixsub(Idx,PL); - Printobjstr("vt 0 0"); - Printobjstr("vt 1 0"); - Printobjstr("vt 1 1"); - Printobjstr("vt 0 1"); - for J=1:Mg - for K=1:Ng - P1=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K))) - P2=sprintf("%1d",Op(4,PL((Ng+1)*J+K))) - P3=sprintf("%1d",Op(4,PL((Ng+1)*J+K+1))) - P4=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K+1))) - N1=""; N2=""; N3=""; N4=""; - if Sel=="+" then // 6.22 - Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" "; - Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4; - else - Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" "; - Str=Str+P3+"/3/"+N3+" "+P2+"/2/",N2; - end; - Printobjstr(Str) - end; - end; - Out=list(U,V,Pus,Pue,Pvs,Pve) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin Binary files differdeleted file mode 100644 index 09306fec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci deleted file mode 100644 index 808924a4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci +++ /dev/null @@ -1,7 +0,0 @@ -// s : 2014.08.25 - -function Objsymb(Symb,Thick,Face,Dir) - for J=1:length(Symb) - Objcurve(Symb(J),Thick,Face,Dir); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin Binary files differdeleted file mode 100644 index b73e2b6a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci deleted file mode 100644 index 42fde6a5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci +++ /dev/null @@ -1,123 +0,0 @@ -// s : 2014.06.22 -// e : 2014.07.18 -// Objsurf, Objthicksurf : Range argments changed -// 14.09.07 Objjoin added - -function Out=Objthicksurf(varargin) - global OBJJOIN - Args=varargin; - Nargs=length(Args) - Sel=Args(Nargs); Nargs=Nargs-1; - Selsurf=part(Sel,1); // from 6.22 - Selside=["0","0","0","0"]; // wesn - Tmp=mtlb_findstr(Sel,"w"); - if length(Tmp)>0 then - Selside(1)=part(Sel,Tmp+1) - end; - Tmp=mtlb_findstr(Sel,"e"); - if length(Tmp)>0 then - Selside(2)=part(Sel,Tmp+1) - end; - Tmp=mtlb_findstr(Sel,"s"); - if length(Tmp)>0 then - Selside(3)=part(Sel,Tmp+1) - end; - Tmp=mtlb_findstr(Sel,"n"); - if length(Tmp)>0 then - Selside(4)=part(Sel,Tmp+1) - end; - Nfth=Args(Nargs-2); - Thick1=Args(Nargs-1); - Thick2=Args(Nargs); - Nargs=Nargs-3; // upto 6.22 - Rfth=Args(1); // 6.22 - N=2; - Mg=0; Ng=0; - if type(Args(N))==1 then - if length(Args(N))>2 then - U=Args(N); - Mg=length(U)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - else - Ag=Args(N); Bg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - end; - if type(Args(N))==1 then - if length(Args(N))>2 then - V=Args(N); - Ng=length(V)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - else - Cg=Args(N); Dg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - end; - if Mg==0 then - Mg=Args(N); - N=N+1; - U=[]; - for J=1:(Mg+1) - U=[U,Ag+(J-1)/Mg*(Bg-Ag)]; - end; - end; - if Ng==0 then - Ng=Args(N); - V=[]; - for K=1:(Ng+1) - V=[V,Cg+(K-1)/Ng*(Dg-Cg)]; - end; - end; - Objname(); // 140907 from - Join=OBJJOIN; - OBJJOIN=1; // upto - deff("Out=F1(u,v)","Out=Rfth(u,v)+Thick1*Nfth(u,v)"); - deff("Out=F2(u,v)","Out=Rfth(u,v)+Thick2*Nfth(u,v)"); - Dt1=Objsurf(F1,U,V,Selsurf); - if Selsurf=="+" then Tmp="-"; else Tmp="+"; end; - Dt2=Objsurf(F2,U,V,Tmp); - Out=list(Dt1,Dt2); //from 06.22 - if Selside(1)~="0" then - Dt=Objrecs(Dt1(3),Dt2(3),Selside(1)); - Out=lstcat(Out,list(Dt)); - end - if Selside(2)~="0" then - Dt=Objrecs(Dt1(4),Dt2(4),Selside(2)); - Out=lstcat(Out,list(Dt)); - end - if Selside(3)~="0" then - Dt=Objrecs(Dt1(5),Dt2(5),Selside(3)); - Out=lstcat(Out,list(Dt)); - end - if Selside(4)~="0" then - Dt=Objrecs(Dt1(6),Dt2(6),Selside(4)); - Out=lstcat(Out,list(Dt)); - end; // upto 6.22 - OBJJOIN=Join // 140907 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin Binary files differdeleted file mode 100644 index fde60066..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci deleted file mode 100644 index 519bc9da..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 -// 10.01.10 available for plotdata -// 10.01.12 available for Dataindexed -// 10.01.16 - -function C=Op(N,Data) - C=[]; - if Mixtype(Data)>1 - C=Mixop(N,Data); - return; - end; - if type(Data)==10 - if size(Data,2)==1 - C=part(Data,N:N); - else - C=Data(N) - end; - return; - end; - if type(Data)==1 - if size(Data,1)==1 - C=Data(N); - else - Din=Dataindex(Data); - if size(Din,1)==1 - C=Data(N,:); - else - C=Data(Din(N,1):Din(N,2),:); - end; - end; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin Binary files differdeleted file mode 100644 index aaf01a9b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci deleted file mode 100644 index 4007e1b3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci +++ /dev/null @@ -1,106 +0,0 @@ - -// -// 10.01.10 filename written -// 13.05.20 openfile error tackled -// creator and date recorded -// 13.11.01 Beginpicture joined optionally - -function Openfile(varargin) - global Wfile FID; - - function Out=Datecount(F) - Tmp1=fileinfo(F); - Tmp=getdate(Tmp1(7)); - Year=Tmp(1); - Sec=((Tmp(4)-1)*24+Tmp(7))*3600+Tmp(8)*60+Tmp(9); - Out=[Year,Sec]; - endfunction - - function Out=Datestr(F) - if F~="" then - Tmp1=fileinfo(F); - Tmp=getdate(Tmp1(7)); - else - Tmp=getdate(); - end; - Year=Tmp(1); - Month=Tmp(2); - Day=Tmp(6); - Hour=Tmp(7); - Min=Tmp(8); - D=string(Year)+"-"+string(Month)+"-"+string(Day); - T=string(Hour)+":"+string(Min); - Out=D+" "+T; - endfunction - - File=varargin(1); - Bflg=0; - Creator=''; - Cflg=0; - Nargs=length(varargin); - for N=2:Nargs - Tmp=varargin(N); - K=mtlb_findstr(Tmp,"="); - if length(K)>0 then - Creator=part(Tmp,(K+1):length(Tmp)); - Cflg=1; - else - Bflg=1; - Unitstr=Tmp - end - end; - Recentf=''; - Tmp1=dir("*.sce"); - Files=Tmp1(2); - if size(Files,1)>0 then - Recentf=Files(1,:); - Dt=Datecount(Recentf); - for J=2:size(Files,1) - F=Files(J,:); - D=Datecount(F); - if D(1)~=Dt(1) then - if D(1)>Dt(1) then - Recentf=F; - Dt=D; - end - continue - end - if D(2)>Dt(2) then - Recentf=F; - Dt=D; - end - end; - end; - StrW="%%% "+File+" "+Datestr("") - StrC="%%% "+Creator; - if Cflg==0 then - if Recentf~="" then - StrC=StrC+Recentf+" "+Datestr(Recentf); - end - end - if File =='' then - Wfile='default'; - else -// errcatch(4,"continue"); // 2017.02.18 from -// Tmp=FID; -// if iserror(4) then -// FID=[]; -// errclear(4); -// end; -// if FID~=[] then -// mclose(FID); -// FID=[]; -// end -// errcatch(4,"kill"); // 2017.02.18 upto - FID=mopen(File,'w'); - Wfile=File; - end - if Wfile=='default' - mprintf('%s\n%s\n',StrW,StrC); - else - mfprintf(FID,'%s\n%s\n',StrW,StrC); - end - if Bflg==1 then - Beginpicture(Unitstr) - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin Binary files differdeleted file mode 100644 index 0562b2b2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci deleted file mode 100644 index e902ce5d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci +++ /dev/null @@ -1,33 +0,0 @@ -// s : 2014.06.22 -// e : 14.09.07 - -function Out=Openobj(Fnm) - global OBJFMT NPOINT NNORM OBJSCALE OBJFIGNO Wfile FID OBJJOIN - OBJFMT= "%7.4f"; - NPOINT= 0; - NNORM=0; - OBJSCALE=1; - OBJFIGNO=0; - OBJJOIN=0; // 140906 - if Fnm =='' then - Wfile='default'; - else -// errcatch(4,"continue"); //17.02.18from -// Tmp=FID; -// if iserror(4) then -// FID=[]; -// errclear(4); -// end; -// if FID~=[] then -// mclose(FID); -// FID=[]; -// end -// errcatch(4,"kill"); //17.02.18upto - if length(mtlb_findstr(Fnm,".obj"))==0 - Fnm=Fnm+".obj"; - end; - FID=mopen(Fnm,'w'); - Wfile=Fnm; - Out=Wfile; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin Binary files differdeleted file mode 100644 index 4fad25f8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci deleted file mode 100644 index a3056f66..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.05.31 - -function Openpar(varargin) - global Wfile FID; - Nargs=length(varargin); - Tmp=varargin(1); - Tmp1=Strop(1,Tmp); - if Tmp1=='\' | Tmp1=='Â¥' - Namestr=Tmp; - N=2; - else - Namestr='\tmp'; - N=1; - end - Habastr=varargin(N); - if Nargs>N - Posstr='['+varargin(N+1)+']'; - else - Posstr='[c]' - end - Openphr(Namestr); - S='\begin{minipage}'+Posstr+'{'+Habastr+'}%'; - if Wfile=='default' - mprintf('%s\n',S); - else - mfprintf(FID,'%s\n',S); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin Binary files differdeleted file mode 100644 index 3324d29e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci deleted file mode 100644 index 461549e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.05.31 - -function Openphr(Str) - global Wfile FID - S='\def'+Str+'{%'; - if Wfile=='default' - mprintf('%s\n',S); - else - mfprintf(FID,'%s\n',S); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin Binary files differdeleted file mode 100644 index 6f58ed83..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci deleted file mode 100644 index edf043ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci +++ /dev/null @@ -1,92 +0,0 @@ -// -// 09.12.25 -// 11.05.25 -// 14.03.05 MARKLEN -// 17.03.19 VL=[] => VL=""; - -function Openpicture(ul) - global Wfile FID XMIN XMAX YMIN YMAX ULEN - global MilliIn MARKLEN MARKLENNow PenThickInit; - Tmp=Doscaling([XMIN,YMIN]); - Xm=Tmp(1); - Ym=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - XM=Tmp(1); - YM=Tmp(2); - Dx=XM-Xm; - Dy=YM-Ym; - Sym='.0123456789 +-*/'; - Tmp=ascii(Sym); - SL=Sym; - OL='+-*/'; - if ul~='' - ULEN=ul; - end - Is=1; - VL=""; // 17.03.19 - Ucode=ascii(ULEN); - for I=1:length(Ucode) - C=char(Ucode(I)); - if mtlb_findstr(SL,C)~=[] - if mtlb_findstr(OL,C)~=[] - Str=char(Ucode(Is:(I-1))); - VL=VL+Str+C; - Is=I+1; - end - else - Unit=char(Ucode(I:(I+1))); - Str=char(Ucode(Is:(I-1))); - VL=VL+Str; - break; - end; - end; - Valu=evstr(VL); - Str=string(Valu); - ULEN=Str+Unit; - if Unit=='cm' - MilliIn=1000/2.54*Valu; - end - if Unit=='mm' - MilliIn=1000/2.54*Valu/10; - end - if Unit=='in' - MilliIn=1000*Valu; - end - if Unit=='pt' - MilliIn=1000/72.27*Valu; - end - if Unit=='pc' - MilliIn=1000/6.022*Valu; - end - if Unit=='bp' - MilliIn=1000/72*Valu; - end - if Unit=='dd' - MilliIn=1000/1238/1157/72.27*Valu; - end - if Unit=='cc' - MilliIn=1000/1238/1157/72.27*12*Valu;p - end - if Unit=='sp' - MilliIn=1000/72.27/65536*Valu/10; - end - MARKLEN=MARKLENNow*1000/2.54/MilliIn; - if Wfile=='default' - mprintf('%s%s%s\n','{\unitlength=',ULEN,'%'); - mprintf('%s\n','\begin{picture}%'); - mprintf('%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',... - '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); - Str='\special{pn '+string(PenThickInit)+'}%'; - mprintf('%s\n',Str); - mprintf('%s\n','%'); - else - mfprintf(FID,'%s%s%s\n','{\unitlength=',ULEN,'%'); - mfprintf(FID,'%s\n','\begin{picture}%'); - mfprintf(FID,'%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',... - '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); //11.05.25 - Str='\special{pn '+string(PenThickInit)+'}%'; - mfprintf(FID,'%s\n',Str); - mfprintf(FID,'%s\n','%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin Binary files differdeleted file mode 100644 index 75982c37..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci deleted file mode 100644 index 8889de32..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci +++ /dev/null @@ -1,42 +0,0 @@ -function Ovalbox(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - Pos=varargin(1); - Dr=varargin(2); - StrV=varargin(3); - R=0.2; - NDflg=0; - for I=4:Nargs - Tmp=varargin(I); - if type(Tmp)==1 - R=Tmp; - else - if part(Tmp,1)=='-' - NDflg=1; - Tmp1=part(Tmp,2:length(Tmp)); - Cmdstr=strsubst(Tmp1,'*','G1'); - end; - end; - end; - Xr=[XMIN,XMAX]; - Yr=[YMIN,YMAX]; - Uv=0.6; Uh=0.8; - N=length(StrV); - W=Uh; H=Uv*N; - Setwindow([-W/2,W/2],[-H,0]); - G1=Ovaldata([0,-H/2],W/2,H/2,R); - Openphr('\ketpictmp'); - Beginpicture('1cm'); - if NDflg==0 - Drwline(G1); - else - execstr(Cmdstr); - end; - for I=1:N - Letter([0,Uv/2-Uv*I],'c',Op(I,StrV)) - end; - Endpicture(0); - Closephr(); - Setwindow(Xr,Yr); - Letter(Pos,Dr,'\ketpictmp'); -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin Binary files differdeleted file mode 100644 index c39ee4b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci deleted file mode 100644 index 823fc8c4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci +++ /dev/null @@ -1,31 +0,0 @@ -// e : 2015.11.15 -function Out=Ovaldata(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - if Nargs<=1 - Eps=1.0*10^(-4); - C=[(XMIN+XMAX)/2,(YMIN+YMAX)/2]; - Dx=XMAX-C(1)-Eps; - Dy=YMAX-C(2)-Eps; - N=1; - else - C=varargin(1); - Dx=varargin(2); - Dy=varargin(3); - N=4; - end; - Rc=0.2; - if N<=Nargs - Rc=varargin(N)*Rc; // 15.11.15 - end; - Out=[]; - P=C+[Dx-Rc,Dy-Rc]; - Tmp1=Circledata(P,Rc,'R=[0,%pi/2]','N=10'); - Tmp2=Listplot(C+[Dx-Rc,Dy],C+[0,Dy]); - Tmp3=Listplot(C+[Dx,0],C+[Dx,Dy-Rc]); - G=Joincrvs(Tmp3,Tmp1,Tmp2); - Tmp=Reflectdata(G,[C,C+[0,1]]); - G=Joincrvs(G,Tmp); - Tmp=Reflectdata(G,[C,C+[1,0]]); - Out=Joincrvs(G,Tmp); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin Binary files differdeleted file mode 100644 index 9695687c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci deleted file mode 100644 index 82ac7c4f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 08.06.18 - -function P=Paramark(varargin) - Nargs=length(varargin); - PA=varargin(1); - PB=varargin(2); - PC=varargin(3); - R=0.5; - if Nargs>=4 - R=varargin(4)*R; - end - U=R*(PA-PB)/Vecnagasa(PA,PB); - V=R*(PC-PB)/Vecnagasa(PC,PB); - if Gaiseki(PA-PB,PC-PB)~=0 - P=Listplot([PB+U,PB+U+V,PB+V]); - else - P=[]; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin Binary files differdeleted file mode 100644 index 323d0fcd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci deleted file mode 100644 index ce7e0d76..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.30 - -function Out=ParamonCurve(P,N,PtL) -// PtL=Plt; - if N==size(PtL,1) - Out=N; - else - Pa=PtL(N,:); - Pb=PtL(N+1,:); - V=Pb-Pa; - W=P-Pa; - D2=V(1)^2+V(2)^2; - S=(V(1)*W(1)+V(2)*W(2))/D2; - S=min(max(S,0),1); - Out=N+S; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin Binary files differdeleted file mode 100644 index 14f251f7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci deleted file mode 100644 index 83661787..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 09.10.03 - -function Out=Paramoncrv(varargin) - Eps=10^(-8); - Nargs=length(varargin); - P=varargin(1); - Gdata=varargin(Nargs); - if size(P,1)>1 - Tmp=P; P=Gdata; Gdata=Tmp; - end; - if Nargs==2 - Tmp=Nearestpt(P,Gdata); - Out=Mixop(2,Tmp); - return; - end; - N=varargin(2); - PtL=Gdata; - if N==size(PtL,1) - Out=N; - else - Pa=PtL(N,:); - Pb=PtL(N+1,:); - V=Pb-Pa; - W=P-Pa; - D2=norm(V)^2; - if D2<Eps - Out=0; - return; - end; - S=Dotprod(V,W)/D2; - S=min(max(S,0),1); - Out=N+S; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.bin Binary files differdeleted file mode 100644 index fc163602..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci deleted file mode 100644 index 4e3effdc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci +++ /dev/null @@ -1,140 +0,0 @@ -// 08.06.18 (N) -// 08.12.18 -// 09.03.12 -// 09.12.31 (gsort) -// 13.10.19 ( __ added to variables ) -// 14.10.24 N,D,E => N__, etc -// 14.12.11 Assign used -// 15.11.16 N changed to number of intervals -// 16.12.13 in case of T1=T2 - -function P__=Paramplot(varargin) - Eps__=10^(-5); - Nargs__=length(varargin); - if type(varargin(1))==13 - Fnflg__=1; - Fnx__=varargin(1); - Fny__=varargin(2); Is__=3; - if type(varargin(Is__))==13 - Fnflg__=Fnflg__+1; - Fnargx__=varargin(Is__); - Fnargy__=varargin(Is__+1); - Is__=Is__+2; - end; - else - Fnflg__=0; - Fnstr__=varargin(1); Is__=2; - end; - Rgstr__=varargin(Is__); Is__=Is__+1; - Range__=[0,2*%pi]; - N__=50; // Numpoints - E__=[]; // Exclusions - D__=%inf; // Discont - for I__=Is__:Nargs__ - Tmp__=varargin(I__); - K__=mtlb_findstr(Tmp__,'='); - Tmp1__=strsplit(Tmp__,[K__-1,K__]); - Tmp2__=ascii(Tmp1__(1,1)); - Lhs__=char(Tmp2__(1)); - Str__=Lhs__+'__='+Tmp1__(3,1); - execstr(Str__); - end; - K__=mtlb_findstr(Rgstr__,'='); - if K__~=[] - Tmp__=strsplit(Rgstr__,[K__-1,K__]); - Vname__=Tmp__(1,1); - Rng__=evstr(Tmp__(3,1)); - else - Vname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end - T1__=Rng__(1); T2__=Rng__(2); -// Dt__=(T2__-T1__)/(N__-1); - Dt__=(T2__-T1__)/(N__); // 15.11.16 - if Fnflg__==0 - Str__=Assign(Fnstr__,Vname__,'t__'); - end; - if abs(Dt__)<Eps__ then // 16.12.13 - t__=T1__; - P__=evstr(Str__); - return; - end; - P__=[]; - E__=gsort(E__); - E__=E__(length(E__):-1:1); - E__=[E__,%inf]; - Tmp__=gsort(E__); - E__=Tmp__(length(Tmp__):-1:1); - Ke__=1; - for t__=T1__:Dt__:T2__ - Pa__=[]; - if t__-E__(Ke__)<-Eps__ - if Fnflg__==0 - Pa__=evstr(Str__); - else - if Fnflg__==1 - Pa__=[Fnx__(t__),Fny__(t__)]; - else - if type(Fnargx__)==1 - Tmp1__=Fnx__(t__); - else - Tmp1__=Fnx__(Fnargx__,t__); - end; - if type(Fnargy__)==1 - Tmp2__=Fny__(t__); - else - Tmp2__=Fny__(Fnargy__,t__); - end; - Pa__=[Tmp1__,Tmp2__]; - end; - end; - end - if abs(t__-E__(Ke__))<=Eps__ - if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf] - Pa__=[%inf,%inf]; - end - end - if t__-E__(Ke__)>Eps__ - if Fnflg__==0 - Pa__=evstr(Str__); - else - if Fnflg__==1 - Pa__=[Fnx__(t__),Fny__(t__)]; - else - if type(Fnargx__)==1 - Tmp1__=Fnx__(t__); - else - Tmp1__=Fnx__(Fnargx__,t__); - end; - if type(Fnargy__)==1 - Tmp2__=Fny__(t__); - else - Tmp2__=Fny__(Fnargy__,t__); - end; - Pa__=[Tmp1__,Tmp2__]; - end; - end; - Ke__=Ke__+1; - end - if Pa__~=[] - if Pa__(1)==%inf - P__=[P__; Pa__] - elseif P__==[] - P__=[Pa__]; - else - Tmp__=P__(size(P__,1),:); - if Tmp__(1)==%inf - P__=[P__;Pa__]; - elseif norm(Tmp__-Pa__)<D__ - P__=[P__;Pa__]; - else - P__=[P__;%inf,%inf;Pa__]; - end - end - end - end; - Tmp__=size(P__,1); - if P__(Tmp__,1)==%inf - P__=P__(1:Tmp__-1,:); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.bin Binary files differdeleted file mode 100644 index 092914d8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci deleted file mode 100644 index 5adb4837..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.07.11 -// 10.01.02 - -function Out=Parapt(P) - global PHI THETA - x=P(1); - y=P(2); - z=P(3); - Xz=-x*sin(PHI)+y*cos(PHI); - Yz=-x*cos(PHI)*cos(THETA)-y*sin(PHI)*cos(THETA)+z*sin(THETA); - Out=[Xz,Yz]; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.bin Binary files differdeleted file mode 100644 index 73386a71..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci deleted file mode 100644 index 0b4844df..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci +++ /dev/null @@ -1,42 +0,0 @@ -// 08.05.31 -// 09.03.06 - -function Ans=Partcrv(A,B,PkL) - Eps=10.0^(-3); - if type(A)==1 & length(A)==1 - // new part from - if A>B+Eps - Npt=Numptcrv(PkL); - Out1=Partcrv(A,Npt,PkL); - Out2=Partcrv(1,B,PkL); - Tmp=Ptstart(PkL)-Ptend(PkL); - if norm(Tmp)<Eps - Ans=Joincrvs(Out1,Out2); - else - Ans=Mix(Out1,Out2); - end; - return; - end; - // to here - Is=ceil(A); - Ie=floor(B); - PL=[]; - if A<Is-Eps - P=(Is-A)*PkL(Is-1,:)+(1-Is+A)*PkL(Is,:); - PL=[P]; - end - PL=[PL;PkL(Is:Ie,:)]; - if B>Ie+Eps - P=(1-B+Ie)*PkL(Ie,:)+(B-Ie)*PkL(Ie+1,:); - PL=[PL;P] - end - Ans=PL; - return - end; - Tmp=Nearestpt(A,PkL);// - Ta=Op(2,Tmp);// - Tmp=Nearestpt(B,PkL);// - Tb=Op(2,Tmp);// - Ans=Partcrv(Ta,Tb,PkL);// -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.bin Binary files differdeleted file mode 100644 index 5d9d9e2f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci deleted file mode 100644 index 5b3cd178..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 08.09.13 -// 09.03.06 - -function PL=Partcrv3(T1,T2,Fk) - Eps=10^(-4); -// Tmp=Mixop(1,Fk); - // new part from - if T1>T2+Eps - Npt=size(Fk,1); - Out1=Partcrv3(T1,Npt,Fk); - Out2=Partcrv3(1,T2,Fk); - Tmp=Fk(1,:)-Fk(Npt,:); - if norm(Tmp)<Eps - PL=Joincrvs(Out1,Out2); - else - PL=Mix(Out1,Out2); - end; - return; - end; - // to here - Is=ceil(T1); - Ie=floor(T2); - PL=[]; - if T1<Is-Eps - P=(Is-T1)*Fk(Is-1,:)+(1-Is+T1)*Fk(Is,:); - PL=[P] - end; - PL=[PL;Fk(Is:Ie,:)]; - if T2>Ie+Eps - P=(1-T2+Ie)*Fk(Ie,:)+(T2-Ie)*Fk(Ie+1,:); - PL=[PL;P] - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.bin Binary files differdeleted file mode 100644 index bf10f26e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci deleted file mode 100644 index a8581b1b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci +++ /dev/null @@ -1,27 +0,0 @@ -// 13.05.03 - -function Out=Partframe(Tb,St,Ed) - G=Dividetable(Tb); - Gw=G(1); - Gt=G(2); - Gy=G(3); - Gwt=Tb(4); - Gwy=Tb(5); - Gat=lstcat(list(Gwt(1)),Gt,list(Gwt(2))); - Gay=lstcat(list(Gwy(1)),Gy,list(Gwy(2))); - Tmp1=Ptstart(Gat(St(1))); - Tmp2=Ptstart(Gay(St(2))); - Ps=[Tmp1(1),Tmp2(2)]; - Tmp1=Ptstart(Gat(Ed(1))); - Tmp2=Ptstart(Gay(Ed(2))); - Pe=[Tmp1(1),Tmp2(2)]; - Pars=Paramoncrv(Ps,Gw); - Pare=Paramoncrv(Pe,Gw); - if Pars<Pare then - Out=Partcrv(Pars,Pare,Gw); - else - Tmp1=Partcrv(Pars,Numptcrv(Gw),Gw); - Tmp2=Partcrv(1,Pare,Gw); - Out=Joincrvs(Tmp1,Tmp2); - end -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.bin Binary files differdeleted file mode 100644 index badede95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci deleted file mode 100644 index 15d74ec4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.13 - -function Out=PartitionPt() - global PARTITIONPT; - Out=PARTITIONPT; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.bin Binary files differdeleted file mode 100644 index b732c600..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci deleted file mode 100644 index 39c23c45..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci +++ /dev/null @@ -1,100 +0,0 @@ -// 08.09.13 -// 08.10.17 -// 09.05.27 -// 09.12.31 (gsort) - -function Out=Partitionseg(varargin) - global PARTITIONPT OTHERPARTITION; - Nargs=length(varargin); - Fig=varargin(1); - GL=varargin(2); N=3; - Eps0=10^(-5); - Eps=0.05; - if Nargs>2 - Eps=varargin(3); - end; - Eps2=0.2; - if Nargs>3 - Eps2=varargin(4); - end; - if Nargs>4 - Ns=varargin(5); - Other=Mixop(Ns,OTHERPARTITION); - else - Ns=1; - Other=[]; - OTHERPARTITION=[]; - for N=1:Mixlength(GL) - OTHERPARTITION=Mixadd(OTHERPARTITION,[]); - end; - end; - Npt=size(Fig,1); - ParL=[1,Npt,Other]; - for N=Ns:Mixlength(GL) - G=Mixop(N,GL); - if Fig==G - KouL=IntersectselfPp(Fig,Eps,Eps2); - else - KouL=IntersectcrvsPp(Fig,G,Eps,Eps2); - Tmp=Nearestpt(Ptstart(Fig),G); - Tmp1=Mixop(1,Tmp); - Tmp2=Mixop(2,Tmp); - Tmp3=Mixop(3,Tmp); - if Tmp3>Eps0 & Tmp3<Eps - Tmp1=Mix(Tmp1,1,floor(Tmp2)); - KouL=Mixadd(KouL,Tmp1); - end; - Tmp=Nearestpt(Ptend(Fig),G); - Tmp1=Mixop(1,Tmp); - Tmp2=Mixop(2,Tmp); - Tmp3=Mixop(3,Tmp); - if Tmp3>Eps0 & Tmp3<Eps - Tmp1=Mix(Tmp1,Numptcrv(Fig),floor(Tmp2)); - KouL=Mixadd(KouL,Tmp1); - end; - end; - for I=1:Mixlength(KouL) - Tmp=Mixop(I,KouL); - P=Mixop(1,Tmp); - S=Mixop(2,Tmp); - ParL=[ParL,S]; - K=Mixop(3,Tmp); - S=ParamonCurve(P,K,G); - Tmp=Mixop(N,OTHERPARTITION); - Tmp1=gsort([Tmp,S]); - Tmp1=Tmp1(length(Tmp1):-1:1); - Tmp2=[]; - for J=1:Mixlength(OTHERPARTITION) - Tmp3=Mixop(J,OTHERPARTITION); - if J~=N - Tmp2=Mixadd(Tmp2,Tmp3); - else - Tmp2=Mixadd(Tmp2,Tmp1); - end; - end; - OTHERPARTITION=Tmp2; - end; - end; - ParL=gsort(ParL); - ParL=ParL(length(ParL):-1:1); - ParL(1)=1; - Out=[ParL(1)]; - P=PointonCurve(ParL(1),Fig); - PARTITIONPT=Mix(P); - for I=1:length(ParL) - Tmp=ParL(I); - P=PointonCurve(Tmp,Fig); - Tmp1=Out(length(Out)); - Q=PointonCurve(Tmp1,Fig); - if norm(P-Q)>Eps - Out=[Out,Tmp]; -// P=PointonCurve(Tmp,Fig); - PARTITIONPT=Mixadd(PARTITIONPT,P); - end; - end; - if Out(length(Out))~=Npt - Out=[Out(1:length(Out)-1),Npt]; - end; - if length(Out)==1 Out=[1,Npt]; end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.bin Binary files differdeleted file mode 100644 index e48ca436..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci deleted file mode 100644 index eb689ffe..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 08.08.12 - -function Out=Perspt(P) - global FocusPoint EyePoint; - Tmp=P-FocusPoint; - X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3); - Tmp=EyePoint-FocusPoint; - E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); - Ca=E1/sqrt(E1^2+F1^2); - Sa=F1/sqrt(E1^2+F1^2); - X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1; - E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; - Cb=E2/sqrt(E2^2+G2^2); - Sb=G2/sqrt(E2^2+G2^2); - X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb; - E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb; - Yz=E3/(E3-X3)*Y3; - Zz=E3/(E3-X3)*Z3; - Out=[Yz,Zz]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin Binary files differdeleted file mode 100644 index 6c1648ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci deleted file mode 100644 index ea2c8e28..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.17 - -function Out=PhFaceL() - global PHCUTPOINTL PHVERTEXL PHFACEL; - Out=PHFACEL; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin Binary files differdeleted file mode 100644 index a76d1351..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci deleted file mode 100644 index d5333cd1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22
-
-function Out=PhHiddenData()
- global PHHIDDENDATA;
- Out=PHHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin Binary files differdeleted file mode 100644 index 6f261d0b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci deleted file mode 100644 index 1eae4bc9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.17 - -function Out=PhVertexL() - global PHCUTPOINTL PHVERTEXL PHFACEL; - Out=PHVERTEXL; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin Binary files differdeleted file mode 100644 index c447109d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci deleted file mode 100644 index 9c7806f5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci +++ /dev/null @@ -1,173 +0,0 @@ -// 08.08.17 -// 08.09.16 -// 10.01.02 -// 13.10.21 ( __ added to varibles ) -// 14.06.09 ( debugged -- the cause unknown ) - -function Out__=Phcutdata(VL__,FaceL__,PlaneD__) - global PHCUTPOINTL - Out__=[]; - EL__=[]; - Eps__=10^(-4); - for I__=1:Mixlength(FaceL__) - Face__=Mixop(I__,FaceL__); - for J__=1:length(Face__) - Nj__=J__+1; - if J__==length(Face__) - Nj__=1; - end; - N1__=Face__(J__); N2__=Face__(Nj__); - Tmp__=[N1__,N2__]; - Flg__=0; - for K__=1:Mixlength(EL__) - Tmp1__=Mixop(K__,EL__); - Tmp2__=[Tmp1__(2),Tmp1__(1)]; - if Tmp__==Tmp1__ | Tmp__==Tmp2__ - Flg__=1; - break; - end - end; - if Flg__==0 - EL__=Mixadd(EL__,Tmp__); - end; - end; - end; - Out0__=[]; - for I__=1:Mixlength(EL__) - Tmp__=Mixop(I__,EL__); - Tmp1__=Mixop(Tmp__(1),VL__); - Tmp2__=Mixop(Tmp__(2),VL__); - Out0__=Mixadd(Out0__, Spaceline([Tmp1__,Tmp2__])); - end; - if Mixtype(PlaneD__)~=1 - V1__=Mixop(1,PlaneD__); - Tmp__=Mixop(2,PlaneD__); - if length(Tmp__)>1 - d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - d__=Tmp__; - end; - elseif type(PlaneD__)==1 - V1__=PlaneD__(1:3); - d__=PlaneD__(4); - else - K__=mtlb_findstr(PlaneD__,'='); - if K__>0 - Tmp1__=part(PlaneD__,1:K__-1); - Tmp2__=part(PlaneD__,K__+1:length(PlaneD__)); - PlaneD__=Tmp1__+'-('+Tmp2__+')'; - end; - x=0; y=0; z=0; - d__=-evstr(PlaneD__); - x=1; y=0; z=0; - Tmp1__=evstr(PlaneD__)+d__; - x=0; y=1; z=0; - Tmp2__=evstr(PlaneD__)+d__; - x=0; y=0; z=1; - Tmp3__=evstr(PlaneD__)+d__; - V1__=[Tmp1__,Tmp2__,Tmp3__]; - end; - if V1__==[0,0,0] - Out__=Out0__; - return; - end; - V3__=[1,0,0]; - Out1__=Rotate3data(Out0__,V1__,V3__); -// x=poly(0,'X'); - Tmp2__=Rotate3pt([1,0,0],V3__,V1__); - Tmp__=V1__(1)*Tmp2__(1)+V1__(2)*Tmp2__(2)+V1__(3)*Tmp2__(3); - x0__=d__/Tmp__; - t__=poly(0,'T'); - PtL__ =[]; - for I__=1:Mixlength(Out1__) - Tmp__=Mixop(I__,Out1__); - Tmp1__=Tmp__(1,:); Tmp2__=Tmp__(2,:); - P__=Tmp1__+t__*(Tmp2__-Tmp1__); - Tmp__=Tmp1__(1)+t__*(Tmp2__(1)-Tmp1__(1)); - if abs(coeff(Tmp__,1))<Eps__ - Tmp__=[]; - else - Tmp1__=coeff(Tmp__,1); - Tmp2__=x0__-coeff(Tmp__,0); - Tmp__=[Tmp2__/Tmp1__]; - end; - if length(Tmp__)>0 - Tmp__=Tmp__(1); - if (Tmp__>-Eps__) & (Tmp__<1+Eps__) - Tmp3__=horner(P__,Tmp__); - Tmp3__=Rotate3pt(Tmp3__,V3__,V1__); - if Tmp__<Eps__ - Tmp1__=Mixop(I__,EL__); - Tmp1__=Tmp1__(1); - Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__); - else - if Tmp__>1-Eps__ then - Tmp1__=Mixop(I__,EL__); - Tmp1__=Tmp1__(2); - Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__); - else - Tmp4__=MixS(Mixop(I__,EL__),Tmp3__); - end; - end; - Flg__=0; - for J__=1:Mixlength(PtL__) - Tmp__=Mixop(J__,PtL__); - Tmp__=Mixop(2,Tmp__); - if norm(Tmp3__-Tmp__)<Eps__ then - Flg__=1; - break; - end; - end; - if Flg__==0 - PtL__=Mixadd(PtL__,Tmp4__); - end; - end; - end; - end; - if Mixlength(PtL__)==0 - Out__=Out0__; - return - end; - PL__=Mix(Mixop(1,PtL__)); - QL__=Mixsub(2:Mixlength(PtL__),PtL__); - N__=Mixlength(QL__); - for I__=2:N__+1 - Tmp1__=Mixop(Mixlength(PL__),PL__); - Tmp1__=Mixop(1,Tmp1__); - for J__=1:Mixlength(QL__) - Tmp2__=Mixop(J__,QL__); - Tmp2__=Mixop(1,Tmp2__); - Flg__=0; - for K__=1:Mixlength(FaceL__) - Tmp3__=Mixop(K__,FaceL__); - if Member(Tmp1__(1),Tmp3__) & Member(Tmp1__(2),Tmp3__) & Member(Tmp2__(1),Tmp3__) & Member(Tmp2__(2),Tmp3__) - Flg__=1; - break; - end; - end; - if Flg__==1 - break; - end; - end; - J__=min(J__, Mixlength(QL__)); - PL__=Mixadd(PL__,Mixop(J__,QL__)); - Tmp1__=Mixsub(1:J__-1,QL__); - Tmp2__=Mixsub(J__+1:Mixlength(QL__),QL__); - QL__=Mixjoin(Tmp1__,Tmp2__); - if Mixlength(QL__)==0 - break; - end; - end; - PHCUTPOINTL=PL__; - Tmp__=[]; - for J__=1:Mixlength(PL__); - Tmp1__=Mixop(J__,PL__); - Tmp1__=Mixop(2,Tmp1__); - Tmp__=Mixadd(Tmp__,Tmp1__); - end; - Tmp1__=Mixop(1,PL__); - Tmp1__=Mixop(2,Tmp1__); - Tmp__=Mixadd(Tmp__,Tmp1__); - Out2__=Spaceline(Tmp__); - Out__=Mixadd(Out0__,Out2__); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.bin Binary files differdeleted file mode 100644 index 9e24e48d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci deleted file mode 100644 index 879067ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci +++ /dev/null @@ -1,184 +0,0 @@ -// 08.08.17 -// 10.08.15 near line 25 or so -// 13.10.21 ( __ added to varibles ) - -function Out2__=Phcutoffdata(varargin) - global PHCUTPOINTL PHVERTEXL PHFACEL; - Eps__=10^(-4); - Out2__=[]; - VL__=varargin(1); - FaceL__=varargin(2); - PlaneD__=varargin(3); - Sgnstr__=varargin(4); - Fugou__=1; - if Sgnstr__=='-' | Sgnstr__=='n' Fugou__=-1; end; - Out0__=Phcutdata(VL__,FaceL__,PlaneD__); - PtL__=PHCUTPOINTL; - PHVERTEXL=VL__; - PHFACEL=FaceL__; - if PtL__==[] - Out2__=Out0__; - return; - end; - N1__=Mixlength(VL__); - Face__=[]; - for I__=1:Mixlength(PtL__); - Tmp__=Mixop(I__,PtL__); - Tmp3__=Mixop(1,Tmp__); // 2010.08.15 - Tmp1__=Tmp3__(1); Tmp2__=Tmp3__(2); // 2010.08.15 - if Tmp1__~=Tmp2__ - VL__=Mixadd(VL__,Mixop(2,Tmp__)); - N1__=N1__+1; - Tmp1__=N1__; - end; - Face__=[Face__,Tmp1__]; - PtL__(I__)=list(Mixop(1,Tmp__),Tmp1__); // 2010.08.15 -// Tmp2__=Mixsub(1:I__-1,PtL__); -// Tmp2__=Mixadd(Tmp2__,Mix(Mixop(1,Tmp__),Tmp1__)); -// Tmp3__=Mixsub(I__+1:Mixlength(PtL__),PtL__); -// PtL__=Mixjoin(Tmp2__,Tmp3__); - end; - OutfL__=MixS(Face__); - if Mixtype(PlaneD__)~=1 - V1__=Mixop(1,PlaneD__); - Tmp__=Mixop(2,PlaneD__); - if length(Tmp__)>1 - d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - d__=Tmp__; - end; - elseif type(PlaneD__)==1 - V1__=PlaneD__(1:3); - d__=PlaneD__(4); - else - K__=mtlb_findstr(PlaneD__,'='); - if K__>0 - Tmp1__=part(PlaneD__,1:K__-1); - Tmp2__=part(PlaneD__,K__+1:length(PlaneD__)); - PlaneD__=Tmp1__+'-('+Tmp2__+')'; - end; - x=0; y=0; z=0; - d__=-evstr(PlaneD__); - x=1; y=0; z=0; - Tmp1__=evstr(PlaneD__)+d__; - x=0; y=1; z=0; - Tmp2__=evstr(PlaneD__)+d__; - x=0; y=0; z=1; - Tmp3__=evstr(PlaneD__)+d__; - V1__=[Tmp1__,Tmp2__,Tmp3__]; - end; - for I__=1:Mixlength(FaceL__) - Face__=Mixop(I__,FaceL__); - TmpL__=[]; - for J__=1:length(Face__) - N1__=Face__(J__); - if J__==length(Face__) - N2__=Face__(1); - else - N2__=Face__(J__+1); - end; - for K__=1:Mixlength(PtL__) - Pd__=Mixop(K__,PtL__); - Tmp__=Mixop(1,Pd__); - if Tmp__(1)==Tmp__(2) - if Tmp__(1)==N1__ - TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__))); - end - else - if Tmp__==[N1__,N2__] | Tmp__==[N2__,N1__] - TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__))); - end; - end; - end; - end; - if Mixlength(TmpL__)<2 - Flg__=0; - for J__=1:length(Face__) - Tmp__=Mixop(Face__(J__),VL__); - Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__); - if Tmp1__<-Eps__ - Flg__=1; - break; - end; - end; - if Flg__==0 - OutfL__=Mixadd(OutfL__,Face__); - end; - continue; - end; - Pd__=Mixop(1,TmpL__); - Qd__=Mixop(2,TmpL__); - Outf1__=[Mixop(3,Pd__)]; - Nf__=Mixop(1,Pd__)+1; - Tmp__=Mixop(2,Pd__); - JJ__=0; - while Tmp__~=Mixop(2,Qd__) - JJ__=JJ__+1; - if JJ__>20 - disp('bug'); - return; - end; - Tmp1__=Tmp__(2); - if Outf1__(length(Outf1__))~=Tmp1__ - Outf1__=[Outf1__,Tmp1__]; - end; - Tmp__=[Face__(Nf__)]; - Nf__=Nf__+1; - if Nf__>length(Face__) Nf__=1; end; - Tmp__=[Tmp__,Face__(Nf__)]; - end; - Tmp1__=Mixop(3,Qd__); - if Outf1__(length(Outf1__))~=Tmp1__ - Outf1__=[Outf1__,Tmp1__]; - end; - Outf2__=[Mixop(3,Pd__)]; - Nf__=Mixop(1,Pd__); - Tmp__=Mixop(2,Pd__); - JJ__=0; - while Tmp__~=Mixop(2,Qd__) - JJ__=JJ__+1; - if JJ__>20 - disp('bug'); - return; - end; - Tmp1__=Tmp__(1); - if Outf2__(length(Outf2__))~=Tmp1__ - Outf2__=[Outf2__,Tmp1__] - end; - Tmp__=[Face__(Nf__)]; - Nf__=Nf__-1; - if Nf__<1 Nf__=length(Face__); end; - Tmp__=[Face__(Nf__),Tmp__]; - end; - Tmp1__=Mixop(3,Qd__); - if Outf2__(length(Outf2__))~=Tmp1__ - Outf2__=[Outf2__,Tmp1__] - end; - if length(Outf1__)<3 | length(Outf2__)<3 - Face__=Outf1__; - if length(Outf1__)<length(Outf2__) Face__=Outf2__; end; - Flg__=0; - for J__=1:length(Face__) - Tmp__=Mixop(Face__(J__),VL__); - Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__); - if Tmp1__<-Eps__ - Flg__=1; - break; - end; - end; - if Flg__==0 - OutfL__=Mixadd(OutfL__,Face__); - end; - else - Tmp__=Mixop(Outf1__(2),VL__); - Tmp1__=Outf1__; - Tmp2__=Fugou__*(Naiseki(V1__,Tmp__)-d__); - if Tmp2__<0 Tmp1__=Outf2__; end; - OutfL__=Mixadd(OutfL__,Tmp1__); - end; - end; - PHVERTEXL=VL__; - PHFACEL=OutfL__; - Out2__=Phcutdata(VL__,OutfL__,[0,0,0,0]); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.bin Binary files differdeleted file mode 100644 index 4105b83f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci deleted file mode 100644 index 02fe98a5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.07.11 - -function Ang=Phidegree() - global PHI; - Ang=PHI*180/%pi; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.bin Binary files differdeleted file mode 100644 index 8e0c2f4b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci deleted file mode 100644 index 835c173e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.21 -// 09.10.27 - -function Out=Phparadata(VL,FaceL) - Out=Facesdata(list(VL,FaceL),'para'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.bin Binary files differdeleted file mode 100644 index bd4d18f5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci deleted file mode 100644 index e422b6fc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.21 -// 09.10.27 - -function Out=Phpersdata(VL,FaceL) - Out=Facesdata(list(VL,FaceL),'pers'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.bin Binary files differdeleted file mode 100644 index 83ccabf1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci deleted file mode 100644 index c4c79c26..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.21 -// 09.10.27 - -function Out=Phrawparadata(VL,FaceL) - Out=Facesdata(list(VL,FaceL),'rawpara'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.bin Binary files differdeleted file mode 100644 index c2072a26..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci deleted file mode 100644 index 29870630..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.21 -// 09.10.27 - -function Phrawpersdata(VL,FaceL) - Out=Facesdata(list(VL,FaceL),'rawpers'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.bin Binary files differdeleted file mode 100644 index 4a5a308d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci deleted file mode 100644 index 3c8018e3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22 -// 09.10.27 - -function Out=Phsparadata(Fdata) - Out=Facesdata(Fdata,'para') -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.bin Binary files differdeleted file mode 100644 index 9d90d190..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci deleted file mode 100644 index 58ab8101..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22 -// 09.10.27 - -function Out=Phspersdata(Fdata) - Out=Facesdata(Fdata,'pers') -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.bin Binary files differdeleted file mode 100644 index ef215643..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci deleted file mode 100644 index 6928d928..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22 -// 09.10.27 - -function Out=Phsrawparadata(Fdata) - Out=Facesdata(Fdata,'rawpara') -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.bin Binary files differdeleted file mode 100644 index b571d4dd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci deleted file mode 100644 index 21677841..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22 -// 09.10.27 - -function Phsrawpersdata(Fdata) - Out=Facesdata(Fdata,'rawpers') -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.bin Binary files differdeleted file mode 100644 index fb253985..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci deleted file mode 100644 index fc548f28..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci +++ /dev/null @@ -1,138 +0,0 @@ -// -// 08.06.18 (N) -// 08.08.24 -// 08.10.05 -// 08.12.18 -// 09.03.12 -// 09.12.31 (gsort) -// 13.10.19 (__ added to variables) -// 14.10.24 N,D,E => N__ ,... -// 14.12.11 Assign used, and debugged (Exfun ) -// 15.11.16 N changed to number of intervals -// 16.12.13 in case of X1=X2 - -function P__=Plotdata(varargin) - global XMIN XMAX YMIN YMAX - Eps__=10^(-5); - Fnstr__=varargin(1); Is__=2; - if type(Fnstr__)==13 - Fnflg__=1; - Fnarg__=varargin(Is__); - if type(Fnarg__)==13 - Fnflg__=Fnflg__+1; - Is__=Is__+1; - end; - else - Fnflg__=0; - end; - Rgstr__=varargin(Is__); Is__=Is__+1; - K__=mtlb_findstr(Rgstr__,'='); - if length(K__)>0 - Tmp__=strsplit(Rgstr__,[K__-1,K__]); - Vname__=Tmp__(1,1); - Rng__=evstr(Tmp__(3,1)); - else - Vname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end; - N__=50; // Numpoints - E__=[]; // Exclusions - Exfun__=''; // Exclusion function - D__=%inf; // Discont - for I__=Is__:length(varargin) - Tmp__=varargin(I__); - Lhs__=part(Tmp__,1); - K__=mtlb_findstr(Tmp__,'='); - Tmp1__=part(Tmp__,K__+1:length(Tmp__)); - if mtlb_findstr(Tmp__,Vname__)==[] - Str__=Lhs__+'__='+Tmp1__; - execstr(Str__); - else - Exfun__=Tmp1__; - end; - end; - X1__=Rng__(1); X2__=Rng__(2); -// dx__=(X2__-X1__)/(N__-1); - dx__=(X2__-X1__)/(N__); // 15.11.16 - if Fnflg__==0 - Str__=Assign(Fnstr__,Vname__,'x__'); - end; - if abs(dx__)<Eps__ then // 16.12.13 - x__=X1__; - P__=[X1__,evstr(Str__)]; - return; - end; - Exfun__=Assign(Exfun__,Vname__,'x__'); - if length(Exfun__)>0 then // 14.12.11 - Tmp__=mtlb_findstr(Exfun__,"x__"); - if length(Tmp__)==0 then - E__=evstr(Exfun__); - Exfun__=""; - end - end - P__=[]; - E__=gsort(E__); - E__=E__(length(E__):-1:1); - E__=[E__,%inf]; - Tmp__=gsort(E__); - E__=Tmp__(length(Tmp__):-1:1); - Ke__=1; - for x__=X1__:dx__:X2__ - if Exfun__~='' - Tmp__=evstr(Exfun__); - if abs(Tmp__)<Eps__ - P__=[P__;%inf,%inf]; - continue; - end; - end; - Pa__=[]; - if x__-E__(Ke__)<-Eps__ - if Fnflg__==0 - Pa__=[x__,evstr(Str__)]; - else - if Fnflg__==1 - Pa__=[x__,Fnstr__(x__)]; - else - Pa__=[x__,Fnstr__(Fnarg__,x__)]; - end; - end; - end; - if abs(x__-E__(Ke__))<=Eps__ - if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf] - Pa__=[%inf,%inf]; - end - end - if x__-E__(Ke__)>Eps__ - if Fnflg__==0 - Pa__=[x__,evstr(Str__)]; - else - if Fnflg__==1 - Pa__=[x__,Fnstr(x__)]; - else - Pa__=[x__,Fnstr__(Fnarg__,x__)]; - end; - end; - Ke__=Ke__+1; - end - if Pa__~=[] - if Pa__(1)==%inf - P__=[P__;Pa__] - elseif P__==[] - P__=[Pa__]; - else - Tmp__=P__(size(P__,1),:); - if Tmp__(1)==%inf - P__=[P__;Pa__]; - elseif norm(Tmp__-Pa__)<D__ - P__=[P__;Pa__]; - else - P__=[P__;%inf,%inf;Pa__]; - end - end - end - end; - Tmp__=size(P__,1); - if P__(Tmp__,1)==%inf - P__=P__(1:Tmp__-1,:); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.bin Binary files differdeleted file mode 100644 index 1a7c1121..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci deleted file mode 100644 index 35e2347e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci +++ /dev/null @@ -1,25 +0,0 @@ -// -// 08.05.23 -// 09.09.18 -// 13.05.03 list of points is outputted - -function PL=Pointdata(varargin) - Nargs=length(varargin); - PL=list(); - for I=1:Nargs - DL=varargin(I); - DL=Flattenlist(DL); - for K=1:length(DL); - Dt=DL(K); - for J=1:size(Dt,1) - Tmp=Dt(J,:); - if Tmp(1)~=%inf then - PL($+1)=Tmp; - end - end - end; - end; - if length(PL)==1 - PL=PL(1); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.bin Binary files differdeleted file mode 100644 index 181d1354..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci deleted file mode 100644 index fd2a35d0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.30 - -function Out=PointonCurve(T,PtL) - Eps=10^(-4); - N=Trunc(T+Eps); - S=max(T-N,0); -// PtL=Plt; - if N==size(PtL,1) - Out=PtL(N,:); - else - Pa=PtL(N,:);; - Pb=PtL(N+1,:); - Out=(1-S)*Pa+S*Pb; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.bin Binary files differdeleted file mode 100644 index 16b3b587..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci deleted file mode 100644 index c39cdadc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 09.10.03 - -function Out=Pointoncrv(varargin) - Eps=10^(-4); - T=varargin(1); - Gdata=varargin(2); - if size(T,1)>1 - Tmp=T; T=Gdata; Gdata=Tmp; - end; - PtL=Gdata; - N=Trunc(T+Eps); - S=max(T-N,0); - if N==size(PtL,1) - Out=PtL(N,:); - else - Pa=PtL(N,:);; - Pb=PtL(N+1,:); - Out=(1-S)*Pa+S*Pb; - end -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.bin Binary files differdeleted file mode 100644 index 337e76a9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci deleted file mode 100644 index b23dfdc8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 09.03.12 - -function Out=Powersum(varargin) - Nargs=length(varargin); - COEFF=varargin(1); - x=varargin(2); - if Nargs>2 - x=x-varargin(3); - end; - NL=Mixop(1,COEFF); - A=Mixop(2,COEFF); - Upto=min(size(NL,2),size(A,2)); - NL=NL(1:Upto); - A=A(1:Upto); - Out=sum(A.*x^NL); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin Binary files differdeleted file mode 100644 index 8a75cbf0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci deleted file mode 100644 index bc866928..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci +++ /dev/null @@ -1,10 +0,0 @@ -// 09.08.23 - -function Out=Prime(varargin) - if length(varargin)==0 - Out=char(39); - else - Out=varargin(1)+char(39); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin Binary files differdeleted file mode 100644 index a4c6dba6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci deleted file mode 100644 index bf137751..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci +++ /dev/null @@ -1,10 +0,0 @@ -// s : 2014.06.22 - -function Printobjstr(Str) - global Wfile FID; - if Wfile=='default' then - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin Binary files differdeleted file mode 100644 index 5adfea2f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci deleted file mode 100644 index bbe28c12..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci +++ /dev/null @@ -1,32 +0,0 @@ -// 08.07.11 -// 08.10.07 -// 09.06.02 -// 09.08.23 - -function AnsL=ProjCurve(Curve) - global PHI THETA; - Eps=10^(-6); - AnsL=[]; // Added - SP=sin(PHI); CP=cos(PHI); - ST=sin(THETA); CT=cos(THETA); - for I=1:size(Curve,1) - P=Curve(I,:); - x=P(1); y=P(2); z=P(3); - if x~=%inf - Xz=-x*SP+y*CP; - Yz=-x*CP*CT-y*SP*CT+z*ST; - Tmp=[Xz,Yz]; - if I==1 - AnsL=[Tmp]; - else - Tmp1=AnsL(size(AnsL,1),:); - if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps - AnsL=[AnsL;Tmp]; - end; - end; - else - AnsL=[AnsL;%inf,%inf]; - end; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin Binary files differdeleted file mode 100644 index 8b17d615..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci deleted file mode 100644 index 74c552a6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.07.11 -// 08.10.16 - -function Out=ProjcoordCurve(Curve) - global PHI THETA; - SP=sin(PHI); CP=cos(PHI); - ST=sin(THETA); CT=cos(THETA); - Out=[]; - for J=1:size(Curve,1) - P=Curve(J,:); - x=P(1); y=P(2); z=P(3); - Xz=-x*SP+y*CP; - Yz=-x*CP*CT-y*SP*CT+z*ST; - Zz=x*CP*ST+y*SP*ST+z*CT; - Out=[Out;Xz,Yz,Zz]; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin Binary files differdeleted file mode 100644 index 0ce6a992..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci deleted file mode 100644 index 82feeff2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 08.07.11 -// 08.07.15 -// 08.08.12 -// 08.10.28 - -function CL=Projpara(varargin) - Nargs=length(varargin); - Flg=0; - if Nargs==1 & Mixtype(varargin(1))==1 - Flg=1; - end; - CL=[]; - for N=1:Nargs - Crv=varargin(N); - if Mixtype(Crv)==1 - Tmp=ProjCurve(Crv); - CL=Mixadd(CL,Tmp); - else - if Mixtype(Crv)==3 - ObjL=[]; - for I=1:Mixlength(Crv) - Tmp1=Mixop(I,Crv); - if Mixtype(Tmp1)==1 - ObjL=Mixadd(ObjL,Tmp1); - else - ObjL=Mixjoin(ObjL,Tmp1); - end; - end; - Crv=ObjL; - end; - for J=1:Mixlength(Crv) - Tmp=ProjCurve(Mixop(J,Crv)); - CL=Mixadd(CL,Tmp); - end - end - end - if Mixlength(CL)==1 & Flg==1 - CL=Mixop(1,CL); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin Binary files differdeleted file mode 100644 index 7594630e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci deleted file mode 100644 index b43451a9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 08.08.12 -// 08.10.28 - -function CL=Projpers(varargin) - Nargs=length(varargin); - Flg=0; - if Nargs==1 & Mixtype(varargin(1))==1 - Flg=1; - end; - CL=[]; - for N=1:Nargs - Crv=varargin(N); - if Mixtype(Crv)==1 - Tmp=CameraCurve(Crv); - CL=Mixadd(CL,Tmp); - else - if Mixtype(Crv)==3 - ObjL=[]; - for I=1:Mixlength(Crv) - Tmp1=Mixop(I,Crv); - if Mixtype(Tmp1)==1 - ObjL=Mixadd(ObjL,Tmp1); - else - ObjL=Mixjoin(ObjL,Tmp1); - end; - end; - Crv=ObjL; - end; - for J=1:Mixlength(Crv) - Tmp=CameraCurve(Mixop(J,Crv)); - CL=Mixadd(CL,Tmp); - end - end - end - if Mixlength(CL)==1 & Flg==1 - CL=Mixop(1,CL); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin Binary files differdeleted file mode 100644 index b042e991..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci deleted file mode 100644 index 78776d7b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci +++ /dev/null @@ -1,4 +0,0 @@ -function P=Ptcrv(N,Fig) - P=Fig(N,:) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin Binary files differdeleted file mode 100644 index 51257705..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci deleted file mode 100644 index d16ebf80..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci +++ /dev/null @@ -1,4 +0,0 @@ -function P=Ptend(Fig) - P=Fig(size(Fig,1),:) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin Binary files differdeleted file mode 100644 index b86773c2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci deleted file mode 100644 index 98f2ca94..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci +++ /dev/null @@ -1,250 +0,0 @@ -// 08.10.10 -// 08.10.12 -// 08.10.15 -// 08.10.26 -// 09.06.05 -// 09.09.10 -// 09.10.12 debug -// 09.11.07 debugged -// 10.02.16 Eps__ -// 13.10.22 ( __ added to variables ) - -function Out__=PthiddenQ(PtA__,Vec__,Fd__,Uveq__,Np__,EPS__) -// Out__=1 : hidden -// SL__ : List of segments near PtA__+Vec__ - Eps__0=10^(-4)*(Xmax()-Xmin())/10; - Eps__=EPS__(1)*(Xmax()-Xmin())/10; // - Out__=0; - Vec__1=1/norm(Vec__)*Vec__; - PtL__=[]; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Mixop(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - FdL__=Fullformfunc(Fd__); - Xf__=Mixop(2,FdL__); - Yf__=Mixop(3,FdL__); - Zf__=Mixop(4,FdL__); - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); UMax__=Urg__(2); - Vmin__=Vrg__(1); VMax__=Vrg__(2); - V1__='('+string(Vec__(1))+')'; - V2__='('+string(Vec__(2))+')'; - V3__='('+string(Vec__(3))+')'; - Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))'; - Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))'; - Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))'; - Urg__str=Mixop(5,FdL__); - Vrg__str=Mixop(6,FdL__); - if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0 - Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__; - else - Eq__=Xstr__; - end; - MS__=Mix(Eq__,Urg__str,Vrg__str,Np__); - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - SL__=[]; - for J__=1:length(Yval__)-1 - for I__=1:length(Xval__)-1 - a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__); - a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1); - a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1); - a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__); - PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; - VL__=[c1__,c2__,c3__,c4__,c1__]; - QL__=[]; - for K__=1:4 - P1__=PL__(K__,:); P2__=PL__(K__+1,:); - M1__=VL__(K__); M2__=VL__(K__+1); - if M1__>=Eps__0 & M2__>=Eps__0 - continue; - end; - if M1__<=-Eps__0 & M2__<=-Eps__0 - continue; - end; - if abs(M1__)<Eps__0 - Tmp__=P1__; - elseif abs(M2__)<Eps__0 - continue; - else - Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); - end; - QL__=[QL__;Tmp__]; - end; - if size(QL__,1)==2 - Puv1__=QL__(1,:); Puv2=QL__(2,:); - Tmp__1=Puv1__(1); - Tmp__2=Puv1__(2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - P1__=[Xv__,Yv__,Zv__]; - Tmp__1=Puv2(1); - Tmp__2=Puv2(2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - P2__=[Xv__,Yv__,Zv__]; - if norm(P1__-P2__)<Eps__0 // 09.11.07 - continue; - end; // - Tmp__1=norm(P1__-PtA__); - Tmp__2=Naiseki(P1__-PtA__,Vec__1); - Tmp__3=sqrt(abs(Tmp__1^2-Tmp__2^2)); - Tmp__4=norm(P2__-PtA__); - Tmp__5=Naiseki(P2__-PtA__,Vec__1); - Tmp__6=sqrt(abs(Tmp__4^2-Tmp__5^2)); - if Tmp__2<Tmp__5 - Tmp__=P1__; P1__=P2__; P2__=Tmp__; - Tmp__=Tmp__2; Tmp__2=Tmp__5; Tmp__5=Tmp__; - Tmp__=Tmp__3; Tmp__3=Tmp__6; Tmp__6=Tmp__; - end; - if Tmp__3<EPS__(2)*Eps__ & Tmp__6<EPS__(2)*Eps__ // - if Tmp__2>-Eps__0 - if Tmp__5<-Eps__0 - SL__=[SL__;P1__,P2__,-1]; - else - SL__=[SL__;P1__,P2__,1]; - end; - end; - end; - V1__=Vec__1(1); V2__=Vec__1(2); V3__=Vec__1(3); - if abs(V1__)>Eps__0 - M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3); - M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3); - elseif abs(V2__)>Eps__0 - M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3); - M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3); - else - M1__=PtA__(2)-P1__(2); - M2__=PtA__(2)-P2__(2); - end; - if M1__*M2__>=0 - if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0) - continue; - end; - if abs(M1__)<=Eps__0 - Pt__=P1__; Ptuv__=Puv1__; - else - Pt__=P2__; Ptuv__=Puv2; - end; - else - Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); - Ptuv__=1/(M1__-M2__)*(-M2__*Puv1__+M1__*Puv2); - end; - if type(Uveq__)==10 - Tmp__1='('+string(Ptuv__(1))+')'; - Tmp__2='('+string(Ptuv__(2))+')'; - Tmp__=strsubst(Uveq__,Uname__,Tmp__1); - Tmp__=strsubst(Tmp__,Vname__,Tmp__2); - Tmp__=evstr(Tmp__); - if Tmp__<-Eps__0 - continue; - end; - end; - Tmp__1=Dotprod(Pt__-PtA__,Vec__1); - Tmp__2=abs(Tmp__1); - Tmp__3=Dotprod(P1__-P2__,Vec__1); - Tmp__4=norm(P1__-P2__); - Tmp__6=Tmp__3/Tmp__4; - if Tmp__1>Eps__0 - if abs(Tmp__6)>0.75 // from - PtL__=[PtL__;Pt__,P2__]; - continue; - end; // upto - if Tmp__2>Eps__ - Out__=1; - return - end; - if Tmp__2<2*Eps__ - continue; - end; - end; - end; - end; - end; - if PtL__==[] - return; - end; - for I__=1:size(SL__,1) - P2__=SL__(I__,4:6); - Flg__=0; - for J__=1:size(SL__,1) - P=SL__(J__,1:3); - if norm(P-P2__)<Eps__0 - SL__(I__,7)=J__; - Flg__=1; - break; - end; - end; - if Flg__==0 & SL__(I__,7)>0 - SL__(I__,7)=-2; - end; - end; - for I__=1:size(PtL__,1) - P__=PtL__(I__,4:6); - Flg__=0; - for J__=1:size(SL__,1) - P1__=SL__(J__,1:3); - if norm(P1__-P__)<Eps__0 - Flg__=1; - break; - end; - end; - if Flg__==0 - Pt__=PtL__(I__,1:3); // from - Tmp__0=norm(P__-Pt__); - Tmp__1=abs(Dotprod(P__-Pt__,Vec__1)); - Tmp__2=sqrt(abs(Tmp__0^2-Tmp__1^2)); - Tmp__3=Tmp__2*norm(Pt__-PtA__)/Tmp__0; // should to be changed 10.02.16 - if Tmp__3>Eps__/5 - Out__=1; - return; - else - continue; - end; // upto - end; - Nxt__=SL__(J__,7); - while Nxt__>0 - P__=SL__(Nxt__,4:6); - Nxt__=SL__(Nxt__,7); - end; - if Nxt__==-2 - Out__=1; - return; - else - Out__=0; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.bin Binary files differdeleted file mode 100644 index 97796c60..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci deleted file mode 100644 index f6452897..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 10.01.13 - -function Out=Ptne(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMAX,YMAX]; - else - G=varargin(1); - XM=max(G(:,1)); - YM=max(G(:,2)); - Out=[XM,YM]; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin Binary files differdeleted file mode 100644 index 1d290957..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci deleted file mode 100644 index e3cd5ebc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 10.01.13 - -function Out=Ptnw(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMIN,YMAX]; - else - G=varargin(1); - Xm=min(G(:,1)); - YM=max(G(:,2)); - Out=[Xm,YM]; - end; - endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin Binary files differdeleted file mode 100644 index 09489c68..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci deleted file mode 100644 index fe5e52b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 10.01.13 - -function Out=Ptse(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMAX,YMIN]; - else - G=varargin(1); - XM=max(G(:,1)); - Ym=min(G(:,2)); - Out=[XM,Ym]; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin Binary files differdeleted file mode 100644 index c662aeb8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci deleted file mode 100644 index f94437cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci +++ /dev/null @@ -1,4 +0,0 @@ -function P=Ptstart(Fig) - P=Fig(1,:) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.bin Binary files differdeleted file mode 100644 index 3cd0fa20..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci deleted file mode 100644 index 5b0a3474..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 10.01.13 - -function Out=Ptsw(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMIN,YMIN]; - else - G=varargin(1); - Xm=min(G(:,1)); - Ym=min(G(:,2)); - Out=[Xm,Ym]; - end; -endfunction
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin Binary files differdeleted file mode 100644 index d31053f9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci deleted file mode 100644 index e0020f0b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci +++ /dev/null @@ -1,72 +0,0 @@ -// 09.11.26 -// 09.12.06 -// 09.12.25 -// 09.12.29 - -function Putcell(varargin) - Nargs=length(varargin); - TbL=varargin(1); - Str=varargin(Nargs); - if type(Str)==1 - Str=string(Str); - end; - Pos=varargin(Nargs-1); - Nrg=varargin(2); - if type(Nrg)==10 - if Nargs==4 - Cell=Findcell(TbL,Nrg); - else - Mrg=varargin(3); - Cell=Findcell(TbL,Nrg,Mrg); - end; - else - Mrg=varargin(3); - Cell=Findcell(TbL,Nrg,Mrg); - end; - Pt=Cell(1); Dr='c'; - Posh=part(Pos,1); - Post=part(Pos,2:length(Pos)); - if (Posh=='r')|(Posh=='R') - Pt=Pt+[Cell(2),0]; - if length(Post)==0 - Dr='w1'; - else - Dr='w'+Post; - end; - end; - if (Posh=='l')|(Posh=='L') - Pt=Pt-[Cell(2),0]; - if length(Post)==0 - Dr='e1'; - else - Dr='e'+Post; - end; - end; - if (Posh=='u')|(Posh=='U') - Pt=Pt+[0,Cell(3)]; - if length(Post)==0 - Dr='s1'; - else - Dr='s'+Post; - end; - end; - if (Posh=='d')|(Posh=='D') - Pt=Pt-[0,Cell(3)]; - if length(Post)==0 - Dr='n1'; - else - Dr='n'+Post; - end; - end; - if (Posh=='b')|(Posh=='B') - Pt=Pt-[0,Cell(3)]; - if length(Post)==0 - Dr='n1'; - else - Dr='n'+Post; - end; - Str='$\mathstrut$'+Str; - end; - Letter(Pt,Dr,Str); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin Binary files differdeleted file mode 100644 index f834f86d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci deleted file mode 100644 index 63bc151f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 09.11.26 - -function Putcirmark(TbL,Nrg,Mrg,Dt) - if type(Dt)==10 - N=1; Pos=Dt; Str=''; - else - N=length(Dt); Pos='l'; Str='\hspace*{2mm}'; - end; - for I=1:N - Tmp1=Dt(I); - Str=Str+'\cirmark'; - if I<N - Str=Str+'\hspace{3mm}'; - end; - end; - Putcell(TbL,Nrg,Mrg,Pos,Str); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.bin Binary files differdeleted file mode 100644 index 1b37ca31..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci deleted file mode 100644 index 41b9a1b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 09.12.06 -// 10.01.26 - -function PutcoL(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Ag=varargin(2); - if type(Ag)==1 - CoL=Ag; - else - Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; - Clm=[]; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp-1]; - end; - end; - Nrg=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg=Nrg+Tmp*26^Tmp1; - end; - CoL=Nrg; - end; - Nr=length(TbL(3))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Putcell(TbL,CoL,K,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str=Dt(N); - Rrng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Rrng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,CoL,Rrng,Pos,Str) - K=Rrng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.bin Binary files differdeleted file mode 100644 index 7a5123d8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci deleted file mode 100644 index 0e2f9d0a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 10.04.01 - -function PutcoLexpr(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Ag=varargin(2); - if type(Ag)==1 - CoL=Ag; - else - Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; - Clm=[]; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp-1]; - end; - end; - Nrg=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg=Nrg+Tmp*26^Tmp1; - end; - CoL=Nrg; - end; - Nr=length(TbL(3))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Dt='$'+Dt+'$'; - Putcell(TbL,CoL,K,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str='$'+Dt(N)+'$'; - Rrng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Rrng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,CoL,Rrng,Pos,Str) - K=Rrng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin Binary files differdeleted file mode 100644 index c4cecfc7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci deleted file mode 100644 index b993ffa9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 10.01.02 for v5 - -function PutcoLstr(varargin) - Tb=varargin(1); - Nr=varargin(2); - Pos=varargin(3); - Str=varargin(4); - Sep=''; - if length(varargin)>4 - Sep=varargin(5); - end; - if Sep=='' - for I=1:length(Str) - Tmp=part(Str,I); - Putcell(Tb,Nr,I,Pos,Tmp); - end; - else - Ltr=''; - K=1; - for I=1:length(Str) - Tmp=part(Str,I); - if Tmp==Sep - Putcell(Tb,Nr,K,Pos,Ltr); - K=K+1; - Ltr=''; - else - Ltr=Ltr+Tmp; - end; - end; - if Ltr~='' - Putcell(Tb,Nr,K,Pos,Ltr); - end; - end; -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin Binary files differdeleted file mode 100644 index 5fc7bc24..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci deleted file mode 100644 index 8d732a9d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 09.11.26 - -function Putdashmark(TbL,Nrg,Mrg,Dt) - N=length(Dt); - Str='\hspace*{2mm}'; - for I=1:N - Tmp1=Dt(I); - if type(Tmp1)==1 - Tmp1=string(Tmp1); - end; - Str=Str+'\dashmark{'+Tmp1+'}'; - if I<N - Str=Str+'\hspace{3mm}'; - end; - end; - Putcell(TbL,Nrg,Mrg,'l',Str); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.bin Binary files differdeleted file mode 100644 index 1910dfd9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci deleted file mode 100644 index ce63e542..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 09.11.26 - -function Putrecmark(TbL,Nrg,Mrg,Dt) - if type(Dt)==10 - N=1; Pos=Dt; Str=''; - else - N=length(Dt); Pos='l'; Str='\hspace*{2mm}'; - end; - for I=1:N - Str=Str+'\recmark'; - if I<N - Str=Str+'\hspace{3mm}'; - end; - end; - Putcell(TbL,Nrg,Mrg,Pos,Str); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.bin Binary files differdeleted file mode 100644 index 9085bc24..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci deleted file mode 100644 index 0c2c209a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.12.06 -// 10.01.26 - -function Putrow(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Row=varargin(2); - Nr=length(TbL(2))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Putcell(TbL,K,Row,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str=Dt(N); - Crng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Crng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,Crng,Row,Pos,Str) - K=Crng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.bin Binary files differdeleted file mode 100644 index 83b428d4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci deleted file mode 100644 index 0a3158cc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 10.04.01 - -function Putrowexpr(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Row=varargin(2); - Nr=length(TbL(2))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Dt='$'+Dt+'$'; - Putcell(TbL,K,Row,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str='$'+Dt(N)+'$'; - Crng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Crng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,Crng,Row,Pos,Str) - K=Crng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin Binary files differdeleted file mode 100644 index 02bd62fd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci deleted file mode 100644 index d006f3ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 10.01.02 for v5 - -function Putrowstr(varargin) - Tb=varargin(1); - Nr=varargin(2); - Pos=varargin(3); - Str=varargin(4); - Sep=''; - if length(varargin)>4 - Sep=varargin(5); - end; - if Sep=='' - for I=1:length(Str) - Tmp=part(Str,I); - Putcell(Tb,I,Nr,Pos,Tmp); - end; - else - Ltr=''; - K=1; - for I=1:length(Str) - Tmp=part(Str,I); - if Tmp==Sep - Putcell(Tb,K,Nr,Pos,Ltr); - K=K+1; - Ltr=''; - else - Ltr=Ltr+Tmp; - end; - end; - if Ltr~='' - Putcell(Tb,K,Nr,Pos,Ltr); - end; - end; -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin Binary files differdeleted file mode 100644 index cfb497e7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci deleted file mode 100644 index a4f1ad89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.09.10 - -function Puttrace(Dt); - global TRACEDATA; - TRACEDATA=Dt; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin Binary files differdeleted file mode 100644 index 116083a4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci deleted file mode 100644 index 839452f6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci +++ /dev/null @@ -1,87 +0,0 @@ -// 11.05.28 -// 15.05.03 - -function R=Ratiocmyk(Color) - if type(Color)==1 then - R=Color; - return; - end; - Tmp=grep(Color,','); - if length(Tmp)>0 - R=evstr(Tmp); - return; - end; - select Color - case 'greenyellow' then R=[0.15,0,0.69,0], - case 'yellow' then R=[0,0,1,0], - case 'goldenrod' then R=[0,0.1,0.84,0], - case 'dandelion' then R=[0,0.29,0.84,0], - case 'apricot' then R=[0,0.32,0.52,0], - case 'peach' then R=[0,0.5,0.7,0], - case 'melon' then R=[0,0.46,0.5,0], - case 'yelloworange' then R=[0,0.42,1,0], - case 'orange' then R=[0,0.61,0.87,0], - case 'burntorange' then R=[0,0.51,1,0], - case 'bittersweet' then R=[0,0.75,1,0.24], - case 'redorange' then R=[0,0.77,0.87,0], - case 'mahogany' then R=[0,0.85,0.87,0.35], - case 'maroon' then R=[0,0.87,0.68,0.32], - case 'brickred' then R=[0,0.89,0.94,0.28], - case 'red' then R=[0,1,1,0], - case 'orangered' then R=[0,1,0.5,0], - case 'rubinered' then R=[0,1,0.13,0], - case 'wildstrawberry' then R=[0,0.96,0.39,0], - case 'salmon' then R=[0,0.53,0.38,0], - case 'carnationpink' then R=[0,0.63,0,0], - case 'magenta' then R=[0,1,0,0], - case 'violetred' then R=[0,0.81,0,0], - case 'rhodamine' then R=[0,0.82,0,0], - case 'mulberry' then R=[0.34,0.9,0,0.02], - case 'redviolet' then R=[0.07,0.9,0,0.34], - case 'fuchsia' then R=[0.47,0.91,0,0.08], - case 'lavender' then R=[0,0.48,0,0], - case 'thistle' then R=[0.12,0.59,0,0], - case 'orchid' then R=[0.32,0.64,0,0], - case 'darkorchid' then R=[0.4,0.8,0.2,0], - case 'purple' then R=[0.45,0.86,0,0], - case 'plum' then R=[0.5,1,0,0], - case 'violet' then R=[0.79,0.88,0,0], - case 'royalpurple' then R=[0.75,0.9,0,0], - case 'blueviolet' then R=[0.86,0.91,0,0.04], - case 'periwinkle' then R=[0.57,0.55,0,0], - case 'cadetblue' then R=[0.62,0.57,0.23,0], - case 'cornflowerblue' then R=[0.65,0.13,0,0], - case 'midnightblue' then R=[0.98,0.13,0,0.43], - case 'navyblue' then R=[0.94,0.54,0,0], - case 'royalblue' then R=[1,0.5,0,0], - case 'blue' then R=[1,1,0,0], - case 'cerulean' then R=[0.94,0.11,0,0], - case 'cyan' then R=[1,0,0,0], - case 'processblue' then R=[0.96,0,0,0], - case 'skyblue' then R=[0.62,0,0.12,0], - case 'turquoise' then R=[0.85,0,0.2,0], - case 'tealblue' then R=[0.86,0,0.34,0.02], - case 'aquamarine' then R=[0.82,0,0.3,0], - case 'bluegreen' then R=[0.85,0,0.33,0], - case 'emerald' then R=[1,0,0.5,0], - case 'junglegreen' then R=[0.99,0,0.52,0], - case 'seagreen' then R=[0.69,0,0.5,0], - case 'green' then R=[1,0,1,0], - case 'forestgreen' then R=[0.91,0,0.88,0.12], - case 'pinegreen' then R=[0.92,0,0.59,0.25], - case 'limegreen' then R=[0.5,0,1,0], - case 'yellowgreen' then R=[0.44,0,0.74,0], - case 'springgreen' then R=[0.26,0,0.76,0], - case 'olivegreen' then R=[0.64,0,0.95,0.4], - case 'rawsienna' then R=[0,0.72,1,0.45], - case 'sepia' then R=[0,0.83,1,0.7], - case 'brown' then R=[0,0.81,1,0.6], - case 'tan' then R=[0.14,0.42,0.56,0], - case 'gray' then R=[0,0,0,0.5], - case 'black' then R=[0,0,0,1], - case 'white' then R=[0,0,0,0], - else - disp(Color+' may be user-defined'); - R=Color; // 15.05.03 - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin Binary files differdeleted file mode 100644 index 22d88c39..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci deleted file mode 100644 index c1656b15..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci +++ /dev/null @@ -1,92 +0,0 @@ -// 14.10.10 -// 14.12.14 for 3d -// 15.01.03 changed ("start","end") -// 15.10.24 in case of list-length==1 - -function Out=ReadOutData(varargin) - global Fnameout - if length(varargin)==0 then - Fname=Rnameout; - else - Fname=varargin(1); - end - Fid=mopen(Fname,"rb"); - Gstr=[]; - Str=""; - Flg=1; - Tmp=mgetstr(1,Fid); - while 1==1 - if Tmp=="" then - break; - end; - C=ascii(Tmp); - if Tmp=="/"|C==13|C==10 then// / CR,LF - if Flg==1 then - if part(Str,1:5)=="start" then - Str="Tmp=[];"; - else - if part(Str,1:3)=="end" then - if Flg3d==0 then // 2014.12.14 - Str=Varname+"($+1)=Listplot(Tmp);"; - else - Str=Varname+"($+1)=Spaceline(Tmp);"; - end - else - if part(Str,1:2)=="[[" then - Str="Tmp=[Tmp,"+Str+"];"; - else - Varname=Str; - Str=Varname+"=list();" - Flg3d=-1; - end; - end; - end; - if Flg3d==-1 then // 2014.12.14 - Tmp1=mtlb_findstr(Str,"[["); - if length(Tmp1)>0 then - Tmp2=mtlb_findstr(Str,"]"); - Tmp3=part(Str,Tmp1:Tmp2(1)); - Tmp4=mtlb_findstr(Tmp3,",") - if length(Tmp4)==2 then - Flg3d=1; - else - Flg3d=0; - end - end - end - Gstr=[Gstr;Str]; - Str=""; - Flg=0; - end; - else - Str=Str+Tmp; - Flg=1; - end; - Tmp=mgetstr(1,Fid); - end; - mclose(Fid); - Out=[]; // 15.10.24 from - Var=""; - Ctr=0; - for J=1:size(Gstr,1) - St=Gstr(J,1); - Out=[Out;St]; - Tmp=strsplit(St,"="); - Tmp1=Tmp(1,1); - Tmp2=Tmp(2,1); - if grep(Tmp2,"list()") then - if Ctr==1 then - Out=[Out;Var+"="+Var+"(1)"]; - end; - Var=Tmp1; - Ctr=0; - end; - if grep(Tmp1,"$") then - Ctr=Ctr+1; - end; - end - if Ctr==1 then - Out=[Out;Var+"="+Var+"(1)"]; - end; // 15.10.24 upto - Out; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin Binary files differdeleted file mode 100644 index 9f2e42ee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci deleted file mode 100644 index eaf9f6df..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci +++ /dev/null @@ -1,38 +0,0 @@ -// s:2014,09.08 -// e:2014.09.26 -// e:2014.10.07 debugged, code changed -// e:2014.10.08 CR | LF - -function Out=ReadfromCindy(Fname) - Fid=mopen(Fname,"rb"); - Gline=list(); - Gpt=list(); - Gstr=[]; - Str=""; - Flg=1; - Tmp=mgetstr(1,Fid); - while 1==1 - if Tmp=="" then - if Flg==1 then - Gstr=[Gstr;Str]; - Str=""; - Flg=1; - end; - break; - end - C=ascii(Tmp); - if C==13|C==10 then// CR,LF - if Flg==1 then - Gstr=[Gstr;Str]; - Str=""; - Flg=0; - end; - else - Str=Str+Tmp; - Flg=1; - end; - Tmp=mgetstr(1,Fid); - end; - mclose(Fid); - Out=Gstr; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin Binary files differdeleted file mode 100644 index 4a58106b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci deleted file mode 100644 index 7109f789..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci +++ /dev/null @@ -1,160 +0,0 @@ -// 08.05.22
-// 08.05.23
-// 08.05.26
-// 08.05.28
-// 10.04.25
-// 11.01.05
-// 13.10.06 format, debug
-// 14.01.20 debugged (Big data)
-
-function OutL=Readtextdata(varargin)
- OutL=[];
- Nargs=length(varargin);
- Fname=varargin(1);
- Suuji='0123456789.+-';
- Sep='';
- Hajime=[1,1];
- N=%inf;
- R=%inf;
- D=-%inf; // 11.01.04
- Fmt="%lf"; // 13.10.06
- Flg=0;
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- if Flg==0
- Hajime=Tmp;
- Flg=1
- else
- Owari=Tmp;
- end
- elseif mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- else
- if part(Tmp,1)=="%" // 13.10.06
- Fmt=Tmp
- else
- Sep=Tmp;
- if Tmp=='s' Sep=' '; end
- if Tmp==',' Sep=','; end
- if Tmp=='t' Sep=char(9); end
- end
- end
- end
- Owari=Hajime+[N-1,R-1];
- Fid=mopen(Fname,'rb');
- SL=[];
- S='';
- Lsp=0;
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1 // 2014.01.20
- if Tmp=='' break; end
- C=ascii(Tmp);
- if C>=32 | C==9
- if C==32
- if Flg==1
- Tmp='';
- end
- Flg=1
- else
- Flg=0;
- end
- S=S+Tmp;
- Tmp=mgetstr(1,Fid);
- else
- SL=[SL;S];
- S='';
- Flg=1;
- Tmp=mgetstr(1,Fid);
- if Lsp==0
- if C==10 // LF
- Lsp=1;
- elseif C==13
- if ascii(Tmp)==10
- Lsp=3; // CR LF
- Tmp=mgetstr(1,Fid);
- else
- Lsp=2; // CR
- end
- else
- break;
- end
- else
- if C==10 | C==13
- if Lsp==3
- Tmp=mgetstr(1,Fid);
- end
- else
- break
- end
- end
- end
- end
- mclose(Fid);
- if length(S)>0 then // 2013.10.06
- SL=[SL;S]
- end
- for I=1:size(SL,1)
- S=SL(I,1);
- if S=='' continue; end
- if mtlb_findstr(Suuji,Strop(1,S))~=[]
- break
- end
- end
- Hajime(1,1)=max(Hajime(1,1),I);
- S=SL(Hajime(1),1);
- if Sep==''
- if length(mtlb_findstr(S,char(9)))~=0
- Sep=char(9);
- elseif length(mtlb_findstr(S,','))~=0
- Sep=',';
- else
- Sep=' ';
- end
- end
- Tmp=mtlb_findstr(S,Sep);
- J=length(Tmp);
- if Tmp(J)~=length(S)
- J=J+1;
- end
- Owari(1,1)=min(size(SL,1),Owari(1));
- Owari(1,2)=min(J,Owari(2));
- S=SL(Owari(1),1);
- while S==''
- Owari(1,1)=Owari(1,1)-1;
- S=SL(Owari(1),1);
- end
- OutL=[];
- for J=Hajime(1):Owari(1)
- S=SL(J,1);
- if S==''
- Tmp=%inf*ones(1,Owari(2)-Hajime(2)+1);
- OutL=[OutL;Tmp];
- continue
- end
- Tmp=Strop(1,S);
- if mtlb_findstr(Suuji+Sep,Tmp)==[]
- continue
- end
- SpL=[0,mtlb_findstr(S,Sep),length(S)+1];
- Data=[];
- for K=Hajime(2):Owari(2)
- Tmp=Strop(SpL(K)+1:SpL(K+1)-1,S);
- Tmp1=msscanf(Tmp,Fmt); // 13.10.06
- Data=[Data,Tmp1];
- end
- OutL=[OutL;Data];
- end;
- if D~=-%inf // 11.01.04
- Data=[];
- for I=1:size(OutL,1)
- Tmp=OutL(I,:);
- if Tmp(1)<=D // 11.01.04
- Tmp=[%inf,%inf];
- end;
- Data=[Data;Tmp];
- end;
- OutL=Data;
- end; //
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin Binary files differdeleted file mode 100644 index d9cd1315..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci deleted file mode 100644 index 837a5727..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci +++ /dev/null @@ -1,51 +0,0 @@ -// 08.05.25 Koshikawa -// 08.09.20 -// 15.04.12 - -function OutL=Reflectdata(varargin) - Nargs=length(varargin) - ML=varargin(1); - ML=Flattenlist(ML); - if Nargs==1 - PtA=[0,0];PtB=PtA; - else - Pts=varargin(2); - if length(Pts)==2 - PtA=Pts; PtB=PtA; - else - PtA=Pts(1,1:2); PtB=Pts(1,3:4); - end - end - OutL=[]; - for N=1:length(ML) - GL=Op(N,ML); - Out=[]; - for I=1:size(GL,1) - Tmp=GL(I,:); - X1=Tmp(1); - Y1=Tmp(2); - if Tmp==[%inf,%inf] - X2=X1; - Y2=Y1; - else - if PtA==PtB - X2=2*PtA(1)-X1; - Y2=2*PtA(2)-Y1; - else - U=PtB(1)-PtA(1); - V=PtB(2)-PtA(2); - A=PtA(1); - B=PtA(2); - X2=(U^2-V^2)/(U^2+V^2)*X1+2*U*V/(U^2+V^2)*Y1-2*V*(U*B-V*A)/(U^2+V^2); - Y2=2*U*V/(U^2+V^2)*X1-(U^2-V^2)/(U^2+V^2)*Y1+2*U*(U*B-V*A)/(U^2+V^2); - end - end - Out=[Out;X2,Y2]; - end; - OutL=Mixadd(OutL,Out); - end; - if length(OutL)==1 - OutL=Op(1,OutL); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin Binary files differdeleted file mode 100644 index 66f6a956..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci deleted file mode 100644 index facea4d5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 11.01.14 New - -function Out=Rmmember(L,Rm) - if type(L)==1 - Out=[]; - end; - if type(L)==15 - Out=list(); - end; - for J=1:length(L) - Tmp=L(J); - if ~Member(Tmp,Rm) - Out($+1)=Tmp; - end; - end; - if type(L)==1 & size(L,1)==1 - Out=Out'; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin Binary files differdeleted file mode 100644 index e8683dd9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci deleted file mode 100644 index 9082290d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci +++ /dev/null @@ -1,40 +0,0 @@ -// 08.08.15 -// 14.03.23 debugged "center" -// 15.04.12 - -function Out=Rotate3data(varargin) -// Eps=10^(-4); - Nargs=length(varargin); - Pd3=varargin(1); - Pd3=Flattenlist(Pd3); // 15.04.12 - W1=varargin(2); - W2=varargin(3); - C=[0,0,0]; - if Nargs>=4 - C=varargin(4); - end; -// if Mixtype(Pd3)==1 // 15.04.12 from -// Pd3=MixS(Pd3); -// elseif Mixtype(Pd3)==3 -// Tmp=[]; -// for I=1:Mixlength(Pd3) -// Tmp=Mixjoin(Tmp,Mixop(I,Pd3)); -// end; -// Pd3=Tmp; -// end; - Out=[]; - for I=1:length(Pd3) - PD=Op(I,Pd3); - Ans=[]; - for J=1:size(PD,1) - P=PD(J,:); - Tmp=Rotate3pt(P,W1,W2,C); // 14.03.23 - Ans=[Ans;Tmp]; - end; - Out=Mixadd(Out,Ans); - end; - if length(Out)==1 - Out=Op(1,Out); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin Binary files differdeleted file mode 100644 index bc806d95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci deleted file mode 100644 index 910aa734..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci +++ /dev/null @@ -1,75 +0,0 @@ -// 08.08.15 - -function Ans=Rotate3pt(varargin) - Eps=10^(-4); - Nargs=length(varargin); - P=varargin(1); - W1=varargin(2); - W2=varargin(3); - C=[0,0,0]; - if Nargs>=4 - C=varargin(4); - end; - if type(W2)==1 & length(W2)==1 - Ct=cos(W2); - St=sin(W2); - V3=1/norm(W1)*W1; - if V3(1)==0 - Tmp=[1,0,0]; - else - Tmp=[0,1,0]; - end; - W1=[Tmp(2)*V3(3)-Tmp(3)*V3(2),Tmp(3)*V3(1)-Tmp(1)*V3(3),Tmp(1)*V3(2)-Tmp(2)*V3(1)]; - V1=1/norm(W1)*W1; - V2=[V3(2)*V1(3)-V3(3)*V1(2),V3(3)*V1(1)-V3(1)*V1(3),V3(1)*V1(2)-V3(2)*V1(1)]; - else - Tmp=[W1(2)*W2(3)-W1(3)*W2(2),W1(3)*W2(1)-W1(1)*W2(3),W1(1)*W2(2)-W1(2)*W2(1)]; - if norm(Tmp)<Eps - Ans=P; - return; - end; - V1=1/norm(W1)*W1; - Ns=V1(1)*W2(1)+V1(2)*W2(2)+V1(3)*W2(3); - Tmp=W2-Ns*V1; - V2=1/norm(Tmp)*Tmp; - Tmp=[V1(2)*V2(3)-V1(3)*V2(2),V1(3)*V2(1)-V1(1)*V2(3),V1(1)*V2(2)-V1(2)*V2(1)]; - V3=1/norm(Tmp)*Tmp; - Ct=Ns/norm(W2); - St=sqrt(1-Ct^2); - end; - if norm(Tmp)<Eps - Ans=P; - return; - end; - V1x=V1(1); V1y=V1(2); V1z=V1(3); - V2x=V2(1); V2y=V2(2); V2z=V2(3); - V3x=V3(1); V3y=V3(2); V3z=V3(3); - if Mixtype(P)~=1 - PtL=P; - else - PtL=MixS(P); - end; - Ans=[]; - for N=1:Mixlength(PtL) - P=Mixop(N,PtL); - if P(1)==%inf - Ans=Mixadd(Ans,[%inf,%inf,%inf]); - continue; - end; - x=P(1)-C(1); y=P(2)-C(2); z=P(3)-C(3); - X=((V1x*Ct+V2x*St)*V1x+(-V1x*St+V2x*Ct)*V2x+V3x^2)*x; - X=X+((V1x*Ct+V2x*St)*V1y+(-V1x*St+V2x*Ct)*V2y+V3x*V3y)*y; - X=X+((V1x*Ct+V2x*St)*V1z+(-V1x*St+V2x*Ct)*V2z+V3x*V3z)*z; - Y=((V1y*Ct+V2y*St)*V1x+(-V1y*St+V2y*Ct)*V2x+V3x*V3y)*x; - Y=Y+((V1y*Ct+V2y*St)*V1y+(-V1y*St+V2y*Ct)*V2y+V3y^2)*y; - Y=Y+((V1y*Ct+V2y*St)*V1z+(-V1y*St+V2y*Ct)*V2z+V3y*V3z)*z; - Z=((V1z*Ct+V2z*St)*V1x+(-V1z*St+V2z*Ct)*V2x+V3x*V3z)*x; - Z=Z+((V1z*Ct+V2z*St)*V1y+(-V1z*St+V2z*Ct)*V2y+V3y*V3z)*y; - Z=Z+((V1z*Ct+V2z*St)*V1z+(-V1z*St+V2z*Ct)*V2z+V3z^2)*z; - Ans=Mixadd(Ans,C+[X,Y,Z]); - end; - if Mixlength(Ans)==1 - Ans=Mixop(1,Ans); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.bin Binary files differdeleted file mode 100644 index fc876c55..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci deleted file mode 100644 index 845cac17..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 08.05.23 Koshikawa -// 08.09.20 -// 15.04.12 - -function OutL=Rotatedata(varargin) - Nargs=length(varargin); - ML=varargin(1); - ML=Flattenlist(ML); - Theta=varargin(2); - if Nargs==2, - Pt=[0,0] - else - Pt=varargin(3); - end - Cx=Pt(1);Cy=Pt(2); - OutL=[]; - for N=1:length(ML) - GL=Op(N,ML); - Out=[]; - for I=1:size(GL,1) - Tmp=GL(I,:); - X1=Tmp(1); - Y1=Tmp(2); - if Tmp==[%inf,%inf] - X2=X1; - Y2=Y1; - else - X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); - Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); - end; - Out=[Out;X2,Y2]; - end; - OutL=Mixadd(OutL,Out); - end; - if length(OutL)==1 - OutL=Op(1,OutL); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.bin Binary files differdeleted file mode 100644 index f55e05bc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci deleted file mode 100644 index d14f3b3a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 10.11.04 - -function Out=Roundstr(X,Ni,Nf) - Na=Ni+1+Nf; - Fmt='%'+string(Na)+'.'+string(Nf)+'f'; - Out=sprintf(Fmt,X); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.bin Binary files differdeleted file mode 100644 index 025c430a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci deleted file mode 100644 index 7e563f4b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 08.05.25 Koshikawa -// 08.09.20 -// 15.04.12 - -function OutL=Scaledata(varargin) - Nargs=length(varargin); - ML=varargin(1); - ML=Flattenlist(ML); - A=varargin(2); - B=varargin(3); - if Nargs==3 - Pt=[0,0]; - else - Pt=varargin(4); - end - OutL=[]; - for N=1:length(ML) - GL=Op(N,ML); - Out=[]; - for I=1:size(GL,1) - Tmp=GL(I,:); - X1=Tmp(1); - Y1=Tmp(2); - if Tmp==[%inf,%inf] - X2=X1; - Y2=Y1; - else - X2=Pt(1)+A*(X1-Pt(1)); - Y2=Pt(2)+B*(Y1-Pt(2)); - end - Out=[Out;X2,Y2]; - end; - OutL=Mixadd(OutL,Out); - end; - if length(OutL)==1 - OutL=Op(1,OutL); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.bin Binary files differdeleted file mode 100644 index 60750005..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci deleted file mode 100644 index e918e475..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 09.09.10 -// 09.10.12 remove:Uveq, add:Glist - -function Out=Sectionview(PtA,Vec,Fd,Glist,Np,Eps) - Uv=1/norm(Vec)*Vec; - Nv=[Uv(2),-Uv(1),0]; - G1=Sfcutdata(Fd,Mix(Nv,PtA),Np); - G2=Spaceline([PtA,PtA+10*Uv]); - Tmp=Mixjoin(G1,G2,Glist); - Tmp1=Viewfrom(Nv,Tmp); - Out=Tmp; -endfunction; - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.bin Binary files differdeleted file mode 100644 index e70977ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci deleted file mode 100644 index 2a4a3c95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 08.07.11 -// 08.08.12 -// 09.02.27 - -function Setangle(varargin) - global PHI THETA; - Nargs=length(varargin); - if Nargs<2 - Mixdisp(Mix('theta=',THETA*180/%pi)); - Mixdisp(Mix('phi=',PHI*180/%pi)); - return; - else - PHI=varargin(2)*%pi/180; - THETA=varargin(1)*%pi/180; - end -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.bin Binary files differdeleted file mode 100644 index 63725d0f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci deleted file mode 100644 index 8f9d6053..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 08.05.31 -// 09.02.27 - -function Setarrow(varargin) - global YaSize YaAngle YaPosition YaThick YaStyle; - Nargs=length(varargin); - if Nargs==0 - Mixdisp(Mix('Size=',YaSize)); - Mixdisp(Mix('Angle=',YaAngle)); - Mixdisp(Mix('Position=',YaThick)); - Mixdisp(Mix('Style=',YaStyle)); - return; - end; - Flg=0; - for I=1:Nargs - Tmp=varargin(I); - if type(Tmp)==1 - Flg=Flg+1; - if Flg==1 YaSize=Tmp; end - if Flg==2 - if Tmp<5 - YaAngle=18*Tmp; - else - YaAngle=Tmp; - end - end - if Flg==3 YaPosition=Tmp; end - if Flg==4 YaThick=Tmp; end - end - if type(Tmp)==10 - YaStyle=Tmp - end - end -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.bin Binary files differdeleted file mode 100644 index 6a258c98..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci deleted file mode 100644 index 5fab30e2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci +++ /dev/null @@ -1,102 +0,0 @@ -// 08.08.08 -// 09,02.27 - -function Out=Setax(varargin) - global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE; - Nargs=length(varargin); - if Nargs==0 - if ZIKU=='line' - Tmp=',' - else - Tmp='(Arrowsize='+string(ARROWSIZE)+'),' - end; - Str=... - ZIKU+Tmp+... - XNAME+','+XPOS+','+YNAME+','+... - YPOS+','+ONAME+','+OPOS; - Out=Str; - disp(Str); - return; - end; - ArgL=[]; - Is=1; - Tmp=varargin(1); - if type(Tmp)==1 & length(Tmp)==1 - Is=varargin(1); - ArgL=[]; - for I=1:Is-1 - ArgL=[ArgL,'']; - end - for I=2:Nargs - ArgL=[ArgL,varargin(I)]; - end - else - if Nargs==1 - ArgL=[varargin(1)]; - else - Tmp=varargin(2); - if type(Tmp)==1 & length(Tmp)==1 - ARROWSIZE=Tmp; - ArgL=[varargin(1)]; - for I=3:Nargs - ArgL=[ArgL,varargin(I)]; - end; - else - ArgL=[]; - for I=1:Nargs - ArgL=[ArgL,varargin(I)]; - end; - end - end - end - for I=size(ArgL,2)+1:7 - ArgL=[ArgL,'']; - end - Zk=ArgL(1); - if Zk~='' - ZL=msscanf(Zk,'%c%f'); - Zk=ZL(1); - if length(ZL)>1 // modified at 080807 - ARROWSIZE=ZL(2); - end - end - Xn=ArgL(2); Xp=ArgL(3); - Yn=ArgL(4); Yp=ArgL(5); - Genn=ArgL(6); Genp=ArgL(7); - if Zk~='' - C=Zk; - if C=='a' - ZIKU='arrow'; - else - ZIKU='line'; - end - end - if Xn~='' - XNAME='$'+Xn+'$' - end - if Xp~='' - XPOS=Xp - end - if Yn~='' - YNAME='$'+Yn+'$' - end - if Yp~='' - YPOS=Yp - end - if Genn~='' - ONAME=Genn - end - if Genp~='' - OPOS=Genp - end - if ZIKU=='line' - Tmp=',' - else - Tmp='(Arrowsize='+string(ARROWSIZE)+'),' - end; - Str=... - ZIKU+Tmp+... - XNAME+','+XPOS+','+YNAME+','+... - YPOS+','+ONAME+','+OPOS; - Out=Str; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.bin Binary files differdeleted file mode 100644 index cb6ec45d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci deleted file mode 100644 index 51b8e0c3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 11.05.28 -// 11.08.24 -// 15.05.03 - -function Setcolor(varargin) - global Wfile FID; - Nargs=length(varargin); - Color='black'; - Kosa=1; - Color=varargin(1); - if length(varargin)>1 - Kosa=varargin(2); - end; - Iro=Ratiocmyk(Color); - if type(Iro)==10 - Str='\color{'+Iro+"}%"; - else - if size(Iro,2)>3 - Str='\color[cmyk]{'; - else - Str='\color[rgb]{'; - end; - for J=1:size(Iro,2) - Str=Str+string(Kosa*Iro(J)); - if J<size(Iro,2) - Str=Str+','; - end; - end; - Str=Str+'}%'; - end; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.bin Binary files differdeleted file mode 100644 index 7bcd0094..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci deleted file mode 100644 index 4b8b932b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 09.09.10 - -function Setcounter(varargin) - global GCOUNTER; - Nargs=length(varargin); - if Nargs==0 - N=1; - else - N=varargin(1); - end; - GCOUNTER=N; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.bin Binary files differdeleted file mode 100644 index b8a538c3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci deleted file mode 100644 index ae713f4e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci +++ /dev/null @@ -1,43 +0,0 @@ -// 09.11.26 -// 09.12.06 - -function Setmark(); - Xminnow=Xmin(); Xmaxnow=Xmax(); - Yminnow=Ymin(); Ymaxnow=Ymax(); - Setwindow([-1.5,1.5],[-2.3,2.3]); - F1=Framedata(); - F2=Paramplot('[1.5*cos(t),2.3*sin(t)]','t=[0,2*%pi]','N=25'); - Texcom('\def\recmark{'); - Texcom('\begin{minipage}[c]{3mm}'); - Beginpicture('1mm'); - Shade(F1); - Drwline(F1); - Endpicture(0); - Texcom(''); - Texcom('\end{minipage}'); - Texcom('}'); - - Texcom('\def\cirmark{'); - Texcom('\begin{minipage}[c]{3mm}'); - Beginpicture('1mm'); - Shade(F2); - Drwline(F2); - Endpicture(0); - Texcom(''); - Texcom('\end{minipage}'); - Texcom('}'); - - Texcom('\def\dashmark#1{'); - Texcom('\begin{minipage}[c]{3mm}'); - Beginpicture('1mm'); - Setpen(0.5); - Dashline(F2,0.5,0.5); - Fontsize('ss'); - Letter([0,0],'c','#1'); - Endpicture(0); - Texcom(''); - Texcom('\end{minipage}'); - Texcom('}'); - Setwindow([Xminnow,Xmaxnow],[Yminnow,Ymaxnow]); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.bin Binary files differdeleted file mode 100644 index 6822b346..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci deleted file mode 100644 index a17c9e95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci +++ /dev/null @@ -1,17 +0,0 @@ -// -// 09.02.27 -// 14.03.05 MARKLEN - -function Setmarklen(varargin) - global MARKLEN MARKLENInit MARKLENNow; - Nargs=length(varargin); - if Nargs==0 - Tmp=MARKLEN/MARKLENInit; - Tmp=round(Tmp*100)/100; - disp(Tmp); - return; - end; - Size=varargin(1); - MARKLEN=MARKLENInit*Size; - MARKLENNow=MARKLEN; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.bin Binary files differdeleted file mode 100644 index a8591c05..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci deleted file mode 100644 index 2ee06cbb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci +++ /dev/null @@ -1,8 +0,0 @@ -// s : 2014.06.22 - -function Setobjdecimals(n) - global OBJFMT; - s1=string(n); - s2=string(n+3); - OBJFMT="%"+s2+"."+s1+"f"; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.bin Binary files differdeleted file mode 100644 index 71df5ec2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci deleted file mode 100644 index 22f13c4d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci +++ /dev/null @@ -1,6 +0,0 @@ -// s : 2014.06.22 - -function Setobjscale(scale) - global OBJSCALE; - OBJSCALE=scale; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.bin Binary files differdeleted file mode 100644 index 91bbc8da..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci deleted file mode 100644 index 62a1f624..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 09.02.27 - -function Setorigin(varargin) - global GENTEN; - Nargs=length(varargin); - if Nargs==0 - disp(GENTEN); - return; - end; - Pt=varargin(1); - GENTEN=Pt; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.bin Binary files differdeleted file mode 100644 index d5934c6e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci deleted file mode 100644 index 500ef7f9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci +++ /dev/null @@ -1,11 +0,0 @@ -function Setpen(Width) - global Wfile FID PenThick PenThickInit; - PenThick=round(PenThickInit*Width); - Str='\special{pn '+string(PenThick)+'}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.bin Binary files differdeleted file mode 100644 index c628c2f0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci deleted file mode 100644 index 455551bb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci +++ /dev/null @@ -1,16 +0,0 @@ -// 08.08.12 -// 08.08.15 - -function Setpers(varargin) - global FocusPoint EyePoint; - Nargs=length(varargin); - if Nargs==0 - Mixdisp(Mix('FocusPoints=',FocusPoint)); - Mixdisp(Mix('EyePoint=',EyePoint)); - return; - else - FocusPoint=varargin(1); - EyePoint=varargin(2); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.bin Binary files differdeleted file mode 100644 index b36a2407..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci deleted file mode 100644 index a3b86b01..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci +++ /dev/null @@ -1,16 +0,0 @@ -// -// 09.02.27 - -function Setpt(varargin) - global TenSize TenSizeInit; - Nargs=length(varargin); - if Nargs==0 - Tmp=TenSize/TenSizeInit; - Tmp=round(Tmp*100)/100; - disp(Tmp); - return; - end; - Size=varargin(1); - TenSize=TenSizeInit*Size; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.bin Binary files differdeleted file mode 100644 index d3561ee9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci deleted file mode 100644 index 1d4868c9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci +++ /dev/null @@ -1,28 +0,0 @@ -function Out=Setscaling(varargin) - global LOGX LOGY SCALEX SCALEY; - Nargs= length(varargin) - if Nargs==0 - Out=[SCALEY,LOGX,LOGY]; - return; - end; - for I=1:Nargs - Tmp=varargin(I); - if type(Tmp)==1 - SCALEY=Tmp; - end; - if type(Tmp)==10 - if Tmp=="l" - LOGX=0; - LOGY=1; - elseif Tmp=="ll" - LOGX=1 - LOGY=1 - else - LOGX=0 - LOGY=0 - end; - end; - end; - Out=[SCALEY,LOGX,LOGY]; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.bin Binary files differdeleted file mode 100644 index cba724b8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci deleted file mode 100644 index cb6c79ae..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.08.12 -// 08.09.21 -// 09.03.09 - -function SetstereoL(R,T,P,H) - X=R*sin(T*%pi/180)*cos(P*%pi/180); - Y=R*sin(T*%pi/180)*sin(P*%pi/180); - Z=R*cos(T*%pi/180); - Eye=[X+H/2*Y/(X^2+Y^2),Y-H/2*X/(X^2+Y^2),Z]; - Setpers([0,0,0],Eye); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.bin Binary files differdeleted file mode 100644 index 7f82c6ee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci deleted file mode 100644 index ff9de892..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci +++ /dev/null @@ -1,10 +0,0 @@ -// 08.08.12 - -function SetstereoR(R,T,P,H) - X=R*sin(T*%pi/180)*cos(P*%pi/180); - Y=R*sin(T*%pi/180)*sin(P*%pi/180); - Z=R*cos(T*%pi/180); - Eye=[X-H/2*Y/(X^2+Y^2),Y+H/2*X/(X^2+Y^2),Z]; - Setpers([0,0,0],Eye); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.bin Binary files differdeleted file mode 100644 index 23ded039..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci deleted file mode 100644 index 84ea4d60..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci +++ /dev/null @@ -1,78 +0,0 @@ -// 08.12.06 -// 08.12.18 -// 09.02.20 -// 09.02.27 -// 14.03.05 MARKLEN -// 17.03.19 VL=[] => VL=""; - -function Out=Setunitlen(varargin) - global FID XMIN XMAX YMIN YMAX ULEN - global MilliIn MARKLEN MARKLENNow PenThickInit; - if length(varargin)==0 - Out=ULEN; - disp(ULEN); - return; - end; - Ul=varargin(1); - Dx=XMAX-XMIN; - Dy=YMAX-YMIN; - Sym='.0123456789 +-*/'; - Tmp=ascii(Sym); - SL=Sym; - OL='+-*/'; - if Ul~='' - ULEN=Ul; - end; - Out=ULEN; - Is=1; - VL=""; // 17.03.19 - Ucode=ascii(ULEN); - for I=1:length(Ucode) - C=char(Ucode(I)); - if mtlb_findstr(SL,C)~=[] - if mtlb_findstr(OL,C) - Str=char(Ucode(Is:(I-1))); - VL=VL+Str+C; - Is=I+1; - end - else - Unit=char(Ucode(I:(I+1))); - Str=char(Ucode(Is:(I-1))); - VL=VL+Str; - break; - end; - end; - Valu=evstr(VL); - Str=string(Valu); - ULEN=Str+Unit; - Out=ULEN; - if Unit=='cm' - MilliIn=1000/2.54*Valu; - end - if Unit=='mm' - MilliIn=1000/2.54*Valu/10; - end - if Unit=='in' - MilliIn=1000*Valu; - end - if Unit=='pt' - MilliIn=1000/72.27*Valu; - end - if Unit=='pc' - MilliIn=1000/6.022*Valu; - end - if Unit=='bp' - MilliIn=1000/72*Valu; - end - if Unit=='dd' - MilliIn=1000/1238/1157/72.27*Valu; - end - if Unit=='cc' - MilliIn=1000/1238/1157/72.27*12*Valu;p - end - if Unit=='sp' - MilliIn=1000/72.27/65536*Valu/10; - end - MARKLEN=MARKLENNow*1000/2.54/MilliIn; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.bin Binary files differdeleted file mode 100644 index 992a793c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci deleted file mode 100644 index 92883d5a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci +++ /dev/null @@ -1,182 +0,0 @@ -// -// 08.11.12 V3.0.2b -// 08.11.26 V3.0.2c -// 08.12.08 V3.0.2d -// 08.12.11 v3.0.2e -// 08.12.17 v3.0.3a -// 08.12.21 v3.0.3b -// 08.12.30 v3.0.3c -// 09.01.15 v3.0.3d -// 09.02.20 v3.0.3e -// 09.02.27 v3.0.4a -// 09.02.27 v3.0.4b -// 09.03.06 v3.0.4c -// 09.03.09 v3.0.4d -// 09.03.10 v3.0.4e -// 09.03.12 v3.0.5a -// 09.05.12 v3.0.5b -// 09.05.18 v3.0.5c -// 09.05.27 v3.0.6a -// 09.06.01 v3.0.6b -// 09.06.05 v3.0.6c -// 09.06.13 v3.0.6d -// 09.06.24 v3.0.6e -// 09.08.12 v3.0.7a -// 09.08.13 v3.0.7b -// 09.08.23 v3.0.8a -// 09.09.10 v3.0.9a -// 09.09.18 v3.1.0a -// 09.09.21 v3.1.0b -// 09.09.25 v3.1.1a -// 09.09.25 v3.1.1b -// 09.10.01 v3.1.1c -// 09.10.03 v3.1.2a -// 09.10.04 v3.1.3a -// 09.10.05 v3.1.3b -// 09.10.08 v3.1.3c -// 09.10.09 v3.1.4a -// 09.10.11 v3.1.5a - -// Structure changed -// 09.10.11 v3.2.0beta -// 09.10.31 v3.2.0beta1031 - -// 09.11.01 v3.2.0a -// 09.11.04 v3.2.1a -// 09.11.12 v3.2.1b -// 09.11.14 v3.2.1c -// 09.11.14 v3.2.1d -// 09.11.21 v3.2.1e -// 09.11.26 v3.2.2a -// 09.12.05 v3.2.2b -// 09.12.06 v3.2.3a -// 09.12.17 v3.2.3b -// 09.12.24 v3.2.3c -// 09.12.25 v3.3.1a -// 09.12.26 v3.3.1b -// 09.12.28 v3.3.1c -// 09.12.31 v3.3.1d ( for v5.2.0) -// 10.01.01 v3.4.0alpha -// 10.01.05 v3.4.0beta -// 10.01.10 v3.4.1a -// 10.01.12 v3.4.1b -// 10.01.16 v3.4.1c -// 10.01.21 v3.4.2a -// 10.02.01 v3.4.2b -// 10.02.07 v3.4.2c -// 10.02.12 v3.4.2d -// 10.02.14 v3.4.2e -// 10.02.16 v3.4.3a -// 10.02.20 v3.4.3b Windisp -// 10.02.24 v3.4.3c Execmd -// 10.03.07 v3.4.3d -// 10.03.28 v3.4.4a -// 10.03.28 v3.4.4b -// 10.04.03 v3.4.5a -// 10.04.10 v3.4.5b -// 10.04.16 v3.4.6a -// 10.04.24 v3.4.6b -// 10.04.24 v3.4.6b1 -// 10.04.27 v3.4.7a -// 10.05.03 v3.4.7b -// 10.05.09 v3.4.7c Makeskeletondata, Makeskeletonpersdata -// 10.05.12 v3.4.7d Texfor -// 10.05.15 v3.4.8a Texctr -// 10.08.15 v3.5.0a Phcutoffdata -// 10.09.02 Dropnumlistcrv -// 10.10.20 Texfor -// 10.11.04 Hatchdata, Roundstr -// 10.11.13 v3.5.0b Flattenlist added. Dashline, Invdashline changed -// 10.12.02 v3.5.0c Lineplot changed -// Makecurves debugged -// Enclosing changed (Output ) -// 11.01.07 v3.5.1a Readtextdata is changed -// Dividegraphiics, Splinedata are changed -// Facesdata is debugged (HiddenL) -// Rmmember added -// 11.04.13 Nohiddenpers2, Htickmark, Vtickmark are debugged -// 11.05.29 v4.0.0a ketpict2e released, too -// Setcolor, Ratiocmyk -// 11.11.02 v4.0.0b Joingraphics changed -// 11.12.12 v4.0.0c Skeletonparadata... changed (for various list ) -// 11.12.18 Framedata (compliant for list ) -// 12.01.07 v4.0.1a Arrowline, Arrowhead ( kirikomi ) -// 12.04.16 v4.0.1b Arrowhead debugged -// 12.08.26 v4.0.1c Arrowline debugged -// 13.05.03 v4.2a Tabledata, Pointdata changed -// Dividetable, Partframe added -// 13.05.17 v4.2_1a Arrowhead debugged -// Openfile, Closefile, Ketinit() changed -// 13.08.13 v4.2_2 Cancoordpara added -// 13.10.06 v4.2_2a Readtextdata debugged and changed (Format) -// 13.11.02 v4.3_0 __ added to local variables -// Openfile, Closefile changed -// 13.11.02 v4.3_0a Closefile debugged -// 13.11.13 v4.3_0b Arrowhead, Arrowheaddata debugged -// 13.12.03 v4.3_1 Bowname changed, Meetpoint debugged -// 14.01.10 v4.3_1a Readtextdata debugged (Big data) -// 14.03.05 v4.3_1b MARKLEN separated from MEMORI -// 14.03.23 Rotate3data debugged -// 14.03.30 v43_1c Facesdata debugged -// 14.06.09 v43_2a Phcutdata debugged (cause unknown ) -// 14.06.22 v5_0_1a Obj macros added -// 14.06.28 v5_0_1b debug cuspsplit (para, pers) -// 14.07.05 v5_0_1c debug (warning ) Makeskeletondata, Makeskeletonpersdata -// debug Makexybdy (by Kitahara) -// 14.07.18 v5_0_1d Objsurf, Objthicksurf changed ( input argument ) -// 14.08.26 V5_1_0a Symbdata, Symb3data, Objsymb added -// Objcurve debugged -// 14.09.07 v5_1_0b Objjoin added -// 14.09,08 v5_1_1a ReadfromCindy added -// 14.09.16 v5_1_1b WritetoCindy added -// 14.09.26 v5_1_1c Derivative changed ( to numderivative) -// 14.09.30 v5_1_1d Assignrep changed -// 14.10.08 v5_1_1e ReadfromCindy debugged -// 14.10.08 v5_1_1f ReadfromCindy supported CF|LF -// 14.10.10 v5_1_2a ReadOutdata, WritOutData added -// 14.10.24 v5_1_2b Derivative changed ( derivative or numderivative used a.t scilab version) -// Plotdata,Paramplot,Circledata changed ( N,D,E,R => N__, ... ) -// 14.12.11 v5_1_3a Assign changed (replaced only variable name ) -// Plotdata changed (and debugged ), Paramplot changed -// 12.14 WriteOutData,ReadOutData changed ( for 3d ) -// 14.12.28 v5_1_3b Assign debugged -// 15.01.01 v5_1_4a Bezierpt,Bezier added -// 15.01.03 v5_1_4b ReadOutData changed ("start","end") -// 15.02.08 v5_1_5a Bezier pt changed (available for 3d) -// 15.02.18 v5_1_5b Assign debugged -// 15.02.19 v5_1_5c Assign again debugged -// 15.04.10 v5_1_5d EnclosingS debugged -// Translatedata, Rotatedata, Reflectdata, Scaledate changed (Flattenlist) -// 15.04.18 v5_1_5e Assign debugged -// 15.05.03 v5_1_6a Setcolor,Ratiocmyk changed ( for cmyk, rgb, mycolor ) -// 15.05.04 Definecolor added -// 15.06.11 v5_1_6b Arrowline, Arrowhead debugged -// 15.06.14 v5_1_6c Skeletonpara3data debugged -// Arrowhead changed (0.2 -> 0.1 ) -// 15.10.19 v5_1_6d Skeletonpara3data debugged -// 15.10.23 v5_1_6e ReadOutData changed ( for the lenth of PD is 1 ) -// 15.10.23 Meetwindow changed ( horner non used ) -// 15.10.24 Arrowline debugged -// 15.10.23 v5_1_6f WriteOutData changed ( endmark //// ) -// 15.11.05 v5_1_6g WriteOutData changed -// 15.11.16 v5_2_1 Ovaldata changed ( Rc ) -// Plotdata, Paramplot, Deqplot -// number of points changed to number of intervals -// 15.12.08 v5_2_2 Deqplot debugged ( option __) -// 16.08.20 v5_2_3 Spacecurve debugged ( N ) -// 16.10.09 v5_2_3a Objcurve changed ( N of Sapcecurve) -// 16.10.09 v5_2_3b Kyoukai changed ( Eps =>10^(-4)) -// 16.10.09 v5_2_3c Enclosing, Kyoukai changed ( to make it a closed curve)) -// 16.12.13 v5_2_3d Plotdata,Paramplot,Spacecurve changed ( for only one point) -// 16.12.24 v5_2_3e Makeskeletondata debugged ( for nul interval) -// 16.12.29 v5_2_3f Anglemark, MeetWindow debugged ( for nul interval) -// 16.12.29 v5_2_3g Shade changed (for colorname or colorcode) -// 17.03.19 v5_2_3h Openpicture,Setunitlen debugged ( for 6 ) -// 17.05.21 v5_2_3i Evlptablepara changed (division number) - - -function Setversion() - global THISVERSION; - THISVERSION='v5_2_3i'; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.bin Binary files differdeleted file mode 100644 index 5ab2b0d2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci deleted file mode 100644 index fb72097b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci +++ /dev/null @@ -1,44 +0,0 @@ -// -// 09.02.27 -// 10.04.25 - -function Out=Setwindow(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - if Nargs==0 - Out=[XMIN,XMAX,YMIN,YMAX]; - disp(Out); - return; - end; - if Nargs==1 - Dt=varargin(1); - if type(Dt)==1 - Dt=list(Dt); - end; - Xm=%inf; XM=-%inf; - Ym=%inf; YM=-%inf; - for I=1:length(Dt) - GL=Dividegraphics(Dt(I)); - for J=1:length(GL) - G=GL(J); - Tmp=min(G(:,1)); Xm=min(Xm,Tmp); - Tmp=max(G(:,1)); XM=max(XM,Tmp); - Tmp=min(G(:,2)); Ym=min(Ym,Tmp); - Tmp=max(G(:,2)); YM=max(YM,Tmp); - end; - end; - XMIN=Xm; XMAX=XM; - YMIN=Ym; YMAX=YM; - end; - if Nargs==2 - RgX=varargin(1); - RgY=varargin(2); - XMIN=RgX(1); XMAX=RgX(2); - YMIN=RgY(1); YMAX=RgY(2); - end - if Nargs==4 - XMIN=varargin(1); XMAX=varargin(2); - YMIN=varargin(3); YMAX=varargin(4); - end; - Out=[XMIN,XMAX,YMIN,YMAX]; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin Binary files differdeleted file mode 100644 index 623920c5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci deleted file mode 100644 index 9c20a13b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci +++ /dev/null @@ -1,62 +0,0 @@ -// 08.08.16 -// 08.10.10 -// 13.10.21 ( __ added to varibles ) - -function PL__=Sf3data(varargin) - Nargs__=length(varargin); - FdL__=Fullformfunc(varargin(1)); - F__=Mixop(1,FdL__); - Xf__=Mixop(2,FdL__); - Yf__=Mixop(3,FdL__); - Zf__=Mixop(4,FdL__); - Urg__=Mixop(5,FdL__); - Vrg__=Mixop(6,FdL__); - K__=mtlb_findstr(Urg__,'='); - U__=part(Urg__,1:K__-1); - Tmp__=part(Urg__,K__+1:length(Urg__)); - Tmp__=evstr(Tmp__); - Umin__=Tmp__(1); Umax__=Tmp__(2); - K__=mtlb_findstr(Vrg__,'='); - V__=part(Vrg__,1:K__-1); - Tmp__=part(Vrg__,K__+1:length(Vrg__)); - Tmp__=evstr(Tmp__); - Vmin__=Tmp__(1); Vmax__=Tmp__(2); - Ndu__=25 ; Ndv__=25; Np__=[50,50]; - if Nargs__>=3 - Ndu__=varargin(2); - Ndv__=varargin(3); - end; - if Nargs__>=4 - Np__=varargin(4); - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Du__=(Umax__-Umin__)/Ndu__; - Dv__=(Vmax__-Vmin__)/Ndv__; - PL__ = []; - for I__=0:Ndu__ - U0__ ='('+string(Umin__+I__*Du__)+')'; - Tmp__=strsubst(Xf__,U__,U0__); - Tmp1__=strsubst(Tmp__,V__,'t'); - Tmp__=strsubst(Yf__,U__,U0__); - Tmp2__=strsubst(Tmp__,V__,'t'); - Tmp__=strsubst(Zf__,U__,U0__); - Tmp3__=strsubst(Tmp__,V__,'t'); - Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']'; - PD__=Spacecurve(Tmp__,'t=[Vmin__,Vmax__]','N='+string(Np__(2))); - PL__=Mixadd(PL__,PD__); - end; - for J__=0:Ndv__ - V0__='('+string(Vmin__+J__*Dv__)+')'; - Tmp__=strsubst(Xf__,V__,V0__); - Tmp1__=strsubst(Tmp__,U__,'t'); - Tmp__=strsubst(Yf__,V__,V0__); - Tmp2__=strsubst(Tmp__,U__,'t'); - Tmp__=strsubst(Zf__,V__,V0__); - Tmp3__=strsubst(Tmp__,U__,'t'); - Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']'; - PD__=Spacecurve(Tmp__,'t=[Umin__,Umax__]','N='+string(Np__(1))); - PL__=Mixadd(PL__,PD__); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin Binary files differdeleted file mode 100644 index 183f7fda..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci deleted file mode 100644 index 7a759f69..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 08.09.13 -// 10.02.16 Eps => [Eps, Epsmag] - -function Out5=Sfbdparadata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=3 - Eps=varargin(3); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=4 - Eps2=varargin(4); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - IMPLICITDATA=Out3; - Mixdisp(Mix('ImplicitData obtained ',timer())); - Out4=Cuspsplitpara(Out3,Fd,Eps(1)); // - CUSPDATA=Out4; - CUSPPT=CUSPSPLITPT; - Mixdisp(Mix('CuspData obtained ',timer())); - Out5=Borderparadata(Out4,Fd,Np,Eps,Eps2); - Mixdisp(Mix('BorderData obtained ',timer())); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin Binary files differdeleted file mode 100644 index 5f77179e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci deleted file mode 100644 index 9833a7f4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci +++ /dev/null @@ -1,42 +0,0 @@ - -// 08.09.21 -// 10.02.16 Eps => [Eps, Epsmag] -// 13.11.02 bug - -function Out5=Sfbdpersdata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=3 - Eps=varargin(3); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=4 - Eps2=varargin(4); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - IMPLICITDATA=Out3; - Mixdisp(Mix('ImplicitData obtained ',timer())); - Out4=Cuspsplitpers(Out3,Fd,Eps(1)); // 13.11.02 - CUSPDATA=Out4; - CUSPPT=CUSPSPLITPT; - Mixdisp(Mix('CuspData obtained ',timer())); - Out5=Borderpersdata(Out4,Fd,Np,Eps,Eps2); - Mixdisp(Mix('BorderData obtained ',timer())); -endfunction; - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin Binary files differdeleted file mode 100644 index 66da5cea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci deleted file mode 100644 index 082ccec3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci +++ /dev/null @@ -1,33 +0,0 @@ -// 08.09.10 -// 08.09.13 - -function Out5=Sfbdrawparadata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=0.05; - if Nargs>=3 - Eps=varargin(3); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - BdyL=Mixop(8,FdL); - if BdyL~=[] - Out3=Clipindomain(Out3,BdyL) - end; - IMPLICITDATA=Out3; - Out4=Cuspsplitpara(Out3,Fd,Eps); - CUSPDATA=Out4; - CCUSPPT=CUSPSPLITPT; - Out5=Borderrawdata(Out4,Fd,Np,Eps); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin Binary files differdeleted file mode 100644 index cd42fdf6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci deleted file mode 100644 index cde6870f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci +++ /dev/null @@ -1,31 +0,0 @@ -// 08.09.21 - -function Out5=Sfbdrawpersdata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=0.05; - if Nargs>=3 - Eps=varargin(3); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - BdyL=Mixop(8,FdL); - if BdyL~=[] - Out3=Clipindomain(Out3,BdyL) - end; - IMPLICITDATA=Out3; - Out4=Cuspsplitpers(Out3,Fd,Eps); - CUSPDATA=Out4; - CCUSPPT=CUSPSPLITPT; - Out5=Borderrawdata(Out4,Fd,Np,Eps); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin Binary files differdeleted file mode 100644 index c7f1f6f1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci deleted file mode 100644 index 5a15d61c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci +++ /dev/null @@ -1,105 +0,0 @@ -// 08.09.09 -// 08.09.19 -// 08.09.20 -// 08.09.24 -// 08.10.09 -// 08.10.10 -// 13.10.21 ( __ added to varibles ) - -function EkL__=Sfcutdata(varargin) - Nargs__=length(varargin); - Fd__=varargin(1); - CutD__=varargin(2); - Np__=[50,50]; - if Nargs__>=3 - Tmp__=varargin(3); - if type(Tmp__)==1 & length(Tmp__)==1 - Np__=[Tmp__,Tmp__]; - end; - end; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Mixop(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - Fd__L=Fullformfunc(Fd__); - Xf__=Mixop(2,Fd__L); - Yf__=Mixop(3,Fd__L); - Zf__=Mixop(4,Fd__L); - Tmp__=Mixop(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); Umax=Urg__(2); - Vmin__=Vrg__(1); Vmax=Vrg__(2); - if Mixtype(CutD__)~=1 - V1__=Mixop(1,CutD__); - Tmp__=Mixop(2,CutD__); - if length(Tmp__)>1 - D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - D__=Tmp__; - end; - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-'; - Eq__=Tmp__+string(D__); - elseif type(CutD__)==1 - V1__=CutD__(1:3); - D__=CutD__(4); - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+'; - Eq__=Tmp__+string(D__); - else - K__=mtlb_findstr(CutD__,'='); - if K__>0 - Tmp__1=part(CutD__,1:K__-1); - Tmp__2=part(CutD__,K__+1:length(CutD__)); - Eq__=Tmp__1+'-('+Tmp__2+')'; - else - Eq__=CutD__; - end; - end; - Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')'); - Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')'); - Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')'); - Tmp__1=Mixop(5,Fd__L); - Tmp__2=Mixop(6,Fd__L); - CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__); - EkL__=[]; - for I__=1:Mixlength(CutuvL__) - Out__1=Mixop(I__,CutuvL__); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixadd(EkL__,Tmp__); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin Binary files differdeleted file mode 100644 index b6341637..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci deleted file mode 100644 index 0e4c6a5b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.1 -// 10.02.17 - -function Out=Sfcutoffparadata(varargin) - Ms=list('hidden','para'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin Binary files differdeleted file mode 100644 index 636f24b3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci deleted file mode 100644 index c10cdb8d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.21 -// 10.02.17 - -function Out=Sfcutoffpersdata(varargin) - Ms=list('hidden','pers'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin Binary files differdeleted file mode 100644 index 2b4fd676..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci deleted file mode 100644 index 546f66d8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.19 -// 10.02.17 - -function Out=Sfcutoffrawparadata(varargin) - Ms=list('raw','para'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin Binary files differdeleted file mode 100644 index 08ac4249..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci deleted file mode 100644 index e5a387f5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.21 -// 10.02.17 - -function Out=Sfcutoffrawpersdata(varargin) - Ms=list('raw','pers'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin Binary files differdeleted file mode 100644 index f1b9d960..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci deleted file mode 100644 index 5aa4e5e5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 08.08.16 - -function Out=Sfparadata(varargin) - Nargs=length(varargin); - Fd=varargin(1); - Ndu=25 ; Ndv=25; Np=[50,50]; - if Nargs>=3 - Ndu=varargin(2); - Ndv=varargin(3); - end; - if Nargs>=4 - Np=varargin(4); - end; - Tmp=Sf3data(Fd,Ndu,Ndv,Np); - Out=Projpara(Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin Binary files differdeleted file mode 100644 index bea54bf3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci deleted file mode 100644 index ecc63e41..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 08.08.15 - -function Out=Sfpersdata(varargin) - Nargs=length(varargin); - Fd=varargin(1); - Ndu=25 ; Ndv=25; Np=[50,50]; - if Nargs>=3 - Ndu=varargin(2); - Ndv=varargin(3); - end; - if Nargs>=4 - Np=varargin(4); - end; - Tmp=Sf3data(Fd,Ndu,Ndv,Np); - Out=Projpers(Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin Binary files differdeleted file mode 100644 index 48ba5b55..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci deleted file mode 100644 index ec4fa716..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci +++ /dev/null @@ -1,93 +0,0 @@ -// -// 08.05.22 -// 09.12.25 -// 17.01.09 (available colorname or colorcode as 2nd arg) - -function Shade(varargin) - global Wfile FID MilliIn; - Nargs=length(varargin); - Iroflg=0; - Kosa=1; - if Nargs>1 - Iro=varargin(Nargs); - if type(Iro)==10 - Iroflg=1; - if length(strchr(Iro,"{"))>0 - Str="{\color"+Iro; - else - Str="{\color{"+Iro+"}"; - end; - else - if length(Iro)==1 - Kosa=Iro; - else - Iroflg=1; - if length(Iro)==4 - Str='{\color[cmyk]{'; - else - if length(Iro)==3 - Str='{\color[rgb]{'; - end; - end; - for J=1:length(Iro) - Str=Str+string(Iro(J)); - if J<length(Iro) - Str=Str+','; - end - end - Str=Str+'}'; - end; - end; - if Iroflg==1 - if Wfile=='default' - mprintf('%s\n',Str+'%'); - else - mfprintf(FID,'%s\n',Str+'%'); - end; - end; - end; - Tmp=varargin(1); - Data=Kyoukai(Tmp); - for I=1:length(Data) - PL=Op(I,Data); - Mojisu=0; - for J=1:size(PL,1) - P=Doscaling(PL(J,:)); - X=string(round(MilliIn*P(1))); - Y=string(-round(MilliIn*P(2))); - Str='\special{pa '+X+' '+Y+'}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - Mojisu=0; - end - end - Str1='\special{sh '+string(Kosa)+'}'; - Str2='\special{ip}%'; - if Wfile=='default' - mprintf('%s',Str1); - mprintf('%s\n',Str2); - else - mfprintf(FID,'%s',Str1); - mfprintf(FID,'%s\n',Str2); - end - end - if Iroflg==1 - Str='}%'; - Fmt='%s\n'; - if Wfile=='default' - mprintf(Fmt,Str); - else - mfprintf(FID,Fmt,Str); - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.bin Binary files differdeleted file mode 100644 index e93fdf6e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci deleted file mode 100644 index 4eec31cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci +++ /dev/null @@ -1,71 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 09.06.13 - -function Out=Skeleton2data(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - Tmp=varargin(1); - if Mixtype(Tmp)==1 - ObjL=MixS(Tmp); - elseif Mixtype(Tmp)==2 - ObjL=Tmp; - else - ObjL=[]; - for I=1:Mixlength(Tmp) - Tmp1=Mixop(I,Tmp); - if Mixtype(Tmp1)==1 - ObjL=Mixadd(ObjL,Tmp1); - else - ObjL=Mixjoin(ObjL,Tmp1); - end; - end; - end; - Tmp=varargin(2); - if Mixtype(Tmp)==1 - PltL=MixS(Tmp); - elseif Mixtype(Tmp)==2 - PltL=Tmp - else - PltL=[]; - for I=1:Mixlength(Tmp) - Tmp1=Mixop(I,Tmp); - if Mixtype(Tmp1)==1 - PltL=Mixadd(PltL,Tmp1); - else - PltL=Mixjoin(PltL,Tmp1); - end; - end; - end; - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.01; - if Nargs>3 - Eps2=varargin(4); - end; - Obj2L=[]; - for I=1:Mixlength(ObjL) - Curve=Mixop(I,ObjL); - Obj2=[]; - for J=1:size(Curve,1) - P=Curve(J,:); - Obj2=[Obj2;P,-1]; - end; - Obj2L=Mixadd(Obj2L,Obj2); - end; - Plt2L=[] - for I=1:Mixlength(PltL) - Curve=Mixop(I,PltL); - Plt2=[]; - for J=1:size(Curve,1) - P=Curve(J,:); - Plt2=[Plt2;P,0]; - end; - Plt2L=Mixadd(Plt2L,Plt2); - end; - Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin Binary files differdeleted file mode 100644 index 1d3bd14f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci deleted file mode 100644 index 5914d47a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci +++ /dev/null @@ -1,48 +0,0 @@ -// 09.09.25 -// 11.12.12 -// 15.06.14 -// 15.10.19 - -function Out=Skeletonpara3data(varargin) - global MilliIn; - Eps=10^(-4); // 15.06.14 - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Plt2L=list(); - for I=1:Mixlength(Plt3L) - Plt2L($+1)=ProjcoordCurve(Plt3L(I)); - end; - Out=list(); - for I=1:length(ObjL) - Obj3=ObjL(I); - Tmp=ProjcoordCurve(Obj3); - Data=Makeskeletondata(Mix(Tmp),Plt2L,R,Eps2); - for J=1:length(Data) - Gd=Data(J); - if size(Gd,1)==1 // 15.10.19 - continue; - end; - if norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))<Eps // 15.06.14 - continue - end; - PtD=[]; - for J=1:size(Gd,1) - Tmp=Gd(J,:); - Tmp1=Invparapt(Tmp,Obj3); - Tmp1=Mixop(1,Tmp1); - PtD=[PtD;Tmp1]; - end; - Out($+1)=PtD; - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.bin Binary files differdeleted file mode 100644 index f0879401..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci deleted file mode 100644 index 1270f789..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.07.13 -// 08.08.08 -// 08.10.16 -// 11.12.12 (Flattenlist) - -function Out=Skeletonparadata(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Obj2L=list(); - for I=1:length(ObjL) - Obj2L($+1)=ProjcoordCurve(ObjL(I)); - end; - Plt2L=list(); - for I=1:length(Plt3L) - Plt2L($+1)=ProjcoordCurve(Plt3L(I)); - end; - Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.bin Binary files differdeleted file mode 100644 index d382a6b0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci deleted file mode 100644 index 57dde938..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.09.25 -// 11.12.12 - -function Out=Skeletonpers3data(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Plt2L=[]; - for I=1:Mixlength(Plt3L) - Tmp=CameracoordCurve(Mixop(I,Plt3L)); - Plt2L=Mixadd(Plt2L,Tmp); - end; - Out=list(); - for I=1:length(ObjL) - Obj3=ObjL(I); - Tmp=CameracoordCurve(Obj3); - Data=Makeskeletonpersdata(Mix(Tmp),Plt2L,R,Eps2); - for J=1:length(Data) - Gd=Data(J); - PtD=[]; - for J=1:size(Gd,1) - Tmp=Gd(J,:); - Tmp1=Invperspt(Tmp,Obj3); - Tmp1=Mixop(1,Tmp1); - PtD=[PtD;Tmp1]; - end; - Out($+1)=PtD; - end; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin Binary files differdeleted file mode 100644 index 03417429..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci deleted file mode 100644 index c91e73cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 11.12.12 - -function Out=Skeletonpersdata(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Obj2L=list(); - for I=1:length(ObjL) - Obj2L($+1)=CameracoordCurve(ObjL(I)); - end; - Plt2L=list(); - for I=1:length(Plt3L) - Plt2L($+1)=CameracoordCurve(Plt3L(I)); - end; - Out=Makeskeletonpersdata(Obj2L,Plt2L,R,Eps2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin Binary files differdeleted file mode 100644 index bacaa702..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci deleted file mode 100644 index 077a88cb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci +++ /dev/null @@ -1,83 +0,0 @@ -// 08.07.11 -// 09.05.27 -// 09.06.02 -// 09.12.31 (gsort) -// 13.10.21 ( __ added to varibles ) -// 16.08.20 (N changed to devided number ) -// 16.12.13 ( in case of T1=T2) - -function P__=Spacecurve(varargin) - Eps__=10^(-5); - Nargs__=length(varargin); - Fnstr__=varargin(1); - Rgstr__=varargin(2); - Range__=[0,2*%pi]; - N=50; // Numpoints - E=[]; // Exclusions - D=%inf; // Discont (Changed) - for I__=3:Nargs__ - Tmp__=varargin(I__); - K__=mtlb_findstr(Tmp__,'='); - Tmp1__=strsplit(Tmp__,[K__-1,K__]); - Tmp2__=ascii(Tmp1__(1,1)); - Lhs__=char(Tmp2__(1)); - Str__=Lhs__+'='+Tmp1__(3,1); - execstr(Str__); - end; - K__=mtlb_findstr(Rgstr__,'='); - if K__~=[] - Tmp__=strsplit(Rgstr__,[K__-1,K__]); - Vname__=Tmp__(1,1); - Rng__=evstr(Tmp__(3,1)); - else - Vname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end - T1__=Rng__(1); T2__=Rng__(2); - Dt__=(T2__-T1__)/N; // 16.08.20 - Str__=mtlb_strrep(Fnstr__,Vname__,'t__'); - if abs(Dt__)<Eps__ then // 16.12.13 - t__=T1__; - P__=evstr(Str__); - return; - end; - P__=[]; - E=gsort(E); - E=E(length(E):-1:1); - E=[E,%inf]; - Tmp__=gsort(E); - E=Tmp__(length(Tmp__):-1:1); - Ke__=1; - for t__=T1__:Dt__:T2__ - Pa__=[]; - if t__-E(Ke__)<-Eps__ - Pa__=evstr(Str__); - end - if abs(t__-E(Ke__))<=Eps__ - if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf,%inf] - Pa__=[%inf,%inf,%inf]; - end - end - if t__-E(Ke__)>Eps__ - Pa__=evstr(Str__); - Ke__=Ke__+1; - end - if Pa__~=[] - if Pa__(1)==%inf - P__=[P__;Pa__] - elseif P__==[] - P__=[Pa__]; - else - Tmp__=P__(size(P__,1),:); - if Tmp__(1)==%inf - P__=[P__;Pa__]; - elseif norm(Tmp__-Pa__)<D - P__=[P__;Pa__]; - else - P__=[P__;%inf,%inf,%inf;Pa__]; - end - end - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.bin Binary files differdeleted file mode 100644 index b5252573..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci deleted file mode 100644 index 9fe33c06..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci +++ /dev/null @@ -1,27 +0,0 @@ -// 08.07.11 - -function Z=Spaceline(varargin) - Z=[]; - for I=1:length(varargin) - Data=varargin(I); - if Mixtype(Data)==1 - for J=1:3:size(Data,2) - Tmp=Data(J:J+2); - Z=[Z;Tmp]; - end; - continue; - end; - if Mixtype(Data)==3 - Tmp=[]; - for I=1:Mixlength(Data); - Tmp=Mixjoin(Tmp,Mixop(I,Data)); - end; - Data=Tmp; - end; - for J=1:Mixlength(Data) - Tmp=Mixop(J,Data); - Z=[Z;Tmp]; - end; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.bin Binary files differdeleted file mode 100644 index c9477a3a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci deleted file mode 100644 index a4de85ea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci +++ /dev/null @@ -1,108 +0,0 @@ -// 08.05.28 -// 08.05.29 -// 09.06.13 -// 10.04.24 -// 10.04.25 -// 11.01.07 ( major changed ) - -function OutL=Splinedata(varargin) - global SplinePt; - Nargs=length(varargin); - Eps=10^(-3); - PL=varargin(1); - if type(PL)==10 // 100425 - Fname=PL; - PL=Readtextdata(Fname); - else - if size(PL,1)==1 - PL=matrix(PL,2,length(PL)/2); - PL=PL'; - end; - end; - if size(PL,2)==3 - Flg3=1; - else - Flg3=0; - end; - PLL=Dividegraphics(PL); - N=50; - C=[]; - for I=2:Nargs - Tmp=varargin(I); - if type(Tmp)~=10 continue; end - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - else - Tmp1=Strop(1,Tmp); - if Tmp1=='C' | Tmp1=='c' - C=1:length(PLL); - end; - end; - end; - Cflg=zeros(1,length(PLL)); - for J=1:length(C) - K=C(J); - Cflg(K)=1; - end; - if length(N)>1 - if type(Nj)==1 - Nj=N; - else - Nj=[]; - for J=1:length(N) - Nj(J)=N(J); - end; - end; - else - Tmp1=[]; - for J=1:length(PLL) - Tmp1(J)=size(PLL(J),1); - end; - MxP=max(Tmp1); - Nj=[]; - for J=1:length(PLL) - Tmp=size(PLL(J),1); - Tmp1=round(N/MxP*(Tmp-1)); - Nj(J)=Tmp1; - end; - end; - OutL=list(); - for J=1:length(PLL) // - PL=PLL(J); - if Cflg(J)==1 - if norm(PL(1,:)-PL(size(PL,1),:))>Eps - PL=[PL;PL(1,:)]; - Nj(J)=round(N/MxP*size(PL,1)); - else - PL(size(PL,1),:)=PL(1,:); - end - end; - SplinePt=PL; - Tn=1:size(PL,1); - Xn=PL(:,1)'; - Yn=PL(:,2)'; - if Flg3==1 Zn=PL(:,3)';end; - if Cflg(J)==0 - Dxn=splin(Tn,Xn); - Dyn=splin(Tn,Yn); - if Flg3==1 Dzn=splin(Tn,Zn); end; - else - Dxn=splin(Tn,Xn,'periodic'); - Dyn=splin(Tn,Yn,'periodic'); - if Flg3==1 Dzn=splin(Tn,Zn,'periodic'); end; - end - T=linspace(1,size(PL,1),Nj(J)); - X=interp(T,Tn,Xn,Dxn); - Y=interp(T,Tn,Yn,Dyn); - if Flg3==1 Z=interp(T,Tn,Zn,Dzn); end; - if Flg3==1 - Out=[X',Y',Z']; - else - Out=[X',Y']; - end; - OutL($+1)=Out; - end; - if length(OutL)==1 - OutL=OutL(1); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.bin Binary files differdeleted file mode 100644 index e8876298..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci deleted file mode 100644 index 8f4da94d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci +++ /dev/null @@ -1,11 +0,0 @@ -function C=Strop(Num,Str) - N=length(Num); - L=ascii(Str); - C=''; - for I=1:N - K=Num(I); - Tmp=char(L(K)); - C=C+Tmp; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin Binary files differdeleted file mode 100644 index 5f1b02bc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci deleted file mode 100644 index 785b605c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci +++ /dev/null @@ -1,21 +0,0 @@ -// -// 08.06.04 - -function V=Subs(SbstrL,StrF) - Str=StrF; - if type(StrF)==2 - Str=pol2str(StrF); - end - V=StrF; - for N=1:size(SbstrL,2) - Sbstr=SbstrL(1,N); - I=mtlb_findstr(Sbstr,'='); - Tmp=strsplit(Sbstr,I); - SbA=Tmp(1); - SbA=Op(1:length(SbA)-1,SbA); - SbB=Tmp(2); - V=strsubst(V,SbA,SbB); - end - V=evstr(V); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin Binary files differdeleted file mode 100644 index cd35f9cc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci deleted file mode 100644 index 55fdfd0f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 08.05.30 -// 08.05.31 -// 08.06.03 -// 13.10.21 (__ added to variables ) - -function PL__=Sumfun(varargin) - global XMIN XMAX YMIN YMAX - Nargs__=length(varargin); - Const__=0; - Addstr__='A__=0'; - J__=1; - Tmp__=varargin(1); - if type(Tmp__)==1 - Const__=Tmp__; - J__=J__+1; - end - if type(Tmp__)==10 - Tmp1__=Strop(length(Tmp__),Tmp__); - if Tmp1__=='+' - Addstr__='A__='+Strop(1:length(Tmp__)-1,Tmp__); - J__=J__+1 - end - end - Fnstr__=varargin(J__); - Krange__=varargin(J__+1); - Xrange__=varargin(J__+2); - N=50; - for I__=J__+3:Nargs__ - Tmp__=varargin(I__); - execstr(Tmp__); - end - Tmp__=mtlb_findstr(Krange__,'='); - Kname__=Strop(1:Tmp__-1,Krange__); - Tmp1__=Strop(Tmp__+1:length(Krange__),Krange__); - Tmp1__='Krg__='+Tmp1__; - execstr(Tmp1__); - Tmp__=mtlb_findstr(Xrange__,'='); - if Tmp__==[] - Xname__=Xrange__; - Xrg__=[XMIN,XMAX]; - else - Xname__=Strop(1:Tmp__-1,Xrange__); - Tmp1__=Strop(Tmp__+1:length(Xrange__),Xrange__); - Tmp1__='Xrg__='+Tmp1__; - execstr(Tmp1__); - end - Dx__=(Xrg__(2)-Xrg__(1))/N; - PL__=[]; - I__=0; - while I__<=N - Tmp__=Xname__+'=Xrg__(1)+I__*Dx__'; - execstr(Tmp__); - J__=Krg__(1); - execstr(Addstr__); - Y__=Const__+A__; - while J__<=Krg__(length(Krg__)) - Tmp__=Kname__+'=J__'; - execstr(Tmp__); - execstr('Y__=Y__+'+Fnstr__); - J__=J__+1; - end - PL__=[PL__;Xrg__(1)+I__*Dx__,Y__]; - I__=I__+1; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin Binary files differdeleted file mode 100644 index 7abbf37d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci deleted file mode 100644 index 0d649872..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci +++ /dev/null @@ -1,30 +0,0 @@ -// s : 2014.08.25 - -function Out=Symb3data(Moji,Size,Kaiten,NV,Pos) - if type(Moji)==10 then - Tmp=Symbdata(Moji); - GY1=Tmp(2) - else - GY1=Moji - end - GY1=Scaledata(GY1,Size,Size); - GY1=Rotatedata(GY1,Kaiten*%pi/180); - A=NV(1); B=NV(2); C=NV(3); - if A^2+B^2==0 then - E1=[1,0,0]; - E2=[0,1,0]; - else - E1=[B,-A,0]; - E2=[-A*C,-B*C,A^2+B^2]; - D=det([E1;E2;NV]); - if D<0 then - E1=-E1 - end - E1=E1/norm(E1); - E2=E2/norm(E2); - end - deff("Out=Em(X,Y)","Out=[E1(1)*X+E2(1)*Y,E1(2)*X+E2(2)*Y,E1(3)*X+E2(3)*Y]"); - GY1=Embed(GY1,Em); - GY1=Translate3data(GY1,Pos); - Out=Flattenlist(GY1); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin Binary files differdeleted file mode 100644 index ebda20ac..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci deleted file mode 100644 index d63a3470..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci +++ /dev/null @@ -1,67 +0,0 @@ -// s : 2014.08.25 -// 14.09.07 - -function Out=Symbdata(Moji) - ML=list(); Sp=[]; CC=[]; - if Moji=="x" then - M1=[-0.042,0.035;-0.027,0.045;-0.01,0.045;0.004,0.03;0.00,0.00;... - -0.004,-0.03;0.01,-0.045;0.027,-0.045;0.042,-0.035]; - M2=[0.055,0.035;0.043,0.045;0.027,0.045;0.01,0.03;0.00,0.00;... - -0.01,-0.03;-0.027,-0.045;-0.043,-0.045;-0.055,-0.035]; - ML=list(M1,M2); - Sp=[100,100]; - CC=[0,0]; - end; - if Moji=="y" then - M1=[-0.06,0.06;... - -0.045,0.080;... - -0.03,0.080;... - -0.022,0.065;... - -0.032,0.035;... - -0.035,-0.01;... - 0.007,-0.008;... - 0.037,0.04;... - 0.05,0.09]; - M2=[0.05,0.09;... - 0.037,0.04;... - 0.025,-0.00;... - 0.015,-0.035;... - -0.000,-0.055;... - -0.025,-0.062;... - -0.05,-0.045]; - ML=list(M1,M2); - Sp=[100,100]; - CC=[0,0]; - end - if Moji=="z" then - M1=[-0.035,0.035;-0.023,0.045;-0.01,0.045;... - 0.01,0.04;0.035,0.04;0.042,0.045]; - M2=[0.042,0.045;0.00,0.00;-0.042,-0.045]; - M3=[-0.042,-0.045;-0.035,-0.04;-0.01,-0.04;... - 0.01,-0.045;0.023,-0.045;0.035,-0.035]; - ML=list(M1,M2,M3); - Sp=[100,0,100]; - CC=[0,0,0]; - end - Out1=list() - Out2=list() - for J=1:length(ML) - M=ML(J); - N=Sp(J); - for K=1:size(M,1) - P=M(K,:) - Out1($+1)=P - end - if N>0 then - if CC(J)==0 then - S=Splinedata(M,"N="+string(N)) - else - S=Splinedata(M,"N="+string(N),"C") - end - else - S=M - end; - Out2($+1)=S - end - Out=list(Out1,Out2) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin Binary files differdeleted file mode 100644 index 57730f7f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci deleted file mode 100644 index 621f6256..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci +++ /dev/null @@ -1,130 +0,0 @@ -// 09.11.26 -// 09.12.06 -// 09.12.25 -// 10.01.12 -// 10.01.13 -// 10.03.28 -// 10.03.30 -// 13.05.03 Domain can be omitted - -function Out=Tabledata(varargin) -// 2013.05.01 Domain is optional. - Eps=0.001; - Tmp=varargin(1); // 130502 from - if type(Tmp)==1 - Domain=varargin(1); - VL=varargin(2); - HL=varargin(3); - else - Domain=[-1,-1]; - VL=varargin(1); - HL=varargin(2); - end; // 130502 upto - Hsize=Domain(1); - SvL=list(0); - S=0; - for I=1:length(VL) - Tmp=VL(I); - S=S+Tmp(1); - Tmp(1)=S; - SvL($+1)=Tmp; - end; - if Hsize>S - SvL($+1)=Hsize; - end; - Hsize=Op(1,SvL(length(SvL))); - Vsize=Domain(2); - ShL=list(0); - S=0; - for I=1:length(HL) - Tmp=HL(I); - S=S+Tmp(1); - Tmp(1)=S; - ShL($+1)=Tmp; - end; - if Vsize>S - ShL($+1)=Vsize; - end; - Vsize=Op(1,ShL(length(ShL))); - Marw=0; Mare=0; Mars=0; Marn=0; - if length(Domain)>2 - Marw=Domain(3); - Mare=Domain(4); - end; - if length(Domain)>4 - Marn=Domain(5); - Mars=Domain(6); - end; - Setwindow([-Marw,Hsize+Mare],[-Mars,Vsize+Marn]); - Tmp=Framedata([Eps,Hsize-Eps],[Eps,Vsize-Eps]); - Gdata=list(Tmp); - Tmp=-Marw; - Hdata=list(Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]])); - for I=1:length(SvL) // 10.03.30 - Data=SvL(I); - X=Data(1); - if length(Data)==1 - Y1=0; - Y2=Vsize; - G=Listplot([X,Y1],[X,Y2]); - else - G=[]; - for J=2:2:length(Data) - Y1=Vsize-Op(1,ShL(Data(J))); // 10.03.30 - Y2=Vsize-Op(1,ShL(Data(J+1))); - Tmp=Listplot([[X,Y1],[X,Y2]]); - G=[G;%inf,%inf;Tmp]; - end; - G=G(2:size(G,1),:); - end; - Hdata($+1)=G; - end; - Tmp=Hsize+Mare; - Tmp1=Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]); - Hdata($+1)=Tmp1; - Tmp=Vsize+Marn; - Vdata=list(Listplot([[-Marw,Tmp],[Hsize+Mare,Tmp]])); - for I=1:length(ShL) - Data=ShL(I); - Y=Vsize-Data(1); - if length(Data)==1 - X1=0; - X2=Hsize; - G=Listplot([X1,Y],[X2,Y]); - else - G=[]; - for J=2:2:length(Data) - X1=Op(1,SvL(Data(J))); // 10.03.30 - X2=Op(1,SvL(Data(J+1))); - Tmp=Listplot([X1,Y],[X2,Y]); - G=[G;%inf,%inf;Tmp]; - end; - G=G(2:size(G,1),:); - end; - Vdata($+1)=G; - end; - Tmp=Listplot([[-Marw,-Mars],[Hsize+Mare,-Mars]]); - Vdata($+1)=Tmp; - Tmp1=Mixsub(3:(length(Hdata)-2),Hdata); - Tmp2=Mixsub(3:(length(Vdata)-2),Vdata); - Gdata=Mixjoin(Gdata,Tmp1,Tmp2); - Hind=2:(1+length(Tmp1)); - Vind=(2+length(Tmp1)):(1+length(Tmp1)+length(Tmp2)); - G=Gdata(1); - P1=Ptsw(G); P2=Ptnw(G); - Q1=Ptse(G); Q2=Ptne(G); - Tmp1=list(Listplot([P1,P2]),Listplot([Q1,Q2])); - P1=Ptnw(G); P2=Ptne(G); - Q1=Ptsw(G); Q2=Ptse(G); - Tmp2=list(Listplot([P1,P2]),Listplot([Q1,Q2])); - Tmp3=Framedata(); - Out=list(Gdata,Hind,Vind,Tmp1,Tmp2,Tmp3); -endfunction; - -function Out=Dividetable(Tb) - G=Tb(1); - Gw=G(1); - Gt=Mixsub(Tb(2),G); - Gy=Mixsub(Tb(3),G); - Out=list(Gw,Gt,Gy) -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin Binary files differdeleted file mode 100644 index c702d4e8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci deleted file mode 100644 index 9b848315..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci +++ /dev/null @@ -1,41 +0,0 @@ -// -// 09,12.05 -// 09.12.06 -// 09.12.07 -// 09.12.20 - -function Texcom(Meirei) - global Wfile FID; - if Meirei=='\thinlines' - Setpen(1); - return - end - if Meirei=='\thicklines' - Setpen(2); - return - end - if Meirei=='\Thicklines' - Setpen(3); - return - end; - - if Meirei=='' // 09.12.07 - Tmp=[]; - else - Tmp=mtlb_findstr(Meirei,'newline'); - end; - if length(Tmp)>0 - if Wfile=='default' - mprintf('%s\n',''); - else - mfprintf(FID,'%s\n',''); - end; - return; - end; - if Wfile=='default' - mprintf('%s%s\n',Meirei,'%'); - else - mfprintf(FID,'%s%s\n',Meirei,'%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin Binary files differdeleted file mode 100644 index 3f2db49a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci deleted file mode 100644 index 2a8b08ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci +++ /dev/null @@ -1,15 +0,0 @@ -// -// 2010.05.15 - -function Out=Texctr(N) - if type(N)==1 - Alpha='abcdefghijklmnopqrstuvwxyz'; - Out='ketpicctr'+part(Alpha,N); - else - if part(N,1)=='\' - Out=part(N,2:length(N)); - else - Out=N; - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin Binary files differdeleted file mode 100644 index 4bd0517d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci deleted file mode 100644 index 8ef93556..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 10.04.16 -// 10.04.18 - -function Texelse() - Texcom(''); - Texcom('\else'); -endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin Binary files differdeleted file mode 100644 index 322cde18..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci deleted file mode 100644 index a3139873..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci +++ /dev/null @@ -1,5 +0,0 @@ -// 01.10.21 - -function Texend() - Closephr(); -endfunction
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin Binary files differdeleted file mode 100644 index ea787159..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci deleted file mode 100644 index ecb7b788..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 10.04.16 - -function Texendfor(I) - global TEXFORLEVEL TEXFORLAST - Last=TEXFORLAST(TEXFORLEVEL); - Texcom(''); - Texcom('\ifnum'+Texthectr(I)+'<'+Last); - Texcom('\repeat'); - Texcom('}'); - TEXFORLEVEL=TEXFORLEVEL-1; - TEXFORLAST=Mixsub(1:(length(TEXFORLAST)-1),TEXFORLAST); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin Binary files differdeleted file mode 100644 index 43440fc9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci deleted file mode 100644 index 97d32d85..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 10.04.16 -// 10.04.18 - -function Texendif() - Texcom(''); // - Texcom('\fi'); - Texcom('}'); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin Binary files differdeleted file mode 100644 index 69956280..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci deleted file mode 100644 index 0c239842..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 10.04.16 -// 10.05.12 -// 10.10.20 ( available for numeric ) - -function Texfor(I,First,Last) - global TEXFORLEVEL TEXFORLAST - TEXFORLEVEL=TEXFORLEVEL+1; - Texsetctr(I,'0'); - Texsetctr(I,string(First)+'-1'); - Texcom(''); - Texcom('{'); - Texcom('\loop'); - Texsetctr(I,'+1'); - TEXFORLAST($+1)=string(Last); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin Binary files differdeleted file mode 100644 index 66fe8e3c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci deleted file mode 100644 index f661c649..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 10.04.18 - -function Texforinit() - global TEXFORLEVEL TEXFORLAST - TEXFORLEVEL=0; - TEXFORLAST=list(); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin Binary files differdeleted file mode 100644 index 52222c34..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci deleted file mode 100644 index 8cbae5dc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci +++ /dev/null @@ -1,19 +0,0 @@ -// 10.04.16 -// 10.04.18 -// 10.05.03 - -function Texif(varargin) - Condstr=varargin(1); - Tp=0; - if length(varargin)>1 - Tp=varargin(2); - end; - Texcom(''); - Texcom('{'); - if Tp==0 - Texcom('\ifnum '); - else - Texcom('\ifdim '); - end; - Texcom(Condstr+' '); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin Binary files differdeleted file mode 100644 index d95b41da..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci deleted file mode 100644 index f83cc8c8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci +++ /dev/null @@ -1,44 +0,0 @@ -// 10.01.07 - -function Texletter(varargin) - global Wfile FID MEMORI; - Nargs=length(varargin); - for I=1:3:Nargs - P=varargin(I); - X=P(1); - if type(X)==1 - X=string(X); - end; - Y=P(2); - if type(Y)==1 - Y=string(Y); - end; - Houkou=varargin(I+1); - Mojiretu=varargin(I+2); - Hset=Houkou; - Vhoko='c'; - if mtlb_findstr(Hset,'n')~=[] - Vhoko='n'; - end - if mtlb_findstr(Hset,'s')~=[] - Vhoko='s'; - end - Hhoko='c'; - if mtlb_findstr(Hset,'e')~=[] - Hhoko='e'; - end - if mtlb_findstr(Hset,'w')~=[] - Hhoko='w'; - end - Hoko=Vhoko+Hhoko; - CalcWidth(Hoko,Mojiretu); - CalcHeight(Hoko,Mojiretu); - Tmp='\put('+X+','+Y+'){\hspace*{\Width}'; - Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin Binary files differdeleted file mode 100644 index eec32b1e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci deleted file mode 100644 index b3b9a417..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 10.01.21 - -function Texnewcmd(varargin) - Nargs=length(varargin); - Str=varargin(1); - S='\newcommand{'+Str+'}'; - if Nargs>1 - Tmp=string(varargin(2)); - S=S+'['+Tmp+']'; - end; - if Nargs>2 - Tmp=varargin(3); - if type(Tmp)==1 - Tmp=string(Tmp); - end; - S=S+'['+Tmp+']'; - end; - S=S+'{'; - Texcom(S); -endfunction
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin Binary files differdeleted file mode 100644 index c724a1fa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci deleted file mode 100644 index 03cabf81..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 10.01.21 - -function Texnewctr(N) - if type(N)==10 - Str='\newcounter{'+N+'}'; - Texcom(Str); - else - for I=N - Str='\newcounter{'+Texctr(I)+'}'; - Texcom(Str); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin Binary files differdeleted file mode 100644 index a19894a9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci deleted file mode 100644 index b8926589..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 10.01.21 - -function Texrenewcmd(varargin) - Nargs=length(varargin); - Str=varargin(1); - S='\renewcommand{'+Str+'}'; - if Nargs>1 - Tmp=string(varargin(2)); - S=S+'['+Tmp+']'; - end; - if Nargs>2 - Tmp=varargin(3); - if type(Tmp)==1 - Tmp=string(Tmp); - end; - S=S+'['+Tmp+']'; - end; - S=S+'{'; - Texcom(S); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin Binary files differdeleted file mode 100644 index 6b59198a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci deleted file mode 100644 index 166af676..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci +++ /dev/null @@ -1,70 +0,0 @@ -// 10.01.21 - -function Texsetctr(Nctr,Opstr) - Ctr=Texctr(Nctr); - Opstr=Opstr+'%'; - OperL='+-*/%'; - Oper=''; - Va=''; - Evflg=0; - Paflg=0; - for I=1:length(Opstr) - Tmp=part(Opstr,I); - if Tmp=='(' - Paflg=1; - if length(Va)>0 - Evflg=1; - Va=Va+Tmp; - end; - continue; - end; - if Tmp==')' - Paflg=0; - if Evflg>0 - Va=Va+Tmp; - end; - continue; - end; - if Paflg>0 - Va=Va+Tmp; - continue; - end; - if length(mtlb_findstr(Tmp,OperL))==0 - Va=Va+Tmp; - else - if Evflg>0 - Tmp1=evstr(Va); - Va='\value{'+Tmp1+'}'; - Evflg=0; - end; - if Oper=='' - if length(Va)>0 - Str='\setcounter{'+Ctr+'}{'+Va+'}'; - Texcom(Str); - end; - Oper=Tmp; - Va=''; - elseif Oper=='+' - Str='\addtocounter{'+Ctr+'}{'+Va+'}'; - Texcom(Str); - Oper=Tmp; - Va=''; - elseif Oper=='-' - Str='\addtocounter{'+Ctr+'}{-'+Va+'}'; - Texcom(Str); - Oper=Tmp; - Va=''; - elseif Oper=='*' - Str='\multiply\value{'+Ctr+'} by '+Va; - Texcom(Str); - Oper=Tmp; - Va=''; - elseif Oper=='/' - Str='\divide\value{'+Ctr+'} by '+Va; - Texcom(Str); - Oper=Tmp; - Va='' - end; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin Binary files differdeleted file mode 100644 index 7a1b6b04..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci deleted file mode 100644 index 469da91a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci +++ /dev/null @@ -1,5 +0,0 @@ -// 2010.02.12 - -function Out=Texthectr(N) - Out='\the'+Texctr(N); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin Binary files differdeleted file mode 100644 index 71c3785e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci deleted file mode 100644 index 96d1c734..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci +++ /dev/null @@ -1,5 +0,0 @@ -// 2010.02.12 - -function Out=Texvalctr(N) - Out='\value{'+Texctr(N)+'}'; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin Binary files differdeleted file mode 100644 index 0da12c0f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci deleted file mode 100644 index fc443411..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci +++ /dev/null @@ -1,6 +0,0 @@ -// 10.01.21 - -function Out=Texvctr(N) - Out='\value{'+Texctr(N)+'}'; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin Binary files differdeleted file mode 100644 index 8f036e77..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci deleted file mode 100644 index c6ceff89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.07.11 - -function Ang=Thetadegree() - global THETA; - Ang=THETA*180/%pi; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin Binary files differdeleted file mode 100644 index 43d2d234..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci deleted file mode 100644 index a7a3fc2d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=ThisVersion() - global THISVERSION - Y=THISVERSION -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.bin Binary files differdeleted file mode 100644 index 5e7b9411..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci deleted file mode 100644 index 8ef53bd5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 10.01.02 - -function Out=Tolist(LG) - Out=list(); - for I=1:length(LG) - Out($+1)=LG(I); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin Binary files differdeleted file mode 100644 index 43315b47..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci deleted file mode 100644 index 98d69544..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 08.08.15 -// 15.04.12 - -function Out=Translate3data(varargin) - Nargs=length(varargin); - Pd3=varargin(1); - Pd3=Flattenlist(Pd3); // 15.04.12 - Mv=varargin(2); - if type(Mv)==1 & length(Mv)==1 - Mv=[varargin(2),varargin(3),varargin(4)]; - end; -// if Mixtype(Pd3)==1 // 15.04.12 from -// Pd3=MixS(Pd3); -// elseif Mixtype(Pd3)==3 -// Tmp=[]; -// for I=1:Mixlength(Pd3) -// Tmp=Mixjoin(Tmp,Mixop(I,Pd3)); -// end; -// Pd3=Tmp; -// end; - Out=[]; - for I=1:length(Pd3) - PD=Op(I,Pd3); - Ans=[]; - for J=1:size(PD,1) - P=PD(J,:); - Tmp=P+Mv;; - Ans=[Ans;Tmp]; - end; - Out=Mixadd(Out,Ans); - end; - if length(Out)==1 - Out=Op(1,Out); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin Binary files differdeleted file mode 100644 index 9b27594a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci deleted file mode 100644 index a2e31085..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci +++ /dev/null @@ -1,42 +0,0 @@ -// 08.05.25 Koshikawa -// 08.09.20 -// 15.04.12 - -function OutL=Translatedata(varargin) - Nargs=length(varargin); - ML=varargin(1); - ML=Flattenlist(ML); - Tmp=varargin(2); - if type(Tmp)==1 & length(Tmp)>1 - A=Tmp(1); B=Tmp(2); - else - A=Tmp; - if Nargs>=3 - B=varargin(3); - else - B=0; - end; - end; - OutL=[]; - for N=1:length(ML) - GL=Op(N,ML); - Out=[]; - for I=1:size(GL,1) - Tmp=GL(I,:); - X1=Tmp(1); - Y1=Tmp(2); - if Tmp==[%inf,%inf] - X2=X1; - Y2=Y1; - else - X2=X1+A; - Y2=Y1+B; - end - Out=[Out;X2,Y2]; - end; - OutL=Mixadd(OutL,Out); - end; - if length(OutL)==1 - OutL=Op(1,OutL); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin Binary files differdeleted file mode 100644 index 838fdc91..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci deleted file mode 100644 index b4705593..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci +++ /dev/null @@ -1,10 +0,0 @@ -// 08.05.20 - -function N=Trunc(X) - if X>=0 - N=floor(X) - else - N=ceil(X) - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin Binary files differdeleted file mode 100644 index 60e56331..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci deleted file mode 100644 index 74910ceb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci +++ /dev/null @@ -1,12 +0,0 @@ -function Out=Unscaling(G) - global LOGX LOGY SCALEX SCALEY; - GLg=[G(:,1)/SCALEX,G(:,2)/SCALEY]; - Out=GLg; - if LOGX==1 - Out=[10^(GLg(:,1)),GLg(:,2)]; - end; - if LOGY==1 - Out=[GLg(:,1),10^(GLg(:,2))]; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin Binary files differdeleted file mode 100644 index b6a902cc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci deleted file mode 100644 index 4bc7684c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci +++ /dev/null @@ -1,11 +0,0 @@ -function L=Vecnagasa(varargin) - PA=varargin(1); - if length(varargin)>1 - PB=varargin(2); - else - PB=zeros(1,length(PA)); - end - Tmp=PB-PA; - L=sqrt(Tmp*Tmp'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin Binary files differdeleted file mode 100644 index 3118062d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci deleted file mode 100644 index 527d3834..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci +++ /dev/null @@ -1,11 +0,0 @@ -function L=Vecnagasa2(varargin) - PA=varargin(1); - if length(varargin)>1 - PB=varargin(2); - else - PB=[0,0]; - end - Tmp=PB-PA; - L=Tmp*Tmp'; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin Binary files differdeleted file mode 100644 index 1692f2d7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci deleted file mode 100644 index 44bde517..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 08.10.26 - -function Out=Viewfrom(varargin) - global THETA PHI - Nargs=length(varargin); - Nvec=varargin(1); - GL=varargin(2); - Flg=1; - if Nargs>=3 - Flg=varargin(3); - end; - Theta=THETA; Phi=PHI; - Tmp=Rotate3data(GL,Nvec,[-1,0,0]); - THETA=%pi/2; PHI=0; - Out=Projpara(Tmp); - if Flg==1 - Windisp(Out); - end; - THETA=Theta; PHI=Phi; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin Binary files differdeleted file mode 100644 index 8410cc5f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci deleted file mode 100644 index de320918..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci +++ /dev/null @@ -1,144 +0,0 @@ -// 08.05.26 Debugged -// 09.12.25 -// 11.04.13 debugged ( [a,b] ) -// 14.03.05 MARKLEN - -function Vtickmark(varargin) - global Wfile FID MARKLEN GENTEN YMIN YMAX; - Nargs=length(varargin); - ArgsL=list(varargin(1:Nargs)); - if type(Op(1,ArgsL))==10 - Str=Op(1,ArgsL); - Tmp=mtlb_findstr(Str,'m'); - if Tmp~=[] - I=Tmp(1); - else - I=0; - end - Tmp=mtlb_findstr(Str,'n'); - if Tmp~=[] - J=Tmp(1); - else - J=0; - end - Tmp=mtlb_findstr(Str,'r'); - if Tmp~=[] - K=Tmp(1); - else - K=0; - end; - if K>0 - Tmp=ascii(Str); - S=char(Tmp(K+1:length(Tmp))); - R=msscanf(S,'%f'); - if length(R)==0 - R=1; - end - else - R=1; - K=length(Str)+1; - end - if J>0 then - Tmp=ascii(Str); - S=char(Tmp(J+1:K-1)); - if S==[] - S=''; - end; - Dn=msscanf(S,'%d'); - if length(Dn)==0 - Dn=1; - end - else - Dn=1000; - J=length(Str)+1; - end - Tmp=ascii(Str); - S=char(Tmp(I+1:J-1)); - if S==[] - S=''; - end - Dm=msscanf(S,'%f'); - if length(Dm)==0 - Dm=1; - end - ArgsL=list(); - for I=1:floor((YMAX-GENTEN(2))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(Tmp(1:k-1)); - end - ArgsL($+1)=Str; - end - end - for I=-1:-1:ceil((YMIN-GENTEN(2))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(1:K-1); - end - ArgsL($+1)=Str; - end - end - end - MemoriList=list(); - Memori=list(); - for N=1:length(ArgsL) - Dt=Op(N,ArgsL); - if type(Dt)==1 & length(Dt)>1 - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt(1),Dt(2)); - continue - end - if type(Dt)==10 - Memori($+1)=Dt; - else - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(GENTEN(1),Dt); - end - end - MemoriList($+1)=Memori; - for N=1:length(MemoriList) - Dt=MemoriList(N); - Ndt=length(Dt); - X=Op(1,Dt); - Y=Op(2,Dt); - Tmp=Doscaling([X,Y]); - X=Tmp(1); - Y=Tmp(2); - Moji=Op(Ndt,Dt); - Tmp1=Unscaling([X+MARKLEN,Y]); - Tmp2=Unscaling([X-MARKLEN,Y]); - Fd=Listplot([Tmp1,Tmp2]); - Drwline(Fd); - if Ndt==3 - Tmp=Unscaling([X-MARKLEN,Y]); - Expr(Tmp,'w',Moji); - end - if Ndt==4 - Houkou=Op(3,Dt); - if mtlb_findstr(Houkou,'w')~=[] - Tmp=Unscaling([X-MARKLEN,Y]); - Expr(Tmp,Houkou,Moji); - else - Tmp=Unscaling([X+MARKLEN,Y]); - Expr(Tmp,Houkou,Moji); - end - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin Binary files differdeleted file mode 100644 index cfd85f0b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci deleted file mode 100644 index baa03e73..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci +++ /dev/null @@ -1,110 +0,0 @@ -// 08.05.16 Point style -// 08.05.17 MixL -// 08.05.19 Changed -// 08.05.21 Eps=0.1 -// 08.08.16 square -// 09.11.04 window option -// 09.11.07 gcf used -// 09.12.25 -// 10.01.01 -// 10.01.09 ' ' -// 10.01.10 drw one by one -// 10.02.08 revised for the case "a" -// 10.02.13 square debugged -// 10.02.21 square debugged (2) -// 10.02.23 case of mixlength=3 -// 10.04.10 Origin bug -// 11.05.29 Flattenlist used - -function Windisp(varargin) - global XMIN XMAX YMIN YMAX GENTEN - Nargs=length(varargin); - Tp=varargin(Nargs); - Ch=''; - if type(Tp)~=10 - scf(); - else - Ch=part(Tp,1); - Nargs=Nargs-1; - select Ch; - case 'N' then scf(); - case 'n' then scf(); - case 'C' then Tmp=gcf();clf('clear'); - case 'c' then Tmp=gcf();clf('clear'); - case 'A' then Tmp=gcf(); - case 'a' then Tmp=gcf(); - else - Tmp1=part(Tp,length(Tp)); - Tmp2=part(Tp,1:length(Tp)-1); - Tmp3=evstr(Tmp2); - scf(Tmp3); - if Tmp1=='C'|Tmp1=='c' - clf('clear'); - end; - end; - end; - Eps=0.1; - Tmp=Doscaling([XMIN,YMIN]); - Xm=Tmp(1); Ym=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - XM=Tmp(1); YM=Tmp(2); - C=[(Xm+XM)/2,(Ym+YM)/2]; - H=max(XM-Xm,YM-Ym)/2; - R1=C-H; R2=C+H; - R1=Unscaling(R1); - R2=Unscaling(R2); - if (Ch~='A')&(Ch~='a') - Tmp1=R1(1); - Tmp2=R2(1); - Tmp3=R1(2); - Tmp4=R2(2); - square(Tmp1,Tmp3,Tmp2,Tmp4);// - P=Framedata([XMIN,XMAX],[YMIN,YMAX]); - Tmp1=P(:,1)'; - Tmp2=P(:,2)'; - plot2d(Tmp1,Tmp2); - PtO=GENTEN; // 10.04.10 - if (PtO(2)>=YMIN) & (PtO(2)<=YMAX) // - P=Listplot([XMIN,PtO(2)],[XMAX,PtO(2)]); - Tmp1=P(:,1)'; - Tmp2=P(:,2)'; - plot2d(Tmp1,Tmp2,style=[3]); - end; - if (PtO(1)>=XMIN) & (PtO(1)<=XMAX) - P=Listplot([PtO(1),YMIN],[PtO(1),YMAX]); - Tmp1=P(:,1)'; - Tmp2=P(:,2)'; - plot2d(Tmp1,Tmp2,style=[3]); - end; - end; - for I=1:Nargs - Tmp=varargin(I); - Pdata=Flattenlist(Tmp); // - for II=1:length(Pdata) - Tmp=Op(II,Pdata); - P=MakeCurves(Tmp,0); - P=Unscaling(P); - Ndm=Dataindex(P); - for J=1:size(Ndm,1) - Q=P(Ndm(J,1):Ndm(J,2),:) - if size(Q,1)==1 - for K=1:2:length(Q) - plot2d(Q(K),Q(K+1),style=[-3]); - end - else - Tmp1=Q(:,1)'; - Tmp2=Q(:,2)'; - plot2d(Tmp1,Tmp2); - end - end - end -// for II=2:length(Pdata) -// Tmp=Op(II,Pdata); -// Windisp(Tmp,'a'); -// end; - end - for I=2:Nargs - Pdata=varargin(I); - Windisp(Pdata,'a'); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin Binary files differdeleted file mode 100644 index 329b7bae..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci deleted file mode 100644 index 24920661..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.12.11 - -function Out=WireHiddenData() - global HIDDENWIREDATA - Out=HIDDENWIREDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin Binary files differdeleted file mode 100644 index cd12acae..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci deleted file mode 100644 index d62acaf3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 08.09.15 -// 09.09.10 registered - -function Out=WirePt() - global WIREPT - Out=WIREPT; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin Binary files differdeleted file mode 100644 index 74ac71e0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci deleted file mode 100644 index b46e359c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci +++ /dev/null @@ -1,120 +0,0 @@ -// 08.09.15 -// 08.10.10 -// 08.10.11 -// 08.10.15 -// 08.10.21 -// 08.10.25 -// 09.09.10 -// 10.02.16 Eps -// 17.05.07 Eps changed - -function FsL=Wireparadata(varargin) - global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA - timer(); - Nargs=length(varargin); - Fbdy=Projpara(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=[0.05,1]; // - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DuL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - WIREPT=[]; - HIDDENWIREDATA=[]; - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07 - FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');//17.05.07 - FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin Binary files differdeleted file mode 100644 index 7ac1f185..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci deleted file mode 100644 index 11def80c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci +++ /dev/null @@ -1,120 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 08.10.11 -// 08.10.15 -// 08.10.21 -// 08.10.25 -// 09.09.10 -// 10.02.16 Eps -// 17.05.07 Eps changed - -function FsL=Wirepersdata(varargin) - global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA - timer(); - Nargs=length(varargin); - Fbdy=Projpers(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=[0.05,1]; // - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DuL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - WIREPT=[]; - HIDDENWIREDATA=[]; - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07 - FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)'); - FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //17.05.07 - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin Binary files differdeleted file mode 100644 index 646215a8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci deleted file mode 100644 index 59c5ba54..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci +++ /dev/null @@ -1,86 +0,0 @@ -// 08.09.15 -// 08.10.10 -// 08.10.21 -// 09.09.10 - -function FsL=Wirerawparadata(varargin) - timer(); - Nargs=length(varargin); - Fbdy=Projpara(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=0.05; - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DuL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)'); - FkL=Cuspsplitpara(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)'); - FkL=Cuspsplitpara(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin Binary files differdeleted file mode 100644 index 28eecf7a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci deleted file mode 100644 index d168b4f7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci +++ /dev/null @@ -1,86 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 08.10.21 -// 09.09.10 - -function FsL=Wirerawpersdata(varargin) - timer(); - Nargs=length(varargin); - Fbdy=Projpers(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=0.05; - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DvL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)'); - FkL=Cuspsplitpers(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)'); - FkL=Cuspsplitpers(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin Binary files differdeleted file mode 100644 index baa9001a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci deleted file mode 100644 index 059ac6d5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci +++ /dev/null @@ -1,55 +0,0 @@ -// s:2014.10.10 -// e:2014.12.14 ( for 3d ) -// e:2015.10.29 ( endmark //// ) - -function WriteOutData(varargin) - global Fnameout - Nargs=length(varargin); - if modulo(Nargs,2)==0 then - Fname=Fnameout; - Nst=1; - else - Fname=varargin(1); - Nst=2; - end; - Fid=mopen(Fname,'w'); - for N=Nst:2:Nargs - Gname=varargin(N); - mfprintf(Fid,'%s\n',Gname+"//"); - Gdata=varargin(N+1); - Gdata=Flattenlist(Gdata); - for K=1:length(Gdata) - GL=Dividegraphics(Gdata(K)); - for J=1:length(GL) - mfprintf(Fid,'%s\n',"start//"); - Str=""; - for I=1:Numptcrv(GL(J)) - Pt=Ptcrv(I,GL(J)); - if length(Str)>0 then - Str=Str+"," - end; - if length(Pt)<3 // 2014.12.14 - Str=Str+msprintf("[%5.4f,%5.4f]",Pt(1),Pt(2)); - else - Str=Str+msprintf("[%5.4f,%5.4f,%5.4f]",Pt(1),Pt(2),Pt(3)); - end; - if length(Str)>80 then - mfprintf(Fid,'%s\n',"["+Str+"]//"); - Str=""; - end - end - if length(Str)>0 then - mfprintf(Fid,'%s\n',"["+Str+"]//"); - end - if N==Nargs-1 & K==length(Gdata) & J==length(GL) then // 15.10.29 -// mfprintf(Fid,'%s\n',"end////"); - mfprintf(Fid,'%s\n',"end//"); - else - mfprintf(Fid,'%s\n',"end//"); - end; - end - end - end - mfprintf(Fid,'%s\n',"//"); - mclose(Fid); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin Binary files differdeleted file mode 100644 index 734a3c14..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci deleted file mode 100644 index ae51bf8b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci +++ /dev/null @@ -1,12 +0,0 @@ -// s : 2014.06.22 - -function Out=Writeobjpoint(P) - global OBJFMT OBJSCALE NPOINT; - X=sprintf(OBJFMT,P(1)*OBJSCALE); - Y=sprintf(OBJFMT,P(2)*OBJSCALE); - Z=sprintf(OBJFMT,P(3)*OBJSCALE); - Str="v "+X+" "+Y+" "+Z; - Printobjstr(Str) - NPOINT=NPOINT+1 - Out=NPOINT; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin Binary files differdeleted file mode 100644 index 5e4a47e2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci deleted file mode 100644 index 51a13884..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci +++ /dev/null @@ -1,47 +0,0 @@ -// 2010.04.27 - -function Writetextdata(varargin) - Fname=varargin(1); - Mt=varargin(2); - D=-1; - for I=3:length(varargin) - Tmp=varargin(I); - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - end; - end; - Str=''; - for J=1:size(Mt,2) - Str=Str+'x'+string(J); - if J<size(Mt,2) - Str=Str+','; - end; - end; - if Fname~='' - Fid=mopen(Fname,'w'); - mfprintf(Fid,'%s\n',Str); - else - mprintf('%s\n',Str); - end; - for I=1:size(Mt,1) - Str=''; - for J=1:size(Mt,2) - Dt=Mt(I,J); - if Dt==%inf - Dt=D; - end; - Str=Str+string(Dt); - if J<size(Mt,2) - Str=Str+','; - end; - end; - if Fname~='' - mfprintf(Fid,'%s\n',Str); - else - mprintf('%s\n',Str); - end; - end; - if Fname~='' - mclose(Fid); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.bin Binary files differdeleted file mode 100644 index 4b55a62a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci deleted file mode 100644 index 60d73ef7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci +++ /dev/null @@ -1,42 +0,0 @@ -// s:2014.09.16 - -function WritetoCindy(varargin) - global Fnametxt - GnameV=list(); - for J=1:length(varargin) - Tmp=varargin(J); - for K=1:size(Tmp,2) - GnameV($+1)=Tmp(1,K); - end - end; - Fid=mopen(Fnametxt,'w'); - for Nv=1:length(GnameV) - Gname=GnameV(Nv); - Tmp=evstr(Gname); - GL=Dividegraphics(Tmp); - Lnst=""; - for J=1:length(GL) - G=GL(J); - Gn=Gname+"No"+string(J); - mfprintf(Fid,'%s\n',Gn+"=[];//"); - for K=1:Numptcrv(G) - Pt=Ptcrv(K,G); - if length(Lnst)==0 - Lnst=Gn+"=concat("+Gn+",["; - end; - Tmp=msprintf("[%6.4f,%6.4f]",Pt(1),Pt(2)); - Lnst=Lnst+Tmp; - if length(Lnst)>80 | K==Numptcrv(G) - Lnst=Lnst+"]);//"; - mfprintf(Fid,'%s\n',Lnst); - Lnst=""; - else - Lnst=Lnst+","; - end; - end; - Str="Goutdatalist=Append(Goutdatalist,"+Gn+");//"; - mfprintf(Fid,'%s\n',Str); - end; - end; - mclose(Fid); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.bin Binary files differdeleted file mode 100644 index 42261931..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci deleted file mode 100644 index 28ab28ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Xmax() - global XMAX - Y=XMAX; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.bin Binary files differdeleted file mode 100644 index aff6ce0e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci deleted file mode 100644 index e18e83d7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Xmin() - global XMIN - Y=XMIN; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.bin Binary files differdeleted file mode 100644 index c10e835a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci deleted file mode 100644 index b2118c90..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.07.11 - -function Out=Xyzax3data(Xrange,Yrange,Zrange) - J=mtlb_findstr(Xrange,'='); - Tmp=evstr(part(Xrange,J+1:length(Xrange))); - Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; - J=mtlb_findstr(Yrange,'='); - Tmp=evstr(part(Yrange,J+1:length(Yrange))); - Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; - J=mtlb_findstr(Zrange,'='); - Tmp=evstr(part(Zrange,J+1:length(Zrange))); - Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; - Out=MixS(Spaceline([Px,Qx]),Spaceline([Py,Qy]),Spaceline([Pz,Qz])); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin Binary files differdeleted file mode 100644 index 58069271..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci deleted file mode 100644 index b833802d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci +++ /dev/null @@ -1,71 +0,0 @@ -// 08.07.11 -// 09.09.18 - -function Kekka=Xyzaxparaname(varargin) - global MilliIn; - Nargs=length(varargin); - Eps=10.0^(-6); - Dr=0.19*1000/2.54/MilliIn; - Tmp=varargin(Nargs); - if Nargs>1 & type(Tmp)==1 - Dr=Dr*Tmp; - Nargs=Nargs-1; - end; - if type(varargin(1))==10 - Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3); - J=mtlb_findstr(Xrange,'='); - Xname=part(Xrange,1:J-1); - Tmp=evstr(part(Xrange,J+1:length(Xrange))); - Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; - J=mtlb_findstr(Yrange,'='); - Yname=part(Yrange,1:J-1); - Tmp=evstr(part(Yrange,J+1:length(Yrange))); - Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; - J=mtlb_findstr(Zrange,'='); - Zname=part(Zrange,1:J-1); - Tmp=evstr(part(Zrange,J+1:length(Zrange))); - Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; - else - Data=varargin(1); - Xname='x'; Yname='y'; Zname='z'; - if Nargs>1 - if varargin(2)~='' - Xname=varargin(2); - end; - if varargin(3)~='' - Yname=varargin(3); - end; - if varargin(4)~='' - Zname=varargin(4); - end; - end; - Tmp=Mixop(1,Data); - Px=Tmp(1,:); Qx=Tmp(2,:); - Tmp=Mixop(2,Data); - Py=Tmp(1,:) ; - Qy=Tmp(2,:); - Tmp=Mixop(3,Data); - Pz=Tmp(1,:); - Qz=Tmp(2,:); - end; - Ph=Parapt(Px); Qh=Parapt(Qx); R=Vecnagasa(Ph,Qh); - Kekka=[]; - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Xname); - end - Ph=Parapt(Py); Qh=Parapt(Qy); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Yname); - end; - Ph=Parapt(Pz); Qh=Parapt(Qz); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Zname); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin Binary files differdeleted file mode 100644 index 9bafd8a9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci deleted file mode 100644 index d9c1c7df..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci +++ /dev/null @@ -1,72 +0,0 @@ -// 08.08.14 -// 08.08.15 -// 09.09.18 - -function Kekka=Xyzaxpersname(varargin) - global MilliIn; - Eps=10.0^(-6); - Nargs=length(varargin); - Dr=0.19*1000/2.54/MilliIn; - Tmp=varargin(Nargs); - if Nargs>1 & type(Tmp)==1 - Dr=Dr*Tmp; - Nargs=Nargs-1; - end; - if type(varargin(1))==10 - Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3); - J=mtlb_findstr(Xrange,'='); - Xname=part(Xrange,1:J-1); - Tmp=evstr(part(Xrange,J+1:length(Xrange))); - Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; - J=mtlb_findstr(Yrange,'='); - Yname=part(Yrange,1:J-1); - Tmp=evstr(part(Yrange,J+1:length(Yrange))); - Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; - J=mtlb_findstr(Zrange,'='); - Zname=part(Zrange,1:J-1); - Tmp=evstr(part(Zrange,J+1:length(Zrange))); - Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; - else - Data=varargin(1); - Xname='x'; Yname='y'; Zname='z'; - if Nargs>1 - if varargin(2)~='' - Xname=varargin(2); - end; - if varargin(3)~='' - Yname=varargin(3); - end; - if varargin(4)~='' - Zname=varargin(4); - end; - end; - Tmp=Mixop(1,Data); - Px=Tmp(1,:); Qx=Tmp(2,:); - Tmp=Mixop(2,Data); - Py=Tmp(1,:) ; - Qy=Tmp(2,:); - Tmp=Mixop(3,Data); - Pz=Tmp(1,:); - Qz=Tmp(2,:); - end; - Ph=Perspt(Px); Qh=Perspt(Qx); R=Vecnagasa(Ph,Qh); - Kekka=[]; - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Xname); - end - Ph=Perspt(Py); Qh=Perspt(Qy); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Yname); - end; - Ph=Perspt(Pz); Qh=Perspt(Qz); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Zname); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin Binary files differdeleted file mode 100644 index dd606856..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci deleted file mode 100644 index 0a835534..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Ymax() - global YMAX - Y=YMAX; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.bin Binary files differdeleted file mode 100644 index e990681f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci deleted file mode 100644 index 73d0d261..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Ymin() - global YMIN - Y=YMIN; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.bin Binary files differdeleted file mode 100644 index acd2edd0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci deleted file mode 100644 index 5c237179..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 08.07.11 - -function Out=Zparapt(P) - global PHI THETA; - x=P(1); y=P(2); z=P(3); - Out=x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin Binary files differdeleted file mode 100644 index 76e4408e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci deleted file mode 100644 index 13601556..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 08.08.12 -// 10.01.02 - -function X3=Zperspt(P) - - global FocusPoint EyePoint - - Tmp=P-FocusPoint; - X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3); - Tmp=EyePoint-FocusPoint; - E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); - Ca=E1/sqrt(E1^2+F1^2); - Sa=F1/sqrt(E1^2+F1^2); - X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1; - E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; - Cb=E2/sqrt(E2^2+G2^2); - Sb=G2/sqrt(E2^2+G2^2); - X3=X2*Cb+Z2*Sb; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib deleted file mode 100644 index 3083cb73..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib +++ /dev/null @@ -1,344 +0,0 @@ -<?xml version="1.0" encoding="UTF-8" standalone="no"?> -<scilablib name="ketpicsciL6"> - <macro name="Addcounter" file="Addcounter.bin" md5="f7a17da511ba9fdd3cf4cdaf83f3d78c"/> - <macro name="Anglemark" file="Anglemark.bin" md5="0e984414d47cb604faef41ae93390dcb"/> - <macro name="Arrowdata" file="Arrowdata.bin" md5="b39db1a6340e09c9dfaa3fbb4c3777f1"/> - <macro name="Arrowhead" file="Arrowhead.bin" md5="0b0bc5478ce8afeb47770d9add192560"/> - <macro name="Arrowheaddata" file="Arrowheaddata.bin" md5="3c06f276e57945b3d54e11e39a9e9435"/> - <macro name="Arrowline" file="Arrowline.bin" md5="e15854f9c5c640cee8667f6128023620"/> - <macro name="Assign" file="Assign.bin" md5="c8d1390433c0a317d199f5491669e988"/> - <macro name="Assignadd" file="Assignadd.bin" md5="d24d31a4cfd1dc707c51c51ff9cdf364"/> - <macro name="Assignrep" file="Assignrep.bin" md5="e81413f3bc64c05ae0821b56fd63e5ef"/> - <macro name="Assignset" file="Assignset.bin" md5="6a6dad9e5a35cdddb0ac069ec601c061"/> - <macro name="Beginpicture" file="Beginpicture.bin" md5="9fd24a768a0d6548b1f458d51e1bb202"/> - <macro name="Bezier" file="Bezier.bin" md5="f23aa1069913d825c6f8040b3de17e7d"/> - <macro name="Bezierpt" file="Bezierpt.bin" md5="f09183e61d71f55243937a28ef90fb06"/> - <macro name="BorderHiddenData" file="BorderHiddenData.bin" md5="67622b4dca726e7aff9b4e92d411edcd"/> - <macro name="BorderPt" file="BorderPt.bin" md5="e482d76b67ceb360021f9cef448abc73"/> - <macro name="Borderparadata" file="Borderparadata.bin" md5="1bf108993d36707c45e3a25770ca2869"/> - <macro name="Borderpersdata" file="Borderpersdata.bin" md5="d46e7fdcf42a61c354a540359dcd9f5f"/> - <macro name="Borderrawdata" file="Borderrawdata.bin" md5="0228890cf35b6929fc3bb083b1211da6"/> - <macro name="Bowdata" file="Bowdata.bin" md5="1f5f1c65d0448af83143e14f53565393"/> - <macro name="Bowmiddle" file="Bowmiddle.bin" md5="0a765efd6dae8c6fbd0d075ef0ff8b3c"/> - <macro name="Bowname" file="Bowname.bin" md5="e8ab45879c83d386dcf5e086fe71e1a4"/> - <macro name="Bownamerot" file="Bownamerot.bin" md5="ce9e45bf14fca7b62fa56b6d0b3baaef"/> - <macro name="CalcHeight" file="CalcHeight.bin" md5="f535ff3dcd86bc6552b54894e5865673"/> - <macro name="CalcWidth" file="CalcWidth.bin" md5="cf0f3d22a9dd2ffdb077a4be5bf1219f"/> - <macro name="Calcfun" file="Calcfun.bin" md5="618d36dbe48f68b4a3e2664b5df8cad2"/> - <macro name="CameraCurve" file="CameraCurve.bin" md5="b8acf2da07c09553106c10b4cc29d9e7"/> - <macro name="CameracoordCurve" file="CameracoordCurve.bin" md5="91ad20f64500117414f16a1cce2c344f"/> - <macro name="Cancoordpara" file="Cancoordpara.bin" md5="61afc19fb49f4b16d48a3cc54c6c6650"/> - <macro name="Cancoordpers" file="Cancoordpers.bin" md5="3a82d9864deed9b050795decae25d8bb"/> - <macro name="Circledata" file="Circledata.bin" md5="a5a1cf644e81417a9065d80f71b24d8d"/> - <macro name="Clipindomain" file="Clipindomain.bin" md5="773133bed55b7003b0248ffb670e3685"/> - <macro name="Closefile" file="Closefile.bin" md5="d29119f97c49373729d10b0cfba746e4"/> - <macro name="Closeobj" file="Closeobj.bin" md5="18df14cfd19b6a7911f9a3748572c02c"/> - <macro name="Closepar" file="Closepar.bin" md5="b8f58e851efa7f12560401c5b0760ecf"/> - <macro name="Closephr" file="Closephr.bin" md5="f53a01c653931c16bd3c493950798acf"/> - <macro name="Closepicture" file="Closepicture.bin" md5="32f401713757a349111cfaf0adcf199d"/> - <macro name="Connectseg" file="Connectseg.bin" md5="439d9f55197c09cd7b54e98cc7151208"/> - <macro name="Crossprod" file="Crossprod.bin" md5="536992b625b66d009e88e73a21a354d6"/> - <macro name="Crv3onsfHiddenData" file="Crv3onsfHiddenData.bin" md5="716dedc06dea644e6aadecf58ab050f4"/> - <macro name="Crv3onsfparadata" file="Crv3onsfparadata.bin" md5="e0d51c785077d687bfc222837fd8593b"/> - <macro name="Crv3onsfpersdata" file="Crv3onsfpersdata.bin" md5="63bcd579f64f40cc04e50094782e09e0"/> - <macro name="CrvonsfHiddenData" file="CrvonsfHiddenData.bin" md5="009a9889bf1f2a3a05f38918b579b7cb"/> - <macro name="Crvonsfparadata" file="Crvonsfparadata.bin" md5="6d5468227fd75007c1dfe4572c1c189c"/> - <macro name="Crvonsfpersdata" file="Crvonsfpersdata.bin" md5="de082902912599535a629ed08e56fb6c"/> - <macro name="CrvsfHiddenData" file="CrvsfHiddenData.bin" md5="f8d158838c95df89a67bf8233e541a09"/> - <macro name="Crvsfparadata" file="Crvsfparadata.bin" md5="885de6d7639a403dd01a2761e39a6ad1"/> - <macro name="Crvsfpersdata" file="Crvsfpersdata.bin" md5="3a660a01512f537e270f611d45512032"/> - <macro name="CuspData" file="CuspData.bin" md5="0958a008a4c59305d62522f9b80028da"/> - <macro name="CuspPt" file="CuspPt.bin" md5="08b55dc8b3e2d0ee1fea47b71825af92"/> - <macro name="CuspSplitPt" file="CuspSplitPt.bin" md5="0ff09f7f3d56080bbad1a1a26260f254"/> - <macro name="Cuspsplitpara" file="Cuspsplitpara.bin" md5="e54d63f2224cff696951a50800d0c4d4"/> - <macro name="Cuspsplitpers" file="Cuspsplitpers.bin" md5="ebf6aef58ed839a05d27771eeb0fc60c"/> - <macro name="Cutsf2d" file="Cutsf2d.bin" md5="adc0dd43b75ee65d181c56c5eeef3b0a"/> - <macro name="Dashline" file="Dashline.bin" md5="4d0497d9013039e15ff2b287b2c0988b"/> - <macro name="Dataindex" file="Dataindex.bin" md5="f0b3b146c9ee16cde54ecd4937acb0b9"/> - <macro name="Definecolor" file="Definecolor.bin" md5="337b7001704f8c604b555e35721973d6"/> - <macro name="Deqplot" file="Deqplot.bin" md5="43a868bfe9d41dc2389116b15d18df80"/> - <macro name="Derivative" file="Derivative.bin" md5="f0b451a2b43c69168ac088e8443f6961"/> - <macro name="Diagcelldata" file="Diagcelldata.bin" md5="efc679b9d0239e2669c6a0929a4e242b"/> - <macro name="Dividegraphics" file="Dividegraphics.bin" md5="b2c065a1249613d3cf7f6ba80ec816a4"/> - <macro name="Dividetable" file="Dividetable.bin" md5="af1d4f7f854da91ce2b4cec13ff44bc5"/> - <macro name="Doscaling" file="Doscaling.bin" md5="86184ec15f528517d5e37e8b5baa3754"/> - <macro name="Dotfilldata" file="Dotfilldata.bin" md5="80a560945fc679f1f036778833dd59a7"/> - <macro name="Dotprod" file="Dotprod.bin" md5="e1a7afad315e324245ec76499b5dfb6c"/> - <macro name="Dottedline" file="Dottedline.bin" md5="fc23c9d6f73b41f120a39590dd4eeeb0"/> - <macro name="Dropnumlistcrv" file="Dropnumlistcrv.bin" md5="1875178bc5c363af0d15f8276503be4a"/> - <macro name="Droppoint" file="Droppoint.bin" md5="c25e16076a319350b8763f48476b4ec6"/> - <macro name="Drwline" file="Drwline.bin" md5="8b3116566aee206aa64fe0f162963ae3"/> - <macro name="Drwpt" file="Drwpt.bin" md5="2da954a103d3d925b661e23b34c3e2f4"/> - <macro name="Drwxy" file="Drwxy.bin" md5="c17d9f6608390f019c87d6e1e181e8a3"/> - <macro name="Embed" file="Embed.bin" md5="7cc5c0ccfeb87763b205b3fcf0dc67b4"/> - <macro name="Enclosing" file="Enclosing.bin" md5="457c453795c3b3224be70e1721385cb1"/> - <macro name="EnclosingS" file="EnclosingS.bin" md5="13de130f31f7932194fd173f977ff896"/> - <macro name="Endpicture" file="Endpicture.bin" md5="9b3ce661a450d798d55889be6ffd31ac"/> - <macro name="Evlptablepara" file="Evlptablepara.bin" md5="06e669cba02eb0218f852fdf46b1cae5"/> - <macro name="Evlptablepers" file="Evlptablepers.bin" md5="6cc6897a677911ce2629157f932f32c5"/> - <macro name="Execmd" file="Execmd.bin" md5="c3a30b0fae6f2a8ce6593607ed0d2ed8"/> - <macro name="Expr" file="Expr.bin" md5="c3e260bc0fd7af5a7231431ef9033f5c"/> - <macro name="Exprrot" file="Exprrot.bin" md5="6fc71ff18629fc512e5fed1218433619"/> - <macro name="Faceremovaldata" file="Faceremovaldata.bin" md5="90e9f3a860839349b2486df6fff7adb4"/> - <macro name="Facesdata" file="Facesdata.bin" md5="0c43ae73a08dcfce906c075f17eec59a"/> - <macro name="Findcell" file="Findcell.bin" md5="9b9cc86ef6f67a8d539d30ec58ad9005"/> - <macro name="Flattenlist" file="Flattenlist.bin" md5="d4b4a78c9e9760a4cbeda97f54592acb"/> - <macro name="Fontsize" file="Fontsize.bin" md5="3620d8e64b61ab17778776195acec82a"/> - <macro name="Fouriercoeff" file="Fouriercoeff.bin" md5="83dfcd5c4a1d0f7ccb711d89b0a8003c"/> - <macro name="FouriercoeffL" file="FouriercoeffL.bin" md5="29b8c2c57c53796531cb8316630e87ee"/> - <macro name="Fouriersum" file="Fouriersum.bin" md5="3cf167292e587148fe7d3a9d2e34eab0"/> - <macro name="Fracform" file="Fracform.bin" md5="6dfc4e723a0a2d55ef9e2e9028e5a0b1"/> - <macro name="Framedata" file="Framedata.bin" md5="712be5ee4fdd60fe132b951022f7f5e1"/> - <macro name="Fullformfunc" file="Fullformfunc.bin" md5="ebc5473763f9884c091aa9863062702b"/> - <macro name="Gaiseki" file="Gaiseki.bin" md5="36a6b9567ed081b46107ed3374562196"/> - <macro name="Getcounter" file="Getcounter.bin" md5="45f7aec5f0936f4abe6e65296634a847"/> - <macro name="Gettrace" file="Gettrace.bin" md5="bb84c353b0e3af593e903273160d9bd9"/> - <macro name="Hatchdata" file="Hatchdata.bin" md5="e05c42f885a108c41a75bf1b607b509b"/> - <macro name="Hexahedrondata" file="Hexahedrondata.bin" md5="86efcd2c370b4e76adfeea3b75639d31"/> - <macro name="HiddenWireData" file="HiddenWireData.bin" md5="a080bcb1dcc97c1205fff04562d694fd"/> - <macro name="Htickmark" file="Htickmark.bin" md5="bdafbfedbc2441fe5cd989910852c79e"/> - <macro name="ImplicitData" file="ImplicitData.bin" md5="24a9ea9eb043677084250a30d6c6db00"/> - <macro name="Implicitplot" file="Implicitplot.bin" md5="7d1075882d5446646c2304e00e70ad6d"/> - <macro name="InWindow" file="InWindow.bin" md5="cf3f449e5189b8d40a3d3a4c219a92ea"/> - <macro name="Initangle" file="Initangle.bin" md5="c6902d32536d434af7f28c28b45290ab"/> - <macro name="Integrate" file="Integrate.bin" md5="6f255339baf16af41b20d9b2d86adb50"/> - <macro name="Intersectcrvs" file="Intersectcrvs.bin" md5="68b875e1418a8a231095155ca2482cbc"/> - <macro name="IntersectcrvsPp" file="IntersectcrvsPp.bin" md5="5c05582df9fa8f9a05fa42ef1cf799ae"/> - <macro name="Intersectcrvsf" file="Intersectcrvsf.bin" md5="89b1b7d500237aebbd41f1094560609b"/> - <macro name="Intersectlines" file="Intersectlines.bin" md5="5a4837581398e0f6299d83805b325fd6"/> - <macro name="IntersectselfPp" file="IntersectselfPp.bin" md5="d10bc970ff6540655fedece748a0f1d7"/> - <macro name="Invdashline" file="Invdashline.bin" md5="d72a1842fe88eb719dd85ce45caafc96"/> - <macro name="Invert" file="Invert.bin" md5="7018f80081bca2cb147e81ea435ba287"/> - <macro name="Invparapt" file="Invparapt.bin" md5="b58cfbc854e7b14d076b1f1676c3f54b"/> - <macro name="Invperspt" file="Invperspt.bin" md5="c8500cf469fd4a4c8399e5e093f49126"/> - <macro name="Joincrvs" file="Joincrvs.bin" md5="41981f483c2cfacab95b25356ee5a7d1"/> - <macro name="Joingraphics" file="Joingraphics.bin" md5="e525e21001a3408e5bb3587d24ca4916"/> - <macro name="Ketinit" file="Ketinit.bin" md5="bd9d49f1927a921db621d419da386e1d"/> - <macro name="Kouten" file="Kouten.bin" md5="b0fbbe27e4961ef9a8d0652b1d9edfaf"/> - <macro name="KoutenList" file="KoutenList.bin" md5="ca822b6e42d545a627a7129d02b91cb2"/> - <macro name="Koutenseg" file="Koutenseg.bin" md5="2424557c72db63186699b8ab8fb4ef64"/> - <macro name="Kukannozoku" file="Kukannozoku.bin" md5="40cef25e80745039eb34c5066dfe2d14"/> - <macro name="Kukeiwake" file="Kukeiwake.bin" md5="2e42c3fdef9ac1f7aaca550ff11307c3"/> - <macro name="Kyorihensuu" file="Kyorihensuu.bin" md5="3f313b70f962d573d0db9a548ed4ebc4"/> - <macro name="Kyoukai" file="Kyoukai.bin" md5="630a8517e9e9ae8ecb2a5372c87193fd"/> - <macro name="Letter" file="Letter.bin" md5="a587d241a5c2f1c69b0904632af16a26"/> - <macro name="Letterrot" file="Letterrot.bin" md5="1ce92bf2c945ee12d0746ae7f2fe6b5d"/> - <macro name="Lineplot" file="Lineplot.bin" md5="d2b8a90dd16c873622ffc291b7c9ed64"/> - <macro name="Listplot" file="Listplot.bin" md5="1575fd89b2e6c3c96b90b6889006370f"/> - <macro name="MakeBowdata" file="MakeBowdata.bin" md5="ab5ea1d8c5cc092ea13021c3fb255613"/> - <macro name="MakeCurves" file="MakeCurves.bin" md5="a1d7968df6f80673bab58af5762640a4"/> - <macro name="MakecutbycrvL" file="MakecutbycrvL.bin" md5="8ddeb50d60ce53392a6d6ec76fad7bee"/> - <macro name="Makehasen" file="Makehasen.bin" md5="198b502dc227e2fb5fb9d945fa3b6a27"/> - <macro name="Makeliststr" file="Makeliststr.bin" md5="bf4e86417206108a51e2b0210b990557"/> - <macro name="Makesfcutoffdata" file="Makesfcutoffdata.bin" md5="7b61d0f517b18505225edbac83729b6f"/> - <macro name="Makeshasen" file="Makeshasen.bin" md5="878e44c4780cdac427a7d55f551373a2"/> - <macro name="Makeskeletondata" file="Makeskeletondata.bin" md5="6c918f7f13736227cc0ac351c6fd7a54"/> - <macro name="Makeskeletonpersdata" file="Makeskeletonpersdata.bin" md5="72dd47219b4e6689c54c69eed62f06dc"/> - <macro name="Makevaltable" file="Makevaltable.bin" md5="c279f90b73efc06d235c983bd08ce47b"/> - <macro name="MakeveLfaceL" file="MakeveLfaceL.bin" md5="1afea9c44a3dbe277e601b02d38be3cc"/> - <macro name="Makexybdy" file="Makexybdy.bin" md5="6eca03d530a515cdfe0b98d33fee2b67"/> - <macro name="Mawarikomi" file="Mawarikomi.bin" md5="61b967de5ef56e29016932c9f77c561a"/> - <macro name="MeetWindow" file="MeetWindow.bin" md5="ae7f015eebc2250c20ad876d1d3ec9e4"/> - <macro name="Meetpoints" file="Meetpoints.bin" md5="ffeccee8bfbebd44a45abdfe91c3cca1"/> - <macro name="Member" file="Member.bin" md5="6c29ab2fdbbc61889c95b45d820d317d"/> - <macro name="Menkakusi" file="Menkakusi.bin" md5="53d3fee4c99b28d7aac10f8114fe2524"/> - <macro name="Menkakusi2" file="Menkakusi2.bin" md5="eedabe7e3dd93f6af4fe225a6aa4b2ed"/> - <macro name="Mix" file="Mix.bin" md5="f9f822bf34f04f9dc5401f492b8dc76b"/> - <macro name="MixL" file="MixL.bin" md5="e80cd4b09be7c0a9b88cfaea7bcf802a"/> - <macro name="MixS" file="MixS.bin" md5="d60abae70f94ff28b184306e971d1102"/> - <macro name="Mixadd" file="Mixadd.bin" md5="51da5be70ce2e556dd75d812715faad4"/> - <macro name="Mixdisp" file="Mixdisp.bin" md5="b2b5187462a54615cca28f272232b61f"/> - <macro name="Mixjoin" file="Mixjoin.bin" md5="f9df8699f8cb95ca2b657403a94a9d8f"/> - <macro name="Mixlength" file="Mixlength.bin" md5="ee9cee8e9c916ea42ed8e1e8ad70e321"/> - <macro name="Mixmake" file="Mixmake.bin" md5="b84d74ef8def9658fa2d8f34cc8424f5"/> - <macro name="Mixop" file="Mixop.bin" md5="8c5f9a72e8838aa4b9c9f45013000670"/> - <macro name="Mixsub" file="Mixsub.bin" md5="f2a14687cf8a0c6daaede12d0b730dd5"/> - <macro name="Mixtype" file="Mixtype.bin" md5="0a0931265b0666b53416685a35897f82"/> - <macro name="Naigai" file="Naigai.bin" md5="6e97fdbd9f1feabfb09b2247518c4399"/> - <macro name="Naiseki" file="Naiseki.bin" md5="8f33757e011f07a03a144414296c3190"/> - <macro name="Nearestpt" file="Nearestpt.bin" md5="7b392fdb66cdafb6ccf4e3f083967ba2"/> - <macro name="Newlength" file="Newlength.bin" md5="ea7efdb86cdb3345f0b3e43427cb2c48"/> - <macro name="Nohiddenpara" file="Nohiddenpara.bin" md5="b46886584a10d67fbdb7816c5c739fb8"/> - <macro name="Nohiddenpara2" file="Nohiddenpara2.bin" md5="be95c5d2791c7b05e25c1def88f2bdc6"/> - <macro name="Nohiddenpers" file="Nohiddenpers.bin" md5="1e867c6479823f428d90911b099cdbcf"/> - <macro name="Nohiddenpers2" file="Nohiddenpers2.bin" md5="f96bfe5e316b4b771ab3d26b27b73615"/> - <macro name="Numptcrv" file="Numptcrv.bin" md5="5bf4461504105054dd993bff3b35f370"/> - <macro name="Objcurve" file="Objcurve.bin" md5="3f7684be52bce1b1458d378be0849229"/> - <macro name="Objjoin" file="Objjoin.bin" md5="74a96fb8ed5d88ff1008156f27738f5a"/> - <macro name="Objname" file="Objname.bin" md5="74d2732da725b97cb3c0eb443a6f5ed9"/> - <macro name="Objpolygon" file="Objpolygon.bin" md5="56d22a5ae20dcfc9a0cd4b8a440385e6"/> - <macro name="Objpolyhedron" file="Objpolyhedron.bin" md5="ff92bd278e558ead5df19970d6d01546"/> - <macro name="Objrecs" file="Objrecs.bin" md5="e8ca7cd5993fb7ce8e5b509dce42e46b"/> - <macro name="Objsurf" file="Objsurf.bin" md5="f3017f49c709447a7024d16edb01580d"/> - <macro name="Objsymb" file="Objsymb.bin" md5="ef3fbae27f502a20ff4df575638d4e52"/> - <macro name="Objthicksurf" file="Objthicksurf.bin" md5="07f9c70cedf719587412c848812c7704"/> - <macro name="Op" file="Op.bin" md5="cb2e0935be6b77b1c0bc4f2c7071a1cb"/> - <macro name="Openfile" file="Openfile.bin" md5="bfccc88e9e9abcd83236dd4dd5da2cb4"/> - <macro name="Openobj" file="Openobj.bin" md5="c60578368dceeb4ab79f74e6de774ffd"/> - <macro name="Openpar" file="Openpar.bin" md5="39554dc8c76d98179e21e6878af691c5"/> - <macro name="Openphr" file="Openphr.bin" md5="a086531ca6cf4e112742d5aef90943cf"/> - <macro name="Openpicture" file="Openpicture.bin" md5="e7b76f0bb2132c86350d0f1293a31069"/> - <macro name="Ovalbox" file="Ovalbox.bin" md5="d22bdac24b70c1d6b1625dcf3a8ce007"/> - <macro name="Ovaldata" file="Ovaldata.bin" md5="0facfbd0760cec3d8fa762f7dea098f2"/> - <macro name="Paramark" file="Paramark.bin" md5="644e9aa93430fd35f3639875d6759584"/> - <macro name="ParamonCurve" file="ParamonCurve.bin" md5="910c0b77eb025faf243e2d2cb7ebd043"/> - <macro name="Paramoncrv" file="Paramoncrv.bin" md5="48c6dc127d039740c0a11def8a18fe8a"/> - <macro name="Paramplot" file="Paramplot.bin" md5="09b2750fc9950bbc258a881a2c12a97b"/> - <macro name="Parapt" file="Parapt.bin" md5="e130c84b03164202cf8e25ea27558859"/> - <macro name="Partcrv" file="Partcrv.bin" md5="819797d94d68bf7df7c29b01717525a6"/> - <macro name="Partcrv3" file="Partcrv3.bin" md5="c87d37f9f00aff9ce05a3a3879c6ea5a"/> - <macro name="Partframe" file="Partframe.bin" md5="8df2a78e61362e18cf3b71779ffffbd4"/> - <macro name="PartitionPt" file="PartitionPt.bin" md5="a4afd33aca16e70df0984f7cf05371ce"/> - <macro name="Partitionseg" file="Partitionseg.bin" md5="c0ce6ccd18ea9794f55a9e6926328ea1"/> - <macro name="Perspt" file="Perspt.bin" md5="5415e8696ae175005b59936b2e164bac"/> - <macro name="PhFaceL" file="PhFaceL.bin" md5="b8748ee001a1357e2820b304083ce09e"/> - <macro name="PhHiddenData" file="PhHiddenData.bin" md5="6a0ab5d6aeb7d4c66b31ab86ac5afdae"/> - <macro name="PhVertexL" file="PhVertexL.bin" md5="9d7e1d653e88fc9b98f783ec57ebe8ca"/> - <macro name="Phcutdata" file="Phcutdata.bin" md5="bed83bc88efc277012bab8ba47b9d810"/> - <macro name="Phcutoffdata" file="Phcutoffdata.bin" md5="2ca3881c7cdfe2fee62aa3e64af34157"/> - <macro name="Phidegree" file="Phidegree.bin" md5="5d1ac461a2fee60c6c2dda978a262428"/> - <macro name="Phparadata" file="Phparadata.bin" md5="cbc40d5c2c508a72e51adac3ffecdd4c"/> - <macro name="Phpersdata" file="Phpersdata.bin" md5="51601f80ae1578cf4aa0d6f244ba5027"/> - <macro name="Phrawparadata" file="Phrawparadata.bin" md5="371b244204a19e6a12e70773cb118f21"/> - <macro name="Phrawpersdata" file="Phrawpersdata.bin" md5="f2371fdb24326f6c7a209f9b70d07ce1"/> - <macro name="Phsparadata" file="Phsparadata.bin" md5="762751108de07b4e5a1e6264e16d487c"/> - <macro name="Phspersdata" file="Phspersdata.bin" md5="acf5af0f78c134ae893fd057e408dd3e"/> - <macro name="Phsrawparadata" file="Phsrawparadata.bin" md5="2aebf882e1d6cd11e44cb2815fd186fd"/> - <macro name="Phsrawpersdata" file="Phsrawpersdata.bin" md5="b90465806262e6016d26450f6654194d"/> - <macro name="Plotdata" file="Plotdata.bin" md5="676695f9f9b9a91cfea1ee426d7185ce"/> - <macro name="Pointdata" file="Pointdata.bin" md5="eb131a9f0a6687722dc491cedb732ade"/> - <macro name="PointonCurve" file="PointonCurve.bin" md5="168183930f3fce712571ad5b737f7004"/> - <macro name="Pointoncrv" file="Pointoncrv.bin" md5="a0a2cd4d7f51bec560eb26fef054d835"/> - <macro name="Powersum" file="Powersum.bin" md5="29a72b2125d2f95cfd9bdd742a4e106b"/> - <macro name="Prime" file="Prime.bin" md5="35045b439a59fabbe9a4127d12706fb6"/> - <macro name="Printobjstr" file="Printobjstr.bin" md5="2b4d610c4a39dcab5cfb5c93f7dff5ea"/> - <macro name="ProjCurve" file="ProjCurve.bin" md5="7d548512c30e79cd098aa7b2f96a4ebf"/> - <macro name="ProjcoordCurve" file="ProjcoordCurve.bin" md5="ddf1fa0e05421feaa482038b26925ab5"/> - <macro name="Projpara" file="Projpara.bin" md5="98da96de9ea67f2db4111877d7ff785e"/> - <macro name="Projpers" file="Projpers.bin" md5="7820810b8c0861b22e8dcdc23f1c0864"/> - <macro name="Ptcrv" file="Ptcrv.bin" md5="d353fd7e1af4fac1533c7e0ddebf996e"/> - <macro name="Ptend" file="Ptend.bin" md5="5b30f64ef0920f13b540db8eb5f93e5a"/> - <macro name="PthiddenQ" file="PthiddenQ.bin" md5="c1e31cee1140bf7942b7e1c83514d790"/> - <macro name="Ptne" file="Ptne.bin" md5="833e0e4b3ced75d740eaaab4c1fc88bd"/> - <macro name="Ptnw" file="Ptnw.bin" md5="8415bd27db46c35cec56e67d2ca9734f"/> - <macro name="Ptse" file="Ptse.bin" md5="f5180a6df918355d3a588786e7be8cf4"/> - <macro name="Ptstart" file="Ptstart.bin" md5="f0e4baaf1f46e6b379571e9414a83812"/> - <macro name="Ptsw" file="Ptsw.bin" md5="c30adf43aa5f3c9a0961402ab3b8ddc9"/> - <macro name="Putcell" file="Putcell.bin" md5="da158190a8848db850d3d34a16d36dc8"/> - <macro name="Putcirmark" file="Putcirmark.bin" md5="9f1b9f829d10c8d29f3c2ea6d316383b"/> - <macro name="PutcoL" file="PutcoL.bin" md5="d8f49a7b534060301063804207669228"/> - <macro name="PutcoLexpr" file="PutcoLexpr.bin" md5="d35417b4b818f80c7b96f99118795d48"/> - <macro name="PutcoLstr" file="PutcoLstr.bin" md5="32c9d7d6751b5c85adca1c384ec98c10"/> - <macro name="Putdashmark" file="Putdashmark.bin" md5="03b76cd3bbc9e52df76c2be30c42570b"/> - <macro name="Putrecmark" file="Putrecmark.bin" md5="a5c20a30353d0c79c0dcea3cf39c54e3"/> - <macro name="Putrow" file="Putrow.bin" md5="0a9adbebc80444ab1495a302265920e6"/> - <macro name="Putrowexpr" file="Putrowexpr.bin" md5="4a32c3441cd9ad7c23656ab97e65d352"/> - <macro name="Putrowstr" file="Putrowstr.bin" md5="92ee0311a5e4bb7995a9d44bfbc1460d"/> - <macro name="Puttrace" file="Puttrace.bin" md5="08b64f48285a49c1cb6138fe1491c8fe"/> - <macro name="Ratiocmyk" file="Ratiocmyk.bin" md5="54098c052d304f2b329cc4fd2bd23bc1"/> - <macro name="ReadOutData" file="ReadOutData.bin" md5="0198ca044595d75779d267e425e5380a"/> - <macro name="ReadfromCindy" file="ReadfromCindy.bin" md5="1fed87229911382502d7e7cfd359f4c1"/> - <macro name="Readtextdata" file="Readtextdata.bin" md5="4acbbc591808404b6814db3175c2ffed"/> - <macro name="Reflectdata" file="Reflectdata.bin" md5="51d5020a418590fe64cbf4883da76562"/> - <macro name="Rmmember" file="Rmmember.bin" md5="31ade9c8802d46438ace1e53bb769b86"/> - <macro name="Rotate3data" file="Rotate3data.bin" md5="5aaab016d1fed7a61f270e3b4ad84316"/> - <macro name="Rotate3pt" file="Rotate3pt.bin" md5="7feea2dd66e7a02b96c384011d818a0e"/> - <macro name="Rotatedata" file="Rotatedata.bin" md5="f7c7aa1bd5b2d2d99b66bb3bd711de19"/> - <macro name="Roundstr" file="Roundstr.bin" md5="dd261bcd78d1110bfd9fd775efcf5a4e"/> - <macro name="Scaledata" file="Scaledata.bin" md5="fac166fc1de490a64dd7f7a8f46164a9"/> - <macro name="Sectionview" file="Sectionview.bin" md5="db370ec400c90c7865f7c626572e39f7"/> - <macro name="Setangle" file="Setangle.bin" md5="57190782b3c5c0ace7f2adecb18e4aed"/> - <macro name="Setarrow" file="Setarrow.bin" md5="e7baa60ca4f593de15c7cb8b56be800a"/> - <macro name="Setax" file="Setax.bin" md5="ef281e109b01e3b65d1842e0d2a03873"/> - <macro name="Setcolor" file="Setcolor.bin" md5="b0adb12d43ae4da2815331389b85f944"/> - <macro name="Setcounter" file="Setcounter.bin" md5="e38d212ffa114288c73ccdb613c9cb9d"/> - <macro name="Setmark" file="Setmark.bin" md5="d4cb68ac16edcd28a86ba2a0563b9597"/> - <macro name="Setmarklen" file="Setmarklen.bin" md5="ec3870c326393f15a29d77cf476618cf"/> - <macro name="Setobjdecimals" file="Setobjdecimals.bin" md5="823bc64fbdda67813d1e3c3bf592a0e3"/> - <macro name="Setobjscale" file="Setobjscale.bin" md5="a2cdb49a13b0dc89328a7194f34eeeab"/> - <macro name="Setorigin" file="Setorigin.bin" md5="fe236fa677bab1dd24e53cfc28022826"/> - <macro name="Setpen" file="Setpen.bin" md5="31370146f7f7aac59de13ffbc2c0172d"/> - <macro name="Setpers" file="Setpers.bin" md5="830fe8254a07765e703077b456353070"/> - <macro name="Setpt" file="Setpt.bin" md5="cbfbda69ce4184fc0ad59bfbe01943a6"/> - <macro name="Setscaling" file="Setscaling.bin" md5="263333f56ad33907534fdb460e54da9b"/> - <macro name="SetstereoL" file="SetstereoL.bin" md5="2711aa6a1541336aec852ac1437155ac"/> - <macro name="SetstereoR" file="SetstereoR.bin" md5="bd74d871d1bc79ed8c01a13a569eb7bb"/> - <macro name="Setunitlen" file="Setunitlen.bin" md5="1e245724b987e84c413bf37a30bb5dd3"/> - <macro name="Setversion" file="Setversion.bin" md5="d6dbab1ce7bb18b2c773bae647e4ac5d"/> - <macro name="Setwindow" file="Setwindow.bin" md5="e781a89da1ce77fbc46f713553523c51"/> - <macro name="Sf3data" file="Sf3data.bin" md5="095b6c0f2bf25f7b9ed5f5d8d3a8915d"/> - <macro name="Sfbdparadata" file="Sfbdparadata.bin" md5="f9c0c54671a68458f4bcb1936fa402ec"/> - <macro name="Sfbdpersdata" file="Sfbdpersdata.bin" md5="aa08f921566b64c11e888ee34429eca5"/> - <macro name="Sfbdrawparadata" file="Sfbdrawparadata.bin" md5="fae8431fd5fe5ead8ff2f85d45e144c1"/> - <macro name="Sfbdrawpersdata" file="Sfbdrawpersdata.bin" md5="1cafbda088573fad0d85f2bb2a165178"/> - <macro name="Sfcutdata" file="Sfcutdata.bin" md5="4dff7dff641c5e51588e8f27c2068396"/> - <macro name="Sfcutoffparadata" file="Sfcutoffparadata.bin" md5="d5089ce276ce8329a5e25772eda825ad"/> - <macro name="Sfcutoffpersdata" file="Sfcutoffpersdata.bin" md5="8f232600533c8c553d279fb7999a9aef"/> - <macro name="Sfcutoffrawparadata" file="Sfcutoffrawparadata.bin" md5="b530fdec88ecac05548dcbc183fac672"/> - <macro name="Sfcutoffrawpersdata" file="Sfcutoffrawpersdata.bin" md5="c7dc8aec4aedc1a9e3b88a423b4e4091"/> - <macro name="Sfparadata" file="Sfparadata.bin" md5="636205ff5e7fa28c188beb8a788ec30f"/> - <macro name="Sfpersdata" file="Sfpersdata.bin" md5="2c198aaa68180b41eb0dd81812668a52"/> - <macro name="Shade" file="Shade.bin" md5="09675938f324e2c22fe2b6e5dd0db554"/> - <macro name="Skeleton2data" file="Skeleton2data.bin" md5="046308bb7c2d18186a5db1abf5724ace"/> - <macro name="Skeletonpara3data" file="Skeletonpara3data.bin" md5="8b00d1898174de20f097983ad72f96d9"/> - <macro name="Skeletonparadata" file="Skeletonparadata.bin" md5="6368394d29bd3e34c9dadbc54dd49755"/> - <macro name="Skeletonpers3data" file="Skeletonpers3data.bin" md5="62a627cd77291d934150cbe175d9ec06"/> - <macro name="Skeletonpersdata" file="Skeletonpersdata.bin" md5="63663e9c381325970209a62a00877361"/> - <macro name="Spacecurve" file="Spacecurve.bin" md5="e06c5eb2ae8623cee4fe135d6ed8d2a5"/> - <macro name="Spaceline" file="Spaceline.bin" md5="bcdf09d58fde1a3071968c7600cbcadc"/> - <macro name="Splinedata" file="Splinedata.bin" md5="c8cac41f49166b548f6bb20eb765f513"/> - <macro name="Strop" file="Strop.bin" md5="b3e20bfeaaf10aa827ec9be26865547b"/> - <macro name="Subs" file="Subs.bin" md5="daa0438a2d34af2d043c50b3d2a00a01"/> - <macro name="Sumfun" file="Sumfun.bin" md5="0a785d3c30c763778e1f92d3b8fb785e"/> - <macro name="Symb3data" file="Symb3data.bin" md5="ba72252ea118f44b847927d0de9b9892"/> - <macro name="Symbdata" file="Symbdata.bin" md5="53c196c0ca5f9026e4cd441e0d6586ed"/> - <macro name="Tabledata" file="Tabledata.bin" md5="b79bdcd7c171ab768e763d26d9b4f6a1"/> - <macro name="Texcom" file="Texcom.bin" md5="dc0139e9541acb939d1c3839a0fc11f6"/> - <macro name="Texctr" file="Texctr.bin" md5="5f23e09b23191bec07cb10b070d5c66b"/> - <macro name="Texelse" file="Texelse.bin" md5="f8b67c8497e8dd9ac1dbcc5a90fc930c"/> - <macro name="Texend" file="Texend.bin" md5="351105e6dd3c5c171f0944030fba69c4"/> - <macro name="Texendfor" file="Texendfor.bin" md5="7d1005515ed98a776c7c9a00a2a970d8"/> - <macro name="Texendif" file="Texendif.bin" md5="6323c9cf98ac4c1d6e01bef2dadc6614"/> - <macro name="Texfor" file="Texfor.bin" md5="0ade87f95e63dadbdbfe35efbca00e86"/> - <macro name="Texforinit" file="Texforinit.bin" md5="6e96556a978535b632dba9e33b9551b3"/> - <macro name="Texif" file="Texif.bin" md5="db3af265fced379c5bc2a35dcd661aef"/> - <macro name="Texletter" file="Texletter.bin" md5="7a7ebe58bae97a3a17d646d1c7a9e1da"/> - <macro name="Texnewcmd" file="Texnewcmd.bin" md5="b4f314f440314e77d8c93385172eb5e1"/> - <macro name="Texnewctr" file="Texnewctr.bin" md5="86756d50c10bcf8359c1a924e6e1004d"/> - <macro name="Texrenewcmd" file="Texrenewcmd.bin" md5="90e63f10dd735a7263da2cb8661692c7"/> - <macro name="Texsetctr" file="Texsetctr.bin" md5="8d9cd50bcb9304e25e27ac7818c9b047"/> - <macro name="Texthectr" file="Texthectr.bin" md5="b74d5106ff432a8c84dfd3e8baf9402f"/> - <macro name="Texvalctr" file="Texvalctr.bin" md5="6a789e4941c736527f57d75d1ba26123"/> - <macro name="Texvctr" file="Texvctr.bin" md5="05e1f689e4002ca0b53c1b7674d814e0"/> - <macro name="Thetadegree" file="Thetadegree.bin" md5="0ff4846aaeb83b20683ec4d4b60ed98f"/> - <macro name="ThisVersion" file="ThisVersion.bin" md5="5d9fc94c56eb694d62a16b1f7a6a9d04"/> - <macro name="Tolist" file="Tolist.bin" md5="65c83ab06c83674c70f46e0f402d3580"/> - <macro name="Translate3data" file="Translate3data.bin" md5="38c5bcaf8d3659c75cd7cf335d26196b"/> - <macro name="Translatedata" file="Translatedata.bin" md5="17b85cc7ed17d1f260cf758ead8dc0ab"/> - <macro name="Trunc" file="Trunc.bin" md5="7a6a605bcba822854e4c917fe41db659"/> - <macro name="Unscaling" file="Unscaling.bin" md5="08ee317471c47d086c9404e47955b17b"/> - <macro name="Vecnagasa" file="Vecnagasa.bin" md5="aaeae5f1a186bba7b2c357a2c77ce2a1"/> - <macro name="Vecnagasa2" file="Vecnagasa2.bin" md5="41c4c41904d6b87a9844d20fd860a6cb"/> - <macro name="Viewfrom" file="Viewfrom.bin" md5="fe4685d5db0abf45a31b2b643b20c23f"/> - <macro name="Vtickmark" file="Vtickmark.bin" md5="375b4bc294d26ab3b7d30f8fbd4bfad7"/> - <macro name="Windisp" file="Windisp.bin" md5="1e48a32bf2ea244b701fb5bb63ea18f4"/> - <macro name="WireHiddenData" file="WireHiddenData.bin" md5="7fb2be220f2c6dfefea57e5a9acf9145"/> - <macro name="WirePt" file="WirePt.bin" md5="0936e8dd2f3ca890efaf0b274aa64d96"/> - <macro name="Wireparadata" file="Wireparadata.bin" md5="60a5c112230c8cb7ebd803304b1b17b7"/> - <macro name="Wirepersdata" file="Wirepersdata.bin" md5="b2696b1685c9456c6857fbdd1424256a"/> - <macro name="Wirerawparadata" file="Wirerawparadata.bin" md5="e770b9a2bce4c8804fc62a5191be1545"/> - <macro name="Wirerawpersdata" file="Wirerawpersdata.bin" md5="f254f9cad0b02b01e7388fbbb433bcc4"/> - <macro name="WriteOutData" file="WriteOutData.bin" md5="55682f0605917544dd41d2c25f24786c"/> - <macro name="Writeobjpoint" file="Writeobjpoint.bin" md5="24c598f95cc38899d5cf5d3048a9e263"/> - <macro name="Writetextdata" file="Writetextdata.bin" md5="b1da333518052fedb658e0827833a54f"/> - <macro name="WritetoCindy" file="WritetoCindy.bin" md5="c8a05614d69d73bd4aa3c562cf479872"/> - <macro name="Xmax" file="Xmax.bin" md5="87038803908d553ab8de412b410887dd"/> - <macro name="Xmin" file="Xmin.bin" md5="eae15ed2438d2805a6ad488cf22b75e8"/> - <macro name="Xyzax3data" file="Xyzax3data.bin" md5="633e040e19b435e55bb66dbc4f231117"/> - <macro name="Xyzaxparaname" file="Xyzaxparaname.bin" md5="8fa701d6b92b478a97ed8b4e263c9a18"/> - <macro name="Xyzaxpersname" file="Xyzaxpersname.bin" md5="1e9573e9452267842a7907f30661e902"/> - <macro name="Ymax" file="Ymax.bin" md5="4ab8eccdba393b4c41a45d38f97faf88"/> - <macro name="Ymin" file="Ymin.bin" md5="5dedfdfc18e01299ea069b578be8b697"/> - <macro name="Zparapt" file="Zparapt.bin" md5="e16dd6e761c2e8ec7eb31da49d7a3b96"/> - <macro name="Zperspt" file="Zperspt.bin" md5="b04d5677e9ee74a1cbff3ad73c9d2a20"/> -</scilablib> |