diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6')
690 files changed, 0 insertions, 17385 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.bin Binary files differdeleted file mode 100644 index 04ec361b..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.sci deleted file mode 100755 index c940a543..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Anglemark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.bin Binary files differdeleted file mode 100644 index 9e505d61..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci deleted file mode 100755 index 6deb302c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Arrowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.bin Binary files differdeleted file mode 100644 index fa50bd08..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.sci deleted file mode 100755 index f6ac6ef2..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Arrowhead.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.bin Binary files differdeleted file mode 100644 index bbd95348..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.sci deleted file mode 100755 index 9073ca6e..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.bin Binary files differdeleted file mode 100644 index 99f58621..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.sci deleted file mode 100755 index 68dfe27c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Arrowline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.bin Binary files differdeleted file mode 100644 index dec6b519..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.sci deleted file mode 100755 index 881662b1..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Assign.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.bin Binary files differdeleted file mode 100644 index a4ad2b27..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.sci deleted file mode 100755 index 8d9201cc..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Assignadd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.bin Binary files differdeleted file mode 100644 index c6c202fa..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.sci deleted file mode 100755 index d8883e6c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Assignrep.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.bin Binary files differdeleted file mode 100644 index 3e962180..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.sci deleted file mode 100755 index 0a362b01..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Assignset.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.bin Binary files differdeleted file mode 100644 index 04246041..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.sci deleted file mode 100755 index bb77c105..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Beginpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.bin Binary files differdeleted file mode 100644 index aa6d94ab..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.sci deleted file mode 100755 index f93e3200..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Bezier.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.bin Binary files differdeleted file mode 100644 index 4de26d03..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.sci deleted file mode 100644 index 7d1993eb..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Bezierpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.bin Binary files differdeleted file mode 100644 index 53d89112..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.sci deleted file mode 100644 index ac639249..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.bin Binary files differdeleted file mode 100644 index 2c743976..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.sci deleted file mode 100755 index dac12561..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/BorderPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.bin Binary files differdeleted file mode 100644 index 6fb6e54e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.sci deleted file mode 100755 index 12947bcd..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Borderparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.bin Binary files differdeleted file mode 100644 index 1e0a62fc..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.sci deleted file mode 100755 index 2e944821..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.bin Binary files differdeleted file mode 100644 index 2a4cc650..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.sci deleted file mode 100755 index f86ddfa0..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.bin Binary files differdeleted file mode 100644 index fb44560f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.sci deleted file mode 100755 index 657efc23..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Bowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.bin Binary files differdeleted file mode 100644 index a5819013..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.sci deleted file mode 100755 index 48154cf1..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.bin Binary files differdeleted file mode 100644 index b212c380..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.sci deleted file mode 100755 index 5157c111..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Bowname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.bin Binary files differdeleted file mode 100644 index 7286b547..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci deleted file mode 100755 index f57c4961..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Bownamerot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.bin Binary files differdeleted file mode 100644 index b66d56a9..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.sci deleted file mode 100755 index 8d1edf78..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/CalcHeight.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.bin Binary files differdeleted file mode 100644 index dd6d1a9c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci deleted file mode 100755 index aa1216dd..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/CalcWidth.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.bin Binary files differdeleted file mode 100644 index cba76bac..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.sci deleted file mode 100755 index 111e9b3b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Calcfun.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.bin Binary files differdeleted file mode 100644 index 4fdb507e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.sci deleted file mode 100755 index 30c646a6..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/CameraCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.bin Binary files differdeleted file mode 100644 index 5227aec7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.sci deleted file mode 100755 index fcc7687c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.bin Binary files differdeleted file mode 100644 index dfe76941..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.sci deleted file mode 100755 index 310ac166..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.bin Binary files differdeleted file mode 100644 index 58fd0152..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.sci deleted file mode 100644 index 1574d812..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.bin Binary files differdeleted file mode 100644 index 57e2e49c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.sci deleted file mode 100755 index b63aba5c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Circledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.bin Binary files differdeleted file mode 100644 index 0b9ca934..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci deleted file mode 100755 index 2148c061..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Clipindomain.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.bin Binary files differdeleted file mode 100644 index 374f6316..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.sci deleted file mode 100755 index bf9572c5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Closefile.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.bin Binary files differdeleted file mode 100644 index 991de452..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci deleted file mode 100755 index f2928103..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Closeobj.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.bin Binary files differdeleted file mode 100644 index d8f4d64d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.sci deleted file mode 100644 index da7c3850..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Closepar.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.bin Binary files differdeleted file mode 100644 index 0e0991c3..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.sci deleted file mode 100755 index 64b93e1a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Closephr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.bin Binary files differdeleted file mode 100644 index 6bffbf74..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.sci deleted file mode 100755 index 39b363f6..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Closepicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.bin Binary files differdeleted file mode 100644 index c0c13ad5..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.sci deleted file mode 100755 index a3f345cb..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Connectseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.bin Binary files differdeleted file mode 100644 index 7504d934..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.sci deleted file mode 100755 index 2abe8c90..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Crossprod.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.bin Binary files differdeleted file mode 100644 index c22f1e9e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.sci deleted file mode 100755 index ab4d55b5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin Binary files differdeleted file mode 100644 index 9de876b4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci deleted file mode 100755 index 07c17303..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin Binary files differdeleted file mode 100644 index b2cafb90..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci deleted file mode 100755 index ba168b71..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin Binary files differdeleted file mode 100644 index 55aa8c1f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci deleted file mode 100755 index 5fc40737..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin Binary files differdeleted file mode 100644 index 5269bbf1..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci deleted file mode 100755 index 9d97b3ce..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.bin Binary files differdeleted file mode 100644 index 69551af4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci deleted file mode 100755 index a530284b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin Binary files differdeleted file mode 100644 index 48451c6b..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci deleted file mode 100755 index f3bdf700..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin Binary files differdeleted file mode 100644 index 110cf0de..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci deleted file mode 100755 index 0081b20c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.bin Binary files differdeleted file mode 100644 index b759eff5..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.sci deleted file mode 100755 index a87506d2..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.bin Binary files differdeleted file mode 100644 index af00090e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.sci deleted file mode 100755 index 7e24efcb..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/CuspData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.bin Binary files differdeleted file mode 100644 index e6820112..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.sci deleted file mode 100755 index 8c2b6eee..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/CuspPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.bin Binary files differdeleted file mode 100644 index a31b8fa0..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.sci deleted file mode 100755 index 33f1d807..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.bin Binary files differdeleted file mode 100644 index 040b5f3e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.sci deleted file mode 100755 index 07cbb09b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.bin Binary files differdeleted file mode 100644 index 333137e7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.sci deleted file mode 100755 index 0ea935b6..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.bin Binary files differdeleted file mode 100644 index d5f47f89..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.sci deleted file mode 100755 index a8221f5b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.bin Binary files differdeleted file mode 100644 index d9fb0edd..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.sci deleted file mode 100755 index fa26b319..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Dashline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.bin Binary files differdeleted file mode 100644 index dc144378..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.sci deleted file mode 100755 index 1df8e5e3..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Dataindex.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.bin Binary files differdeleted file mode 100644 index b64a96c8..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.sci deleted file mode 100755 index 82e9ac48..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Definecolor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.bin Binary files differdeleted file mode 100644 index 7ffb898a..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.sci deleted file mode 100644 index b06ac44b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Deqplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.bin Binary files differdeleted file mode 100644 index a2f5f722..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.sci deleted file mode 100755 index 43d8ea6e..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Derivative.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.bin Binary files differdeleted file mode 100644 index c30c8ae4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.sci deleted file mode 100755 index cbffc3d7..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.bin Binary files differdeleted file mode 100644 index 6f9d2eaf..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci deleted file mode 100755 index b6a53b62..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.bin Binary files differdeleted file mode 100644 index 76090b77..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.sci deleted file mode 100755 index be16b473..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Dividetable.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.bin Binary files differdeleted file mode 100644 index f65a407d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.sci deleted file mode 100644 index 36531da2..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Doscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.bin Binary files differdeleted file mode 100644 index 921b0546..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.sci deleted file mode 100755 index 5054faf2..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.bin Binary files differdeleted file mode 100644 index 9b3d417e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.sci deleted file mode 100755 index fc2847c7..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Dotprod.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.bin Binary files differdeleted file mode 100644 index 2e5b0eb1..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.sci deleted file mode 100755 index dc35fde5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Dottedline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.bin Binary files differdeleted file mode 100644 index 6f85f204..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.sci deleted file mode 100755 index 253d5d75..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.bin Binary files differdeleted file mode 100644 index 5576b57e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.sci deleted file mode 100755 index c4d9b86a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin Binary files differdeleted file mode 100644 index 14cf5d76..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci deleted file mode 100755 index 3a06be00..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Droppoint.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.bin Binary files differdeleted file mode 100644 index 155b2072..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci deleted file mode 100755 index 84fd6daa..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Drwline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.bin Binary files differdeleted file mode 100644 index 86d3110c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.sci deleted file mode 100755 index 60f0da1a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Drwpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.bin Binary files differdeleted file mode 100644 index 02e88bd7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.sci deleted file mode 100755 index 5df4a877..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Drwxy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.bin Binary files differdeleted file mode 100644 index 6d275fab..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.sci deleted file mode 100755 index b091754f..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Embed.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.bin Binary files differdeleted file mode 100644 index e3e99cfd..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.sci deleted file mode 100755 index 9b67e366..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Enclosing.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.bin Binary files differdeleted file mode 100644 index 6a5a9096..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci deleted file mode 100755 index bfc191b9..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/EnclosingS.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.bin Binary files differdeleted file mode 100644 index a5f0596e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.sci deleted file mode 100755 index cded7ef2..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Endpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.bin Binary files differdeleted file mode 100644 index ceb0ffb6..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.sci deleted file mode 100755 index ff4a3c43..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.bin Binary files differdeleted file mode 100644 index 38c7da86..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.sci deleted file mode 100755 index b9c86eef..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.bin Binary files differdeleted file mode 100644 index 775dd55e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.sci deleted file mode 100755 index 15ddd0a8..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Execmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.bin Binary files differdeleted file mode 100644 index 44e39527..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.sci deleted file mode 100755 index 2a4d1491..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Expr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.bin Binary files differdeleted file mode 100644 index b58e53fd..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.sci deleted file mode 100755 index 5b9df24b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Exprrot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.bin Binary files differdeleted file mode 100644 index 17904d7a..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci deleted file mode 100755 index d51dfa91..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.bin Binary files differdeleted file mode 100644 index 5095cc06..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.sci deleted file mode 100755 index ae0bea54..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.bin Binary files differdeleted file mode 100644 index ea9738c8..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.sci deleted file mode 100755 index 7dc8bef1..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Facesdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.bin Binary files differdeleted file mode 100644 index 84ab9833..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.sci deleted file mode 100755 index 0ed2f249..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Facesdata0.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.bin Binary files differdeleted file mode 100644 index 82821a8b..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.sci deleted file mode 100755 index c300cf6e..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Findcell.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.bin Binary files differdeleted file mode 100644 index ade40fbf..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.sci deleted file mode 100755 index 062fcc5c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Flattenlist.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.bin Binary files differdeleted file mode 100644 index 31e5d594..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.sci deleted file mode 100755 index 903679ab..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Fontsize.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.bin Binary files differdeleted file mode 100644 index 10387e38..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.sci deleted file mode 100755 index 218b599f..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.bin Binary files differdeleted file mode 100644 index e718a4ba..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.sci deleted file mode 100755 index af259244..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.bin Binary files differdeleted file mode 100644 index 59f91f6c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.sci deleted file mode 100755 index 2d0d840b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Fouriersum.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.bin Binary files differdeleted file mode 100644 index bf840511..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.sci deleted file mode 100755 index 6182f4a7..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Fracform.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.bin Binary files differdeleted file mode 100644 index 478d4e52..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.sci deleted file mode 100755 index 437ff122..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Framedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.bin Binary files differdeleted file mode 100644 index 442df592..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci deleted file mode 100755 index 071f7381..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.bin Binary files differdeleted file mode 100644 index b86c79cf..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci deleted file mode 100755 index 97ddae5b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Gaiseki.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.bin Binary files differdeleted file mode 100644 index 5ada2529..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.sci deleted file mode 100755 index 3d17995e..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Getcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.bin Binary files differdeleted file mode 100644 index 9dbd0923..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.sci deleted file mode 100755 index ca4e0d2a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Gettrace.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.bin Binary files differdeleted file mode 100644 index b99800fe..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.sci deleted file mode 100755 index 5395d885..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Hatchdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.bin Binary files differdeleted file mode 100644 index d688039f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.sci deleted file mode 100755 index 236287ef..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.bin Binary files differdeleted file mode 100644 index fed0c2c1..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.sci deleted file mode 100644 index 7bc05ed9..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.bin Binary files differdeleted file mode 100644 index 09289136..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.sci deleted file mode 100755 index 2ead122d..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Htickmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.bin Binary files differdeleted file mode 100644 index 86cae9a7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.sci deleted file mode 100644 index ab8a54b6..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/ImplicitData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.bin Binary files differdeleted file mode 100644 index 6334287e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.sci deleted file mode 100755 index ae02fee1..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Implicitplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.bin Binary files differdeleted file mode 100644 index 6336bf4c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.sci deleted file mode 100755 index b0715484..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/InWindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.bin Binary files differdeleted file mode 100644 index da2db1f4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.sci deleted file mode 100755 index 9dacd30c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Initangle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.bin Binary files differdeleted file mode 100644 index ac64c46b..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.sci deleted file mode 100755 index d5e09ff4..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Integrate.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.bin Binary files differdeleted file mode 100644 index b26672c0..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.sci deleted file mode 100755 index abd3377f..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.bin Binary files differdeleted file mode 100644 index 3ff5a305..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.sci deleted file mode 100755 index 59b4fdcc..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin Binary files differdeleted file mode 100644 index 348451cf..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci deleted file mode 100755 index a1218d06..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.bin Binary files differdeleted file mode 100644 index 3d7069f0..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.sci deleted file mode 100755 index 2a2e5b6c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Intersectlines.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.bin Binary files differdeleted file mode 100644 index bebf87c5..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.sci deleted file mode 100755 index ed92a5aa..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.bin Binary files differdeleted file mode 100644 index 5f0cad0f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.sci deleted file mode 100755 index 4b246e95..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Invdashline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.bin Binary files differdeleted file mode 100644 index e3bc6bf4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.sci deleted file mode 100644 index bf6f976f..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Invert.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.bin Binary files differdeleted file mode 100644 index 2e870385..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.sci deleted file mode 100755 index 9f9f9d95..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Invparapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.bin Binary files differdeleted file mode 100644 index c92f5024..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.sci deleted file mode 100755 index 4d7863b1..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Invperspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.bin Binary files differdeleted file mode 100644 index 073bbdca..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.sci deleted file mode 100755 index c2c35355..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Joincrvs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.bin Binary files differdeleted file mode 100644 index b44d17eb..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.sci deleted file mode 100755 index 04aaf4eb..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Joingraphics.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.bin Binary files differdeleted file mode 100644 index c7b88175..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci deleted file mode 100755 index 78cd46e5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ketinit.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.bin Binary files differdeleted file mode 100644 index 140d9028..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.sci deleted file mode 100755 index bbe02e62..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Kouten.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.bin Binary files differdeleted file mode 100644 index f5871542..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.sci deleted file mode 100755 index c12b721e..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/KoutenList.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.bin Binary files differdeleted file mode 100644 index f5b67546..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.sci deleted file mode 100755 index 82cf1e2c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Koutenseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.bin Binary files differdeleted file mode 100644 index be93baf3..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.sci deleted file mode 100755 index 371807fa..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.bin Binary files differdeleted file mode 100644 index 7535fd2e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.sci deleted file mode 100755 index 0e38dae7..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.bin Binary files differdeleted file mode 100644 index 656dd42d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.sci deleted file mode 100755 index 4e38175f..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.bin Binary files differdeleted file mode 100644 index a45aa2e3..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci deleted file mode 100755 index a07a89d1..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Kyoukai.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.bin Binary files differdeleted file mode 100644 index 07c938a3..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.sci deleted file mode 100755 index 4090c2da..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Letter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.bin Binary files differdeleted file mode 100644 index 41551ef5..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.sci deleted file mode 100755 index 7a7a4b78..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Letterrot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.bin Binary files differdeleted file mode 100644 index 53dcb238..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.sci deleted file mode 100755 index f99917cf..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Lineplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.bin Binary files differdeleted file mode 100644 index 3acfa7aa..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci deleted file mode 100755 index bc44c2e9..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Listplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.bin Binary files differdeleted file mode 100644 index e2ea3688..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.sci deleted file mode 100755 index 0bc9f736..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.bin Binary files differdeleted file mode 100644 index 10970e3d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.sci deleted file mode 100755 index 27e70d48..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/MakeCurves.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.bin Binary files differdeleted file mode 100644 index 1e4a9df1..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.sci deleted file mode 100755 index f3bbd3ec..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.bin Binary files differdeleted file mode 100644 index 8d2516c2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci deleted file mode 100755 index 81b0492f..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Makehasen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.bin Binary files differdeleted file mode 100644 index b2f34062..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.sci deleted file mode 100755 index 3f768e87..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Makeliststr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.bin Binary files differdeleted file mode 100644 index 1c9d8f4d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.sci deleted file mode 100755 index e9915e1b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin Binary files differdeleted file mode 100644 index bafa4670..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci deleted file mode 100755 index e24525e1..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Makeshasen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.bin Binary files differdeleted file mode 100644 index c4f4d4c5..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.sci deleted file mode 100755 index 443751be..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.bin Binary files differdeleted file mode 100644 index 102b44b6..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.sci deleted file mode 100755 index 99ad5910..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin Binary files differdeleted file mode 100644 index 0082bcd5..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci deleted file mode 100755 index 4838d658..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Makevaltable.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.bin Binary files differdeleted file mode 100644 index 37e149ff..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.sci deleted file mode 100755 index dc917f30..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.bin Binary files differdeleted file mode 100644 index 82acb406..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci deleted file mode 100755 index a16a5a4d..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Makexybdy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.bin Binary files differdeleted file mode 100644 index 7c309bf0..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.sci deleted file mode 100644 index fb8aa27b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.bin Binary files differdeleted file mode 100644 index 86b2954f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.sci deleted file mode 100755 index 11b02c63..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/MeetWindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.bin Binary files differdeleted file mode 100644 index 78d328fc..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.sci deleted file mode 100755 index 65f543ea..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Meetpoints.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.bin Binary files differdeleted file mode 100644 index ebe3ead9..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.sci deleted file mode 100755 index 65ba1166..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Member.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.bin Binary files differdeleted file mode 100644 index 711c4fc4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.sci deleted file mode 100755 index 79826f90..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Menkakusi.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.bin Binary files differdeleted file mode 100644 index 9cb3477e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.sci deleted file mode 100755 index de8d4b0d..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.bin Binary files differdeleted file mode 100644 index e8361324..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.sci deleted file mode 100755 index 43eab74b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Mix.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.bin Binary files differdeleted file mode 100644 index acc02ec0..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.sci deleted file mode 100755 index 4f06c437..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/MixL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.bin Binary files differdeleted file mode 100644 index 50f6189c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.sci deleted file mode 100755 index daf5a2d9..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/MixS.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.bin Binary files differdeleted file mode 100644 index 2372bb1f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.sci deleted file mode 100755 index 623af493..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Mixadd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.bin Binary files differdeleted file mode 100644 index 0dbd5427..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.sci deleted file mode 100755 index 8d45fea1..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Mixdisp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.bin Binary files differdeleted file mode 100644 index 45325b78..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.sci deleted file mode 100755 index 2fed1197..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Mixjoin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.bin Binary files differdeleted file mode 100644 index 6ed0a2a6..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.sci deleted file mode 100755 index d6e49c14..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Mixlength.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.bin Binary files differdeleted file mode 100644 index b601884d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.sci deleted file mode 100755 index 6fd31749..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Mixmake.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.bin Binary files differdeleted file mode 100644 index c607a109..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.sci deleted file mode 100755 index 7f05a2ab..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Mixop.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.bin Binary files differdeleted file mode 100644 index 9aa1f9f1..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.sci deleted file mode 100755 index 10c846dc..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Mixsub.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.bin Binary files differdeleted file mode 100644 index e2b2ba6a..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.sci deleted file mode 100755 index e3e281f3..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Mixtype.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.bin Binary files differdeleted file mode 100644 index 4d786a5d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.sci deleted file mode 100755 index b336c763..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Naigai.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.bin Binary files differdeleted file mode 100644 index aa1e8c72..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.sci deleted file mode 100755 index 8a4f0557..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Naiseki.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.bin Binary files differdeleted file mode 100644 index 0c5dc7b1..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.sci deleted file mode 100755 index 193ad384..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Nearestpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.bin Binary files differdeleted file mode 100644 index 59d31369..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.sci deleted file mode 100755 index a404370a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Newlength.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.bin Binary files differdeleted file mode 100644 index 038306fb..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.sci deleted file mode 100755 index 9e0227e8..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.bin Binary files differdeleted file mode 100644 index 701b77db..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.sci deleted file mode 100755 index 3826b281..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.bin Binary files differdeleted file mode 100644 index cbc317ca..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.sci deleted file mode 100755 index 996559db..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.bin Binary files differdeleted file mode 100644 index 1ad435a7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.sci deleted file mode 100755 index 140516b1..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.bin Binary files differdeleted file mode 100644 index 7de094a4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.sci deleted file mode 100644 index d49bce91..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Numptcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.bin Binary files differdeleted file mode 100644 index dff5f719..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.sci deleted file mode 100755 index dad4f4ef..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Objcurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.bin Binary files differdeleted file mode 100644 index 544abced..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.sci deleted file mode 100644 index 20a86640..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Objjoin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.bin Binary files differdeleted file mode 100644 index 9b530ae6..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.sci deleted file mode 100644 index e8a80ff3..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Objname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.bin Binary files differdeleted file mode 100644 index c1e415ab..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.sci deleted file mode 100644 index 6c523fc2..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Objpolygon.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.bin Binary files differdeleted file mode 100644 index ad6e0eba..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci deleted file mode 100644 index ba5b346a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.bin Binary files differdeleted file mode 100644 index a0fdf444..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci deleted file mode 100644 index c33e23a8..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Objrecs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.bin Binary files differdeleted file mode 100644 index 4f7b55de..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.sci deleted file mode 100644 index d8775fb3..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Objsurf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.bin Binary files differdeleted file mode 100644 index 122e0986..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.sci deleted file mode 100644 index 15543b8a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Objsymb.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.bin Binary files differdeleted file mode 100644 index 733ab14d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.sci deleted file mode 100644 index 808924a4..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.bin Binary files differdeleted file mode 100644 index 6c85bcca..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.sci deleted file mode 100644 index 42fde6a5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Op.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.bin Binary files differdeleted file mode 100644 index e90f633d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.sci deleted file mode 100755 index 519bc9da..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Openfile.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.bin Binary files differdeleted file mode 100644 index 3935c2e7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.sci deleted file mode 100755 index 4007e1b3..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Openobj.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.bin Binary files differdeleted file mode 100644 index e72281c1..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci deleted file mode 100644 index e902ce5d..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Openpar.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.bin Binary files differdeleted file mode 100644 index a8d4c7fc..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.sci deleted file mode 100755 index a3056f66..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Openphr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.bin Binary files differdeleted file mode 100644 index f9d281d0..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.sci deleted file mode 100755 index 461549e9..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Openpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.bin Binary files differdeleted file mode 100644 index 877c0a04..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.sci deleted file mode 100755 index edf043ca..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ovalbox.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.bin Binary files differdeleted file mode 100644 index eca8a277..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.sci deleted file mode 100755 index 8889de32..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ovaldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.bin Binary files differdeleted file mode 100644 index a33c17e9..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.sci deleted file mode 100644 index 823fc8c4..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Paramark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.bin Binary files differdeleted file mode 100644 index e86a5592..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.sci deleted file mode 100755 index 82ac7c4f..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.bin Binary files differdeleted file mode 100644 index 3479482b..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.sci deleted file mode 100755 index ce7e0d76..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.bin Binary files differdeleted file mode 100644 index d3aeafcc..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.sci deleted file mode 100755 index 83661787..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Paramplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.bin Binary files differdeleted file mode 100644 index 79569617..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.sci deleted file mode 100755 index 4e3effdc..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Parapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.bin Binary files differdeleted file mode 100644 index 468a99cd..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.sci deleted file mode 100755 index 5adb4837..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Partcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.bin Binary files differdeleted file mode 100644 index a488103c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.sci deleted file mode 100755 index 0b4844df..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Partcrv3.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.bin Binary files differdeleted file mode 100644 index 5b652d87..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.sci deleted file mode 100755 index 5b3cd178..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Partframe.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.bin Binary files differdeleted file mode 100644 index 1678ce6b..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.sci deleted file mode 100644 index a8581b1b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/PartitionPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.bin Binary files differdeleted file mode 100644 index 13e1cb62..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.sci deleted file mode 100755 index 15d74ec4..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Partitionseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.bin Binary files differdeleted file mode 100644 index 7e736e20..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.sci deleted file mode 100755 index 39c23c45..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Perspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.bin Binary files differdeleted file mode 100644 index e07e8ade..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.sci deleted file mode 100755 index eb689ffe..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/PhFaceL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.bin Binary files differdeleted file mode 100644 index c7fb3404..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.sci deleted file mode 100755 index ea2c8e28..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.bin Binary files differdeleted file mode 100644 index 162ba3f6..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.sci deleted file mode 100755 index d5333cd1..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/PhVertexL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.bin Binary files differdeleted file mode 100644 index 7c4526ca..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.sci deleted file mode 100755 index 1eae4bc9..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phcutdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.bin Binary files differdeleted file mode 100644 index 767e453e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.sci deleted file mode 100755 index 9c7806f5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.bin Binary files differdeleted file mode 100644 index 5e7c757a..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.sci deleted file mode 100755 index 879067ce..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phidegree.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.bin Binary files differdeleted file mode 100644 index 2e8372d4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.sci deleted file mode 100755 index 02fe98a5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.bin Binary files differdeleted file mode 100644 index f048d289..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.sci deleted file mode 100755 index 835c173e..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.bin Binary files differdeleted file mode 100644 index fd962e37..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.sci deleted file mode 100755 index e422b6fc..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.bin Binary files differdeleted file mode 100644 index ab558ee1..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.sci deleted file mode 100755 index c4c79c26..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.bin Binary files differdeleted file mode 100644 index b07adddd..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.sci deleted file mode 100755 index 29870630..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phsparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.bin Binary files differdeleted file mode 100644 index 5548e0e3..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.sci deleted file mode 100755 index 3c8018e3..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phspersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.bin Binary files differdeleted file mode 100644 index b625f4d4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.sci deleted file mode 100755 index 58ab8101..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.bin Binary files differdeleted file mode 100644 index 7b3c7f0f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.sci deleted file mode 100755 index 6928d928..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.bin Binary files differdeleted file mode 100644 index 0594752f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.sci deleted file mode 100755 index 21677841..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Plotdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.bin Binary files differdeleted file mode 100644 index 7d239bba..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.sci deleted file mode 100755 index fc548f28..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Pointdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.bin Binary files differdeleted file mode 100644 index 73d006ea..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.sci deleted file mode 100755 index 35e2347e..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/PointonCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.bin Binary files differdeleted file mode 100644 index 1914f8a3..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.sci deleted file mode 100755 index fd2a35d0..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.bin Binary files differdeleted file mode 100644 index 69dc99ce..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.sci deleted file mode 100755 index c39cdadc..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Powersum.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.bin Binary files differdeleted file mode 100644 index f85dfeb2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.sci deleted file mode 100755 index b23dfdc8..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Prime.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.bin Binary files differdeleted file mode 100644 index 54fceb67..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.sci deleted file mode 100755 index bc866928..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Printobjstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.bin Binary files differdeleted file mode 100644 index 3e8d6ca7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.sci deleted file mode 100644 index bf137751..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/ProjCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.bin Binary files differdeleted file mode 100644 index 22cf9f20..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.sci deleted file mode 100755 index bbe28c12..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.bin Binary files differdeleted file mode 100644 index 1a815b50..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.sci deleted file mode 100755 index 74c552a6..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Projpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.bin Binary files differdeleted file mode 100644 index c78a60ff..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.sci deleted file mode 100755 index 82feeff2..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Projpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.bin Binary files differdeleted file mode 100644 index fe160426..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.sci deleted file mode 100755 index b43451a9..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ptcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.bin Binary files differdeleted file mode 100644 index 6ba89403..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.sci deleted file mode 100755 index 78776d7b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ptend.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.bin Binary files differdeleted file mode 100644 index 9cc74d07..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.sci deleted file mode 100755 index d16ebf80..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.bin Binary files differdeleted file mode 100644 index f195927d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.sci deleted file mode 100755 index 98f2ca94..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ptne.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.bin Binary files differdeleted file mode 100644 index 00ce8734..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.sci deleted file mode 100755 index f6452897..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ptnw.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.bin Binary files differdeleted file mode 100644 index d8c23898..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.sci deleted file mode 100755 index e3cd5ebc..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ptse.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.bin Binary files differdeleted file mode 100644 index 19bd2ccc..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.sci deleted file mode 100755 index fe5e52b9..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ptstart.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.bin Binary files differdeleted file mode 100644 index c87076aa..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.sci deleted file mode 100755 index f94437cf..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.sci +++ /dev/null @@ -1,4 +0,0 @@ -function P=Ptstart(Fig) - P=Fig(1,:) -endfunction - diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.bin Binary files differdeleted file mode 100644 index df35b82c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.sci deleted file mode 100755 index 5b0a3474..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Putcell.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.bin Binary files differdeleted file mode 100644 index baf3e29f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci deleted file mode 100755 index e0020f0b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Putcirmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.bin Binary files differdeleted file mode 100644 index 3a9d0634..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.sci deleted file mode 100755 index 63bc151f..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/PutcoL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.bin Binary files differdeleted file mode 100644 index b7994dc4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.sci deleted file mode 100755 index 41b9a1b6..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.bin Binary files differdeleted file mode 100644 index 304768e4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.sci deleted file mode 100755 index 0e2f9d0a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.bin Binary files differdeleted file mode 100644 index 153f9afd..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci deleted file mode 100755 index b993ffa9..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Putdashmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.bin Binary files differdeleted file mode 100644 index f48d783b..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.sci deleted file mode 100755 index 8d732a9d..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Putrecmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.bin Binary files differdeleted file mode 100644 index ae7f9955..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.sci deleted file mode 100755 index ce63e542..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Putrow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.bin Binary files differdeleted file mode 100644 index 9e4117c2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci deleted file mode 100755 index 0c2c209a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.bin Binary files differdeleted file mode 100644 index f29ca390..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.sci deleted file mode 100755 index 0a3158cc..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Putrowstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.bin Binary files differdeleted file mode 100644 index 32f9675d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci deleted file mode 100755 index d006f3ec..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Puttrace.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.bin Binary files differdeleted file mode 100644 index 30dda6f7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.sci deleted file mode 100755 index a4f1ad89..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.bin Binary files differdeleted file mode 100644 index aa4a60ac..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.sci deleted file mode 100644 index 839452f6..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/ReadOutData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.bin Binary files differdeleted file mode 100644 index 0b858b05..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.sci deleted file mode 100644 index c1656b15..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.bin Binary files differdeleted file mode 100644 index e078ba2f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci deleted file mode 100644 index eaf9f6df..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Readtextdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.bin Binary files differdeleted file mode 100644 index 05df3aa2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.sci deleted file mode 100755 index 7109f789..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Reflectdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.bin Binary files differdeleted file mode 100644 index 2269d9ad..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.sci deleted file mode 100755 index 837a5727..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Rmmember.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.bin Binary files differdeleted file mode 100644 index 1a99c6ca..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.sci deleted file mode 100755 index facea4d5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Rotate3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.bin Binary files differdeleted file mode 100644 index c9391ec5..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.sci deleted file mode 100755 index 9082290d..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.bin Binary files differdeleted file mode 100644 index 35da0ed9..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.sci deleted file mode 100755 index 910aa734..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Rotatedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.bin Binary files differdeleted file mode 100644 index fda8e518..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.sci deleted file mode 100755 index 845cac17..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Roundstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.bin Binary files differdeleted file mode 100644 index dd5656fd..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci deleted file mode 100755 index d14f3b3a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Scaledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.bin Binary files differdeleted file mode 100644 index 7aeb7385..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci deleted file mode 100755 index 7e563f4b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sectionview.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.bin Binary files differdeleted file mode 100644 index 4ebf14d1..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.sci deleted file mode 100755 index e918e475..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setangle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.bin Binary files differdeleted file mode 100644 index 4b102f32..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.sci deleted file mode 100755 index 2a4a3c95..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setarrow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.bin Binary files differdeleted file mode 100644 index 7ea694d9..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.sci deleted file mode 100755 index 8f9d6053..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.bin Binary files differdeleted file mode 100644 index 55e4fb8c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.sci deleted file mode 100755 index 5fab30e2..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setcolor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.bin Binary files differdeleted file mode 100644 index a6d15d9d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.sci deleted file mode 100644 index 51b8e0c3..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.bin Binary files differdeleted file mode 100644 index e8d09380..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.sci deleted file mode 100755 index 4b8b932b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.bin Binary files differdeleted file mode 100644 index b50381fd..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci deleted file mode 100755 index ae713f4e..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setmarklen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.bin Binary files differdeleted file mode 100644 index 1ad13b66..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.sci deleted file mode 100755 index a17c9e95..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.bin Binary files differdeleted file mode 100644 index af675f9c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.sci deleted file mode 100644 index 2ee06cbb..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setobjscale.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.bin Binary files differdeleted file mode 100644 index 5ae9c620..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.sci deleted file mode 100644 index 22f13c4d..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setorigin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.bin Binary files differdeleted file mode 100644 index 05b3c3e2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.sci deleted file mode 100755 index 62a1f624..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setpen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.bin Binary files differdeleted file mode 100644 index fd0d6bd7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.sci deleted file mode 100755 index b3f0cbad..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.bin Binary files differdeleted file mode 100644 index 07e56733..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.sci deleted file mode 100755 index 455551bb..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.bin Binary files differdeleted file mode 100644 index 43792ee3..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.sci deleted file mode 100755 index a3b86b01..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.bin Binary files differdeleted file mode 100644 index 85da2aca..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.sci deleted file mode 100755 index 1d4868c9..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/SetstereoL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.bin Binary files differdeleted file mode 100644 index 4e097b75..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.sci deleted file mode 100755 index cb6c79ae..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/SetstereoR.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.bin Binary files differdeleted file mode 100644 index bf25b018..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.sci deleted file mode 100755 index ff9de892..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setunitlen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.bin Binary files differdeleted file mode 100644 index 455d977f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci deleted file mode 100755 index 84ea4d60..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setversion.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.bin Binary files differdeleted file mode 100644 index a2e35ff2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.sci deleted file mode 100755 index 92883d5a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Setwindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.bin Binary files differdeleted file mode 100644 index 0fdd661f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci deleted file mode 100755 index fb72097b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sf3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.bin Binary files differdeleted file mode 100644 index df965eb7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci deleted file mode 100755 index 9c20a13b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.bin Binary files differdeleted file mode 100644 index a86220d5..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci deleted file mode 100755 index 7a759f69..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.bin Binary files differdeleted file mode 100644 index 304be9f0..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.sci deleted file mode 100755 index 9833a7f4..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin Binary files differdeleted file mode 100644 index cb2d0f7a..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci deleted file mode 100755 index 082ccec3..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin Binary files differdeleted file mode 100644 index 5731c723..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci deleted file mode 100755 index cde6870f..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.bin Binary files differdeleted file mode 100644 index a7dae3c3..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.sci deleted file mode 100755 index 5a15d61c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin Binary files differdeleted file mode 100644 index 07cfe7f8..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci deleted file mode 100755 index 0e4c6a5b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin Binary files differdeleted file mode 100644 index aaf088b5..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci deleted file mode 100755 index c10cdb8d..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin Binary files differdeleted file mode 100644 index b2d998a7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci deleted file mode 100755 index 546f66d8..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin Binary files differdeleted file mode 100644 index 8c08c1b7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci deleted file mode 100755 index e5a387f5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.bin Binary files differdeleted file mode 100644 index 45df29ba..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.sci deleted file mode 100755 index 5aa4e5e5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.bin Binary files differdeleted file mode 100644 index 3350f9b9..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.sci deleted file mode 100755 index ecc63e41..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Shade.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.bin Binary files differdeleted file mode 100644 index 130e2b32..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.sci deleted file mode 100755 index ff22a933..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.bin Binary files differdeleted file mode 100644 index 89d8b459..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.sci deleted file mode 100755 index 4eec31cf..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.bin Binary files differdeleted file mode 100644 index 03fcdda2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.sci deleted file mode 100755 index 5914d47a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.bin Binary files differdeleted file mode 100644 index 913af31d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.sci deleted file mode 100755 index 1270f789..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.bin Binary files differdeleted file mode 100644 index ec2a9bad..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.sci deleted file mode 100755 index 57dde938..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.bin Binary files differdeleted file mode 100644 index 7d2c1a07..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.sci deleted file mode 100755 index c91e73cf..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Spacecurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.bin Binary files differdeleted file mode 100644 index 880f8540..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.sci deleted file mode 100755 index 077a88cb..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Spaceline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.bin Binary files differdeleted file mode 100644 index 86bddaa8..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.sci deleted file mode 100755 index 9fe33c06..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Splinedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.bin Binary files differdeleted file mode 100644 index cadb3d56..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.sci deleted file mode 100755 index a4de85ea..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Strop.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.bin Binary files differdeleted file mode 100644 index de695ff2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.sci deleted file mode 100755 index 8f4da94d..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Subs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.bin Binary files differdeleted file mode 100644 index 2ca7ae03..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci deleted file mode 100755 index 785b605c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Sumfun.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.bin Binary files differdeleted file mode 100644 index 0e796d65..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.sci deleted file mode 100755 index 55fdfd0f..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Symb3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.bin Binary files differdeleted file mode 100644 index c5c00977..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.sci deleted file mode 100644 index 0d649872..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Symbdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.bin Binary files differdeleted file mode 100644 index 2fb81c8f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci deleted file mode 100644 index d63a3470..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Tabledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.bin Binary files differdeleted file mode 100644 index 774b416f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.sci deleted file mode 100755 index 621f6256..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texcom.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.bin Binary files differdeleted file mode 100644 index 97832ff7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.sci deleted file mode 100755 index 9b848315..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.bin Binary files differdeleted file mode 100644 index e04419ed..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci deleted file mode 100755 index 2a8b08ca..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texelse.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.bin Binary files differdeleted file mode 100644 index 30d0e388..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.sci deleted file mode 100755 index 8ef93556..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texend.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.bin Binary files differdeleted file mode 100644 index 89cf7657..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.sci deleted file mode 100755 index a3139873..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texendfor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.bin Binary files differdeleted file mode 100644 index 72f260ac..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.sci deleted file mode 100755 index ecb7b788..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texendif.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.bin Binary files differdeleted file mode 100644 index bd069613..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.sci deleted file mode 100755 index 97d32d85..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texfor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.bin Binary files differdeleted file mode 100644 index b9861fc7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.sci deleted file mode 100755 index 0c239842..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texforinit.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.bin Binary files differdeleted file mode 100644 index 3d33948a..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.sci deleted file mode 100755 index f661c649..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texif.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.bin Binary files differdeleted file mode 100644 index 6f53de74..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.sci deleted file mode 100755 index 8cbae5dc..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texletter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.bin Binary files differdeleted file mode 100644 index 4dea33e2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci deleted file mode 100755 index f83cc8c8..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.bin Binary files differdeleted file mode 100644 index a44b7156..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.sci deleted file mode 100755 index b3b9a417..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texnewctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.bin Binary files differdeleted file mode 100644 index c0acb00b..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.sci deleted file mode 100755 index 03cabf81..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.bin Binary files differdeleted file mode 100644 index 507705b2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.sci deleted file mode 100755 index b8926589..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texsetctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.bin Binary files differdeleted file mode 100644 index d9c2bcae..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.sci deleted file mode 100755 index 166af676..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texthectr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.bin Binary files differdeleted file mode 100644 index 26d4e8ef..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.sci deleted file mode 100755 index 469da91a..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texvalctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.bin Binary files differdeleted file mode 100644 index fd208b4a..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.sci deleted file mode 100755 index 96d1c734..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Texvctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.bin Binary files differdeleted file mode 100644 index 74890021..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.sci deleted file mode 100755 index fc443411..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Thetadegree.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.bin Binary files differdeleted file mode 100644 index 67df224b..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.sci deleted file mode 100755 index c6ceff89..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/ThisVersion.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.bin Binary files differdeleted file mode 100644 index 3cbb70be..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.sci deleted file mode 100755 index a7a3fc2d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=ThisVersion() - global THISVERSION - Y=THISVERSION -endfunction - diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.bin Binary files differdeleted file mode 100644 index a0704ffc..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.sci deleted file mode 100755 index 8ef53bd5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Translate3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.bin Binary files differdeleted file mode 100644 index 55b89eee..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.sci deleted file mode 100755 index 98d69544..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Translatedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.bin Binary files differdeleted file mode 100644 index 2239d9d6..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.sci deleted file mode 100755 index a2e31085..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Trunc.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.bin Binary files differdeleted file mode 100644 index 4d0816a4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.sci deleted file mode 100755 index b4705593..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Unscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.bin Binary files differdeleted file mode 100644 index c9d8edf5..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.sci deleted file mode 100755 index 74910ceb..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.bin Binary files differdeleted file mode 100644 index ba124a81..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.sci deleted file mode 100755 index 4bc7684c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.bin Binary files differdeleted file mode 100644 index b524d528..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.sci deleted file mode 100755 index 527d3834..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Viewfrom.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.bin Binary files differdeleted file mode 100644 index cef98adc..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci deleted file mode 100755 index 44bde517..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Vtickmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.bin Binary files differdeleted file mode 100644 index 278e7845..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.sci deleted file mode 100644 index de320918..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Windisp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.bin Binary files differdeleted file mode 100644 index 6b3e87e9..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.sci deleted file mode 100755 index baa03e73..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.bin Binary files differdeleted file mode 100644 index 68abd1d4..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.sci deleted file mode 100755 index 24920661..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/WirePt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.bin Binary files differdeleted file mode 100644 index 085de36e..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.sci deleted file mode 100755 index d62acaf3..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Wireparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.bin Binary files differdeleted file mode 100644 index d84e23dc..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.sci deleted file mode 100755 index b46e359c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.bin Binary files differdeleted file mode 100644 index 01266c62..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.sci deleted file mode 100755 index 11def80c..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.bin Binary files differdeleted file mode 100644 index 4e6ca980..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.sci deleted file mode 100755 index 59c5ba54..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.bin Binary files differdeleted file mode 100644 index 2718cfd0..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.sci deleted file mode 100755 index d168b4f7..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/WriteOutData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.bin Binary files differdeleted file mode 100644 index 3016dd47..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.sci deleted file mode 100644 index 059ac6d5..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.bin Binary files differdeleted file mode 100644 index e53ba463..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.sci deleted file mode 100644 index ae51bf8b..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Writetextdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.bin Binary files differdeleted file mode 100644 index c3f3d522..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.sci deleted file mode 100755 index 51a13884..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.bin Binary files differdeleted file mode 100644 index 655cd4e6..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.sci deleted file mode 100644 index 60d73ef7..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Xmax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.bin Binary files differdeleted file mode 100644 index ba00f67f..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.sci deleted file mode 100755 index 28ab28ce..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Xmax() - global XMAX - Y=XMAX; -endfunction - diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.bin Binary files differdeleted file mode 100644 index 7e8c9e46..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.sci deleted file mode 100755 index e18e83d7..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Xmin() - global XMIN - Y=XMIN; -endfunction - diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.bin Binary files differdeleted file mode 100644 index fc0a8807..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.sci deleted file mode 100755 index b2118c90..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.bin Binary files differdeleted file mode 100644 index 04b8bdce..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.sci deleted file mode 100755 index b833802d..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.bin Binary files differdeleted file mode 100644 index 3940b5b0..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.sci deleted file mode 100755 index d9c1c7df..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Ymax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.bin Binary files differdeleted file mode 100644 index 93cbf4e2..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.sci deleted file mode 100755 index 0a835534..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Ymax() - global YMAX - Y=YMAX; -endfunction - diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.bin Binary files differdeleted file mode 100644 index 79ab6600..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.sci deleted file mode 100755 index 73d0d261..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Ymin() - global YMIN - Y=YMIN; -endfunction - diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.bin Binary files differdeleted file mode 100644 index d870458d..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.sci deleted file mode 100755 index 5c237179..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/Zperspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.bin Binary files differdeleted file mode 100644 index 0af89330..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.bin +++ /dev/null diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.sci deleted file mode 100755 index 13601556..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/lib b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/lib deleted file mode 100644 index 24864cee..00000000 --- a/texmf-dist/scripts/ketpic/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/ketpic/ketlib/ketpic2escifiles6/names b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/names deleted file mode 100755 index cef9f19b..00000000 --- a/texmf-dist/scripts/ketpic/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 |