diff options
author | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
commit | dc71274f16f7ff65145e034900f582b62453a033 (patch) | |
tree | a71452364cbe1a03feb6a84cdfd09eedae861590 /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6 | |
parent | aecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff) |
rename and update ketpic -> ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6')
690 files changed, 17385 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin Binary files differnew file mode 100644 index 00000000..04ec361b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci new file mode 100644 index 00000000..c940a543 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci @@ -0,0 +1,12 @@ +// 09.09.10 + +function Addcounter(varargin) + global GCOUNTER; + if Nargs==0 + N=1; + else + N=varargin(1); + GCOUNTER=GCOUNTER+N; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin Binary files differnew file mode 100644 index 00000000..9e505d61 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci new file mode 100644 index 00000000..6deb302c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci @@ -0,0 +1,33 @@ +// 08.06.05 +// 16.12.29 ( for too short segment ) + +function Out=Anglemark(varargin) + Nargs=length(varargin); + Eps=10^(-3); + PA=varargin(1); PB=varargin(2); PC=varargin(3); + r = 0.5; + if Nargs>=4 + r = varargin(4)*r; + end + Out=[]; // 16.12.29 + if r>min(norm(PA-PB),norm(PC-PB)) then + return; + end; + Cir=Circledata(PB,r); + Tmp=IntersectcrvsPp(Cir,Listplot(PA,PB)); + P1=Op(2,Op(1,Tmp)); + Tmp=IntersectcrvsPp(Cir,Listplot(PC,PB)); + P2=Op(2,Mixop(1,Tmp)); + if abs(P1-P2)<Eps + Out=[]; + return; + end + if P1<P2-Eps + Out=Partcrv(P1,P2,Cir); + else + Tmp=Numptcrv(Cir); + Tmp1=Partcrv(P1,Tmp,Cir); + Tmp2=Partcrv(1,P2,Cir); + Out=Joincrvs(Tmp1,Tmp2); + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin Binary files differnew file mode 100644 index 00000000..fa50bd08 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci new file mode 100644 index 00000000..f6ac6ef2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci @@ -0,0 +1,58 @@ +// 08.05.08 + +function Out=Arrowdata(varargin) + global YaSize YaAngle YaPosition YaThick YaStyle; + Nargs=length(varargin); + P=varargin(1); + Q=varargin(2); + R=Q; + Futosa=YaThick; + Ookisa=YaSize; + Thickness=1; + Hiraki=YaAngle; + Yapos=YaPosition; + Position=1; + Str=YaStyle; + Flg=0; + for I=3:Nargs + Tmp=varargin(I); + if type(Tmp)==1 + if length(Tmp)>1 + R=Tmp + else + if Flg==0 + Ookisa=Ookisa*Tmp; + end + if Flg==1 + if Tmp<5 + Hiraki=Tmp*Hiraki; + else + Hiraki=Tmp; + end + end + if Flg==2 + R=P+Tmp*(Q-P); + else + R=P+Yapos*(Q-P); + end + if Flg==3 + Futosa=Tmp + end + Flg=Flg+1; + end + end + if type(Tmp)==10 + if mtlb_findstr(Tmp,'=')~=[] + execstr(Tmp); + Futosa=Futosa*Thickness; + R=P+Position*(Q-P); + else + Str=Tmp + end + end + end + Tmp1=Listplot([P,Q]); + Tmp2=Arrowheaddata(R,Q-P,Ookisa,Hiraki,Futosa,Str); + Out=Joingraphics(Tmp1,Tmp2); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin Binary files differnew file mode 100644 index 00000000..bbd95348 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci new file mode 100644 index 00000000..9073ca6e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci @@ -0,0 +1,107 @@ +// +// 08.06.01 +// 09.12.25 +// 12.01.07 kirikomi(Cut) +// 12.04.16 debugged +// 13.05.17 debugged +// 13.11.13 debugged +// 15.06.11 debugged +// 15.06.14 debugged +// 15.06.15 improved + +function Arrowhead(varargin) + global Wfile FID MilliIn YaSize + global YaAngle YaPosition YaThick YaStyle; + Nargs=length(varargin); + P=varargin(1); + Houkou=varargin(2); + Ookisa=0.2*YaSize; + Hiraki=YaAngle; + Futosa=0.5*YaThick; + Cut=0; + Str=YaStyle; + Flg=0; + for I=3:Nargs + Tmp=varargin(I); + if type(Tmp)==10 + Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from + if length(Equal)>0 + Tmp2=strsplit(Tmp,Equal-1); + if Tmp2(1)=="Cut" | Tmp2(1)=="cut" + Tmp="Cut"+Tmp2(2); + execstr(Tmp); + end; + else + Str=Tmp; + end; // 12.01.07 upto + end; + if type(Tmp)==1 & length(Tmp)==1 + if Flg==0 + Ookisa=Ookisa*Tmp; + end + if Flg==1 + if Tmp<5 + Hiraki=Tmp*Hiraki + else + Hiraki=Tmp + end + end + if Flg==2 + Futosa=Tmp + end + Flg=Flg+1; + end + end; + Ookisa=1000/2.54/MilliIn*Ookisa; + Theta=Hiraki*%pi/180; + if size(Houkou,1)>1 + P=Doscaling(P); + Houkou=Doscaling(Houkou); + Tmp=Nearestpt(P,Houkou); + A=Op(1,Tmp); + I=floor(Op(2,Tmp)); + G=Circledata(P,Ookisa*cos(Theta),'N=10'); + Flg=0; // 13.11.13 + for J=I:-1:1 + B=Ptcrv(J,Houkou); + Tmp=IntersectcrvsPp(Listplot([A,B]),G); + if Mixlength(Tmp)>0 + Flg=1; + break + end + A=B + end + if Flg==0 // 13.11.13 + disp('Arrowhead may be too large (no intersect)'); + return + end + Houkou=P-Op(1,Op(1,Tmp)); + Houkou=Unscaling(Houkou); + P=Unscaling(P); + end; + P=Doscaling(P); + Houkou=Doscaling(Houkou); + Ev=-1/Vecnagasa(Houkou)*Houkou; + Nv=[-Ev(2),Ev(1)]; + if mtlb_findstr(Str,'c')~=[] + P=P-0.5*Ookisa*cos(Theta)*Ev + end; + if mtlb_findstr(Str,'b')~=[] + P=P-Ookisa*cos(Theta)*Ev + end; + A=P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv; + B=P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv; + if mtlb_findstr(Str,'l')~=[] + Tmp=Listplot([A,P,B]); + Tmp1=Unscaling(Tmp); // 13.05.17 + Drwline(Tmp1,Futosa); + else + C=P+(1-Cut)*((A+B)/2-P); // 12.01.05 + Tmp=Listplot([A,P,B,C,A]); // 12.01.05 + Tmp1=Unscaling(Tmp); + Shade(Tmp1); + Tmp=Listplot([A,P,B,C,A,P]); // 15.6.20 + Tmp1=Unscaling(Tmp); + Drwline(Tmp1,0.1); // 15.06.11, 15.06.14 + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin Binary files differnew file mode 100644 index 00000000..99f58621 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci new file mode 100644 index 00000000..68dfe27c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci @@ -0,0 +1,89 @@ +// 08.05.31 +// 09.12.25 +// 13.11.13 debugged +// 14.11.02 debugged + +function Out=Arrowheaddata(varargin) + global YaSize YaAngle YaPosition YaThick YaStyle; + Eps=10^(-3); + Nargs=length(varargin); + Out=[]; + P=varargin(1); + Houkou=varargin(2); + Ookisa=0.2*YaSize; + Hiraki=YaAngle; + Futosa=0; + Thickness=1; + Str=YaStyle; + Flg=0; + for I=3:Nargs + Tmp=varargin(I); + if type(Tmp)==10 + if mtlb_findstr(Tmp,'=')~=[] + execstr(Tmp); + Futosa=Thickness; + else + Str=Tmp; + end + end + if type(Tmp)==1 & length(Tmp)==1 + if Flg==0 + Ookisa=Ookisa*Tmp; + end + if Flg==1 + if Tmp<5 + Hiraki=Tmp*Hiraki; + else + Hiraki=Tmp; + end + end + Flg=Flg+1; + end + end + Theta=Hiraki*%pi/180; + if size(Houkou,1)>1 + P=Doscaling(P); + Houkou=Doscaling(Houkou); + Tmp=Nearestpt(P,Houkou); + A=Op(1,Tmp); + I=floor(Op(2,Tmp)); + if I==1 // 14.11.02 + if norm(Ptend(Houkou)-Ptstart(Houkou))<Eps + l=Numptcrv(Houkou); + end; + end; + G=Circledata(P,Ookisa*cos(Theta),'N=10'); + Flg=0; // 13.11.13 + for J=I:-1:1 + B=Ptcrv(J,Houkou); + Tmp=IntersectcrvsPp(Listplot([A,B]),G); + if Mixlength(Tmp)>0 + Flg=1; + break + end + A=B + end + if Flg==0 // 13.11.13 + disp('Arrowhead may be too large (no intersect)'); + return + end + Houkou=P-Op(1,Op(1,Tmp)); + Houkou=Unscaling(Houkou); + P=Unscaling(P); + end + P=Doscaling(P); + Houkou=Doscaling(Houkou); + E=-1/Vecnagasa(Houkou)*Houkou; + N=[-E(2),E(1)]; + if mtlb_findstr(Str,'c')~=[] + P=P-0.5*Ookisa*cos(Theta)*E; + end + if mtlb_findstr(Str,'b')~=[] + P=P-Ookisa*cos(Theta)*E + end + A=P+Ookisa*cos(Theta)*E+Ookisa*sin(Theta)*N; + B=P+Ookisa*cos(Theta)*E-Ookisa*sin(Theta)*N; + Out=Listplot([A,P,B]); + Out=Unscaling(Out); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin Binary files differnew file mode 100644 index 00000000..dec6b519 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci new file mode 100644 index 00000000..881662b1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci @@ -0,0 +1,57 @@ +// +// 12.01.07 kirikomi(Cut) +// 12.08.26 debugged +// 15.06.11 debugged +// 15.10.24 debugged + +function Arrowline(varargin) + global YaSize YaAngle YaPosition YaThick YaStyle Kirikomi; + Nargs=length(varargin) + P=varargin(1); + Q=varargin(2); + Futosa=YaThick; + Ookisa=YaSize; + Hiraki=YaAngle; + Yapos=YaPosition; + Cutstr="Cut=0"; + Str=YaStyle; + Flg=0; + for I=3:Nargs + Tmp=varargin(I); + if type(Tmp)==10 + Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from + if length(Equal)>0 + Tmp2=strsplit(Tmp,Equal-1); + if (Tmp2(1)=="Cut") | (Tmp2(1)=="cut") + Tmp="Cut"+Tmp2(2); + Cutstr=Tmp; + end + else + Str=Tmp; // 12.01.07 upto (debugged on 12.08.26) + end; + end; + if (type(Tmp)==1) & (length(Tmp)==1) + if Flg==0 + Ookisa=Ookisa*Tmp; + end + if Flg==1 + if Tmp<5 + Hiraki=Tmp*Hiraki; + else + Hiraki=Tmp; + end + end + if Flg==2 + Yapos=Tmp; + end + if Flg==3 + Futosa=Tmp; + end + Flg=Flg+1; + end + end + R=P+Yapos*(Q-P); + Tmp=Q-Unscaling(0.2*Ookisa/2*(Q-P)/norm(Q-P)); // 15.10.24 + Drwline(Listplot([P,Tmp]),Futosa); + Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str); // 12.01.07 +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin Binary files differnew file mode 100644 index 00000000..a4ad2b27 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci new file mode 100644 index 00000000..8d9201cc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci @@ -0,0 +1,202 @@ +// 08.09.26 +// 09.09.21 +// 09.09.26 +// 09.10.01 +// 09.10.03 +// 09.10.05 +// 09.10.08 +// 09.10.09 ( format=20) +// 09.10.15 ( added Assign('') : reset +// 09.10.17 ( Matrix added, ? -> number returned) +// 09.10.21 ( list supported with Makeliststr ) +// 14.10.04 format=12 +// 14.12.11 only replaced when variable name +// 14.12.28 debugged ( tmp2, ` ) +// 15.02.18 debugged ( for list of string ) +// 15.02.19 debugged +// 15.04.18 debugged + +function Out=Assign(varargin) + global ASSIGNLIST; + Curfmt=format(); + format(12); // 14.10.04 + Nargs=length(varargin); + if Nargs==0 + ASSIGNLIST=list('`',Prime()); + Out=ASSIGNLIST; + format(Curfmt(2)); + return; + end; + L=list('`',char(39)); + NL=length(L); + if modulo(Nargs,2)==0 + for I=1:Nargs + L(I+NL)=varargin(I); + end; + ASSIGNLIST=L; + Out=L; + format(Curfmt(2)); + return; + end; + if Nargs==1 + Fnstr=varargin(1); + if Fnstr=='' + L=ASSIGNLIST; + Out=[]; + for I=1:2:length(L) + Tmp1=L(I); + Tmp2=L(I+1); + if length(Tmp2)==1 + Tmp3=string(Tmp2); + else + Tmp3='['; + for J=1:length(Tmp2) + Tmp3=Tmp3+string(Tmp2(J)); + if J<length(Tmp2) + Tmp3=Tmp3+','; + end; + end; + Tmp3=Tmp3+']'; + end; + Out=[Out,Tmp1+'='+Tmp3]; + end; + format(Curfmt(2)); + return; + end; + if part(Fnstr,1)=='?' + Tmp=strsplit(Fnstr,1); + Fnstr=Tmp(2); + for I=1:2:length(ASSIGNLIST) + Tmp=ASSIGNLIST(I); + if Tmp==Fnstr + Out=Mixjoin(I,ASSIGNLIST(I+1)); + format(Curfmt(2)); + return; + end; + end; + Out='Not found'; + format(Curfmt(2)); + return; + end; // + L=ASSIGNLIST; + else + if type(varargin(2))==1 + Fnstr=varargin(Nargs); + for I=1:Nargs-1 + L(I)=varargin(I); + end; + else + Fnstr=varargin(1); + for I=2:Nargs + L(I-1)=varargin(I); + end; + end; + end; + Tmp3=Fnstr; // 15.04.18 + for I=1:2:length(L) + Vname=L(I); + Val=L(I+1); + if Vname=="`" // 14.12.28 + Tmp3=strsubst(Tmp3,Vname,Val); + continue + end; + if type(Val)==1 + if size(Val,1)==1 & size(Val,2)>1 // 15.04.18 + for K=1:length(Val) + Tmp=Vname+'('+string(K)+')'; + if mtlb_findstr(Tmp3,Tmp)~=[] + if type(Val(K))==1 + Tmp1='('+string(Val(K))+')'; + else + Tmp1=Val(K); + end; + Tmp3=strsubst(Tmp3,Tmp,Tmp1); + end; + end; + else + for J=1:size(Val,1) + for K=1:size(Val,2) + Tmp=Vname+'('+string(J)+','+string(K)+')'; + if mtlb_findstr(Tmp3,Tmp)~=[] + if type(Val(J,K))==1 + Tmp1='('+string(Val(J,K))+')'; + else + Tmp1=Val(J,K); + end; + Tmp3=strsubst(Tmp3,Tmp,Tmp1); + end; + end; + end; + end; + if length(Val)==1 + Rep=string(Val); + else + Rep='['; + for J=1:size(Val,1) + for K=1:size(Val,2) + Rep=Rep+string(Val(J,K)); + if K<size(Val,2) + Rep=Rep+','; + end; + end; + if J<size(Val,1) + Rep=Rep+';'; + else + Rep=Rep+']'; + end; + end; + end; + Tmp1='('+Rep+')'; + end; + if type(Val)==10 + Tmp1=Val; + end; + if type(Val)==15 + Tmp1=Makeliststr(Val); + end; + Notvar=[48:57,65:90,97:122]; + for K=1:size(Tmp3,2) + Tmp2=Tmp3(K); + if length(Tmp2)>0 then + Flist=mtlb_findstr(Tmp2,Vname); + else + Flist=[]; + end + if length(Flist)==0 then + Tmp3(K)=Tmp2; // 15.04.18 + continue + end + Str=part(Tmp2,1:(Flist(1)-1)); + for I=1:length(Flist) + Flg=0; + J=Flist(I); + if J>1 then + Tmp=ascii(part(Tmp2,J-1)); + if Member(Tmp,Notvar) then + Flg=1; + end; + end + if J+length(Vname)-1<length(Tmp2) then // 15.04.18 + Tmp=ascii(part(Tmp2,J+length(Vname))); // 15.04.18 + if Member(Tmp,Notvar) then + Flg=1; + end; + end; + if Flg==0 then + Str=Str+Tmp1; + else + Str=Str+Vname; + end; + if I<length(Flist) then + Tmp=Flist(I+1)-1; + else + Tmp=length(Tmp2); + end; + Str=Str+part(Tmp2,(J+length(Vname)):Tmp); + Tmp3(K)=Str; // 15.04.18 + end; + end; + end; + Out=Tmp3; // 15.02.18 upto + format(Curfmt(2)); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin Binary files differnew file mode 100644 index 00000000..c6c202fa --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci new file mode 100644 index 00000000..d8883e6c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci @@ -0,0 +1,14 @@ +// 09.10.03 + +function Out=Assignadd(varargin) + global ASSIGNLIST; + Nargs=length(varargin); + L=ASSIGNLIST; + Is=length(L); + for I=1:Nargs + L(I+Is)=varargin(I); + end; + ASSIGNLIST=L; + Out=L; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin Binary files differnew file mode 100644 index 00000000..3e962180 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci new file mode 100644 index 00000000..0a362b01 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci @@ -0,0 +1,22 @@ +// 09.10.17 +// 09.12.05 +// 09.12.29 +// 14.09.30 addition supported + +function Assignrep(varargin) + global ASSIGNLIST; + Nargs=length(varargin); + for I=1:2:Nargs + Vname=varargin(I); + Val=varargin(I+1); + Tmp=Assign('?'+Vname); + if Tmp=='Not found' + Tmp=length(ASSIGNLIST); + ASSIGNLIST(Tmp+1)=Vname; + ASSIGNLIST(Tmp+2)=Val; + else + I=Tmp(1); + ASSIGNLIST(I+1)=Val; + end; + end +endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin Binary files differnew file mode 100644 index 00000000..04246041 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci new file mode 100644 index 00000000..bb77c105 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci @@ -0,0 +1,7 @@ +// 09.10.21 + +function Assignset(varargin) + I=1:length(varargin); + Tmp=Assign(varargin(I));; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin Binary files differnew file mode 100644 index 00000000..aa6d94ab --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci new file mode 100644 index 00000000..f93e3200 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci @@ -0,0 +1,6 @@ +// 08.05.22 + +function Beginpicture(ul) + Openpicture(ul) +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin Binary files differnew file mode 100644 index 00000000..4de26d03 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci new file mode 100644 index 00000000..7d1993eb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci @@ -0,0 +1,35 @@ +// 15.01.01 + +function Out=Bezier(varargin) + Nargs=length(varargin); + Ptlist=varargin(1); + Ctrlist=varargin(2); + Num=10; + for J=3:Nargs + Tmp=varargin(J); + K=mtlb_findstr(Tmp,'='); + Tmp1=strsplit(Tmp,[K-1,K]); + Tmp2=ascii(Tmp1(1,1)); + Lhs=char(Tmp2(1)); + if Lhs=="N" then + Num=evstr(Tmp1(3,1)); + end; + end; + if length(Num)==1 + Num=Num*ones(1:length(Ctrlist)) + end; + Out=[]; + for ii=1:length(Ctrlist) + Tmp1=[Ptlist(ii),Ptlist(ii+1)]; + Tmp2=Ctrlist(ii); + if ii==1 then + St=0 + else + St=1 + end; + for J=St:Num(ii) + Tmp=Bezierpt(J/Num(ii),Tmp1,Tmp2); + Out=[Out;Tmp]; + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin Binary files differnew file mode 100644 index 00000000..53d89112 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci new file mode 100644 index 00000000..ac639249 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci @@ -0,0 +1,39 @@ +// 15.01.01 +// 15.02.08 for 3d + +function Out=Bezierpt(t,Ptlist,Ctrlist) + if length(Ptlist)==6 then // 3d 15.02.08 + P0=Ptlist(1:3); + P3=Ptlist(4:6); + P1=Ctrlist(1:3); + if length(Ctrlist)==3 then + P2=P3; + flg3=0; + else + P2=Ctrlist(4:6); + flg3=1; + end; + else + P0=Ptlist(1:2); + P3=Ptlist(3:4); + P1=Ctrlist(1:2); + if length(Ctrlist)==2 then + P2=P3; + flg3=0; + else + P2=Ctrlist(3:4); + flg3=1; + end; + end; + P4=(1-t)*P0+t*P1; + P5=(1-t)*P1+t*P2; + P6=(1-t)*P2+t*P3; + P7=(1-t)*P4+t*P5; + P8=(1-t)*P5+t*P6; + P9=(1-t)*P7+t*P8; + if flg3==0 then + Out=P7; + else + Out=P9; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin Binary files differnew file mode 100644 index 00000000..2c743976 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci new file mode 100644 index 00000000..dac12561 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci @@ -0,0 +1,7 @@ +// 08.09.13 + +function Out=BorderHiddenData() + global BORDERHIDDENDATA + Out=BORDERHIDDENDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin Binary files differnew file mode 100644 index 00000000..6fb6e54e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci new file mode 100644 index 00000000..12947bcd --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci @@ -0,0 +1,7 @@ +// 08.09.13 + +function Out=BorderPt() + global BORDERPT + Out=BORDERPT +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin Binary files differnew file mode 100644 index 00000000..1e0a62fc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci new file mode 100644 index 00000000..2e944821 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci @@ -0,0 +1,121 @@ +// 08.09.13 +// 08.09.16 +// 08.10.10 +// 08.10.11 +// 08.10.15 +// 08.10.28 +// 09.03.09 +// 09.05.27 +// 09.06.03 +// 10.02.16 Eps=> [Eps, Epsmg] +// 13.10.21 ( __ added to varibles ) + +function FsL__=Borderparadata(varargin) + global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA + global PARTITIONPT + Nargs__=length(varargin); + FkL__=varargin(1); + Fd__=varargin(2); N__=3; + FdL__=Fullformfunc(Fd__); + Fxy__=Mixop(1,FdL__); + Tmp__1=Mixop(2,FdL__); + Tmp__2=Mixop(3,FdL__); + Tmp__3=Mixop(4,FdL__); + Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; + DrwS__=Mixop(7,FdL__); + Tmp__=Mixop(5,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Np__=[50,50]; + if Nargs__>=3 + Np__=varargin(3); N__=4; + if type(Np__)==1 & length(Np__)==1 + Np__=[Np__,Np__]; + end; + end; + Eps__=[0.05,1]; // + if Nargs__>=N__ Eps__=varargin(N__); end; + Eps__2=0.2; + if Nargs__>=N__+1 Eps__2=varargin(N__+1); end; + Umin__=Urg__(1); Umax__=Urg__(2); + Vmin__=Vrg__(1); Vmax__=Vrg__(2); + EkL__=[]; + Tmp__=mtlb_findstr(DrwS__,'e'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')'); + Tmp__2=Mixop(6,FdL__); + Tmp__3='N='+string(Np__(2)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + Tmp__=mtlb_findstr(DrwS__,'n'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')'); + Tmp__2=Mixop(5,FdL__); + Tmp__3='N='+string(Np__(1)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + Tmp__=mtlb_findstr(DrwS__,'w'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')'); + Tmp__2=Mixop(6,FdL__); + Tmp__3='N='+string(Np__(2)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + Tmp__=mtlb_findstr(DrwS__,'s'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')'); + Tmp__2=Mixop(5,FdL__); + Tmp__3='N='+string(Np__(1)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + if Mixlength(EkL__)>0 + FkL__=Mixjoin(FkL__,EkL__); + end; + Fall__=Projpara(FkL__); + if Mixtype(Fall__)==1 + Fall__=Mix(Fall__) + end; + Fbdxy__=Makexybdy(Fd__,Np__); + Tmp__=Mixop(2,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Xname__=part(Tmp__,1:K__-1); + Tmp__=Mixop(3,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Yname__=part(Tmp__,1:K__-1); + BORDERPT=[]; + Tmp__=[]; + for I__=1:Mixlength(Fall__) + Tmp__=Mixadd(Tmp__,[]); + end; + OTHERPARTITION=Tmp__; + FsL__=[]; + BORDERHIDDENDATA=[]; + for I__=1:Mixlength(Fall__) + Tmp__=Mixop(I__,FkL__); + Tmp__=Projpara(Tmp__); + Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); // + if Mixlength(PARTITIONPT)>2 + Tmp__=Mixlength(PARTITIONPT)-1; + Tmp__1=Mixsub(2:Tmp__,PARTITIONPT); + BORDERPT=Mixjoin(BORDERPT,Tmp__1); + end; + Tmp__1=Mixop(I__,FkL__); + Tmp__=Nohiddenpara2(Par__,Tmp__1,Fd__,1,Np__,Eps__); + if Mixlength(HIDDENDATA)>0 + BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); + end; + if Mixlength(Tmp__)>0 + FsL__=Mixjoin(FsL__,Tmp__); + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin Binary files differnew file mode 100644 index 00000000..2a4cc650 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci new file mode 100644 index 00000000..f86ddfa0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci @@ -0,0 +1,120 @@ +// 08.09.21 +// 08.10.10 +// 08.10.11 +// 08.10.28 +// 09.03.09 +// 09.05.27 +// 09.06.03 +// 10.02.16 Eps__ +// 13.11.01 ( __ added to varibles ) + +function FsL__=Borderpersdata(varargin) + global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA + global PARTITIONPT + Nargs__=length(varargin); + FkL__=varargin(1); + Fd__=varargin(2); N=3; + FdL__=Fullformfunc(Fd__); + Fxy__=Mixop(1,FdL__); + Tmp__1=Mixop(2,FdL__); + Tmp__2=Mixop(3,FdL__); + Tmp__3=Mixop(4,FdL__); + Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; + DrwS__=Mixop(7,FdL__); + Tmp__=Mixop(5,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Np__=[50,50]; + if Nargs__>=3 + Np__=varargin(3); N=4; + if type(Np__)==1 & length(Np__)==1 + Np__=[Np__,Np__]; + end; + end; + Eps__=0.05; + Eps__=[0.05,1]; // + if Nargs__>=N Eps__=varargin(N); end; + Eps__2=0.2; + if Nargs__>=N+1 Eps__2=varargin(N+1); end; + Umin__=Urg__(1); Umax__=Urg__(2); + Vmin__=Vrg__(1); Vmax__=Vrg__(2); + EkL__=[]; + Tmp__=mtlb_findstr(DrwS__,'e'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')'); + Tmp__2=Mixop(6,FdL__); + Tmp__3='N='+string(Np__(2)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + Tmp__=mtlb_findstr(DrwS__,'n'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')'); + Tmp__2=Mixop(5,FdL__); + Tmp__3='N='+string(Np__(1)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + Tmp__=mtlb_findstr(DrwS__,'w'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')'); + Tmp__2=Mixop(6,FdL__); + Tmp__3='N='+string(Np__(2)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + Tmp__=mtlb_findstr(DrwS__,'s'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')'); + Tmp__2=Mixop(5,FdL__); + Tmp__3='N='+string(Np__(1)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + if Mixlength(EkL__)>0 + FkL__=Mixjoin(FkL__,EkL__); + end; + Fall__=Projpers(FkL__); + if Mixtype(Fall__)==1 + Fall__=Mix(Fall__); + end; + Fbdxy__=Makexybdy(Fd__,Np__); + Tmp__=Mixop(2,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Xname__=part(Tmp__,1:K__-1); + Tmp__=Mixop(3,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Yname__=part(Tmp__,1:K__-1); + BORDERPT=[]; + Tmp__=[]; + for I__=1:Mixlength(Fall__) + Tmp__=Mixadd(Tmp__,[]); + end; + OTHERPARTITION=Tmp__; + FsL__=[]; + BORDERHIDDENDATA=[]; + for I__=1:Mixlength(Fall__) + Tmp__=Mixop(I__,FkL__); + Tmp__=Projpers(Tmp__); + Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); + if Mixlength(PARTITIONPT)>2 + Tmp__=Mixlength(PARTITIONPT)-1; + Tmp__1=Mixsub(2:Tmp__,PARTITIONPT); + BORDERPT=Mixjoin(BORDERPT,Tmp__1); + end; + Tmp__1=Mixop(I__,FkL__); + Tmp__=Nohiddenpers2(Par__,Tmp__1,Fd__,1,Np__,Eps__); + if Mixlength(HIDDENDATA)>0 + BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); + end; + if Mixlength(Tmp__)>0 + FsL__=Mixjoin(FsL__,Tmp__); + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin Binary files differnew file mode 100644 index 00000000..fb44560f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci new file mode 100644 index 00000000..657efc23 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci @@ -0,0 +1,64 @@ +// 08.09.10 + +function FkL=Borderrawdata(varargin) + Nall=length(varargin); + FkL=varargin(1); + FdL=Fullformfunc(varargin(2)); + Tmp1=Mixop(2,FdL); + Tmp2=Mixop(3,FdL); + Tmp3=Mixop(4,FdL); + Xyzstr=[Tmp1,Tmp2,Tmp3]; + DrwS=Mixop(7,FdL); + Tmp=Mixop(5,FdL); + K=mtlb_findstr(Tmp,'='); + Uname=part(Tmp,1:K-1); + Urg=evstr(part(Tmp,K+1:length(Tmp))); + Tmp=Mixop(6,FdL); + K=mtlb_findstr(Tmp,'='); + Vname=part(Tmp,1:K-1); + Vrg=evstr(part(Tmp,K+1:length(Tmp))); + Np=[50,50]; + if Nall>=3 + Np=varargin(3); + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Um=Urg(1); UM=Urg(2); + Vm=Vrg(1); VM=Vrg(2); + EkL=[]; + Tmp=mtlb_findstr(DrwS,'e'); + if length(Tmp)~=0 + Tmp1=strsubst(Xyzstr,Uname,'('+string(UM)+')'); + Tmp2=Mixop(6,FdL); + Tmp3='N='+string(Np(2)); + Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); + EkL=Mixadd(EkL,Tmp); + end; + Tmp=mtlb_findstr(DrwS,'n'); + if length(Tmp)~=0 + Tmp1=strsubst(Xyzstr,Vname,'('+string(VM)+')'); + Tmp2=Mixop(5,FdL); + Tmp3='N='+string(Np(1)); + Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); + EkL=Mixadd(EkL,Tmp); + end; + Tmp=mtlb_findstr(DrwS,'w'); + if length(Tmp)~=0 + Tmp1=strsubst(Xyzstr,Uname,'('+string(Um)+')'); + Tmp2=Mixop(6,FdL); + Tmp3='N='+string(Np(2)); + Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); + EkL=Mixadd(EkL,Tmp); + end; + Tmp=mtlb_findstr(DrwS,'s'); + if length(Tmp)~=0 + Tmp1=strsubst(Xyzstr,Vname,'('+string(Vm)+')'); + Tmp2=Mixop(5,FdL); + Tmp3='N='+string(Np(1)); + Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); + EkL=Mixadd(EkL,Tmp); + end; + FkL=Mixjoin(FkL,EkL); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin Binary files differnew file mode 100644 index 00000000..a5819013 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci new file mode 100644 index 00000000..48154cf1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci @@ -0,0 +1,45 @@ +// +// 08.05.22 +// 08.08.24 + +function Pd=Bowdata(varargin) + global BOWMIDDLE BOWSTART BOWEND + Nargs=length(varargin); + PA=varargin(1); + PB=varargin(2); + Cut=0; + D=1/2*Vecnagasa(PB-PA); + if Nargs>=3 + H=varargin(3)*D*0.2; + else + H=D*0.2; + end + H=min(H,D); + if Nargs>=4 + Cut=varargin(4); + end + Ydata=MakeBowdata(PA,PB,H); + C=Mixop(1,Ydata); + r=Mixop(2,Ydata); + R1=Mixop(3,Ydata); + R2=Mixop(4,Ydata); + Rng='R=['+string(R1)+','+string(R2)+']'; + Theta=(R1+R2)*0.5; + BOWMIDDLE=MixS([C(1)+r*cos(Theta),C(2)+r*sin(Theta)],Theta); + M=Mixop(1,BOWMIDDLE); + ThetaM=Mixop(2,BOWMIDDLE); + BOWSTART=PA; + BOWEND=PB; + if Cut==0 + Pd=Circledata(C,r,Rng); + else + Alpha=R1; Beta=ThetaM-Cut/(2*r); + Rng='R=['+string(Alpha)+','+string(Beta)+']'; + Pd=Circledata(C,r,Rng); + Alpha=ThetaM+Cut/(2*r); Beta=R2; + Rng='R=['+string(Alpha)+','+string(Beta)+']'; + Tmp=Circledata(C,r,Rng); + Pd=[Pd;%inf,%inf;Tmp]; + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin Binary files differnew file mode 100644 index 00000000..b212c380 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci new file mode 100644 index 00000000..5157c111 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci @@ -0,0 +1,53 @@ +// +// 08.05.22 +// 08.05.31 +// 09.08.12 + +function M=Bowmiddle(varargin) + global BOWMIDDLE; + Nargs=length(varargin); + if Nargs==0 + M=BOWMIDDLE; + return; + end; + if Nargs==1 + Bdata=varargin(1); + A=Bdata(1,:); + Dind=Dataindex(Bdata); + Dc=size(Dind,1); + Tmp=Dind(Dc,2); + B=Bdata(Tmp,:); + if Dc==1 + Tmp1=round(Tmp/2); + else + Tmp1=Dind(1,2); + end; + D=Bdata(Tmp1,:); + B=B-A; + D=D-A; + Tmp1=B(1)*D(2)-D(1)*B(2); + Tmp2=((B(1)^2+B(2)^2)*D(2)-B(2)*(D(1)^2+D(2)^2))/2; + Tmp3=-((B(1)^2+B(2)^2)*D(1)-B(1)*(D(1)^2+D(2)^2))/2; + C=[Tmp2,Tmp3]/Tmp1+A; + R=norm(C-A); + B=B+A; + V=(A+B)/2-C; + V=V/norm(V); + M=C+R*V; + else + A=varargin(1); B=varargin(2); + D=1/2*Vecnagasa(B-A); + H=0.2*D; + if length(varargin)>=3 + Tmp=varargin(3); + H=Tmp*D*0.2; + end + H=min(H,D); + Ydata=MakeBowdata(A,B,H); + C=Op(1,Ydata); + R=Op(2,Ydata); + T=(Op(3,Ydata)+Op(4,Ydata))/2; + P=C+R*[cos(T),sin(T)]; + M=MixS(P,T); + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin Binary files differnew file mode 100644 index 00000000..7286b547 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci new file mode 100644 index 00000000..f57c4961 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci @@ -0,0 +1,40 @@ +// +// 08.08.24 +// 09.08.12 +// 09.08.13 +// 13.11.30 Directon supported + +function Bowname(varargin) + global BOWMIDDLE; + Nargs=length(varargin); + Siki=varargin(Nargs); + Nargs=Nargs-1; // 13.11.30 + Dr="c"; + if Nargs>=1 then + Tmp=varargin(Nargs); + if type(Tmp)==10 + Dr=Tmp; + Nargs=Nargs-1; + end + end + if Nargs==0 // 13.11.30 + P=Mixop(1,BOWMIDDLE); + elseif Nargs==1 // 13.11.30 + Bdata=varargin(1); + P=Bowmiddle(Bdata); + else + A=varargin(1); B=varargin(2); + D=1/2*Vecnagasa(B-A); + Tmp=varargin(3); + if type(Tmp)==10 + H=D*0.2; + else + H=Tmp*D*0.2; + end; + H=min(H,D); + Ydata=MakeBowdata(A,B,H); + Tmp=Bowmiddle(Ydata); + P=Mixop(1,Tmp); + end + Expr(P,Dr,Siki); //13.11.30 +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin Binary files differnew file mode 100644 index 00000000..b66d56a9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci new file mode 100644 index 00000000..8d1edf78 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci @@ -0,0 +1,77 @@ +// 08.05.31 +// 08.08.24 +// 09.08.12 +// 09.08.13 +// 13.12.15 tiny move supported +// A,B type no longer supported + +function Bownamerot(varargin) + global Wfile FID BOWMIDDLE BOWSTART BOWEND; + Nargs=length(varargin); + Eps=10^(-6); + Flg=1; + Tmp=varargin(Nargs); + if type(Tmp)==1 & length(Tmp)==1 & Tmp<0 + Flg=Tmp; + Nargs=Nargs-1; + end; + Siki=varargin(Nargs); + Nargs=Nargs-1; + Dr="c"; + if Nargs>=1 then + Tmp=varargin(Nargs); + if type(Tmp)==10 + Dr=Tmp; + Nargs=Nargs-1; + end + end + if Nargs==0 + P=Mixop(1,BOWMIDDLE); + A=BOWSTART; + B=BOWEND; + else + Bdata=varargin(1); + P=Bowmiddle(Bdata); + A=Bdata(1,:); + B=Bdata(size(Bdata,1),:); + Tm=0; Tv=0; + if Nargs>1 then // 13.12.15 + Tm=varargin(2); + if Nargs>2 then + Tv=varargin(3); + end + end + end; +// elseif Nargs==1 +// Bdata=varargin(1); +// P=Bowmiddle(Bdata); +// A=Bdata(1,:); +// B=Bdata(size(Bdata,1),:); +// else +// A=varargin(1); B=varargin(2); +// D=1/2*Vecnagasa(B-A); +// Tmp=varargin(3); +// if type(Tmp)==10 +// H=0.2*D; Siki=Tmp; +// else +// H=Tmp*D*0.2; Siki=varargin(4); +// end +// H=min(H,D); +// Ydata=MakeBowdata(A,B,H); +// C=Op(1,Ydata); +// R=Op(2,Ydata); +// T=(Op(3,Ydata)+Op(4,Ydata))/2; +// P=C+R*[cos(T),sin(T)]; +// end; + if A(1)>B(1)+Eps + Tmp=A; + A=B; + B=Tmp; + end; + if Flg>0 + Tmp=B-A; + else + Tmp=A-B; + end; + Exprrot(P,Tmp,Tm,Tv,Siki); +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin Binary files differnew file mode 100644 index 00000000..dd6d1a9c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci new file mode 100644 index 00000000..aa1216dd --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci @@ -0,0 +1,31 @@ +function CalcHeight(Hoko,Moji) + global Wfile FID; + D=0; + Tmp=ascii(Hoko); + H=char(Tmp(1)); + Str=['\settoheight{\Height}{'+Moji+'}']; + Str=[Str,'\settodepth{\Depth}{'+Moji+'}']; + if H=='n' + Str=[Str,'\setlength{\Height}{\Depth}']; + end + if H=='s' + Str=[Str,'\setlength{\Height}{-\Height}']; + end + if H=='c' + Str=[Str,'\setlength{\Height}{-0.5\Height}']; + Str=[Str,'\setlength{\Depth}{0.5\Depth}']; + Str=[Str,'\addtolength{\Height}{\Depth}']; + end + if Wfile=='default' + for I=1:size(Str,2) + mprintf('%s',Str(I)); + end + mprintf('%s\n','%'); + else + for I=1:size(Str,2) + mfprintf(FID,'%s',Str(I)); + end + mfprintf(FID,'%s\n','%'); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin Binary files differnew file mode 100644 index 00000000..cba76bac --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci new file mode 100644 index 00000000..111e9b3b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci @@ -0,0 +1,26 @@ +function CalcWidth(Hoko,Moji) + global Wfile FID + D=0; + Tmp=ascii(Hoko); + H=char(Tmp(2)); + if H=='e' + D=0; + end + if H=='w' + D=-1.0; + end + if H=='c' + D=-0.5; + end + Str1='\settowidth{\Width}{'+Moji+'}'; + Tmp=string(D); + Str2='\setlength{\Width}{'+Tmp+'\Width}'; + if Wfile=='default' + mprintf('%s',Str1); + mprintf('%s%s\n',Str2,'%'); + else + mfprintf(FID,'%s',Str1); + mfprintf(FID,'%s%s\n',Str2,'%'); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin Binary files differnew file mode 100644 index 00000000..4fdb507e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci new file mode 100644 index 00000000..30c646a6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci @@ -0,0 +1,9 @@ +// 08.05.30 + +function PL=Calcfun(Siki,Namae,Atai) + execstr(Namae+'=Atai'); + Tmp='XY='+Siki; + execstr(Tmp); + PL=[Atai(:,1),XY(:,2)]; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin Binary files differnew file mode 100644 index 00000000..5227aec7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci new file mode 100644 index 00000000..fcc7687c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci @@ -0,0 +1,24 @@ +// 08.08.12
+// 08.10.07
+// 09.06.02
+
+function AnsL=CameraCurve(Curve)
+ Eps=10^(-6);
+ for I=1:size(Curve,1)
+ P=Curve(I,:);
+ x=P(1); y=P(2); z=P(3);
+ if x~=%inf
+ Tmp=Perspt(P);
+ if I==1
+ AnsL=[Tmp];
+ else
+ Tmp1=AnsL(size(AnsL,1),:);
+ if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
+ AnsL=[AnsL;Tmp];
+ end;
+ end;
+ else
+ AnsL=[AnsL;%inf,%inf];
+ end;
+ end;
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin Binary files differnew file mode 100644 index 00000000..dfe76941 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci new file mode 100644 index 00000000..310ac166 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci @@ -0,0 +1,28 @@ +// 08.08.14 +// 08.10.16 +// 09.09.25 + +function Out=CameracoordCurve(Curve) + global FocusPoint EyePoint; + Out=[]; // 09.09.25 + for J=1:size(Curve,1) + P=Curve(J,:); + Tmp=P-FocusPoint; + X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3); + Tmp=EyePoint-FocusPoint; + E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); + Ca=E1/sqrt(E1^2+F1^2); + Sa=F1/sqrt(E1^2+F1^2); + X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1; + E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; + Cb=E2/sqrt(E2^2+G2^2); + Sb=G2/sqrt(E2^2+G2^2); + X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb; + E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb; + Xz=X3; + Yz=E3/(E3-X3)*Y3; + Zz=E3/(E3-X3)*Z3; + Out=[Out;Yz,Zz,Xz]; + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin Binary files differnew file mode 100644 index 00000000..58fd0152 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci new file mode 100644 index 00000000..1574d812 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci @@ -0,0 +1,11 @@ +// 13.08.13 + +function Out=Cancoordpara(P) + global PHI THETA; + Xz=P(1); Yz=P(2); Zz=P(3); + X=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA); + Y=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA); + Z=Yz*sin(THETA)+Zz*cos(THETA); + Out=[X,Y,Z]; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin Binary files differnew file mode 100644 index 00000000..57e2e49c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci new file mode 100644 index 00000000..b63aba5c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci @@ -0,0 +1,22 @@ +// 08.08.12 + +function Out=Cancoordpers(P) + global EyePoint FocusPoint; + Tmp=EyePoint-FocusPoint; + E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); + Ca=E1/sqrt(E1^2+F1^2); + Sa=F1/sqrt(E1^2+F1^2); + E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; + Cb=E2/sqrt(E2^2+G2^2); + Sb=G2/sqrt(E2^2+G2^2); + E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb; + Xz=P(3); Yz=P(1); Zz=P(2); + X3=Xz; Y3=Yz*(E3-Xz)/E3; Z3=Zz*(E3-Xz)/E3; + X2=X3*Cb-Sb*Z3; Y2=Y3; Z2=Cb*Z3+Sb*X3; + X1=X2*Ca-Sa*Y2; Y1=Ca*Y2+Sa*X2; Z1=Z2; + X=X1+FocusPoint(1); + Y=Y1+FocusPoint(2); + Z=Z1+FocusPoint(3); + Out=[X,Y,Z]; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin Binary files differnew file mode 100644 index 00000000..0b9ca934 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci new file mode 100644 index 00000000..2148c061 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci @@ -0,0 +1,32 @@ +// s:2008,05.12 +// e:2014.09.08 [A,B] supported +// e:2014.10.24 N,R => N__, ... + +function P=Circledata(varargin) + Nargs=length(varargin); + C=varargin(1); + if length(C)==4 then + ra=norm(C(1:2)-C(3:4)); + C=C(1:2); + Nop=2; + else + ra=varargin(2); + Nop=3; + end; + R__=[0,2*%pi]; + N__=50; // Numpoints + for I=Nop:Nargs + Tmp=varargin(I); + K=mtlb_findstr(Tmp,'='); + Tmp1=strsplit(Tmp,[K-1,K]); + Tmp2=ascii(Tmp1(1,1)); + Lhs=char(Tmp2(1)); + Str=Lhs+'__='+Tmp1(3,1); + execstr(Str); + end; + Dt=(R__(2)-R__(1))/N__; + T=R__(1):Dt:R__(2); + X=C(1)+ra*cos(T); + Y=C(2)+ra*sin(T); + P=[X',Y']; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin Binary files differnew file mode 100644 index 00000000..374f6316 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci new file mode 100644 index 00000000..bf9572c5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci @@ -0,0 +1,58 @@ +// 08.09.10 +// 08.09.16 +// 09.12.31 (gsort) + +function OutL=Clipindomain(ObjL,FigL) + EEps=10^(-4); + Eps=0.01; + Eps2=0.2; + Bdy=Kyoukai(FigL); + if Mixlength(Bdy)>=2 + Fbdy=Joincrvs(FigL) + else + Fbdy=Mixop(1,FigL); + end; + if Mixtype(ObjL)==1 + ObjL=Mix(ObjL) + end; + if Mixtype(FigL)==1 + FigL=Mix(FigL) + end; + OutL=[]; + for Nobj=1:Mixlength(ObjL); + Obj=Mixop(Nobj,ObjL); + ParL=[1,Numptcrv(Obj)]; + Tmp=IntersectcrvsPp(Obj,Fbdy,Eps,Eps2); + for J=1:Mixlength(Tmp) + Tmp1=Mixop(J,Tmp); + ParL=[ParL,Mixop(2,Tmp1)]; + end; + ParL=gsort(ParL); + ParL=ParL(length(ParL):-1:1); + Tmp=[1]; + for I=1:length(ParL) + Tmp1=Tmp(length(Tmp)); + Tmp2=ParL(I); + if Tmp2-Tmp1>EEps + Tmp=[Tmp,Tmp2]; + end; + end; + ParL=Tmp; + Tmp1=ParL(length(ParL)); + Tmp2=Numptcrv(Obj); + if abs(Tmp1-Tmp2)<Eps + ParL=[ParL(1:length(ParL)-1),Tmp2]; + end; + Fig=[]; + for N=1:length(ParL)-1 + Tmp=(ParL(N)+ParL(N+1))*0.5; + Tmp=PointonCurve(Tmp,Obj); + Tmp=Naigai(Tmp,Bdy); + Tmp1=modulo(sum(Tmp),2); + if Tmp1==0 continue; end; + Fig=Mixadd(Fig,Partcrv(ParL(N),ParL(N+1),Obj)); + end; + OutL=Mixjoin(OutL,Fig); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin Binary files differnew file mode 100644 index 00000000..991de452 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci new file mode 100644 index 00000000..f2928103 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci @@ -0,0 +1,24 @@ +// +// 13.05.19 openfile error tackled +// 13.11.01 Endpicture joined optionally +// 13.11.05 debugged + +function Closefile(varargin) + global Wfile FID; + if length(varargin)>=1 then + Pa=varargin(1); + if type(Pa)==10 then + if Pa=="1" then // 2013.11.05 + Endpicture(1) + end; + if Pa=="0" then + Endpicture(0) + end // + end + end + if Wfile~='default' then + mclose(FID); + FID=[]; // 2013.05.19 + end + Wfile='default'; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin Binary files differnew file mode 100644 index 00000000..d8f4d64d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci new file mode 100644 index 00000000..da7c3850 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci @@ -0,0 +1,10 @@ +// s : 2014.06.22 + +function Closeobj() + global Wfile FID; + if Wfile~='default' then + mclose(FID); + FID=[]; + end; + Wfile='default'; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin Binary files differnew file mode 100644 index 00000000..0e0991c3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci new file mode 100644 index 00000000..64b93e1a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci @@ -0,0 +1,15 @@ +// 08.05.31 + +function Closepar() + global Wfile FID + S='\end{minipage}' + if Wfile=='default' + mprintf('%s\n','%'); + mprintf('%s',S); + else + mfprintf(FID,'%s\n','%'); + mfprintf(FID,'%s',S); + end + Closephr(); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin Binary files differnew file mode 100644 index 00000000..6bffbf74 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci new file mode 100644 index 00000000..39b363f6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci @@ -0,0 +1,13 @@ +// 08.05.31 + +function Closephr() + global Wfile FID; + if Wfile=='default' + mprintf('%s\n','%'); + mprintf('%s\n','}%'); + else + mfprintf(FID,'%s\n','%'); + mfprintf(FID,'%s\n','}%'); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin Binary files differnew file mode 100644 index 00000000..c0c13ad5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci new file mode 100644 index 00000000..a3f345cb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci @@ -0,0 +1,22 @@ +// +// 08.12.17 +// 09.02.20 +// 10.04.12 + +function Closepicture(varargin) + global Wfile FID MEMORI MEMORINow ULEN MilliIn; + Nargs=length(varargin); + if Nargs==0 + Drwxy(); + elseif varargin(1)==1 + Drwxy(); + end + if Wfile=='default' + mprintf('%s','\end{picture}}%'); + else + mfprintf(FID,'%s','\end{picture}}%'); + end +// MEMORI=MEMORINow*1000/2.54/MilliIn; + Setunitlen('1cm'); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin Binary files differnew file mode 100644 index 00000000..7504d934 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci new file mode 100644 index 00000000..2abe8c90 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci @@ -0,0 +1,76 @@ +// 08.09.09 +// 08.09.10 +// 08.09.24 + +function PlotL=Connectseg(varargin) + Nargs=length(varargin); + Pdata=varargin(1); + Eps=10^(-5); + if Nargs>=2 + Eps=varargin(2) + end; + if Mixtype(Pdata)~=1 + Tmp=Mixop(1,Pdata); + Tmp=size(Tmp,2); + Sep=%inf*ones(1,Tmp); + Tmp=[]; + for I=1:Mixlength(Pdata) + Tmp1=Mixop(I,Pdata); + Tmp=[Tmp;Sep;Tmp1]; + end; + Pdata=Tmp(2:size(Tmp,1),:); + end; + Din=Dataindex(Pdata); + PlotL=[]; + Qd=Pdata(Din(1,1):Din(1,2),:); + Din=Din(2:size(Din,1),:); + N=size(Din,1); + while N>0 + Ah=Qd(1,:);Ao=Qd(size(Qd,1),:); + Flg=0; + for J=1:N + St=Din(J,1); + En=Din(J,2); + P=Pdata(St,:); + Q=Pdata(En,:); + if norm(P-Ao)<Eps + Tmp=Pdata(St+1:En,:); + Qd=[Qd;Tmp]; + Din=[Din(1:J-1,:);Din(J+1:N,:)]; + Flg=1; + break; + end; + if norm(Q-Ao)<Eps + Tmp=Pdata(En-1:-1:St,:); + Qd=[Qd;Tmp]; + Din=[Din(1:J-1,:);Din(J+1:N,:)]; + Flg=1; + break; + end; + if norm(P-Ah)<Eps + Tmp=Pdata(En:-1:St+1,:); + Qd=[Tmp;Qd]; + Din=[Din(1:J-1,:);Din(J+1:N,:)]; + Flg=1; + break; + end; + if norm(Q-Ah)<Eps + Tmp=Pdata(St:En-1,:); + Qd=[Tmp;Qd]; + Din=[Din(1:J-1,:);Din(J+1:N,:)]; + Flg=1; + break; + end; + end; + if Flg==0 + PlotL=Mixadd(PlotL,Qd); + Qd=Pdata(Din(1,1):Din(1,2),:); + Din=Din(2:N,:); + end; + N=size(Din,1); + end; + if size(Qd,1)>0 + PlotL=Mixadd(PlotL,Qd); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin Binary files differnew file mode 100644 index 00000000..c22f1e9e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci new file mode 100644 index 00000000..ab4d55b5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci @@ -0,0 +1,13 @@ +// 09.10.0 + +function Out=Crossprod(a,b) + if length(a)==3 + Tmp1=a(2)*b(3)-a(3)*b(2); + Tmp2=a(3)*b(1)-a(1)*b(3); + Tmp3=a(1)*b(2)-a(2)*b(1); + Out=[Tmp1,Tmp2,Tmp3]; + else + Out=a(1)*b(2)-a(2)*b(1); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin Binary files differnew file mode 100644 index 00000000..9de876b4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci new file mode 100644 index 00000000..07c17303 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci @@ -0,0 +1,7 @@ +// 08.09.19 + +function Out=Crv3onsfHiddenData() + global CRV3ONSFHIDDENDATA + Out=CRV3ONSFHIDDENDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin Binary files differnew file mode 100644 index 00000000..b2cafb90 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci new file mode 100644 index 00000000..ba168b71 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci @@ -0,0 +1,49 @@ +// 08.09.16 +// 08.10.11 +// 08.10.15 +// 10.02.16 Eps + +function Out=Crv3onsfparadata(varargin) + global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA + Nargs=length(varargin); + Fk=varargin(1); + Fbdy=Projpara(varargin(2)); + Fd=varargin(3); N=4; + FdL=Fullformfunc(Fd); + Fxy=Mixop(1,FdL); + Np=[50,50]; + if Nargs>=N + Np=varargin(N); N=N+1; + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=[0.05,1]; // + if Nargs>=N + Eps=varargin(N); + end; + if length(Eps)==1 // + Eps=[Eps,1]; // + end; // + Eps2=0.2; + if Nargs>=N+1 + Eps2=varargin(N+1); + end; + Tmp=Mixop(2,Fd); + K=mtlb_findstr(Tmp,'='); + Xname=part(Tmp,1:K-1); + Tmp=Mixop(3,Fd); + K=mtlb_findstr(Tmp,'='); + Yname=part(Tmp,1:K-1); + Fbdxy=Makexybdy(Fd,Np); + Tmp=Projpara(Fk); + Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // + if Fxy=='p' + Out=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); + else + Tmp=Mix(Fxy,Fbdxy,Xname,Yname); + Out=Nohiddenpara(Par,Fk,Tmp); + end; + CRV3ONSFHIDDENDATA=HIDDENDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin Binary files differnew file mode 100644 index 00000000..55aa8c1f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci new file mode 100644 index 00000000..5fc40737 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci @@ -0,0 +1,50 @@ +// 08.09.21 +// 08.10.11 +// 08.10.15 +// 10.02.16 Eps + +function Out=Crv3onsfpersdata(varargin) + global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA + Nargs=length(varargin); + Fk=varargin(1); + Fbdy=Projpers(varargin(2)); + Fd=varargin(3); N=4; + FdL=Fullformfunc(Fd); + Fxy=Mixop(1,FdL); + Np=[50,50]; + if Nargs>=N + Np=varargin(N); N=N+1; + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=[0.05,1]; // + if Nargs>=N + Eps=varargin(N); + end; + if length(Eps)==1 // + Eps=[Eps,1]; // + end; // + Eps2=0.2; + if Nargs>=N+1 + Eps2=varargin(N+1); + end; + Tmp=Mixop(2,Fd); + K=mtlb_findstr(Tmp,'='); + Xname=part(Tmp,1:K-1); + Tmp=Mixop(3,Fd); + K=mtlb_findstr(Tmp,'='); + Yname=part(Tmp,1:K-1); + Fbdxy=Makexybdy(Fd,Np); + Tmp=Projpers(Fk); + Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // + if Fxy=='p' + Out=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); + else + Tmp=Mix(Fxy,Fbdxy,Xname,Yname); + Out=Nohiddenpers(Par,Fk,Tmp); + end; + + CRV3ONSFHIDDENDATA=HIDDENDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin Binary files differnew file mode 100644 index 00000000..5269bbf1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci new file mode 100644 index 00000000..9d97b3ce --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci @@ -0,0 +1,7 @@ +// 08.09.19 + +function Out=CrvonsfHiddenData() + global CRVONSFHIDDENDATA + Out=CRVONSFHIDDENDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin Binary files differnew file mode 100644 index 00000000..69551af4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci new file mode 100644 index 00000000..a530284b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci @@ -0,0 +1,90 @@ +// 08.09.16 +// 08.10.11 +// 08.10.15 +// 10.02.16 Eps +// 13.10.22 ( __ added to varibles ) + +function OutL__=Crvonsfparadata(varargin) + global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA + Nargs__=length(varargin); + Eps__0=10^(-4); + Figuv__=varargin(1); + Fbdy__=Projpara(varargin(2)); + Fd__=varargin(3); N__=4; + Fd__L=Fullformfunc(Fd__); + Fxy__=Mixop(1,Fd__L); + Xf__=Mixop(2,Fd__L); + Yf__=Mixop(3,Fd__L); + Zf__=Mixop(4,Fd__L); + Np__=[50,50]; + if Nargs__>=N__ + Np__=varargin(N__); N__=N__+1; + if type(Np__)==1 & length(Np__)==1 + Np__=[Np__,Np__]; + end; + end; + Eps__=[0.05,1]; // + if Nargs__>=N__ + Eps__=varargin(N__); + end; + if length(Eps__)==1 + Eps__=[Eps__,1]; + end; + Eps__2=0.2; + if Nargs__>=N__+1 + Eps__2=varargin(N__+1); + end; + Tmp__=Mixop(2,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Xname__=part(Tmp__,1:K__-1); + Tmp__=Mixop(3,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Yname__=part(Tmp__,1:K__-1); + Tmp__=Mixop(5,Fd__L); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,Fd__L); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Fbdxy__=Makexybdy(Fd__,Np__); + Fbdy__uv=Mixop(8,Fd__L); + if Fbdy__uv==[] + Fbdy__uv=Mix(Framedata(Urg__,Vrg__)); + end; + FigL__=Clipindomain(Figuv__,Fbdy__uv); + CRVONSFHIDDENDATA=[]; + OutL__=[]; + for N__=1:Mixlength(FigL__) + PtL__=Mixop(N__,FigL__); + Tmp__=[]; + for I__=1:size(PtL__,1) + P__=PtL__(I__,:); + Tmp__1=strsubst(Xf__,Uname__,'('+string(P__(1))+')'); + Tmp__1=strsubst(Tmp__1,Vname__,'('+string(P__(2))+')'); + Tmp__1=evstr(Tmp__1); + Tmp__2=strsubst(Yf__,Uname__,'('+string(P__(1))+')'); + Tmp__2=strsubst(Tmp__2,Vname__,'('+string(P__(2))+')'); + Tmp__2=evstr(Tmp__2); + Tmp__3=strsubst(Zf__,Uname__,'('+string(P__(1))+')'); + Tmp__3=strsubst(Tmp__3,Vname__,'('+string(P__(2))+')'); + Tmp__3=evstr(Tmp__3); + Tmp__=[Tmp__,[Tmp__1,Tmp__2,Tmp__3]]; + end; + Fk__=Spaceline(Tmp__); + Par__=Partitionseg(Projpara(Fk__),Fbdy__,Eps__(1),Eps__2); // + if Fxy__=='p' + Tmp__=Nohiddenpara2(Par__,Fk__,Fd__,1,Np__,Eps__); + else + Tmp__1=Mix(Fxy__,Fbdxy__,Xname__,Yname__); + Tmp__=Nohiddenpara(Par__,Fk__,Tmp__1); + end; + if Tmp__~=[] + OutL__=Mixjoin(OutL__,Tmp__); + end; + if HIDDENDATA~=[] + CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA); + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin Binary files differnew file mode 100644 index 00000000..48451c6b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci new file mode 100644 index 00000000..f3bdf700 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci @@ -0,0 +1,86 @@ +// 08.09.21 +// 08.10.11 +// 08.10.15 +// 10.02.16 Eps + +function OutL=Crvonsfpersdata(varargin) + global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA + Nargs=length(varargin); + Eps0=10^(-4); + Figuv=varargin(1); + Fbdy=Projpers(varargin(2)); + Fd=varargin(3); N=4; + FdL=Fullformfunc(Fd); + Fxy=Mixop(1,FdL); + Xf=Mixop(2,FdL); + Yf=Mixop(3,FdL); + Zf=Mixop(4,FdL); + Np=[50,50]; + if Nargs>=N + Np=varargin(N); N=N+1; + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=[0.05,1]; // + if Nargs>=N + Eps=varargin(N); + end; + if length(Eps)==1 + Eps=[Eps,1]; + end; + Eps2=0.2; + if Nargs>=N+1 + Eps2=varargin(N+1); + end; + Tmp=Mixop(2,Fd); + K=mtlb_findstr(Tmp,'='); + Xname=part(Tmp,1:K-1); + Tmp=Mixop(3,Fd); + K=mtlb_findstr(Tmp,'='); + Yname=part(Tmp,1:K-1); + Tmp=Mixop(5,FdL); + K=mtlb_findstr(Tmp,'='); + Uname=part(Tmp,1:K-1); + Urg=evstr(part(Tmp,K+1:length(Tmp))); + Tmp=Mixop(6,FdL); + K=mtlb_findstr(Tmp,'='); + Vname=part(Tmp,1:K-1); + Vrg=evstr(part(Tmp,K+1:length(Tmp))); + Fbdxy=Makexybdy(Fd,Np); + Fbdyuv=Mixop(8,FdL); + if Fbdyuv==[] + Fbdyuv=Mix(Framedata(Urg,Vrg)); + end; + FigL=Clipindomain(Figuv,Fbdyuv); + CRVONSFHIDDENDATA=[]; + OutL=[]; + for N=1:Mixlength(FigL) + PtL=Mixop(N,FigL); + Tmp=[]; + for I=1:size(PtL,1) + P=PtL(I,:); + Tmp1=strsubst(Xf,Uname,'('+string(P(1))+')'); + Tmp1=strsubst(Tmp1,Vname,'('+string(P(2))+')'); + Tmp1=evstr(Tmp1); + Tmp2=strsubst(Yf,Uname,'('+string(P(1))+')'); + Tmp2=strsubst(Tmp2,Vname,'('+string(P(2))+')'); + Tmp2=evstr(Tmp2); + Tmp3=strsubst(Zf,Uname,'('+string(P(1))+')'); + Tmp3=strsubst(Tmp3,Vname,'('+string(P(2))+')'); + Tmp3=evstr(Tmp3); + Tmp=[Tmp,[Tmp1,Tmp2,Tmp3]]; + end; + Fk=Spaceline(Tmp); + Par=Partitionseg(Projpers(Fk),Fbdy,Eps(1),Eps2); // + if Fxy=='p' + Tmp=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); + else + Tmp1=Mix(Fxy,Fbdxy,Xname,Yname); + Tmp=Nohiddenpers(Par,Fk,Tmp1); + end; + OutL=Mixjoin(OutL,Tmp); + CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin Binary files differnew file mode 100644 index 00000000..110cf0de --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci new file mode 100644 index 00000000..0081b20c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci @@ -0,0 +1,7 @@ +// 08.10.24 + +function Out=CrvsfHiddenData() + global CRVSFHIDDENDATA + Out=CRVSFHIDDENDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin Binary files differnew file mode 100644 index 00000000..b759eff5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci new file mode 100644 index 00000000..a87506d2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci @@ -0,0 +1,81 @@ +// 08.10.24 +// 08.10.25 +// 08.10.26 +// 08.10.27 +// 09.06.02 +// 09.12.31 (gsort) +// 10.02.16 + +function Out=Crvsfparadata(varargin) + global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA + Nargs=length(varargin); + Sepflg=0; + Tmp=varargin(Nargs); + if type(Tmp)==1 & Tmp<=0 + Sepflg=1; + Nargs=Nargs-1; + end; + Fk=varargin(1); + if Mixtype(Fk)==1 + FkL=Mix(Fk); + else + FkL=Fk; + end; + Fbdy=Projpara(varargin(2)); + Fd=varargin(3); N=4; + FdL=Fullformfunc(Fd); + Fxy=Mixop(1,FdL); + Np=[50,50]; + if Nargs>=N + Np=varargin(N); N=N+1; + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=[0.05,1]; // + if Nargs>=N + Eps=varargin(N); + end; + if length(Eps)==1 // + Eps=[Eps,1]; // + end; // + Eps2=0.2; + if Nargs>=N+1 + Eps2=varargin(N+1); + end; + Tmp=Mixop(2,Fd); + K=mtlb_findstr(Tmp,'='); + Xname=part(Tmp,1:K-1); + Tmp=Mixop(3,Fd); + K=mtlb_findstr(Tmp,'='); + Yname=part(Tmp,1:K-1); + Out=[]; + CRVSFHIDDENDATA=[]; + for Nn=1:Mixlength(FkL) + Fk=Mixop(Nn,FkL); + Tmp=Projpara(Fk); + Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // + if Sepflg==0 + for I=1:Numptcrv(Fk)-1 + Pa=Ptcrv(I,Fk); + Pb=Ptcrv(I+1,Fk); + PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); // + for J=1:Mixlength(PtL) + Tmp=Mixop(J,PtL); + Tmp=Parapt(Tmp); + Tmp1=ParamonCurve(Tmp,I,Projpara(Fk)); + Tmp2=min(abs(Par-Tmp1)); + if Tmp2*norm(Parapt(Pb-Pa))>Eps (1) // + Par=[Par,Tmp1]; + end; + end; + Par=gsort(Par); + Par=Par(length(Par):-1:1); + end; + end; + Tmp1=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); + Out=Mixjoin(Out,Tmp1); + CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin Binary files differnew file mode 100644 index 00000000..af00090e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci new file mode 100644 index 00000000..7e24efcb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci @@ -0,0 +1,80 @@ +// 08.10.24 +// 08.10.25 +// 08.10.26 +// 08.10.27 +// 09.06.02 +// 09.12.31 (gsort) + +function Out=Crvsfpersdata(varargin) + global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA + Nargs=length(varargin); + Sepflg=0; + Tmp=varargin(Nargs); + if type(Tmp)==1 & Tmp<=0 + Sepflg=1; + Nargs=Nargs-1; + end; + Fk=varargin(1); + if Mixtype(Fk)==1 + FkL=Mix(Fk); + else + FkL=Fk; + end; + Fbdy=Projpers(varargin(2)); + Fd=varargin(3); N=4; + FdL=Fullformfunc(Fd); + Fxy=Mixop(1,FdL); + Np=[50,50]; + if Nargs>=N + Np=varargin(N); N=N+1; + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=[0.05,1]; // + if Nargs>=N + Eps=varargin(N); + end; + if length(Eps)==1 // + Eps=[Eps,1]; // + end; // + Eps2=0.2; + if Nargs>=N+1 + Eps2=varargin(N+1); + end; + Tmp=Mixop(2,Fd); + K=mtlb_findstr(Tmp,'='); + Xname=part(Tmp,1:K-1); + Tmp=Mixop(3,Fd); + K=mtlb_findstr(Tmp,'='); + Yname=part(Tmp,1:K-1); + Out=[]; + CRVSFHIDDENDATA=[]; + for Nn=1:Mixlength(FkL) + Fk=Mixop(Nn,FkL); + Tmp=Projpers(Fk); + Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // + if Sepflg==0 + for I=1:Numptcrv(Fk)-1 + Pa=Ptcrv(I,Fk); + Pb=Ptcrv(I+1,Fk); + PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); // + for J=1:Mixlength(PtL) + Tmp=Mixop(J,PtL); + Tmp=Perspt(Tmp); + Tmp1=ParamonCurve(Tmp,I,Projpers(Fk)); + Tmp2=min(abs(Par-Tmp1)); + if Tmp2*norm(Perspt(Pb-Pa))>Eps(1) // + Par=[Par,Tmp1]; + end; + end; + Par=gsort(Par); + Par=Par(length(Par):-1:1); + end; + end; + Tmp1=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); + Out=Mixjoin(Out,Tmp1); + CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin Binary files differnew file mode 100644 index 00000000..e6820112 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci new file mode 100644 index 00000000..8c2b6eee --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci @@ -0,0 +1,7 @@ +// 08.09.10 + +function Out=CuspData() + global CUSPDATA + Out=CUSPDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin Binary files differnew file mode 100644 index 00000000..a31b8fa0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci new file mode 100644 index 00000000..33f1d807 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci @@ -0,0 +1,7 @@ +// 08.09.10 + +function Out=CuspPt() + global CUSPPT + Out=CUSPPT; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin Binary files differnew file mode 100644 index 00000000..040b5f3e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci new file mode 100644 index 00000000..07cbb09b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci @@ -0,0 +1,7 @@ +// 08.09.10 + +function PL=CuspSplitPt() + global CUSPSPLITPT + PL=CUSPSPLITPT; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin Binary files differnew file mode 100644 index 00000000..333137e7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci new file mode 100644 index 00000000..0ea935b6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci @@ -0,0 +1,179 @@ +// 08.09.10 +// 08.09.13 +// 08.09.15 +// 08.10.10 +// 10.02.16 Eps +// 13.10.21 ( __ added to varibles ) +// 14.06.28 debug in the case of no cusp + +function OutkL__=Cuspsplitpara(varargin); + global CUSPSPLITPT; + Nargs__=length(varargin); + Gdxy__=varargin(1); + if Mixtype(Gdxy__)==1 + Gdxy__=Mix(Gdxy__); + end; + Fd__=varargin(2); + FdL__=Fullformfunc(Fd__); + Eps0__=10^(-5); + Eps__=0.05; + if Nargs__>2 Eps__=varargin(3); end; + if length(Eps__)>1 // + Eps__=Eps__(1); + end; // + Fxy__=Mixop(1,FdL__); N__=2; + Tmp1__=Mixop(2,FdL__); + Tmp2__=Mixop(3,FdL__); + Tmp3__=Mixop(4,FdL__); + Xyzstr__=[Tmp1__,Tmp2__,Tmp3__]; + Tmp__=Mixop(5,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + CUSPSPLITPT=[]; + OutkL__=[]; + for Ng__=1:Mixlength(Gdxy__) + PtxyL__=Mixop(Ng__,Gdxy__); + PtkL__=[]; + PthL__=[]; + for I__=1:size(PtxyL__,1) + Tmp__=PtxyL__(I__,:); + Tmp1__=Uname__+'='+string(Tmp__(1)); + execstr(Tmp1__); + Tmp1__=Vname__+'='+string(Tmp__(2)) + execstr(Tmp1__); + Tmp2__=evstr(Xyzstr__); + Tmp3__=Parapt(Tmp2__); + if I__==1 + PtkL__=[Tmp2__]; + PthL__=[Tmp3__]; + else + Tmp4__=PthL__(size(PthL__,1),:); + if norm(Tmp3__-Tmp4__)>Eps0__ + PtkL__=[PtkL__;Tmp2__]; + PthL__=[PthL__;Tmp3__] + end; + end; + end; + if size(PthL__,1)==0 then // from 20140628 + OutkL__=[]; + return; + end; // upto 20140628 + Ps__=PthL__(1,:); Pe__=PthL__(size(PthL__,1),:); + Cflg__=0; + if norm(Ps__-Pe__)<Eps__ Cflg__=1; end; + CuspL__=[]; + Cva__=cos(10*%pi/180); + for I__=1:size(PthL__,1)-1 + if size(PthL__,1)==2 break; end; + Tmp__=PthL__(I__,:); + if I__==1 + if Cflg__==0 continue; end; + Tmp1__=PthL__(size(PthL__,1)-1,:); + else + Tmp1__=PthL__(I__-1,:); + end; + Tmp2__=PthL__(I__+1,:); + V1__=Tmp__-Tmp1__; + V2__=Tmp2__-Tmp__; + Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2); + Tmp3__=Tmp3__/(norm(V1__)*norm(V2__)); + Cuspflg__=0; + if Tmp3__<Cva__ + P__=PthL__(I__,:); + Kaku__=acos(Tmp3__)*180/%pi; + if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 + Kaku__=-Kaku__ + end; + Cuspflg__=0; + for J__=I__+1:size(PthL__,1)-1 + if abs(Kaku__)>90 + Cuspflg__=1; + break + end; + Q__=PthL__(J__,:); + if norm(P__-Q__)>Eps__ + break + end; + V1__=Q__-PthL__(J__-1,:); + V2__=PthL__(J__+1,:)-Q__; + Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2); + Tmp3__=Tmp3__/(norm(V1__)*norm(V2__)); + Tmp__=acos(Tmp3__)*180/%pi; + if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 + Tmp__=-Tmp__ + end; + Kaku__=Kaku__+Tmp__ + end; + if Cuspflg__==1 + Tmp__=Trunc((I__+J__)*0.5); + I__=J__; + if length(CuspL__)==0 + CuspL__=[Tmp__] + else + CuspL__=[CuspL__,Tmp__]; + end; + end; + end; + end; + if Cflg__==0 + CuspL__=[1,CuspL__,size(PthL__,1)]; + elseif length(CuspL__)==0 + CuspL__=[1,size(PthL__,1)]; + elseif CuspL__(1)==1 + CuspL__=[CuspL__,size(PthL__,1)]; + else + Tmp__=CuspL__(1); + Tmp1__=size(PthL__,1); + PthL__=[PthL__(Tmp__:Tmp1__,:);PthL__(2:Tmp__,:)]; + PtkL__=[PtkL__(Tmp__:Tmp1__,:);PtkL__(2:Tmp__,:)]; + CuspL__=CuspL__-Tmp__+1; + CuspL__=[CuspL__,size(PthL__,1)]; + end; + if length(CuspL__)==2 + //Outh=[plot(PthL__)]; + Tmp4__=PthL__(size(PthL__,1),:); + if size(PtkL__,1)>=2 + CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__); + OutkL__=Mixadd(OutkL__,PtkL__); + end; + continue + end; + //Outh=[]; + Outk__=[]; + Is__=1; + for I__=1:length(CuspL__)-1 + Tmp1__=CuspL__(Is__); Tmp2__=CuspL__(I__+1); + Tmp3__=PthL__(Tmp1__,:); Tmp4__=PthL__(Tmp2__,:); + if norm(Tmp3__-Tmp4__)>Eps__ + //Tmph__=[op(Tmp1__..Tmp2__,PthL__)]; + Tmpk__=PtkL__(Tmp1__:Tmp2__,:); + //Outh=[op(Outh),plot(Tmph__)]; + Outk__=Mixadd(Outk__,Tmpk__); + CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__); + Is__=I__+1; + end; + end; + OutkL__=Mixjoin(OutkL__,Outk__); + end; + Tmp1__=Dropnumlistcrv(Projpara(OutkL__),Eps__*0.5); + Tmp__=[]; + for I__=1:Mixlength(OutkL__) + Tmp2__=Mixop(I__,OutkL__); + Tmp3__=Mixop(I__,Tmp1__); + Tmp4__=[]; + for J__=1:length(Tmp3__) + Tmp5__=Tmp2__(Tmp3__(J__),:); + Tmp4__=[Tmp4__;Tmp5__]; + end; + if Tmp4__~=[] + Tmp__=Mixadd(Tmp__,Tmp4__); + end; + end; + OutkL__=Tmp__; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin Binary files differnew file mode 100644 index 00000000..d5f47f89 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci new file mode 100644 index 00000000..a8221f5b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci @@ -0,0 +1,176 @@ +// 08.09.21 +// 08.10.10 +// 10.02.16 Eps__ +// 13.11.01 ( __ added to varibles ) +// 14.06.28 debug in the case of no cusp + +function OutkL__=Cuspsplitpers(varargin); + global CUSPSPLITPT; + Nargs__=length(varargin); + Gdxy__=varargin(1); + if Mixtype(Gdxy__)==1 + Gdxy__=Mix(Gdxy__); + end; + Fd__=varargin(2); + FdL__=Fullformfunc(Fd__); + Eps__0=10^(-5); + Eps__=0.05; + if Nargs__>2 Eps__=varargin(3); end; + if length(Eps__)>1 // + Eps__=Eps__(1); + end; // + Fxy__=Mixop(1,FdL__); N=2; + Tmp__1=Mixop(2,FdL__); + Tmp__2=Mixop(3,FdL__); + Tmp__3=Mixop(4,FdL__); + Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; + Tmp__=Mixop(5,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + CUSPSPLITPT=[]; + OutkL__=[]; + for Ng__=1:Mixlength(Gdxy__) + PtxyL__=Mixop(Ng__,Gdxy__); + PtkL__=[]; + PthL__=[]; + for I__=1:size(PtxyL__,1) + Tmp__=PtxyL__(I__,:); + Tmp__1=Uname__+'='+string(Tmp__(1)); + execstr(Tmp__1); + Tmp__1=Vname__+'='+string(Tmp__(2)) + execstr(Tmp__1); + Tmp__2=evstr(Xyzstr__); + Tmp__3=Perspt(Tmp__2); + if I__==1 + PtkL__=[Tmp__2]; + PthL__=[Tmp__3]; + else + Tmp__4=PthL__(size(PthL__,1),:); + if norm(Tmp__3-Tmp__4)>Eps__0 + PtkL__=[PtkL__;Tmp__2]; + PthL__=[PthL__;Tmp__3] + end; + end; + end; + if size(PthL__,1)==0 then // from 20140628 + OutkL__=[]; + return; + end; // upto 20140628 + Ps__=PthL__(1,:); Pe=PthL__(size(PthL__,1),:); + Cflg__=0; + if norm(Ps__-Pe)<Eps__ Cflg__=1; end; + CuspL__=[]; + Cva__=cos(10*%pi/180); + for I__=1:size(PthL__,1)-1 + if size(PthL__,1)==2 break; end; + Tmp__=PthL__(I__,:); + if I__==1 + if Cflg__==0 continue; end; + Tmp__1=PthL__(size(PthL__,1)-1,:); + else + Tmp__1=PthL__(I__-1,:); + end; + Tmp__2=PthL__(I__+1,:); + V1__=Tmp__-Tmp__1; + V2__=Tmp__2-Tmp__; + Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2); + Tmp__3=Tmp__3/(norm(V1__)*norm(V2__)); + Cuspflg__=0; + if Tmp__3<Cva__ + P__=PthL__(I__,:); + Kaku__=acos(Tmp__3)*180/%pi; + if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 + Kaku__=-Kaku__ + end; + Cuspflg__=0; + for J__=I__+1:size(PthL__,1)-1 + if abs(Kaku__)>90 + Cuspflg__=1; + break + end; + Q__=PthL__(J__,:); + if norm(P__-Q__)>Eps__ + break + end; + V1__=Q__-PthL__(J__-1,:); + V2__=PthL__(J__+1,:)-Q__; + Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2); + Tmp__3=Tmp__3/(norm(V1__)*norm(V2__)); + Tmp__=acos(Tmp__3)*180/%pi; + if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 + Tmp__=-Tmp__ + end; + Kaku__=Kaku__+Tmp__ + end; + if Cuspflg__==1 + Tmp__=Trunc((I__+J__)*0.5); + I__=J__; + if length(CuspL__)==0 + CuspL__=[Tmp__] + else + CuspL__=[CuspL__,Tmp__]; + end; + end; + end; + end; + if Cflg__==0 + CuspL__=[1,CuspL__,size(PthL__,1)]; + elseif length(CuspL__)==0 + CuspL__=[1,size(PthL__,1)]; + elseif CuspL__(1)==1 + CuspL__=[CuspL__,size(PthL__,1)]; + else + Tmp__=CuspL__(1); + Tmp__1=size(PthL__,1); + PthL__=[PthL__(Tmp__:Tmp__1,:);PthL__(2:Tmp__,:)]; + PtkL__=[PtkL__(Tmp__:Tmp__1,:);PtkL__(2:Tmp__,:)]; + CuspL__=CuspL__-Tmp__+1; + CuspL__=[CuspL__,size(PthL__,1)]; + end; + if length(CuspL__)==2 + //Outh__=[plot(PthL__)]; + Tmp__4=PthL__(size(PthL__,1),:); + if size(PtkL__,1)>=2 + CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4); + OutkL__=Mixadd(OutkL__,PtkL__); + end; + continue + end; + //Outh__=[]; + Outk__=[]; + Is__=1; + for I__=1:length(CuspL__)-1 + Tmp__1=CuspL__(Is__); Tmp__2=CuspL__(I__+1); + Tmp__3=PthL__(Tmp__1,:); Tmp__4=PthL__(Tmp__2,:); + if norm(Tmp__3-Tmp__4)>Eps__ + //Tmp__h=[op(Tmp__1..Tmp__2,PthL__)]; + Tmp__k=PtkL__(Tmp__1:Tmp__2,:); + //Outh__=[op(Outh__),plot(Tmp__h)]; + Outk__=Mixadd(Outk__,Tmp__k); + CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4); + Is__=I__+1; + end; + end; + OutkL__=Mixjoin(OutkL__,Outk__); + end; + Tmp__1=Dropnumlistcrv(Projpers(OutkL__),Eps__*0.5); + Tmp__=[]; + for I__=1:Mixlength(OutkL__) + Tmp__2=Mixop(I__,OutkL__); + Tmp__3=Mixop(I__,Tmp__1); + Tmp__4=[]; + for J__=1:length(Tmp__3) + Tmp__5=Tmp__2(Tmp__3(J__),:); + Tmp__4=[Tmp__4;Tmp__5]; + end; + if Tmp__4~=[] + Tmp__=Mixadd(Tmp__,Tmp__4); + end; + end; + OutkL__=Tmp__; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin Binary files differnew file mode 100644 index 00000000..d9fb0edd --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci new file mode 100644 index 00000000..fa26b319 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci @@ -0,0 +1,14 @@ +// 08.10.15 + +function Out=Cutsf2d(Nvec,GL,Flg) + global THETA PHI + Theta=THETA; Phi=PHI; + Tmp=Rotate3data(GL,Nvec,[-1,0,0]); + THETA=%pi/2; PHI=0; + Out=Projpara(Tmp); + if Flg==1 + Windisp(Out); + end; + THETA=Theta; PHI=Phi; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin Binary files differnew file mode 100644 index 00000000..dc144378 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci new file mode 100644 index 00000000..1df8e5e3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci @@ -0,0 +1,31 @@ +// 08.05.21 +// 08.07.14 +// 10.01.02 bin remade +// 10.11.13 Flattenlist used + +function Dashline(varargin) + global MilliIn + Nargs=length(varargin); + Nall=Nargs; Sen=1 ; Gap=1; + Tmp=varargin(Nall); + if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 + Tmp1=varargin(Nall-1); + if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 + Sen=Tmp1; Gap=Tmp; + Nall=Nall-2; + else + Sen=Tmp; Gap=Sen; + Nall=Nall-1; + end + end + Sen=1000/2.54/MilliIn*Sen; + Gap=1000/2.54/MilliIn*Gap; + for N=1:Nall + Tmp=varargin(N); + Fdata=Flattenlist(Tmp); + for I=1:length(Fdata); + Figdata=Fdata(I); + Makehasen(Figdata,Sen,Gap,0); + end; + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin Binary files differnew file mode 100644 index 00000000..b64a96c8 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci new file mode 100644 index 00000000..82e9ac48 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci @@ -0,0 +1,24 @@ +// +// 08.05.31 + +function Ndm=Dataindex(P) + // %inf;%inf -> end + Ndm=[]; + if P==[] return; end + N1=1; + Flg=0; + for J=1:size(P,1) + if P(J,1)==%inf + Ndm=[Ndm;N1,J-1]; + N1=J+1; + if P(N1,1)==%inf + Flg=1; + break; + end + end + end + if Flg==0 + Ndm=[Ndm;N1,size(P,1)]; + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin Binary files differnew file mode 100644 index 00000000..7ffb898a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci new file mode 100644 index 00000000..b06ac44b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci @@ -0,0 +1,23 @@ +// 15.05.04 + +function Definecolor(Name,Data) + Tmp1=size(Data,2); + if Tmp1<3 | Tmp1>4 + disp("Size of data should be 3 or 4."); + return; + end; + if Tmp1==4 + Tp="cmyk" + else + Tp="rgb" + end; + Tmp=""; + for J=1:Tmp1 + Tmp=Tmp+string(Data(J)); + if J<Tmp1 + Tmp=Tmp+","; + end; + end + Tmp="\definecolor{"+Name+"}{"+Tp+"}{"+Tmp+"}"; + Texcom(Tmp); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin Binary files differnew file mode 100644 index 00000000..a2f5f722 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci new file mode 100644 index 00000000..43d8ea6e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci @@ -0,0 +1,195 @@ + +// 08.09.22 +// 09.03.10 +// 09.10.09 ( ` and order ) +// 09.10.09b ( system ) +// 09.11.12 ( debug for x<0 ) +// 13.10.19 ( __ added to variables ) +// 15.11.16 N changed to number of intervals +// 15.12.08 bug of optiion ( __ ) fixed + +function P__=Deqplot(varargin) + global XMIN XMAX YMIN YMAX + Nargs__=length(varargin); + Eps__=10^(-5); + Fnstr__=varargin(1); + Fnstr__=strsubst(Fnstr__,Prime(),'`'); + K__=mtlb_findstr(Fnstr__,'='); + Str__=part(Fnstr__,1:(K__-1)); + Fnstr__=part(Fnstr__,(K__+1):length(Fnstr__)); + JL__=mtlb_findstr(Str__,'`'); + Yname__=part(Str__,1:(JL__(1)-1)); + Yname__=strsubst(Yname__,',',';'); + Tmp__=mtlb_findstr(Yname__,';'); + if length(Tmp__)>0 + Dim__=length(Tmp__)+1; + Order__=1; + Fnstr__=strsubst(Fnstr__,',',';'); + else + Dim__=1; + Order__=length(JL__); + end; + Rgstr__=varargin(2); + K__=mtlb_findstr(Rgstr__,'='); + if K__~=[] + Xname__=part(Rgstr__,1:K__-1); + Rng__=evstr(part(Rgstr__,K__+1:length(Rgstr__))); + else + Xname__=Rgstr__; + Rng__=[XMIN,XMAX]; + end; + X0__=varargin(3); + Y0__=varargin(4); + if size(Y0__,2)>1 + Y0__=Y0__'; + end; + N__=50; + if Nargs__>=5 + Tmp__=varargin(5); + Tmp__=strsubst(Tmp__,"=","__="); // 15.12.08 + Tmp__=strsubst(Tmp__,"____","__"); + execstr(Tmp__); + end; + X1__=Rng__(1); X2__=Rng__(2); + dX__=(X2__-X1__)/(N__-1); + dX__=(X2__-X1__)/(N__); // 15.11.16 + if Dim__>1 + Tmp__=mtlb_findstr(Yname__,'['); + Data__=part(Yname__,Tmp__+1:length(Yname__)); + Tmp__=mtlb_findstr(Data__,']'); + Data__=part(Data__,1:Tmp__-1); + Data__=';'+Data__+';'; + NL__=mtlb_findstr(Data__,';'); + NameL__=list(); + for I__=1:length(NL__)-1 + Tmp__=part(Data__,NL__(I__)+1:NL__(I__+1)-1); + NameL__(I__)=Tmp__; + end; + Fnrep__=Fnstr__; + for I__=1:length(NameL__) + Tmp__=NameL__(I__); + Fnrep__=strsubst(Fnrep__,Tmp__,'Pt('+string(I__)+')'); + end; + Tmp1__='Outf=Dfp__('+Xname__+',Pt)'; + Tmp2__='Outf='+Fnrep__; + deff(Tmp1__,Tmp2__); + Y0p__=Y0__; + Tmp1__='Outf=Dfn__('+Xname__+',Pt)'; + Tmp2__='Outf=-('+Fnrep__+')'; + deff(Tmp1__,Tmp2__); + Y0n__=Y0__; + else + YL__=mtlb_findstr(Fnstr__,Yname__); + Fnrep__=part(Fnstr__,1:YL__(1)-1); + for I__=1:length(YL__) + Py__=YL__(I__); + J__=1; + K__=Py__+1; + while part(Fnstr__,K__:K__)=='`' + J__=J__+1; K__=K__+1; + end; + Fnrep__=Fnrep__+Yname__+'('+string(J__)+')'; + if I__==length(YL__) + Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__)); + else + J__=YL__(I__+1)-1; + if J__>=K__ + Fnrep__=Fnrep__+part(Fnstr__,K__:J__); + end; + end; + end; + Eqvec__='['; + for I__=1:Order__-1 + Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');'; + end; + Eqvec__=Eqvec__+Fnrep__+']'; + Tmp1__='Outf=Dfp__('+Xname__+','+Yname__+')'; + Tmp2__='Outf='+Eqvec__; + deff(Tmp1__,Tmp2__); + Y0p__=Y0__; + YL__=mtlb_findstr(Fnstr__,Yname__); + Fnrep__=part(Fnstr__,1:YL__(1)-1); + for I__=1:length(YL__) + Py__=YL__(I__); + J__=1; + K__=Py__+1; + while part(Fnstr__,K__:K__)=='`' + J__=J__+1; K__=K__+1; + end; + if modulo(J__,2)==1 + Fnrep__=Fnrep__+Yname__+'('+string(J__)+')'; + else + Fnrep__=Fnrep__+'(-'+Yname__+'('+string(J__)+'))'; + end; + if I__==length(YL__) + Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__)); + else + J__=YL__(I__+1)-1; + if J__>=K__ + Fnrep__=Fnrep__+part(Fnstr__,K__:J__); + end; + end; + end; + if modulo(Order__,2)==1 + Fnrep__='-('+Fnrep__+')'; + end; + Fnrep__=strsubst(Fnrep__,Xname__,'(-'+Xname__+')'); // 09.11.12 + Eqvec__='['; + for I__=1:Order__-1 + Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');'; + end; + Eqvec__=Eqvec__+Fnrep__+']'; + Tmp1__='Outf=Dfn__('+Xname__+','+Yname__+')'; + Tmp2__='Outf='+Eqvec__; + deff(Tmp1__,Tmp2__); + Y0n__=[]; + for I__=1:size(Y0__,1) + Y0n__=[Y0n__;(-1)^(I__-1)*Y0__(I__)]; + end; + end; + if X0__<=X1__ + X__=X1__:dX__:X2__; + Y__=ode(Y0p__,X0__,X__,Dfp__); + M__=min(size(X__,2),size(Y__,2)); + if Dim__>1 + PL__=Y__'; + P__=PL__(1:M__,:); + else + P__=[X__(:,1:M__);Y__(1,1:M__)]'; + end; + return; + end; + if X2__<=X0__ + X__=(-X2__):dX__:(-X1__); + Y__=ode(Y0n__,-X0__,X__,Dfn__); + X__=-X__; + M__=min(size(X__,2),size(Y__,2)); + if Dim__>1 + PL__=Y__'; + P__=PL__(1:M__,:); + else + P__=[X__(:,1:M__);Y__(1,1:M__)]'; + end; + return; + end; + XP__=X0__:dX__:X2__; + YP__=ode(Y0p__,X0__,XP__,Dfp__); + M__=min(size(XP__,2),size(YP__,2)); + XP__=XP__(:,1:M__); + YP__=YP__(:,1:M__); + XN__=(-X0__)+dX__:dX__:(-X1__); + YN__=ode(Y0n__,-X0__,XN__,Dfn__); + M__=min(size(XN__,2),size(YN__,2)); + XN__=XN__(:,1:M__); + YN__=YN__(:,1:M__); + XN__=-XN__; + XN__=XN__(length(XN__):-1:1); + YN__=YN__(:,size(YN__,2):-1:1); + if Dim__>1 + P__=[YN__';YP__'] + else + X__=[XN__,XP__]; + Y__=[YN__(1,:),YP__(1,:)]; + P__=[X__;Y__]'; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin Binary files differnew file mode 100644 index 00000000..c30c8ae4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci new file mode 100644 index 00000000..cbffc3d7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci @@ -0,0 +1,64 @@ +// 09.10.04 +// 09.10.05 +// 09.10.06 +// 14.10.24 numderivative used after 5.5 + +function Out=Derivative(varargin) + Nargs=length(varargin); + Out=[]; + Fs=varargin(1); + Vv=varargin(2); + Np=3; + if type(Vv)==10 + Prstr=strsubst(Vv,'[','('); + Prstr=strsubst(Prstr,']',')'); + Tmp=part(Prstr,1); + if Tmp~='(' + Prstr='('+Prstr+')'; + end; + deff('Out=Tmpfun'+Prstr,'Out='+Fs); + Fs='Tmpfun'+Prstr; + Vv=varargin(Np); + Np=Np+1; + end; + Nd=[]; + if Np<=Nargs + Nd=varargin(Np); + end; + Js=mtlb_findstr(Fs,'('); + JL=mtlb_findstr(Fs,','); + Je=mtlb_findstr(Fs,')'); + Sep=[Js(1),JL,Je]; + Fse=Fs; + for I=1:length(Vv) + J1=Sep(I)+1; + J2=Sep(I+1)-1; + Tmp1=part(Fs,J1:J2); + Tmp2='X_'+string(I); + Fse=strsubst(Fse,Tmp1,Tmp2); + end; + function Ans=Tmpf(W) + X1=W(1); + if length(W)>1 + X2=W(2); + else; + X2=%inf; + end; + if length(W)>2 + X3=W(3); + else + X3=%inf; + end; + Tmp=Assign(Fse,'X_1',X1,'X_2',X2,'X_3',X3); + Ans=evstr(Tmp)'; + endfunction; + Tmp1=getversion("scilab"); + if Tmp1(1)*10+Tmp1(2)>=55 then + Out=numderivative(Tmpf,Vv')'; + else + Out=derivative(Tmpf,Vv')'; + end + if Nd~=[] + Out=Out(Nd,:) + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin Binary files differnew file mode 100644 index 00000000..6f9d2eaf --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci new file mode 100644 index 00000000..b6a53b62 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci @@ -0,0 +1,15 @@ +// 10.03.28 + +function Out=Diagcelldata(Tb,Nc,Nr) + Tmp=Findcell(Tb,Nc,Nr); + C=Tmp(1); + Dx=Tmp(2); + Dy=Tmp(3); + Pne=C+[Dx,Dy]; + Pnw=C+[-Dx,Dy]; + Psw=C+[-Dx,-Dy]; + Pse=C+[Dx,-Dy]; + Tmp1=Listplot(Pnw,Pse); + Tmp2=Listplot(Pne,Psw); + Out=list(Tmp1,Tmp2); +endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin Binary files differnew file mode 100644 index 00000000..76090b77 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci new file mode 100644 index 00000000..be16b473 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci @@ -0,0 +1,20 @@ +// 08.05.31 +// 10.01.01 +// 11.01.07 + +function OutL=Dividegraphics(Pd) + if length(Pd)==0 + OutL=Pd; + return; + end; + DtL=Flattenlist(Pd); + OutL=list(); + for J=1:length(DtL) + Dt= DtL(J); + Ndm=Dataindex(Dt); + for I=1:size(Ndm,1) + Fd=Dt(Ndm(I,1):Ndm(I,2),:); + OutL($+1)=Fd; + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin Binary files differnew file mode 100644 index 00000000..f65a407d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci new file mode 100644 index 00000000..36531da2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci @@ -0,0 +1,9 @@ +// 13.05.03 + +function Out=Dividetable(Tb) + G=Tb(1); + Gw=G(1); + Gt=Mixsub(Tb(2),G); + Gy=Mixsub(Tb(3),G); + Out=list(Gw,Gt,Gy) +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin Binary files differnew file mode 100644 index 00000000..921b0546 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci new file mode 100644 index 00000000..5054faf2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci @@ -0,0 +1,14 @@ +// 09.12.25 + +function Out=Doscaling(G) + global LOGX LOGY SCALEX SCALEY; + GLg=G; + if LOGX==1 + GLg=[log10(G(:,1)),GLg(:,2)]; + end; + if LOGY==1 + GLg=[GLg(:,1),log10(G(:,2))]; + end; + Out=[SCALEX*GLg(:,1),SCALEY*GLg(:,2)]; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin Binary files differnew file mode 100644 index 00000000..9b3d417e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci new file mode 100644 index 00000000..fc2847c7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci @@ -0,0 +1,186 @@ +// 08.05.31 +// 10.01.01 +// 10.03.07 (Kosa ) + +function ShaL=Dotfilldata(varargin) + global XMIN XMAX YMIN YMAX MilliIn; + Nargs=length(varargin); + ShaL=[]; + Eps=0.01; + Kakudo=45; + Kosa=0.5; + Tmp=Doscaling([XMIN,YMIN]); + Xmn=Tmp(1); Ymn=Tmp(2); + Tmp=Doscaling([XMAX,YMAX]); + Xmx=Tmp(1); Ymx=Tmp(2); + for N=Nargs:-1:1 + Tmp=varargin(N); + if Mixtype(Tmp)~=1 + break + end + end + if N<Nargs + Kosa=varargin(N+1); + end +// Kosa=min(Kosa,1); // 100307 + Tmp=1/(2*Kosa); + Kankaku=Tmp*0.100*1000/2.54/MilliIn; + NaitenL=varargin(1); + if Mixtype(NaitenL)==1 + NaitenL=list(NaitenL); + end + Ns=2; + StartP=Op(1,NaitenL); + if type(StartP)==10 + StartP=[(XMIN+XMAX)/2,(YMIN+YMAX)/2]; + else + StartP=Doscaling(StartP); + end; + Tmp=varargin(2); + if Mixtype(Tmp)==1 + StartP=Doscaling(Tmp); + Ns=3; + end + Tmp=[]; + for I=Ns:N + Tmp=Mixjoin(Tmp,list(varargin(I))); + end + Bdy=Kyoukai(Tmp); + Bdys=list(); + for I=1:length(Bdy) + Tmp1=Bdy(I); + Tmp2=Doscaling(Tmp1); + Bdys=Mixjoin(Bdys,list(Tmp2)) + end; + Bdy=Bdys; + PtnL=[]; + for I=1:length(NaitenL) + Tmp=Op(I,NaitenL); + if type(Tmp)==1 + Tmp1=Naigai(Tmp,Bdy) + PtnL=Mixjoin(PtnL,list(Tmp1)); + else + if type(Tmp)~=10 + disp('Type Error'); + return; + end + Ptn=[]; + for J=1:length(Tmp) + if Op(J,Tmp)=='i' + Ptn=[Ptn,1]; + else + Ptn=[Ptn,0]; + end + end + PtnL=Mixjoin(PtnL,list(Ptn)); + end + end + Call=length(Bdy); + Ptn=zeros(1,Call); + if Member(Ptn,PtnL) + Wn=Doscaling(Framedata()); + Bdy=Mixjoin(Bdy,list(Wn)); + Tmp=[]; + for I=1:Mixlength(PtnL) + Tmp1=[Op(I,PtnL),1]; + Tmp=Mixjoin(Tmp,list(Tmp1)); + end + PtnL=Tmp; + end + V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)]; + Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)]; + Tmp=Op(1,NaitenL); + if type(Tmp)==1 & size(Tmp,2)>1 + Delta=Tmp-StartP; + K=Trunc(Dotprod(Delta,Vm)/Kankaku); + PA=StartP+K*Kankaku*Vm; + P=PA; + Sha=Makeshasen(PtnL,P,V,Bdy); + Sha=Dividegraphics(Sha); + I=1; + while length(Sha)~=0 + for J=1:length(Sha) + Tmp=Op(J,Sha); + Q=Tmp(1,:); + R=Tmp(2,:); + Tmp=Dotprod(Q-P,V)/Kankaku; + K1=ceil(Tmp); + if abs(K1-Tmp)<Eps K1=K1+1; end + Tmp=Dotprod(R-P,V)/Kankaku; + K2=floor(Tmp); + if abs(Tmp-K2)<Eps K2=K2-1; end + for K=K1:K2 + Tmp1=Pointdata(P+K*Kankaku*V) + ShaL=Mixjoin(ShaL,list(Tmp1)); + end + end + P=PA+I*Kankaku*Vm; + Sha=Makeshasen(PtnL,P,V,Bdy); + Sha=Dividegraphics(Sha); + I=I+1; + end + P=PA-Kankaku*Vm; + Sha=Makeshasen(PtnL,P,V,Bdy); + I=2; + while length(Sha)~=0 + for J=1:length(Sha) + Tmp=Op(J,Sha); + Q=Tmp(1,:); + R=Tmp(2,:); + Tmp=Dotprod(Q-P,V)/Kankaku; + K1=ceil(Tmp); + if abs(K1-Tmp)<Eps K1=K1+1; end + Tmp=Dotprod(R-P,V)/Kankaku; + K2=floor(Tmp); + if abs(Tmp-K2)<Eps K2=K2-1; end + for K=K1:K2 + Tmp1=Pointdata(P+K*Kankaku*V) + ShaL=Mixjoin(ShaL,list(Tmp1)); + end + end + P=PA-I*Kankaku*Vm; + Sha=Makeshasen(PtnL,P,V,Bdy); + I=I+1; + end + else + Delta=[Xmn,Ymn]-StartP; + K1=Trunc(Dotprod(Delta,Vm)/Kankaku); + Delta=[Xmx,Ymn]-StartP; + K2=Trunc(Dotprod(Delta,Vm)/Kankaku); + Delta=[Xmx,Ymx]-StartP; + K3=Trunc(Dotprod(Delta,Vm)/Kankaku); + Delta=[Xmn,Ymx]-StartP; + K4=Trunc(Dotprod(Delta,Vm)/Kankaku); + IM=max(K1,K2,K3,K4); + Im=min(K1,K2,K3,K4); + for I=Im:IM + P=StartP+I*Kankaku*Vm; + Sha=Makeshasen(PtnL,P,V,Bdy); + Sha=Dividegraphics(Sha); + if length(Sha)>0 + for J=1:length(Sha) + Tmp=Op(J,Sha); + Q=Tmp(1,:); + R=Tmp(2,:); + Tmp=Dotprod(Q-P,V)/Kankaku; + K1=ceil(Tmp); + if abs(K1-Tmp)<Eps K1=K1+1; end + Tmp=Dotprod(R-P,V)/Kankaku; + K2=floor(Tmp); + if abs(Tmp-K2)<Eps K2=K2-1; end + for K=K1:K2 + Tmp1=Pointdata(P+K*Kankaku*V) + ShaL=Mixjoin(ShaL,list(Tmp1)); + end + end + end + end + end + ShaLs=list(); + for I=1:length(ShaL) + Tmp=ShaL(I); + Tmp1=Unscaling(Tmp); + ShaLs=Mixjoin(ShaLs,Tmp1); + end; + ShaL=ShaLs +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin Binary files differnew file mode 100644 index 00000000..2e5b0eb1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci new file mode 100644 index 00000000..dc35fde5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci @@ -0,0 +1,6 @@ +// 09.10.03 + +function Out=Dotprod(a,b) + Out=a*b'; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin Binary files differnew file mode 100644 index 00000000..6f85f204 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci new file mode 100644 index 00000000..253d5d75 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci @@ -0,0 +1,124 @@ +// 08.05.21 +// 08.11.26 +// 09.12.24 (Revised) +// 09.12.29 +// 10.01.02 +// 11.05.27 + +function Dottedline(varargin) + global Wfile FID MilliIn PenThick PenThickInit + Nall=length(varargin); + Nagasa=0.1; + Ookisa=PenThick; + I=Nall; + Tmp=varargin(I); + while type(Tmp)==1 & length(Tmp)==1 + I=I-1; + Tmp=varargin(I); + end + if I==Nall-1 + Nagasa=Nagasa*varargin(Nall); + Nall=Nall-1; + end + if I==Nall-2 + Nagasa=Nagasa*varargin(Nall-1); + Ookisa=Ookisa*varargin(Nall); + Nall=Nall-2; + end + Nagasa=1000/2.54/MilliIn*Nagasa; + Ra=Ookisa/MilliIn; + for N=1:Nall + Tmp=varargin(N); + Pdata=Flattenlist(Tmp); // + for II=1:length(Pdata) + Clist=MakeCurves(Op(II,Pdata)); + DinM=Dataindex(Clist); + Mojisu=0; + for n=1:size(DinM,1) + Tmp=DinM(n,:); + Data=Clist(Tmp(1):Tmp(2),:); + Len=0; + Lenlist=[0]; + for I=2:size(Data,1) + Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); + Lenlist=[Lenlist,Len]; + end + Lenall=Lenlist(length(Lenlist)); + if Lenall==0 + continue + end + Naga=Nagasa; + Nten=round(Lenall/Naga)+1; + if Nten>1 + Seg=Lenall/(Nten-1); + else + Seg=Lenall; + end + Eps=10^(-6)*Seg; + PPd=[]; + Hajime=1; + for I=0:Nten-1 + Len=Seg*I; + if I>0 + J=Hajime; + while Len>=Lenlist(J)+Eps + J=J+1; + end + Hajime=J-1; + end + T=(Len-Lenlist(Hajime))... + /(Lenlist(Hajime+1)-Lenlist(Hajime)); + P=Data(Hajime,:)+T*(Data(Hajime+1,:)... + -Data(Hajime,:)); + PPd=[PPd;P]; + if I==Nten-1 + if norm(P-Data(1,:))<Eps + continue + end + end + end + for I=1:size(PPd,1) + P=PPd(I,:); + if size(PPd,1)==1 + V=[1,0]; + elseif I==1 + Tmp=PPd(I+1,:)-P; + V=1/norm(Tmp)*Tmp; + elseif I==size(PPd,1) + Tmp= P-PPd(I-1,:); + V=1/norm(Tmp)*Tmp; + else + Tmp1=PPd(I+1,:)-P; + Tmp2=P-PPd(I-1,:); + Tmp3=1/norm(Tmp1)*Tmp1+1/norm(Tmp2)*Tmp2; + V=1/norm(Tmp3)*Tmp3; + end; + X=sprintf('%5.5f',P(1)); + Y=sprintf('%5.5f',P(2)); + Str='\put('+X+','+Y+'){\circle*{'+sprintf('%6.6f',Ra)+'}}'; + if Wfile=='default' + mprintf('%s',Str); + else + mfprintf(FID,'%s',Str); + end + Mojisu=Mojisu+length(Str); + if Mojisu>80 + if Wfile=='default' + mprintf('%c\n','%'); + else + mfprintf(FID,'%c\n','%'); + end + Mojisu=0; + end + end + end + end; + if Mojisu>0 + if Wfile=='default' + mprintf('%c\n','%'); + else + mfprintf(FID,'%c\n','%'); + end; + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin Binary files differnew file mode 100644 index 00000000..5576b57e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci new file mode 100644 index 00000000..c4d9b86a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci @@ -0,0 +1,115 @@ +// 08.05.21 +// 08.11.26 + +function Dottedline(varargin) + global Wfile FID MilliIn; + Nall=length(varargin); + Nagasa=0.1; + Ookisa=0.02*0.5; + I=Nall; + Tmp=varargin(I); + while type(Tmp)==1 & length(Tmp)==1 + I=I-1; + Tmp=varargin(I); + end + if I==Nall-1 + Nagasa=Nagasa*varargin(Nall); + Nall=Nall-1; + end + if I==Nall-2 + Nagasa=Nagasa*varargin(Nall-1); + Ookisa=Ookisa*varargin(Nall); + Nall=Nall-2; + end + Nagasa=1000/2.54/MilliIn*Nagasa; + Ookisa=1000/2.54/MilliIn*Ookisa; + CL=[]; + Nk=4; + Tmp=Framedata([0,0],Ookisa/2); + CL=Tmp; + for N=1:Nall + Pdata=varargin(N); + if Mixtype(Pdata)==1 + Pdata=MixS(Pdata); + end + for II=1:Mixlength(Pdata) + Clist=MakeCurves(Op(II,Pdata)); + DinM=Dataindex(Clist); + for n=1:size(DinM,1) + Tmp=DinM(n,:); + Data=Clist(Tmp(1):Tmp(2),:); + Len=0; + Lenlist=[0]; + for I=2:size(Data,1) + Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); + Lenlist=[Lenlist,Len]; + end + Lenall=Lenlist(length(Lenlist)); + if Lenall==0 + continue + end + Naga=Nagasa; + Nten=round(Lenall/Naga)+1; + if Nten>1 + Seg=Lenall/(Nten-1); + else + Seg=Lenall; + end + Eps=10^(-6)*Seg; + Hajime=1; + for I=0:Nten-1 + Len=Seg*I; + if I>0 + J=Hajime; + while Len>=Lenlist(J)+Eps + J=J+1; + end + Hajime=J-1; + end + T=(Len-Lenlist(Hajime))... + /(Lenlist(Hajime+1)-Lenlist(Hajime)); + P=Data(Hajime,:)+T*(Data(Hajime+1,:)... + -Data(Hajime,:)); + if I==Nten-1 + if Vecnagasa(P-Data(1,:))<Eps + continue + end + end + PL=[]; + for J=1:size(CL,1) + PL=[PL;P+CL(J,:)]; + end + Mojisu=0; + for J=1:size(PL,1) + Q=PL(J,:); + X=round(MilliIn*Q(1)); + X=string(X); + Y=-round(MilliIn*Q(2)); + Y=string(Y); + Str='\special{pa '+X+" "+Y+'}'; + if Wfile=='default' + mprintf('%s',Str); + else + mfprintf(FID,'%s',Str); + end + Mojisu=Mojisu+length(Str); + if Mojisu>80 + if Wfile=='default' + mprintf('%c\n','%'); + else + mfprintf(FID,'%c\n','%'); + end + Mojisu=0; + end + end + Str='\special{sh 1}'+'\special{fp}%' + if Wfile=='default' + mprintf('%s\n',Str); + else + mfprintf(FID,'%s\n',Str); + end + end + end + end + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin Binary files differnew file mode 100644 index 00000000..14cf5d76 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci new file mode 100644 index 00000000..3a06be00 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci @@ -0,0 +1,34 @@ +// 08.09.10 +// 08.09.15 +// 08.10.10 +// 10.09.03 + +function OutL=Dropnumlistcrv(QdL,Eps) + Eps0=10^(-6); // + if Mixtype(QdL)==1 + PdL=list(QdL); + else + PdL=QdL; + end; + OutL=[]; + for I=1:Mixlength(PdL) + Pd=Op(I,PdL); + PtL=[1]; + P=Pd(1,:); + for K=2:size(Pd,1)-1 // + if norm(P-Pd(K,:))>Eps + PtL=[PtL,K]; + P=Pd(K,:); + end; + end; + // PtL=[PtL,size(Pd,1)]; + K=size(Pd,1) // + if norm(P-Pd(K,:))>Eps0 // + PtL=[PtL,K]; // + end; // + if length(PtL)==1 + PtL=[]; + end; + OutL=Mixadd(OutL,PtL); + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin Binary files differnew file mode 100644 index 00000000..155b2072 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci new file mode 100644 index 00000000..84fd6daa --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci @@ -0,0 +1,28 @@ +// 08.10.07
+// 08.10.27
+// 09.06.02
+
+function AnsL=Droppoint(varargin)
+ Nargs=length(varargin);
+ Curve=varargin(1);
+ Eps=0.02;
+ if Nargs>=2
+ Eps=varargin(2);
+ end;
+ AnsL=[%inf,%inf];
+ for I=1:size(Curve,1)
+ P=Curve(I,:);
+ if P(1)~=%inf
+ Tmp=AnsL(size(AnsL,1),:);
+ if norm(P-Tmp)>Eps
+ AnsL=[AnsL;P];
+ end;
+ else
+ AnsL=[AnsL;%inf,%inf];
+ end;
+ end;
+ AnsL=AnsL(2:size(AnsL,1),:);
+ Tmp=Ptend(Curve);
+ AnsL=[AnsL(1:size(AnsL,1)-1,:);Tmp];
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin Binary files differnew file mode 100644 index 00000000..86d3110c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci new file mode 100644 index 00000000..60f0da1a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci @@ -0,0 +1,66 @@ +// 08.05.21
+// 11.05.25
+
+function Drwline(varargin)
+ global Wfile FID MilliIn PenThick PenThickInit;
+ Nall=length(varargin);
+ Thick=PenThick;
+ Tmp=varargin(Nall);
+ if type(Tmp)==1 & length(Tmp)==1
+ Setpen(Tmp);
+ Nall=Nall-1;
+ end;
+ for N=1:Nall
+ Tmp=varargin(N);
+ Pdata=Flattenlist(Tmp);
+ for II=1:length(Pdata) //11.05.25
+ Clist=MakeCurves(Op(II,Pdata));
+ DinM=Dataindex(Clist);
+ for n=1:size(DinM,1)
+ Tmp=DinM(n,:);
+ Data=Clist(Tmp(1):Tmp(2),:);
+ Mojisu=0;
+ Tmp=Data(1,:);
+ for I=1:size(Data,1)
+ Tmp=Data(I,:);
+ X=sprintf('%5.5f',Tmp(1));
+ Y=sprintf('%5.5f',Tmp(2));
+ Pt='('+X+','+Y+')';
+ if I==1 then
+ Str='\polyline'+Pt;
+ else
+ Str=Pt;
+ end
+ if Wfile=='default'
+ mprintf('%s',Str);
+ else
+ mfprintf(FID,'%s',Str);
+ end;
+ Mojisu=Mojisu+length(Str);
+ if Mojisu>80
+ if Wfile=='default'
+ mprintf('%c\n','%');
+ else
+ mfprintf(FID,'%c\n','%');
+ end
+ Mojisu=0;
+ end
+ end
+ if Mojisu~=0
+ if Wfile=='default'
+ mprintf('%s\n','%');
+ else
+ mfprintf(FID,'%s\n','%');
+ end
+ end;
+ end;
+ end;
+ if Wfile=='default'
+ mprintf('%c\n','%');
+ else
+ mfprintf(FID,'%c\n','%');
+ end;
+ end;
+ Setpen(Thick/PenThickInit);
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin Binary files differnew file mode 100644 index 00000000..02e88bd7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci new file mode 100644 index 00000000..5df4a877 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci @@ -0,0 +1,142 @@ +// +// 08.05.31 +// 09.12.25 +// 10.01.01 +// 11.05.26 (for pdflatex) + +function Drwpt(varargin) + global Wfile FID TenSize TenSizeInit MilliIn; + Nargs=length(varargin); + All=Nargs; + Tmp=varargin(All); + Iro=[0,0,0,1]; + Iroflg=0; + if type(Tmp)==10 then + Iro=Ratiocmyk(Tmp); + Iroflg=1; + All=All-1; + end + Tmp=varargin(All); + Kosa=1; + if type(Tmp)==1 & length(Tmp)==1 + Kosa=Tmp; All=All-1; + end; + Ra=TenSize*1000/2.54/MilliIn; + if Iroflg>0 + Str='{\color[cmyk]{'; + for J=1:4 + Str=Str+string(Kosa*Iro(J)); + if J<4 then + Str=Str+','; + end + end + Str=Str+'}%'; + if Wfile=='default' + mprintf('%s\n',Str); + else + mfprintf(FID,'%s\n',Str); + end + end; + Mojisu=0; + for II=1:All + Tmp=varargin(II); + MS=Flattenlist(Tmp); // 11.05.29 + for I=1:length(MS); + P=Op(I,MS); + if InWindow(P)~='i' + continue + end + P=Doscaling(P); + X=sprintf('%5.5f',P(1)); + Y=sprintf('%5.5f',P(2)); + Str='\put('+X+','+Y+'){\circle*{'+sprintf('%6.6f',Ra)+'}}'; + if Wfile=='default' + mprintf('%s',Str); + else + mfprintf(FID,'%s',Str); + end + Mojisu=Mojisu+length(Str); + if Mojisu>80 + if Wfile=='default' + mprintf('%s\n','%'); + else + mfprintf(FID,'%s\n','%'); + end + Mojisu=0; + end + end + end; + Str=""; + if Iroflg>0 + Str='}'; + end; + if Mojisu>0 + Fmt='\n%s\n'; + else + Fmt='%s\n'; + end; + if Wfile=='default' + mprintf(Fmt,Str); + else + mfprintf(FID,Fmt,Str); + end; + Mojisu=0; + if Iroflg>0 + Str='{\color[cmyk]{'; + for J=1:4 + Str=Str+string(Iro(J)); + if J<4 then + Str=Str+','; + end + end + Str=Str+'}%'; + if Wfile=='default' + mprintf('%s\n',Str); + else + mfprintf(FID,'%s\n',Str); + end; + Mojisu=0; + end; + for II=1:All + Tmp=varargin(II); + MS=Flattenlist(Tmp); // 11.05.29 + for I=1:length(MS); + P=Op(I,MS); + if InWindow(P)~='i' + continue + end + P=Doscaling(P); + X=sprintf('%5.5f',P(1)); + Y=sprintf('%5.5f',P(2)); + Str='\put('+X+','+Y+'){\circle{'+sprintf('%6.6f',Ra)+'}}'; + if Wfile=='default' + mprintf('%s',Str); + else + mfprintf(FID,'%s',Str); + end + Mojisu=Mojisu+length(Str); + if Mojisu>80 + if Wfile=='default' + mprintf('%s\n','%'); + else + mfprintf(FID,'%s\n','%'); + end + Mojisu=0; + end + end + end + Str="%"; + if Iroflg>0 + Str='}%'; + end; + if Mojisu>0 + Fmt='\n%s\n'; + else + Fmt='%s\n'; + end; + if Wfile=='default' + mprintf(Fmt,Str); + else + mfprintf(FID,Fmt,Str); + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin Binary files differnew file mode 100644 index 00000000..6d275fab --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci new file mode 100644 index 00000000..b091754f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci @@ -0,0 +1,17 @@ +function Drwxy(varargin) + global XMIN XMAX YMIN YMAX GENTEN ARROWSIZE + global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ULEN; + Nargs=length(varargin) + Tmp=mtlb_findstr(ZIKU,'arrow'); + if Tmp~=[] + Arrowline([XMIN,GENTEN(2)],[XMAX,GENTEN(2)],ARROWSIZE); + Arrowline([GENTEN(1),YMIN],[GENTEN(1),YMAX],ARROWSIZE); + else + Drwline(Listplot([XMIN,GENTEN(2)],[XMAX,GENTEN(2)])); + Drwline(Listplot([GENTEN(1),YMIN],[GENTEN(1),YMAX])); + end; + Letter([XMAX,GENTEN(2)],XPOS,XNAME); + Letter([GENTEN(1),YMAX],YPOS,YNAME); + Letter(GENTEN,OPOS,ONAME); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin Binary files differnew file mode 100644 index 00000000..e3e99cfd --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci new file mode 100644 index 00000000..9b67e366 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci @@ -0,0 +1,41 @@ +// 09.09.25 +// 09.11.21 +// 09.11.26 + +function Out=Embed(varargin) + Nargs=length(varargin); + Pd3=varargin(1); + if Mixtype(Pd3)==1 + Pd3=list(Pd3); + elseif Mixtype(Pd3)==3 + Tmp=list(); + for I=1:length(Pd3) + Tmp=Mixjoin(Tmp,Pd3(I)); + end; + Pd3=Tmp; + end; + Tmpf=varargin(2); + if type(Tmpf)==10 + Tmp=varargin(3); + Tmp1=strsubst(Tmp,'[','('); + Vstr=strsubst(Tmp1,']',')'); + deff('Z=Tmpfn'+Vstr,'Z='+Tmpf); + else + Tmpfn=Tmpf; + end; + Out=list(); + for I=1:length(Pd3) + PD=Pd3(I); + Ans=[]; + for J=1:size(PD,1) + P=PD(J,:); + Tmp=Tmpfn(P(1),P(2)); + Ans=[Ans;Tmp]; + end; + Out($+1)=Ans; + end; + if length(Out)==1 + Out=Out(1); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin Binary files differnew file mode 100644 index 00000000..6a5a9096 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci new file mode 100644 index 00000000..bfc191b9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci @@ -0,0 +1,23 @@ +// 08.05.31 +// 10.12.04 +// 16.12.05 to make it a closed curve + +function AnsL=Enclosing(varargin) + global MilliIn; + Eps=10^(-7); // 12.05 + Nargs=length(varargin); + P=varargin(1); + if Mixtype(P)==2 + Tmp=Op(1,P); + if type(Tmp)~=1 | length(Tmp)~=1 + AnsL=EnclosingS(P,varargin(2:Nargs)); + AnsL=Joincrvs(AnsL) // 10.12.04 + end + end; + Tmp1=Op(1,AnsL); + Tmp2=Op(size(AnsL,1),AnsL); + if norm(Tmp2-Tmp1)>Eps then // 12.05 + AnsL=[AnsL;Tmp1]; + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin Binary files differnew file mode 100644 index 00000000..a5f0596e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci new file mode 100644 index 00000000..cded7ef2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci @@ -0,0 +1,126 @@ +// 08.05.31 +// 08.11.12 +// 09.10.12 +// 09.10.14 +// 15.04.10 + +function AnsL=EnclosingS(varargin) + global MilliIn; + Nargs=length(varargin); + AnsL=[]; + PdataL=varargin(1); + Nall=length(PdataL); + Eps=10^(-3); + EEps=0.1; + S=[]; + Flg=0; + for I=2:Nargs + Tmp=varargin(I); + if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1 + S=Tmp; + end + if type(Tmp)==1 & length(Tmp)==1 + if Flg==0 + Eps=Tmp; + Flg=Flg+1 + else + EEps=Tmp + end + end + end + F=Op(1,PdataL); G=Op(Nall,PdataL); + KL=IntersectcrvsPp(F,G); + if length(KL)==1 + Tmp=Op(1,KL); + P=Op(1,Tmp); + T1=Op(2,Tmp); + end + if length(KL)==0 + if Numptcrv(F)>Numptcrv(G) + Tmp=Nearestpt(F,G); + P=Op(1,Tmp); + T1=Op(2,Tmp); + else + Tmp=Nearestpt(G,F); + P=Op(3,Tmp); + T1=Op(4,Tmp); + end + end + if length(KL)>1 // 15.04.10 + if S==[] + disp('No Start Point'); + return + end; + Tmp=Op(1,KL); + P=Op(1,Tmp); + T1=Op(2,Tmp); + Tmp=norm(P-S); + for I=2:length(KL) + Tmp1=Op(1,Op(I,KL)); + Tmp2=norm(Tmp1-S); + if Tmp2<Tmp + P=Tmp1; + T1=Op(2,Op(I,KL)); + Tmp=Tmp2; + end + end + end + S=P; + AnsL=[]; + for N=1:Nall + F=Op(N,PdataL); + if N>1 P=Q;end + if N==Nall + Q=S; + else + Flg=0; + G=Op(N+1,PdataL); + KL=IntersectcrvsPp(G,F); + if length(KL)==1 + Tmp=Op(1,KL); + Q=Op(1,Tmp); + T3=Op(2,Tmp); + Flg=10; + end + if length(KL)==0 Flg=1; end + if length(KL)>=2 // Maple bug? + Tmp1=Op(1,Op(1,KL)); + Tmp2=Op(1,Op(2,KL)); + Tmp=norm(Tmp1-Tmp2); + if Tmp<Eps*10 Flg=1; end + end + if Flg==1 + if Numptcrv(F)>Numptcrv(G) + Tmp=Nearestpt(F,G); + Q=Op(1,Tmp); + T3=Op(4,Tmp); + Flg=10; + else + Tmp=Nearestpt(G,F); + Q=Op(3,Tmp); + T3=Op(2,Tmp); + Flg=10; + end + end + if Flg<10 + T2=%inf; + for I=1:length(KL) + Dt=Op(I,KL); + Tmp1=Op(1,Dt); + Tmp=Op(3,Dt); + Tmp2=Paramoncrv(Tmp1,Tmp,F); + Tmp3=Op(2,Dt); + if (Tmp2>T1+Eps) & (Tmp2<T2+Eps) + Q=Tmp1; + T2=Tmp2; + T3=Tmp3; + end + end + end + end + Tmp=Partcrv(P,Q,F); + T1=T3; + AnsL=Mixadd(AnsL,Tmp); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin Binary files differnew file mode 100644 index 00000000..ceb0ffb6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci new file mode 100644 index 00000000..ff4a3c43 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci @@ -0,0 +1,11 @@ +// 08.05.22 + +function Endpicture(varargin) + if length(varargin)==0 + Flg=1 + else + Flg=varargin(1); + end + Closepicture(Flg) +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin Binary files differnew file mode 100644 index 00000000..38c7da86 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci new file mode 100644 index 00000000..b9c86eef --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci @@ -0,0 +1,79 @@ +// 08.09.10 +// 13.10.21 ( __ added to varibles ) +// 17.05.21 Mdv, Ndv changed to division number + +function [Zval__,Xval__,Yval__]=Evlptablepara(MS__) + Nargs__=Mixlength(MS__); + Eps__=10^(-3); + Tmp__=Mixop(1,MS__); + FdL__=Fullformfunc(Tmp__); + Mdv=50; + Ndv__=50; + if Nargs__>=2 + Tmp__=Mixop(2,MS__); + if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end; + if length(Tmp__)>1 + Mdv__=Tmp__(1,1); + Ndv__=Tmp__(1,2); + else + Mdv__=Tmp__ + if Nargs__==2 + Ndv__=Mdv__ + else + Tmp1__=Mixop(3,MS__); + if type(Tmp1__)==1 & length(Tmp1__)==1 + Ndv__=Tmp1__; + else + Ndv__=Mdv__; + end + end + end + end; + Tmp__=Mixop(5,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urange__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__))); + U1__=Urange__(1); U2__=Urange__(2); + V1__=Vrange__(1); V2__=Vrange__(2); + Du__=(U2__-U1__)/(Mdv__); //17.05.21 + Dv__=(V2__-V1__)/(Ndv__); //17.05.21 + Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)]; + I__=1; + Zval__=[]; + for v__=V1__:Dv__:V2__ + v1__=v__-Eps__/2; v2__=v__+Eps__/2; + ZuL__=[]; + for u__=U1__:Du__:U2__; + u1__=u__-Eps__/2; u2__=u__+Eps__/2; + Tmpv__=strsubst(Xyzstr__,Vname__,'v__'); + Tmp__=strsubst(Tmpv__,Uname__,'u1__'); + P1__=evstr(Tmp__); + Tmp__=strsubst(Tmpv__,Uname__,'u2__'); + P2__=evstr(Tmp__); + Tmp1__=Parapt(P1__); + Tmp2__=Parapt(P2__); + Dxu__=(Tmp2__(1)-Tmp1__(1))/Eps__; + Dyu__=(Tmp2__(2)-Tmp1__(2))/Eps__; + u1__=u__-Eps__/2; u2__=u__+Eps__/2; + Tmpu__=strsubst(Xyzstr__,Uname__,'u__'); + Tmp__=strsubst(Tmpu__,Vname__,'v1__'); + P1__=evstr(Tmp__); + Tmp__=strsubst(Tmpu__,Vname__,'v2__'); + P2__=evstr(Tmp__); + Tmp1__=Parapt(P1__); + Tmp2__=Parapt(P2__); + Dxv__=(Tmp2__(1)-Tmp1__(1))/Eps__; + Dyv__=(Tmp2__(2)-Tmp1__(2))/Eps__; + Tmp__=Dxu__*Dyv__-Dxv__*Dyu__; + ZuL__=[ZuL__,Tmp__]; + end; + Zval__=[Zval__;ZuL__]; + end; + Yval__=V1__:Dv__:V2__; + Xval__=U1__:Du__:U2__; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin Binary files differnew file mode 100644 index 00000000..775dd55e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci new file mode 100644 index 00000000..15ddd0a8 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci @@ -0,0 +1,77 @@ +// 08.09.21 +// 13.11.01 ( __ added to varibles ) + +function [Zval__,Xval__,Yval__]=Evlptablepers(MS__) + Nargs__=Mixlength(MS__); + Eps__=10^(-3); + Tmp__=Mixop(1,MS__); + FdL__=Fullformfunc(Tmp__); + Mdv__=50; + Ndv__=50; + if Nargs__>=2 + Tmp__=Mixop(2,MS__); + if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end; + if length(Tmp__)>1 + Mdv__=Tmp__(1,1); + Ndv__=Tmp__(1,2); + else + Mdv__=Tmp__ + if Nargs__==2 + Ndv__=Mdv__ + else + Tmp__1=Mixop(3,MS__); + if type(Tmp__1)==1 & length(Tmp__1)==1 + Ndv__=Tmp__1; + else + Ndv__=Mdv__; + end + end + end + end; + Tmp__=Mixop(5,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urange__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__))); + U1__=Urange__(1); U2__=Urange__(2); + V1__=Vrange__(1); V2__=Vrange__(2); + Du__=(U2__-U1__)/(Mdv__-1); + Dv__=(V2__-V1__)/(Ndv__-1); + Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)]; + I__=1; + Zval__=[]; + for v__=V1__:Dv__:V2__ + v__1=v__-Eps__/2; v__2=v__+Eps__/2; + ZuL__=[]; + for u__=U1__:Du__:U2__; + u__1=u__-Eps__/2; u__2=u__+Eps__/2; + Tmp__v=strsubst(Xyzstr__,Vname__,'v__'); + Tmp__=strsubst(Tmp__v,Uname__,'u__1'); + P1__=evstr(Tmp__); + Tmp__=strsubst(Tmp__v,Uname__,'u__2'); + P2__=evstr(Tmp__); + Tmp__1=Perspt(P1__); + Tmp__2=Perspt(P2__); + Dxu__=(Tmp__2(1)-Tmp__1(1))/Eps__; + Dyu__=(Tmp__2(2)-Tmp__1(2))/Eps__; + u__1=u__-Eps__/2; u__2=u__+Eps__/2; + Tmp__u=strsubst(Xyzstr__,Uname__,'u__'); + Tmp__=strsubst(Tmp__u,Vname__,'v__1'); + P1__=evstr(Tmp__); + Tmp__=strsubst(Tmp__u,Vname__,'v__2'); + P2__=evstr(Tmp__); + Tmp__1=Perspt(P1__); + Tmp__2=Perspt(P2__); + Dxv__=(Tmp__2(1)-Tmp__1(1))/Eps__; + Dyv__=(Tmp__2(2)-Tmp__1(2))/Eps__; + Tmp__=Dxu__*Dyv__-Dxv__*Dyu__; + ZuL__=[ZuL__,Tmp__]; + end; + Zval__=[Zval__;ZuL__]; + end; + Yval__=V1__:Dv__:V2__; + Xval__=U1__:Du__:U2__; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin Binary files differnew file mode 100644 index 00000000..44e39527 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci new file mode 100644 index 00000000..2a4d1491 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci @@ -0,0 +1,8 @@ +// 10.01.16 +// 10.02.24 + +function Execmd(StrL) + for I=1:length(StrL) + execstr(Op(I,StrL)) + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin Binary files differnew file mode 100644 index 00000000..b58e53fd --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci new file mode 100644 index 00000000..5b9df24b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci @@ -0,0 +1,100 @@ +// +// 09.12.25 + +function Expr(varargin) + global Wfile FID MEMORI; + Nargs=length(varargin); + for I=1:3:Nargs + Tmp=varargin(I); + P=Doscaling(Tmp); + X=P(1); + Y=P(2); + Houkou=varargin(I+1); + Mojiretu='$'+varargin(I+2)+'$'; + Hset=Houkou; + Vhoko='c'; + if mtlb_findstr(Hset,'n')~=[] + Vhoko='n'; Y=Y+MEMORI; + end + if mtlb_findstr(Hset,'s')~=[] + Vhoko='s'; Y=Y-MEMORI; + end + Hhoko='c'; + if mtlb_findstr(Hset,'e')~=[] + Hhoko='e'; X=X+MEMORI; + end + if mtlb_findstr(Hset,'w')~=[] + Hhoko='w'; X=X-MEMORI; + end + Hoko=Vhoko+Hhoko; + Suu='+-.0123456789'; + SuuL=Suu; + Hcode=ascii(Houkou); + J=1; Dstr=''; + while J<=length(Houkou) + Tmp=char(Hcode(J)); + if mtlb_findstr(SuuL,Tmp)~=[] + if Dstr=='' + Hk=char(Hcode(J-1)); + end + Dstr=Dstr+Tmp; + else + if Dstr~='' + Nmbr=msscanf(Dstr,'%f'); + D=Nmbr*MEMORI; + if Hk=='n' + Y=Y+D; + end + if Hk=='s' + Y=Y-D; + end + if Hk=='e' + X=X+D; + end + if Hk=='w' + X=X-D; + end + Dstr=''; + end + end + J=J+1; + end + if Dstr~='' + Nmbr=msscanf(Dstr,'%f'); + D=Nmbr*MEMORI; + if Hk=='n' + Y=Y+D; + end + if Hk=='s' + Y=Y-D; + end + if Hk=='e' + X=X+D; + end + if Hk=='w' + X=X-D; + end + end + CalcWidth(Hoko,Mojiretu); + CalcHeight(Hoko,Mojiretu); + Tmp='){\hspace*{\Width}'; + Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}'; + if Wfile=='default' + mprintf('%s','\put('); + mprintf('%6.4f%s%6.4f',X,',',Y); + mprintf('%s%s\n',Str,'%'); + mprintf('%s\n','%'); + else + mfprintf(FID,'%s','\put('); + mfprintf(FID,'%6.4f%s%6.4f',X,',',Y); + mfprintf(FID,'%s%s\n',Str,'%'); + mfprintf(FID,'%s\n','%'); + end + if Wfile=='default' + mprintf('%s\n','%'); + else + mfprintf(FID,'%s\n','%'); + end + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin Binary files differnew file mode 100644 index 00000000..17904d7a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci new file mode 100644 index 00000000..d51dfa91 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci @@ -0,0 +1,36 @@ +// 08.05.31 +// 08.08.24 +// 09.12.25 + +function Exprrot(varargin) + global MEMORI; + P=varargin(1); + V=varargin(2); N=3; + P=Doscaling(P); + V=Doscaling(V); + Tmov=0; + Tmp=varargin(N); + if type(Tmp)==1 + Tmov=Tmp; N=N+1; + end + Nmov=0; + Tmp=varargin(N); + if type(Tmp)==1 then + Nmov=Tmp; N=N+1; + end + Mojiretu='$'+varargin(N)+'$'; + Tv=1/norm(V)*V; + Nv=[-Tv(2),Tv(1)]; + P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv; + Tmp=acos(V(1)/norm(V)); + Theta=round(Tmp*180/%pi); + if V(2)>=0 + Units=''; + else + Units='units=-360,'; + end + Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta); + Tmp=Tmp+'}{'+Mojiretu+'}'; + Letter(P,"c",Tmp); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin Binary files differnew file mode 100644 index 00000000..5095cc06 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci new file mode 100644 index 00000000..ae0bea54 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci @@ -0,0 +1,78 @@ +// 09.10.29 +// 10.02.07 debugged + +function NohiddenL=Faceremovaldata(FL,CLadd,PT) + global PHHIDDENDATA VELNO VELHI; + NohiddenL=list(); + HiddenL=list(); + Eps=10^(-4); + if mtlb_findstr(PT,'para')~=[] + Ptype=1; //para + else + Ptype=-1; //pers + end; + if length(CLadd)>0 + if type(CLadd)==1 + C=list(); + if size(CLadd,1)>1 + for I=1:size(CLadd,1) + C($+1)=CLadd(I,:); + end; + else + for I=1:3:size(CLadd,2) + C($+1)=CLadd(1,I:I+2); + end; + end; + CrvL=list(C); + elseif type(CLadd(1))==1 + CrvL=list(); + for J=1:length(CLadd)// + Ctmp=CLadd(J); + C=list(); + if size(Ctmp,1)>1 + for I=1:size(Ctmp,1) + C($+1)=Ctmp(I,:); + end; + else + for I=1:3:size(Ctmp,2) + C($+1)=Ctmp(1,I:I+2); + end; + end; + CrvL($+1)=C; + end; + else + CrvL=CLadd; + end; + else + CrvL=list(); + end; + VELNO=list(); + for I=1:length(CrvL) + Tmp=CrvL(I); + for J=1:length(Tmp)-1 + Edge=list(Tmp(J),Tmp(J+1)); + Ntmp=length(VELNO); // + VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); // + end; + end; + VELHI=list(); + Out=MakeveLfaceL(FL); + FaceL=Out(2); + for Nf=1:length(FaceL) + Face=FaceL(Nf); + Menkakusi2(Face,Nf,Ptype); + end; + for I=1:length(VELNO) + Edge=Op(1,VELNO(I)); + if norm(Edge(1)-Edge(2))>Eps + NohiddenL($+1)=Spaceline(Edge); + end; + end; + for I=1:length(VELHI) + Edge=Op(1,VELHI(I)); + if norm(Edge(1)-Edge(2))>Eps + HiddenL($+1)=Spaceline(Edge); + end; + end; + PHHIDDENDATA=HiddenL; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin Binary files differnew file mode 100644 index 00000000..ea9738c8 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci new file mode 100644 index 00000000..7dc8bef1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci @@ -0,0 +1,81 @@ +// NEW +// Faceremovaldata +// 09.10.24 +// 09.10.26 +// 09.10.27 + +function NohiddenL=Faceremovaldata(FL,CLadd,PT) + global PHHIDDENDATA VELNO VELHI; + NohiddenL=list(); + HiddenL=list(); + Eps=10^(-4); + if mtlb_findstr(PT,'para')~=[] + Ptype=1; //para + else + Ptype=-1; //pers + end; + if length(CLadd)>0 + if type(CLadd)==1 + C=list(); + if size(CLadd,1)>1 + for I=1:size(CLadd,1) + C($+1)=CLadd(I,:); + end; + else + for I=1:3:size(CLadd,2) + C($+1)=CLadd(1,I:I+2); + end; + end; + CrvL=list(C); + elseif type(CLadd(1))==1 + CrvL=list(); + for J=1:length(CL) + Ctmp=CLadd(J); + C=list(); + if size(Ctmp,1)>1 + for I=1:size(Ctmp,1) + C($+1)=Ctmp(I,:); + end; + else + for I=1:3:size(Ctmp,2) + C($+1)=Ctmp(1,I:I+2); + end; + end; + CrvL($+1)=C; + end; + else + CrvL=CLadd; + end; + else + CrvL=list(); + end; + VELNO=list(); + for I=1:length(CrvL) + Tmp=CrvL(I); + for J=1:length(Tmp)-1 + Edge=list(Tmp(J),Tmp(J+1)); + VELNO($+1)=list(Edge,0); + end; + end; + VELHI=list(); + Out=MakeveLfaceL(FL); + FaceL=Out(2); + for Nf=1:length(FaceL) + Face=FaceL(Nf); + Menkakusi(Face,Nf,Ptype); + end; + for I=1:length(VELNO) + Edge=Op(1,VELNO(I)); + if norm(Edge(1)-Edge(2))>Eps + NohiddenL($+1)=Spaceline(Edge); + end; + end; + for I=1:length(VELHI) + Edge=Op(1,VELHI(I)); + if norm(Edge(1)-Edge(2))>Eps + HiddenL($+1)=Spaceline(Edge); + end; + end; + PHHIDDENDATA=HiddenL; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin Binary files differnew file mode 100644 index 00000000..84ab9833 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci new file mode 100644 index 00000000..0ed2f249 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci @@ -0,0 +1,154 @@ +///////// +// 09.10.29 +// 11.01.13 (HiddenL) remodified 110122 +// 13.03.30 (HiddenL) debugged 140330 + +function NohiddenL=Facesdata(varargin) + global PHHIDDENDATA VELNO VELHI; + Nargs=length(varargin); + FL=varargin(1); + PT=varargin($); + if mtlb_findstr(PT,'para')~=[] + Ptype=1; //para + else + Ptype=-1; //pers + end; + if Nargs==2 + CLadd=list(); + else + CLadd=varargin(2); + end; + NohiddenL=list(); + HiddenL=list(); + Eps=10^(-4); + if length(CLadd)>0 + if type(CLadd)==1 + C=list(); + if size(CLadd,1)>1 + for I=1:size(CLadd,1) + C($+1)=CLadd(I,:); + end; + else + for I=1:3:size(CLadd,2) + C($+1)=CLadd(1,I:I+2); + end; + end; + CrvL=list(C); + elseif type(CLadd(1))==1 + CrvL=list(); + for J=1:length(CL) + Ctmp=CLadd(J); + C=list(); + if size(Ctmp,1)>1 + for I=1:size(Ctmp,1) + C($+1)=Ctmp(I,:); + end; + else + for I=1:3:size(Ctmp,2) + C($+1)=Ctmp(1,I:I+2); + end; + end; + CrvL($+1)=C; + end; + else + CrvL=CLadd; + end; + else + CrvL=list(); + end; + Out=MakeveLfaceL(FL); + VELNO=Out(1); + VELHI=list(); + for I=1:length(CrvL) + Tmp=CrvL(I); + for J=1:length(Tmp)-1 + Edge=list(Tmp(J),Tmp(J+1)); + Ntmp=length(VELNO); // + VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); // + end; + end; + FaceL=Out(2); + if mtlb_findstr(PT,'raw')==[] + for Nf=1:length(FaceL) + Face=FaceL(Nf); + Menkakusi2(Face,Nf,Ptype); + end; + end; + for I=1:length(VELNO) + Edge=Op(1,VELNO(I)); + if norm(Edge(1)-Edge(2))>Eps + NohiddenL($+1)=Spaceline(Edge); + end; + end; + EdgeL=list(); // from 13.03.30 + for K=1:length(VELHI) + Edge=Op(1,VELHI(K)); + P=Edge(1); Q=Edge(2); + if norm(P-Q)>Eps then + EdgeL($+1)=Edge; + end + end + for K=1:length(EdgeL) + Edge=EdgeL(K); // + P=Edge(1); Q=Edge(2); + Cflg=0; + for J=K+1:length(EdgeL) + Ej=EdgeL(J); // + Pj=Ej(1); Qj=Ej(2); + if norm(Crossprod(Q-P,Qj-Pj))>Eps then + continue + end + if norm(Q-Pj)<Eps then + EdgeL(J)=list(P,Qj); + Cflg=1; + break; + end + if norm(P-Qj)<Eps then + EdgeL(J)=list(Q,Pj) + Cflg=1; + break; + end; + end + if Cflg==0 then + HiddenL($+1)=Spaceline(Edge); + end; + end; // upto 14.03.30 + +// L=1:length(VELHI); // from 11.01.13 +// while length(L)>0 +// Lr=[]; +// Edge=Op(1,VELHI(L(1))); // +// P=Edge(1); +// Q=Edge(2); +// +// disp([293,P,Q]) +// +// if norm(P-Q)>Eps +// for J=2:length(L) +// Rflg=0; +// Ej=Op(1,VELHI(L(J))); // +// Pj=Ej(1); +// Qj=Ej(2); +// if norm(Crossprod(Q-P,Qj-Pj))>Eps +// Lr=[Lr,J]; +// continue; +// end; +// if norm(Q-Pj)<Eps +// Edge(2)=Qj; +// Rflg=1; +// elseif norm(P-Qj)<Eps +// Edge(1)=Pj; +// Rflg=1; +// end; +// if Rflg==0 +// Lr=[Lr,J]; +// end; +// end; +// else +// Lr=L(2:length(L)); +// end; +// L=Lr; // upto 11.01.13 +// HiddenL($+1)=Spaceline(Edge); +// end; + PHHIDDENDATA=HiddenL; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin Binary files differnew file mode 100644 index 00000000..82821a8b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci new file mode 100644 index 00000000..c300cf6e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci @@ -0,0 +1,88 @@ +// 09.10.27 + +function NohiddenL=Facesdata(varargin) + global PHHIDDENDATA VELNO VELHI; + Nargs=length(varargin); + FL=varargin(1); + PT=varargin($); + if mtlb_findstr(PT,'para')~=[] + Ptype=1; //para + else + Ptype=-1; //pers + end; + if Nargs==2 + CLadd=list(); + else + CLadd=varargin(2); + end; + NohiddenL=list(); + HiddenL=list(); + Eps=10^(-4); + if length(CLadd)>0 + if type(CLadd)==1 + C=list(); + if size(CLadd,1)>1 + for I=1:size(CLadd,1) + C($+1)=CLadd(I,:); + end; + else + for I=1:3:size(CLadd,2) + C($+1)=CLadd(1,I:I+2); + end; + end; + CrvL=list(C); + elseif type(CLadd(1))==1 + CrvL=list(); + for J=1:length(CL) + Ctmp=CLadd(J); + C=list(); + if size(Ctmp,1)>1 + for I=1:size(Ctmp,1) + C($+1)=Ctmp(I,:); + end; + else + for I=1:3:size(Ctmp,2) + C($+1)=Ctmp(1,I:I+2); + end; + end; + CrvL($+1)=C; + end; + else + CrvL=CLadd; + end; + else + CrvL=list(); + end; + Out=MakeveLfaceL(FL); + VELNO=Out(1); + VELHI=list(); + for I=1:length(CrvL) + Tmp=CrvL(I); + for J=1:length(Tmp)-1 + Edge=list(Tmp(J),Tmp(J+1)); + VELNO($+1)=list(Edge,0); + end; + end; + FaceL=Out(2); + if mtlb_findstr(PT,'raw')==[] + for Nf=1:length(FaceL) + Face=FaceL(Nf); + Menkakusi(Face,Nf,Ptype); + end; + end; + for I=1:length(VELNO) + Edge=Op(1,VELNO(I)); + if norm(Edge(1)-Edge(2))>Eps + NohiddenL($+1)=Spaceline(Edge); + end; + end; + for I=1:length(VELHI) + Edge=Op(1,VELHI(I)); + if norm(Edge(1)-Edge(2))>Eps + HiddenL($+1)=Spaceline(Edge); + end; + end; + PHHIDDENDATA=HiddenL; +endfunction + + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin Binary files differnew file mode 100644 index 00000000..ade40fbf --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci new file mode 100644 index 00000000..062fcc5c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci @@ -0,0 +1,127 @@ +// 09.11.26 +// 09.12.06 +// 09.12.14 +// 10.01.12 +// 10.01.13 +// 10.01.14 + +function Out=Findcell(varargin)//TbL,Nrg,Mrg + Nargs=length(varargin); + TbL=varargin(1); + Ag=varargin(2); + Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; + if type(Ag)==10 + Clm=[]; + Rstr=''; + for I=1:length(Ag) + C=part(Ag,I:I); + Tmp=ascii(C); + if Tmp>=96 + C=char(Tmp-32); + end; + Tmp=mtlb_findstr(C,Alpha) + if length(Tmp)>0 + Clm=[Clm,Tmp-1]; + else + Rstr=Rstr+C; + end; + end; + Nrg=0; + for I=length(Clm):-1:1 + Tmp=Clm(I); + Tmp1=length(Clm)-I; + Nrg=Nrg+Tmp*26^Tmp1; + end; + Mrg=eval(Rstr); + if Nargs>=3 + Ag=varargin(3); + Clm=[]; + Rstr=''; + for I=1:length(Ag) + C=part(Ag,I:I); + Tmp=ascii(C); + if Tmp>=96 + C=char(Tmp-32); + end; + Tmp=mtlb_findstr(C,Alpha) + if length(Tmp)>0 + Clm=[Clm,Tmp]; + else + Rstr=Rstr+C; + end; + end; + Nrg2=0; + for I=length(Clm):-1:1 + Tmp=Clm(I); + Tmp1=length(Clm)-I; + Nrg2=Nrg2+Tmp*26^Tmp1; + end; + Nrg=[Nrg,Nrg2]; + Mrg=[Mrg,eval(Rstr)]; + end; + else + Nrg=varargin(2); + Mrg=varargin(3); + end; + if length(Mrg)==1 + m1=Mrg; m2=m1+1; + else + m1=Mrg(1); m2=Mrg(2); + end; + if length(Nrg)==1 + n1=Nrg; n2=n1+1; + else + n1=Nrg(1); n2=Nrg(2); + end; + n1=n1+1; n2=n2+1; + m1=m1+1; m2=m2+1; + Hind=TbL(2); + Vind=TbL(3); + HL=Mixsub(TbL(2),TbL(1)); + Tmp1=Op(1,TbL(4)); + Tmp2=Op(2,TbL(4)); + HL=Mixjoin(list(Tmp1),HL,list(Tmp2)); + VL=Mixsub(TbL(3),TbL(1)); + Tmp1=Op(1,TbL(5)); + Tmp2=Op(2,TbL(5)); + VL=Mixjoin(list(Tmp1),VL,list(Tmp2)); + Tmp=TbL(6); + Tmp1=Listplot([Ptsw(Tmp),Ptnw(Tmp)]); + Tmp2=Listplot([Ptse(Tmp),Ptne(Tmp)]); + HL=Mixjoin(list(Tmp1),HL,list(Tmp2)); + Tmp1=Listplot([Ptnw(Tmp),Ptne(Tmp)]); + Tmp2=Listplot([Ptsw(Tmp),Ptse(Tmp)]); + VL=Mixjoin(list(Tmp1),VL,list(Tmp2)); + Tmp=HL(n1); + if type(Tmp)==1 + H1=Tmp(1,1); + else + Tmp1=Tmp(1); + H1=Tmp1(1,1); + end; + Tmp=HL(n2); + if type(Tmp)==1 + H2=Tmp(1,1); + else + Tmp1=Tmp(1); + H2=Tmp1(1,1); + end; + Tmp=VL(m1); + if type(Tmp)==1 + V1=Tmp(1,2); + else + Tmp1=Tmp(1); + V1=Tmp1(1,2); + end; + Tmp=VL(m2); + if type(Tmp)==1 + V2=Tmp(1,2); + else + Tmp1=Tmp(1); + V2=Tmp1(1,2); + end; + Pt=[(H1+H2)/2,(V1+V2)/2]; + High=(V1-V2)/2; + Wide=(H2-H1)/2; + Out=list(Pt,Wide,High); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin Binary files differnew file mode 100644 index 00000000..31e5d594 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci new file mode 100644 index 00000000..903679ab --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci @@ -0,0 +1,17 @@ +// 10.11.13 + +function Out=Flattenlist(varargin) + Out=list(); + for N=1:length(varargin) + D=varargin(N); + if type(D)~=15 + Out($+1)=D; + else + for I=1:length(D) + Ds=D(I); + Tmp=Flattenlist(Ds); + Out=lstcat(Out,Tmp); + end; + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin Binary files differnew file mode 100644 index 00000000..10387e38 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci new file mode 100644 index 00000000..218b599f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci @@ -0,0 +1,54 @@ +function Fontsize(Ookisa) + global Wfile FID; + Str='%'; + Ucode=ascii(Ookisa); + S=char(Ucode(1)); + if S=='n' + Str='\normalsize%'; + end + if S=='s' + if length(Ucode)==1 + Tmp=''; + else + Tmp=char(Ucode(2)); + end + if Tmp=='s' + Str='\scriptsize%'; + else + Str='\small%'; + end + end + if S=='f' + Str='\footnotesize%'; + end + if S=='t' + Str='\tiny%'; + end + if S=='l' + Str='\large%'; + end + if S=='L' + if length(Ucode)==1 + Tmp='a'; + else + Tmp=char(Ucode(2)); + end + if Tmp=='a' + Str='\Large%'; + else + Str='\LARGE%'; + end + end + if S=='h' + Str='\huge%'; + end + if S=='H' + Str='\Huge%'; + end + if Wfile=='default' + mprintf('%s\n',Str); + else + mfprintf(FID,'%s\n',Str); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin Binary files differnew file mode 100644 index 00000000..e718a4ba --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci new file mode 100644 index 00000000..af259244 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci @@ -0,0 +1,21 @@ +// 09.03.13 + +function Out=Fouriercoeff(Fn,T,Ch,K) + Eps=10^(-5); + L=T/2; + Tmp1='Out=FUNC(x)'; + if Ch=='c' + Tmp2='Out=Fn(10*L*x)*cos('+string(K)+'*%pi*x*10)'; + else + Tmp2='Out=Fn(10*L*x)*sin('+string(K)+'*%pi*x*10)'; + end; + deff(Tmp1,Tmp2); + Out=10*intg(-0.1,0.1,FUNC); + if K==0 + Out=Out/2; + end; + if abs(Out)<Eps + Out=0; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin Binary files differnew file mode 100644 index 00000000..59f91f6c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci new file mode 100644 index 00000000..2d0d840b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci @@ -0,0 +1,18 @@ +// 09.03.12 + +function Out=FouriercoeffL(Fn,T,Upto) + Out=Mix(Fouriercoeff(Fn,T,'c',0)); + CL=[]; + for K=1:Upto + Tmp=Fouriercoeff(Fn,T,'c',K); + CL=[CL,Tmp]; + end; + Out=Mixadd(Out,CL); + CL=[]; + for K=1:Upto + Tmp=Fouriercoeff(Fn,T,'s',K); + CL=[CL,Tmp]; + end; + Out=Mixadd(Out,CL); + Out=Mixadd(Out,T); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin Binary files differnew file mode 100644 index 00000000..bf840511 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci new file mode 100644 index 00000000..6182f4a7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci @@ -0,0 +1,15 @@ +// 09.03.12 + +function Out=Fouriersum(COEFF,x) + C=Mixop(1,COEFF); + A=Mixop(2,COEFF); + B=Mixop(3,COEFF); + T=Mixop(4,COEFF); + Upto=size(A,2); + L=T/2; + K=1:Upto; + Tmp1=sum(A(K).*cos(K*%pi*x/L)); + Tmp2=sum(B(K).*sin(K*%pi*x/L)); + Out=C+Tmp1+Tmp2; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin Binary files differnew file mode 100644 index 00000000..478d4e52 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci new file mode 100644 index 00000000..437ff122 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci @@ -0,0 +1,18 @@ +// 09.08.23 + +function Out=Fracform(X) + [N,D]=rat(X); + Out=[]; + for I=1:size(X,1) + for J=1:size(X,2) + Tmp1=N(I,J); + Tmp2=D(I,J); + if Tmp2==1 + Out(I,J)=string(Tmp1); + else + Out(I,J)=string(Tmp1)+'/'+string(Tmp2); + end; + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin Binary files differnew file mode 100644 index 00000000..442df592 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci new file mode 100644 index 00000000..071f7381 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci @@ -0,0 +1,36 @@ +// 2011.12.18 ( available for list ) + +function P=Framedata(varargin) + global XMIN XMAX YMIN YMAX + VaL=Flattenlist(varargin); + N=length(VaL); + if N<=1 + H=1.0*10^(-4); + PA=[XMIN+H,YMIN+H]; + PB=[XMAX-H,YMIN+H]; + PC=[XMAX-H,YMAX-H]; + PD=[XMIN+H,YMAX-H]; + else + Tmp=VaL(N); + if type(Tmp)==1 & length(Tmp)==1 + Dy=Tmp; + Dx=Dy; + Tmp=VaL(N-1); + if type(Tmp)==1 & length(Tmp)==1 + Dx=Tmp; + end; + Tmp=VaL(1); + X=Tmp(1); Y=Tmp(2); + X1=X-Dx; X2=X+Dx; + Y1=Y-Dy; Y2=Y+Dy; + else + Tmp=VaL(1); + X1=Tmp(1); X2=Tmp(2); + Tmp=VaL(2); + Y1=Tmp(1); Y2=Tmp(2); + end; + PA=[X1,Y1]; PB=[X2,Y1]; + PC=[X2,Y2]; PD=[X1,Y2]; + end; + P=Listplot(PA,PB,PC,PD,PA) +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin Binary files differnew file mode 100644 index 00000000..b86c79cf --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci new file mode 100644 index 00000000..97ddae5b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci @@ -0,0 +1,79 @@ +// 08.08.16 +// 08.09.16 +// 09.11.14 +// 10.08.19 +// 13.10.22 ( __ added to varibles ) + +function Out__=Fullformfunc(FdL__) + Out__=MixS(Mixop(1,FdL__)); + N__=Mixlength(FdL__); + for Jrg__=1:N__ + Tmp__=Mixop(Jrg__,FdL__); + if part(Tmp__,length(Tmp__))==']' + break + end; + end; + Urg__=Mixop(Jrg__,FdL__); + K__=mtlb_findstr(Urg__,'='); + Uname__=stripblanks(part(Urg__,1:K__-1)); + Tmp__=part(Urg__,K__+1:length(Urg__)); // 2013.10.22 + Tmp1__=evstr(Tmp__); + Urg__=Uname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; + Vrg__=Mixop(Jrg__+1,FdL__); + K__=mtlb_findstr(Vrg__,'='); + Vname__=stripblanks(part(Vrg__,1:K__-1)); + Tmp__=part(Vrg__,K__+1:length(Vrg__)); + Tmp1__=evstr(Tmp__); + Vrg__=Vname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; // + if Jrg__==2 + Tmp__=Mixop(1,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Zf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=MixS(Uname__,Vname__,Zf__,Urg__,Vrg__); + Out__=Mixjoin(Out__,Tmp__); + elseif Jrg__==4 + Tmp__=Mixop(1,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Zf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=Mixop(2,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Xname__=stripblanks(part(Tmp__,1:K__-1)); + Xf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=Mixop(3,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Yname__=stripblanks(part(Tmp__,1:K__-1)); + Yf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=strsubst(Zf__,Xname__,'('+Xf__+')'); + Zf__=strsubst(Tmp__,Yname__,'('+Yf__+')'); + Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__); + Out__=Mixjoin(Out__,Tmp__); + else + Tmp__=Mixop(2,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Xf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=Mixop(3,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Yf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=Mixop(4,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Zf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__); + Out__=Mixjoin(Out__,Tmp__); + end; + DrwS__='enws'; + BdyL__=[]; + for I__=Jrg__+2:Mixlength(FdL__) + Tmp__=Mixop(I__,FdL__); + if type(Tmp__)==10 + if length(Tmp__)==0 // + Tmp__=' '; + end; + DrwS__=Tmp__; + end; + if type(Tmp__)==1 & size(Tmp__,2)>1 + BdyL__=Tmp__; + end; + end; + Tmp__=MixS(DrwS__,BdyL__); + Out__=Mixjoin(Out__,Tmp__); +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin Binary files differnew file mode 100644 index 00000000..5ada2529 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci new file mode 100644 index 00000000..3d17995e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci @@ -0,0 +1,11 @@ +function G=Gaiseki(a,b) + if length(a)==3 + Tmp=[a(2)*b(3)-a(3)*b(2),... + a(3)*b(1)-a(1)*b(3),... + a(1)*b(2)-a(2)*b(1)]; + else + Tmp=a(1)*b(2)-a(2)*b(1); + end; + G=Tmp; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin Binary files differnew file mode 100644 index 00000000..9dbd0923 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci new file mode 100644 index 00000000..ca4e0d2a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci @@ -0,0 +1,7 @@ +// 09.09.10 + +function Out=Getcounter() + global GCOUNTER; + Out=GCOUNTER; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin Binary files differnew file mode 100644 index 00000000..b99800fe --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci new file mode 100644 index 00000000..5395d885 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci @@ -0,0 +1,7 @@ +// 09.09.10 + +function Out=Gettrace(); + global TRACEDATA; + Out=TRACEDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin Binary files differnew file mode 100644 index 00000000..d688039f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci new file mode 100644 index 00000000..236287ef --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci @@ -0,0 +1,141 @@ +// 08.05.21 +// 09.10.05 +// 09.12.25 +// 10.01.20 +// 10.02.01 +// 10.11.04 ( debugged 83 ) + +function ShaLs=Hatchdata(varargin) + global XMIN XMAX YMIN YMAX MilliIn; + ShaL=[]; + Nargs=length(varargin); + Kakudo=45; + Kankaku=0.125*1000/2.54/MilliIn; + Tmp=Doscaling([XMIN,YMIN]); + Xmn=Tmp(1); Ymn=Tmp(2); + Tmp=Doscaling([XMAX,YMAX]); + Xmx=Tmp(1); Ymx=Tmp(2); + for N=Nargs:-1:1 + Tmp=varargin(N); + if Mixtype(Tmp)~=1 + break + end + end + if N<Nargs + Kakudo=varargin(N+1); + if N==Nargs-2 + Kankaku=0.125*varargin(Nargs); + end + end + NaitenL=varargin(1); + if Mixtype(NaitenL)==1 + NaitenL=list(NaitenL); + end + Ns=2; + StartP=Op(1,NaitenL); + if type(StartP)==10 + StartP=[(Xmn+Xmx)/2,(Ymn+Ymx)/2]; + end + if Mixtype(varargin(2))==1 + StartP=varargin(2); + StartP=Doscaling(StartP); + Ns=3; + end + Tmp=list(); + for I=Ns:N + Tmp1=list(varargin(I)); + Tmp=Mixjoin(Tmp,Tmp1); + end + Bdy=Kyoukai(Tmp); + Bdys=list(); + for I=1:length(Bdy) + Tmp1=Bdy(I); + Tmp2=Doscaling(Tmp1); + Bdys=Mixjoin(Bdys,list(Tmp2)); + end; + Bdy=Bdys; + PtnL=list(); + for I=1:length(NaitenL) + Tmp=Op(I,NaitenL); + if type(Tmp)==1 + Tmp1=Naigai(Tmp,Bdy); + PtnL=Mixjoin(PtnL,list(Tmp1)); + else + if type(Tmp)~=10 + disp('Type Error'); + return + end + Ptn=[]; + for J=1:length(Tmp) + if Op(J,Tmp)=='i' + Ptn=[Ptn,1]; + else + Ptn=[Ptn,0]; + end + end + PtnL=Mixjoin(PtnL,list(Ptn)); + end + end + Call=length(Bdy); + Ptn=zeros(1,Call); + if Member(Ptn,PtnL) + Wn=Doscaling(Framedata()); + Bdy=Mixjoin(Bdy,list(Wn)); + Tmp=list(); + for I=1:length(PtnL) + Tmp1=[Op(I,PtnL),1]; + Tmp=Mixjoin(Tmp,Tmp1); // 10.11.04 + end + PtnL=Tmp; + end + V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)]; + Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)]; + Tmp=Op(1,NaitenL); + if type(Tmp)==1 & size(Tmp,2)==2 + Tmp=Doscaling(Tmp); + Delta=Tmp-StartP; + K=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); + PA=StartP+K*Kankaku*Vm; + Sha=Makeshasen(PtnL,PA,V,Bdy); + I=1; + while length(Sha)~=0 + for J=1:length(Sha) + ShaL=Mixadd(ShaL,Sha(J)); + end; + Sha=Makeshasen(PtnL,PA+I*Kankaku*Vm,V,Bdy); + I=I+1; + end + Sha=Makeshasen(PtnL,PA-Kankaku*Vm,V,Bdy); + I=2; + while length(Sha)~=0 + for J=1:length(Sha) + ShaL=Mixjoin(ShaL,list(Sha(J))); + end; + Sha=Makeshasen(PtnL,PA-I*Kankaku*Vm,V,Bdy); + I=I+1; + end + else + Delta=[Xmn,Ymn]-StartP; + K1=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); + Delta=[Xmx,Ymn]-StartP; + K2=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); + Delta=[Xmx,Ymx]-StartP; + K3=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); + Delta=[Xmn,Ymx]-StartP; + K4=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku); + IM=max(K1,K2,K3,K4); + Im=min(K1,K2,K3,K4); + for I=Im:IM + Sha=Makeshasen(PtnL,StartP+I*Kankaku*Vm,V,Bdy); + for J=1:length(Sha) + ShaL=Mixjoin(ShaL,list(Sha(J))); + end + end + end + ShaLs=list(); + for I=1:length(ShaL) + Tmp=ShaL(I); + Tmp1=Unscaling(Tmp); + ShaLs=Mixjoin(ShaLs,list(Tmp1)); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin Binary files differnew file mode 100644 index 00000000..fed0c2c1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci new file mode 100644 index 00000000..7bc05ed9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci @@ -0,0 +1,15 @@ +// s : 2014.06.22 + +function Out=Hexahedrondata(A,V1,V2,V3) + Tmp=det([V1;V2;V3]); + if Tmp<0 then + Tmp1=V1; + V1=V2; + V2=Tmp1 + end + B=A+V1; C=A+V1+V2; D=A+V2; + E=A+V3; F=B+V3; G=C+V3; H=D+V3; + VL=list(A,B,C,D,E,F,G,H); + FL=list([1,4,3,2],[5,6,7,8],[1,2,6,5],[2,3,7,6],[3,4,8,7],[1,5,8,4]); + Out=list(VL,FL) +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin Binary files differnew file mode 100644 index 00000000..09289136 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci new file mode 100644 index 00000000..2ead122d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci @@ -0,0 +1,7 @@ +// 08.09.15 + +function Out=HiddenWireData() + global HIDDENWIREDATA + Out=HIDDENWIREDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin Binary files differnew file mode 100644 index 00000000..86cae9a7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci new file mode 100644 index 00000000..ab8a54b6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci @@ -0,0 +1,144 @@ +// 08.05.17 Debugged +// 09.12.25 +// 11.04.13 debugged ( [a,b] ) +// 14.03.05 MARKLEN + +function Htickmark(varargin) + global Wfile FID MARKLEN GENTEN XMIN XMAX; + Nargs=length(varargin); + ArgsL=list(varargin(1:Nargs)); + if type(Op(1,ArgsL))==10 + Str=Op(1,ArgsL); + Tmp=mtlb_findstr(Str,'m'); + if Tmp~=[] + I=Tmp(1); + else + I=0; + end + Tmp=mtlb_findstr(Str,'n'); + if Tmp~=[] + J=Tmp(1); + else + J=0; + end + Tmp=mtlb_findstr(Str,'r'); + if Tmp~=[] + K=Tmp(1); + else + K=0; + end; + if K>0 + Tmp=ascii(Str); + S=char(Tmp(K+1:length(Tmp))); + R=msscanf(S,'%f'); + if length(R)==0 + R=1; + end + else + R=1; + K=length(Str)+1; + end + if J>0 then + Tmp=ascii(Str); + S=char(Tmp(J+1:K-1)); + if S==[] + S=''; + end; + Dn=msscanf(S,'%d'); + if length(Dn)==0 + Dn=1; + end + else + Dn=1000; + J=length(Str)+1; + end + Tmp=ascii(Str); + S=char(Tmp(I+1:J-1)); + if S==[] + S=''; + end + Dm=msscanf(S,'%f'); + if length(Dm)==0 + Dm=1; + end + ArgsL=list(); + for I=1:floor((XMAX-GENTEN(1))/Dm) + ArgsL($+1)=I*Dm; + if I-floor(I/Dn)*Dn==0 + Str=string(I*Dm*R); + K=length(Str); + Tmp=ascii(Str); + if char(Tmp(K))=='.' + Str=char(Tmp(1:k-1)); + end + ArgsL($+1)=Str; + end + end + for I=-1:-1:ceil((XMIN-GENTEN(1))/Dm) + ArgsL($+1)=I*Dm; + if I-floor(I/Dn)*Dn==0 + Str=string(I*Dm*R); + K=length(Str); + Tmp=ascii(Str); + if char(Tmp(K))=='.' + Str=char(1:K-1); + end + ArgsL($+1)=Str; + end + end + end + MemoriList=list(); + Memori=list(); + for N=1:length(ArgsL) + Dt=ArgsL(N); + if type(Dt)==1 & length(Dt)>1 + if length(Memori)>0 + MemoriList($+1)=Memori; + end + Memori=list(Dt(1),Dt(2)); + continue + end + if type(Dt)==10 + Memori($+1)=Dt; + else + if length(Memori)>0 + MemoriList($+1)=Memori; + end + Memori=list(Dt,GENTEN(2)); + end + end + MemoriList($+1)=Memori; + for N=1:length(MemoriList) + Dt=MemoriList(N); + Ndt=length(Dt); + X=Op(1,Dt); + Y=Op(2,Dt); + Tmp=Doscaling([X,Y]); + X=Tmp(1); + Y=Tmp(2); + Moji=Op(Ndt,Dt); + Tmp1=Unscaling([X,Y+MARKLEN]); + Tmp2=Unscaling([X,Y-MARKLEN]); + Fd=Listplot([Tmp1,Tmp2]); + Drwline(Fd); + if Ndt==3 + Tmp=Unscaling([X,Y-MARKLEN]); + Expr(Tmp,'s',Moji); + end + if Ndt==4 + Houkou=Op(3,Dt); + if mtlb_findstr(Houkou,'s')~=[] + Tmp=Unscaling([X,Y-MARKLEN]); + Expr(Tmp,Houkou,Moji); + else + Tmp=Unscaling([X,Y+MARKLEN]); + Expr(Tmp,Houkou,Moji); + end + end + if Wfile=='default' + mprintf('%s\n','%'); + else + mfprintf(FID,'%s\n','%'); + end + end +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin Binary files differnew file mode 100644 index 00000000..6334287e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci new file mode 100644 index 00000000..ae02fee1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci @@ -0,0 +1,9 @@ +// 08.09.10 +// 08.09.16 +// 08.10.10 (Name) + +function Out=ImplicitData() + global IMPLICITDATA + Out=IMPLICITDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin Binary files differnew file mode 100644 index 00000000..6336bf4c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci new file mode 100644 index 00000000..b0715484 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci @@ -0,0 +1,61 @@ +// 08.09.09 +// 08.09.20 +// 13.10.19 ( __ added to variables ) + +function Out__=Implicitplot(varargin) + Eps__=10^(-4); + Nargs__=length(varargin); + Fstr__=varargin(1); + if Mixtype(Fstr__)~=1 + MS__=Fstr__; + [Zval__,Xval__,Yval__]=Makevaltable(MS__); + elseif type(Fstr__)==10 + MS__=[]; + for I__=1:Nargs__ + MS__=Mixadd(MS__,varargin(I__)); + end; + [Zval__,Xval__,Yval__]=Makevaltable(MS__); + else + Zval__=varargin(1); + Xval__=varargin(2); + Yval__=varargin(3); + end; + Out__=[]; + for J__=1:length(Yval__)-1 + for I__=1:length(Xval__)-1 + a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__); + a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1); + a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1); + a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__); + PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; + VL__=[c1__,c2__,c3__,c4__,c1__]; + QL__=[]; + for K__=1:4 + if abs(VL__(K__))<=Eps__ + QL__=[QL__;PL__(K__,:)]; + elseif VL__(K__)>Eps__ + if VL__(K__+1)<-Eps__ + Tmp__=1/(VL__(K__)-VL__(K__+1))*(-VL__(K__+1)*PL__(K__,:)... + + VL__(K__)*PL__(K__+1,:)); + QL__=[QL__;Tmp__]; + end + else + if VL__(K__+1)>Eps__ + Tmp__=1/(-VL__(K__)+VL__(K__+1))*(VL__(K__+1)*PL__(K__,:)... + - VL__(K__)*PL__(K__+1,:)); + QL__=[QL__;Tmp__]; + end; + end; + end; + if size(QL__,1)==2 + Out__=[Out__;%inf,%inf;QL__(1,:);QL__(2,:)]; + end; + end; + end; + Out__=Out__(2:size(Out__,1),:); + if size(Out__,1)>0 + Out__=Connectseg(Out__); + else + Out__=[]; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin Binary files differnew file mode 100644 index 00000000..da2db1f4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci new file mode 100644 index 00000000..9dacd30c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci @@ -0,0 +1,11 @@ +function Rx=InWindow(PA) + global XMIN XMAX YMIN YMAX + Eps=10.0^(-6); + X=PA(1); Y=PA(2); + if X>XMIN-Eps & X<XMAX+Eps & Y>YMIN-Eps & Y<YMAX+Eps + Rx='i' + else + Rx='o' + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin Binary files differnew file mode 100644 index 00000000..ac64c46b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci new file mode 100644 index 00000000..d5e09ff4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci @@ -0,0 +1,8 @@ +// 08.07.11 + +function Initangle() + global PHI THETA; + PHI=30*%pi/180; + THETA=60*%pi/180; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin Binary files differnew file mode 100644 index 00000000..b26672c0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci new file mode 100644 index 00000000..abd3377f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci @@ -0,0 +1,25 @@ +// 09.10.09 +// 09.10.21 Es, Er + +function Out=Integrate(varargin); + Nargs=length(varargin); + Fs=varargin(1); + Vs=varargin(2); + Itv=varargin(3); + Es=1d-10; + if Nargs>3 + Es=varargin(4); + end; + Er=1d-8; + if Nargs>4 + Er=varargin(5); + end; + Out=0; + Na=1; + while Na<length(Itv) + A=Itv(Na); B=Itv(Na+1); + Out=Out+integrate(Fs,Vs,A,B,Es,Er); + Na=Na+1; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin Binary files differnew file mode 100644 index 00000000..3ff5a305 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci new file mode 100644 index 00000000..59b4fdcc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci @@ -0,0 +1,34 @@ +// 08.05.18 Koshikawa +// 08.05.19 Changed +// 08.06.03 +// 09.11.12 +// 09.11.14 debug + +function PL=Intersectcrvs(varargin) + Nargs=length(varargin); + Eps=10^(-4); + Tmp=varargin(Nargs); + if type(Tmp)==1 & length(Tmp)==1 + Eps=Tmp; + end + G1=varargin(1); + if Mixtype(G1)==1 + G1=list(G1); + end; + G2=varargin(2); + if Mixtype(G2)==1 + G2=list(G2); // + end; + PL=list(); + for N=1:length(G1) + for M=1:length(G2) + KL=IntersectcrvsPp(G1(N),G2(M),Eps); + for I=1:length(KL) + Tmp=KL(I);; + P=Tmp(1); + PL($+1)=P; + end; + end; + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin Binary files differnew file mode 100644 index 00000000..348451cf --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci new file mode 100644 index 00000000..a1218d06 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci @@ -0,0 +1,101 @@ +// 08.05.18 Koshikawa +// 08.05.19 Changed +// 08.00.04 +// 09.11.07 for the same curve + +function KL=IntersectcrvsPp(varargin) // Modified + Nargs=length(varargin); + G1=varargin(1); G2=varargin(2); + Eps=10.0^(-4); + if Nargs>2 + Eps=varargin(3) + end + SqEps=10.0^(-10); + Eps2=0.1; + if Nargs>3 + Eps2=varargin(4) + end + Data1=G1; + Data2=G2; + if size(Data1,1)==size(Data2,1) + Tmp1=Data2(size(Data2,1):-1:1,:); // 09.11.07 + Eps0=10^(-6); + Tmp2=norm(Data1-Data2); + Tmp3=norm(Data1-Tmp1); + if Tmp2<Eps0|Tmp3<Eps0 + KL=list(); + return; + end; // + end; + KL1=[]; + KL2=[]; + for I=1:size(Data1,1)-1 + A=Data1(I,:); + B=Data1(I+1,:); + for J=1:size(Data2,1)-1 + P=Data2(J,:); Q=Data2(J+1,:); + Tmp=Koutenseg(A,B,P,Q,Eps,Eps2); + if Tmp~=[%inf,-%inf] + if Op(3,Tmp)==0 + Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J); + KL1=Mixadd(KL1,Tmp1); + else + Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J); + KL2=Mixadd(KL2,Tmp2); + end + end + end + end + KL=[]; + if Mixlength(KL1)>0 + Tmp=Op(1,KL1); + P=Op(1,Tmp); + T=Op(2,Tmp); + I=Op(3,Tmp); + J=Op(4,Tmp); + Tmp=MixS(P,I+T,J); + KL=MixL(Tmp); + end + for N=2:Mixlength(KL1) + Tmp=Op(N,KL1); + P=Op(1,Tmp); + Flg=0; + for K=1:Mixlength(KL) + Tmp=Op(K,KL); + if Vecnagasa2(P-Op(1,Tmp))<SqEps + Flg=1; + break + end + end + if Flg==0 + Tmp=Op(N,KL1); + T=Op(2,Tmp); + I=Op(3,Tmp); + J=Op(4,Tmp); + Tmp=MixS(P,I+T,J); + KL=Mixadd(KL,Tmp); + end + end + for N=1:Mixlength(KL2) + Tmp=Op(N,KL2); + P=Op(1,Tmp); + Flg=0; + for K=1:Mixlength(KL) + Tmp=Op(K,KL); + if Vecnagasa2(P-Op(1,Tmp))<SqEps + Flg=1; + break + end + end + if Flg==0 + Tmp=Op(N,KL2); + T=Op(2,Tmp); + T=min(max(T,0),1); + I=Op(3,Tmp); + J=Op(4,Tmp); + Tmp=MixS(P,I+T,J); + KL=Mixadd(KL,Tmp); + end + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin Binary files differnew file mode 100644 index 00000000..3d7069f0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci new file mode 100644 index 00000000..2a2e5b6c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci @@ -0,0 +1,47 @@ +// 08.10.26 +// 10.02.16 + +function Out=Intersectcrvsf(varargin) + Nargs=length(varargin); + Eps0=10^(-4); + Crv=varargin(1); + Fd=varargin(2); + N=3;Uveq=1; + if Nargs>=3 + Tmp=varargin(3); + if type(Tmp)==10 + Uveq=Tmp; + N=4; + end; + end; + Np=[50,50]; + if Nargs>=N + Np=varargin(N); + if length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=[0.05,1]; // + if Nargs>=N+1 + Eps=varargin(N+1); + end; + if length(Eps)==1 // + Eps=[Eps,1]; // + end; // + Out=[]; + for I=1:Numptcrv(Crv)-1 + PtA=Ptcrv(I,Crv); + PtB=Ptcrv(I+1,Crv); + if norm(PtB-PtA)<Eps0 + continue; + end; + PL=Meetpoints(PtA,PtB,Fd,Uveq,Np,Eps(1)); + for J=1:Mixlength(PL) + Pt=Mixop(J,PL); + Tmp=norm(Pt-PtA)/norm(PtB-PtA); + Tmp=min(max(Tmp,0),1); + Out=Mixadd(Out,[Pt,I+Tmp]); + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin Binary files differnew file mode 100644 index 00000000..bebf87c5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci new file mode 100644 index 00000000..ed92a5aa --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci @@ -0,0 +1,22 @@ +// 09.10.11 +// 09.10.12 + +function Out=Intersectlines(L1,L2) + Eps0=10^(-6); + P=Ptstart(L1); + a1=P(1); a2=P(2); + V=Ptend(L1)-P; + b1=V(1); b2=V(2); + P=Ptstart(L2); + c1=P(1); c2=P(2); + V=Ptend(L2)-P; + d1=V(1); d2=V(2); + Den=b1*d2-d1*b2; + if abs(Den)<Eps0 + Out=[]; + return; + end; + x=-(d1*b2*a1-c1*b1*d2-d1*a2*b1+d1*b1*c2)/Den; + y=-(-a2*b1*d2+b2*a1*d2-b2*c1*d2+c2*d1*b2)/Den; + Out=[x,y]; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin Binary files differnew file mode 100644 index 00000000..5f0cad0f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci new file mode 100644 index 00000000..4b246e95 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci @@ -0,0 +1,95 @@ +// 09.05.27 +// 09.06.03 +// 09.06.05 + +function KL=IntersectselfPp(varargin) + Nargs=length(varargin); + G1=varargin(1); + Eps=10.0^(-4); + if Nargs>1 + Eps=varargin(2) + end + Eps0=10.0^(-5); + Eps2=0.01; +// if Nargs>2 +// Eps2=varargin(3) +// end; + Data1=G1; + KL1=[]; + KL2=[]; + for I=1:size(Data1,1)-2 + A=Data1(I,:); + B=Data1(I+1,:); + Is=I+2; + Tmp=Data1(Is,:); + while norm(Tmp-B)<Eps & Is<size(Data1,1); + Is=Is+1; + Tmp=Data1(Is,:); + end; + for J=Is:size(Data1,1)-1 + P=Data1(J,:); Q=Data1(J+1,:); + Tmp=Koutenseg(A,B,P,Q,Eps,Eps2); + if Tmp~=[%inf,-%inf] + if Op(3,Tmp)==0 + Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J); + KL1=Mixadd(KL1,Tmp1); + else + Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J); + KL2=Mixadd(KL2,Tmp2); + end + end + end + end + KL=[]; + if Mixlength(KL1)>0 + Tmp=Op(1,KL1); + P=Op(1,Tmp); + T=Op(2,Tmp); + I=Op(3,Tmp); + J=Op(4,Tmp); + S=ParamonCurve(P,J,Data1); + Tmp=MixS(P,I+T,J); + Tmp2=MixS(P,S,I); + KL=MixL(Tmp); + KL=Mixadd(KL,Tmp2); + end; + for N=2:Mixlength(KL1) + Tmp=Op(N,KL1); + P=Op(1,Tmp); + T=Op(2,Tmp); + I=Op(3,Tmp); + J=Op(4,Tmp); + S=ParamonCurve(P,J,Data1); + Tmp=MixS(P,I+T,J); + Tmp1=MixS(P,S,I); + KL=Mixadd(KL,Tmp); + KL=Mixadd(KL,Tmp1); + end + for N=1:Mixlength(KL2) + Tmp=Op(N,KL2); + P=Op(1,Tmp); + T=Op(2,Tmp); + T=min(max(T,0),1); + I=Op(3,Tmp); + J=Op(4,Tmp); + S=ParamonCurve(P,J,Data1); + Flg=0; + for K=1:Mixlength(KL) + Tmp=Op(K,KL); + if norm(P-Op(1,Tmp))<Eps + Tmp1=Op(2,Tmp); + if abs(I+T-Tmp1)<Eps + Flg=1; + break; + end; + end; + end; + if Flg==0 + Tmp=MixS(P,I+T,J); + Tmp1=MixS(P,S,I); + KL=Mixadd(KL,Tmp); + KL=Mixadd(KL,Tmp1); + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin Binary files differnew file mode 100644 index 00000000..e3bc6bf4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci new file mode 100644 index 00000000..bf6f976f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci @@ -0,0 +1,29 @@ +// 10.11.13 ( Flattenlist used +// 13.10.19 debugged + +function Invdashline(varargin) + global MilliIn; + Nargs=length(varargin); + Nall=Nargs; Sen=1 ; Gap=1; + Tmp=varargin(Nall); + if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 // 2013.10.19 + Tmp1=varargin(Nall-1); + if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 // 2013.10.19 + Sen=Tmp1; Gap=Tmp; + Nall=Nall-2; + else + Sen=Tmp; Gap=Sen; + Nall=Nall-1; + end + end + Sen=1000/2.54/MilliIn*Sen; + Gap=1000/2.54/MilliIn*Gap; + for N=1:Nall + Tmp=varargin(N); + Fdata=Flattenlist(Tmp); + for I=1:length(Fdata); + Figdata=Fdata(I); + Makehasen(Figdata,Sen,Gap,1); + end; + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin Binary files differnew file mode 100644 index 00000000..2e870385 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci new file mode 100644 index 00000000..9f9f9d95 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci @@ -0,0 +1,6 @@ +// 08.05.31 + +function OutL=Invert(Pd) + OutL=Pd(size(Pd,1):-1:1,:); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin Binary files differnew file mode 100644 index 00000000..c92f5024 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci new file mode 100644 index 00000000..4d7863b1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci @@ -0,0 +1,50 @@ +// 08.07.11 +// 08.08.17 +// 09.10.31 +// 09.11.12 + +function Out=Invparapt(varargin) + Eps=10^(-4); + Fk=varargin($); + NFk=Numptcrv(Fk) + Tmp=varargin(1); + if type(Tmp)==1 & size(Tmp)==1 + Ph=Tmp; + Fh=varargin(2); + else + Fh=Projpara(Fk); + if NFk>2 + Tmp1=Nearestpt(Tmp,Fh); + Ph=Tmp1(2); + else + Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh); + V1=Tmp-Ah; V2=Bh-Ah; + Tmp1=Crossprod(V1,V2); + if abs(Tmp1)>Eps + disp('Not on the line'); + Out=[]; + return; + else + Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12 + end; + end; + end; + if NFk>2 + N=Trunc(Ph); + S0=Ph-N; + if Ph>Numptcrv(Fh)-Eps + Out=list(Ptend(Fk),Numptcrv(Fh)); + return; + end; + else + N=1; + S0=Ph-1; // 09.11.12 + end; + Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk); + Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh); + Ph=(1-S0)*Ah+S0*Bh; + T2=S0; + Pk=(1-T2)*Ak+T2*Bk; + Out=list(Pk,N+T2); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin Binary files differnew file mode 100644 index 00000000..073bbdca --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci new file mode 100644 index 00000000..c2c35355 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci @@ -0,0 +1,65 @@ +// 08.08.12 +// 09.10.31 +// 09.11.12 + +function Out=Invperspt(varargin) + global FocusPoint EyePoint; + Eps=10^(-4); + Fk=varargin($); + NFk=Numptcrv(Fk) + Tmp=varargin(1); + if type(Tmp)==1 & length(Tmp)==1 + Ph=varargin(1); + Fh=varargin(2); + else + Fh=Projpers(Fk); + if NFk>2 + Tmp1=Nearestpt(Tmp,Fh); + Ph=Tmp1(2); + else + Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh); + V1=Tmp-Ah; V2=Bh-Ah; + Tmp1=Crossprod(V1,V2); + if abs(Tmp1)>Eps + disp('Not on the line'); + Out=[]; + return; + else + Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12 + end; + end; + end; + if NFk>2 + N=Trunc(Ph); + S0=Ph-N; + if Ph>Numptcrv(Fh)-Eps + Out=list(Ptend(Fk),Numptcrv(Fh)); + return; + end; + else + N=1; + S0=Ph-1; // 09.11.12 + end; + Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk); + Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh); + Ph=(1-S0)*Ah+S0*Bh; + Phc=Cancoordpers([Ph,0]); + Ahc=Cancoordpers([Ah,0]); + Bhc=Cancoordpers([Bh,0]); + Vp=Phc-EyePoint; + Va=Ak-EyePoint; + AB=Bk-Ak; + Cp=Crossprod(Vp,AB); + Nmr=Crossprod(Va,Vp); + Mx=max(abs(Cp)); + if abs(Cp(1))==Mx + T2=Nmr(1)/Cp(1); + elseif abs(Cp(2))==Mx + T2=Nmr(2)/Cp(2); + else + T2=Nmr(3)/Cp(3); + end; + Pk=(1-T2)*Ak+T2*Bk; + Out=list(Pk,N+T2); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin Binary files differnew file mode 100644 index 00000000..b44d17eb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci new file mode 100644 index 00000000..04aaf4eb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci @@ -0,0 +1,51 @@ +// 08.05.31 +// 08.08.22 +// 08.09.14 +// 08.09.20 +// 08.10.27 +// 11.06.25 + +function PtL=Joincrvs(varargin) + Nall=length(varargin); + Eps=10^(-4); + Tmp=varargin(Nall); + if type(Tmp)==1 & length(Tmp)==1 + Eps=Tmp; + Nall=Nall-1; + end; + QdL=list(); + for I=1:Nall + QdL($+1)=varargin(I); // 11.06.25 + end; + QdL=Flattenlist(QdL); // 11.06.25 + if length(QdL)==0 + PtL=[]; + return; + end; + PtL=[Mixop(1,QdL)]; + for I=2:Mixlength(QdL) + Qd=QdL(I); + if Numptcrv(Qd)<=1 // 11.06.25 + continue; + end; + P=Ptend(PtL) + S=Ptstart(PtL); + Q=Ptstart(Qd); + R=Ptend(Qd); + MN=min(norm(P-Q),norm(P-R),norm(S-Q),norm(S-R)); + if MN==norm(P-R) + Qd=Invert(Qd); + elseif MN==norm(S-Q) + PtL=Invert(PtL); + elseif MN==norm(S-R); + PtL=Invert(PtL); + Qd=Invert(Qd); + end; + if MN>Eps + PtL=[PtL;Qd]; + else + PtL=[PtL;Qd(2:size(Qd,1),:)]; + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin Binary files differnew file mode 100644 index 00000000..c7b88175 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci new file mode 100644 index 00000000..78cd46e5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci @@ -0,0 +1,26 @@ +// 11.11.02 (for list structure) + +function P=Joingraphics(varargin) + Ls=Flattenlist(varargin); + N=length(Ls); + Tp=Ls(N); + Listflg=0; + if type(Tp)==10 + Tmp=part(Tp,1); + if Tmp=="L"|Tmp=="l" + Listflg=1 + end; + N=N-1; + Ls=Mixsub(1:N,Ls); + end; + if Listflg==1 + P=Ls + else + P=[]; + for I=1:N + Tmp=Ls(I); + P=[P;%inf,%inf;Tmp]; + end; + P=P(2:size(P,1),:) + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin Binary files differnew file mode 100644 index 00000000..140d9028 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci new file mode 100644 index 00000000..bbe02e62 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci @@ -0,0 +1,57 @@ +// 08.07.08 PHI,THETA,FocusPoint,EyePoint; +// 08.08.08 +// 08.08.31 +// 08.09.18 +// 09.10.09 ASSIGNLIST +// 09.12.25 SCALING +// 10.04.16 TEXFOR +// 13.05.19 funcprot(0) +// 13.03.05 MARKLEN instead of MEMORI + +function Ketinit() + global THISVERSION + global TenSize TenSizeInit Wfile XMIN XMAX YMIN YMAX + global XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE + global ULEN MilliIn PenThick PenThickInit ZIKU + global MEMORI MEMORIInit MEMORINow GENTEN + global MARKLEN MARKLENInit MARKLENNow + global YaSize YaAngle YaPosition YaThick YaStyle + global PHI THETA FocusPoint EyePoint ASSIGNLIST + global SCALEX SCALEY LOGX LOGY TEXFORLEVEL TEXFORLAST + funcprot(0); // 2013.05.19 + Setversion(); + XMIN=-5 ;XMAX=5; + YMIN=-5 ; YMAX=5; + ZIKU='line'; ARROWSIZE=1; + XNAME='$x$' ; XPOS='e'; + YNAME='$y$' ; YPOS='n'; + ONAME='O' ; OPOS='sw'; + ULEN='1cm'; + MilliIn=1/2.54*1000; + PenThick=round(MilliIn*0.02); + PenThickInit=PenThick; + TenSizeInit=0.02; + TenSize=TenSizeInit; + Wfile='default'; + MEMORI=0.05; + MEMORIInit=MEMORI; + MEMORINow=MEMORI; + MARKLEN=0.05; + MARKLENInit=MARKLEN; + MARKLENNow=MARKLEN; + GENTEN=[0,0]; + YaSize=1; YaAngle=18; YaPosition=1; + YaThick=1; YaStyle='tf'; + PHI=30*%pi/180; + THETA=60*%pi/180; + FocusPoint=[0,0,0]; + EyePoint=[5,5,5]; + ASSIGNLIST=list('`',char(39)); + SCALEX=1; + SCALEY=1; + LOGX=0; + LOGY=0; + TEXFORLEVEL=0; + TEXFORLAST=list(); + endfunction; +
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin Binary files differnew file mode 100644 index 00000000..f5871542 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci new file mode 100644 index 00000000..c12b721e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci @@ -0,0 +1,31 @@ +// 08.05.18 +// 08.05.19 +// 09.06.01 (same as 05.19) + +function Out=Kouten(PA,V,P,Q); + Eps=10.0^(-6); + A1=PA(1); A2=PA(2); + V1=V(1); V2=V(2); + P1=P(1); P2=P(2); + U1=Q(1)-P1; U2=Q(2)-P2; + Tmp=norm(P-Q)*norm(V); + if Tmp==0 + Out=[%inf,-%inf]; + return + end + D=U1*V2-U2*V1; + if abs(D)/Tmp<Eps + Out=[%inf,-%inf]; + return + end + S=((-A2+P2)*V1+(A1-P1)*V2)/D; + if S>1+Eps | S<-Eps + Out=[%inf,-%inf]; + return + end + T=((-A2+P2)*U1+(A1-P1)*U2)/D; + Tmp=PA+T*V; + Out=MixS(T,Tmp,sign(D)); +endfunction + + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin Binary files differnew file mode 100644 index 00000000..f5b67546 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci new file mode 100644 index 00000000..82cf1e2c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci @@ -0,0 +1,51 @@ +// 08.05.18 +// 08.05.20 +// 08.06.02 + +function TenL=KoutenList(PA,V,Bdy) + Eps=10.0^(-6); + TenL=[]; + for N=1:Mixlength(Bdy) + KL=Op(N,Bdy); + for K=1:size(KL,1)-1 + P=KL(K,:); Q=KL(K+1,:); + if P~='/' & Q~='/' + Tmp=Kouten(PA,V,P,Q); + if Tmp~=[%inf,-%inf] + Ten=Mixadd(Tmp,N); + Flg=0; + NN=Mixlength(TenL); + I=1; + while Flg==0 & I<=NN + Tmp=Op(I,TenL); + if Op(1,Ten)<Op(1,Tmp)-Eps + Tmp=Mixsub(1:I-1,TenL); + Tmp1=Mixadd(Tmp,Ten); + Tmp2=Mixsub(I:Mixlength(TenL),TenL); + TenL=Mixjoin(Tmp1,Tmp2); + Flg=1; + elseif Op(1,Ten)<Op(1,Tmp)+Eps + if Op(4,Ten)~=Op(4,Tmp) + Tmp=Mixsub(1:I-1,TenL); + Tmp1=Mixadd(Tmp,Ten); + Tmp2=Mixsub(I:Mixlength(TenL),TenL); + TenL=Mixjoin(Tmp1,Tmp2); + Flg=1; + elseif Op(3,Ten)~=Op(3,Tmp) + Tmp1=Mixsub(1:I-1,TenL); + Tmp2=Mixsub(I+1:Mixlength(TenL),TenL); + TenL=Mixjoin(Tmp1,Tmp2); + end + Flg=1; + end + I=I+1; + end + if Flg==0 + TenL=Mixadd(TenL,Ten); + end + end + end + end + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin Binary files differnew file mode 100644 index 00000000..be93baf3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci new file mode 100644 index 00000000..371807fa --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci @@ -0,0 +1,105 @@ +// +// 08.05.19 +// 09.12.05 + +function Out=Koutenseg(varargin) + //pointdata on AB at which AB intersects CD + Nargs=length(varargin); + Eps0=10^(-4); + A=varargin(1); V=varargin(2)-A; + Sv2=V(1)^2+V(2)^2; + if Sv2<10^(-6) + Out=[%inf,-%inf]; + return + end + P=varargin(3)-A; Q=varargin(4)-A; + Eps=10.0^(-3); + if Nargs>=5 + Eps=varargin(5); + end + Eps2=0.2; + if Nargs>=6 + Eps2=varargin(6); + end + Eps=min(Eps2,Eps/sqrt(Sv2)); + P1=(P(1)*V(1)+P(2)*V(2))/Sv2; + P2=(-P(1)*V(2)+P(2)*V(1))/Sv2; + Q1=(Q(1)*V(1)+Q(2)*V(2))/Sv2; + Q2=(-Q(1)*V(2)+Q(2)*V(1))/Sv2; + m1=-Eps; M1=1+Eps; + m2=-Eps; M2=Eps; + if (max(P1,Q1)<m1) | (min(P1,Q1)>M1) + Out=[%inf,-%inf]; + return + end + if (max(P2,Q2)<m2) | (min(P2,Q2)>M2) + Out=[%inf,-%inf]; + return + end + if P2*Q2<0 + T=P1-(Q1-P1)/(Q2-P2)*P2; + if (T>m1) & (T<M1) + if (T>-Eps0) & (T<1+Eps0) + Tmp1=A+T*V; + Tmp2=min(max(T,0),1); + Out=MixS(Tmp1,Tmp2,0); + else + Tmp1=A+T*V; + Tmp2=min(max(T,0),1); + Out=MixS(Tmp1,Tmp2,1); + end + return + end + if P1<m1 | P1>M1 | P2<m2 | P2>M2 + if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2 + Out=[%inf,-%inf]; + return + end + T=min(max(Q1,0),1); + Tmp=A+T*V; + Out=MixS(Tmp,T,1); + return + end + T=min(max(P1,0),1); + Tmp=A+T*V; + Out=MixS(Tmp,T,1); + return + end + if P1 > -Eps0 & P1 < 1 + Eps0 & P2 > -Eps0 & P2 < Eps0 + T= P1; + Tmp=A+T*V; + Out= MixS(Tmp, T, 0); + return + end + if Q1 > -Eps0 & Q1 < 1 + Eps0 & Q2 > -Eps0 & Q2 < Eps0 + T= Q1; + Tmp=A+T*V; + Out=MixS(Tmp,T,0); + return + end + if P1<m1 | P1>M1 | P2<m2 | P2>M2 + if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2 + Out=[%inf,-%inf]; + return + end + T=min(max(Q1,0),1); + Tmp=A+T*V; + Out=MixS(Tmp,T,1); + return + end + if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2 + T=min(max(P1,0),1); + Tmp=A+T*V; + Out=MixS(Tmp,T,1); + return + end + if abs(P2)<abs(Q2) + T=min(max(P1,0),1); + else + T=min(max(Q1,0),1); + end + Tmp=A+T*V; + Out=MixS(Tmp,T,1); +endfunction + + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin Binary files differnew file mode 100644 index 00000000..7535fd2e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci new file mode 100644 index 00000000..0e38dae7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci @@ -0,0 +1,45 @@ +// 08.07.13 +// 08.10.16 + +function Res=Kukannozoku(Jokyo,KukanL) + Eps=10^(-6); + N=size(KukanL,1); + T1=Jokyo(1); T2=Jokyo(2); + Tmp=KukanL(1,:); + T1=max(T1,Tmp(1)); + Tmp=KukanL(N,:); + T2=min(T2,Tmp(2)); + Res=[]; + Flg=0; + for I=1:N + Ku=KukanL(I,:); + if Flg==0 + if Ku(2)<T1 + Res=[Res;Ku]; + else + Flg=1; + if Ku(1)<T1-Eps + Tmp=[Ku(1),T1]; + Res=[Res;Tmp]; + end; + if Ku(2)>T2+Eps + Tmp=[T2,Ku(2)]; + Res=[Res;Tmp]; + end; + end; + elseif Flg==1 + if Ku(2)<T2 + continue; + else + Flg=2; + if Ku(1)<T2-Eps + Ku=[T2,Ku(2)]; + end; + Res=[Res;Ku]; + end; + else + Res=[Res;Ku]; + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin Binary files differnew file mode 100644 index 00000000..656dd42d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci new file mode 100644 index 00000000..4e38175f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci @@ -0,0 +1,62 @@ +// 08.05.30 + +function Out=Kukeiwake(PL) + global XMIN XMAX YMIN YMAX; + Eps=10.0^(-6); + NW=[XMIN,YMAX]; SW=[XMIN,YMIN]; + SE=[XMAX,YMIN]; NE=[XMAX,YMAX]; + Sikaku=[NW;SW;SE;NE;NW]; + Kt=IntersectcrvsPp(PL,Sikaku); + if Mixlength(Kt)~=2 + disp('not two points') + return + end + Tmp=Op(1,Kt); + Pt1=Op(1,Tmp); + N1=Trunc(Op(2,Tmp)); + M1=Op(3,Tmp); + Tmp=Op(2,Kt); + Pt2=Op(1,Tmp); + N2=Trunc(Op(2,Tmp)); + M2=Op(3,Tmp); + T1=ParamonCurve(Pt1,M1,Sikaku); + T2=ParamonCurve(Pt2,M2,Sikaku); + QL=[]; + if Vecnagasa(Pt1,PL(N1+1,:))>Eps + QL=[Pt1]; + end + QL=[QL;PL(N1+1:N2,:)]; + if Vecnagasa(Pt2,PL(N2,:))>Eps + QL=[QL;Pt2]; + end + HidariL=QL; + Ms=M2+1; Me=M1; + if T1<T2+Eps Me=M1+4; end + for M=Ms:Me + Tmp=HidariL(size(HidariL,1),:); + P=Sikaku(modulo(M-1,4)+1,:); + if Vecnagasa(Tmp,P)>Eps + HidariL=[HidariL;P]; + end + end + Tmp=HidariL(size(HidariL,1),:); + if Vecnagasa(Tmp,Pt1)>Eps + HidariL=[HidariL;Pt1]; + end + MigiL=QL; + Ms=M2; Me=M1+1; + if T1>T2-Eps Me=Me-4; end; + for M=Ms:-1:Me + Tmp=MigiL(size(MigiL,1),:); + P=Sikaku(modulo(M-1,4)+1,:); + if Vecnagasa(Tmp,P)>Eps + MigiL=[MigiL;P] + end + end + Tmp=MigiL(size(MigiL,1),:); + if Vecnagasa(Tmp,Pt1)>Eps + MigiL=[MigiL;Pt1]; + end + Out=MixS(HidariL,MigiL); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin Binary files differnew file mode 100644 index 00000000..a45aa2e3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci new file mode 100644 index 00000000..a07a89d1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci @@ -0,0 +1,30 @@ +function Kyorihensuu(varargin) + if length(varargin)==0 + FL='default'; + else + FL=varargin(1); + if FL=='' + FL='tmp.tex' + end + end + StrM=[... + '\newlength{\Width}%',... + '\newlength{\Height}%',... + '\newlength{\Depth}%'... + ]; + if FL~='default' + Fid=mopen(FL,'w'); + mprintf('%s\n\n','Writing to '+FL); + end; + for I=1:size(StrM,2) + Str=StrM(I); + mprintf('%s\n',Str); + if FL~='default' + mfprintf(Fid,'%s\n',Str); + end + end + if FL~='default' + mclose(Fid) + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin Binary files differnew file mode 100644 index 00000000..07c938a3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci new file mode 100644 index 00000000..4090c2da --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci @@ -0,0 +1,144 @@ +// 08.05.18 +// 08.05.19 +// 08.05.20 +// 08.05.30 +// 08.09.19 +// 08.10.26 +// 09.01.15 "e" +// 09.05.18 +// 09.12.05 +// 16.11.03 Eps=10^(-5) +// 16.12.05 Eps=10^(-7) + +function PLall=Kyoukai(varargin) + global XMIN XMAX YMIN YMAX + Nargs=length(varargin); + Eps0=10^(-7); + DataL=[]; + for I=1:Nargs + Tmp=varargin(I); + if Mixtype(Tmp)==1 + Tmp1=MixS(Tmp); + DataL=Mixadd(DataL,Tmp1); + end + if Mixtype(Tmp)==2 + DataL=Mixadd(DataL,Tmp); + end + if Mixtype(Tmp)==3 + DataL=Mixjoin(DataL,Tmp); + end + end; + Eps=10.0^(-4); + PLall=[]; + Sflg=0; + N=Mixlength(DataL); + for I=1:N + Data=Op(I,DataL); + Tmp=Op(Mixlength(Data),Data); + if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1 + Rg=Tmp ; Nd=Mixlength(Data)-1; + elseif type(Tmp)==10 + Rg=Tmp ; Nd=Mixlength(Data)-1; + else + Rg='c' ; Nd=Mixlength(Data); + end; + for J=1:Nd + Tmp=Op(J,Data); + if type(Tmp)==10 + Rg=Tmp; + continue + end + Points=Tmp; + P1=Ptstart(Points); + P2=Ptend(Points); + if J==1 + PL=Points; + Pfirst=P1; + Plast=P2; + if Nd>=2 + Tmp=Op(2,Data); + P=Ptstart(Tmp); + Q=Ptend(Tmp); + if norm(P2-P)>Eps & norm(P2-Q)>Eps + Tmp=size(PL,1); + PL=PL(Tmp:-1:1,:); + Pfirst=Ptstart(PL); + Plast=Ptend(PL); + end; + end + else + if norm(P1-Plast)<Eps + Stp=1; Ks=2; Ke=size(Points,1); + elseif norm(P2-Plast)<Eps + Stp=-1; Ks=size(Points,1)-1; Ke=1; + else + PL=[PL;%inf,%inf;Points]; + Sflg=1; + Pfirst=P1; + Plast=P2; + Stp=1; Ks=size(Points,1)-1; Ke=1; + end + for K=Ks:Stp:Ke + PL=[PL;Points(K,:)]; + end + Plast=Points(Ke,:); + end + end + if norm(Pfirst-Plast)>Eps + Np=size(PL,1); + if Rg=='c' + PL=[PL;Pfirst]; + elseif Rg=='s' + Tmp=[PL(1:Np,2);YMIN]; + Y=min(Tmp)-1; + P=[Plast(1),Y]; Q=[Pfirst(1),Y]; + PL=[PL;P;Q;Pfirst]; + elseif Rg=='n' + Tmp=[PL(1:Np,2);YMAX]; + Y=max(Tmp)+1; + P=[Plast(1),Y]; Q=[Pfirst(1),Y]; + PL=[PL;P;Q;Pfirst]; + elseif Rg=='w' + Tmp=[PL(1:Np,1);XMIN]; + X=min(Tmp)-1; + P=[X,Plast(2)]; Q=[X,Pfirst(2)]; + PL=[PL;P;Q;Pfirst]; + elseif Rg=='e' + Tmp=[PL(1:Np,1);XMAX]; + X=max(Tmp)+1; + P=[X,Plast(2)]; Q=[X,Pfirst(2)]; + PL=[PL;P;Q;Pfirst]; + elseif type(Rg)==1 & size(Rg,1)==1 & size(Rg,2)>1 + Tmp=Kukeiwake(PL); //Modified from here + Tmp1=Op(1,Tmp); + Tmp2=Naigai(Rg,Mix(Tmp1)); + if Tmp2==[1] + PL=Op(1,Tmp); + else + PL=Op(2,Tmp); // to here + end + end + end + Tmp=[Ptstart(PL)]; + for J=2:size(PL,1) + P=PL(J,:); + Q=Tmp(size(Tmp,1),:); + if norm(P-Q)>Eps then + Tmp=[Tmp;P]; + end + end + PL=Tmp; + PLall=Mixadd(PLall,PL); + end + if Mixlength(PLall)==1 & Sflg==0 + Tmp=Op(1,PLall); +// Tmp=Op(1,Tmp); + if norm(Ptstart(Tmp)-Ptend(Tmp))>Eps0 + Tmp=[Tmp;Ptstart(Tmp)]; + PLall=MixS(Tmp); + end + end; +endfunction; + + + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin Binary files differnew file mode 100644 index 00000000..41551ef5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci new file mode 100644 index 00000000..7a7a4b78 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci @@ -0,0 +1,100 @@ +// +// 09.12.25 + +function Letter(varargin) + global Wfile FID MEMORI; + Nargs=length(varargin); + for I=1:3:Nargs + Tmp=varargin(I); + P=Doscaling(Tmp); + X=P(1); + Y=P(2); + Houkou=varargin(I+1); + Mojiretu=varargin(I+2); + Hset=Houkou; + Vhoko='c'; + if mtlb_findstr(Hset,'n')~=[] + Vhoko='n'; Y=Y+MEMORI; + end + if mtlb_findstr(Hset,'s')~=[] + Vhoko='s'; Y=Y-MEMORI; + end + Hhoko='c'; + if mtlb_findstr(Hset,'e')~=[] + Hhoko='e'; X=X+MEMORI; + end + if mtlb_findstr(Hset,'w')~=[] + Hhoko='w'; X=X-MEMORI; + end + Hoko=Vhoko+Hhoko; + Suu='+-.0123456789'; + SuuL=Suu; + Hcode=ascii(Houkou); + J=1; Dstr=''; + while J<=length(Houkou) + Tmp=char(Hcode(J)); + if mtlb_findstr(SuuL,Tmp)~=[] + if Dstr=='' + Hk=char(Hcode(J-1)); + end + Dstr=Dstr+Tmp; + else + if Dstr~='' + Nmbr=msscanf(Dstr,'%f'); + D=Nmbr*MEMORI; + if Hk=='n' + Y=Y+D; + end + if Hk=='s' + Y=Y-D; + end + if Hk=='e' + X=X+D; + end + if Hk=='w' + X=X-D; + end + Dstr=''; + end + end + J=J+1; + end + if Dstr~='' + Nmbr=msscanf(Dstr,'%f'); + D=Nmbr*MEMORI; + if Hk=='n' + Y=Y+D; + end + if Hk=='s' + Y=Y-D; + end + if Hk=='e' + X=X+D; + end + if Hk=='w' + X=X-D; + end + end + CalcWidth(Hoko,Mojiretu); + CalcHeight(Hoko,Mojiretu); + Tmp='){\hspace*{\Width}'; + Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}'; + if Wfile=='default' + mprintf('%s','\put('); + mprintf('%6.4f%s%6.4f',X,',',Y); + mprintf('%s%s\n',Str,'%'); + mprintf('%s\n','%'); + else + mfprintf(FID,'%s','\put('); + mfprintf(FID,'%6.4f%s%6.4f',X,',',Y); + mfprintf(FID,'%s%s\n',Str,'%'); + mfprintf(FID,'%s\n','%'); + end + if Wfile=='default' + mprintf('%s\n','%'); + else + mfprintf(FID,'%s\n','%'); + end + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin Binary files differnew file mode 100644 index 00000000..53dcb238 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci new file mode 100644 index 00000000..f99917cf --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci @@ -0,0 +1,36 @@ +// 08.05.31 +// 08.08.24 +// 09.12.25 + +function Letterrot(varargin) + global MEMORI; + P=varargin(1); + V=varargin(2); N=3; + P=Doscaling(P); + V=Doscaling(V); + Tmov=0; + Tmp=varargin(N); + if type(Tmp)==1 + Tmov=Tmp; N=N+1; + end + Nmov=0; + Tmp=varargin(N); + if type(Tmp)==1 then + Nmov=Tmp; N=N+1; + end + Mojiretu=varargin(N); + Tv=1/Vecnagasa(V)*V; + Nv=[-Tv(2),Tv(1)]; + P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv; + Tmp=acos(V(1)/Vecnagasa(V)); + Theta=round(Tmp*180/%pi); + if V(2)>=0 + Units=''; + else + Units='units=-360,'; + end + Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta); + Tmp=Tmp+'}{'+Mojiretu+'}'; + Letter(P,"c",Tmp); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin Binary files differnew file mode 100644 index 00000000..3acfa7aa --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci new file mode 100644 index 00000000..bc44c2e9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci @@ -0,0 +1,44 @@ +// 09.10.09 +// 09.10.12 +// 09.11.01 +// 09.11.12 +// 09.12.06 +// 10.12.04 + +function Out=Lineplot(varargin) + Nargs=length(varargin); + A=varargin(1); + if type(A)==1 // 09.11.12 from + Tmp=length(A); + if Tmp>3 + B=A(Tmp/2+1:Tmp); + A=A(1:Tmp/2); + Is=2; + else + B=varargin(2); + Is=3; + end; + else + B=A(2); + A=A(1); + Is=2; + end; // upto + Mag=100; Semi=''; + for I=Is:Nargs + Tmp=varargin(I); + select type(Tmp) + case 1 + Mag=Tmp; + case 10 + Semi=Tmp; + end; + end; + V= Mag/norm(B-A)*(B-A) // 10.12.04 from here + if Semi=="" + Out=Listplot(A-V,A+V) + elseif Semi=="+" + Out=Listplot(A,A+V) + else + Out=Listplot(A-V,A) + end // 10.12.04 to here +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin Binary files differnew file mode 100644 index 00000000..e2ea3688 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci new file mode 100644 index 00000000..0bc9f736 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci @@ -0,0 +1,24 @@ +// +// 08.07.13 +// 09.06.13 + +function Z=Listplot(varargin) + Z=[]; + for I=1:length(varargin) + Data=varargin(I); + if Mixtype(Data)==1 + if size(Data,1)==1 + Tmp=matrix(Data,2,size(Data,2)/2); + Z=[Z;Tmp']; + else + Z=[Z;Data]; + end; + else + for J=1:Mixlength(Data) + Tmp=Mixop(J,Data); + Z=[Z;Tmp]; + end + end + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin Binary files differnew file mode 100644 index 00000000..10970e3d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci new file mode 100644 index 00000000..27e70d48 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci @@ -0,0 +1,49 @@ +// +// 08.08.24 +// 10.01.02 + +function Out=MakeBowdata(PA,PB,H) + global BOWSTART BOWEND + BOWSTART=PA; + BOWEND=PB; + Eps=10^(-5); + D=1/2*Vecnagasa(PB-PA); + R=(H^2+D^2)/(2*H); + A1=PA(1); A2=PA(2); + B1=PB(1); B2=PB(2); + if abs(A2-B2)>Eps + x=poly(0,'X'); + y=-(A1-B1)*x/(A2-B2)+(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2); + Eq1=(A1-x)^2+(A2-y)^2-R^2; + Tmp=coeff(Eq1); + C0=Tmp(1); C1=Tmp(2); C2=Tmp(3); + Det=sqrt(C1^2-4*C0*C2); + Ansx1=(-C1+Det)/(2*C2); + Ansx2=(-C1-Det)/(2*C2); + Tmp=horner(y,Ansx1); + PC=[Ansx1,Tmp]; + Tmp=horner(y,Ansx2); + PC2=[Ansx2,Tmp]; + else + Tmp=0.5*(PA+PB); + PC=Tmp+[0,R-H]; + PC2=Tmp-[0,R-H]; + end; + VA=PA-PC; + VB=PB-PC; + if VA(1)*VB(2)-VA(2)*VB(1)<0 + PC=PC2; + end + AngA=acos((PA(1)-PC(1))/R); + if PA(2)-PC(2)<0 + AngA=-AngA; + end + AngB=acos((PB(1)-PC(1))/R); + if PB(2)-PC(2)<0 + AngB=-AngB; + end + if AngA>AngB + AngB=AngB+2*%pi; + end + Out=Mixmake(PC,R,AngA,AngB); +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin Binary files differnew file mode 100644 index 00000000..1e4a9df1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci new file mode 100644 index 00000000..f3bbd3ec --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci @@ -0,0 +1,62 @@ +// +// 09.12.25 +// 10.01.01 +// 10.12.02 ( debugged for norm()==0 ) + +function Outdata=MakeCurves(varargin) + Figdata=varargin(1); + Ptout=1; + if length(varargin)>=2 + Ptout=varargin(2); + end + Eps=10.0^(-6); + IndM=Dataindex(Figdata); + Atos=[]; + for Nd=1:size(IndM,1) + Tmp=IndM(Nd,:); + Motos=Figdata(Tmp(1):Tmp(2),:); + All=size(Motos,1); + if size(Motos,1)==1 + if InWindow(Motos)=='o' + continue; + end; + if Ptout==1 + Drwpt(Motos(1,:)); + else + Atos=[Atos;%inf,%inf;Doscaling(Motos)]; + end + continue + end + Crv=[]; + for I=2:All + P=Motos(I-1,:); + Q=Motos(I,:); + Snbn=MeetWindow(P,Q); + if Snbn==[] + if Crv~=[] + Atos=[Atos;%inf,%inf;Doscaling(Crv)]; + Crv=[]; + end + else + if norm(Snbn(1,:)-Snbn(2,:))<Eps // 10.12.02 + continue; + end; + if Crv==[] + Crv=Snbn + else + Tmp=Crv(size(Crv,1),:); + if norm(Tmp-Snbn(1,:))<Eps + Crv=[Crv;Snbn(2,:)]; + else + Atos=[Atos;%inf,%inf;Doscaling(Crv)]; + Crv=Snbn; + end + end + end + end + if size(Crv,1)>=2 + Atos=[Atos;%inf,%inf;Doscaling(Crv)]; + end + end + Outdata=Atos(2:size(Atos,1),:); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin Binary files differnew file mode 100644 index 00000000..8d2516c2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci new file mode 100644 index 00000000..81b0492f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci @@ -0,0 +1,45 @@ +// 08.09.19 +// 08.10.15 +// 08.12.21 + +function AnsL=MakecutbycrvL(Out1,CutuvL,Uveqstr,Uname,Vname,Eps) + if CutuvL==[] + if Mixtype(Out1)==1 + AnsL=Mix(Out1); + else + AnsL=Out1; + end; + return; + end; + AnsL=[]; + ParL=Partitionseg(Out1,CutuvL,Eps); + Flg=0; + for J=1:length(ParL)-1 + Tmp=(ParL(J)+ParL(J+1))*0.5; + Tmp=PointonCurve(Tmp,Out1); + Tmp1='('+string(Tmp(1))+')'; + Tmp2='('+string(Tmp(2))+')'; + Tmp=strsubst(Uveqstr,Uname,Tmp1); + Tmp=strsubst(Tmp,Vname,Tmp2); + Tmp=evstr(Tmp); + if Tmp>0 + if Flg==0 + P1=ParL(J); + end; + Flg=1 + else + if Flg==1 + P2=ParL(J); + Tmp=Partcrv(P1,P2,Out1); + AnsL=Mixadd(AnsL,Tmp); + end; + Flg=0 + end; + end; + if Flg==1 + P2=ParL(length(ParL)); + Tmp=Partcrv(P1,P2,Out1); + AnsL=Mixadd(AnsL,Tmp); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin Binary files differnew file mode 100644 index 00000000..b2f34062 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci new file mode 100644 index 00000000..3f768e87 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci @@ -0,0 +1,123 @@ +// +// 11.05.26 (for pdflatex) + +function Makehasen(Figdata,Sen,Gap,Ptn) + global Wfile FID; + Eps=10.0^(-6); + Clist=MakeCurves(Figdata); + DinM=Dataindex(Clist); + for N=1:size(DinM,1) + Tmp=DinM(N,:); + Data=Clist(Tmp(1):Tmp(2),:); + Dtall=size(Data,1); + Len=0; + Lenlist=[0]; + for I=2:Dtall + Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); + Lenlist=[Lenlist,Len]; + end + Lenall=Lenlist(Dtall); + if Lenall==0 + continue + end + Kari=(Sen+Gap)*0.1; + Naga=Sen*0.1; + Tobi=Gap*0.1; + if Vecnagasa(Data(1,:)-Data(Dtall,:))<Eps + Nsen=max(ceil(Lenall/Kari),3); + SegUnit=Lenall/Nsen; + Naga=SegUnit*Sen/(Sen+Gap); + Tobi=SegUnit*Gap/(Sen+Gap); + SegList=[0:SegUnit:(Nsen-1)*SegUnit]; + else + if Ptn==0 + Nsen=max(ceil((Lenall+Tobi)/Kari),3); + SegUnit=Lenall*(Sen+Gap)/(Nsen*Sen+(Nsen-1)*Gap); + Naga=SegUnit*Sen/(Sen+Gap); + Tobi=SegUnit*Gap/(Sen+Gap); + SegList=[0:SegUnit:(Nsen-1)*SegUnit]; + else + Nsen=max(ceil((Lenall+Naga)/Kari),3); + SegUnit=Lenall*(Sen+Gap)/((Nsen-1)*Sen+Nsen*Gap); + Naga=SegUnit*Sen/(Sen+Gap); + Tobi=SegUnit*Gap/(Sen+Gap); + SegList=[Tobi:SegUnit:Tobi+(Nsen-2)*SegUnit]; + end + end + Hajime=1; Owari=1; + Mojisu=0; + for I=1:length(SegList) + Len=SegList(I); + J=Owari; + while Len>=Lenlist(J)-Eps + if J==Dtall + break + end + J=J+1; + end + Hajime=J-1; + J=Hajime; + while Len+Naga>Lenlist(J)-Eps + if J==Dtall + break + end + J=J+1 + end + Owari=J-1; + T=(Len-Lenlist(Hajime))... + /(Lenlist(Hajime+1)-Lenlist(Hajime)); + P=Data(Hajime,:)+T*(Data(Hajime+1,:)-Data(Hajime,:)); + X0=sprintf('%5.5f',P(1)); + Y0=sprintf('%5.5f',P(2)); + Pt0='('+X0+','+Y0+')'; + Str='\polyline'+Pt0; + if Wfile=='default' + mprintf('%s',Str); + else + mfprintf(FID,'%s',Str); + end; + Mojisu=Mojisu+length(Str); + for J=Hajime+1:Owari + P=Data(J,:); + X=sprintf('%5.5f',P(1)); + Y=sprintf('%5.5f',P(2)); + Pt='('+X+','+Y+')'; + Str=Pt; + if Wfile=='default' + mprintf('%s',Str); + else + mfprintf(FID,'%s',Str); + end; + Pt0=Pt; + Mojisu=Mojisu+length(Str); + end; + T=(Len+Naga-Lenlist(Owari))... + /(Lenlist(Owari+1)-Lenlist(Owari)); + P=Data(Owari,:)+T*(Data(Owari+1,:)-Data(Owari,:)); + X=sprintf('%5.5f',P(1)); + Y=sprintf('%5.5f',P(2)); + Pt='('+string(X)+','+string(Y)+')'; + Str=Pt; + if Wfile=='default' + mprintf('%s',Str); + else + mfprintf(FID,'%s',Str); + end; + Mojisu=Mojisu+length(Str); + if Mojisu>80 + if Wfile=='default' + mprintf('%s\n','%'); + else + mfprintf(FID,'%s\n','%'); + end; + Mojisu=0; + end + end + end + if Wfile=='default' + mprintf('%s\n%s\n','%','%'); + else + mfprintf(FID,'%s\n%s\n','%','%'); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin Binary files differnew file mode 100644 index 00000000..1c9d8f4d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci new file mode 100644 index 00000000..e9915e1b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci @@ -0,0 +1,41 @@ +// 09.10.21 + +function Out=Makeliststr(L) + Out='list('; + for I=1:length(L) + Dt=L(I); + if type(Dt)==1 + if length(Dt)==1 + Dts=string(Dt); + else + Dts='['; + for J=1:size(Dt,1) + for K=1:size(Dt,2) + Dts=Dts+string(Dt(J,K)); + if K<size(Dt,2) + Dts=Dts+','; + end; + end; + if J<size(Dt,1) + Dts=Dts+';'; + else + Dts=Dts+']'; + end; + end; + end; + end; + if type(Dt)==10 + Dts=Prime()+Dt+Prime(); + end; + if type(Dt)==15 + Dts=Makeliststr(Dt); + end; + Out=Out+Dts; + if I<length(L) + Out=Out+','; + else + Out=Out+')'; + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin Binary files differnew file mode 100644 index 00000000..bafa4670 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci new file mode 100644 index 00000000..e24525e1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci @@ -0,0 +1,345 @@ +// 08.09.19 +// 08.09.24 +// 08.10.09 +// 08.10.10 +// 08.10.15 +// 08.12.06 +// 08.12.21 +// 08.12.31 +// 10.02.16 Eps__ ( And Mislength, Mixop replaced ) +// 13.10.21 ( __ added to varibles ) + +function FsL__=Makesfcutoffdata(MS__) + global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT + global BORDERPT OTHERPARTITION PARTITIONPT + global HIDDENDATA BORDERHIDDENDATA; + timer(); + Nargs__=length(MS__); + HT__=Op(1,MS__); + PT__=Op(2,MS__); + Fd__=Op(3,MS__); + CutD__=Op(4,MS__); + Np__=[50,50]; + Eps__=[0.05,1]; // + Eps__2=0.2; + Sgnstr__='+'; + K__=0; + for I__=5:Nargs__ + Tmp__=Op(I__,MS__); + if type(Tmp__)==10 + Sgnstr__=Tmp__; + end; + if type(Tmp__)==1 // from + K__=K__+1; + if K__==1 + Np__=Tmp__; + if length(Np__)==1 + Np__=[Np__,Np__]; + end; + end; + if K__==2 + Eps__=Tmp__; + if length(Eps__)==1 + Eps__=[Eps__,1]; + end; + end; + if K__==3 + Eps__2=Tmp__; + end; + end; // upto + end; + Tmp__=Op(2,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Xname__=part(Tmp__,1:K__-1); + Tmp__=Op(3,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Yname__=part(Tmp__,1:K__-1); + Tmp__=Op(1,Fd__); + K__=mtlb_findstr(Tmp__,'='); + if K__~=[] + Zname__=part(Tmp__,1:K__-1); + else + Tmp__=Op(4,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Zname__=part(Tmp__,1:K__-1); + end; + Fd__L=Fullformfunc(Fd__); + Fxy__=Op(1,Fd__L); + Xf__=Op(2,Fd__L); + Yf__=Op(3,Fd__L); + Zf__=Op(4,Fd__L); + DrwS__=Op(7,Fd__L); + Tmp__=Op(5,Fd__L); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Op(6,Fd__L); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Umin__=Urg__(1); Umax__=Urg__(2); + Vmin__=Vrg__(1); Vmax__=Vrg__(2); + Fugou__=1; + if Sgnstr__=='-' | Sgnstr__=='n' + Fugou__=-1; + end; + if Mixtype(CutD__)~=1 + V1__=Op(1,CutD__); + Tmp__=Op(2,CutD__); + if length(Tmp__)>1 + D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); + else + D__=Tmp__; + end; + Tmp__=string(V1__(1))+'*'+Xname__+'+'; + Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; + Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-'; + Eq__=Tmp__+string(D__); + elseif type(CutD__)==1 + V1__=CutD__(1:3); + D__=CutD__(4); + Tmp__=string(V1__(1))+'*'+Xname__+'+'; + Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; + Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+'; + Eq__=Tmp__+string(D__); + else + K__=mtlb_findstr(CutD__,'='); + if K__>0 + Tmp__1=part(CutD__,1:K__-1); + Tmp__2=part(CutD__,K__+1:length(CutD__)); + Eq__=Tmp__1+'-('+Tmp__2+')'; + else + Eq__=CutD__; + end; + end; + Eq__='('+string(Fugou__)+')*('+Eq__+')'; + Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')'); + Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')'); + Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')'); + Tmp__1=Op(5,Fd__L); + Tmp__2=Op(6,Fd__L); + CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__); + EkL__=[]; + for I__=1:length(CutuvL__) + Out__1=Op(I__,CutuvL__); + Out__2=[]; + for J__=1:size(Out__1,1) + Tmp__1=Out__1(J__,1); + Tmp__2=Out__1(J__,2); + Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Xv__=evstr(Tmp__); + Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Yv__=evstr(Tmp__); + Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Zv__=evstr(Tmp__); + Out__2=[Out__2,[Xv__,Yv__,Zv__]]; + end; + Tmp__=Spaceline(Out__2); + EkL__=Mixjoin(EkL__,list(Tmp__)); + end; + Tmp__=mtlb_findstr(DrwS__,'e'); + if length(Tmp__)~=0 + Tmp__=Paramplot('[Umax__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2))); + Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); + for I__=1:length(Tmp__L) + Out__1=Op(I__,Tmp__L); + Out__2=[]; + for J__=1:size(Out__1,1) + Tmp__1=Out__1(J__,1); + Tmp__2=Out__1(J__,2); + Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Xv__=evstr(Tmp__); + Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Yv__=evstr(Tmp__); + Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Zv__=evstr(Tmp__); + Out__2=[Out__2,[Xv__,Yv__,Zv__]]; + end; + Tmp__=Spaceline(Out__2); + EkL__=Mixjoin(EkL__,list(Tmp__)); + end + end; + Tmp__=mtlb_findstr(DrwS__,'n'); + if length(Tmp__)~=0 + Tmp__=Paramplot('[T,Vmax__]','T=[Umin__,Umax__]','N='+string(Np__(1))); + Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); + for I__=1:length(Tmp__L) + Out__1=Op(I__,Tmp__L); + Out__2=[]; + for J__=1:size(Out__1,1) + Tmp__1=Out__1(J__,1); + Tmp__2=Out__1(J__,2); + Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Xv__=evstr(Tmp__); + Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Yv__=evstr(Tmp__); + Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Zv__=evstr(Tmp__); + Out__2=[Out__2,[Xv__,Yv__,Zv__]]; + end; + Tmp__=Spaceline(Out__2); + EkL__=Mixjoin(EkL__,list(Tmp__)); + end + end; + Tmp__=mtlb_findstr(DrwS__,'w'); + if length(Tmp__)~=0 + Tmp__=Paramplot('[Umin__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2))); + Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); + for I__=1:length(Tmp__L) + Out__1=Op(I__,Tmp__L); + Out__2=[]; + for J__=1:size(Out__1,1) + Tmp__1=Out__1(J__,1); + Tmp__2=Out__1(J__,2); + Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Xv__=evstr(Tmp__); + Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Yv__=evstr(Tmp__); + Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Zv__=evstr(Tmp__); + Out__2=[Out__2,[Xv__,Yv__,Zv__]]; + end; + Tmp__=Spaceline(Out__2); + EkL__=Mixjoin(EkL__,list(Tmp__)); + end + end; + Tmp__=mtlb_findstr(DrwS__,'s'); + if length(Tmp__)~=0 + Tmp__=Paramplot('[T,Vmin__]','T=[Umin__,Umax__]','N='+string(Np__(1))); + Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); + for I__=1:length(Tmp__L) + Out__1=Op(I__,Tmp__L); + Out__2=[]; + for J__=1:size(Out__1,1) + Tmp__1=Out__1(J__,1); + Tmp__2=Out__1(J__,2); + Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Xv__=evstr(Tmp__); + Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Yv__=evstr(Tmp__); + Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Zv__=evstr(Tmp__); + Out__2=[Out__2,[Xv__,Yv__,Zv__]]; + end; + Tmp__=Spaceline(Out__2); + EkL__=Mixjoin(EkL__,list(Tmp__)); + end + end; + Fbdxy__=[]; + for I__=1:length(EkL__) + Out__1=Op(I__,EkL__); + Out__2=[]; + for J__=1:size(Out__1,1) + Tmp__=Out__1(J__,1:2); + Out__2=[Out__2,Tmp__]; + end; + Tmp__=Listplot(Out__2); + Fbdxy__=Mixjoin(Fbdxy__,list(Tmp__)); + end; + if PT__=='pers' + [Zval__,Xval__,Yval__]=Evlptablepers(Mix(Fd__,Np__)); + end; + if PT__=='para' + [Zval__,Xval__,Yval__]=Evlptablepara(Mix(Fd__,Np__)); + end; + Mixdisp(Mix('Ridge Equation obtained ',timer())); + Out__2=Implicitplot(Zval__,Xval__,Yval__); + IMPLICITDATA=Out__2; + Tmp__L=[]; + for I__=1:length(Out__2) + Tmp__1=Op(I__,Out__2); + Tmp__=MakecutbycrvL(Tmp__1,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); + for J__=1:length(Tmp__) + Tmp__L=Mixjoin(Tmp__L,Op(J__,Tmp__)); + end; + end; + Out__3=Tmp__L; + IMPLICITDATA=Out__3; + Mixdisp(Mix('ImplicitData obtained ',timer())); + if PT__=='pers' + Out__4=Cuspsplitpers(Out__3,Fd__,Eps__(1)); + end; + if PT__=='para' + Out__4=Cuspsplitpara(Out__3,Fd__,Eps__(1)); + end; + CUSPDATA=Out__4; + CUSPT=CUSPSPLITPT; + Mixdisp(Mix('CuspData obtained ',timer())); + FkL__=Mixjoin(EkL__,Out__4); + if PT__=='pers' + Fall__=Projpers(FkL__); + end; + if PT__=='para' + Fall__=Projpara(FkL__); + end; + if HT__=='raw' + Mixdisp(Mix('BorderData obtained ',timer())); + FsL__=FkL__; + return; + end; + BORDERPT=[]; + Tmp__=[]; + for I__=1:length(Fall__) + Tmp__=Mixjoin(Tmp__,list([])); + end; + OTHERPARTITION=Tmp__; + FsL__=[]; + BORDERHIDDENDATA=[]; + for I__=1:length(Fall__) + if PT__=='pers' + Tmp__=Projpers(Op(I__,FkL__)); + end; + if PT__=='para' + Tmp__=Projpara(Op(I__,FkL__)); + end; + ParL__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); + if length(PARTITIONPT)>2 + Tmp__=length(PARTITIONPT)-1; + Tmp__1=BORDERPT; + for J__=2:Tmp__ + Tmp__2=Op(J__,PARTITIONPT); + Tmp__1=Mixjoin(Tmp__1,list(Tmp__2)); + end; + BORDERPT=Tmp__1; + end; + if PT__=='pers' + if Fxy__=='p' + Tmp__1=Op(I__,FkL__); + Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); + else + Tmp__1=Op(I__,FkL__); + Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); +// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__); +// Tmp__=Nohiddenpers(ParL__,Tmp__1,Tmp__2); + end; + else + if Fxy__=='p' + Tmp__1=Op(I__,FkL__); + Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); + else + Tmp__1=Op(I__,FkL__); + Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); +// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__); +// Tmp__=Nohiddenpara(ParL__,Tmp__1,Tmp__2); + end; + end; + BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); + FsL__=Mixjoin(FsL__,Tmp__); + end; + Mixdisp(Mix('BorderData obtained ',timer())); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin Binary files differnew file mode 100644 index 00000000..c4f4d4c5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci new file mode 100644 index 00000000..443751be --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci @@ -0,0 +1,41 @@ +// 08.05.20 +// 09.10.05 +// 10.01.20 +// 10.02.01 + +function Out=Makeshasen(PtnL,PA,V,Bdy) + Eps=10.0^(-6); + TenL=KoutenList(PA,V,Bdy); + Nten=length(TenL); + Call=length(Bdy); + Ptn=zeros(1,Call); + Out=list(); + GL=[] + Te=-10.0^6; + for I=1:Nten-1 + TenP=Op(I,TenL); TenQ=Op(I+1,TenL); + Ts=Op(1,TenP); + P=Op(2,TenP); Q=Op(2,TenQ); + NC=Op(4,TenP); + Tmp=modulo(Ptn(NC)+1,2); + Ptn(1,NC)=Tmp; + if Op(1,TenQ)-Ts>Eps + if Member(Ptn,PtnL) + if abs(Te-Ts)>Eps + if GL~=[] + J=length(Out); + Out(J+1)=GL; + end; + Tmp=Listplot(P,Q); + GL=Tmp; + else + GL=[GL;Q]; + end + Te=Op(1,TenQ); + end + end + end + if size(GL,1)>0 + Out=Mixjoin(Out,list(GL)) + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin Binary files differnew file mode 100644 index 00000000..102b44b6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci new file mode 100644 index 00000000..99ad5910 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci @@ -0,0 +1,171 @@ +// 08.07.13 +// 08.10.16 +// 09.03.05 +// 09.05.12 +// 10.05.09 +// 14.07.05 +// 16.12.24 ( when kukanL=[] ) + +function Allres=Makeskeletondata(Obj2L,Plt2L,R0,Eps2) + Eps=10.0^(-3); + Dmat=[]; + Dind=[]; + for I=1:Mixlength(Plt2L) + Dt=Mixop(I,Plt2L); + N1=size(Dmat,1)+1; + Dmat=[Dmat;Dt]; + N2=size(Dmat,1); + Dind=[Dind;N1,N2]; + end; + Nind=size(Dind,1); + Allres=[]; + for Nobj=1:Mixlength(Obj2L) + Plt2=Mixop(Nobj,Obj2L); + PhL=Plt2(:,1:2); + ClipL=[]; + for Ns=1:size(PhL,1)-1 + P1=PhL(Ns:Ns+1,:); + for I=1:size(Dind,1) + Tmp=Dmat(Dind(I,1):Dind(I,2),:); + P2=Tmp(:,1:2); + KC=IntersectcrvsPp(P1,P2,Eps); + if Mixlength(KC)>0 + for J=1:Mixlength(KC) + P=Mixop(1,Mixop(J,KC)); + Tmp=Mixop(2,Mixop(J,KC)); + if Tmp<1+Eps & Ns==1 // 2010.05.09 + continue; + end; + if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1 + continue; + end; // + N1=Ns; + N2=Mixop(3,Mixop(J,KC)); + Pa=Plt2(N1,1:2); + Za=Plt2(N1,3); + Pb=Plt2(N1+1,1:2); + Zb=Plt2(N1+1,3); + if norm(Pa-Pb)<Eps // added from here + continue; + end; // upto here + T1=norm(Pa-P)/norm(Pa-Pb); + Z1=(1-T1)*Za+T1*Zb; + Tmp=Dmat(Dind(I,1):Dind(I,2),:); + Pa=Tmp(N2,1:2); + Za=Tmp(N2,3); + Pb=Tmp(N2+1,1:2); + Zb=Tmp(N2+1,3); + if norm(Pa-Pb)<Eps // added from here + continue; + end; // upto here + T2=norm(Pa-P)/norm(Pa-Pb); + Z2=(1-T2)*Za+T2*Zb; + if Z1<Z2-Eps2 + if ClipL==[] // corrected from here + Tmp=1; + else + Tmp1=ClipL(:,1)-P(1); + Tmp2=ClipL(:,2)-P(2); + Tmp3=Tmp1.^2+Tmp2.^2; // 20140705 + Tmp=min(Tmp3); + end; // upto here + if Tmp>Eps^2 + Tmp1=P1(2,:)-P1(1,:); + Tmp2=Pb-Pa; + Tmp3=Naiseki(Tmp1,Tmp2); + Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2); + Tmp=1-0.5*Tmp3^2; + ClipL=[ClipL;P,N1,T1,R0/Tmp]; + end; + end; + end; + end; + end; + end; + Te=size(Plt2,1); + KukanL=[1.0,Te]; + P1=PhL; + if size(ClipL,1)>0 + for I=1:size(ClipL,1) + P=ClipL(I,1:2); + NN=ClipL(I,3); + T=NN+ClipL(I,4); + R=ClipL(I,5); + Flg=0; + for J=NN:-1:1 + Q=PointonCurve(J,P1); + if norm(P-Q)<R + continue; + end + Flg=1; + break; + end; + if Flg==0 + T1=1; + else + T1=J; T2=T; + H=T2-T1; + for N=1:10 + H=H*0.5; + Q=PointonCurve(T1+H,P1); + if norm(P-Q)<R + T2=T2-H; + else + T1=T1+H; + end; + end; + end; + Ku=[T1]; + Flg=0; + for J=NN+1:Te + Q=PointonCurve(J,P1); + if norm(P-Q)<R + continue; + end; + Flg=1; + break; + end; + if Flg==0 + T2=Te; + else + T1=T; T2=J; + H=T2-T1; + for N=1:10 + H=H*0.5; + Q=PointonCurve(T1+H,P1); + if norm(P-Q)<R + T1=T1+H; + else + T2=T2-H; + end; + end; + end; + Ku=[Ku,T2]; + if size(KukanL,2)==0 then + break; + end; + KukanL=Kukannozoku(Ku,KukanL); + end; + end; + Res=[]; + for I=1:size(KukanL,1) + T1=KukanL(I,1); N1=Trunc(T1); + T2=KukanL(I,2); N2=Trunc(T2); + PtL=[]; + if T1-N1<1-Eps + Tmp=PointonCurve(T1,P1); + PtL=MixS(Tmp); + end; + for J=N1+1:N2 + Tmp=PointonCurve(J,P1); + PtL=Mixadd(PtL,Tmp); + end; + if T2-N2>Eps + Tmp=PointonCurve(T2,P1); + PtL=Mixadd(PtL,Tmp); + end; + Res=Mixadd(Res,Listplot(PtL)); + end; + Allres=Mixjoin(Allres,Res); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin Binary files differnew file mode 100644 index 00000000..0082bcd5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci new file mode 100644 index 00000000..4838d658 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci @@ -0,0 +1,188 @@ +// 08.08.14 +// 08.10.16 +// 09.05.12 +// 09.09.25 +// 10.05.09 +// 10.08.17 +// 14.07.05 + +function Allres=Makeskeletonpersdata(Obj2L,Plt2L,R0,Eps2) + Eps=10.0^(-3); + Dmat=[]; + Dind=[]; + for I=1:Mixlength(Plt2L) + Dt=Mixop(I,Plt2L); + N1=size(Dmat,1)+1; + Dmat=[Dmat;Dt]; + N2=size(Dmat,1); + Dind=[Dind;N1,N2]; + end; + Nind=size(Dind,1); + Allres=[]; + for Nobj=1:Mixlength(Obj2L) + Plt2=Mixop(Nobj,Obj2L); + PhL=Plt2(:,1:2); + ClipL=[]; + for Ns=1:size(PhL,1)-1 + P1=PhL(Ns:Ns+1,:); + for I=1:size(Dind,1) + Tmp=Dmat(Dind(I,1):Dind(I,2),:); + P2=Tmp(:,1:2); + KC=IntersectcrvsPp(P1,P2,Eps); + if Mixlength(KC)>0 + for J=1:Mixlength(KC) + P=Mixop(1,Mixop(J,KC)); + Tmp=Mixop(2,Mixop(J,KC)); + if Tmp<1+Eps & Ns==1 // 2010.05.09 + continue; + end; + if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1 + continue; + end; // + N1=Ns; + N2=Mixop(3,Mixop(J,KC)); + Pa=Plt2(N1,1:2); + Za=Plt2(N1,3); + Pb=Plt2(N1+1,1:2); + Zb=Plt2(N1+1,3); + if norm(Pa-Pb)<Eps // added from here + continue; + end; // upto here + T1=norm(Pa-P)/norm(Pa-Pb); + Pka=Cancoordpers([Pa(1),Pa(2),Za]); + Pkb=Cancoordpers([Pb(1),Pb(2),Zb]); + if T1>1-Eps + Pk=Pkb; + else + Tmp1=Listplot([Pa,Pb]); + Tmp2=Spaceline([Pka,Pkb]); + Tmp=Invperspt(1+T1,Tmp1,Tmp2); + Pk=Mixop(1,Tmp); + end; + Z1=Zperspt(Pk); + Tmp=Dmat(Dind(I,1):Dind(I,2),:); + Pa=Tmp(N2,1:2); + Za=Tmp(N2,3); + Pb=Tmp(N2+1,1:2); + Zb=Tmp(N2+1,3); + if norm(Pa-Pb)<Eps // added from here + continue; + end; // upto here + T2=norm(Pa-P)/norm(Pa-Pb); + Pka=Cancoordpers([Pa(1),Pa(2),Za]); + Pkb=Cancoordpers([Pb(1),Pb(2),Zb]); + if T2>1-Eps + Pk=Pkb; + else + Tmp1=Listplot([Pa,Pb]); + Tmp2=Spaceline([Pka,Pkb]); + Tmp=Invperspt(1+T2,Tmp1,Tmp2); + Pk=Mixop(1,Tmp); + end + Z2=Zperspt(Pk); + if Z1<Z2-Eps2 + if ClipL==[] // corrected from here + Tmp=1; + else + Tmp1=ClipL(:,1)-P(1); + Tmp2=ClipL(:,2)-P(2); + Tmp3=Tmp1.^2+Tmp2.^2; // 20140705 + Tmp=min(Tmp3); + end; // upto here + if Tmp>Eps^2 + Tmp1=P1(2,:)-P1(1,:); + Tmp2=Pb-Pa; + Tmp3=Naiseki(Tmp1,Tmp2); + Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2); + Tmp=1-0.5*Tmp3^2; + ClipL=[ClipL;P,N1,T1,R0/Tmp]; + end; + end; + end; + end; + end; + end; + Te=size(Plt2,1); + KukanL=[1.0,Te]; + P1=PhL; + if size(ClipL,1)>0 + for I=1:size(ClipL,1) + P=ClipL(I,1:2); + NN=ClipL(I,3); + T=NN+ClipL(I,4); + R= ClipL(I,5); // 10.08.17 + Flg=0; + for J=NN:-1:1 + Q=PointonCurve(J,P1); + if norm(P-Q)<R + continue; + end + Flg=1; + break; + end; + if Flg==0 + T1=1; + else + T1=J; T2=T; + H=T2-T1; + for N=1:10 + H=H*0.5; + Q=PointonCurve(T1+H,P1); + if norm(P-Q)<R + T2=T2-H; + else + T1=T1+H; + end; + end; + end; + Ku=[T1]; + Flg=0; + for J=NN+1:Te + Q=PointonCurve(J,P1); + if norm(P-Q)<R + continue; + end; + Flg=1; + break; + end; + if Flg==0 + T2=Te; + else + T1=T; T2=J; + H=T2-T1; + for N=1:10 + H=H*0.5; + Q=PointonCurve(T1+H,P1); + if norm(P-Q)<R + T1=T1+H; + else + T2=T2-H; + end; + end; + end; + Ku=[Ku,T2]; + KukanL=Kukannozoku(Ku,KukanL); + end; + end; + Res=[]; + for I=1:size(KukanL,1) + T1=KukanL(I,1); N1=Trunc(T1); + T2=KukanL(I,2); N2=Trunc(T2); + PtL=[]; + if T1-N1<1-Eps + Tmp=PointonCurve(T1,P1); + PtL=MixS(Tmp); + end; + for J=N1+1:N2 + Tmp=PointonCurve(J,P1); + PtL=Mixadd(PtL,Tmp); + end; + if T2-N2>Eps + Tmp=PointonCurve(T2,P1); + PtL=Mixadd(PtL,Tmp); + end; + Res=Mixadd(Res,Listplot(PtL)); + end; + Allres=Mixjoin(Allres,Res); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin Binary files differnew file mode 100644 index 00000000..37e149ff --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci new file mode 100644 index 00000000..dc917f30 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci @@ -0,0 +1,79 @@ +// 08.09.09 +// 08.10.08 +// 08.12.06 +// 08.12.30 +// 09.06.03 +// 13.10.19 ( __ added to variables ) + +function [Zval__,Xval__,Yval__]=Makevaltable(MS__) + Eps__=10^(-6); + Nargs__=Mixlength(MS__); + Fstr__=Mixop(1,MS__); + Tmp__=Mixop(2,MS__); + Tmp1__=mtlb_findstr(Tmp__,'='); + Xname__=part(Tmp__,Tmp1__-1); + Xrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__))); + Tmp__=Mixop(3,MS__); + Tmp1__=mtlb_findstr(Tmp__,'='); + Yname__=part(Tmp__,Tmp1__-1); + Yrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__))); + Tmp__=strsubst(Fstr__,Xname__,'x'); + Fstr__=strsubst(Tmp__,Yname__,'y'); + Tmp__=mtlb_findstr(Fstr__,Xname__); + if length(Tmp__)==0 + Fstr__=Fstr__+'+0*x'; + end; + Mdv__=50; + Ndv__=50; + if Nargs__>=4 + Tmp__=Mixop(4,MS__); + if length(Tmp__)>1 + Mdv__=Tmp__(1,1); + Ndv__=Tmp__(1,2); + else + Mdv__=Tmp__ + if Nargs__==4 + Ndv__=Mdv__ + else + Tmp1__=Mixop(5,MS__); + if type(Tmp1__)==1 & length(Tmp1__)==1 + Ndv__=Tmp1__; + else + Ndv__=Mdv__; + end + end + end + end + X1__=Xrange__(1); X2__=Xrange__(2); + Y1__=Yrange__(1); Y2__=Yrange__(2); + Dx__=(X2__-X1__)/(Mdv__-1); + Dy__=(Y2__-Y1__)/(Ndv__-1); + Xval__=[]; + Tmp__=X1__; + while Tmp__<X2__+Eps__ + Xval__=[Xval__,Tmp__]; + Tmp__=Tmp__+Dx__; + end; + Yval__=[]; + Tmp__=Y1__; + while Tmp__<Y2__+Eps__ + Yval__=[Yval__,Tmp__]; + Tmp__=Tmp__+Dy__; + end; + I__=1; +// x=Xval; +// for y=Yval +// Tmp=evstr(Fstr); +// Zval(I,:)=Tmp; +// I=I+1; +// end; + for y=Yval__ + J__=1; + for x=Xval__ + Zval__(I__,J__)=evstr(Fstr__); + J__=J__+1; + end; + I__=I__+1; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin Binary files differnew file mode 100644 index 00000000..82acb406 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci new file mode 100644 index 00000000..a16a5a4d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci @@ -0,0 +1,68 @@ +// 08.08.22 +// 09.10.25 +// 09.10.26 +// 09.10.27 +// 09.10.29 + +function Out=MakeveLfaceL(VfL) + // Out format + // VeL Edge, Face num(as numlist), VeL num + // FL Face (Vertexs) + Eps=10^(-4); + Tmp=VfL($); + Tmp1=Tmp(1); + if type(Tmp1)==1 + FvL=list(VfL); + else + FvL=VfL; + end; + EL=list(); FL=list(); + for Nn=1:length(FvL) + Tmp=FvL(Nn); + VL=Tmp(1); + if length(VL)>0 + FnL=Tmp(2); + FaceL=list(); + for I=1:length(FnL) + Tmp1=FnL(I); + PtL=list(); + for J=1:length(Tmp1) + Tmp2=Tmp1(J); + PtL(J)=VL(Tmp2); + end; + FaceL(I)=PtL; + end; + else + FaceL=list(Tmp(2)); + end; + for I=1:length(FaceL) + Face=FaceL(I); + Face($+1)=Face(1); + FL($+1)=Face; + for J=1:length(Face)-1 + Edge=list(Face(J),Face(J+1)); + Flg=0; + for K=1:length(EL) + Tmp=EL(K); + Tmp1=Tmp(1); + Tmp2=norm(Edge(1)-Tmp1(1))+norm(Edge(2)-Tmp1(2)); + Tmp3=norm(Edge(1)-Tmp1(2))+norm(Edge(2)-Tmp1(1)); + if Tmp2<Eps | Tmp3<Eps + Tmp=EL(K); + Tmp1=Tmp(1); + Tmp2=[Tmp(2),length(FL)]; + EL(K)=list(Tmp1,Tmp2,K); + Flg=1; + break; + end; + end; + if Flg==0 + Ntmp=length(EL); + EL(Ntmp+1)=list(Edge,[length(FL)],Ntmp+1); + end; + end; + end; + end; + Out=list(EL,FL); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin Binary files differnew file mode 100644 index 00000000..7c309bf0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci new file mode 100644 index 00000000..fb8aa27b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci @@ -0,0 +1,111 @@ +// 08.09.13 +// 08.09.16 +// 08.10.11 +// 08.10.27 +// 14.07.07 debug ( Kitahara ) + +function EhL=Makexybdy(Fd,Np) + Eps0=10^(-4); + FdL=Fullformfunc(Fd); + Tmp1=Mixop(2,FdL); + Tmp2=Mixop(3,FdL); + Xystr=[Tmp1,Tmp2]; + Tmp=Mixop(5,FdL); + K=mtlb_findstr(Tmp,'='); + Uname=part(Tmp,1:K-1); + Urg=evstr(part(Tmp,K+1:length(Tmp))); + Tmp=Mixop(6,FdL); + K=mtlb_findstr(Tmp,'='); + Vname=part(Tmp,1:K-1); + Vrg=evstr(part(Tmp,K+1:length(Tmp))); + Umin=Urg(1); Umax=Urg(2); + Vmin=Vrg(1); Vmax=Vrg(2); + DrwS=Mixop(7,FdL); + Cflg=0; + EhL=[]; + Tmp=mtlb_findstr(DrwS,'e'); + if length(Tmp)~=0 + Tmp1=strsubst(Xystr,Uname,'('+string(Umax)+')'); + Tmp2=Mixop(6,FdL); + Tmp3='N='+string(Np(2)); + Tmp=Paramplot(Tmp1,Tmp2,Tmp3); + if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 + Cflg=1; + Tmp(size(Tmp,1),:)=Tmp(1,:); + end; + EhL=Mixadd(EhL,Tmp); + end; + Tmp=mtlb_findstr(DrwS,'n'); + if length(Tmp)~=0 + Tmp1=strsubst(Xystr,Vname,'('+string(Vmax)+')'); + Tmp2=Mixop(5,FdL); + Tmp3='N='+string(Np(1)); + Tmp=Paramplot(Tmp1,Tmp2,Tmp3); + if Cflg~=0 // 140707 Kitahara + Tmp1=Mixop(Mixlength(EhL),EhL); + Tmp=Joincrvs(Tmp1,Tmp); + if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 + Cflg=1; + Tmp(size(Tmp,1),:)=Tmp(1,:); + end; + Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL); + EhL=Mixadd(Tmp1,Tmp); + else + Cflg=0; + if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 + Cflg=1; + Tmp(size(Tmp,1),:)=Tmp(1,:); + end; + EhL=Mixadd(EhL,Tmp); + end; + end; + Tmp=mtlb_findstr(DrwS,'w'); + if length(Tmp)~=0 + Tmp1=strsubst(Xystr,Uname,'('+string(Umin)+')'); + Tmp2=Mixop(6,FdL); + Tmp3='N='+string(Np(2)); + Tmp=Paramplot(Tmp1,Tmp2,Tmp3); + if Cflg~=0 //if Cflg==0 + Tmp1=Mixop(Mixlength(EhL),EhL); + Tmp=Joincrvs(Tmp1,Tmp); + if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 + Cflg=1; + Tmp(size(Tmp,1),:)=Tmp(1,:); + end; + Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL); + EhL=Mixadd(Tmp1,Tmp); + else + Cflg=0; + if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 + Cflg=1; + Tmp(size(Tmp,1),:)=Tmp(1,:); + end; + EhL=Mixadd(EhL,Tmp); + end; + end; + Tmp=mtlb_findstr(DrwS,'s'); + if length(Tmp)~=0 + Tmp1=strsubst(Xystr,Vname,'('+string(Vmin)+')'); + Tmp2=Mixop(5,FdL); + Tmp3='N='+string(Np(1)); + Tmp=Paramplot(Tmp1,Tmp2,Tmp3); + if Cflg~=0 //if Cflg==0 + Tmp1=Mixop(Mixlength(EhL),EhL); + Tmp=Joincrvs(Tmp1,Tmp); + if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 + Cflg=1; + Tmp(size(Tmp,1),:)=Tmp(1,:); + end; + Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL); + EhL=Mixadd(Tmp1,Tmp); + else + Cflg=0; + if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0 + Cflg=1; + Tmp(size(Tmp,1),:)=Tmp(1,:); + end; + EhL=Mixadd(EhL,Tmp); + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin Binary files differnew file mode 100644 index 00000000..86b2954f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci new file mode 100644 index 00000000..11b02c63 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci @@ -0,0 +1,39 @@ +function Mawarikomi(varargin) + FL='default'; + haba='10cm'; + Nargs=length(varargin); + if Nargs>0 + haba=varargin(1); + if Nargs>=2 + FL=varargin(2); + if FL=='' + FL='tmp.tex' + end + end + end + StrM=[ + '\begin{mawarikomi}%',... + '%<1>[5](0,0)%',... + '{'+haba+'}{%',... + '',... + '}',... + '',... + '',... + '\end{mawarikomi}'... + ]; + if FL~='default' + Fid=mopen(FL,'w'); + mprintf('%s\n\n','Writing to '+FL); + end; + for I=1:size(StrM,2) + Str=StrM(I); + mprintf('%s\n',Str); + if FL~='default' + mfprintf(Fid,'%s\n',Str); + end + end + if FL~='default' + mclose(Fid); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin Binary files differnew file mode 100644 index 00000000..78d328fc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci new file mode 100644 index 00000000..65f543ea --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci @@ -0,0 +1,91 @@ +// +// 08.05.30 debugged +// 08.08.14 (horner) +// 09.12.31 (gsort) +// 15.10.23 ( horner not used ) +// 16.12.29 (msprintf("%3.10f",..) used ) + +function R=MeetWindow(PA,PB) + global XMIN XMAX YMIN YMAX + if InWindow(PA)=='i' & InWindow(PB)=='i' + R=[PA;PB]; + return + end; + Eps=10.0^(-6); + t=poly(0,'T'); + PT="(1-(t))*PA+(t)*PB"; + Txm=-1; TxM=-1; Tym=-1; TyM=-1; + if PA(1)~=PB(1) + Txm=(XMIN-PA(1))/(PB(1)-PA(1)); + TxM=(XMAX-PA(1))/(PB(1)-PA(1)); + end + if PA(2)~=PB(2) + Tym=(YMIN-PA(2))/(PB(2)-PA(2)); + TyM=(YMAX-PA(2))/(PB(2)-PA(2)); + end; +// Tmp=horner(PT(2),Txm); + Tmp1=strsubst(PT,"t",msprintf("%3.10f",Txm)); + Tmp1=evstr(Tmp1) + Tmp=Tmp1(2); + if Tmp<YMIN-Eps | Tmp>YMAX+Eps + Txm=-1; + end +// Tmp=horner(PT(2),TxM); + Tmp1=strsubst(PT,"t",msprintf("%3.10f",TxM)); + Tmp1=evstr(Tmp1) + Tmp=Tmp1(2); + if Tmp<YMIN-Eps | Tmp>YMAX+Eps + TxM=-1 + end +// Tmp=horner(PT(1),Tym); + Tmp1=strsubst(PT,"t",msprintf("%3.10f",Tym)); + Tmp1=evstr(Tmp1) + Tmp=Tmp1(1); + if Tmp<XMIN-Eps | Tmp>XMAX+Eps + Tym=-1 + end +// Tmp=horner(PT(1),TyM); + Tmp1=strsubst(PT,"t",msprintf("%3.10f",TyM)); + Tmp1=evstr(Tmp1) + Tmp=Tmp1(1); + if Tmp<XMIN-Eps | Tmp>XMAX+Eps + TyM=-1 + end + Tmp=gsort([Txm,TxM,Tym,TyM]); + Tans=Tmp(length(Tmp):-1:1); + Tmp=[]; + for I=1:length(Tans) + Tmp1=Tans(I); + if Tmp1>-Eps & Tmp1<1+Eps + if length(Tmp)==0 + Tmp=[Tmp1]; + elseif abs(Tmp(length(Tmp))-Tmp1)>Eps + Tmp=[Tmp,Tmp1] + end + end + end + Tans=Tmp; + if length(Tans)==0 + R=[]; + return; + end + if length(Tans)==1 +// Ten1=horner(PT,Tans(1)); + Tmp1=strsubst(PT,"t",string(Tans(1))); + Ten1=evstr(Tmp1) + if InWindow(PA)=='i' + R=[PA;Ten1]; + return; + else + R=[Ten1;PB]; + return + end + end +// Ten1=horner(PT,Tans(1)); + Tmp1=strsubst(PT,"t",string(Tans(1))); + Ten1=evstr(Tmp1) +// Ten2=horner(PT,Tans(2)); + Tmp1=strsubst(PT,"t",string(Tans(2))); + Ten2=evstr(Tmp1) + R=[Ten1;Ten2]; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin Binary files differnew file mode 100644 index 00000000..ebe3ead9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci new file mode 100644 index 00000000..65ba1166 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci @@ -0,0 +1,169 @@ +// 08.10.24 +// 08.10.25 +// 08.10.26 +// 09.12.31 (gsort) +// 13.10.22 ( __ added to varibles ) +// 13.12.02 debugged + +function PtL__=Meetpoints(PtA__,PtB__,Fd__,Uveq__,Np__,Eps__) + Eps__0=10^(-4); + Vec__=PtB__-PtA__; + Out__=[]; + PtL__=[]; + Tmp__=Mixop(2,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Xname__=part(Tmp__,1:K__-1); + Tmp__=Mixop(3,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Yname__=part(Tmp__,1:K__-1); + Tmp__=Mixop(1,Fd__); + K__=mtlb_findstr(Tmp__,'='); + if K__~=[] + Zname__=part(Tmp__,1:K__-1); + else + Tmp__=Mixop(4,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Zname__=part(Tmp__,1:K__-1); + end; + Fd__L=Fullformfunc(Fd__); + Xf__=Mixop(2,Fd__L); + Yf__=Mixop(3,Fd__L); + Zf__=Mixop(4,Fd__L); + Tmp__=Mixop(5,Fd__L); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,Fd__L); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Umin__=Urg__(1); UMax__=Urg__(2); + Vmin__=Vrg__(1); VMax__=Vrg__(2); + V1__='('+string(Vec__(1))+')'; + V2__='('+string(Vec__(2))+')'; + V3__='('+string(Vec__(3))+')'; + Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))'; + Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))'; + Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))'; + Urg__str=Mixop(5,Fd__L); + Vrg__str=Mixop(6,Fd__L); + if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0 + Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__; + else + Eq__=Xstr__; + end; + MS__=Mix(Eq__,Urg__str,Vrg__str,Np__); + [Zval__,Xval__,Yval__]=Makevaltable(MS__); + for J=1:length(Yval__)-1 + for I=1:length(Xval__)-1 + a1__=Xval__(I);b1__=Yval__(J);c1__=Zval__(J,I); + a2__=Xval__(I+1);b2__=Yval__(J);c2__=Zval__(J,I+1); + a3__=Xval__(I+1);b3__=Yval__(J+1);c3__=Zval__(J+1,I+1); + a4__=Xval__(I);b4__=Yval__(J+1);c4__=Zval__(J+1,I); + PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; + VL__=[c1__,c2__,c3__,c4__,c1__]; + QL__=[]; + for K__=1:4 + P1__=PL__(K__,:); P2__=PL__(K__+1,:); + M1__=VL__(K__); M2__=VL__(K__+1); + if M1__>=Eps__0 & M2__>=Eps__0 + continue; + end; + if M1__<=-Eps__0 & M2__<=-Eps__0 + continue; + end; + if abs(M1__)<Eps__0 + Tmp__=P1__; + elseif abs(M2__)<Eps__0 + continue; + else + Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); + end; + QL__=[QL__;Tmp__]; + end; + if size(QL__,1)==2 + Puv__1=QL__(1,:); Puv__2=QL__(2,:); + Tmp__1=Puv__1(1); + Tmp__2=Puv__1(2); + Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Xv__=evstr(Tmp__); + Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Yv__=evstr(Tmp__); // 13.12.02 + Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Zv__=evstr(Tmp__); + P1__=[Xv__,Yv__,Zv__]; + Tmp__1=Puv__2(1); + Tmp__2=Puv__2(2); + Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Xv__=evstr(Tmp__); + Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Yv__=evstr(Tmp__); + Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Zv__=evstr(Tmp__); + P2__=[Xv__,Yv__,Zv__]; + V1__=Vec__(1); V2__=Vec__(2); V3__=Vec__(3); + if abs(V1__)>Eps__0 + M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3); + M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3); + elseif abs(V2__)>Eps__0 + M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3); + M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3); + else + M1__=PtA__(2)-P1__(2); + M2__=PtA__(2)-P2__(2); + end; + if M1__*M2__>=0 + if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0) + continue; + end; + if abs(M1__)<=Eps__0 + Pt__=P1__; Ptuv__=Puv__1; + else + Pt__=P2__; Ptuv__=Puv__2; + end; + else + Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); + Ptuv__=1/(M1__-M2__)*(-M2__*Puv__1+M1__*Puv__2); + end; + if type(Uveq__)==10 + Tmp__1='('+string(Ptuv__(1))+')'; + Tmp__2='('+string(Ptuv__(2))+')'; + Tmp__=strsubst(Uveq__,Uname__,Tmp__1); + Tmp__=strsubst(Tmp__,Vname__,Tmp__2); + Tmp__=evstr(Tmp__); + if Tmp__<-Eps__0 + continue; + end; + end; + Tmp__1=Naiseki(Pt__-PtA__,Vec__); + Tmp__1=Tmp__1/norm(Vec__)^2; + if Tmp__1>-Eps__0 & Tmp__1<1+Eps__0 + Out__=[Out__,Tmp__1]; + end; + end; + end; + end; + if length(Out__)>0 + Out__=gsort(Out__); + Out__=Out__(length(Out__):-1:1); + Tmp__=[Out__(1)]; + for I__=2:length(Out__) + Tmp__1=(Out__(I__)-Tmp__(length(Tmp__)))*Vec__; + Tmp__1=norm(Tmp__1); + if Tmp__1>Eps__ + Tmp__=[Tmp__,Out__(I__)]; + end; + end; + Out__=Tmp__; + for I__=1:length(Out__) + Tmp__=PtA__+Out__(I__)*Vec__; + PtL__=Mixadd(PtL__,Tmp__); + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin Binary files differnew file mode 100644 index 00000000..711c4fc4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci new file mode 100644 index 00000000..79826f90 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci @@ -0,0 +1,21 @@ +// 08.05.18 + +// Structure changed +// 09.10.11 + +function TF=Member(A,L) + if Mixtype(L)>1 + N=Mixlength(L); + else + N=length(L); + end + for I=1:N + Tmp=Op(I,L); + if A==Tmp + TF=%t + return + end + end + TF=%f +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin Binary files differnew file mode 100644 index 00000000..9cb3477e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci new file mode 100644 index 00000000..de8d4b0d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci @@ -0,0 +1,206 @@ +// 08.08.21 +// 09.10.24 +// 09.10.26 + +function Menkakusi(Face,Nf,Ptype) + global THETA PHI EyePoint FocusPoint VELNO VELHI; + Eps0=10^(-6); + Eps=10^(-4); + Tmp1=Face(1)-Face(2); + Tmp2=Face(3)-Face(2); + if norm(Tmp1)<Eps | norm(Tmp2)<Eps + return; + end; + Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2); + if norm(Vec)<Eps + return; + end; + if Ptype==-1 + W=EyePoint; + Tmp=Dotprod(Vec,W-Face(1)); + else + W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; + W=100*W; + Tmp=Dotprod(Vec,W-Face(1)); + end; + if abs(Tmp)<Eps + return; + end; + if Tmp<-Eps + Vec=-Vec; + end; + if Ptype==-1 + G1=Projpers(Spaceline(Face)); + else + G1=Projpara(Spaceline(Face)) + end; + VL=list(); + for I=1:Numptcrv(G1) + VL(I)=Ptcrv(I,G1); + end; + Out1L=list(); + Out2L=VELHI; + for N=1:length(VELNO) + Tmp=VELNO(N); + Edge=Tmp(1); + Ne=Tmp(2); + Nenm=Tmp(3); + if Member(Nf,Ne) + Out1L($+1)=list(Edge,Ne,Nenm); + continue; + end; + if Ptype==-1 + P=Perspt(Edge(1)); + Q=Perspt(Edge(2)); + else + P=Parapt(Edge(1)); + Q=Parapt(Edge(2)); + end; + if norm(P-Q)<Eps + continue; + end; + Tmp=Kyoukai(Mix(G1)); + Tmp1=Naigai(P,Tmp); + Ng1=Tmp1(1); + Tmp1=Naigai(Q,Tmp); + Ng2=Tmp1(1); + KL=IntersectcrvsPp(Listplot([P,Q]),G1); + if Mixlength(KL)==0 + if Ng1==0 + Out1L($+1)=list(Edge,Ne,Nenm); + else + Tmp1=(Edge(1)+Edge(2))*0.5-Face(1); + Tmp=Dotprod(Tmp1,Vec)/norm(Tmp1); + if Tmp>-Eps + Out1L($+1)=list(Edge,Ne,Nenm); + else + Out2L($+1)=list(Edge,Ne,Nenm); + end; + end; + continue; + end; + Flg=0; + for I=1:Mixlength(VL)-1 + Tmp=VL(I+1)-VL(I); + if norm(Tmp)<Eps continue; end; + Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P); + if abs(Tmp1)<Eps + Flg=1; + break; + end; + end; + if Flg==1 + Tmp=Mixop(I,VL)-P; + if norm(Tmp)<Eps + Tmp1=0; + else + Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P); + end; + if abs(Tmp1)<Eps then + Out1L($+1)=list(Edge,Ne,Nenm); + continue; + end; + end; + if Mixlength(KL)==1 + Tmp=KL(1); + Tmp=Tmp(2)-1; + if Tmp<Eps + if Ng2==0 + Out1L($+1)=list(Edge,Ne,Nenm); + else + Tmp1=Edge(2)-Face(1); + Tmp1=Dotprod(Tmp1,Vec); + if Tmp1>-Eps + Out1L($+1)=list(Edge,Ne,Nenm); + else + Out2L($+1)=list(Edge,Ne,Nenm); + end; + end; + continue; + end; + if Tmp>1-Eps + if Ng1==0 + Out1L($+1)=list(Edge,Ne,Nenm); + else + Tmp1=Edge(1)-Face(1); + Tmp1=Dotprod(Tmp1,Vec); + if Tmp1>-Eps + Out1L($+1)=list(Edge,Ne,Nenm); + else + Out2L($+1)=list(Edge,Ne,Nenm); + end; + end; + continue; + end; + if Ng1==0 & Ng2==0 + Out1L($+1)=list(Edge,Ne,Nenm); + else + Tmp1=KL(1); + Tmp1=Tmp1(1); + if Ptype==-1 + Tmp=Invperspt(Tmp1,Spaceline(Edge)); + else + Tmp=Invparapt(Tmp1,Spaceline(Edge)) + end; + Ak=Tmp(1); + if Ng1==1 + Tmp1=Edge(1)-Face(1); + Tmp1=Dotprod(Tmp1,Vec); + if Tmp1>-Eps + Out1L($+1)=list(Edge,Ne,Nenm); + else + Tmp2=list(Ak,Edge(2)); + Out1L($+1)=list(Tmp2,Ne,Nenm); + Tmp2=list(Edge(1),Ak); + Out2L($+1)=list(Tmp2,Ne,Nenm); + end; + end; + if Ng2==1 + Tmp1=Edge(2)-Face(1); + Tmp1=Dotprod(Tmp1,Vec); + if Tmp1>-Eps + Out1L($+1)=list(Edge,Ne,Nenm); + else + Tmp2=list(Edge(1),Ak); + Out1L($+1)=list(Tmp2,Ne,Nenm); + Tmp2=list(Ak,Edge(2)); + Out2L($+1)=list(Tmp2,Ne,Nenm); + end; + end; + end; + end; + if Mixlength(KL)==2 + Tmp1=KL(1); + Tmp1=Tmp1(2); + Tmp2=KL(2); + Tmp2=Tmp2(2); + if Tmp1>Tmp2 + KL=list(KL(2),KL(1)); + end; + Tmp=Spaceline(Edge); + Tmp1=KL(1); + Tmp1=Tmp1(1); + Tmp2=KL(2); + Tmp2=Tmp2(1); + if Ptype==-1 + Ak=Mixop(1,Invperspt(Tmp1,Tmp)); + Bk=Mixop(1,Invperspt(Tmp2,Tmp)) + else + Ak=Mixop(1,Invparapt(Tmp1,Tmp)); + Bk=Mixop(1,Invparapt(Tmp2,Tmp)) + end; + Tmp1=(Ak+Bk)*0.5-Face(1); + Tmp=Dotprod(Tmp1,Vec); + if Tmp>-Eps + Out1L($+1)=list(Edge,Ne,Nenm); + else + Out1L($+1)=list(list(Edge(1),Ak),Ne,Nenm); + Out1L($+1)=list(list(Bk,Edge(2)),Ne,Nenm); + Out2L($+1)=list(list(Ak,Bk),Ne,Nenm); + end; + end; + end; + VELNO=Out1L; + VELHI=Out2L; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin Binary files differnew file mode 100644 index 00000000..e8361324 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci new file mode 100644 index 00000000..43eab74b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci @@ -0,0 +1,186 @@ +// 09.10.29 +// 09.11.15 +// 10.08.17 debug (line 66) + +function Menkakusi2(Face,Nf,Ptype) + global THETA PHI EyePoint FocusPoint VELNO VELHI; + Eps0=10^(-6); + Eps=10^(-4); + Tmp1=Face(1)-Face(2); + Tmp2=Face(3)-Face(2); + if norm(Tmp1)<Eps | norm(Tmp2)<Eps + return; + end; + Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2); + if norm(Vec)<Eps + return; + end; + if Ptype==-1 + W=EyePoint; + Tmp=Dotprod(Vec,W-Face(1)); + else + W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; + W=100*W; + Tmp=Dotprod(Vec,W-Face(1)); + end; + if abs(Tmp)<Eps + return; + end; + if Tmp<-Eps + Vec=-Vec; + end; + if Ptype==-1 + G1=Projpers(Spaceline(Face)); + else + G1=Projpara(Spaceline(Face)) + end; + VL=list(); + for I=1:Numptcrv(G1) + VL(I)=Ptcrv(I,G1); + end; + Out1L=list(); + Out2L=VELHI; + for N=1:length(VELNO) + Out1=list(); + Out2=list(); + Tmp=VELNO(N); + Edge=Tmp(1); + Ne=Tmp(2); + NNe=Tmp(3); + if Member(Nf,Ne) + Out1L($+1)=list(Edge,Ne,NNe); + continue; + end; + if Ptype==-1 + PtA=Perspt(Edge(1)); + PtB=Perspt(Edge(2)); + else + PtA=Parapt(Edge(1)); + PtB=Parapt(Edge(2)); + end; + if norm(PtA-PtB)<Eps continue; end; + Bdy=list(G1); + V=PtB-PtA; + TenL=KoutenList(PtA,V,Bdy); + Nten=length(TenL); + if Nten==0 // 10.08.17 + Out1L($+1)=list(Edge,Ne,NNe); + continue; + end; + Te=0; + Pe3=Edge(1); + if Ptype==-1 + Tmp1=Perspt(Pe3); + Tmp=Invperspt(Tmp1,Spaceline(Face)); + else + Tmp1=Parapt(Pe3); + Tmp=Invparapt(Tmp1,Spaceline(Face)); + end; + Qe3=Tmp(1); + Flg=0; + for I=1:Nten + TenP=TenL(I); + Ts=TenP(1); + P=TenP(2); + if Ts<-Eps + continue; + end; + Eline=Spaceline(Edge); + if Ptype==-1 + Tmp=Invperspt(P,Eline); + Tmp1=Invperspt(P,Spaceline(Face)); + else + Tmp=Invparapt(P,Eline) + Tmp1=Invparapt(P,Spaceline(Face)); + end; + P3=Tmp(1); Q3=Tmp1(1); + if Ts>1-Eps // P3, Q3 are necessary + Flg=I; + break; + end; + if abs(Te-Ts)>Eps0 // + if modulo(I,2)==1 + Out1($+1)=list(Pe3,P3); + else + if Qe3==[] + Tmp=Op(2,TenL(I-1)); + if Ptype==-1 + Tmp1=Invperspt(Tmp,Spaceline(Face)); + else + Tmp1=Invparapt(Tmp,Spaceline(Face)); + end; + Qe3=Tmp1(1); + end; + PM=0.5*(Pe3+P3); QM=0.5*(Qe3+Q3); + if Ptype==-1 + Z1=Zperspt(PM); Z2=Zperspt(QM); + else + Z1=Zparapt(PM); Z2=Zparapt(QM); + end; + if Z1>Z2 + Out1($+1)=list(Pe3,P3); + else + Out2($+1)=list(Pe3,P3); + end; + end; + end; + Te=Ts; Pe3=P3; Qe3=Q3; + end; + if Flg==0 + if norm(Pe3-Edge(2))>Eps0 + Out1($+1)=list(Pe3,Edge(2)); + end; + else + if modulo(Flg,2)==1 + Out1($+1)=list(Pe3,Edge(2)); + else + PM=0.5*(Pe3+P3); QM=0.5*(Qe3+Q3); + if Ptype==-1 + Z1=Zperspt(PM); Z2=Zperspt(QM); + else + Z1=Zparapt(PM); Z2=Zparapt(QM); + end; + if Z1>Z2 + Out1($+1)=list(Pe3,Edge(2)); + else + Out2($+1)=list(Pe3,Edge(2)); + end; + end; + end; + for I=1:length(Out1) + Tmp=Out1(I); + if I==1 + SeL=Tmp; + else + if norm(SeL(2)-Tmp(1))<Eps0 + SeL(2)=Tmp(2); + else + Out1L($+1)=list(SeL,Ne,NNe); + SeL=Tmp; + end; + end; + end; + if length(Out1)>0 + Out1L($+1)=list(SeL,Ne,NNe); + end; + for I=1:length(Out2) + Tmp=Out2(I); + if I==1 + SeL=Tmp; + else + if norm(SeL(2)-Tmp(1))<Eps0 + SeL(2)=Tmp(2); + else + Out2L($+1)=list(SeL,Ne,NNe); + SeL=Tmp; + end; + end; + end; + if length(Out2)>0 + Out2L($+1)=list(SeL,Ne,NNe); + end; + end; + VELNO=Out1L; + VELHI=Out2L; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin Binary files differnew file mode 100644 index 00000000..acc02ec0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci new file mode 100644 index 00000000..4f06c437 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci @@ -0,0 +1,15 @@ +// 08.05.20 +// 08.08.08 + +// Structure changed +// 09.10.11 + +function M=Mix(varargin) + Nargs=length(varargin); + M=list(); + for I=1:Nargs + Da=varargin(I); + M(I)=Da; + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin Binary files differnew file mode 100644 index 00000000..50f6189c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci new file mode 100644 index 00000000..daf5a2d9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci @@ -0,0 +1,14 @@ +// 08.05.19 + +// Structure changed +// 09.10.11 + +function M=MixL(varargin) + Nargs=length(varargin); + M=list(); + for I=1:Nargs + Da=varargin(I); + M(I)=Da; + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin Binary files differnew file mode 100644 index 00000000..2372bb1f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci new file mode 100644 index 00000000..623af493 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci @@ -0,0 +1,15 @@ +// 08.05.19 + +//Structure Changed + +// 09.10.11 + +function M=MixS(varargin) + Nargs=length(varargin); + M=list(); + for I=1:Nargs + Da=varargin(I); + M(I)=Da; + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin Binary files differnew file mode 100644 index 00000000..0dbd5427 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci new file mode 100644 index 00000000..8d45fea1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci @@ -0,0 +1,23 @@ +// 05.14 Data Structure +// 05.16 List of MixList +// 05.19 use:MixS, MixL, Mixtype +// 08.08.17 + +// Structure changed +// 09.10.11 + +function M=Mixadd(varargin) + Nargs=length(varargin); + M=list(); + Tmp=varargin(1); + if length(Tmp)==0 + M(1)=varargin(2); + else + M=Tmp; + M($+1)=varargin(2); + end; + for I=3:Nargs + M($+1)=varargin(I); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin Binary files differnew file mode 100644 index 00000000..45325b78 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci new file mode 100644 index 00000000..2fed1197 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci @@ -0,0 +1,14 @@ +// 08.05.19 + +// Structure changed +// 09.10.11 +// 10.01.02 + +function Mixdisp(L) + if Mixtype(L)==1 + disp(L) + return; + end; + Str=Makeliststr(L); + disp(Str) +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin Binary files differnew file mode 100644 index 00000000..6ed0a2a6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci new file mode 100644 index 00000000..d6e49c14 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci @@ -0,0 +1,29 @@ +// 08.05.18 +// 08.05.19 Changed +// 08.08.15 + +// Structure changed +// 09.10.11 + +function M=Mixjoin(varargin) + Nargs=length(varargin); + M=list(); + for I=1:Nargs + Tmp=varargin(I); + if length(Tmp)==0 + continue; + end; + if Mixtype(Tmp)==1 + Tmp=list(Tmp); + end; + if length(M)==0 + M=Tmp; + else + M=lstcat(M,Tmp); + end; + end; + if length(M)==0 + M=[]; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin Binary files differnew file mode 100644 index 00000000..b601884d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci new file mode 100644 index 00000000..6fd31749 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci @@ -0,0 +1,18 @@ +// 08.05.14 Data Structure +// 08.05.23 Debugged + +// Structure changed +// 09.10.11 + +function Out=Mixlength(PL) + if PL==[] + Out=0; + return + end + if Mixtype(PL)==1 + Out=size(PL,1); + else + Out=length(PL); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin Binary files differnew file mode 100644 index 00000000..c607a109 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci new file mode 100644 index 00000000..7f05a2ab --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci @@ -0,0 +1,14 @@ +// 08.05.19 + +// Structure changed +// 09.10.11 + +function PL=Mixmake(varargin) + PL=list(); + for I=1:length(varargin) + Tmp=varargin(I); + PL=Mixadd(PL,Tmp); + end +endfunction + + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin Binary files differnew file mode 100644 index 00000000..9aa1f9f1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci new file mode 100644 index 00000000..10c846dc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci @@ -0,0 +1,22 @@ +// 08.05.14 Data Structure +// 08.04.15 List ex N=1:3 +// 08.05.16 List of MixL +// 08.05.18 Debugged +// 08.05.19 Changed +// 08.08.17 + +// Structure changed +// 09.10.11 + +function D=Mixop(N,PL) + D=[]; + if Mixtype(PL)==1 + D=PL; + return; + end; + if type(N)~=1 | length(N)>1 | N>Mixlength(PL) + return + end; + D=PL(N); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin Binary files differnew file mode 100644 index 00000000..e2b2ba6a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci new file mode 100644 index 00000000..e3e281f3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci @@ -0,0 +1,18 @@ +// 08.05.19 +// 08.05.20 debugged +// 08.06.02 + +// Structure changed +// 09.10.11 + +function M=Mixsub(Rg,PL) + M=list(); + N=Mixlength(PL); + for I=Rg + if I>N + return; + end; + M($+1)=PL(I); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin Binary files differnew file mode 100644 index 00000000..4d786a5d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci new file mode 100644 index 00000000..b336c763 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci @@ -0,0 +1,19 @@ +// 08.05.19 + +// Structure changed +// 09.10.11 + +function T=Mixtype(D) + if type(D)~=15 + T=1; + return; + end; + for I=1:length(D) + if type(D(I))==15 + T=3; + return; + end; + end; + T=2; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin Binary files differnew file mode 100644 index 00000000..aa1e8c72 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci new file mode 100644 index 00000000..8a4f0557 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci @@ -0,0 +1,18 @@ +// 08.05.18 +// 08.05.20 + +function Ptn=Naigai(A,Bdy) + V=[1,1]; + Call=Mixlength(Bdy); + KL=KoutenList(A,V,Bdy); + Ptn=zeros(1,Call); + for K=1:Mixlength(KL) + Ten=Op(K,KL); + T=Op(1,Ten); NC=Op(4,Ten); + if T<0 + Tmp=modulo(Ptn(NC)+1,2); + Ptn(1,NC)=Tmp; + end + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin Binary files differnew file mode 100644 index 00000000..0c5dc7b1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci new file mode 100644 index 00000000..193ad384 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci @@ -0,0 +1,4 @@ +function N=Naiseki(a,b) + N=a*b'; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin Binary files differnew file mode 100644 index 00000000..59d31369 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci new file mode 100644 index 00000000..a404370a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci @@ -0,0 +1,53 @@ +// 08.05.31 +// 08.06.03 +// 08.10.07 + +function Ans=Nearestpt(varargin) + Nargs=length(varargin); + PL1=varargin(1); + if size(PL1,1)==1 + Flg=0; + else + Flg=1 + end + Eps=10.0^(-6); +// Fig=varargin(2); + PL=varargin(2); + Ans=MixS(PL1(1,:),1,PL(1,:),1,norm(PL1(1,:)-PL(1,:))); + for N=1:size(PL1,1) + PA=PL1(N,:); + Pm=PL(1,:); + Im=1; + Sm=norm(Pm-PA); + for I=1:size(PL,1)-1 + A1=PL(I,1); A2=PL(I,2); + B1=PL(I+1,1); B2=PL(I+1,2); + V1=B1-A1; V2=B2-A2; + X1=PA(1); X2=PA(2); + Tmp=V2^2+V1^2; + if abs(Tmp)<Eps + continue; + end; + T=(-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp; + if T<-Eps + P=[A1,A2]; + elseif T>1+Eps + P=[B1,B2]; + else + P=[A1+T*V1,A2+T*V2]; + end + S=norm(P-PA); + if S<Sm-Eps + Tmp=ParamonCurve(P,I,PL); + Pm=P; Im=Tmp; Sm=S; + end + end + if Sm<Op(5,Ans) + Ans=MixS(PA,N,Pm,Im,Sm); + end + end + if Flg==0 + Ans=Mixsub(3:5,Ans); + end +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin Binary files differnew file mode 100644 index 00000000..038306fb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci new file mode 100644 index 00000000..9e0227e8 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci @@ -0,0 +1,9 @@ +function Newlength(varargin) + if length(varargin)==0 + Kyorihensuu(); + else + FL=varargin(1); + Kyorihensuu(FL); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin Binary files differnew file mode 100644 index 00000000..701b77db --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci new file mode 100644 index 00000000..3826b281 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci @@ -0,0 +1,254 @@ +// 08.09.13 +// 09.12.31 (gsort) + +function FigkL=Nohiddenpara(varargin) + global HIDDENDATA THETA PHI; + Eps=0.001; + PaL=varargin(1); + Fk=varargin(2); + FuncdL=varargin(3); + Tmp=Mixop(1,FuncdL); + Fxy=Mixop(1,Tmp); + K=mtlb_findstr(Fxy,'='); + Fxy=part(Fxy,K+1:length(Fxy)); + Fbdxy=Mixop(2,FuncdL); + Tmp=Mixop(3,FuncdL); + Xname=Mixop(1,Tmp); + Tmp=Mixop(4,FuncdL); + Yname=Mixop(1,Tmp); + FigkL=[]; + if Fbdxy==[] + return; + end; + Bdy=Kyoukai(Fbdxy); + Ptn=0; + Fh=Projpara(Fk); + SeL=[]; + for N=1:length(PaL)-1 + S=(PaL(N)+PaL(N+1))/2; + P=PointonCurve(S,Fh); + Tmp=Invparapt(S,Fh,Fk) + Pk=Mixop(1,Tmp); + Qk=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; + Flg=zeros(1,Mixlength(Fbdxy)); + for I=1:1000 + Tmp=Pk+I*10*Qk; + Tmp1=Naigai(Tmp(1:2),Bdy); + if Tmp1==Flg + Flg=1; + Qk=Tmp; + break; + end; + end; + if Flg~=1 + disp('Bad EyePoint'); + return; + end; + T=poly(0,'t'); + P0=(1-T)*Pk+T*Qk; + X0str='('+pol2str(P0(1))+')'; + Y0str='('+pol2str(P0(2))+')'; + Z0str='('+pol2str(P0(3))+')'; + Tmp=strsubst(Fxy,Xname,X0str); + Tmp=strsubst(Tmp,Yname,Y0str); + Efn=Z0str+'-('+Tmp+')'; + t=0; + Tmp=evstr(Efn); + Eps=max(Eps,abs(Tmp)); + Tmp1=evstr([X0str,Y0str]); + t=1; + Tmp2=evstr([X0str,Y0str]); + Seg=Listplot([Tmp1,Tmp2]); + Tmp=[]; + for I=1:Mixlength(Fbdxy) + Tmp2=Mixop(I,Fbdxy); + Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps); + if Mixlength(Tmp1)>0 + Tmp2=[]; + for J=1:Mixlength(Tmp1) + Tmp3=Mixop(J,Tmp1); + Tmp3=Mixop(2,Tmp3)-1; + Tmp2=[Tmp2,Tmp3]; + end; + Tmp=[Tmp,Tmp2]; + else + Tmp2=Mixop(I,Fbdxy); + Tmp1=Nearestpt(Tmp2,Seg); + Tmp3=Mixop(5,Tmp1); + if Tmp3<Eps + Tmp4=Mixop(4,Tmp1); + Tmp=[Tmp,Tmp4-1]; + end; + end; + end; + if length(Tmp)==0 + SeL=[SeL,N]; + continue; + end; + Tmp=gsort(Tmp); + Tmp=Tmp(length(Tmp):-1:1); + ParamL=[0]; + for I=1:length(Tmp) + Tmp1=Tmp(I); + Tmp2=ParamL(length(ParamL)); + if Tmp1-Tmp2>Eps + ParamL=[ParamL,Tmp1]; + end; + end; + Nhdflg=0; + for M=1:length(ParamL)-1 + TL=[ParamL(M),ParamL(M+1)]; + t=TL(1); + Tmp1=evstr([X0str,Y0str]); + t=TL(2); + Tmp2=evstr([X0str,Y0str]); + Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy); + Tmp=modulo(sum(Tmp),2); + if Tmp==Ptn continue; end; + Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6); + t=TL(1); + Tmp1=evstr(Efn); + t=TL(2); + Tmp2=evstr(Efn); + if abs(Tmp1)<=Eps + if M>1 + Nhdflg=-10; + break; + end; + end; + if abs(Tmp2)<=Eps + Nhdflg=-10; + break; + end; + if Tmp2>Eps + if Tmp1<-Eps + Nhdflg=-10; + break; + end; + for I=1:Ik + AddL=[]; + VL=[]; + for J=1:length(TL)-1 + Tmp=(TL(J)+TL(J+1))*0.5; + AddL=[AddL,Tmp]; + t=Tmp; + Tmp1=evstr(Efn); + VL=[VL,Tmp1]; + end; + Tmp1=min(VL); + if Tmp1<=-Eps*2 + Nhdflg=-10; + break; + end; + TL=gsort([TL,AddL]); + end; + if Nhdflg~=0 break; end; + else + if Tmp1<-Eps + Nhdflg=-10; + break; + end; + for I=1:Ik + AddL=[]; + VL=[]; + for J=1:length(TL)-1 + Tmp=(TL(J)+TL(J+1))*0.5; + AddL=[AddL,Tmp]; + t=Tmp; + Tmp1=evstr(Efn); + VL=[VL,Tmp1]; + end; + Tmp1=max(VL); + if Tmp1>Eps*2 + Nhdflg=-10; + break; + end; + TL=gsort([TL,AddL]); + end; + if Nhdflg~=0 break; end; + end; + end; + if Nhdflg==0 + SeL=[SeL,N]; + end; + end; + FigL=[]; + FigkL=[]; + for I=1:length(SeL) + Tmp1=PointonCurve(PaL(SeL(I)),Fh); + Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); + if I==1 + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + if Member(SeL(I)-1,SeL) + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); + Tmp3=Invparapt(SP,Fh,Fk); + TP=Mixop(2,Tmp3); + Tmp3=Invparapt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp3); + Tmp4=Partcrv3(TP,TQ,Fk) + FigkL=Mixadd(FigkL,Tmp4); + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + end; + end; + end; + if length(SeL)>0 + if norm(P-Q)>Eps + FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); + Tmp3=Invparapt(SP,Fh,Fk); + TP=Mixop(2,Tmp3); + Tmp3=Invparapt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp3); + FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); + else + FigL=Mixadd(FigL,Fh); + FigkL=Mixadd(FigkL,Fk); + end; + end; + Tmp=[]; + for I=1:length(PaL)-1 + if ~Member(I,SeL) + Tmp=[Tmp,I]; + end; + end; + SeL=Tmp; + HIDDENDATA=[]; + for I=1:length(SeL) + Tmp=PaL(SeL(I)); + Tmp1=PointonCurve(Tmp,Fh); + Tmp=PaL(SeL(I)+1); + Tmp2=PointonCurve(Tmp,Fh); + if I==1 + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + if Member(SeL(I)-1,SeL) + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + Tmp=Invparapt(SP,Fh,Fk); + TP=Mixop(2,Tmp); + Tmp=Invparapt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp); + HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + end; + end; + end; + if length(SeL)>0 + if norm(P-Q)>Eps + Tmp=Invparapt(SP,Fh,Fk); + TP=Mixop(2,Tmp); + Tmp=Invparapt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp); + HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); + else + HIDDENDATA=Mixadd(HIDDENDATA,Fk); + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin Binary files differnew file mode 100644 index 00000000..cbc317ca --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci new file mode 100644 index 00000000..996559db --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci @@ -0,0 +1,131 @@ +// 08.10.10 +// 08.10.15 +// 09.06.24 +// 10.02.16 Eps + +function FigkL=Nohiddenpara2(PaL,Fk,Fd,Uveq,Np,Eps) + global HIDDENDATA THETA PHI TMP; + Eps0=10^(-5); + Fh=Projpara(Fk); + P1=Ptstart(Fh); + P2=Ptend(Fh); + Csp=CuspPt(); + Cspflg=1; + for I=1:Mixlength(Csp) + Tmp=Mixop(I,Csp); + if norm(Tmp-P1)<Eps0 + select Cspflg, + case 1 then Cspflg=2, + case 3 then Cspflg=6; + end; + continue; + end; + if norm(Tmp-P2)<Eps0 + select Cspflg, + case 1 then Cspflg=3, + case 2 then Cspflg=6; + end; + continue; + end; + end; + SeL=[]; + for N=1:length(PaL)-1 + S=(PaL(N)+PaL(N+1))/2; + Tmp=Invparapt(S,Fh,Fk); + PtA=Mixop(1,Tmp); + PtAp=Parapt(PtA); + Vec=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)]; + Epstmp=Eps; + if N==1 & modulo(Cspflg,2)==0 + Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); // + Epstmp=[Tmp,Eps(2)]; // + end; + if N==length(PaL)-1 & modulo(Cspflg,3)==0 + Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); // + Epstmp=[Tmp,Eps(2)]; // + end; + Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp); + if Flg==0 + SeL=[SeL,N]; + end; + end; + FigL=[]; + FigkL=[]; + for I=1:length(SeL) + Tmp1=PointonCurve(PaL(SeL(I)),Fh); + Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); + if I==1 + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + if Member(SeL(I)-1,SeL) + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); + Tmp3=Invparapt(SP,Fh,Fk); + TP=Mixop(2,Tmp3); + Tmp3=Invparapt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp3); + Tmp4=Partcrv3(TP,TQ,Fk) + FigkL=Mixadd(FigkL,Tmp4); + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + end; + end; + end; + if length(SeL)>0 + if norm(P-Q)>Eps(1) // + FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); + Tmp3=Invparapt(SP,Fh,Fk); + TP=Mixop(2,Tmp3); + Tmp3=Invparapt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp3); + FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); + else + FigL=Mixadd(FigL,Fh); + FigkL=Mixadd(FigkL,Fk); + end; + end; + Tmp=[]; + for I=1:length(PaL)-1 + if ~Member(I,SeL) + Tmp=[Tmp,I]; + end; + end; + SeL=Tmp; + HIDDENDATA=[]; + for I=1:length(SeL) + Tmp=PaL(SeL(I)); + Tmp1=PointonCurve(Tmp,Fh); + Tmp=PaL(SeL(I)+1); + Tmp2=PointonCurve(Tmp,Fh); + if I==1 + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + if Member(SeL(I)-1,SeL) + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + Tmp=Invparapt(SP,Fh,Fk); + TP=Mixop(2,Tmp); + Tmp=Invparapt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp); + HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + end; + end; + end; + if length(SeL)>0 + if norm(P-Q)>Eps(1) // + Tmp=Invparapt(SP,Fh,Fk); + TP=Mixop(2,Tmp); + Tmp=Invparapt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp); + HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); + else + HIDDENDATA=Mixadd(HIDDENDATA,Fk); + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin Binary files differnew file mode 100644 index 00000000..1ad435a7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci new file mode 100644 index 00000000..140516b1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci @@ -0,0 +1,253 @@ +// 08.09.21 +// 09.12.31 (gsort) + +function FigkL=Nohiddenpers(varargin) + global EyePoint FocusPoint HIDDENDATA; + Eps=0.001; + PaL=varargin(1); + Fk=varargin(2); + FuncdL=varargin(3); + Tmp=Mixop(1,FuncdL); + Fxy=Mixop(1,Tmp); + K=mtlb_findstr(Fxy,'='); + Fxy=part(Fxy,K+1:length(Fxy)); + Fbdxy=Mixop(2,FuncdL); + Tmp=Mixop(3,FuncdL); + Xname=Mixop(1,Tmp); + Tmp=Mixop(4,FuncdL); + Yname=Mixop(1,Tmp); + FigkL=[]; + if Fbdxy==[] + return; + end; + Bdy=Kyoukai(Fbdxy); + Ptn=0; + Fh=Projpers(Fk); + SeL=[]; + for N=1:length(PaL)-1 + S=(PaL(N)+PaL(N+1))/2; + P=PointonCurve(S,Fh); + Tmp=Invperspt(S,Fh,Fk) + Pk=Mixop(1,Tmp); + Flg=zeros(1,Mixlength(Fbdxy)); + for I=1:1000 + Tmp=Pk+I*(EyePoint-Pk); + Tmp1=Naigai(Tmp(1:2),Bdy); + if Tmp1==Flg + Flg=1; + Qk=Tmp; + break; + end; + end; + if Flg~=1 + disp('Bad EyePoint'); + return; + end; + T=poly(0,'t'); + P0=(1-T)*Pk+T*Qk; + X0str='('+pol2str(P0(1))+')'; + Y0str='('+pol2str(P0(2))+')'; + Z0str='('+pol2str(P0(3))+')'; + Tmp=strsubst(Fxy,Xname,X0str); + Tmp=strsubst(Tmp,Yname,Y0str); + Efn=Z0str+'-('+Tmp+')'; + t=0; + Tmp=evstr(Efn); + Eps=max(Eps,abs(Tmp)); + Tmp1=evstr([X0str,Y0str]); + t=1; + Tmp2=evstr([X0str,Y0str]); + Seg=Listplot([Tmp1,Tmp2]); + Tmp=[]; + for I=1:Mixlength(Fbdxy) + Tmp2=Mixop(I,Fbdxy); + Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps); + if Mixlength(Tmp1)>0 + Tmp2=[]; + for J=1:Mixlength(Tmp1) + Tmp3=Mixop(J,Tmp1); + Tmp3=Mixop(2,Tmp3)-1; + Tmp2=[Tmp2,Tmp3]; + end; + Tmp=[Tmp,Tmp2]; + else + Tmp2=Mixop(I,Fbdxy); + Tmp1=Nearestpt(Tmp2,Seg); + Tmp3=Mixop(5,Tmp1); + if Tmp3<Eps + Tmp4=Mixop(4,Tmp1); + Tmp=[Tmp,Tmp4-1]; + end; + end; + end; + if length(Tmp)==0 + SeL=[SeL,N]; + continue; + end; + Tmp=gsort(Tmp); + Tmp=Tmp(length(Tmp):-1:1); + ParamL=[0]; + for I=1:length(Tmp) + Tmp1=Tmp(I); + Tmp2=ParamL(length(ParamL)); + if Tmp1-Tmp2>Eps + ParamL=[ParamL,Tmp1]; + end; + end; + Nhdflg=0; + for M=1:length(ParamL)-1 + TL=[ParamL(M),ParamL(M+1)]; + t=TL(1); + Tmp1=evstr([X0str,Y0str]); + t=TL(2); + Tmp2=evstr([X0str,Y0str]); + Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy); + Tmp=modulo(sum(Tmp),2); + if Tmp==Ptn continue; end; + Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6); + t=TL(1); + Tmp1=evstr(Efn); + t=TL(2); + Tmp2=evstr(Efn); + if abs(Tmp1)<=Eps + if M>1 + Nhdflg=-10; + break; + end; + end; + if abs(Tmp2)<=Eps + Nhdflg=-10; + break; + end; + if Tmp2>Eps + if Tmp1<-Eps + Nhdflg=-10; + break; + end; + for I=1:Ik + AddL=[]; + VL=[]; + for J=1:length(TL)-1 + Tmp=(TL(J)+TL(J+1))*0.5; + AddL=[AddL,Tmp]; + t=Tmp; + Tmp1=evstr(Efn); + VL=[VL,Tmp1]; + end; + Tmp1=min(VL); + if Tmp1<=-Eps*2 + Nhdflg=-10; + break; + end; + TL=gsort([TL,AddL]); + end; + if Nhdflg~=0 break; end; + else + if Tmp1<-Eps + Nhdflg=-10; + break; + end; + for I=1:Ik + AddL=[]; + VL=[]; + for J=1:length(TL)-1 + Tmp=(TL(J)+TL(J+1))*0.5; + AddL=[AddL,Tmp]; + t=Tmp; + Tmp1=evstr(Efn); + VL=[VL,Tmp1]; + end; + Tmp1=max(VL); + if Tmp1>Eps*2 + Nhdflg=-10; + break; + end; + TL=gsort([TL,AddL]); + end; + if Nhdflg~=0 break; end; + end; + end; + if Nhdflg==0 + SeL=[SeL,N]; + end; + end; + FigL=[]; + FigkL=[]; + for I=1:length(SeL) + Tmp1=PointonCurve(PaL(SeL(I)),Fh); + Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); + if I==1 + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + if Member(SeL(I)-1,SeL) + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); + Tmp3=Invperspt(SP,Fh,Fk); + TP=Mixop(2,Tmp3); + Tmp3=Invperspt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp3); + Tmp4=Partcrv3(TP,TQ,Fk) + FigkL=Mixadd(FigkL,Tmp4); + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + end; + end; + end; + if length(SeL)>0 + if norm(P-Q)>Eps + FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); + Tmp3=Invperspt(SP,Fh,Fk); + TP=Mixop(2,Tmp3); + Tmp3=Invperspt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp3); + FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); + else + FigL=Mixadd(FigL,Fh); + FigkL=Mixadd(FigkL,Fk); + end; + end; + Tmp=[]; + for I=1:length(PaL)-1 + if ~Member(I,SeL) + Tmp=[Tmp,I]; + end; + end; + SeL=Tmp; + HIDDENDATA=[]; + for I=1:length(SeL) + Tmp=PaL(SeL(I)); + Tmp1=PointonCurve(Tmp,Fh); + Tmp=PaL(SeL(I)+1); + Tmp2=PointonCurve(Tmp,Fh); + if I==1 + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + if Member(SeL(I)-1,SeL) + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + Tmp=Invperspt(SP,Fh,Fk); + TP=Mixop(2,Tmp); + Tmp=Invperspt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp); + HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + end; + end; + end; + if length(SeL)>0 + if norm(P-Q)>Eps + Tmp=Invperspt(SP,Fh,Fk); + TP=Mixop(2,Tmp); + Tmp=Invperspt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp); + HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); + else + HIDDENDATA=Mixadd(HIDDENDATA,Fk); + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin Binary files differnew file mode 100644 index 00000000..7de094a4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci new file mode 100644 index 00000000..d49bce91 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci @@ -0,0 +1,134 @@ +// 08.10.11 +// 08.10.12 +// 08.10.15 +// 09.06.24 +// 10.02.16 Eps +// 11.04.12 Eps0 (bug) +// 13.11.02 bug + +function FigkL=Nohiddenpers2(PaL,Fk,Fd,Uveq,Np,Eps) + global EyePoint FocusPoint HIDDENDATA; + Eps0=10^(-5); // 11.04.12 + Fh=Projpers(Fk); + P1=Ptstart(Fh); + P2=Ptend(Fh); + Csp=CuspPt(); + Cspflg=1; + for I=1:Mixlength(Csp) + Tmp=Mixop(I,Csp); + if norm(Tmp-P1)<Eps0 + select Cspflg, + case 1 then Cspflg=2, + case 3 then Cspflg=6; + end; + continue; + end; + if norm(Tmp-P2)<Eps0 + select Cspflg, + case 1 then Cspflg=3, + case 2 then Cspflg=6; + end; + continue; + end; + end; + SeL=[]; + for N=1:length(PaL)-1 + S=(PaL(N)+PaL(N+1))/2; + Tmp=Invperspt(S,Fh,Fk) + PtA=Mixop(1,Tmp); + PtAp=Perspt(PtA); +// Vec=EyePoint-FocusPoint; + Vec=EyePoint-PtA; // 2013.11.02 + Epstmp=Eps; // 2011.04.12 + if N==1 & modulo(Cspflg,2)==0 + Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); // + Epstmp=[Tmp,Eps(2)]; // + end; + if N==length(PaL)-1 & modulo(Cspflg,3)==0 + Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); // + Epstmp=[Tmp,Eps(2)]; // + end; + Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp); + if Flg==0 + SeL=[SeL,N]; + end; + end; + FigL=[]; + FigkL=[]; + for I=1:length(SeL) + Tmp1=PointonCurve(PaL(SeL(I)),Fh); + Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); + if I==1 + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + if Member(SeL(I)-1,SeL) + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); + Tmp3=Invperspt(SP,Fh,Fk); + TP=Mixop(2,Tmp3); + Tmp3=Invperspt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp3); + Tmp4=Partcrv3(TP,TQ,Fk) + FigkL=Mixadd(FigkL,Tmp4); + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + end; + end; + end; + if length(SeL)>0 + if norm(P-Q)>Eps(1) // + FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); + Tmp3=Invperspt(SP,Fh,Fk); + TP=Mixop(2,Tmp3); + Tmp3=Invperspt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp3); + FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); + else + FigL=Mixadd(FigL,Fh); + FigkL=Mixadd(FigkL,Fk); + end; + end; + Tmp=[]; + for I=1:length(PaL)-1 + if ~Member(I,SeL) + Tmp=[Tmp,I]; + end; + end; + SeL=Tmp; + HIDDENDATA=[]; + for I=1:length(SeL) + Tmp=PaL(SeL(I)); + Tmp1=PointonCurve(Tmp,Fh); + Tmp=PaL(SeL(I)+1); + Tmp2=PointonCurve(Tmp,Fh); + if I==1 + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + if Member(SeL(I)-1,SeL) + Q=Tmp2; SQ=PaL(SeL(I)+1); + else + Tmp=Invperspt(SP,Fh,Fk); + TP=Mixop(2,Tmp); + Tmp=Invperspt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp); + HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); + P=Tmp1; SP=PaL(SeL(I)); + Q=Tmp2; SQ=PaL(SeL(I)+1); + end; + end; + end; + if length(SeL)>0 + if norm(P-Q)>Eps(1) // + Tmp=Invperspt(SP,Fh,Fk); + TP=Mixop(2,Tmp); + Tmp=Invperspt(SQ,Fh,Fk); + TQ=Mixop(2,Tmp); + HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); + else + HIDDENDATA=Mixadd(HIDDENDATA,Fk); + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin Binary files differnew file mode 100644 index 00000000..dff5f719 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci new file mode 100644 index 00000000..dad4f4ef --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci @@ -0,0 +1,4 @@ +function N=Numptcrv(Fig) + N=size(Fig,1) +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin Binary files differnew file mode 100644 index 00000000..544abced --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci new file mode 100644 index 00000000..20a86640 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci @@ -0,0 +1,115 @@ +// s : 2014.06.22 +// 2014.08.26 debugged 1,-1 => "+","-" +// 2014.09.07 Objjoin added +// 2016.10.09 Np in Spacecurve changed + +function Out=Objcurve(varargin) + global OBJFIGNO OBJJOIN + Eps=10^(-6); + Args=varargin; + Nargs=length(Args) + Tmp=Args(1); + PtL=Flattenlist(Tmp); + PL=list(); + for J=1:length(PtL) + Tmp=PtL(J); + for K=1:size(Tmp,1) + PL=lstcat(PL,list(Tmp(K,:))) + end; + end; + Closed=norm(PL(length(PL))-PL(1))<Eps + Pstr="xy"; + Tmp=Args(Nargs) + if type(Tmp)==10 then + Pstr=Tmp; + Nargs=Nargs-1 + end; + Sz=0.1; + Np=4; + if Nargs>=2 then + Sz=Args(2) + end; + if Nargs>=3 then + Np=Args(3) + end; + Assign("Sz",Sz) + if Pstr=="xy" then + Vz=[0,0,1]; + Fs=Assign("[Sz*cos(t),Sz*sin(t),0]") + end; + if Pstr=="yz" then + Vz=[1,0,0]; + Fs=Assign("[0,Sz*cos(t),Sz*sin(t)]") + end; + if Pstr=="zx" then + Vz=[0,1,0]; + Fs=Assign("[Sz*sin(t),0,Sz*cos(t)]") + end; + Gc0=Spacecurve(Fs,"t=[0,2*%pi]","N="+string(Np));//16.10.09 + P=PL(1); Q=PL(2); R=PL(length(PL)-1); + PQ1=Q-P; + if ~Closed then + PQ2=PQ1 + else + PQ2=P-R + end; + Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2); + Vp1=Vp/norm(Vp); + Theta=acos(min(Dotprod(Vz,Vp1),1)); + Vj=Crossprod(Vz,Vp1); + if norm(Vj)<Eps then + Vj=Vz + end; + Gc1=Rotate3data(Gc0,Vj,Theta); + CL=list(Translate3data(Gc1,P)); + for J=2:(length(PL)-1) + P=PL(J); Q=PL(J+1); + PQ2=Q-P; + if norm(PQ2)<Eps then + continue + end; + Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2); + Vp2=Vp/norm(Vp); + Theta=acos(min(Dotprod(Vp1,Vp2),1)); + Vj=Crossprod(Vp1,Vp2); + if norm(Vj)<Eps then + Vj=Vp1 + end; + Gc2=Rotate3data(Gc1,Vj,Theta); + CL=lstcat(CL,list(Translate3data(Gc2,P))); + PQ1=PQ2; + Vp1=Vp2; + Gc1=Gc2; + end; + if ~Closed then + Vp2=(Q-P)/norm(Q-P); + Theta=acos(min(Dotprod(Vp1,Vp2),1)); + Vj=Crossprod(Vp1,Vp2); + if norm(Vj)<Eps then + Vj=Vp1 + end; + Gc3=Rotate3data(Gc1,Vj,Theta); + CL=lstcat(CL,list(Translate3data(Gc3,Q))) + end; + Objname(); // from 140907 + Join=Objjoin(); + Objjoin(1); // upto + GL1=CL(1); + for J=2:length(CL) + GL2=CL(J); + Dt=Objrecs(GL1,GL2,"-"); + GL1=Dt(2); + if J==2 then + GL0=Dt(1) + end; + end; + if ~Closed then + Objpolygon(CL(1),"-"); + N=length(CL); + Objpolygon(CL(N),"+") + else + Objrecs(GL1,GL0,"-") + end; + Out=CL + OBJJOIN=Join; // 140907 +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin Binary files differnew file mode 100644 index 00000000..9b530ae6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci new file mode 100644 index 00000000..e8a80ff3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci @@ -0,0 +1,9 @@ +// s: 2014.09.07 + +function Out=Objjoin(varargin) + global OBJJOIN + if length(varargin)>0 + OBJJOIN=abs(sign(varargin(1))) + end; + Out=OBJJOIN +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin Binary files differnew file mode 100644 index 00000000..c1e415ab --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci new file mode 100644 index 00000000..6c523fc2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci @@ -0,0 +1,11 @@ +// s: 2014.09.07 + +function Objname() + global OBJFIGNO OBJJOIN + if OBJJOIN==0 then + OBJFIGNO=OBJFIGNO+1; + Gname="ketfig"+string(OBJFIGNO); + Printobjstr("# "+Gname); + Printobjstr("g "+Gname); + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin Binary files differnew file mode 100644 index 00000000..ad6e0eba --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci new file mode 100644 index 00000000..ba5b346a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci @@ -0,0 +1,65 @@ +// s : 2014.06.22 +// 14.09.07 Objjoin added + +function Out=Objpolygon(varargin) + global OBJFIGNO OBJJOIN + Eps=10^(-6); + Args=varargin; + Nargs=length(Args); + Tmp=Args(1); + PtL=Flattenlist(Tmp); + PL=list(); + for J=1:length(PtL) + Tmp=PtL(J); + for K=1:size(Tmp,1) + PL=lstcat(PL,list(Tmp(K,:))) + end; + end; + Sel=Args(Nargs); Nargs=Nargs-1; + Objname(); // 140907 + for J=1:length(PL) + P=PL(J); + if (length(P)<4) | (P(4)==0) then + Np=Writeobjpoint(P); + PL(J)=[P(1:3),Np] + end; + end; + if Nargs==1 then + Tmp=PL(1); + Cen=Tmp(1:3); + Nc=Tmp(4) + else + Tmp=Args(2); + if length(Tmp)==1 then + Tmp1=PL(Tmp); + Cen=Tmp1(1:3); + Nc=Tmp(4) + else + Cen=Tmp; + Nc=Writeobjpoint(Cen) + end; + end; + for J=1:length(PL) + if J<length(PL) then + Je=J+1 + else + Je=1 + end; + Pt1=Cen; + PLj=PL(J); PLje=PL(Je); + Pt2=PLj(1:3); Pt3=PLje(1:3); + if norm(Crossprod(Pt2-Pt1,Pt3-Pt1))<Eps then + continue + end; + P1=sprintf("%1d",Nc); + P2=sprintf("%1d",PLj(4)) + P3=sprintf("%1d",PLje(4)) + if Sel=="+" then // 6.22 + Str="f "+P1+" "+P2+" "+P3+" " + else + Str="f "+P1+" "+P3+" "+P2+" " + end; + Printobjstr(Str) + end; + Out=PL +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin Binary files differnew file mode 100644 index 00000000..a0fdf444 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci new file mode 100644 index 00000000..c33e23a8 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci @@ -0,0 +1,25 @@ +// s : 2014.06.22 +// 14.09.07 Objjoin added + +function Out=Objpolyhedron(Vertex,Face) + global NPOINT OBJFIGNO; + OBJFIGNO=OBJFIGNO+1; + Ninit=NPOINT; + Objname(); // 140907 + for N=1:length(Vertex) + P=Vertex(N); + Np=Writeobjpoint(P); + Vertex(N)=[P(1:3),Np] + end; + for N=1:length(Face) + F=Face(N)+Ninit; + Face(N)=F; + Str="f" + for J=1:length(F) + P=sprintf("%1d",F(J)); + Str=Str+" "+P + end; + Printobjstr(Str) + end; + Out=list(Vertex,Face) +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin Binary files differnew file mode 100644 index 00000000..4f7b55de --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci new file mode 100644 index 00000000..d8775fb3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci @@ -0,0 +1,87 @@ +// s : 2014.06.22 +// 2014.09.07 Objjoin added + +function Out=Objrecs(varargin) + global OBJFIGNO OBJJOIN + Eps=10^(-6); + Args=varargin; + Nargs=length(Args); + Tmp=Args(1); + PtL=Flattenlist(Tmp); + PL1=list(); + for J=1:length(PtL) + Tmp=PtL(J); + for K=1:size(Tmp,1) + PL1=lstcat(PL1,list(Tmp(K,:))) + end; + end; + Sel=Args(Nargs); Nargs=Nargs-1; + Objname(); // // 140907 + for J=1:length(PL1) + P=PL1(J) + if (length(P)<4) | (P(4)==0) then + Np=Writeobjpoint(P); + PL1(J)=[P(1:3),Np]; + end; + end; + Tmp=Args(2); + if (type(Tmp)==1) & (size(Tmp,1)==1) then + Drv=Tmp; + Len=norm(Drv); + PL2=list(); + for J=1:length(PL1) + Tmp=PL1(J); + P=Tmp(1:3)+Drv; + Np=Writeobjpoint(P); + PL2=lstcat(PL2,list([P(1:3),Np])); + if J<length(PL1) then + Vec=PL1(J+1)-PL1(J); + if norm(Vec)>Eps then + Tmp1=Crossprod(Drv,Vec); + Tmp2=Crossprod(Tmp1,Vec); + Tmp3=Dotprod(Tmp2,Drv); + if Tmp3<-Eps then + Tmp2=-Tmp2 + end; + Drv=Len/norm(Tmp2)*Tmp2 + end + end + end + else + PtL=Flattenlist(Tmp); + PL2=list(); + for J=1:length(PtL) + Tmp=PtL(J); + for K=1:size(Tmp,1) + PL2=lstcat(PL2,list(Tmp(K,:))) + end; + end; + for J=1:length(PL2) + P=PL2(J); + if (length(P)<4) | (P(4)==0) then + Np=Writeobjpoint(P); + PL2(J)=[P(1:3),Np] + end; + end; + end; + Printobjstr("vt 0 0"); + Printobjstr("vt 1 0"); + Printobjstr("vt 1 1"); + Printobjstr("vt 0 1"); + for J=2:length(PL1) + P1=sprintf("%1d",Op(4,PL1(J-1))); + P2=sprintf("%1d",Op(4,PL2(J-1))); + P3=sprintf("%1d",Op(4,PL2(J))); + P4=sprintf("%1d",Op(4,PL1(J))); + N1=""; N2=""; N3=""; N4=""; + if Sel=="+" then // 6.22 + Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" "; + Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4; + else + Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" "; + Str=Str+P3+"/3/"+N3+" "+P2+"/2/"+N2; + end; + Printobjstr(Str) + end; + Out=list(PL1,PL2) +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin Binary files differnew file mode 100644 index 00000000..122e0986 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci new file mode 100644 index 00000000..15543b8a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci @@ -0,0 +1,114 @@ +// s : 2014.06.22 +// e : 2014.07.18 +// Objsurf, Objthicksurf : Range argments changed +// 2014.09.07 Objjoin added + +function Out=Objsurf(varargin) + global OBJFIGNO OBJJOIN + Args=varargin; + Nargs=length(Args); + Sel=Args(Nargs); Nargs=Nargs-1; + Rf=Args(1); + N=2; + Mg=0; Ng=0; + if type(Args(N))==1 then + if length(Args(N))>2 then + U=Args(N); + Mg=length(U)-1; + N=N+1; + elseif length(Args(N))==2 then + Intab=Args(N); + Ag=Intab(1); Bg=Intab(2); + N=N+1; + else + Ag=Args(N); Bg=Args(N+1); + N=N+2; + end; + else // when type(Args(N))==10 + Tmp0=Args(N); + Tmp=mtlb_findstr("=",Tmp0); + if length(Tmp)>0 then + Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); + end; + Intab=evstr(Tmp0); + Ag=Intab(1); Bg=Intab(2); + N=N+1; + end; + if type(Args(N))==1 then + if length(Args(N))>2 then + V=Args(N); + Ng=length(V)-1; + N=N+1; + elseif length(Args(N))==2 then + Intab=Args(N); + Cg=Intab(1); Dg=Intab(2); + N=N+1; + else + Cg=Args(N); Dg=Args(N+1); + N=N+2; + end; + else // when type(Args(N))==10 + Tmp0=Args(N); + Tmp=mtlb_findstr("=",Tmp0); + if length(Tmp)>0 then + Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); + end; + Intab=evstr(Tmp0); + Cg=Intab(1); Dg=Intab(2); + N=N+1; + end; + if Mg==0 then + Mg=Args(N); + N=N+1; + U=[]; + for J=1:(Mg+1) + U=[U,Ag+(J-1)/Mg*(Bg-Ag)]; + end; + end; + if Ng==0 then + Ng=Args(N); + V=[]; + for K=1:(Ng+1) + V=[V,Cg+(K-1)/Ng*(Dg-Cg)]; + end; + end; + Objname(); // // 140907 + PL=list(); + for J=1:(Mg+1) + for K=1:(Ng+1) + P=Rf(U(J),V(K)); + Np=Writeobjpoint(P) + PL=lstcat(PL,list([P,Np])); + end; + end; + Idx=1:(Ng+1):(Ng+1)*Mg+1; + Pus=Mixsub(Idx,PL); + Idx=(Ng+1):(Ng+1):(Ng+1)*(Mg+1); + Pue=Mixsub(Idx,PL); + Idx=1:1:Ng+1; + Pvs=Mixsub(Idx,PL); + Idx=(Ng+1)*Mg+1:1:(Ng+1)*(Mg+1); + Pve=Mixsub(Idx,PL); + Printobjstr("vt 0 0"); + Printobjstr("vt 1 0"); + Printobjstr("vt 1 1"); + Printobjstr("vt 0 1"); + for J=1:Mg + for K=1:Ng + P1=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K))) + P2=sprintf("%1d",Op(4,PL((Ng+1)*J+K))) + P3=sprintf("%1d",Op(4,PL((Ng+1)*J+K+1))) + P4=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K+1))) + N1=""; N2=""; N3=""; N4=""; + if Sel=="+" then // 6.22 + Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" "; + Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4; + else + Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" "; + Str=Str+P3+"/3/"+N3+" "+P2+"/2/",N2; + end; + Printobjstr(Str) + end; + end; + Out=list(U,V,Pus,Pue,Pvs,Pve) +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin Binary files differnew file mode 100644 index 00000000..733ab14d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci new file mode 100644 index 00000000..808924a4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci @@ -0,0 +1,7 @@ +// s : 2014.08.25 + +function Objsymb(Symb,Thick,Face,Dir) + for J=1:length(Symb) + Objcurve(Symb(J),Thick,Face,Dir); + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin Binary files differnew file mode 100644 index 00000000..6c85bcca --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci new file mode 100644 index 00000000..42fde6a5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci @@ -0,0 +1,123 @@ +// s : 2014.06.22 +// e : 2014.07.18 +// Objsurf, Objthicksurf : Range argments changed +// 14.09.07 Objjoin added + +function Out=Objthicksurf(varargin) + global OBJJOIN + Args=varargin; + Nargs=length(Args) + Sel=Args(Nargs); Nargs=Nargs-1; + Selsurf=part(Sel,1); // from 6.22 + Selside=["0","0","0","0"]; // wesn + Tmp=mtlb_findstr(Sel,"w"); + if length(Tmp)>0 then + Selside(1)=part(Sel,Tmp+1) + end; + Tmp=mtlb_findstr(Sel,"e"); + if length(Tmp)>0 then + Selside(2)=part(Sel,Tmp+1) + end; + Tmp=mtlb_findstr(Sel,"s"); + if length(Tmp)>0 then + Selside(3)=part(Sel,Tmp+1) + end; + Tmp=mtlb_findstr(Sel,"n"); + if length(Tmp)>0 then + Selside(4)=part(Sel,Tmp+1) + end; + Nfth=Args(Nargs-2); + Thick1=Args(Nargs-1); + Thick2=Args(Nargs); + Nargs=Nargs-3; // upto 6.22 + Rfth=Args(1); // 6.22 + N=2; + Mg=0; Ng=0; + if type(Args(N))==1 then + if length(Args(N))>2 then + U=Args(N); + Mg=length(U)-1; + N=N+1; + elseif length(Args(N))==2 then + Intab=Args(N); + Ag=Intab(1); Bg=Intab(2); + N=N+1; + else + Ag=Args(N); Bg=Args(N+1); + N=N+2; + end; + else // when type(Args(N))==10 + Tmp0=Args(N); + Tmp=mtlb_findstr("=",Tmp0); + if length(Tmp)>0 then + Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); + end; + Intab=evstr(Tmp0); + Ag=Intab(1); Bg=Intab(2); + N=N+1; + end; + if type(Args(N))==1 then + if length(Args(N))>2 then + V=Args(N); + Ng=length(V)-1; + N=N+1; + elseif length(Args(N))==2 then + Intab=Args(N); + Cg=Intab(1); Dg=Intab(2); + N=N+1; + else + Cg=Args(N); Dg=Args(N+1); + N=N+2; + end; + else // when type(Args(N))==10 + Tmp0=Args(N); + Tmp=mtlb_findstr("=",Tmp0); + if length(Tmp)>0 then + Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); + end; + Intab=evstr(Tmp0); + Cg=Intab(1); Dg=Intab(2); + N=N+1; + end; + if Mg==0 then + Mg=Args(N); + N=N+1; + U=[]; + for J=1:(Mg+1) + U=[U,Ag+(J-1)/Mg*(Bg-Ag)]; + end; + end; + if Ng==0 then + Ng=Args(N); + V=[]; + for K=1:(Ng+1) + V=[V,Cg+(K-1)/Ng*(Dg-Cg)]; + end; + end; + Objname(); // 140907 from + Join=OBJJOIN; + OBJJOIN=1; // upto + deff("Out=F1(u,v)","Out=Rfth(u,v)+Thick1*Nfth(u,v)"); + deff("Out=F2(u,v)","Out=Rfth(u,v)+Thick2*Nfth(u,v)"); + Dt1=Objsurf(F1,U,V,Selsurf); + if Selsurf=="+" then Tmp="-"; else Tmp="+"; end; + Dt2=Objsurf(F2,U,V,Tmp); + Out=list(Dt1,Dt2); //from 06.22 + if Selside(1)~="0" then + Dt=Objrecs(Dt1(3),Dt2(3),Selside(1)); + Out=lstcat(Out,list(Dt)); + end + if Selside(2)~="0" then + Dt=Objrecs(Dt1(4),Dt2(4),Selside(2)); + Out=lstcat(Out,list(Dt)); + end + if Selside(3)~="0" then + Dt=Objrecs(Dt1(5),Dt2(5),Selside(3)); + Out=lstcat(Out,list(Dt)); + end + if Selside(4)~="0" then + Dt=Objrecs(Dt1(6),Dt2(6),Selside(4)); + Out=lstcat(Out,list(Dt)); + end; // upto 6.22 + OBJJOIN=Join // 140907 +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin Binary files differnew file mode 100644 index 00000000..e90f633d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci new file mode 100644 index 00000000..519bc9da --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci @@ -0,0 +1,35 @@ +// 08.05.19 + +// Structure changed +// 09.10.11 +// 10.01.10 available for plotdata +// 10.01.12 available for Dataindexed +// 10.01.16 + +function C=Op(N,Data) + C=[]; + if Mixtype(Data)>1 + C=Mixop(N,Data); + return; + end; + if type(Data)==10 + if size(Data,2)==1 + C=part(Data,N:N); + else + C=Data(N) + end; + return; + end; + if type(Data)==1 + if size(Data,1)==1 + C=Data(N); + else + Din=Dataindex(Data); + if size(Din,1)==1 + C=Data(N,:); + else + C=Data(Din(N,1):Din(N,2),:); + end; + end; + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin Binary files differnew file mode 100644 index 00000000..3935c2e7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci new file mode 100644 index 00000000..4007e1b3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci @@ -0,0 +1,106 @@ + +// +// 10.01.10 filename written +// 13.05.20 openfile error tackled +// creator and date recorded +// 13.11.01 Beginpicture joined optionally + +function Openfile(varargin) + global Wfile FID; + + function Out=Datecount(F) + Tmp1=fileinfo(F); + Tmp=getdate(Tmp1(7)); + Year=Tmp(1); + Sec=((Tmp(4)-1)*24+Tmp(7))*3600+Tmp(8)*60+Tmp(9); + Out=[Year,Sec]; + endfunction + + function Out=Datestr(F) + if F~="" then + Tmp1=fileinfo(F); + Tmp=getdate(Tmp1(7)); + else + Tmp=getdate(); + end; + Year=Tmp(1); + Month=Tmp(2); + Day=Tmp(6); + Hour=Tmp(7); + Min=Tmp(8); + D=string(Year)+"-"+string(Month)+"-"+string(Day); + T=string(Hour)+":"+string(Min); + Out=D+" "+T; + endfunction + + File=varargin(1); + Bflg=0; + Creator=''; + Cflg=0; + Nargs=length(varargin); + for N=2:Nargs + Tmp=varargin(N); + K=mtlb_findstr(Tmp,"="); + if length(K)>0 then + Creator=part(Tmp,(K+1):length(Tmp)); + Cflg=1; + else + Bflg=1; + Unitstr=Tmp + end + end; + Recentf=''; + Tmp1=dir("*.sce"); + Files=Tmp1(2); + if size(Files,1)>0 then + Recentf=Files(1,:); + Dt=Datecount(Recentf); + for J=2:size(Files,1) + F=Files(J,:); + D=Datecount(F); + if D(1)~=Dt(1) then + if D(1)>Dt(1) then + Recentf=F; + Dt=D; + end + continue + end + if D(2)>Dt(2) then + Recentf=F; + Dt=D; + end + end; + end; + StrW="%%% "+File+" "+Datestr("") + StrC="%%% "+Creator; + if Cflg==0 then + if Recentf~="" then + StrC=StrC+Recentf+" "+Datestr(Recentf); + end + end + if File =='' then + Wfile='default'; + else +// errcatch(4,"continue"); // 2017.02.18 from +// Tmp=FID; +// if iserror(4) then +// FID=[]; +// errclear(4); +// end; +// if FID~=[] then +// mclose(FID); +// FID=[]; +// end +// errcatch(4,"kill"); // 2017.02.18 upto + FID=mopen(File,'w'); + Wfile=File; + end + if Wfile=='default' + mprintf('%s\n%s\n',StrW,StrC); + else + mfprintf(FID,'%s\n%s\n',StrW,StrC); + end + if Bflg==1 then + Beginpicture(Unitstr) + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin Binary files differnew file mode 100644 index 00000000..e72281c1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci new file mode 100644 index 00000000..e902ce5d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci @@ -0,0 +1,33 @@ +// s : 2014.06.22 +// e : 14.09.07 + +function Out=Openobj(Fnm) + global OBJFMT NPOINT NNORM OBJSCALE OBJFIGNO Wfile FID OBJJOIN + OBJFMT= "%7.4f"; + NPOINT= 0; + NNORM=0; + OBJSCALE=1; + OBJFIGNO=0; + OBJJOIN=0; // 140906 + if Fnm =='' then + Wfile='default'; + else +// errcatch(4,"continue"); //17.02.18from +// Tmp=FID; +// if iserror(4) then +// FID=[]; +// errclear(4); +// end; +// if FID~=[] then +// mclose(FID); +// FID=[]; +// end +// errcatch(4,"kill"); //17.02.18upto + if length(mtlb_findstr(Fnm,".obj"))==0 + Fnm=Fnm+".obj"; + end; + FID=mopen(Fnm,'w'); + Wfile=Fnm; + Out=Wfile; + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin Binary files differnew file mode 100644 index 00000000..a8d4c7fc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci new file mode 100644 index 00000000..a3056f66 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci @@ -0,0 +1,29 @@ +// 08.05.31 + +function Openpar(varargin) + global Wfile FID; + Nargs=length(varargin); + Tmp=varargin(1); + Tmp1=Strop(1,Tmp); + if Tmp1=='\' | Tmp1=='Â¥' + Namestr=Tmp; + N=2; + else + Namestr='\tmp'; + N=1; + end + Habastr=varargin(N); + if Nargs>N + Posstr='['+varargin(N+1)+']'; + else + Posstr='[c]' + end + Openphr(Namestr); + S='\begin{minipage}'+Posstr+'{'+Habastr+'}%'; + if Wfile=='default' + mprintf('%s\n',S); + else + mfprintf(FID,'%s\n',S); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin Binary files differnew file mode 100644 index 00000000..f9d281d0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci new file mode 100644 index 00000000..461549e9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci @@ -0,0 +1,12 @@ +// 08.05.31 + +function Openphr(Str) + global Wfile FID + S='\def'+Str+'{%'; + if Wfile=='default' + mprintf('%s\n',S); + else + mfprintf(FID,'%s\n',S); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin Binary files differnew file mode 100644 index 00000000..877c0a04 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci new file mode 100644 index 00000000..edf043ca --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci @@ -0,0 +1,92 @@ +// +// 09.12.25 +// 11.05.25 +// 14.03.05 MARKLEN +// 17.03.19 VL=[] => VL=""; + +function Openpicture(ul) + global Wfile FID XMIN XMAX YMIN YMAX ULEN + global MilliIn MARKLEN MARKLENNow PenThickInit; + Tmp=Doscaling([XMIN,YMIN]); + Xm=Tmp(1); + Ym=Tmp(2); + Tmp=Doscaling([XMAX,YMAX]); + XM=Tmp(1); + YM=Tmp(2); + Dx=XM-Xm; + Dy=YM-Ym; + Sym='.0123456789 +-*/'; + Tmp=ascii(Sym); + SL=Sym; + OL='+-*/'; + if ul~='' + ULEN=ul; + end + Is=1; + VL=""; // 17.03.19 + Ucode=ascii(ULEN); + for I=1:length(Ucode) + C=char(Ucode(I)); + if mtlb_findstr(SL,C)~=[] + if mtlb_findstr(OL,C)~=[] + Str=char(Ucode(Is:(I-1))); + VL=VL+Str+C; + Is=I+1; + end + else + Unit=char(Ucode(I:(I+1))); + Str=char(Ucode(Is:(I-1))); + VL=VL+Str; + break; + end; + end; + Valu=evstr(VL); + Str=string(Valu); + ULEN=Str+Unit; + if Unit=='cm' + MilliIn=1000/2.54*Valu; + end + if Unit=='mm' + MilliIn=1000/2.54*Valu/10; + end + if Unit=='in' + MilliIn=1000*Valu; + end + if Unit=='pt' + MilliIn=1000/72.27*Valu; + end + if Unit=='pc' + MilliIn=1000/6.022*Valu; + end + if Unit=='bp' + MilliIn=1000/72*Valu; + end + if Unit=='dd' + MilliIn=1000/1238/1157/72.27*Valu; + end + if Unit=='cc' + MilliIn=1000/1238/1157/72.27*12*Valu;p + end + if Unit=='sp' + MilliIn=1000/72.27/65536*Valu/10; + end + MARKLEN=MARKLENNow*1000/2.54/MilliIn; + if Wfile=='default' + mprintf('%s%s%s\n','{\unitlength=',ULEN,'%'); + mprintf('%s\n','\begin{picture}%'); + mprintf('%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',... + '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); + Str='\special{pn '+string(PenThickInit)+'}%'; + mprintf('%s\n',Str); + mprintf('%s\n','%'); + else + mfprintf(FID,'%s%s%s\n','{\unitlength=',ULEN,'%'); + mfprintf(FID,'%s\n','\begin{picture}%'); + mfprintf(FID,'%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',... + '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); //11.05.25 + Str='\special{pn '+string(PenThickInit)+'}%'; + mfprintf(FID,'%s\n',Str); + mfprintf(FID,'%s\n','%'); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin Binary files differnew file mode 100644 index 00000000..eca8a277 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci new file mode 100644 index 00000000..8889de32 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci @@ -0,0 +1,42 @@ +function Ovalbox(varargin) + global XMIN XMAX YMIN YMAX + Nargs=length(varargin); + Pos=varargin(1); + Dr=varargin(2); + StrV=varargin(3); + R=0.2; + NDflg=0; + for I=4:Nargs + Tmp=varargin(I); + if type(Tmp)==1 + R=Tmp; + else + if part(Tmp,1)=='-' + NDflg=1; + Tmp1=part(Tmp,2:length(Tmp)); + Cmdstr=strsubst(Tmp1,'*','G1'); + end; + end; + end; + Xr=[XMIN,XMAX]; + Yr=[YMIN,YMAX]; + Uv=0.6; Uh=0.8; + N=length(StrV); + W=Uh; H=Uv*N; + Setwindow([-W/2,W/2],[-H,0]); + G1=Ovaldata([0,-H/2],W/2,H/2,R); + Openphr('\ketpictmp'); + Beginpicture('1cm'); + if NDflg==0 + Drwline(G1); + else + execstr(Cmdstr); + end; + for I=1:N + Letter([0,Uv/2-Uv*I],'c',Op(I,StrV)) + end; + Endpicture(0); + Closephr(); + Setwindow(Xr,Yr); + Letter(Pos,Dr,'\ketpictmp'); +endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin Binary files differnew file mode 100644 index 00000000..a33c17e9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci new file mode 100644 index 00000000..823fc8c4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci @@ -0,0 +1,31 @@ +// e : 2015.11.15 +function Out=Ovaldata(varargin) + global XMIN XMAX YMIN YMAX + Nargs=length(varargin); + if Nargs<=1 + Eps=1.0*10^(-4); + C=[(XMIN+XMAX)/2,(YMIN+YMAX)/2]; + Dx=XMAX-C(1)-Eps; + Dy=YMAX-C(2)-Eps; + N=1; + else + C=varargin(1); + Dx=varargin(2); + Dy=varargin(3); + N=4; + end; + Rc=0.2; + if N<=Nargs + Rc=varargin(N)*Rc; // 15.11.15 + end; + Out=[]; + P=C+[Dx-Rc,Dy-Rc]; + Tmp1=Circledata(P,Rc,'R=[0,%pi/2]','N=10'); + Tmp2=Listplot(C+[Dx-Rc,Dy],C+[0,Dy]); + Tmp3=Listplot(C+[Dx,0],C+[Dx,Dy-Rc]); + G=Joincrvs(Tmp3,Tmp1,Tmp2); + Tmp=Reflectdata(G,[C,C+[0,1]]); + G=Joincrvs(G,Tmp); + Tmp=Reflectdata(G,[C,C+[1,0]]); + Out=Joincrvs(G,Tmp); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin Binary files differnew file mode 100644 index 00000000..e86a5592 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci new file mode 100644 index 00000000..82ac7c4f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci @@ -0,0 +1,20 @@ +// 08.06.18 + +function P=Paramark(varargin) + Nargs=length(varargin); + PA=varargin(1); + PB=varargin(2); + PC=varargin(3); + R=0.5; + if Nargs>=4 + R=varargin(4)*R; + end + U=R*(PA-PB)/Vecnagasa(PA,PB); + V=R*(PC-PB)/Vecnagasa(PC,PB); + if Gaiseki(PA-PB,PC-PB)~=0 + P=Listplot([PB+U,PB+U+V,PB+V]); + else + P=[]; + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin Binary files differnew file mode 100644 index 00000000..3479482b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci new file mode 100644 index 00000000..ce7e0d76 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci @@ -0,0 +1,18 @@ +// 08.05.30 + +function Out=ParamonCurve(P,N,PtL) +// PtL=Plt; + if N==size(PtL,1) + Out=N; + else + Pa=PtL(N,:); + Pb=PtL(N+1,:); + V=Pb-Pa; + W=P-Pa; + D2=V(1)^2+V(2)^2; + S=(V(1)*W(1)+V(2)*W(2))/D2; + S=min(max(S,0),1); + Out=N+S; + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin Binary files differnew file mode 100644 index 00000000..d3aeafcc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci new file mode 100644 index 00000000..83661787 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci @@ -0,0 +1,35 @@ +// 09.10.03 + +function Out=Paramoncrv(varargin) + Eps=10^(-8); + Nargs=length(varargin); + P=varargin(1); + Gdata=varargin(Nargs); + if size(P,1)>1 + Tmp=P; P=Gdata; Gdata=Tmp; + end; + if Nargs==2 + Tmp=Nearestpt(P,Gdata); + Out=Mixop(2,Tmp); + return; + end; + N=varargin(2); + PtL=Gdata; + if N==size(PtL,1) + Out=N; + else + Pa=PtL(N,:); + Pb=PtL(N+1,:); + V=Pb-Pa; + W=P-Pa; + D2=norm(V)^2; + if D2<Eps + Out=0; + return; + end; + S=Dotprod(V,W)/D2; + S=min(max(S,0),1); + Out=N+S; + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin Binary files differnew file mode 100644 index 00000000..79569617 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci new file mode 100644 index 00000000..4e3effdc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci @@ -0,0 +1,140 @@ +// 08.06.18 (N) +// 08.12.18 +// 09.03.12 +// 09.12.31 (gsort) +// 13.10.19 ( __ added to variables ) +// 14.10.24 N,D,E => N__, etc +// 14.12.11 Assign used +// 15.11.16 N changed to number of intervals +// 16.12.13 in case of T1=T2 + +function P__=Paramplot(varargin) + Eps__=10^(-5); + Nargs__=length(varargin); + if type(varargin(1))==13 + Fnflg__=1; + Fnx__=varargin(1); + Fny__=varargin(2); Is__=3; + if type(varargin(Is__))==13 + Fnflg__=Fnflg__+1; + Fnargx__=varargin(Is__); + Fnargy__=varargin(Is__+1); + Is__=Is__+2; + end; + else + Fnflg__=0; + Fnstr__=varargin(1); Is__=2; + end; + Rgstr__=varargin(Is__); Is__=Is__+1; + Range__=[0,2*%pi]; + N__=50; // Numpoints + E__=[]; // Exclusions + D__=%inf; // Discont + for I__=Is__:Nargs__ + Tmp__=varargin(I__); + K__=mtlb_findstr(Tmp__,'='); + Tmp1__=strsplit(Tmp__,[K__-1,K__]); + Tmp2__=ascii(Tmp1__(1,1)); + Lhs__=char(Tmp2__(1)); + Str__=Lhs__+'__='+Tmp1__(3,1); + execstr(Str__); + end; + K__=mtlb_findstr(Rgstr__,'='); + if K__~=[] + Tmp__=strsplit(Rgstr__,[K__-1,K__]); + Vname__=Tmp__(1,1); + Rng__=evstr(Tmp__(3,1)); + else + Vname__=Rgstr__; + Rng__=[XMIN,XMAX]; + end + T1__=Rng__(1); T2__=Rng__(2); +// Dt__=(T2__-T1__)/(N__-1); + Dt__=(T2__-T1__)/(N__); // 15.11.16 + if Fnflg__==0 + Str__=Assign(Fnstr__,Vname__,'t__'); + end; + if abs(Dt__)<Eps__ then // 16.12.13 + t__=T1__; + P__=evstr(Str__); + return; + end; + P__=[]; + E__=gsort(E__); + E__=E__(length(E__):-1:1); + E__=[E__,%inf]; + Tmp__=gsort(E__); + E__=Tmp__(length(Tmp__):-1:1); + Ke__=1; + for t__=T1__:Dt__:T2__ + Pa__=[]; + if t__-E__(Ke__)<-Eps__ + if Fnflg__==0 + Pa__=evstr(Str__); + else + if Fnflg__==1 + Pa__=[Fnx__(t__),Fny__(t__)]; + else + if type(Fnargx__)==1 + Tmp1__=Fnx__(t__); + else + Tmp1__=Fnx__(Fnargx__,t__); + end; + if type(Fnargy__)==1 + Tmp2__=Fny__(t__); + else + Tmp2__=Fny__(Fnargy__,t__); + end; + Pa__=[Tmp1__,Tmp2__]; + end; + end; + end + if abs(t__-E__(Ke__))<=Eps__ + if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf] + Pa__=[%inf,%inf]; + end + end + if t__-E__(Ke__)>Eps__ + if Fnflg__==0 + Pa__=evstr(Str__); + else + if Fnflg__==1 + Pa__=[Fnx__(t__),Fny__(t__)]; + else + if type(Fnargx__)==1 + Tmp1__=Fnx__(t__); + else + Tmp1__=Fnx__(Fnargx__,t__); + end; + if type(Fnargy__)==1 + Tmp2__=Fny__(t__); + else + Tmp2__=Fny__(Fnargy__,t__); + end; + Pa__=[Tmp1__,Tmp2__]; + end; + end; + Ke__=Ke__+1; + end + if Pa__~=[] + if Pa__(1)==%inf + P__=[P__; Pa__] + elseif P__==[] + P__=[Pa__]; + else + Tmp__=P__(size(P__,1),:); + if Tmp__(1)==%inf + P__=[P__;Pa__]; + elseif norm(Tmp__-Pa__)<D__ + P__=[P__;Pa__]; + else + P__=[P__;%inf,%inf;Pa__]; + end + end + end + end; + Tmp__=size(P__,1); + if P__(Tmp__,1)==%inf + P__=P__(1:Tmp__-1,:); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin Binary files differnew file mode 100644 index 00000000..468a99cd --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci new file mode 100644 index 00000000..5adb4837 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci @@ -0,0 +1,12 @@ +// 08.07.11 +// 10.01.02 + +function Out=Parapt(P) + global PHI THETA + x=P(1); + y=P(2); + z=P(3); + Xz=-x*sin(PHI)+y*cos(PHI); + Yz=-x*cos(PHI)*cos(THETA)-y*sin(PHI)*cos(THETA)+z*sin(THETA); + Out=[Xz,Yz]; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin Binary files differnew file mode 100644 index 00000000..a488103c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci new file mode 100644 index 00000000..0b4844df --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci @@ -0,0 +1,42 @@ +// 08.05.31 +// 09.03.06 + +function Ans=Partcrv(A,B,PkL) + Eps=10.0^(-3); + if type(A)==1 & length(A)==1 + // new part from + if A>B+Eps + Npt=Numptcrv(PkL); + Out1=Partcrv(A,Npt,PkL); + Out2=Partcrv(1,B,PkL); + Tmp=Ptstart(PkL)-Ptend(PkL); + if norm(Tmp)<Eps + Ans=Joincrvs(Out1,Out2); + else + Ans=Mix(Out1,Out2); + end; + return; + end; + // to here + Is=ceil(A); + Ie=floor(B); + PL=[]; + if A<Is-Eps + P=(Is-A)*PkL(Is-1,:)+(1-Is+A)*PkL(Is,:); + PL=[P]; + end + PL=[PL;PkL(Is:Ie,:)]; + if B>Ie+Eps + P=(1-B+Ie)*PkL(Ie,:)+(B-Ie)*PkL(Ie+1,:); + PL=[PL;P] + end + Ans=PL; + return + end; + Tmp=Nearestpt(A,PkL);// + Ta=Op(2,Tmp);// + Tmp=Nearestpt(B,PkL);// + Tb=Op(2,Tmp);// + Ans=Partcrv(Ta,Tb,PkL);// +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin Binary files differnew file mode 100644 index 00000000..5b652d87 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci new file mode 100644 index 00000000..5b3cd178 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci @@ -0,0 +1,34 @@ +// 08.09.13 +// 09.03.06 + +function PL=Partcrv3(T1,T2,Fk) + Eps=10^(-4); +// Tmp=Mixop(1,Fk); + // new part from + if T1>T2+Eps + Npt=size(Fk,1); + Out1=Partcrv3(T1,Npt,Fk); + Out2=Partcrv3(1,T2,Fk); + Tmp=Fk(1,:)-Fk(Npt,:); + if norm(Tmp)<Eps + PL=Joincrvs(Out1,Out2); + else + PL=Mix(Out1,Out2); + end; + return; + end; + // to here + Is=ceil(T1); + Ie=floor(T2); + PL=[]; + if T1<Is-Eps + P=(Is-T1)*Fk(Is-1,:)+(1-Is+T1)*Fk(Is,:); + PL=[P] + end; + PL=[PL;Fk(Is:Ie,:)]; + if T2>Ie+Eps + P=(1-T2+Ie)*Fk(Ie,:)+(T2-Ie)*Fk(Ie+1,:); + PL=[PL;P] + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin Binary files differnew file mode 100644 index 00000000..1678ce6b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci new file mode 100644 index 00000000..a8581b1b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci @@ -0,0 +1,27 @@ +// 13.05.03 + +function Out=Partframe(Tb,St,Ed) + G=Dividetable(Tb); + Gw=G(1); + Gt=G(2); + Gy=G(3); + Gwt=Tb(4); + Gwy=Tb(5); + Gat=lstcat(list(Gwt(1)),Gt,list(Gwt(2))); + Gay=lstcat(list(Gwy(1)),Gy,list(Gwy(2))); + Tmp1=Ptstart(Gat(St(1))); + Tmp2=Ptstart(Gay(St(2))); + Ps=[Tmp1(1),Tmp2(2)]; + Tmp1=Ptstart(Gat(Ed(1))); + Tmp2=Ptstart(Gay(Ed(2))); + Pe=[Tmp1(1),Tmp2(2)]; + Pars=Paramoncrv(Ps,Gw); + Pare=Paramoncrv(Pe,Gw); + if Pars<Pare then + Out=Partcrv(Pars,Pare,Gw); + else + Tmp1=Partcrv(Pars,Numptcrv(Gw),Gw); + Tmp2=Partcrv(1,Pare,Gw); + Out=Joincrvs(Tmp1,Tmp2); + end +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin Binary files differnew file mode 100644 index 00000000..13e1cb62 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci new file mode 100644 index 00000000..15d74ec4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci @@ -0,0 +1,7 @@ +// 08.09.13 + +function Out=PartitionPt() + global PARTITIONPT; + Out=PARTITIONPT; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin Binary files differnew file mode 100644 index 00000000..7e736e20 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci new file mode 100644 index 00000000..39c23c45 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci @@ -0,0 +1,100 @@ +// 08.09.13 +// 08.10.17 +// 09.05.27 +// 09.12.31 (gsort) + +function Out=Partitionseg(varargin) + global PARTITIONPT OTHERPARTITION; + Nargs=length(varargin); + Fig=varargin(1); + GL=varargin(2); N=3; + Eps0=10^(-5); + Eps=0.05; + if Nargs>2 + Eps=varargin(3); + end; + Eps2=0.2; + if Nargs>3 + Eps2=varargin(4); + end; + if Nargs>4 + Ns=varargin(5); + Other=Mixop(Ns,OTHERPARTITION); + else + Ns=1; + Other=[]; + OTHERPARTITION=[]; + for N=1:Mixlength(GL) + OTHERPARTITION=Mixadd(OTHERPARTITION,[]); + end; + end; + Npt=size(Fig,1); + ParL=[1,Npt,Other]; + for N=Ns:Mixlength(GL) + G=Mixop(N,GL); + if Fig==G + KouL=IntersectselfPp(Fig,Eps,Eps2); + else + KouL=IntersectcrvsPp(Fig,G,Eps,Eps2); + Tmp=Nearestpt(Ptstart(Fig),G); + Tmp1=Mixop(1,Tmp); + Tmp2=Mixop(2,Tmp); + Tmp3=Mixop(3,Tmp); + if Tmp3>Eps0 & Tmp3<Eps + Tmp1=Mix(Tmp1,1,floor(Tmp2)); + KouL=Mixadd(KouL,Tmp1); + end; + Tmp=Nearestpt(Ptend(Fig),G); + Tmp1=Mixop(1,Tmp); + Tmp2=Mixop(2,Tmp); + Tmp3=Mixop(3,Tmp); + if Tmp3>Eps0 & Tmp3<Eps + Tmp1=Mix(Tmp1,Numptcrv(Fig),floor(Tmp2)); + KouL=Mixadd(KouL,Tmp1); + end; + end; + for I=1:Mixlength(KouL) + Tmp=Mixop(I,KouL); + P=Mixop(1,Tmp); + S=Mixop(2,Tmp); + ParL=[ParL,S]; + K=Mixop(3,Tmp); + S=ParamonCurve(P,K,G); + Tmp=Mixop(N,OTHERPARTITION); + Tmp1=gsort([Tmp,S]); + Tmp1=Tmp1(length(Tmp1):-1:1); + Tmp2=[]; + for J=1:Mixlength(OTHERPARTITION) + Tmp3=Mixop(J,OTHERPARTITION); + if J~=N + Tmp2=Mixadd(Tmp2,Tmp3); + else + Tmp2=Mixadd(Tmp2,Tmp1); + end; + end; + OTHERPARTITION=Tmp2; + end; + end; + ParL=gsort(ParL); + ParL=ParL(length(ParL):-1:1); + ParL(1)=1; + Out=[ParL(1)]; + P=PointonCurve(ParL(1),Fig); + PARTITIONPT=Mix(P); + for I=1:length(ParL) + Tmp=ParL(I); + P=PointonCurve(Tmp,Fig); + Tmp1=Out(length(Out)); + Q=PointonCurve(Tmp1,Fig); + if norm(P-Q)>Eps + Out=[Out,Tmp]; +// P=PointonCurve(Tmp,Fig); + PARTITIONPT=Mixadd(PARTITIONPT,P); + end; + end; + if Out(length(Out))~=Npt + Out=[Out(1:length(Out)-1),Npt]; + end; + if length(Out)==1 Out=[1,Npt]; end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin Binary files differnew file mode 100644 index 00000000..e07e8ade --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci new file mode 100644 index 00000000..eb689ffe --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci @@ -0,0 +1,21 @@ +// 08.08.12 + +function Out=Perspt(P) + global FocusPoint EyePoint; + Tmp=P-FocusPoint; + X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3); + Tmp=EyePoint-FocusPoint; + E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); + Ca=E1/sqrt(E1^2+F1^2); + Sa=F1/sqrt(E1^2+F1^2); + X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1; + E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; + Cb=E2/sqrt(E2^2+G2^2); + Sb=G2/sqrt(E2^2+G2^2); + X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb; + E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb; + Yz=E3/(E3-X3)*Y3; + Zz=E3/(E3-X3)*Z3; + Out=[Yz,Zz]; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin Binary files differnew file mode 100644 index 00000000..c7fb3404 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci new file mode 100644 index 00000000..ea2c8e28 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci @@ -0,0 +1,7 @@ +// 08.08.17 + +function Out=PhFaceL() + global PHCUTPOINTL PHVERTEXL PHFACEL; + Out=PHFACEL; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin Binary files differnew file mode 100644 index 00000000..162ba3f6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci new file mode 100644 index 00000000..d5333cd1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci @@ -0,0 +1,7 @@ +// 08.08.22
+
+function Out=PhHiddenData()
+ global PHHIDDENDATA;
+ Out=PHHIDDENDATA;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin Binary files differnew file mode 100644 index 00000000..7c4526ca --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci new file mode 100644 index 00000000..1eae4bc9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci @@ -0,0 +1,7 @@ +// 08.08.17 + +function Out=PhVertexL() + global PHCUTPOINTL PHVERTEXL PHFACEL; + Out=PHVERTEXL; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin Binary files differnew file mode 100644 index 00000000..767e453e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci new file mode 100644 index 00000000..9c7806f5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci @@ -0,0 +1,173 @@ +// 08.08.17 +// 08.09.16 +// 10.01.02 +// 13.10.21 ( __ added to varibles ) +// 14.06.09 ( debugged -- the cause unknown ) + +function Out__=Phcutdata(VL__,FaceL__,PlaneD__) + global PHCUTPOINTL + Out__=[]; + EL__=[]; + Eps__=10^(-4); + for I__=1:Mixlength(FaceL__) + Face__=Mixop(I__,FaceL__); + for J__=1:length(Face__) + Nj__=J__+1; + if J__==length(Face__) + Nj__=1; + end; + N1__=Face__(J__); N2__=Face__(Nj__); + Tmp__=[N1__,N2__]; + Flg__=0; + for K__=1:Mixlength(EL__) + Tmp1__=Mixop(K__,EL__); + Tmp2__=[Tmp1__(2),Tmp1__(1)]; + if Tmp__==Tmp1__ | Tmp__==Tmp2__ + Flg__=1; + break; + end + end; + if Flg__==0 + EL__=Mixadd(EL__,Tmp__); + end; + end; + end; + Out0__=[]; + for I__=1:Mixlength(EL__) + Tmp__=Mixop(I__,EL__); + Tmp1__=Mixop(Tmp__(1),VL__); + Tmp2__=Mixop(Tmp__(2),VL__); + Out0__=Mixadd(Out0__, Spaceline([Tmp1__,Tmp2__])); + end; + if Mixtype(PlaneD__)~=1 + V1__=Mixop(1,PlaneD__); + Tmp__=Mixop(2,PlaneD__); + if length(Tmp__)>1 + d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); + else + d__=Tmp__; + end; + elseif type(PlaneD__)==1 + V1__=PlaneD__(1:3); + d__=PlaneD__(4); + else + K__=mtlb_findstr(PlaneD__,'='); + if K__>0 + Tmp1__=part(PlaneD__,1:K__-1); + Tmp2__=part(PlaneD__,K__+1:length(PlaneD__)); + PlaneD__=Tmp1__+'-('+Tmp2__+')'; + end; + x=0; y=0; z=0; + d__=-evstr(PlaneD__); + x=1; y=0; z=0; + Tmp1__=evstr(PlaneD__)+d__; + x=0; y=1; z=0; + Tmp2__=evstr(PlaneD__)+d__; + x=0; y=0; z=1; + Tmp3__=evstr(PlaneD__)+d__; + V1__=[Tmp1__,Tmp2__,Tmp3__]; + end; + if V1__==[0,0,0] + Out__=Out0__; + return; + end; + V3__=[1,0,0]; + Out1__=Rotate3data(Out0__,V1__,V3__); +// x=poly(0,'X'); + Tmp2__=Rotate3pt([1,0,0],V3__,V1__); + Tmp__=V1__(1)*Tmp2__(1)+V1__(2)*Tmp2__(2)+V1__(3)*Tmp2__(3); + x0__=d__/Tmp__; + t__=poly(0,'T'); + PtL__ =[]; + for I__=1:Mixlength(Out1__) + Tmp__=Mixop(I__,Out1__); + Tmp1__=Tmp__(1,:); Tmp2__=Tmp__(2,:); + P__=Tmp1__+t__*(Tmp2__-Tmp1__); + Tmp__=Tmp1__(1)+t__*(Tmp2__(1)-Tmp1__(1)); + if abs(coeff(Tmp__,1))<Eps__ + Tmp__=[]; + else + Tmp1__=coeff(Tmp__,1); + Tmp2__=x0__-coeff(Tmp__,0); + Tmp__=[Tmp2__/Tmp1__]; + end; + if length(Tmp__)>0 + Tmp__=Tmp__(1); + if (Tmp__>-Eps__) & (Tmp__<1+Eps__) + Tmp3__=horner(P__,Tmp__); + Tmp3__=Rotate3pt(Tmp3__,V3__,V1__); + if Tmp__<Eps__ + Tmp1__=Mixop(I__,EL__); + Tmp1__=Tmp1__(1); + Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__); + else + if Tmp__>1-Eps__ then + Tmp1__=Mixop(I__,EL__); + Tmp1__=Tmp1__(2); + Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__); + else + Tmp4__=MixS(Mixop(I__,EL__),Tmp3__); + end; + end; + Flg__=0; + for J__=1:Mixlength(PtL__) + Tmp__=Mixop(J__,PtL__); + Tmp__=Mixop(2,Tmp__); + if norm(Tmp3__-Tmp__)<Eps__ then + Flg__=1; + break; + end; + end; + if Flg__==0 + PtL__=Mixadd(PtL__,Tmp4__); + end; + end; + end; + end; + if Mixlength(PtL__)==0 + Out__=Out0__; + return + end; + PL__=Mix(Mixop(1,PtL__)); + QL__=Mixsub(2:Mixlength(PtL__),PtL__); + N__=Mixlength(QL__); + for I__=2:N__+1 + Tmp1__=Mixop(Mixlength(PL__),PL__); + Tmp1__=Mixop(1,Tmp1__); + for J__=1:Mixlength(QL__) + Tmp2__=Mixop(J__,QL__); + Tmp2__=Mixop(1,Tmp2__); + Flg__=0; + for K__=1:Mixlength(FaceL__) + Tmp3__=Mixop(K__,FaceL__); + if Member(Tmp1__(1),Tmp3__) & Member(Tmp1__(2),Tmp3__) & Member(Tmp2__(1),Tmp3__) & Member(Tmp2__(2),Tmp3__) + Flg__=1; + break; + end; + end; + if Flg__==1 + break; + end; + end; + J__=min(J__, Mixlength(QL__)); + PL__=Mixadd(PL__,Mixop(J__,QL__)); + Tmp1__=Mixsub(1:J__-1,QL__); + Tmp2__=Mixsub(J__+1:Mixlength(QL__),QL__); + QL__=Mixjoin(Tmp1__,Tmp2__); + if Mixlength(QL__)==0 + break; + end; + end; + PHCUTPOINTL=PL__; + Tmp__=[]; + for J__=1:Mixlength(PL__); + Tmp1__=Mixop(J__,PL__); + Tmp1__=Mixop(2,Tmp1__); + Tmp__=Mixadd(Tmp__,Tmp1__); + end; + Tmp1__=Mixop(1,PL__); + Tmp1__=Mixop(2,Tmp1__); + Tmp__=Mixadd(Tmp__,Tmp1__); + Out2__=Spaceline(Tmp__); + Out__=Mixadd(Out0__,Out2__); +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin Binary files differnew file mode 100644 index 00000000..5e7c757a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci new file mode 100644 index 00000000..879067ce --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci @@ -0,0 +1,184 @@ +// 08.08.17 +// 10.08.15 near line 25 or so +// 13.10.21 ( __ added to varibles ) + +function Out2__=Phcutoffdata(varargin) + global PHCUTPOINTL PHVERTEXL PHFACEL; + Eps__=10^(-4); + Out2__=[]; + VL__=varargin(1); + FaceL__=varargin(2); + PlaneD__=varargin(3); + Sgnstr__=varargin(4); + Fugou__=1; + if Sgnstr__=='-' | Sgnstr__=='n' Fugou__=-1; end; + Out0__=Phcutdata(VL__,FaceL__,PlaneD__); + PtL__=PHCUTPOINTL; + PHVERTEXL=VL__; + PHFACEL=FaceL__; + if PtL__==[] + Out2__=Out0__; + return; + end; + N1__=Mixlength(VL__); + Face__=[]; + for I__=1:Mixlength(PtL__); + Tmp__=Mixop(I__,PtL__); + Tmp3__=Mixop(1,Tmp__); // 2010.08.15 + Tmp1__=Tmp3__(1); Tmp2__=Tmp3__(2); // 2010.08.15 + if Tmp1__~=Tmp2__ + VL__=Mixadd(VL__,Mixop(2,Tmp__)); + N1__=N1__+1; + Tmp1__=N1__; + end; + Face__=[Face__,Tmp1__]; + PtL__(I__)=list(Mixop(1,Tmp__),Tmp1__); // 2010.08.15 +// Tmp2__=Mixsub(1:I__-1,PtL__); +// Tmp2__=Mixadd(Tmp2__,Mix(Mixop(1,Tmp__),Tmp1__)); +// Tmp3__=Mixsub(I__+1:Mixlength(PtL__),PtL__); +// PtL__=Mixjoin(Tmp2__,Tmp3__); + end; + OutfL__=MixS(Face__); + if Mixtype(PlaneD__)~=1 + V1__=Mixop(1,PlaneD__); + Tmp__=Mixop(2,PlaneD__); + if length(Tmp__)>1 + d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); + else + d__=Tmp__; + end; + elseif type(PlaneD__)==1 + V1__=PlaneD__(1:3); + d__=PlaneD__(4); + else + K__=mtlb_findstr(PlaneD__,'='); + if K__>0 + Tmp1__=part(PlaneD__,1:K__-1); + Tmp2__=part(PlaneD__,K__+1:length(PlaneD__)); + PlaneD__=Tmp1__+'-('+Tmp2__+')'; + end; + x=0; y=0; z=0; + d__=-evstr(PlaneD__); + x=1; y=0; z=0; + Tmp1__=evstr(PlaneD__)+d__; + x=0; y=1; z=0; + Tmp2__=evstr(PlaneD__)+d__; + x=0; y=0; z=1; + Tmp3__=evstr(PlaneD__)+d__; + V1__=[Tmp1__,Tmp2__,Tmp3__]; + end; + for I__=1:Mixlength(FaceL__) + Face__=Mixop(I__,FaceL__); + TmpL__=[]; + for J__=1:length(Face__) + N1__=Face__(J__); + if J__==length(Face__) + N2__=Face__(1); + else + N2__=Face__(J__+1); + end; + for K__=1:Mixlength(PtL__) + Pd__=Mixop(K__,PtL__); + Tmp__=Mixop(1,Pd__); + if Tmp__(1)==Tmp__(2) + if Tmp__(1)==N1__ + TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__))); + end + else + if Tmp__==[N1__,N2__] | Tmp__==[N2__,N1__] + TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__))); + end; + end; + end; + end; + if Mixlength(TmpL__)<2 + Flg__=0; + for J__=1:length(Face__) + Tmp__=Mixop(Face__(J__),VL__); + Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__); + if Tmp1__<-Eps__ + Flg__=1; + break; + end; + end; + if Flg__==0 + OutfL__=Mixadd(OutfL__,Face__); + end; + continue; + end; + Pd__=Mixop(1,TmpL__); + Qd__=Mixop(2,TmpL__); + Outf1__=[Mixop(3,Pd__)]; + Nf__=Mixop(1,Pd__)+1; + Tmp__=Mixop(2,Pd__); + JJ__=0; + while Tmp__~=Mixop(2,Qd__) + JJ__=JJ__+1; + if JJ__>20 + disp('bug'); + return; + end; + Tmp1__=Tmp__(2); + if Outf1__(length(Outf1__))~=Tmp1__ + Outf1__=[Outf1__,Tmp1__]; + end; + Tmp__=[Face__(Nf__)]; + Nf__=Nf__+1; + if Nf__>length(Face__) Nf__=1; end; + Tmp__=[Tmp__,Face__(Nf__)]; + end; + Tmp1__=Mixop(3,Qd__); + if Outf1__(length(Outf1__))~=Tmp1__ + Outf1__=[Outf1__,Tmp1__]; + end; + Outf2__=[Mixop(3,Pd__)]; + Nf__=Mixop(1,Pd__); + Tmp__=Mixop(2,Pd__); + JJ__=0; + while Tmp__~=Mixop(2,Qd__) + JJ__=JJ__+1; + if JJ__>20 + disp('bug'); + return; + end; + Tmp1__=Tmp__(1); + if Outf2__(length(Outf2__))~=Tmp1__ + Outf2__=[Outf2__,Tmp1__] + end; + Tmp__=[Face__(Nf__)]; + Nf__=Nf__-1; + if Nf__<1 Nf__=length(Face__); end; + Tmp__=[Face__(Nf__),Tmp__]; + end; + Tmp1__=Mixop(3,Qd__); + if Outf2__(length(Outf2__))~=Tmp1__ + Outf2__=[Outf2__,Tmp1__] + end; + if length(Outf1__)<3 | length(Outf2__)<3 + Face__=Outf1__; + if length(Outf1__)<length(Outf2__) Face__=Outf2__; end; + Flg__=0; + for J__=1:length(Face__) + Tmp__=Mixop(Face__(J__),VL__); + Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__); + if Tmp1__<-Eps__ + Flg__=1; + break; + end; + end; + if Flg__==0 + OutfL__=Mixadd(OutfL__,Face__); + end; + else + Tmp__=Mixop(Outf1__(2),VL__); + Tmp1__=Outf1__; + Tmp2__=Fugou__*(Naiseki(V1__,Tmp__)-d__); + if Tmp2__<0 Tmp1__=Outf2__; end; + OutfL__=Mixadd(OutfL__,Tmp1__); + end; + end; + PHVERTEXL=VL__; + PHFACEL=OutfL__; + Out2__=Phcutdata(VL__,OutfL__,[0,0,0,0]); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin Binary files differnew file mode 100644 index 00000000..2e8372d4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci new file mode 100644 index 00000000..02fe98a5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci @@ -0,0 +1,7 @@ +// 08.07.11 + +function Ang=Phidegree() + global PHI; + Ang=PHI*180/%pi; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin Binary files differnew file mode 100644 index 00000000..f048d289 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci new file mode 100644 index 00000000..835c173e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci @@ -0,0 +1,7 @@ +// 08.08.21 +// 09.10.27 + +function Out=Phparadata(VL,FaceL) + Out=Facesdata(list(VL,FaceL),'para'); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin Binary files differnew file mode 100644 index 00000000..fd962e37 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci new file mode 100644 index 00000000..e422b6fc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci @@ -0,0 +1,7 @@ +// 08.08.21 +// 09.10.27 + +function Out=Phpersdata(VL,FaceL) + Out=Facesdata(list(VL,FaceL),'pers'); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin Binary files differnew file mode 100644 index 00000000..ab558ee1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci new file mode 100644 index 00000000..c4c79c26 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci @@ -0,0 +1,7 @@ +// 08.08.21 +// 09.10.27 + +function Out=Phrawparadata(VL,FaceL) + Out=Facesdata(list(VL,FaceL),'rawpara'); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin Binary files differnew file mode 100644 index 00000000..b07adddd --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci new file mode 100644 index 00000000..29870630 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci @@ -0,0 +1,7 @@ +// 08.08.21 +// 09.10.27 + +function Phrawpersdata(VL,FaceL) + Out=Facesdata(list(VL,FaceL),'rawpers'); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin Binary files differnew file mode 100644 index 00000000..5548e0e3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci new file mode 100644 index 00000000..3c8018e3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci @@ -0,0 +1,7 @@ +// 08.08.22 +// 09.10.27 + +function Out=Phsparadata(Fdata) + Out=Facesdata(Fdata,'para') +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin Binary files differnew file mode 100644 index 00000000..b625f4d4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci new file mode 100644 index 00000000..58ab8101 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci @@ -0,0 +1,7 @@ +// 08.08.22 +// 09.10.27 + +function Out=Phspersdata(Fdata) + Out=Facesdata(Fdata,'pers') +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin Binary files differnew file mode 100644 index 00000000..7b3c7f0f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci new file mode 100644 index 00000000..6928d928 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci @@ -0,0 +1,7 @@ +// 08.08.22 +// 09.10.27 + +function Out=Phsrawparadata(Fdata) + Out=Facesdata(Fdata,'rawpara') +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin Binary files differnew file mode 100644 index 00000000..0594752f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci new file mode 100644 index 00000000..21677841 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci @@ -0,0 +1,7 @@ +// 08.08.22 +// 09.10.27 + +function Phsrawpersdata(Fdata) + Out=Facesdata(Fdata,'rawpers') +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin Binary files differnew file mode 100644 index 00000000..7d239bba --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci new file mode 100644 index 00000000..fc548f28 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci @@ -0,0 +1,138 @@ +// +// 08.06.18 (N) +// 08.08.24 +// 08.10.05 +// 08.12.18 +// 09.03.12 +// 09.12.31 (gsort) +// 13.10.19 (__ added to variables) +// 14.10.24 N,D,E => N__ ,... +// 14.12.11 Assign used, and debugged (Exfun ) +// 15.11.16 N changed to number of intervals +// 16.12.13 in case of X1=X2 + +function P__=Plotdata(varargin) + global XMIN XMAX YMIN YMAX + Eps__=10^(-5); + Fnstr__=varargin(1); Is__=2; + if type(Fnstr__)==13 + Fnflg__=1; + Fnarg__=varargin(Is__); + if type(Fnarg__)==13 + Fnflg__=Fnflg__+1; + Is__=Is__+1; + end; + else + Fnflg__=0; + end; + Rgstr__=varargin(Is__); Is__=Is__+1; + K__=mtlb_findstr(Rgstr__,'='); + if length(K__)>0 + Tmp__=strsplit(Rgstr__,[K__-1,K__]); + Vname__=Tmp__(1,1); + Rng__=evstr(Tmp__(3,1)); + else + Vname__=Rgstr__; + Rng__=[XMIN,XMAX]; + end; + N__=50; // Numpoints + E__=[]; // Exclusions + Exfun__=''; // Exclusion function + D__=%inf; // Discont + for I__=Is__:length(varargin) + Tmp__=varargin(I__); + Lhs__=part(Tmp__,1); + K__=mtlb_findstr(Tmp__,'='); + Tmp1__=part(Tmp__,K__+1:length(Tmp__)); + if mtlb_findstr(Tmp__,Vname__)==[] + Str__=Lhs__+'__='+Tmp1__; + execstr(Str__); + else + Exfun__=Tmp1__; + end; + end; + X1__=Rng__(1); X2__=Rng__(2); +// dx__=(X2__-X1__)/(N__-1); + dx__=(X2__-X1__)/(N__); // 15.11.16 + if Fnflg__==0 + Str__=Assign(Fnstr__,Vname__,'x__'); + end; + if abs(dx__)<Eps__ then // 16.12.13 + x__=X1__; + P__=[X1__,evstr(Str__)]; + return; + end; + Exfun__=Assign(Exfun__,Vname__,'x__'); + if length(Exfun__)>0 then // 14.12.11 + Tmp__=mtlb_findstr(Exfun__,"x__"); + if length(Tmp__)==0 then + E__=evstr(Exfun__); + Exfun__=""; + end + end + P__=[]; + E__=gsort(E__); + E__=E__(length(E__):-1:1); + E__=[E__,%inf]; + Tmp__=gsort(E__); + E__=Tmp__(length(Tmp__):-1:1); + Ke__=1; + for x__=X1__:dx__:X2__ + if Exfun__~='' + Tmp__=evstr(Exfun__); + if abs(Tmp__)<Eps__ + P__=[P__;%inf,%inf]; + continue; + end; + end; + Pa__=[]; + if x__-E__(Ke__)<-Eps__ + if Fnflg__==0 + Pa__=[x__,evstr(Str__)]; + else + if Fnflg__==1 + Pa__=[x__,Fnstr__(x__)]; + else + Pa__=[x__,Fnstr__(Fnarg__,x__)]; + end; + end; + end; + if abs(x__-E__(Ke__))<=Eps__ + if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf] + Pa__=[%inf,%inf]; + end + end + if x__-E__(Ke__)>Eps__ + if Fnflg__==0 + Pa__=[x__,evstr(Str__)]; + else + if Fnflg__==1 + Pa__=[x__,Fnstr(x__)]; + else + Pa__=[x__,Fnstr__(Fnarg__,x__)]; + end; + end; + Ke__=Ke__+1; + end + if Pa__~=[] + if Pa__(1)==%inf + P__=[P__;Pa__] + elseif P__==[] + P__=[Pa__]; + else + Tmp__=P__(size(P__,1),:); + if Tmp__(1)==%inf + P__=[P__;Pa__]; + elseif norm(Tmp__-Pa__)<D__ + P__=[P__;Pa__]; + else + P__=[P__;%inf,%inf;Pa__]; + end + end + end + end; + Tmp__=size(P__,1); + if P__(Tmp__,1)==%inf + P__=P__(1:Tmp__-1,:); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin Binary files differnew file mode 100644 index 00000000..73d006ea --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci new file mode 100644 index 00000000..35e2347e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci @@ -0,0 +1,25 @@ +// +// 08.05.23 +// 09.09.18 +// 13.05.03 list of points is outputted + +function PL=Pointdata(varargin) + Nargs=length(varargin); + PL=list(); + for I=1:Nargs + DL=varargin(I); + DL=Flattenlist(DL); + for K=1:length(DL); + Dt=DL(K); + for J=1:size(Dt,1) + Tmp=Dt(J,:); + if Tmp(1)~=%inf then + PL($+1)=Tmp; + end + end + end; + end; + if length(PL)==1 + PL=PL(1); + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin Binary files differnew file mode 100644 index 00000000..1914f8a3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci new file mode 100644 index 00000000..fd2a35d0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci @@ -0,0 +1,15 @@ +// 08.05.30 + +function Out=PointonCurve(T,PtL) + Eps=10^(-4); + N=Trunc(T+Eps); + S=max(T-N,0); +// PtL=Plt; + if N==size(PtL,1) + Out=PtL(N,:); + else + Pa=PtL(N,:);; + Pb=PtL(N+1,:); + Out=(1-S)*Pa+S*Pb; + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin Binary files differnew file mode 100644 index 00000000..69dc99ce --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci new file mode 100644 index 00000000..c39cdadc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci @@ -0,0 +1,21 @@ +// 09.10.03 + +function Out=Pointoncrv(varargin) + Eps=10^(-4); + T=varargin(1); + Gdata=varargin(2); + if size(T,1)>1 + Tmp=T; T=Gdata; Gdata=Tmp; + end; + PtL=Gdata; + N=Trunc(T+Eps); + S=max(T-N,0); + if N==size(PtL,1) + Out=PtL(N,:); + else + Pa=PtL(N,:);; + Pb=PtL(N+1,:); + Out=(1-S)*Pa+S*Pb; + end +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin Binary files differnew file mode 100644 index 00000000..f85dfeb2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci new file mode 100644 index 00000000..b23dfdc8 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci @@ -0,0 +1,17 @@ +// 09.03.12 + +function Out=Powersum(varargin) + Nargs=length(varargin); + COEFF=varargin(1); + x=varargin(2); + if Nargs>2 + x=x-varargin(3); + end; + NL=Mixop(1,COEFF); + A=Mixop(2,COEFF); + Upto=min(size(NL,2),size(A,2)); + NL=NL(1:Upto); + A=A(1:Upto); + Out=sum(A.*x^NL); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin Binary files differnew file mode 100644 index 00000000..54fceb67 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci new file mode 100644 index 00000000..bc866928 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci @@ -0,0 +1,10 @@ +// 09.08.23 + +function Out=Prime(varargin) + if length(varargin)==0 + Out=char(39); + else + Out=varargin(1)+char(39); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin Binary files differnew file mode 100644 index 00000000..3e8d6ca7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci new file mode 100644 index 00000000..bf137751 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci @@ -0,0 +1,10 @@ +// s : 2014.06.22 + +function Printobjstr(Str) + global Wfile FID; + if Wfile=='default' then + mprintf('%s\n',Str); + else + mfprintf(FID,'%s\n',Str); + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin Binary files differnew file mode 100644 index 00000000..22cf9f20 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci new file mode 100644 index 00000000..bbe28c12 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci @@ -0,0 +1,32 @@ +// 08.07.11 +// 08.10.07 +// 09.06.02 +// 09.08.23 + +function AnsL=ProjCurve(Curve) + global PHI THETA; + Eps=10^(-6); + AnsL=[]; // Added + SP=sin(PHI); CP=cos(PHI); + ST=sin(THETA); CT=cos(THETA); + for I=1:size(Curve,1) + P=Curve(I,:); + x=P(1); y=P(2); z=P(3); + if x~=%inf + Xz=-x*SP+y*CP; + Yz=-x*CP*CT-y*SP*CT+z*ST; + Tmp=[Xz,Yz]; + if I==1 + AnsL=[Tmp]; + else + Tmp1=AnsL(size(AnsL,1),:); + if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps + AnsL=[AnsL;Tmp]; + end; + end; + else + AnsL=[AnsL;%inf,%inf]; + end; + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin Binary files differnew file mode 100644 index 00000000..1a815b50 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci new file mode 100644 index 00000000..74c552a6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci @@ -0,0 +1,18 @@ +// 08.07.11 +// 08.10.16 + +function Out=ProjcoordCurve(Curve) + global PHI THETA; + SP=sin(PHI); CP=cos(PHI); + ST=sin(THETA); CT=cos(THETA); + Out=[]; + for J=1:size(Curve,1) + P=Curve(J,:); + x=P(1); y=P(2); z=P(3); + Xz=-x*SP+y*CP; + Yz=-x*CP*CT-y*SP*CT+z*ST; + Zz=x*CP*ST+y*SP*ST+z*CT; + Out=[Out;Xz,Yz,Zz]; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin Binary files differnew file mode 100644 index 00000000..c78a60ff --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci new file mode 100644 index 00000000..82feeff2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci @@ -0,0 +1,41 @@ +// 08.07.11 +// 08.07.15 +// 08.08.12 +// 08.10.28 + +function CL=Projpara(varargin) + Nargs=length(varargin); + Flg=0; + if Nargs==1 & Mixtype(varargin(1))==1 + Flg=1; + end; + CL=[]; + for N=1:Nargs + Crv=varargin(N); + if Mixtype(Crv)==1 + Tmp=ProjCurve(Crv); + CL=Mixadd(CL,Tmp); + else + if Mixtype(Crv)==3 + ObjL=[]; + for I=1:Mixlength(Crv) + Tmp1=Mixop(I,Crv); + if Mixtype(Tmp1)==1 + ObjL=Mixadd(ObjL,Tmp1); + else + ObjL=Mixjoin(ObjL,Tmp1); + end; + end; + Crv=ObjL; + end; + for J=1:Mixlength(Crv) + Tmp=ProjCurve(Mixop(J,Crv)); + CL=Mixadd(CL,Tmp); + end + end + end + if Mixlength(CL)==1 & Flg==1 + CL=Mixop(1,CL); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin Binary files differnew file mode 100644 index 00000000..fe160426 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci new file mode 100644 index 00000000..b43451a9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci @@ -0,0 +1,39 @@ +// 08.08.12 +// 08.10.28 + +function CL=Projpers(varargin) + Nargs=length(varargin); + Flg=0; + if Nargs==1 & Mixtype(varargin(1))==1 + Flg=1; + end; + CL=[]; + for N=1:Nargs + Crv=varargin(N); + if Mixtype(Crv)==1 + Tmp=CameraCurve(Crv); + CL=Mixadd(CL,Tmp); + else + if Mixtype(Crv)==3 + ObjL=[]; + for I=1:Mixlength(Crv) + Tmp1=Mixop(I,Crv); + if Mixtype(Tmp1)==1 + ObjL=Mixadd(ObjL,Tmp1); + else + ObjL=Mixjoin(ObjL,Tmp1); + end; + end; + Crv=ObjL; + end; + for J=1:Mixlength(Crv) + Tmp=CameraCurve(Mixop(J,Crv)); + CL=Mixadd(CL,Tmp); + end + end + end + if Mixlength(CL)==1 & Flg==1 + CL=Mixop(1,CL); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin Binary files differnew file mode 100644 index 00000000..6ba89403 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci new file mode 100644 index 00000000..78776d7b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci @@ -0,0 +1,4 @@ +function P=Ptcrv(N,Fig) + P=Fig(N,:) +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin Binary files differnew file mode 100644 index 00000000..9cc74d07 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci new file mode 100644 index 00000000..d16ebf80 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci @@ -0,0 +1,4 @@ +function P=Ptend(Fig) + P=Fig(size(Fig,1),:) +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin Binary files differnew file mode 100644 index 00000000..f195927d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci new file mode 100644 index 00000000..98f2ca94 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci @@ -0,0 +1,250 @@ +// 08.10.10 +// 08.10.12 +// 08.10.15 +// 08.10.26 +// 09.06.05 +// 09.09.10 +// 09.10.12 debug +// 09.11.07 debugged +// 10.02.16 Eps__ +// 13.10.22 ( __ added to variables ) + +function Out__=PthiddenQ(PtA__,Vec__,Fd__,Uveq__,Np__,EPS__) +// Out__=1 : hidden +// SL__ : List of segments near PtA__+Vec__ + Eps__0=10^(-4)*(Xmax()-Xmin())/10; + Eps__=EPS__(1)*(Xmax()-Xmin())/10; // + Out__=0; + Vec__1=1/norm(Vec__)*Vec__; + PtL__=[]; + Tmp__=Mixop(2,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Xname__=part(Tmp__,1:K__-1); + Tmp__=Mixop(3,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Yname__=part(Tmp__,1:K__-1); + Tmp__=Mixop(1,Fd__); + K__=mtlb_findstr(Tmp__,'='); + if K__~=[] + Zname__=part(Tmp__,1:K__-1); + else + Tmp__=Mixop(4,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Zname__=part(Tmp__,1:K__-1); + end; + FdL__=Fullformfunc(Fd__); + Xf__=Mixop(2,FdL__); + Yf__=Mixop(3,FdL__); + Zf__=Mixop(4,FdL__); + Tmp__=Mixop(5,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Umin__=Urg__(1); UMax__=Urg__(2); + Vmin__=Vrg__(1); VMax__=Vrg__(2); + V1__='('+string(Vec__(1))+')'; + V2__='('+string(Vec__(2))+')'; + V3__='('+string(Vec__(3))+')'; + Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))'; + Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))'; + Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))'; + Urg__str=Mixop(5,FdL__); + Vrg__str=Mixop(6,FdL__); + if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0 + Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__; + else + Eq__=Xstr__; + end; + MS__=Mix(Eq__,Urg__str,Vrg__str,Np__); + [Zval__,Xval__,Yval__]=Makevaltable(MS__); + SL__=[]; + for J__=1:length(Yval__)-1 + for I__=1:length(Xval__)-1 + a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__); + a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1); + a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1); + a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__); + PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; + VL__=[c1__,c2__,c3__,c4__,c1__]; + QL__=[]; + for K__=1:4 + P1__=PL__(K__,:); P2__=PL__(K__+1,:); + M1__=VL__(K__); M2__=VL__(K__+1); + if M1__>=Eps__0 & M2__>=Eps__0 + continue; + end; + if M1__<=-Eps__0 & M2__<=-Eps__0 + continue; + end; + if abs(M1__)<Eps__0 + Tmp__=P1__; + elseif abs(M2__)<Eps__0 + continue; + else + Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); + end; + QL__=[QL__;Tmp__]; + end; + if size(QL__,1)==2 + Puv1__=QL__(1,:); Puv2=QL__(2,:); + Tmp__1=Puv1__(1); + Tmp__2=Puv1__(2); + Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Xv__=evstr(Tmp__); + Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Yv__=evstr(Tmp__); + Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Zv__=evstr(Tmp__); + P1__=[Xv__,Yv__,Zv__]; + Tmp__1=Puv2(1); + Tmp__2=Puv2(2); + Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Xv__=evstr(Tmp__); + Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Yv__=evstr(Tmp__); + Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Zv__=evstr(Tmp__); + P2__=[Xv__,Yv__,Zv__]; + if norm(P1__-P2__)<Eps__0 // 09.11.07 + continue; + end; // + Tmp__1=norm(P1__-PtA__); + Tmp__2=Naiseki(P1__-PtA__,Vec__1); + Tmp__3=sqrt(abs(Tmp__1^2-Tmp__2^2)); + Tmp__4=norm(P2__-PtA__); + Tmp__5=Naiseki(P2__-PtA__,Vec__1); + Tmp__6=sqrt(abs(Tmp__4^2-Tmp__5^2)); + if Tmp__2<Tmp__5 + Tmp__=P1__; P1__=P2__; P2__=Tmp__; + Tmp__=Tmp__2; Tmp__2=Tmp__5; Tmp__5=Tmp__; + Tmp__=Tmp__3; Tmp__3=Tmp__6; Tmp__6=Tmp__; + end; + if Tmp__3<EPS__(2)*Eps__ & Tmp__6<EPS__(2)*Eps__ // + if Tmp__2>-Eps__0 + if Tmp__5<-Eps__0 + SL__=[SL__;P1__,P2__,-1]; + else + SL__=[SL__;P1__,P2__,1]; + end; + end; + end; + V1__=Vec__1(1); V2__=Vec__1(2); V3__=Vec__1(3); + if abs(V1__)>Eps__0 + M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3); + M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3); + elseif abs(V2__)>Eps__0 + M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3); + M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3); + else + M1__=PtA__(2)-P1__(2); + M2__=PtA__(2)-P2__(2); + end; + if M1__*M2__>=0 + if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0) + continue; + end; + if abs(M1__)<=Eps__0 + Pt__=P1__; Ptuv__=Puv1__; + else + Pt__=P2__; Ptuv__=Puv2; + end; + else + Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); + Ptuv__=1/(M1__-M2__)*(-M2__*Puv1__+M1__*Puv2); + end; + if type(Uveq__)==10 + Tmp__1='('+string(Ptuv__(1))+')'; + Tmp__2='('+string(Ptuv__(2))+')'; + Tmp__=strsubst(Uveq__,Uname__,Tmp__1); + Tmp__=strsubst(Tmp__,Vname__,Tmp__2); + Tmp__=evstr(Tmp__); + if Tmp__<-Eps__0 + continue; + end; + end; + Tmp__1=Dotprod(Pt__-PtA__,Vec__1); + Tmp__2=abs(Tmp__1); + Tmp__3=Dotprod(P1__-P2__,Vec__1); + Tmp__4=norm(P1__-P2__); + Tmp__6=Tmp__3/Tmp__4; + if Tmp__1>Eps__0 + if abs(Tmp__6)>0.75 // from + PtL__=[PtL__;Pt__,P2__]; + continue; + end; // upto + if Tmp__2>Eps__ + Out__=1; + return + end; + if Tmp__2<2*Eps__ + continue; + end; + end; + end; + end; + end; + if PtL__==[] + return; + end; + for I__=1:size(SL__,1) + P2__=SL__(I__,4:6); + Flg__=0; + for J__=1:size(SL__,1) + P=SL__(J__,1:3); + if norm(P-P2__)<Eps__0 + SL__(I__,7)=J__; + Flg__=1; + break; + end; + end; + if Flg__==0 & SL__(I__,7)>0 + SL__(I__,7)=-2; + end; + end; + for I__=1:size(PtL__,1) + P__=PtL__(I__,4:6); + Flg__=0; + for J__=1:size(SL__,1) + P1__=SL__(J__,1:3); + if norm(P1__-P__)<Eps__0 + Flg__=1; + break; + end; + end; + if Flg__==0 + Pt__=PtL__(I__,1:3); // from + Tmp__0=norm(P__-Pt__); + Tmp__1=abs(Dotprod(P__-Pt__,Vec__1)); + Tmp__2=sqrt(abs(Tmp__0^2-Tmp__1^2)); + Tmp__3=Tmp__2*norm(Pt__-PtA__)/Tmp__0; // should to be changed 10.02.16 + if Tmp__3>Eps__/5 + Out__=1; + return; + else + continue; + end; // upto + end; + Nxt__=SL__(J__,7); + while Nxt__>0 + P__=SL__(Nxt__,4:6); + Nxt__=SL__(Nxt__,7); + end; + if Nxt__==-2 + Out__=1; + return; + else + Out__=0; + end; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin Binary files differnew file mode 100644 index 00000000..00ce8734 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci new file mode 100644 index 00000000..f6452897 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci @@ -0,0 +1,14 @@ +// +// 10.01.13 + +function Out=Ptne(varargin) + global XMIN XMAX YMIN YMAX + if length(varargin)==0 + Out=[XMAX,YMAX]; + else + G=varargin(1); + XM=max(G(:,1)); + YM=max(G(:,2)); + Out=[XM,YM]; + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin Binary files differnew file mode 100644 index 00000000..d8c23898 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci new file mode 100644 index 00000000..e3cd5ebc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci @@ -0,0 +1,14 @@ +// +// 10.01.13 + +function Out=Ptnw(varargin) + global XMIN XMAX YMIN YMAX + if length(varargin)==0 + Out=[XMIN,YMAX]; + else + G=varargin(1); + Xm=min(G(:,1)); + YM=max(G(:,2)); + Out=[Xm,YM]; + end; + endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin Binary files differnew file mode 100644 index 00000000..19bd2ccc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci new file mode 100644 index 00000000..fe5e52b9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci @@ -0,0 +1,14 @@ +// +// 10.01.13 + +function Out=Ptse(varargin) + global XMIN XMAX YMIN YMAX + if length(varargin)==0 + Out=[XMAX,YMIN]; + else + G=varargin(1); + XM=max(G(:,1)); + Ym=min(G(:,2)); + Out=[XM,Ym]; + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin Binary files differnew file mode 100644 index 00000000..c87076aa --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci new file mode 100644 index 00000000..f94437cf --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci @@ -0,0 +1,4 @@ +function P=Ptstart(Fig) + P=Fig(1,:) +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin Binary files differnew file mode 100644 index 00000000..df35b82c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci new file mode 100644 index 00000000..5b0a3474 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci @@ -0,0 +1,13 @@ +// 10.01.13 + +function Out=Ptsw(varargin) + global XMIN XMAX YMIN YMAX + if length(varargin)==0 + Out=[XMIN,YMIN]; + else + G=varargin(1); + Xm=min(G(:,1)); + Ym=min(G(:,2)); + Out=[Xm,Ym]; + end; +endfunction
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin Binary files differnew file mode 100644 index 00000000..baf3e29f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci new file mode 100644 index 00000000..e0020f0b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci @@ -0,0 +1,72 @@ +// 09.11.26 +// 09.12.06 +// 09.12.25 +// 09.12.29 + +function Putcell(varargin) + Nargs=length(varargin); + TbL=varargin(1); + Str=varargin(Nargs); + if type(Str)==1 + Str=string(Str); + end; + Pos=varargin(Nargs-1); + Nrg=varargin(2); + if type(Nrg)==10 + if Nargs==4 + Cell=Findcell(TbL,Nrg); + else + Mrg=varargin(3); + Cell=Findcell(TbL,Nrg,Mrg); + end; + else + Mrg=varargin(3); + Cell=Findcell(TbL,Nrg,Mrg); + end; + Pt=Cell(1); Dr='c'; + Posh=part(Pos,1); + Post=part(Pos,2:length(Pos)); + if (Posh=='r')|(Posh=='R') + Pt=Pt+[Cell(2),0]; + if length(Post)==0 + Dr='w1'; + else + Dr='w'+Post; + end; + end; + if (Posh=='l')|(Posh=='L') + Pt=Pt-[Cell(2),0]; + if length(Post)==0 + Dr='e1'; + else + Dr='e'+Post; + end; + end; + if (Posh=='u')|(Posh=='U') + Pt=Pt+[0,Cell(3)]; + if length(Post)==0 + Dr='s1'; + else + Dr='s'+Post; + end; + end; + if (Posh=='d')|(Posh=='D') + Pt=Pt-[0,Cell(3)]; + if length(Post)==0 + Dr='n1'; + else + Dr='n'+Post; + end; + end; + if (Posh=='b')|(Posh=='B') + Pt=Pt-[0,Cell(3)]; + if length(Post)==0 + Dr='n1'; + else + Dr='n'+Post; + end; + Str='$\mathstrut$'+Str; + end; + Letter(Pt,Dr,Str); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin Binary files differnew file mode 100644 index 00000000..3a9d0634 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci new file mode 100644 index 00000000..63bc151f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci @@ -0,0 +1,18 @@ +// 09.11.26 + +function Putcirmark(TbL,Nrg,Mrg,Dt) + if type(Dt)==10 + N=1; Pos=Dt; Str=''; + else + N=length(Dt); Pos='l'; Str='\hspace*{2mm}'; + end; + for I=1:N + Tmp1=Dt(I); + Str=Str+'\cirmark'; + if I<N + Str=Str+'\hspace{3mm}'; + end; + end; + Putcell(TbL,Nrg,Mrg,Pos,Str); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin Binary files differnew file mode 100644 index 00000000..b7994dc4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci new file mode 100644 index 00000000..41b9a1b6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci @@ -0,0 +1,65 @@ +// 09.12.06 +// 10.01.26 + +function PutcoL(varargin) + Nargs=length(varargin); + TbL=varargin(1); + if type(TbL)~=15 + disp('Tabledata missing') + return; + end; + Ag=varargin(2); + if type(Ag)==1 + CoL=Ag; + else + Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; + Clm=[]; + for I=1:length(Ag) + C=part(Ag,I:I); + Tmp=ascii(C); + if Tmp>=96 + C=char(Tmp-32); + end; + Tmp=mtlb_findstr(C,Alpha) + if length(Tmp)>0 + Clm=[Clm,Tmp-1]; + end; + end; + Nrg=0; + for I=length(Clm):-1:1 + Tmp=Clm(I); + Tmp1=length(Clm)-I; + Nrg=Nrg+Tmp*26^Tmp1; + end; + CoL=Nrg; + end; + Nr=length(TbL(3))+1; + K=1; + Dpos=varargin(3); + for I=4:Nargs + if I-3>Nr + break; + end; + Dt=varargin(I); + if type(Dt)~=15 + Putcell(TbL,CoL,K,Dpos,Dt); + K=K+1; + else + N=length(Dt); + Str=Dt(N); + Rrng=[K,K+1]; + Pos=Dpos; + for J=1:(N-1) + Tmp=Dt(J); + if type(Tmp)==1 + Rrng=[K,K+Tmp]; + end; + if type(Tmp)==10 + Pos=Tmp; + end; + end; + Putcell(TbL,CoL,Rrng,Pos,Str) + K=Rrng(2); + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin Binary files differnew file mode 100644 index 00000000..304768e4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci new file mode 100644 index 00000000..0e2f9d0a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci @@ -0,0 +1,65 @@ +// 10.04.01 + +function PutcoLexpr(varargin) + Nargs=length(varargin); + TbL=varargin(1); + if type(TbL)~=15 + disp('Tabledata missing') + return; + end; + Ag=varargin(2); + if type(Ag)==1 + CoL=Ag; + else + Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; + Clm=[]; + for I=1:length(Ag) + C=part(Ag,I:I); + Tmp=ascii(C); + if Tmp>=96 + C=char(Tmp-32); + end; + Tmp=mtlb_findstr(C,Alpha) + if length(Tmp)>0 + Clm=[Clm,Tmp-1]; + end; + end; + Nrg=0; + for I=length(Clm):-1:1 + Tmp=Clm(I); + Tmp1=length(Clm)-I; + Nrg=Nrg+Tmp*26^Tmp1; + end; + CoL=Nrg; + end; + Nr=length(TbL(3))+1; + K=1; + Dpos=varargin(3); + for I=4:Nargs + if I-3>Nr + break; + end; + Dt=varargin(I); + if type(Dt)~=15 + Dt='$'+Dt+'$'; + Putcell(TbL,CoL,K,Dpos,Dt); + K=K+1; + else + N=length(Dt); + Str='$'+Dt(N)+'$'; + Rrng=[K,K+1]; + Pos=Dpos; + for J=1:(N-1) + Tmp=Dt(J); + if type(Tmp)==1 + Rrng=[K,K+Tmp]; + end; + if type(Tmp)==10 + Pos=Tmp; + end; + end; + Putcell(TbL,CoL,Rrng,Pos,Str) + K=Rrng(2); + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin Binary files differnew file mode 100644 index 00000000..153f9afd --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci new file mode 100644 index 00000000..b993ffa9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci @@ -0,0 +1,34 @@ +// 10.01.02 for v5 + +function PutcoLstr(varargin) + Tb=varargin(1); + Nr=varargin(2); + Pos=varargin(3); + Str=varargin(4); + Sep=''; + if length(varargin)>4 + Sep=varargin(5); + end; + if Sep=='' + for I=1:length(Str) + Tmp=part(Str,I); + Putcell(Tb,Nr,I,Pos,Tmp); + end; + else + Ltr=''; + K=1; + for I=1:length(Str) + Tmp=part(Str,I); + if Tmp==Sep + Putcell(Tb,Nr,K,Pos,Ltr); + K=K+1; + Ltr=''; + else + Ltr=Ltr+Tmp; + end; + end; + if Ltr~='' + Putcell(Tb,Nr,K,Pos,Ltr); + end; + end; +endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin Binary files differnew file mode 100644 index 00000000..f48d783b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci new file mode 100644 index 00000000..8d732a9d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci @@ -0,0 +1,18 @@ +// 09.11.26 + +function Putdashmark(TbL,Nrg,Mrg,Dt) + N=length(Dt); + Str='\hspace*{2mm}'; + for I=1:N + Tmp1=Dt(I); + if type(Tmp1)==1 + Tmp1=string(Tmp1); + end; + Str=Str+'\dashmark{'+Tmp1+'}'; + if I<N + Str=Str+'\hspace{3mm}'; + end; + end; + Putcell(TbL,Nrg,Mrg,'l',Str); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin Binary files differnew file mode 100644 index 00000000..ae7f9955 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci new file mode 100644 index 00000000..ce63e542 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci @@ -0,0 +1,17 @@ +// 09.11.26 + +function Putrecmark(TbL,Nrg,Mrg,Dt) + if type(Dt)==10 + N=1; Pos=Dt; Str=''; + else + N=length(Dt); Pos='l'; Str='\hspace*{2mm}'; + end; + for I=1:N + Str=Str+'\recmark'; + if I<N + Str=Str+'\hspace{3mm}'; + end; + end; + Putcell(TbL,Nrg,Mrg,Pos,Str); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin Binary files differnew file mode 100644 index 00000000..9e4117c2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci new file mode 100644 index 00000000..0c2c209a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci @@ -0,0 +1,41 @@ +// 09.12.06 +// 10.01.26 + +function Putrow(varargin) + Nargs=length(varargin); + TbL=varargin(1); + if type(TbL)~=15 + disp('Tabledata missing') + return; + end; + Row=varargin(2); + Nr=length(TbL(2))+1; + K=1; + Dpos=varargin(3); + for I=4:Nargs + if I-3>Nr + break; + end; + Dt=varargin(I); + if type(Dt)~=15 + Putcell(TbL,K,Row,Dpos,Dt); + K=K+1; + else + N=length(Dt); + Str=Dt(N); + Crng=[K,K+1]; + Pos=Dpos; + for J=1:(N-1) + Tmp=Dt(J); + if type(Tmp)==1 + Crng=[K,K+Tmp]; + end; + if type(Tmp)==10 + Pos=Tmp; + end; + end; + Putcell(TbL,Crng,Row,Pos,Str) + K=Crng(2); + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin Binary files differnew file mode 100644 index 00000000..f29ca390 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci new file mode 100644 index 00000000..0a3158cc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci @@ -0,0 +1,41 @@ +// 10.04.01 + +function Putrowexpr(varargin) + Nargs=length(varargin); + TbL=varargin(1); + if type(TbL)~=15 + disp('Tabledata missing') + return; + end; + Row=varargin(2); + Nr=length(TbL(2))+1; + K=1; + Dpos=varargin(3); + for I=4:Nargs + if I-3>Nr + break; + end; + Dt=varargin(I); + if type(Dt)~=15 + Dt='$'+Dt+'$'; + Putcell(TbL,K,Row,Dpos,Dt); + K=K+1; + else + N=length(Dt); + Str='$'+Dt(N)+'$'; + Crng=[K,K+1]; + Pos=Dpos; + for J=1:(N-1) + Tmp=Dt(J); + if type(Tmp)==1 + Crng=[K,K+Tmp]; + end; + if type(Tmp)==10 + Pos=Tmp; + end; + end; + Putcell(TbL,Crng,Row,Pos,Str) + K=Crng(2); + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin Binary files differnew file mode 100644 index 00000000..32f9675d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci new file mode 100644 index 00000000..d006f3ec --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci @@ -0,0 +1,34 @@ +// 10.01.02 for v5 + +function Putrowstr(varargin) + Tb=varargin(1); + Nr=varargin(2); + Pos=varargin(3); + Str=varargin(4); + Sep=''; + if length(varargin)>4 + Sep=varargin(5); + end; + if Sep=='' + for I=1:length(Str) + Tmp=part(Str,I); + Putcell(Tb,I,Nr,Pos,Tmp); + end; + else + Ltr=''; + K=1; + for I=1:length(Str) + Tmp=part(Str,I); + if Tmp==Sep + Putcell(Tb,K,Nr,Pos,Ltr); + K=K+1; + Ltr=''; + else + Ltr=Ltr+Tmp; + end; + end; + if Ltr~='' + Putcell(Tb,K,Nr,Pos,Ltr); + end; + end; +endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin Binary files differnew file mode 100644 index 00000000..30dda6f7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci new file mode 100644 index 00000000..a4f1ad89 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci @@ -0,0 +1,7 @@ +// 09.09.10 + +function Puttrace(Dt); + global TRACEDATA; + TRACEDATA=Dt; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin Binary files differnew file mode 100644 index 00000000..aa4a60ac --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci new file mode 100644 index 00000000..839452f6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci @@ -0,0 +1,87 @@ +// 11.05.28 +// 15.05.03 + +function R=Ratiocmyk(Color) + if type(Color)==1 then + R=Color; + return; + end; + Tmp=grep(Color,','); + if length(Tmp)>0 + R=evstr(Tmp); + return; + end; + select Color + case 'greenyellow' then R=[0.15,0,0.69,0], + case 'yellow' then R=[0,0,1,0], + case 'goldenrod' then R=[0,0.1,0.84,0], + case 'dandelion' then R=[0,0.29,0.84,0], + case 'apricot' then R=[0,0.32,0.52,0], + case 'peach' then R=[0,0.5,0.7,0], + case 'melon' then R=[0,0.46,0.5,0], + case 'yelloworange' then R=[0,0.42,1,0], + case 'orange' then R=[0,0.61,0.87,0], + case 'burntorange' then R=[0,0.51,1,0], + case 'bittersweet' then R=[0,0.75,1,0.24], + case 'redorange' then R=[0,0.77,0.87,0], + case 'mahogany' then R=[0,0.85,0.87,0.35], + case 'maroon' then R=[0,0.87,0.68,0.32], + case 'brickred' then R=[0,0.89,0.94,0.28], + case 'red' then R=[0,1,1,0], + case 'orangered' then R=[0,1,0.5,0], + case 'rubinered' then R=[0,1,0.13,0], + case 'wildstrawberry' then R=[0,0.96,0.39,0], + case 'salmon' then R=[0,0.53,0.38,0], + case 'carnationpink' then R=[0,0.63,0,0], + case 'magenta' then R=[0,1,0,0], + case 'violetred' then R=[0,0.81,0,0], + case 'rhodamine' then R=[0,0.82,0,0], + case 'mulberry' then R=[0.34,0.9,0,0.02], + case 'redviolet' then R=[0.07,0.9,0,0.34], + case 'fuchsia' then R=[0.47,0.91,0,0.08], + case 'lavender' then R=[0,0.48,0,0], + case 'thistle' then R=[0.12,0.59,0,0], + case 'orchid' then R=[0.32,0.64,0,0], + case 'darkorchid' then R=[0.4,0.8,0.2,0], + case 'purple' then R=[0.45,0.86,0,0], + case 'plum' then R=[0.5,1,0,0], + case 'violet' then R=[0.79,0.88,0,0], + case 'royalpurple' then R=[0.75,0.9,0,0], + case 'blueviolet' then R=[0.86,0.91,0,0.04], + case 'periwinkle' then R=[0.57,0.55,0,0], + case 'cadetblue' then R=[0.62,0.57,0.23,0], + case 'cornflowerblue' then R=[0.65,0.13,0,0], + case 'midnightblue' then R=[0.98,0.13,0,0.43], + case 'navyblue' then R=[0.94,0.54,0,0], + case 'royalblue' then R=[1,0.5,0,0], + case 'blue' then R=[1,1,0,0], + case 'cerulean' then R=[0.94,0.11,0,0], + case 'cyan' then R=[1,0,0,0], + case 'processblue' then R=[0.96,0,0,0], + case 'skyblue' then R=[0.62,0,0.12,0], + case 'turquoise' then R=[0.85,0,0.2,0], + case 'tealblue' then R=[0.86,0,0.34,0.02], + case 'aquamarine' then R=[0.82,0,0.3,0], + case 'bluegreen' then R=[0.85,0,0.33,0], + case 'emerald' then R=[1,0,0.5,0], + case 'junglegreen' then R=[0.99,0,0.52,0], + case 'seagreen' then R=[0.69,0,0.5,0], + case 'green' then R=[1,0,1,0], + case 'forestgreen' then R=[0.91,0,0.88,0.12], + case 'pinegreen' then R=[0.92,0,0.59,0.25], + case 'limegreen' then R=[0.5,0,1,0], + case 'yellowgreen' then R=[0.44,0,0.74,0], + case 'springgreen' then R=[0.26,0,0.76,0], + case 'olivegreen' then R=[0.64,0,0.95,0.4], + case 'rawsienna' then R=[0,0.72,1,0.45], + case 'sepia' then R=[0,0.83,1,0.7], + case 'brown' then R=[0,0.81,1,0.6], + case 'tan' then R=[0.14,0.42,0.56,0], + case 'gray' then R=[0,0,0,0.5], + case 'black' then R=[0,0,0,1], + case 'white' then R=[0,0,0,0], + else + disp(Color+' may be user-defined'); + R=Color; // 15.05.03 + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin Binary files differnew file mode 100644 index 00000000..0b858b05 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci new file mode 100644 index 00000000..c1656b15 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci @@ -0,0 +1,92 @@ +// 14.10.10 +// 14.12.14 for 3d +// 15.01.03 changed ("start","end") +// 15.10.24 in case of list-length==1 + +function Out=ReadOutData(varargin) + global Fnameout + if length(varargin)==0 then + Fname=Rnameout; + else + Fname=varargin(1); + end + Fid=mopen(Fname,"rb"); + Gstr=[]; + Str=""; + Flg=1; + Tmp=mgetstr(1,Fid); + while 1==1 + if Tmp=="" then + break; + end; + C=ascii(Tmp); + if Tmp=="/"|C==13|C==10 then// / CR,LF + if Flg==1 then + if part(Str,1:5)=="start" then + Str="Tmp=[];"; + else + if part(Str,1:3)=="end" then + if Flg3d==0 then // 2014.12.14 + Str=Varname+"($+1)=Listplot(Tmp);"; + else + Str=Varname+"($+1)=Spaceline(Tmp);"; + end + else + if part(Str,1:2)=="[[" then + Str="Tmp=[Tmp,"+Str+"];"; + else + Varname=Str; + Str=Varname+"=list();" + Flg3d=-1; + end; + end; + end; + if Flg3d==-1 then // 2014.12.14 + Tmp1=mtlb_findstr(Str,"[["); + if length(Tmp1)>0 then + Tmp2=mtlb_findstr(Str,"]"); + Tmp3=part(Str,Tmp1:Tmp2(1)); + Tmp4=mtlb_findstr(Tmp3,",") + if length(Tmp4)==2 then + Flg3d=1; + else + Flg3d=0; + end + end + end + Gstr=[Gstr;Str]; + Str=""; + Flg=0; + end; + else + Str=Str+Tmp; + Flg=1; + end; + Tmp=mgetstr(1,Fid); + end; + mclose(Fid); + Out=[]; // 15.10.24 from + Var=""; + Ctr=0; + for J=1:size(Gstr,1) + St=Gstr(J,1); + Out=[Out;St]; + Tmp=strsplit(St,"="); + Tmp1=Tmp(1,1); + Tmp2=Tmp(2,1); + if grep(Tmp2,"list()") then + if Ctr==1 then + Out=[Out;Var+"="+Var+"(1)"]; + end; + Var=Tmp1; + Ctr=0; + end; + if grep(Tmp1,"$") then + Ctr=Ctr+1; + end; + end + if Ctr==1 then + Out=[Out;Var+"="+Var+"(1)"]; + end; // 15.10.24 upto + Out; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin Binary files differnew file mode 100644 index 00000000..e078ba2f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci new file mode 100644 index 00000000..eaf9f6df --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci @@ -0,0 +1,38 @@ +// s:2014,09.08 +// e:2014.09.26 +// e:2014.10.07 debugged, code changed +// e:2014.10.08 CR | LF + +function Out=ReadfromCindy(Fname) + Fid=mopen(Fname,"rb"); + Gline=list(); + Gpt=list(); + Gstr=[]; + Str=""; + Flg=1; + Tmp=mgetstr(1,Fid); + while 1==1 + if Tmp=="" then + if Flg==1 then + Gstr=[Gstr;Str]; + Str=""; + Flg=1; + end; + break; + end + C=ascii(Tmp); + if C==13|C==10 then// CR,LF + if Flg==1 then + Gstr=[Gstr;Str]; + Str=""; + Flg=0; + end; + else + Str=Str+Tmp; + Flg=1; + end; + Tmp=mgetstr(1,Fid); + end; + mclose(Fid); + Out=Gstr; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin Binary files differnew file mode 100644 index 00000000..05df3aa2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci new file mode 100644 index 00000000..7109f789 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci @@ -0,0 +1,160 @@ +// 08.05.22
+// 08.05.23
+// 08.05.26
+// 08.05.28
+// 10.04.25
+// 11.01.05
+// 13.10.06 format, debug
+// 14.01.20 debugged (Big data)
+
+function OutL=Readtextdata(varargin)
+ OutL=[];
+ Nargs=length(varargin);
+ Fname=varargin(1);
+ Suuji='0123456789.+-';
+ Sep='';
+ Hajime=[1,1];
+ N=%inf;
+ R=%inf;
+ D=-%inf; // 11.01.04
+ Fmt="%lf"; // 13.10.06
+ Flg=0;
+ for I=2:Nargs
+ Tmp=varargin(I);
+ if type(Tmp)==1
+ if Flg==0
+ Hajime=Tmp;
+ Flg=1
+ else
+ Owari=Tmp;
+ end
+ elseif mtlb_findstr(Tmp,'=')~=[]
+ execstr(Tmp);
+ else
+ if part(Tmp,1)=="%" // 13.10.06
+ Fmt=Tmp
+ else
+ Sep=Tmp;
+ if Tmp=='s' Sep=' '; end
+ if Tmp==',' Sep=','; end
+ if Tmp=='t' Sep=char(9); end
+ end
+ end
+ end
+ Owari=Hajime+[N-1,R-1];
+ Fid=mopen(Fname,'rb');
+ SL=[];
+ S='';
+ Lsp=0;
+ Flg=1;
+ Tmp=mgetstr(1,Fid);
+ while 1==1 // 2014.01.20
+ if Tmp=='' break; end
+ C=ascii(Tmp);
+ if C>=32 | C==9
+ if C==32
+ if Flg==1
+ Tmp='';
+ end
+ Flg=1
+ else
+ Flg=0;
+ end
+ S=S+Tmp;
+ Tmp=mgetstr(1,Fid);
+ else
+ SL=[SL;S];
+ S='';
+ Flg=1;
+ Tmp=mgetstr(1,Fid);
+ if Lsp==0
+ if C==10 // LF
+ Lsp=1;
+ elseif C==13
+ if ascii(Tmp)==10
+ Lsp=3; // CR LF
+ Tmp=mgetstr(1,Fid);
+ else
+ Lsp=2; // CR
+ end
+ else
+ break;
+ end
+ else
+ if C==10 | C==13
+ if Lsp==3
+ Tmp=mgetstr(1,Fid);
+ end
+ else
+ break
+ end
+ end
+ end
+ end
+ mclose(Fid);
+ if length(S)>0 then // 2013.10.06
+ SL=[SL;S]
+ end
+ for I=1:size(SL,1)
+ S=SL(I,1);
+ if S=='' continue; end
+ if mtlb_findstr(Suuji,Strop(1,S))~=[]
+ break
+ end
+ end
+ Hajime(1,1)=max(Hajime(1,1),I);
+ S=SL(Hajime(1),1);
+ if Sep==''
+ if length(mtlb_findstr(S,char(9)))~=0
+ Sep=char(9);
+ elseif length(mtlb_findstr(S,','))~=0
+ Sep=',';
+ else
+ Sep=' ';
+ end
+ end
+ Tmp=mtlb_findstr(S,Sep);
+ J=length(Tmp);
+ if Tmp(J)~=length(S)
+ J=J+1;
+ end
+ Owari(1,1)=min(size(SL,1),Owari(1));
+ Owari(1,2)=min(J,Owari(2));
+ S=SL(Owari(1),1);
+ while S==''
+ Owari(1,1)=Owari(1,1)-1;
+ S=SL(Owari(1),1);
+ end
+ OutL=[];
+ for J=Hajime(1):Owari(1)
+ S=SL(J,1);
+ if S==''
+ Tmp=%inf*ones(1,Owari(2)-Hajime(2)+1);
+ OutL=[OutL;Tmp];
+ continue
+ end
+ Tmp=Strop(1,S);
+ if mtlb_findstr(Suuji+Sep,Tmp)==[]
+ continue
+ end
+ SpL=[0,mtlb_findstr(S,Sep),length(S)+1];
+ Data=[];
+ for K=Hajime(2):Owari(2)
+ Tmp=Strop(SpL(K)+1:SpL(K+1)-1,S);
+ Tmp1=msscanf(Tmp,Fmt); // 13.10.06
+ Data=[Data,Tmp1];
+ end
+ OutL=[OutL;Data];
+ end;
+ if D~=-%inf // 11.01.04
+ Data=[];
+ for I=1:size(OutL,1)
+ Tmp=OutL(I,:);
+ if Tmp(1)<=D // 11.01.04
+ Tmp=[%inf,%inf];
+ end;
+ Data=[Data;Tmp];
+ end;
+ OutL=Data;
+ end; //
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin Binary files differnew file mode 100644 index 00000000..2269d9ad --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci new file mode 100644 index 00000000..837a5727 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci @@ -0,0 +1,51 @@ +// 08.05.25 Koshikawa +// 08.09.20 +// 15.04.12 + +function OutL=Reflectdata(varargin) + Nargs=length(varargin) + ML=varargin(1); + ML=Flattenlist(ML); + if Nargs==1 + PtA=[0,0];PtB=PtA; + else + Pts=varargin(2); + if length(Pts)==2 + PtA=Pts; PtB=PtA; + else + PtA=Pts(1,1:2); PtB=Pts(1,3:4); + end + end + OutL=[]; + for N=1:length(ML) + GL=Op(N,ML); + Out=[]; + for I=1:size(GL,1) + Tmp=GL(I,:); + X1=Tmp(1); + Y1=Tmp(2); + if Tmp==[%inf,%inf] + X2=X1; + Y2=Y1; + else + if PtA==PtB + X2=2*PtA(1)-X1; + Y2=2*PtA(2)-Y1; + else + U=PtB(1)-PtA(1); + V=PtB(2)-PtA(2); + A=PtA(1); + B=PtA(2); + X2=(U^2-V^2)/(U^2+V^2)*X1+2*U*V/(U^2+V^2)*Y1-2*V*(U*B-V*A)/(U^2+V^2); + Y2=2*U*V/(U^2+V^2)*X1-(U^2-V^2)/(U^2+V^2)*Y1+2*U*(U*B-V*A)/(U^2+V^2); + end + end + Out=[Out;X2,Y2]; + end; + OutL=Mixadd(OutL,Out); + end; + if length(OutL)==1 + OutL=Op(1,OutL); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin Binary files differnew file mode 100644 index 00000000..1a99c6ca --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci new file mode 100644 index 00000000..facea4d5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci @@ -0,0 +1,20 @@ +// 11.01.14 New + +function Out=Rmmember(L,Rm) + if type(L)==1 + Out=[]; + end; + if type(L)==15 + Out=list(); + end; + for J=1:length(L) + Tmp=L(J); + if ~Member(Tmp,Rm) + Out($+1)=Tmp; + end; + end; + if type(L)==1 & size(L,1)==1 + Out=Out'; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin Binary files differnew file mode 100644 index 00000000..c9391ec5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci new file mode 100644 index 00000000..9082290d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci @@ -0,0 +1,40 @@ +// 08.08.15 +// 14.03.23 debugged "center" +// 15.04.12 + +function Out=Rotate3data(varargin) +// Eps=10^(-4); + Nargs=length(varargin); + Pd3=varargin(1); + Pd3=Flattenlist(Pd3); // 15.04.12 + W1=varargin(2); + W2=varargin(3); + C=[0,0,0]; + if Nargs>=4 + C=varargin(4); + end; +// if Mixtype(Pd3)==1 // 15.04.12 from +// Pd3=MixS(Pd3); +// elseif Mixtype(Pd3)==3 +// Tmp=[]; +// for I=1:Mixlength(Pd3) +// Tmp=Mixjoin(Tmp,Mixop(I,Pd3)); +// end; +// Pd3=Tmp; +// end; + Out=[]; + for I=1:length(Pd3) + PD=Op(I,Pd3); + Ans=[]; + for J=1:size(PD,1) + P=PD(J,:); + Tmp=Rotate3pt(P,W1,W2,C); // 14.03.23 + Ans=[Ans;Tmp]; + end; + Out=Mixadd(Out,Ans); + end; + if length(Out)==1 + Out=Op(1,Out); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin Binary files differnew file mode 100644 index 00000000..35da0ed9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci new file mode 100644 index 00000000..910aa734 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci @@ -0,0 +1,75 @@ +// 08.08.15 + +function Ans=Rotate3pt(varargin) + Eps=10^(-4); + Nargs=length(varargin); + P=varargin(1); + W1=varargin(2); + W2=varargin(3); + C=[0,0,0]; + if Nargs>=4 + C=varargin(4); + end; + if type(W2)==1 & length(W2)==1 + Ct=cos(W2); + St=sin(W2); + V3=1/norm(W1)*W1; + if V3(1)==0 + Tmp=[1,0,0]; + else + Tmp=[0,1,0]; + end; + W1=[Tmp(2)*V3(3)-Tmp(3)*V3(2),Tmp(3)*V3(1)-Tmp(1)*V3(3),Tmp(1)*V3(2)-Tmp(2)*V3(1)]; + V1=1/norm(W1)*W1; + V2=[V3(2)*V1(3)-V3(3)*V1(2),V3(3)*V1(1)-V3(1)*V1(3),V3(1)*V1(2)-V3(2)*V1(1)]; + else + Tmp=[W1(2)*W2(3)-W1(3)*W2(2),W1(3)*W2(1)-W1(1)*W2(3),W1(1)*W2(2)-W1(2)*W2(1)]; + if norm(Tmp)<Eps + Ans=P; + return; + end; + V1=1/norm(W1)*W1; + Ns=V1(1)*W2(1)+V1(2)*W2(2)+V1(3)*W2(3); + Tmp=W2-Ns*V1; + V2=1/norm(Tmp)*Tmp; + Tmp=[V1(2)*V2(3)-V1(3)*V2(2),V1(3)*V2(1)-V1(1)*V2(3),V1(1)*V2(2)-V1(2)*V2(1)]; + V3=1/norm(Tmp)*Tmp; + Ct=Ns/norm(W2); + St=sqrt(1-Ct^2); + end; + if norm(Tmp)<Eps + Ans=P; + return; + end; + V1x=V1(1); V1y=V1(2); V1z=V1(3); + V2x=V2(1); V2y=V2(2); V2z=V2(3); + V3x=V3(1); V3y=V3(2); V3z=V3(3); + if Mixtype(P)~=1 + PtL=P; + else + PtL=MixS(P); + end; + Ans=[]; + for N=1:Mixlength(PtL) + P=Mixop(N,PtL); + if P(1)==%inf + Ans=Mixadd(Ans,[%inf,%inf,%inf]); + continue; + end; + x=P(1)-C(1); y=P(2)-C(2); z=P(3)-C(3); + X=((V1x*Ct+V2x*St)*V1x+(-V1x*St+V2x*Ct)*V2x+V3x^2)*x; + X=X+((V1x*Ct+V2x*St)*V1y+(-V1x*St+V2x*Ct)*V2y+V3x*V3y)*y; + X=X+((V1x*Ct+V2x*St)*V1z+(-V1x*St+V2x*Ct)*V2z+V3x*V3z)*z; + Y=((V1y*Ct+V2y*St)*V1x+(-V1y*St+V2y*Ct)*V2x+V3x*V3y)*x; + Y=Y+((V1y*Ct+V2y*St)*V1y+(-V1y*St+V2y*Ct)*V2y+V3y^2)*y; + Y=Y+((V1y*Ct+V2y*St)*V1z+(-V1y*St+V2y*Ct)*V2z+V3y*V3z)*z; + Z=((V1z*Ct+V2z*St)*V1x+(-V1z*St+V2z*Ct)*V2x+V3x*V3z)*x; + Z=Z+((V1z*Ct+V2z*St)*V1y+(-V1z*St+V2z*Ct)*V2y+V3y*V3z)*y; + Z=Z+((V1z*Ct+V2z*St)*V1z+(-V1z*St+V2z*Ct)*V2z+V3z^2)*z; + Ans=Mixadd(Ans,C+[X,Y,Z]); + end; + if Mixlength(Ans)==1 + Ans=Mixop(1,Ans); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin Binary files differnew file mode 100644 index 00000000..fda8e518 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci new file mode 100644 index 00000000..845cac17 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci @@ -0,0 +1,39 @@ +// 08.05.23 Koshikawa +// 08.09.20 +// 15.04.12 + +function OutL=Rotatedata(varargin) + Nargs=length(varargin); + ML=varargin(1); + ML=Flattenlist(ML); + Theta=varargin(2); + if Nargs==2, + Pt=[0,0] + else + Pt=varargin(3); + end + Cx=Pt(1);Cy=Pt(2); + OutL=[]; + for N=1:length(ML) + GL=Op(N,ML); + Out=[]; + for I=1:size(GL,1) + Tmp=GL(I,:); + X1=Tmp(1); + Y1=Tmp(2); + if Tmp==[%inf,%inf] + X2=X1; + Y2=Y1; + else + X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); + Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); + end; + Out=[Out;X2,Y2]; + end; + OutL=Mixadd(OutL,Out); + end; + if length(OutL)==1 + OutL=Op(1,OutL); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin Binary files differnew file mode 100644 index 00000000..dd5656fd --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci new file mode 100644 index 00000000..d14f3b3a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci @@ -0,0 +1,7 @@ +// 10.11.04 + +function Out=Roundstr(X,Ni,Nf) + Na=Ni+1+Nf; + Fmt='%'+string(Na)+'.'+string(Nf)+'f'; + Out=sprintf(Fmt,X); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin Binary files differnew file mode 100644 index 00000000..7aeb7385 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci new file mode 100644 index 00000000..7e563f4b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci @@ -0,0 +1,39 @@ +// 08.05.25 Koshikawa +// 08.09.20 +// 15.04.12 + +function OutL=Scaledata(varargin) + Nargs=length(varargin); + ML=varargin(1); + ML=Flattenlist(ML); + A=varargin(2); + B=varargin(3); + if Nargs==3 + Pt=[0,0]; + else + Pt=varargin(4); + end + OutL=[]; + for N=1:length(ML) + GL=Op(N,ML); + Out=[]; + for I=1:size(GL,1) + Tmp=GL(I,:); + X1=Tmp(1); + Y1=Tmp(2); + if Tmp==[%inf,%inf] + X2=X1; + Y2=Y1; + else + X2=Pt(1)+A*(X1-Pt(1)); + Y2=Pt(2)+B*(Y1-Pt(2)); + end + Out=[Out;X2,Y2]; + end; + OutL=Mixadd(OutL,Out); + end; + if length(OutL)==1 + OutL=Op(1,OutL); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin Binary files differnew file mode 100644 index 00000000..4ebf14d1 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci new file mode 100644 index 00000000..e918e475 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci @@ -0,0 +1,14 @@ +// 09.09.10 +// 09.10.12 remove:Uveq, add:Glist + +function Out=Sectionview(PtA,Vec,Fd,Glist,Np,Eps) + Uv=1/norm(Vec)*Vec; + Nv=[Uv(2),-Uv(1),0]; + G1=Sfcutdata(Fd,Mix(Nv,PtA),Np); + G2=Spaceline([PtA,PtA+10*Uv]); + Tmp=Mixjoin(G1,G2,Glist); + Tmp1=Viewfrom(Nv,Tmp); + Out=Tmp; +endfunction; + + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin Binary files differnew file mode 100644 index 00000000..4b102f32 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci new file mode 100644 index 00000000..2a4a3c95 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci @@ -0,0 +1,17 @@ +// 08.07.11 +// 08.08.12 +// 09.02.27 + +function Setangle(varargin) + global PHI THETA; + Nargs=length(varargin); + if Nargs<2 + Mixdisp(Mix('theta=',THETA*180/%pi)); + Mixdisp(Mix('phi=',PHI*180/%pi)); + return; + else + PHI=varargin(2)*%pi/180; + THETA=varargin(1)*%pi/180; + end +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin Binary files differnew file mode 100644 index 00000000..7ea694d9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci new file mode 100644 index 00000000..8f9d6053 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci @@ -0,0 +1,35 @@ +// 08.05.31 +// 09.02.27 + +function Setarrow(varargin) + global YaSize YaAngle YaPosition YaThick YaStyle; + Nargs=length(varargin); + if Nargs==0 + Mixdisp(Mix('Size=',YaSize)); + Mixdisp(Mix('Angle=',YaAngle)); + Mixdisp(Mix('Position=',YaThick)); + Mixdisp(Mix('Style=',YaStyle)); + return; + end; + Flg=0; + for I=1:Nargs + Tmp=varargin(I); + if type(Tmp)==1 + Flg=Flg+1; + if Flg==1 YaSize=Tmp; end + if Flg==2 + if Tmp<5 + YaAngle=18*Tmp; + else + YaAngle=Tmp; + end + end + if Flg==3 YaPosition=Tmp; end + if Flg==4 YaThick=Tmp; end + end + if type(Tmp)==10 + YaStyle=Tmp + end + end +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin Binary files differnew file mode 100644 index 00000000..55e4fb8c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci new file mode 100644 index 00000000..5fab30e2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci @@ -0,0 +1,102 @@ +// 08.08.08 +// 09,02.27 + +function Out=Setax(varargin) + global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE; + Nargs=length(varargin); + if Nargs==0 + if ZIKU=='line' + Tmp=',' + else + Tmp='(Arrowsize='+string(ARROWSIZE)+'),' + end; + Str=... + ZIKU+Tmp+... + XNAME+','+XPOS+','+YNAME+','+... + YPOS+','+ONAME+','+OPOS; + Out=Str; + disp(Str); + return; + end; + ArgL=[]; + Is=1; + Tmp=varargin(1); + if type(Tmp)==1 & length(Tmp)==1 + Is=varargin(1); + ArgL=[]; + for I=1:Is-1 + ArgL=[ArgL,'']; + end + for I=2:Nargs + ArgL=[ArgL,varargin(I)]; + end + else + if Nargs==1 + ArgL=[varargin(1)]; + else + Tmp=varargin(2); + if type(Tmp)==1 & length(Tmp)==1 + ARROWSIZE=Tmp; + ArgL=[varargin(1)]; + for I=3:Nargs + ArgL=[ArgL,varargin(I)]; + end; + else + ArgL=[]; + for I=1:Nargs + ArgL=[ArgL,varargin(I)]; + end; + end + end + end + for I=size(ArgL,2)+1:7 + ArgL=[ArgL,'']; + end + Zk=ArgL(1); + if Zk~='' + ZL=msscanf(Zk,'%c%f'); + Zk=ZL(1); + if length(ZL)>1 // modified at 080807 + ARROWSIZE=ZL(2); + end + end + Xn=ArgL(2); Xp=ArgL(3); + Yn=ArgL(4); Yp=ArgL(5); + Genn=ArgL(6); Genp=ArgL(7); + if Zk~='' + C=Zk; + if C=='a' + ZIKU='arrow'; + else + ZIKU='line'; + end + end + if Xn~='' + XNAME='$'+Xn+'$' + end + if Xp~='' + XPOS=Xp + end + if Yn~='' + YNAME='$'+Yn+'$' + end + if Yp~='' + YPOS=Yp + end + if Genn~='' + ONAME=Genn + end + if Genp~='' + OPOS=Genp + end + if ZIKU=='line' + Tmp=',' + else + Tmp='(Arrowsize='+string(ARROWSIZE)+'),' + end; + Str=... + ZIKU+Tmp+... + XNAME+','+XPOS+','+YNAME+','+... + YPOS+','+ONAME+','+OPOS; + Out=Str; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin Binary files differnew file mode 100644 index 00000000..a6d15d9d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci new file mode 100644 index 00000000..51b8e0c3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci @@ -0,0 +1,36 @@ +// 11.05.28 +// 11.08.24 +// 15.05.03 + +function Setcolor(varargin) + global Wfile FID; + Nargs=length(varargin); + Color='black'; + Kosa=1; + Color=varargin(1); + if length(varargin)>1 + Kosa=varargin(2); + end; + Iro=Ratiocmyk(Color); + if type(Iro)==10 + Str='\color{'+Iro+"}%"; + else + if size(Iro,2)>3 + Str='\color[cmyk]{'; + else + Str='\color[rgb]{'; + end; + for J=1:size(Iro,2) + Str=Str+string(Kosa*Iro(J)); + if J<size(Iro,2) + Str=Str+','; + end; + end; + Str=Str+'}%'; + end; + if Wfile=='default' + mprintf('%s\n',Str); + else + mfprintf(FID,'%s\n',Str); + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin Binary files differnew file mode 100644 index 00000000..e8d09380 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci new file mode 100644 index 00000000..4b8b932b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci @@ -0,0 +1,13 @@ +// 09.09.10 + +function Setcounter(varargin) + global GCOUNTER; + Nargs=length(varargin); + if Nargs==0 + N=1; + else + N=varargin(1); + end; + GCOUNTER=N; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin Binary files differnew file mode 100644 index 00000000..b50381fd --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci new file mode 100644 index 00000000..ae713f4e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci @@ -0,0 +1,43 @@ +// 09.11.26 +// 09.12.06 + +function Setmark(); + Xminnow=Xmin(); Xmaxnow=Xmax(); + Yminnow=Ymin(); Ymaxnow=Ymax(); + Setwindow([-1.5,1.5],[-2.3,2.3]); + F1=Framedata(); + F2=Paramplot('[1.5*cos(t),2.3*sin(t)]','t=[0,2*%pi]','N=25'); + Texcom('\def\recmark{'); + Texcom('\begin{minipage}[c]{3mm}'); + Beginpicture('1mm'); + Shade(F1); + Drwline(F1); + Endpicture(0); + Texcom(''); + Texcom('\end{minipage}'); + Texcom('}'); + + Texcom('\def\cirmark{'); + Texcom('\begin{minipage}[c]{3mm}'); + Beginpicture('1mm'); + Shade(F2); + Drwline(F2); + Endpicture(0); + Texcom(''); + Texcom('\end{minipage}'); + Texcom('}'); + + Texcom('\def\dashmark#1{'); + Texcom('\begin{minipage}[c]{3mm}'); + Beginpicture('1mm'); + Setpen(0.5); + Dashline(F2,0.5,0.5); + Fontsize('ss'); + Letter([0,0],'c','#1'); + Endpicture(0); + Texcom(''); + Texcom('\end{minipage}'); + Texcom('}'); + Setwindow([Xminnow,Xmaxnow],[Yminnow,Ymaxnow]); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin Binary files differnew file mode 100644 index 00000000..1ad13b66 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci new file mode 100644 index 00000000..a17c9e95 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci @@ -0,0 +1,17 @@ +// +// 09.02.27 +// 14.03.05 MARKLEN + +function Setmarklen(varargin) + global MARKLEN MARKLENInit MARKLENNow; + Nargs=length(varargin); + if Nargs==0 + Tmp=MARKLEN/MARKLENInit; + Tmp=round(Tmp*100)/100; + disp(Tmp); + return; + end; + Size=varargin(1); + MARKLEN=MARKLENInit*Size; + MARKLENNow=MARKLEN; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin Binary files differnew file mode 100644 index 00000000..af675f9c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci new file mode 100644 index 00000000..2ee06cbb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci @@ -0,0 +1,8 @@ +// s : 2014.06.22 + +function Setobjdecimals(n) + global OBJFMT; + s1=string(n); + s2=string(n+3); + OBJFMT="%"+s2+"."+s1+"f"; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin Binary files differnew file mode 100644 index 00000000..5ae9c620 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci new file mode 100644 index 00000000..22f13c4d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci @@ -0,0 +1,6 @@ +// s : 2014.06.22 + +function Setobjscale(scale) + global OBJSCALE; + OBJSCALE=scale; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin Binary files differnew file mode 100644 index 00000000..05b3c3e2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci new file mode 100644 index 00000000..62a1f624 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci @@ -0,0 +1,14 @@ +// +// 09.02.27 + +function Setorigin(varargin) + global GENTEN; + Nargs=length(varargin); + if Nargs==0 + disp(GENTEN); + return; + end; + Pt=varargin(1); + GENTEN=Pt; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin Binary files differnew file mode 100644 index 00000000..fd0d6bd7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci new file mode 100644 index 00000000..b3f0cbad --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci @@ -0,0 +1,11 @@ +function Setpen(Width) + global Wfile FID PenThick PenThickInit; + PenThick=round(PenThickInit*Width); + Str='\linethickness{'+string(PenThick/1000)+'in}%'; + if Wfile=='default' + mprintf('%s\n',Str); + else + mfprintf(FID,'%s\n',Str); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin Binary files differnew file mode 100644 index 00000000..07e56733 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci new file mode 100644 index 00000000..455551bb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci @@ -0,0 +1,16 @@ +// 08.08.12 +// 08.08.15 + +function Setpers(varargin) + global FocusPoint EyePoint; + Nargs=length(varargin); + if Nargs==0 + Mixdisp(Mix('FocusPoints=',FocusPoint)); + Mixdisp(Mix('EyePoint=',EyePoint)); + return; + else + FocusPoint=varargin(1); + EyePoint=varargin(2); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin Binary files differnew file mode 100644 index 00000000..43792ee3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci new file mode 100644 index 00000000..a3b86b01 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci @@ -0,0 +1,16 @@ +// +// 09.02.27 + +function Setpt(varargin) + global TenSize TenSizeInit; + Nargs=length(varargin); + if Nargs==0 + Tmp=TenSize/TenSizeInit; + Tmp=round(Tmp*100)/100; + disp(Tmp); + return; + end; + Size=varargin(1); + TenSize=TenSizeInit*Size; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin Binary files differnew file mode 100644 index 00000000..85da2aca --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci new file mode 100644 index 00000000..1d4868c9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci @@ -0,0 +1,28 @@ +function Out=Setscaling(varargin) + global LOGX LOGY SCALEX SCALEY; + Nargs= length(varargin) + if Nargs==0 + Out=[SCALEY,LOGX,LOGY]; + return; + end; + for I=1:Nargs + Tmp=varargin(I); + if type(Tmp)==1 + SCALEY=Tmp; + end; + if type(Tmp)==10 + if Tmp=="l" + LOGX=0; + LOGY=1; + elseif Tmp=="ll" + LOGX=1 + LOGY=1 + else + LOGX=0 + LOGY=0 + end; + end; + end; + Out=[SCALEY,LOGX,LOGY]; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin Binary files differnew file mode 100644 index 00000000..4e097b75 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci new file mode 100644 index 00000000..cb6c79ae --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci @@ -0,0 +1,12 @@ +// 08.08.12 +// 08.09.21 +// 09.03.09 + +function SetstereoL(R,T,P,H) + X=R*sin(T*%pi/180)*cos(P*%pi/180); + Y=R*sin(T*%pi/180)*sin(P*%pi/180); + Z=R*cos(T*%pi/180); + Eye=[X+H/2*Y/(X^2+Y^2),Y-H/2*X/(X^2+Y^2),Z]; + Setpers([0,0,0],Eye); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin Binary files differnew file mode 100644 index 00000000..bf25b018 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci new file mode 100644 index 00000000..ff9de892 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci @@ -0,0 +1,10 @@ +// 08.08.12 + +function SetstereoR(R,T,P,H) + X=R*sin(T*%pi/180)*cos(P*%pi/180); + Y=R*sin(T*%pi/180)*sin(P*%pi/180); + Z=R*cos(T*%pi/180); + Eye=[X-H/2*Y/(X^2+Y^2),Y+H/2*X/(X^2+Y^2),Z]; + Setpers([0,0,0],Eye); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin Binary files differnew file mode 100644 index 00000000..455d977f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci new file mode 100644 index 00000000..84ea4d60 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci @@ -0,0 +1,78 @@ +// 08.12.06 +// 08.12.18 +// 09.02.20 +// 09.02.27 +// 14.03.05 MARKLEN +// 17.03.19 VL=[] => VL=""; + +function Out=Setunitlen(varargin) + global FID XMIN XMAX YMIN YMAX ULEN + global MilliIn MARKLEN MARKLENNow PenThickInit; + if length(varargin)==0 + Out=ULEN; + disp(ULEN); + return; + end; + Ul=varargin(1); + Dx=XMAX-XMIN; + Dy=YMAX-YMIN; + Sym='.0123456789 +-*/'; + Tmp=ascii(Sym); + SL=Sym; + OL='+-*/'; + if Ul~='' + ULEN=Ul; + end; + Out=ULEN; + Is=1; + VL=""; // 17.03.19 + Ucode=ascii(ULEN); + for I=1:length(Ucode) + C=char(Ucode(I)); + if mtlb_findstr(SL,C)~=[] + if mtlb_findstr(OL,C) + Str=char(Ucode(Is:(I-1))); + VL=VL+Str+C; + Is=I+1; + end + else + Unit=char(Ucode(I:(I+1))); + Str=char(Ucode(Is:(I-1))); + VL=VL+Str; + break; + end; + end; + Valu=evstr(VL); + Str=string(Valu); + ULEN=Str+Unit; + Out=ULEN; + if Unit=='cm' + MilliIn=1000/2.54*Valu; + end + if Unit=='mm' + MilliIn=1000/2.54*Valu/10; + end + if Unit=='in' + MilliIn=1000*Valu; + end + if Unit=='pt' + MilliIn=1000/72.27*Valu; + end + if Unit=='pc' + MilliIn=1000/6.022*Valu; + end + if Unit=='bp' + MilliIn=1000/72*Valu; + end + if Unit=='dd' + MilliIn=1000/1238/1157/72.27*Valu; + end + if Unit=='cc' + MilliIn=1000/1238/1157/72.27*12*Valu;p + end + if Unit=='sp' + MilliIn=1000/72.27/65536*Valu/10; + end + MARKLEN=MARKLENNow*1000/2.54/MilliIn; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin Binary files differnew file mode 100644 index 00000000..a2e35ff2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci new file mode 100644 index 00000000..92883d5a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci @@ -0,0 +1,182 @@ +// +// 08.11.12 V3.0.2b +// 08.11.26 V3.0.2c +// 08.12.08 V3.0.2d +// 08.12.11 v3.0.2e +// 08.12.17 v3.0.3a +// 08.12.21 v3.0.3b +// 08.12.30 v3.0.3c +// 09.01.15 v3.0.3d +// 09.02.20 v3.0.3e +// 09.02.27 v3.0.4a +// 09.02.27 v3.0.4b +// 09.03.06 v3.0.4c +// 09.03.09 v3.0.4d +// 09.03.10 v3.0.4e +// 09.03.12 v3.0.5a +// 09.05.12 v3.0.5b +// 09.05.18 v3.0.5c +// 09.05.27 v3.0.6a +// 09.06.01 v3.0.6b +// 09.06.05 v3.0.6c +// 09.06.13 v3.0.6d +// 09.06.24 v3.0.6e +// 09.08.12 v3.0.7a +// 09.08.13 v3.0.7b +// 09.08.23 v3.0.8a +// 09.09.10 v3.0.9a +// 09.09.18 v3.1.0a +// 09.09.21 v3.1.0b +// 09.09.25 v3.1.1a +// 09.09.25 v3.1.1b +// 09.10.01 v3.1.1c +// 09.10.03 v3.1.2a +// 09.10.04 v3.1.3a +// 09.10.05 v3.1.3b +// 09.10.08 v3.1.3c +// 09.10.09 v3.1.4a +// 09.10.11 v3.1.5a + +// Structure changed +// 09.10.11 v3.2.0beta +// 09.10.31 v3.2.0beta1031 + +// 09.11.01 v3.2.0a +// 09.11.04 v3.2.1a +// 09.11.12 v3.2.1b +// 09.11.14 v3.2.1c +// 09.11.14 v3.2.1d +// 09.11.21 v3.2.1e +// 09.11.26 v3.2.2a +// 09.12.05 v3.2.2b +// 09.12.06 v3.2.3a +// 09.12.17 v3.2.3b +// 09.12.24 v3.2.3c +// 09.12.25 v3.3.1a +// 09.12.26 v3.3.1b +// 09.12.28 v3.3.1c +// 09.12.31 v3.3.1d ( for v5.2.0) +// 10.01.01 v3.4.0alpha +// 10.01.05 v3.4.0beta +// 10.01.10 v3.4.1a +// 10.01.12 v3.4.1b +// 10.01.16 v3.4.1c +// 10.01.21 v3.4.2a +// 10.02.01 v3.4.2b +// 10.02.07 v3.4.2c +// 10.02.12 v3.4.2d +// 10.02.14 v3.4.2e +// 10.02.16 v3.4.3a +// 10.02.20 v3.4.3b Windisp +// 10.02.24 v3.4.3c Execmd +// 10.03.07 v3.4.3d +// 10.03.28 v3.4.4a +// 10.03.28 v3.4.4b +// 10.04.03 v3.4.5a +// 10.04.10 v3.4.5b +// 10.04.16 v3.4.6a +// 10.04.24 v3.4.6b +// 10.04.24 v3.4.6b1 +// 10.04.27 v3.4.7a +// 10.05.03 v3.4.7b +// 10.05.09 v3.4.7c Makeskeletondata, Makeskeletonpersdata +// 10.05.12 v3.4.7d Texfor +// 10.05.15 v3.4.8a Texctr +// 10.08.15 v3.5.0a Phcutoffdata +// 10.09.02 Dropnumlistcrv +// 10.10.20 Texfor +// 10.11.04 Hatchdata, Roundstr +// 10.11.13 v3.5.0b Flattenlist added. Dashline, Invdashline changed +// 10.12.02 v3.5.0c Lineplot changed +// Makecurves debugged +// Enclosing changed (Output ) +// 11.01.07 v3.5.1a Readtextdata is changed +// Dividegraphiics, Splinedata are changed +// Facesdata is debugged (HiddenL) +// Rmmember added +// 11.04.13 Nohiddenpers2, Htickmark, Vtickmark are debugged +// 11.05.29 v4.0.0a ketpict2e released, too +// Setcolor, Ratiocmyk +// 11.11.02 v4.0.0b Joingraphics changed +// 11.12.12 v4.0.0c Skeletonparadata... changed (for various list ) +// 11.12.18 Framedata (compliant for list ) +// 12.01.07 v4.0.1a Arrowline, Arrowhead ( kirikomi ) +// 12.04.16 v4.0.1b Arrowhead debugged +// 12.08.26 v4.0.1c Arrowline debugged +// 13.05.03 v4.2a Tabledata, Pointdata changed +// Dividetable, Partframe added +// 13.05.17 v4.2_1a Arrowhead debugged +// Openfile, Closefile, Ketinit() changed +// 13.08.13 v4.2_2 Cancoordpara added +// 13.10.06 v4.2_2a Readtextdata debugged and changed (Format) +// 13.11.02 v4.3_0 __ added to local variables +// Openfile, Closefile changed +// 13.11.02 v4.3_0a Closefile debugged +// 13.11.13 v4.3_0b Arrowhead, Arrowheaddata debugged +// 13.12.03 v4.3_1 Bowname changed, Meetpoint debugged +// 14.01.10 v4.3_1a Readtextdata debugged (Big data) +// 14.03.05 v4.3_1b MARKLEN separated from MEMORI +// 14.03.23 Rotate3data debugged +// 14.03.30 v43_1c Facesdata debugged +// 14.06.09 v43_2a Phcutdata debugged (cause unknown ) +// 14.06.22 v5_0_1a Obj macros added +// 14.06.28 v5_0_1b debug cuspsplit (para, pers) +// 14.07.05 v5_0_1c debug (warning ) Makeskeletondata, Makeskeletonpersdata +// debug Makexybdy (by Kitahara) +// 14.07.18 v5_0_1d Objsurf, Objthicksurf changed ( input argument ) +// 14.08.26 V5_1_0a Symbdata, Symb3data, Objsymb added +// Objcurve debugged +// 14.09.07 v5_1_0b Objjoin added +// 14.09,08 v5_1_1a ReadfromCindy added +// 14.09.16 v5_1_1b WritetoCindy added +// 14.09.26 v5_1_1c Derivative changed ( to numderivative) +// 14.09.30 v5_1_1d Assignrep changed +// 14.10.08 v5_1_1e ReadfromCindy debugged +// 14.10.08 v5_1_1f ReadfromCindy supported CF|LF +// 14.10.10 v5_1_2a ReadOutdata, WritOutData added +// 14.10.24 v5_1_2b Derivative changed ( derivative or numderivative used a.t scilab version) +// Plotdata,Paramplot,Circledata changed ( N,D,E,R => N__, ... ) +// 14.12.11 v5_1_3a Assign changed (replaced only variable name ) +// Plotdata changed (and debugged ), Paramplot changed +// 12.14 WriteOutData,ReadOutData changed ( for 3d ) +// 14.12.28 v5_1_3b Assign debugged +// 15.01.01 v5_1_4a Bezierpt,Bezier added +// 15.01.03 v5_1_4b ReadOutData changed ("start","end") +// 15.02.08 v5_1_5a Bezier pt changed (available for 3d) +// 15.02.18 v5_1_5b Assign debugged +// 15.02.19 v5_1_5c Assign again debugged +// 15.04.10 v5_1_5d EnclosingS debugged +// Translatedata, Rotatedata, Reflectdata, Scaledate changed (Flattenlist) +// 15.04.18 v5_1_5e Assign debugged +// 15.05.03 v5_1_6a Setcolor,Ratiocmyk changed ( for cmyk, rgb, mycolor ) +// 15.05.04 Definecolor added +// 15.06.11 v5_1_6b Arrowline, Arrowhead debugged +// 15.06.14 v5_1_6c Skeletonpara3data debugged +// Arrowhead changed (0.2 -> 0.1 ) +// 15.10.19 v5_1_6d Skeletonpara3data debugged +// 15.10.23 v5_1_6e ReadOutData changed ( for the lenth of PD is 1 ) +// 15.10.23 Meetwindow changed ( horner non used ) +// 15.10.24 Arrowline debugged +// 15.10.23 v5_1_6f WriteOutData changed ( endmark //// ) +// 15.11.05 v5_1_6g WriteOutData changed +// 15.11.16 v5_2_1 Ovaldata changed ( Rc ) +// Plotdata, Paramplot, Deqplot +// number of points changed to number of intervals +// 15.12.08 v5_2_2 Deqplot debugged ( option __) +// 16.08.20 v5_2_3 Spacecurve debugged ( N ) +// 16.10.09 v5_2_3a Objcurve changed ( N of Sapcecurve) +// 16.10.09 v5_2_3b Kyoukai changed ( Eps =>10^(-4)) +// 16.10.09 v5_2_3c Enclosing, Kyoukai changed ( to make it a closed curve)) +// 16.12.13 v5_2_3d Plotdata,Paramplot,Spacecurve changed ( for only one point) +// 16.12.24 v5_2_3e Makeskeletondata debugged ( for nul interval) +// 16.12.29 v5_2_3f Anglemark, MeetWindow debugged ( for nul interval) +// 16.12.29 v5_2_3g Shade changed (for colorname or colorcode) +// 17.03.19 v5_2_3h Openpicture,Setunitlen debugged ( for 6 ) +// 17.05.21 v5_2_3i Evlptablepara changed (division number) + + +function Setversion() + global THISVERSION; + THISVERSION='v5_2_3i'; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin Binary files differnew file mode 100644 index 00000000..0fdd661f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci new file mode 100644 index 00000000..fb72097b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci @@ -0,0 +1,44 @@ +// +// 09.02.27 +// 10.04.25 + +function Out=Setwindow(varargin) + global XMIN XMAX YMIN YMAX + Nargs=length(varargin); + if Nargs==0 + Out=[XMIN,XMAX,YMIN,YMAX]; + disp(Out); + return; + end; + if Nargs==1 + Dt=varargin(1); + if type(Dt)==1 + Dt=list(Dt); + end; + Xm=%inf; XM=-%inf; + Ym=%inf; YM=-%inf; + for I=1:length(Dt) + GL=Dividegraphics(Dt(I)); + for J=1:length(GL) + G=GL(J); + Tmp=min(G(:,1)); Xm=min(Xm,Tmp); + Tmp=max(G(:,1)); XM=max(XM,Tmp); + Tmp=min(G(:,2)); Ym=min(Ym,Tmp); + Tmp=max(G(:,2)); YM=max(YM,Tmp); + end; + end; + XMIN=Xm; XMAX=XM; + YMIN=Ym; YMAX=YM; + end; + if Nargs==2 + RgX=varargin(1); + RgY=varargin(2); + XMIN=RgX(1); XMAX=RgX(2); + YMIN=RgY(1); YMAX=RgY(2); + end + if Nargs==4 + XMIN=varargin(1); XMAX=varargin(2); + YMIN=varargin(3); YMAX=varargin(4); + end; + Out=[XMIN,XMAX,YMIN,YMAX]; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin Binary files differnew file mode 100644 index 00000000..df965eb7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci new file mode 100644 index 00000000..9c20a13b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci @@ -0,0 +1,62 @@ +// 08.08.16 +// 08.10.10 +// 13.10.21 ( __ added to varibles ) + +function PL__=Sf3data(varargin) + Nargs__=length(varargin); + FdL__=Fullformfunc(varargin(1)); + F__=Mixop(1,FdL__); + Xf__=Mixop(2,FdL__); + Yf__=Mixop(3,FdL__); + Zf__=Mixop(4,FdL__); + Urg__=Mixop(5,FdL__); + Vrg__=Mixop(6,FdL__); + K__=mtlb_findstr(Urg__,'='); + U__=part(Urg__,1:K__-1); + Tmp__=part(Urg__,K__+1:length(Urg__)); + Tmp__=evstr(Tmp__); + Umin__=Tmp__(1); Umax__=Tmp__(2); + K__=mtlb_findstr(Vrg__,'='); + V__=part(Vrg__,1:K__-1); + Tmp__=part(Vrg__,K__+1:length(Vrg__)); + Tmp__=evstr(Tmp__); + Vmin__=Tmp__(1); Vmax__=Tmp__(2); + Ndu__=25 ; Ndv__=25; Np__=[50,50]; + if Nargs__>=3 + Ndu__=varargin(2); + Ndv__=varargin(3); + end; + if Nargs__>=4 + Np__=varargin(4); + if type(Np__)==1 & length(Np__)==1 + Np__=[Np__,Np__]; + end; + end; + Du__=(Umax__-Umin__)/Ndu__; + Dv__=(Vmax__-Vmin__)/Ndv__; + PL__ = []; + for I__=0:Ndu__ + U0__ ='('+string(Umin__+I__*Du__)+')'; + Tmp__=strsubst(Xf__,U__,U0__); + Tmp1__=strsubst(Tmp__,V__,'t'); + Tmp__=strsubst(Yf__,U__,U0__); + Tmp2__=strsubst(Tmp__,V__,'t'); + Tmp__=strsubst(Zf__,U__,U0__); + Tmp3__=strsubst(Tmp__,V__,'t'); + Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']'; + PD__=Spacecurve(Tmp__,'t=[Vmin__,Vmax__]','N='+string(Np__(2))); + PL__=Mixadd(PL__,PD__); + end; + for J__=0:Ndv__ + V0__='('+string(Vmin__+J__*Dv__)+')'; + Tmp__=strsubst(Xf__,V__,V0__); + Tmp1__=strsubst(Tmp__,U__,'t'); + Tmp__=strsubst(Yf__,V__,V0__); + Tmp2__=strsubst(Tmp__,U__,'t'); + Tmp__=strsubst(Zf__,V__,V0__); + Tmp3__=strsubst(Tmp__,U__,'t'); + Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']'; + PD__=Spacecurve(Tmp__,'t=[Umin__,Umax__]','N='+string(Np__(1))); + PL__=Mixadd(PL__,PD__); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin Binary files differnew file mode 100644 index 00000000..a86220d5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci new file mode 100644 index 00000000..7a759f69 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci @@ -0,0 +1,39 @@ +// 08.09.13 +// 10.02.16 Eps => [Eps, Epsmag] + +function Out5=Sfbdparadata(varargin) + global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; + Nargs=length(varargin); + Fd=varargin(1); + FdL=Fullformfunc(Fd); + Np=[50,50]; + if Nargs>=2 + Np=varargin(2); + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=[0.05,1]; // + if Nargs>=3 + Eps=varargin(3); + end; + if length(Eps)==1 // + Eps=[Eps,1]; // + end; // + Eps2=0.2; + if Nargs>=4 + Eps2=varargin(4); + end; + Ts=timer(); + [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np)); + Out3=Implicitplot(Zval,Xval,Yval); + IMPLICITDATA=Out3; + Mixdisp(Mix('ImplicitData obtained ',timer())); + Out4=Cuspsplitpara(Out3,Fd,Eps(1)); // + CUSPDATA=Out4; + CUSPPT=CUSPSPLITPT; + Mixdisp(Mix('CuspData obtained ',timer())); + Out5=Borderparadata(Out4,Fd,Np,Eps,Eps2); + Mixdisp(Mix('BorderData obtained ',timer())); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin Binary files differnew file mode 100644 index 00000000..304be9f0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci new file mode 100644 index 00000000..9833a7f4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci @@ -0,0 +1,42 @@ + +// 08.09.21 +// 10.02.16 Eps => [Eps, Epsmag] +// 13.11.02 bug + +function Out5=Sfbdpersdata(varargin) + global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; + Nargs=length(varargin); + Fd=varargin(1); + FdL=Fullformfunc(Fd); + Np=[50,50]; + if Nargs>=2 + Np=varargin(2); + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=[0.05,1]; // + if Nargs>=3 + Eps=varargin(3); + end; + if length(Eps)==1 // + Eps=[Eps,1]; // + end; // + Eps2=0.2; + if Nargs>=4 + Eps2=varargin(4); + end; + Ts=timer(); + [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np)); + Out3=Implicitplot(Zval,Xval,Yval); + IMPLICITDATA=Out3; + Mixdisp(Mix('ImplicitData obtained ',timer())); + Out4=Cuspsplitpers(Out3,Fd,Eps(1)); // 13.11.02 + CUSPDATA=Out4; + CUSPPT=CUSPSPLITPT; + Mixdisp(Mix('CuspData obtained ',timer())); + Out5=Borderpersdata(Out4,Fd,Np,Eps,Eps2); + Mixdisp(Mix('BorderData obtained ',timer())); +endfunction; + + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin Binary files differnew file mode 100644 index 00000000..cb2d0f7a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci new file mode 100644 index 00000000..082ccec3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci @@ -0,0 +1,33 @@ +// 08.09.10 +// 08.09.13 + +function Out5=Sfbdrawparadata(varargin) + global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; + Nargs=length(varargin); + Fd=varargin(1); + FdL=Fullformfunc(Fd); + Np=[50,50]; + if Nargs>=2 + Np=varargin(2); + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=0.05; + if Nargs>=3 + Eps=varargin(3); + end; + Ts=timer(); + [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np)); + Out3=Implicitplot(Zval,Xval,Yval); + BdyL=Mixop(8,FdL); + if BdyL~=[] + Out3=Clipindomain(Out3,BdyL) + end; + IMPLICITDATA=Out3; + Out4=Cuspsplitpara(Out3,Fd,Eps); + CUSPDATA=Out4; + CCUSPPT=CUSPSPLITPT; + Out5=Borderrawdata(Out4,Fd,Np,Eps); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin Binary files differnew file mode 100644 index 00000000..5731c723 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci new file mode 100644 index 00000000..cde6870f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci @@ -0,0 +1,31 @@ +// 08.09.21 + +function Out5=Sfbdrawpersdata(varargin) + global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; + Nargs=length(varargin); + Fd=varargin(1); + FdL=Fullformfunc(Fd); + Np=[50,50]; + if Nargs>=2 + Np=varargin(2); + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=0.05; + if Nargs>=3 + Eps=varargin(3); + end; + Ts=timer(); + [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np)); + Out3=Implicitplot(Zval,Xval,Yval); + BdyL=Mixop(8,FdL); + if BdyL~=[] + Out3=Clipindomain(Out3,BdyL) + end; + IMPLICITDATA=Out3; + Out4=Cuspsplitpers(Out3,Fd,Eps); + CUSPDATA=Out4; + CCUSPPT=CUSPSPLITPT; + Out5=Borderrawdata(Out4,Fd,Np,Eps); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin Binary files differnew file mode 100644 index 00000000..a7dae3c3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci new file mode 100644 index 00000000..5a15d61c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci @@ -0,0 +1,105 @@ +// 08.09.09 +// 08.09.19 +// 08.09.20 +// 08.09.24 +// 08.10.09 +// 08.10.10 +// 13.10.21 ( __ added to varibles ) + +function EkL__=Sfcutdata(varargin) + Nargs__=length(varargin); + Fd__=varargin(1); + CutD__=varargin(2); + Np__=[50,50]; + if Nargs__>=3 + Tmp__=varargin(3); + if type(Tmp__)==1 & length(Tmp__)==1 + Np__=[Tmp__,Tmp__]; + end; + end; + Tmp__=Mixop(2,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Xname__=part(Tmp__,1:K__-1); + Tmp__=Mixop(3,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Yname__=part(Tmp__,1:K__-1); + Tmp__=Mixop(1,Fd__); + K__=mtlb_findstr(Tmp__,'='); + if K__~=[] + Zname__=part(Tmp__,1:K__-1); + else + Tmp__=Mixop(4,Fd__); + K__=mtlb_findstr(Tmp__,'='); + Zname__=part(Tmp__,1:K__-1); + end; + Fd__L=Fullformfunc(Fd__); + Xf__=Mixop(2,Fd__L); + Yf__=Mixop(3,Fd__L); + Zf__=Mixop(4,Fd__L); + Tmp__=Mixop(5,Fd__L); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,Fd__L); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Umin__=Urg__(1); Umax=Urg__(2); + Vmin__=Vrg__(1); Vmax=Vrg__(2); + if Mixtype(CutD__)~=1 + V1__=Mixop(1,CutD__); + Tmp__=Mixop(2,CutD__); + if length(Tmp__)>1 + D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); + else + D__=Tmp__; + end; + Tmp__=string(V1__(1))+'*'+Xname__+'+'; + Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; + Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-'; + Eq__=Tmp__+string(D__); + elseif type(CutD__)==1 + V1__=CutD__(1:3); + D__=CutD__(4); + Tmp__=string(V1__(1))+'*'+Xname__+'+'; + Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; + Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+'; + Eq__=Tmp__+string(D__); + else + K__=mtlb_findstr(CutD__,'='); + if K__>0 + Tmp__1=part(CutD__,1:K__-1); + Tmp__2=part(CutD__,K__+1:length(CutD__)); + Eq__=Tmp__1+'-('+Tmp__2+')'; + else + Eq__=CutD__; + end; + end; + Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')'); + Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')'); + Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')'); + Tmp__1=Mixop(5,Fd__L); + Tmp__2=Mixop(6,Fd__L); + CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__); + EkL__=[]; + for I__=1:Mixlength(CutuvL__) + Out__1=Mixop(I__,CutuvL__); + Out__2=[]; + for J__=1:size(Out__1,1) + Tmp__1=Out__1(J__,1); + Tmp__2=Out__1(J__,2); + Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Xv__=evstr(Tmp__); + Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Yv__=evstr(Tmp__); + Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); + Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); + Zv__=evstr(Tmp__); + Out__2=[Out__2,[Xv__,Yv__,Zv__]]; + end; + Tmp__=Spaceline(Out__2); + EkL__=Mixadd(EkL__,Tmp__); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin Binary files differnew file mode 100644 index 00000000..07cfe7f8 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci new file mode 100644 index 00000000..0e4c6a5b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci @@ -0,0 +1,12 @@ +// 08.09.1 +// 10.02.17 + +function Out=Sfcutoffparadata(varargin) + Ms=list('hidden','para'); + for I=1:length(varargin) + Tmp=varargin(I); + Ms=Mixjoin(Ms,list(Tmp)); + end; + Out=Makesfcutoffdata(Ms); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin Binary files differnew file mode 100644 index 00000000..aaf088b5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci new file mode 100644 index 00000000..c10cdb8d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci @@ -0,0 +1,12 @@ +// 08.09.21 +// 10.02.17 + +function Out=Sfcutoffpersdata(varargin) + Ms=list('hidden','pers'); + for I=1:length(varargin) + Tmp=varargin(I); + Ms=Mixjoin(Ms,list(Tmp)); + end; + Out=Makesfcutoffdata(Ms); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin Binary files differnew file mode 100644 index 00000000..b2d998a7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci new file mode 100644 index 00000000..546f66d8 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci @@ -0,0 +1,12 @@ +// 08.09.19 +// 10.02.17 + +function Out=Sfcutoffrawparadata(varargin) + Ms=list('raw','para'); + for I=1:length(varargin) + Tmp=varargin(I); + Ms=Mixjoin(Ms,list(Tmp)); + end; + Out=Makesfcutoffdata(Ms); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin Binary files differnew file mode 100644 index 00000000..8c08c1b7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci new file mode 100644 index 00000000..e5a387f5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci @@ -0,0 +1,12 @@ +// 08.09.21 +// 10.02.17 + +function Out=Sfcutoffrawpersdata(varargin) + Ms=list('raw','pers'); + for I=1:length(varargin) + Tmp=varargin(I); + Ms=Mixjoin(Ms,list(Tmp)); + end; + Out=Makesfcutoffdata(Ms); +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin Binary files differnew file mode 100644 index 00000000..45df29ba --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci new file mode 100644 index 00000000..5aa4e5e5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci @@ -0,0 +1,17 @@ +// 08.08.16 + +function Out=Sfparadata(varargin) + Nargs=length(varargin); + Fd=varargin(1); + Ndu=25 ; Ndv=25; Np=[50,50]; + if Nargs>=3 + Ndu=varargin(2); + Ndv=varargin(3); + end; + if Nargs>=4 + Np=varargin(4); + end; + Tmp=Sf3data(Fd,Ndu,Ndv,Np); + Out=Projpara(Tmp); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin Binary files differnew file mode 100644 index 00000000..3350f9b9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci new file mode 100644 index 00000000..ecc63e41 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci @@ -0,0 +1,17 @@ +// 08.08.15 + +function Out=Sfpersdata(varargin) + Nargs=length(varargin); + Fd=varargin(1); + Ndu=25 ; Ndv=25; Np=[50,50]; + if Nargs>=3 + Ndu=varargin(2); + Ndv=varargin(3); + end; + if Nargs>=4 + Np=varargin(4); + end; + Tmp=Sf3data(Fd,Ndu,Ndv,Np); + Out=Projpers(Tmp); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin Binary files differnew file mode 100644 index 00000000..130e2b32 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci new file mode 100644 index 00000000..ff22a933 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci @@ -0,0 +1,84 @@ +// 08.05.22 +// 09.12.25 +// 11.05.27 (for pdflatex ) +// 17.01.09 (shade, thickness ) + +function Shade(varargin) + global Wfile FID MilliIn; + // 2nd arg is a color name or '[..]{ }' + Nargs=length(varargin); + Iroflg=0; + if Nargs>1 + Iroflg=1; + Iro=varargin(Nargs); + if type(Iro)==10 then + if length(strchr(Iro,"{"))>0 + Str="{\color"+Iro; + else + Str="{\color{"+Iro+"}"; + end; + else + if length(Iro)==4 + Str='{\color[cmyk]{'; + else + Str='{\color[rgb]{'; + end; + for J=1:length(Iro) + Str=Str+string(Iro(J)); + if J<length(Iro) then + Str=Str+','; + end + end + Str=Str+'}'; + end; + if Wfile=='default' + mprintf('%s\n',Str+'%'); + else + mfprintf(FID,'%s\n',Str); + end; + end; + Mojisu=0; // + Tmp=varargin(1); + Data=Kyoukai(Tmp); + for I=1:length(Data) + PL=Op(I,Data); + for J=1:size(PL,1) + P=Doscaling(PL(J,:)); + X=sprintf('%5.5f',P(1)); + Y=sprintf('%5.5f',P(2)); + Pt='('+X+','+Y+')'; + if J==1 then + Str='\polygon*'+Pt; + else + Str=Pt; + end + if Wfile=='default' + mprintf('%s',Str); + else + mfprintf(FID,'%s',Str); + end + Mojisu=Mojisu+length(Str); + if Mojisu>80 + if Wfile=='default' + mprintf('%s\n','%'); + else + mfprintf(FID,'%s\n','%'); + end + Mojisu=0; + end; + end; + end; + if Iroflg==1 + Str='}%'; + if Mojisu>0 + Fmt='\n%s\n'; + else + Fmt='%s\n'; + end; + if Wfile=='default' + mprintf(Fmt,Str); + else + mfprintf(FID,Fmt,Str); + end; + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin Binary files differnew file mode 100644 index 00000000..89d8b459 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci new file mode 100644 index 00000000..4eec31cf --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci @@ -0,0 +1,71 @@ +// 08.08.14 +// 08.10.16 +// 09.06.13 + +function Out=Skeleton2data(varargin) + global MilliIn; + Nargs=length(varargin); + Out=[]; + Tmp=varargin(1); + if Mixtype(Tmp)==1 + ObjL=MixS(Tmp); + elseif Mixtype(Tmp)==2 + ObjL=Tmp; + else + ObjL=[]; + for I=1:Mixlength(Tmp) + Tmp1=Mixop(I,Tmp); + if Mixtype(Tmp1)==1 + ObjL=Mixadd(ObjL,Tmp1); + else + ObjL=Mixjoin(ObjL,Tmp1); + end; + end; + end; + Tmp=varargin(2); + if Mixtype(Tmp)==1 + PltL=MixS(Tmp); + elseif Mixtype(Tmp)==2 + PltL=Tmp + else + PltL=[]; + for I=1:Mixlength(Tmp) + Tmp1=Mixop(I,Tmp); + if Mixtype(Tmp1)==1 + PltL=Mixadd(PltL,Tmp1); + else + PltL=Mixjoin(PltL,Tmp1); + end; + end; + end; + R=0.075*1000/2.54/MilliIn; + if Nargs>2 + R=R*varargin(3); + end; + Eps2=0.01; + if Nargs>3 + Eps2=varargin(4); + end; + Obj2L=[]; + for I=1:Mixlength(ObjL) + Curve=Mixop(I,ObjL); + Obj2=[]; + for J=1:size(Curve,1) + P=Curve(J,:); + Obj2=[Obj2;P,-1]; + end; + Obj2L=Mixadd(Obj2L,Obj2); + end; + Plt2L=[] + for I=1:Mixlength(PltL) + Curve=Mixop(I,PltL); + Plt2=[]; + for J=1:size(Curve,1) + P=Curve(J,:); + Plt2=[Plt2;P,0]; + end; + Plt2L=Mixadd(Plt2L,Plt2); + end; + Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin Binary files differnew file mode 100644 index 00000000..03fcdda2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci new file mode 100644 index 00000000..5914d47a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci @@ -0,0 +1,48 @@ +// 09.09.25 +// 11.12.12 +// 15.06.14 +// 15.10.19 + +function Out=Skeletonpara3data(varargin) + global MilliIn; + Eps=10^(-4); // 15.06.14 + Nargs=length(varargin); + Out=[]; + ObjL=Flattenlist(varargin(1)); + Plt3L=Flattenlist(varargin(2)); + R=0.075*1000/2.54/MilliIn; + if Nargs>2 + R=R*varargin(3); + end; + Eps2=0.05; // changed at 08.10.16 + if Nargs>3 + Eps2=varargin(4); + end; + Plt2L=list(); + for I=1:Mixlength(Plt3L) + Plt2L($+1)=ProjcoordCurve(Plt3L(I)); + end; + Out=list(); + for I=1:length(ObjL) + Obj3=ObjL(I); + Tmp=ProjcoordCurve(Obj3); + Data=Makeskeletondata(Mix(Tmp),Plt2L,R,Eps2); + for J=1:length(Data) + Gd=Data(J); + if size(Gd,1)==1 // 15.10.19 + continue; + end; + if norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))<Eps // 15.06.14 + continue + end; + PtD=[]; + for J=1:size(Gd,1) + Tmp=Gd(J,:); + Tmp1=Invparapt(Tmp,Obj3); + Tmp1=Mixop(1,Tmp1); + PtD=[PtD;Tmp1]; + end; + Out($+1)=PtD; + end; + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin Binary files differnew file mode 100644 index 00000000..913af31d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci new file mode 100644 index 00000000..1270f789 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci @@ -0,0 +1,29 @@ +// 08.07.13 +// 08.08.08 +// 08.10.16 +// 11.12.12 (Flattenlist) + +function Out=Skeletonparadata(varargin) + global MilliIn; + Nargs=length(varargin); + Out=[]; + ObjL=Flattenlist(varargin(1)); + Plt3L=Flattenlist(varargin(2)); + R=0.075*1000/2.54/MilliIn; + if Nargs>2 + R=R*varargin(3); + end; + Eps2=0.05; // changed at 08.10.16 + if Nargs>3 + Eps2=varargin(4); + end; + Obj2L=list(); + for I=1:length(ObjL) + Obj2L($+1)=ProjcoordCurve(ObjL(I)); + end; + Plt2L=list(); + for I=1:length(Plt3L) + Plt2L($+1)=ProjcoordCurve(Plt3L(I)); + end; + Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2); +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin Binary files differnew file mode 100644 index 00000000..ec2a9bad --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci new file mode 100644 index 00000000..57dde938 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci @@ -0,0 +1,41 @@ +// 09.09.25 +// 11.12.12 + +function Out=Skeletonpers3data(varargin) + global MilliIn; + Nargs=length(varargin); + Out=[]; + ObjL=Flattenlist(varargin(1)); + Plt3L=Flattenlist(varargin(2)); + R=0.075*1000/2.54/MilliIn; + if Nargs>2 + R=R*varargin(3); + end; + Eps2=0.05; // changed at 08.10.16 + if Nargs>3 + Eps2=varargin(4); + end; + Plt2L=[]; + for I=1:Mixlength(Plt3L) + Tmp=CameracoordCurve(Mixop(I,Plt3L)); + Plt2L=Mixadd(Plt2L,Tmp); + end; + Out=list(); + for I=1:length(ObjL) + Obj3=ObjL(I); + Tmp=CameracoordCurve(Obj3); + Data=Makeskeletonpersdata(Mix(Tmp),Plt2L,R,Eps2); + for J=1:length(Data) + Gd=Data(J); + PtD=[]; + for J=1:size(Gd,1) + Tmp=Gd(J,:); + Tmp1=Invperspt(Tmp,Obj3); + Tmp1=Mixop(1,Tmp1); + PtD=[PtD;Tmp1]; + end; + Out($+1)=PtD; + end; + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin Binary files differnew file mode 100644 index 00000000..7d2c1a07 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci new file mode 100644 index 00000000..c91e73cf --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci @@ -0,0 +1,29 @@ +// 08.08.14 +// 08.10.16 +// 11.12.12 + +function Out=Skeletonpersdata(varargin) + global MilliIn; + Nargs=length(varargin); + Out=[]; + ObjL=Flattenlist(varargin(1)); + Plt3L=Flattenlist(varargin(2)); + R=0.075*1000/2.54/MilliIn; + if Nargs>2 + R=R*varargin(3); + end; + Eps2=0.05; // changed at 08.10.16 + if Nargs>3 + Eps2=varargin(4); + end; + Obj2L=list(); + for I=1:length(ObjL) + Obj2L($+1)=CameracoordCurve(ObjL(I)); + end; + Plt2L=list(); + for I=1:length(Plt3L) + Plt2L($+1)=CameracoordCurve(Plt3L(I)); + end; + Out=Makeskeletonpersdata(Obj2L,Plt2L,R,Eps2); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin Binary files differnew file mode 100644 index 00000000..880f8540 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci new file mode 100644 index 00000000..077a88cb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci @@ -0,0 +1,83 @@ +// 08.07.11 +// 09.05.27 +// 09.06.02 +// 09.12.31 (gsort) +// 13.10.21 ( __ added to varibles ) +// 16.08.20 (N changed to devided number ) +// 16.12.13 ( in case of T1=T2) + +function P__=Spacecurve(varargin) + Eps__=10^(-5); + Nargs__=length(varargin); + Fnstr__=varargin(1); + Rgstr__=varargin(2); + Range__=[0,2*%pi]; + N=50; // Numpoints + E=[]; // Exclusions + D=%inf; // Discont (Changed) + for I__=3:Nargs__ + Tmp__=varargin(I__); + K__=mtlb_findstr(Tmp__,'='); + Tmp1__=strsplit(Tmp__,[K__-1,K__]); + Tmp2__=ascii(Tmp1__(1,1)); + Lhs__=char(Tmp2__(1)); + Str__=Lhs__+'='+Tmp1__(3,1); + execstr(Str__); + end; + K__=mtlb_findstr(Rgstr__,'='); + if K__~=[] + Tmp__=strsplit(Rgstr__,[K__-1,K__]); + Vname__=Tmp__(1,1); + Rng__=evstr(Tmp__(3,1)); + else + Vname__=Rgstr__; + Rng__=[XMIN,XMAX]; + end + T1__=Rng__(1); T2__=Rng__(2); + Dt__=(T2__-T1__)/N; // 16.08.20 + Str__=mtlb_strrep(Fnstr__,Vname__,'t__'); + if abs(Dt__)<Eps__ then // 16.12.13 + t__=T1__; + P__=evstr(Str__); + return; + end; + P__=[]; + E=gsort(E); + E=E(length(E):-1:1); + E=[E,%inf]; + Tmp__=gsort(E); + E=Tmp__(length(Tmp__):-1:1); + Ke__=1; + for t__=T1__:Dt__:T2__ + Pa__=[]; + if t__-E(Ke__)<-Eps__ + Pa__=evstr(Str__); + end + if abs(t__-E(Ke__))<=Eps__ + if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf,%inf] + Pa__=[%inf,%inf,%inf]; + end + end + if t__-E(Ke__)>Eps__ + Pa__=evstr(Str__); + Ke__=Ke__+1; + end + if Pa__~=[] + if Pa__(1)==%inf + P__=[P__;Pa__] + elseif P__==[] + P__=[Pa__]; + else + Tmp__=P__(size(P__,1),:); + if Tmp__(1)==%inf + P__=[P__;Pa__]; + elseif norm(Tmp__-Pa__)<D + P__=[P__;Pa__]; + else + P__=[P__;%inf,%inf,%inf;Pa__]; + end + end + end + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin Binary files differnew file mode 100644 index 00000000..86bddaa8 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci new file mode 100644 index 00000000..9fe33c06 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci @@ -0,0 +1,27 @@ +// 08.07.11 + +function Z=Spaceline(varargin) + Z=[]; + for I=1:length(varargin) + Data=varargin(I); + if Mixtype(Data)==1 + for J=1:3:size(Data,2) + Tmp=Data(J:J+2); + Z=[Z;Tmp]; + end; + continue; + end; + if Mixtype(Data)==3 + Tmp=[]; + for I=1:Mixlength(Data); + Tmp=Mixjoin(Tmp,Mixop(I,Data)); + end; + Data=Tmp; + end; + for J=1:Mixlength(Data) + Tmp=Mixop(J,Data); + Z=[Z;Tmp]; + end; + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin Binary files differnew file mode 100644 index 00000000..cadb3d56 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci new file mode 100644 index 00000000..a4de85ea --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci @@ -0,0 +1,108 @@ +// 08.05.28 +// 08.05.29 +// 09.06.13 +// 10.04.24 +// 10.04.25 +// 11.01.07 ( major changed ) + +function OutL=Splinedata(varargin) + global SplinePt; + Nargs=length(varargin); + Eps=10^(-3); + PL=varargin(1); + if type(PL)==10 // 100425 + Fname=PL; + PL=Readtextdata(Fname); + else + if size(PL,1)==1 + PL=matrix(PL,2,length(PL)/2); + PL=PL'; + end; + end; + if size(PL,2)==3 + Flg3=1; + else + Flg3=0; + end; + PLL=Dividegraphics(PL); + N=50; + C=[]; + for I=2:Nargs + Tmp=varargin(I); + if type(Tmp)~=10 continue; end + if mtlb_findstr(Tmp,'=')~=[] + execstr(Tmp); + else + Tmp1=Strop(1,Tmp); + if Tmp1=='C' | Tmp1=='c' + C=1:length(PLL); + end; + end; + end; + Cflg=zeros(1,length(PLL)); + for J=1:length(C) + K=C(J); + Cflg(K)=1; + end; + if length(N)>1 + if type(Nj)==1 + Nj=N; + else + Nj=[]; + for J=1:length(N) + Nj(J)=N(J); + end; + end; + else + Tmp1=[]; + for J=1:length(PLL) + Tmp1(J)=size(PLL(J),1); + end; + MxP=max(Tmp1); + Nj=[]; + for J=1:length(PLL) + Tmp=size(PLL(J),1); + Tmp1=round(N/MxP*(Tmp-1)); + Nj(J)=Tmp1; + end; + end; + OutL=list(); + for J=1:length(PLL) // + PL=PLL(J); + if Cflg(J)==1 + if norm(PL(1,:)-PL(size(PL,1),:))>Eps + PL=[PL;PL(1,:)]; + Nj(J)=round(N/MxP*size(PL,1)); + else + PL(size(PL,1),:)=PL(1,:); + end + end; + SplinePt=PL; + Tn=1:size(PL,1); + Xn=PL(:,1)'; + Yn=PL(:,2)'; + if Flg3==1 Zn=PL(:,3)';end; + if Cflg(J)==0 + Dxn=splin(Tn,Xn); + Dyn=splin(Tn,Yn); + if Flg3==1 Dzn=splin(Tn,Zn); end; + else + Dxn=splin(Tn,Xn,'periodic'); + Dyn=splin(Tn,Yn,'periodic'); + if Flg3==1 Dzn=splin(Tn,Zn,'periodic'); end; + end + T=linspace(1,size(PL,1),Nj(J)); + X=interp(T,Tn,Xn,Dxn); + Y=interp(T,Tn,Yn,Dyn); + if Flg3==1 Z=interp(T,Tn,Zn,Dzn); end; + if Flg3==1 + Out=[X',Y',Z']; + else + Out=[X',Y']; + end; + OutL($+1)=Out; + end; + if length(OutL)==1 + OutL=OutL(1); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin Binary files differnew file mode 100644 index 00000000..de695ff2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci new file mode 100644 index 00000000..8f4da94d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci @@ -0,0 +1,11 @@ +function C=Strop(Num,Str) + N=length(Num); + L=ascii(Str); + C=''; + for I=1:N + K=Num(I); + Tmp=char(L(K)); + C=C+Tmp; + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin Binary files differnew file mode 100644 index 00000000..2ca7ae03 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci new file mode 100644 index 00000000..785b605c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci @@ -0,0 +1,21 @@ +// +// 08.06.04 + +function V=Subs(SbstrL,StrF) + Str=StrF; + if type(StrF)==2 + Str=pol2str(StrF); + end + V=StrF; + for N=1:size(SbstrL,2) + Sbstr=SbstrL(1,N); + I=mtlb_findstr(Sbstr,'='); + Tmp=strsplit(Sbstr,I); + SbA=Tmp(1); + SbA=Op(1:length(SbA)-1,SbA); + SbB=Tmp(2); + V=strsubst(V,SbA,SbB); + end + V=evstr(V); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin Binary files differnew file mode 100644 index 00000000..0e796d65 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci new file mode 100644 index 00000000..55fdfd0f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci @@ -0,0 +1,65 @@ +// 08.05.30 +// 08.05.31 +// 08.06.03 +// 13.10.21 (__ added to variables ) + +function PL__=Sumfun(varargin) + global XMIN XMAX YMIN YMAX + Nargs__=length(varargin); + Const__=0; + Addstr__='A__=0'; + J__=1; + Tmp__=varargin(1); + if type(Tmp__)==1 + Const__=Tmp__; + J__=J__+1; + end + if type(Tmp__)==10 + Tmp1__=Strop(length(Tmp__),Tmp__); + if Tmp1__=='+' + Addstr__='A__='+Strop(1:length(Tmp__)-1,Tmp__); + J__=J__+1 + end + end + Fnstr__=varargin(J__); + Krange__=varargin(J__+1); + Xrange__=varargin(J__+2); + N=50; + for I__=J__+3:Nargs__ + Tmp__=varargin(I__); + execstr(Tmp__); + end + Tmp__=mtlb_findstr(Krange__,'='); + Kname__=Strop(1:Tmp__-1,Krange__); + Tmp1__=Strop(Tmp__+1:length(Krange__),Krange__); + Tmp1__='Krg__='+Tmp1__; + execstr(Tmp1__); + Tmp__=mtlb_findstr(Xrange__,'='); + if Tmp__==[] + Xname__=Xrange__; + Xrg__=[XMIN,XMAX]; + else + Xname__=Strop(1:Tmp__-1,Xrange__); + Tmp1__=Strop(Tmp__+1:length(Xrange__),Xrange__); + Tmp1__='Xrg__='+Tmp1__; + execstr(Tmp1__); + end + Dx__=(Xrg__(2)-Xrg__(1))/N; + PL__=[]; + I__=0; + while I__<=N + Tmp__=Xname__+'=Xrg__(1)+I__*Dx__'; + execstr(Tmp__); + J__=Krg__(1); + execstr(Addstr__); + Y__=Const__+A__; + while J__<=Krg__(length(Krg__)) + Tmp__=Kname__+'=J__'; + execstr(Tmp__); + execstr('Y__=Y__+'+Fnstr__); + J__=J__+1; + end + PL__=[PL__;Xrg__(1)+I__*Dx__,Y__]; + I__=I__+1; + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin Binary files differnew file mode 100644 index 00000000..c5c00977 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci new file mode 100644 index 00000000..0d649872 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci @@ -0,0 +1,30 @@ +// s : 2014.08.25 + +function Out=Symb3data(Moji,Size,Kaiten,NV,Pos) + if type(Moji)==10 then + Tmp=Symbdata(Moji); + GY1=Tmp(2) + else + GY1=Moji + end + GY1=Scaledata(GY1,Size,Size); + GY1=Rotatedata(GY1,Kaiten*%pi/180); + A=NV(1); B=NV(2); C=NV(3); + if A^2+B^2==0 then + E1=[1,0,0]; + E2=[0,1,0]; + else + E1=[B,-A,0]; + E2=[-A*C,-B*C,A^2+B^2]; + D=det([E1;E2;NV]); + if D<0 then + E1=-E1 + end + E1=E1/norm(E1); + E2=E2/norm(E2); + end + deff("Out=Em(X,Y)","Out=[E1(1)*X+E2(1)*Y,E1(2)*X+E2(2)*Y,E1(3)*X+E2(3)*Y]"); + GY1=Embed(GY1,Em); + GY1=Translate3data(GY1,Pos); + Out=Flattenlist(GY1); +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin Binary files differnew file mode 100644 index 00000000..2fb81c8f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci new file mode 100644 index 00000000..d63a3470 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci @@ -0,0 +1,67 @@ +// s : 2014.08.25 +// 14.09.07 + +function Out=Symbdata(Moji) + ML=list(); Sp=[]; CC=[]; + if Moji=="x" then + M1=[-0.042,0.035;-0.027,0.045;-0.01,0.045;0.004,0.03;0.00,0.00;... + -0.004,-0.03;0.01,-0.045;0.027,-0.045;0.042,-0.035]; + M2=[0.055,0.035;0.043,0.045;0.027,0.045;0.01,0.03;0.00,0.00;... + -0.01,-0.03;-0.027,-0.045;-0.043,-0.045;-0.055,-0.035]; + ML=list(M1,M2); + Sp=[100,100]; + CC=[0,0]; + end; + if Moji=="y" then + M1=[-0.06,0.06;... + -0.045,0.080;... + -0.03,0.080;... + -0.022,0.065;... + -0.032,0.035;... + -0.035,-0.01;... + 0.007,-0.008;... + 0.037,0.04;... + 0.05,0.09]; + M2=[0.05,0.09;... + 0.037,0.04;... + 0.025,-0.00;... + 0.015,-0.035;... + -0.000,-0.055;... + -0.025,-0.062;... + -0.05,-0.045]; + ML=list(M1,M2); + Sp=[100,100]; + CC=[0,0]; + end + if Moji=="z" then + M1=[-0.035,0.035;-0.023,0.045;-0.01,0.045;... + 0.01,0.04;0.035,0.04;0.042,0.045]; + M2=[0.042,0.045;0.00,0.00;-0.042,-0.045]; + M3=[-0.042,-0.045;-0.035,-0.04;-0.01,-0.04;... + 0.01,-0.045;0.023,-0.045;0.035,-0.035]; + ML=list(M1,M2,M3); + Sp=[100,0,100]; + CC=[0,0,0]; + end + Out1=list() + Out2=list() + for J=1:length(ML) + M=ML(J); + N=Sp(J); + for K=1:size(M,1) + P=M(K,:) + Out1($+1)=P + end + if N>0 then + if CC(J)==0 then + S=Splinedata(M,"N="+string(N)) + else + S=Splinedata(M,"N="+string(N),"C") + end + else + S=M + end; + Out2($+1)=S + end + Out=list(Out1,Out2) +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin Binary files differnew file mode 100644 index 00000000..774b416f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci new file mode 100644 index 00000000..621f6256 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci @@ -0,0 +1,130 @@ +// 09.11.26 +// 09.12.06 +// 09.12.25 +// 10.01.12 +// 10.01.13 +// 10.03.28 +// 10.03.30 +// 13.05.03 Domain can be omitted + +function Out=Tabledata(varargin) +// 2013.05.01 Domain is optional. + Eps=0.001; + Tmp=varargin(1); // 130502 from + if type(Tmp)==1 + Domain=varargin(1); + VL=varargin(2); + HL=varargin(3); + else + Domain=[-1,-1]; + VL=varargin(1); + HL=varargin(2); + end; // 130502 upto + Hsize=Domain(1); + SvL=list(0); + S=0; + for I=1:length(VL) + Tmp=VL(I); + S=S+Tmp(1); + Tmp(1)=S; + SvL($+1)=Tmp; + end; + if Hsize>S + SvL($+1)=Hsize; + end; + Hsize=Op(1,SvL(length(SvL))); + Vsize=Domain(2); + ShL=list(0); + S=0; + for I=1:length(HL) + Tmp=HL(I); + S=S+Tmp(1); + Tmp(1)=S; + ShL($+1)=Tmp; + end; + if Vsize>S + ShL($+1)=Vsize; + end; + Vsize=Op(1,ShL(length(ShL))); + Marw=0; Mare=0; Mars=0; Marn=0; + if length(Domain)>2 + Marw=Domain(3); + Mare=Domain(4); + end; + if length(Domain)>4 + Marn=Domain(5); + Mars=Domain(6); + end; + Setwindow([-Marw,Hsize+Mare],[-Mars,Vsize+Marn]); + Tmp=Framedata([Eps,Hsize-Eps],[Eps,Vsize-Eps]); + Gdata=list(Tmp); + Tmp=-Marw; + Hdata=list(Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]])); + for I=1:length(SvL) // 10.03.30 + Data=SvL(I); + X=Data(1); + if length(Data)==1 + Y1=0; + Y2=Vsize; + G=Listplot([X,Y1],[X,Y2]); + else + G=[]; + for J=2:2:length(Data) + Y1=Vsize-Op(1,ShL(Data(J))); // 10.03.30 + Y2=Vsize-Op(1,ShL(Data(J+1))); + Tmp=Listplot([[X,Y1],[X,Y2]]); + G=[G;%inf,%inf;Tmp]; + end; + G=G(2:size(G,1),:); + end; + Hdata($+1)=G; + end; + Tmp=Hsize+Mare; + Tmp1=Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]); + Hdata($+1)=Tmp1; + Tmp=Vsize+Marn; + Vdata=list(Listplot([[-Marw,Tmp],[Hsize+Mare,Tmp]])); + for I=1:length(ShL) + Data=ShL(I); + Y=Vsize-Data(1); + if length(Data)==1 + X1=0; + X2=Hsize; + G=Listplot([X1,Y],[X2,Y]); + else + G=[]; + for J=2:2:length(Data) + X1=Op(1,SvL(Data(J))); // 10.03.30 + X2=Op(1,SvL(Data(J+1))); + Tmp=Listplot([X1,Y],[X2,Y]); + G=[G;%inf,%inf;Tmp]; + end; + G=G(2:size(G,1),:); + end; + Vdata($+1)=G; + end; + Tmp=Listplot([[-Marw,-Mars],[Hsize+Mare,-Mars]]); + Vdata($+1)=Tmp; + Tmp1=Mixsub(3:(length(Hdata)-2),Hdata); + Tmp2=Mixsub(3:(length(Vdata)-2),Vdata); + Gdata=Mixjoin(Gdata,Tmp1,Tmp2); + Hind=2:(1+length(Tmp1)); + Vind=(2+length(Tmp1)):(1+length(Tmp1)+length(Tmp2)); + G=Gdata(1); + P1=Ptsw(G); P2=Ptnw(G); + Q1=Ptse(G); Q2=Ptne(G); + Tmp1=list(Listplot([P1,P2]),Listplot([Q1,Q2])); + P1=Ptnw(G); P2=Ptne(G); + Q1=Ptsw(G); Q2=Ptse(G); + Tmp2=list(Listplot([P1,P2]),Listplot([Q1,Q2])); + Tmp3=Framedata(); + Out=list(Gdata,Hind,Vind,Tmp1,Tmp2,Tmp3); +endfunction; + +function Out=Dividetable(Tb) + G=Tb(1); + Gw=G(1); + Gt=Mixsub(Tb(2),G); + Gy=Mixsub(Tb(3),G); + Out=list(Gw,Gt,Gy) +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin Binary files differnew file mode 100644 index 00000000..97832ff7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci new file mode 100644 index 00000000..9b848315 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci @@ -0,0 +1,41 @@ +// +// 09,12.05 +// 09.12.06 +// 09.12.07 +// 09.12.20 + +function Texcom(Meirei) + global Wfile FID; + if Meirei=='\thinlines' + Setpen(1); + return + end + if Meirei=='\thicklines' + Setpen(2); + return + end + if Meirei=='\Thicklines' + Setpen(3); + return + end; + + if Meirei=='' // 09.12.07 + Tmp=[]; + else + Tmp=mtlb_findstr(Meirei,'newline'); + end; + if length(Tmp)>0 + if Wfile=='default' + mprintf('%s\n',''); + else + mfprintf(FID,'%s\n',''); + end; + return; + end; + if Wfile=='default' + mprintf('%s%s\n',Meirei,'%'); + else + mfprintf(FID,'%s%s\n',Meirei,'%'); + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin Binary files differnew file mode 100644 index 00000000..e04419ed --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci new file mode 100644 index 00000000..2a8b08ca --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci @@ -0,0 +1,15 @@ +// +// 2010.05.15 + +function Out=Texctr(N) + if type(N)==1 + Alpha='abcdefghijklmnopqrstuvwxyz'; + Out='ketpicctr'+part(Alpha,N); + else + if part(N,1)=='\' + Out=part(N,2:length(N)); + else + Out=N; + end; + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin Binary files differnew file mode 100644 index 00000000..30d0e388 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci new file mode 100644 index 00000000..8ef93556 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci @@ -0,0 +1,7 @@ +// 10.04.16 +// 10.04.18 + +function Texelse() + Texcom(''); + Texcom('\else'); +endfunction;
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin Binary files differnew file mode 100644 index 00000000..89cf7657 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci new file mode 100644 index 00000000..a3139873 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci @@ -0,0 +1,5 @@ +// 01.10.21 + +function Texend() + Closephr(); +endfunction
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin Binary files differnew file mode 100644 index 00000000..72f260ac --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci new file mode 100644 index 00000000..ecb7b788 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci @@ -0,0 +1,12 @@ +// 10.04.16 + +function Texendfor(I) + global TEXFORLEVEL TEXFORLAST + Last=TEXFORLAST(TEXFORLEVEL); + Texcom(''); + Texcom('\ifnum'+Texthectr(I)+'<'+Last); + Texcom('\repeat'); + Texcom('}'); + TEXFORLEVEL=TEXFORLEVEL-1; + TEXFORLAST=Mixsub(1:(length(TEXFORLAST)-1),TEXFORLAST); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin Binary files differnew file mode 100644 index 00000000..bd069613 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci new file mode 100644 index 00000000..97d32d85 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci @@ -0,0 +1,8 @@ +// 10.04.16 +// 10.04.18 + +function Texendif() + Texcom(''); // + Texcom('\fi'); + Texcom('}'); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin Binary files differnew file mode 100644 index 00000000..b9861fc7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci new file mode 100644 index 00000000..0c239842 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci @@ -0,0 +1,15 @@ +// 10.04.16 +// 10.05.12 +// 10.10.20 ( available for numeric ) + +function Texfor(I,First,Last) + global TEXFORLEVEL TEXFORLAST + TEXFORLEVEL=TEXFORLEVEL+1; + Texsetctr(I,'0'); + Texsetctr(I,string(First)+'-1'); + Texcom(''); + Texcom('{'); + Texcom('\loop'); + Texsetctr(I,'+1'); + TEXFORLAST($+1)=string(Last); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin Binary files differnew file mode 100644 index 00000000..3d33948a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci new file mode 100644 index 00000000..f661c649 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci @@ -0,0 +1,7 @@ +// 10.04.18 + +function Texforinit() + global TEXFORLEVEL TEXFORLAST + TEXFORLEVEL=0; + TEXFORLAST=list(); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin Binary files differnew file mode 100644 index 00000000..6f53de74 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci new file mode 100644 index 00000000..8cbae5dc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci @@ -0,0 +1,19 @@ +// 10.04.16 +// 10.04.18 +// 10.05.03 + +function Texif(varargin) + Condstr=varargin(1); + Tp=0; + if length(varargin)>1 + Tp=varargin(2); + end; + Texcom(''); + Texcom('{'); + if Tp==0 + Texcom('\ifnum '); + else + Texcom('\ifdim '); + end; + Texcom(Condstr+' '); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin Binary files differnew file mode 100644 index 00000000..4dea33e2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci new file mode 100644 index 00000000..f83cc8c8 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci @@ -0,0 +1,44 @@ +// 10.01.07 + +function Texletter(varargin) + global Wfile FID MEMORI; + Nargs=length(varargin); + for I=1:3:Nargs + P=varargin(I); + X=P(1); + if type(X)==1 + X=string(X); + end; + Y=P(2); + if type(Y)==1 + Y=string(Y); + end; + Houkou=varargin(I+1); + Mojiretu=varargin(I+2); + Hset=Houkou; + Vhoko='c'; + if mtlb_findstr(Hset,'n')~=[] + Vhoko='n'; + end + if mtlb_findstr(Hset,'s')~=[] + Vhoko='s'; + end + Hhoko='c'; + if mtlb_findstr(Hset,'e')~=[] + Hhoko='e'; + end + if mtlb_findstr(Hset,'w')~=[] + Hhoko='w'; + end + Hoko=Vhoko+Hhoko; + CalcWidth(Hoko,Mojiretu); + CalcHeight(Hoko,Mojiretu); + Tmp='\put('+X+','+Y+'){\hspace*{\Width}'; + Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}%'; + if Wfile=='default' + mprintf('%s\n',Str); + else + mfprintf(FID,'%s\n',Str); + end + end +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin Binary files differnew file mode 100644 index 00000000..a44b7156 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci new file mode 100644 index 00000000..b3b9a417 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci @@ -0,0 +1,20 @@ +// 10.01.21 + +function Texnewcmd(varargin) + Nargs=length(varargin); + Str=varargin(1); + S='\newcommand{'+Str+'}'; + if Nargs>1 + Tmp=string(varargin(2)); + S=S+'['+Tmp+']'; + end; + if Nargs>2 + Tmp=varargin(3); + if type(Tmp)==1 + Tmp=string(Tmp); + end; + S=S+'['+Tmp+']'; + end; + S=S+'{'; + Texcom(S); +endfunction
\ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin Binary files differnew file mode 100644 index 00000000..c0acb00b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci new file mode 100644 index 00000000..03cabf81 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci @@ -0,0 +1,13 @@ +// 10.01.21 + +function Texnewctr(N) + if type(N)==10 + Str='\newcounter{'+N+'}'; + Texcom(Str); + else + for I=N + Str='\newcounter{'+Texctr(I)+'}'; + Texcom(Str); + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin Binary files differnew file mode 100644 index 00000000..507705b2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci new file mode 100644 index 00000000..b8926589 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci @@ -0,0 +1,20 @@ +// 10.01.21 + +function Texrenewcmd(varargin) + Nargs=length(varargin); + Str=varargin(1); + S='\renewcommand{'+Str+'}'; + if Nargs>1 + Tmp=string(varargin(2)); + S=S+'['+Tmp+']'; + end; + if Nargs>2 + Tmp=varargin(3); + if type(Tmp)==1 + Tmp=string(Tmp); + end; + S=S+'['+Tmp+']'; + end; + S=S+'{'; + Texcom(S); +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin Binary files differnew file mode 100644 index 00000000..d9c2bcae --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci new file mode 100644 index 00000000..166af676 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci @@ -0,0 +1,70 @@ +// 10.01.21 + +function Texsetctr(Nctr,Opstr) + Ctr=Texctr(Nctr); + Opstr=Opstr+'%'; + OperL='+-*/%'; + Oper=''; + Va=''; + Evflg=0; + Paflg=0; + for I=1:length(Opstr) + Tmp=part(Opstr,I); + if Tmp=='(' + Paflg=1; + if length(Va)>0 + Evflg=1; + Va=Va+Tmp; + end; + continue; + end; + if Tmp==')' + Paflg=0; + if Evflg>0 + Va=Va+Tmp; + end; + continue; + end; + if Paflg>0 + Va=Va+Tmp; + continue; + end; + if length(mtlb_findstr(Tmp,OperL))==0 + Va=Va+Tmp; + else + if Evflg>0 + Tmp1=evstr(Va); + Va='\value{'+Tmp1+'}'; + Evflg=0; + end; + if Oper=='' + if length(Va)>0 + Str='\setcounter{'+Ctr+'}{'+Va+'}'; + Texcom(Str); + end; + Oper=Tmp; + Va=''; + elseif Oper=='+' + Str='\addtocounter{'+Ctr+'}{'+Va+'}'; + Texcom(Str); + Oper=Tmp; + Va=''; + elseif Oper=='-' + Str='\addtocounter{'+Ctr+'}{-'+Va+'}'; + Texcom(Str); + Oper=Tmp; + Va=''; + elseif Oper=='*' + Str='\multiply\value{'+Ctr+'} by '+Va; + Texcom(Str); + Oper=Tmp; + Va=''; + elseif Oper=='/' + Str='\divide\value{'+Ctr+'} by '+Va; + Texcom(Str); + Oper=Tmp; + Va='' + end; + end; + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin Binary files differnew file mode 100644 index 00000000..26d4e8ef --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci new file mode 100644 index 00000000..469da91a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci @@ -0,0 +1,5 @@ +// 2010.02.12 + +function Out=Texthectr(N) + Out='\the'+Texctr(N); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin Binary files differnew file mode 100644 index 00000000..fd208b4a --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci new file mode 100644 index 00000000..96d1c734 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci @@ -0,0 +1,5 @@ +// 2010.02.12 + +function Out=Texvalctr(N) + Out='\value{'+Texctr(N)+'}'; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin Binary files differnew file mode 100644 index 00000000..74890021 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci new file mode 100644 index 00000000..fc443411 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci @@ -0,0 +1,6 @@ +// 10.01.21 + +function Out=Texvctr(N) + Out='\value{'+Texctr(N)+'}'; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin Binary files differnew file mode 100644 index 00000000..67df224b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci new file mode 100644 index 00000000..c6ceff89 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci @@ -0,0 +1,7 @@ +// 08.07.11 + +function Ang=Thetadegree() + global THETA; + Ang=THETA*180/%pi; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin Binary files differnew file mode 100644 index 00000000..3cbb70be --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci new file mode 100644 index 00000000..a7a3fc2d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci @@ -0,0 +1,5 @@ +function Y=ThisVersion() + global THISVERSION + Y=THISVERSION +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin Binary files differnew file mode 100644 index 00000000..a0704ffc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci new file mode 100644 index 00000000..8ef53bd5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci @@ -0,0 +1,8 @@ +// 10.01.02 + +function Out=Tolist(LG) + Out=list(); + for I=1:length(LG) + Out($+1)=LG(I); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin Binary files differnew file mode 100644 index 00000000..55b89eee --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci new file mode 100644 index 00000000..98d69544 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci @@ -0,0 +1,36 @@ +// 08.08.15 +// 15.04.12 + +function Out=Translate3data(varargin) + Nargs=length(varargin); + Pd3=varargin(1); + Pd3=Flattenlist(Pd3); // 15.04.12 + Mv=varargin(2); + if type(Mv)==1 & length(Mv)==1 + Mv=[varargin(2),varargin(3),varargin(4)]; + end; +// if Mixtype(Pd3)==1 // 15.04.12 from +// Pd3=MixS(Pd3); +// elseif Mixtype(Pd3)==3 +// Tmp=[]; +// for I=1:Mixlength(Pd3) +// Tmp=Mixjoin(Tmp,Mixop(I,Pd3)); +// end; +// Pd3=Tmp; +// end; + Out=[]; + for I=1:length(Pd3) + PD=Op(I,Pd3); + Ans=[]; + for J=1:size(PD,1) + P=PD(J,:); + Tmp=P+Mv;; + Ans=[Ans;Tmp]; + end; + Out=Mixadd(Out,Ans); + end; + if length(Out)==1 + Out=Op(1,Out); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin Binary files differnew file mode 100644 index 00000000..2239d9d6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci new file mode 100644 index 00000000..a2e31085 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci @@ -0,0 +1,42 @@ +// 08.05.25 Koshikawa +// 08.09.20 +// 15.04.12 + +function OutL=Translatedata(varargin) + Nargs=length(varargin); + ML=varargin(1); + ML=Flattenlist(ML); + Tmp=varargin(2); + if type(Tmp)==1 & length(Tmp)>1 + A=Tmp(1); B=Tmp(2); + else + A=Tmp; + if Nargs>=3 + B=varargin(3); + else + B=0; + end; + end; + OutL=[]; + for N=1:length(ML) + GL=Op(N,ML); + Out=[]; + for I=1:size(GL,1) + Tmp=GL(I,:); + X1=Tmp(1); + Y1=Tmp(2); + if Tmp==[%inf,%inf] + X2=X1; + Y2=Y1; + else + X2=X1+A; + Y2=Y1+B; + end + Out=[Out;X2,Y2]; + end; + OutL=Mixadd(OutL,Out); + end; + if length(OutL)==1 + OutL=Op(1,OutL); + end; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin Binary files differnew file mode 100644 index 00000000..4d0816a4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci new file mode 100644 index 00000000..b4705593 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci @@ -0,0 +1,10 @@ +// 08.05.20 + +function N=Trunc(X) + if X>=0 + N=floor(X) + else + N=ceil(X) + end +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin Binary files differnew file mode 100644 index 00000000..c9d8edf5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci new file mode 100644 index 00000000..74910ceb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci @@ -0,0 +1,12 @@ +function Out=Unscaling(G) + global LOGX LOGY SCALEX SCALEY; + GLg=[G(:,1)/SCALEX,G(:,2)/SCALEY]; + Out=GLg; + if LOGX==1 + Out=[10^(GLg(:,1)),GLg(:,2)]; + end; + if LOGY==1 + Out=[GLg(:,1),10^(GLg(:,2))]; + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin Binary files differnew file mode 100644 index 00000000..ba124a81 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci new file mode 100644 index 00000000..4bc7684c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci @@ -0,0 +1,11 @@ +function L=Vecnagasa(varargin) + PA=varargin(1); + if length(varargin)>1 + PB=varargin(2); + else + PB=zeros(1,length(PA)); + end + Tmp=PB-PA; + L=sqrt(Tmp*Tmp'); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin Binary files differnew file mode 100644 index 00000000..b524d528 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci new file mode 100644 index 00000000..527d3834 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci @@ -0,0 +1,11 @@ +function L=Vecnagasa2(varargin) + PA=varargin(1); + if length(varargin)>1 + PB=varargin(2); + else + PB=[0,0]; + end + Tmp=PB-PA; + L=Tmp*Tmp'; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin Binary files differnew file mode 100644 index 00000000..cef98adc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci new file mode 100644 index 00000000..44bde517 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci @@ -0,0 +1,21 @@ +// 08.10.26 + +function Out=Viewfrom(varargin) + global THETA PHI + Nargs=length(varargin); + Nvec=varargin(1); + GL=varargin(2); + Flg=1; + if Nargs>=3 + Flg=varargin(3); + end; + Theta=THETA; Phi=PHI; + Tmp=Rotate3data(GL,Nvec,[-1,0,0]); + THETA=%pi/2; PHI=0; + Out=Projpara(Tmp); + if Flg==1 + Windisp(Out); + end; + THETA=Theta; PHI=Phi; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin Binary files differnew file mode 100644 index 00000000..278e7845 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci new file mode 100644 index 00000000..de320918 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci @@ -0,0 +1,144 @@ +// 08.05.26 Debugged +// 09.12.25 +// 11.04.13 debugged ( [a,b] ) +// 14.03.05 MARKLEN + +function Vtickmark(varargin) + global Wfile FID MARKLEN GENTEN YMIN YMAX; + Nargs=length(varargin); + ArgsL=list(varargin(1:Nargs)); + if type(Op(1,ArgsL))==10 + Str=Op(1,ArgsL); + Tmp=mtlb_findstr(Str,'m'); + if Tmp~=[] + I=Tmp(1); + else + I=0; + end + Tmp=mtlb_findstr(Str,'n'); + if Tmp~=[] + J=Tmp(1); + else + J=0; + end + Tmp=mtlb_findstr(Str,'r'); + if Tmp~=[] + K=Tmp(1); + else + K=0; + end; + if K>0 + Tmp=ascii(Str); + S=char(Tmp(K+1:length(Tmp))); + R=msscanf(S,'%f'); + if length(R)==0 + R=1; + end + else + R=1; + K=length(Str)+1; + end + if J>0 then + Tmp=ascii(Str); + S=char(Tmp(J+1:K-1)); + if S==[] + S=''; + end; + Dn=msscanf(S,'%d'); + if length(Dn)==0 + Dn=1; + end + else + Dn=1000; + J=length(Str)+1; + end + Tmp=ascii(Str); + S=char(Tmp(I+1:J-1)); + if S==[] + S=''; + end + Dm=msscanf(S,'%f'); + if length(Dm)==0 + Dm=1; + end + ArgsL=list(); + for I=1:floor((YMAX-GENTEN(2))/Dm) + ArgsL($+1)=I*Dm; + if I-floor(I/Dn)*Dn==0 + Str=string(I*Dm*R); + K=length(Str); + Tmp=ascii(Str); + if char(Tmp(K))=='.' + Str=char(Tmp(1:k-1)); + end + ArgsL($+1)=Str; + end + end + for I=-1:-1:ceil((YMIN-GENTEN(2))/Dm) + ArgsL($+1)=I*Dm; + if I-floor(I/Dn)*Dn==0 + Str=string(I*Dm*R); + K=length(Str); + Tmp=ascii(Str); + if char(Tmp(K))=='.' + Str=char(1:K-1); + end + ArgsL($+1)=Str; + end + end + end + MemoriList=list(); + Memori=list(); + for N=1:length(ArgsL) + Dt=Op(N,ArgsL); + if type(Dt)==1 & length(Dt)>1 + if length(Memori)>0 + MemoriList($+1)=Memori; + end + Memori=list(Dt(1),Dt(2)); + continue + end + if type(Dt)==10 + Memori($+1)=Dt; + else + if length(Memori)>0 + MemoriList($+1)=Memori; + end + Memori=list(GENTEN(1),Dt); + end + end + MemoriList($+1)=Memori; + for N=1:length(MemoriList) + Dt=MemoriList(N); + Ndt=length(Dt); + X=Op(1,Dt); + Y=Op(2,Dt); + Tmp=Doscaling([X,Y]); + X=Tmp(1); + Y=Tmp(2); + Moji=Op(Ndt,Dt); + Tmp1=Unscaling([X+MARKLEN,Y]); + Tmp2=Unscaling([X-MARKLEN,Y]); + Fd=Listplot([Tmp1,Tmp2]); + Drwline(Fd); + if Ndt==3 + Tmp=Unscaling([X-MARKLEN,Y]); + Expr(Tmp,'w',Moji); + end + if Ndt==4 + Houkou=Op(3,Dt); + if mtlb_findstr(Houkou,'w')~=[] + Tmp=Unscaling([X-MARKLEN,Y]); + Expr(Tmp,Houkou,Moji); + else + Tmp=Unscaling([X+MARKLEN,Y]); + Expr(Tmp,Houkou,Moji); + end + end + if Wfile=='default' + mprintf('%s\n','%'); + else + mfprintf(FID,'%s\n','%'); + end + end +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin Binary files differnew file mode 100644 index 00000000..6b3e87e9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci new file mode 100644 index 00000000..baa03e73 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci @@ -0,0 +1,110 @@ +// 08.05.16 Point style +// 08.05.17 MixL +// 08.05.19 Changed +// 08.05.21 Eps=0.1 +// 08.08.16 square +// 09.11.04 window option +// 09.11.07 gcf used +// 09.12.25 +// 10.01.01 +// 10.01.09 ' ' +// 10.01.10 drw one by one +// 10.02.08 revised for the case "a" +// 10.02.13 square debugged +// 10.02.21 square debugged (2) +// 10.02.23 case of mixlength=3 +// 10.04.10 Origin bug +// 11.05.29 Flattenlist used + +function Windisp(varargin) + global XMIN XMAX YMIN YMAX GENTEN + Nargs=length(varargin); + Tp=varargin(Nargs); + Ch=''; + if type(Tp)~=10 + scf(); + else + Ch=part(Tp,1); + Nargs=Nargs-1; + select Ch; + case 'N' then scf(); + case 'n' then scf(); + case 'C' then Tmp=gcf();clf('clear'); + case 'c' then Tmp=gcf();clf('clear'); + case 'A' then Tmp=gcf(); + case 'a' then Tmp=gcf(); + else + Tmp1=part(Tp,length(Tp)); + Tmp2=part(Tp,1:length(Tp)-1); + Tmp3=evstr(Tmp2); + scf(Tmp3); + if Tmp1=='C'|Tmp1=='c' + clf('clear'); + end; + end; + end; + Eps=0.1; + Tmp=Doscaling([XMIN,YMIN]); + Xm=Tmp(1); Ym=Tmp(2); + Tmp=Doscaling([XMAX,YMAX]); + XM=Tmp(1); YM=Tmp(2); + C=[(Xm+XM)/2,(Ym+YM)/2]; + H=max(XM-Xm,YM-Ym)/2; + R1=C-H; R2=C+H; + R1=Unscaling(R1); + R2=Unscaling(R2); + if (Ch~='A')&(Ch~='a') + Tmp1=R1(1); + Tmp2=R2(1); + Tmp3=R1(2); + Tmp4=R2(2); + square(Tmp1,Tmp3,Tmp2,Tmp4);// + P=Framedata([XMIN,XMAX],[YMIN,YMAX]); + Tmp1=P(:,1)'; + Tmp2=P(:,2)'; + plot2d(Tmp1,Tmp2); + PtO=GENTEN; // 10.04.10 + if (PtO(2)>=YMIN) & (PtO(2)<=YMAX) // + P=Listplot([XMIN,PtO(2)],[XMAX,PtO(2)]); + Tmp1=P(:,1)'; + Tmp2=P(:,2)'; + plot2d(Tmp1,Tmp2,style=[3]); + end; + if (PtO(1)>=XMIN) & (PtO(1)<=XMAX) + P=Listplot([PtO(1),YMIN],[PtO(1),YMAX]); + Tmp1=P(:,1)'; + Tmp2=P(:,2)'; + plot2d(Tmp1,Tmp2,style=[3]); + end; + end; + for I=1:Nargs + Tmp=varargin(I); + Pdata=Flattenlist(Tmp); // + for II=1:length(Pdata) + Tmp=Op(II,Pdata); + P=MakeCurves(Tmp,0); + P=Unscaling(P); + Ndm=Dataindex(P); + for J=1:size(Ndm,1) + Q=P(Ndm(J,1):Ndm(J,2),:) + if size(Q,1)==1 + for K=1:2:length(Q) + plot2d(Q(K),Q(K+1),style=[-3]); + end + else + Tmp1=Q(:,1)'; + Tmp2=Q(:,2)'; + plot2d(Tmp1,Tmp2); + end + end + end +// for II=2:length(Pdata) +// Tmp=Op(II,Pdata); +// Windisp(Tmp,'a'); +// end; + end + for I=2:Nargs + Pdata=varargin(I); + Windisp(Pdata,'a'); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin Binary files differnew file mode 100644 index 00000000..68abd1d4 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci new file mode 100644 index 00000000..24920661 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci @@ -0,0 +1,7 @@ +// 08.12.11 + +function Out=WireHiddenData() + global HIDDENWIREDATA + Out=HIDDENWIREDATA; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin Binary files differnew file mode 100644 index 00000000..085de36e --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci new file mode 100644 index 00000000..d62acaf3 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci @@ -0,0 +1,8 @@ +// 08.09.15 +// 09.09.10 registered + +function Out=WirePt() + global WIREPT + Out=WIREPT; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin Binary files differnew file mode 100644 index 00000000..d84e23dc --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci new file mode 100644 index 00000000..b46e359c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci @@ -0,0 +1,120 @@ +// 08.09.15 +// 08.10.10 +// 08.10.11 +// 08.10.15 +// 08.10.21 +// 08.10.25 +// 09.09.10 +// 10.02.16 Eps +// 17.05.07 Eps changed + +function FsL=Wireparadata(varargin) + global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA + timer(); + Nargs=length(varargin); + Fbdy=Projpara(varargin(1)); + Fd=varargin(2); N=3; + FdL=Fullformfunc(Fd); + Fxy=Mixop(1,FdL); + Tmp=Mixop(5,FdL); + K=mtlb_findstr(Tmp,'='); + Uname=part(Tmp,1:K-1); + Urg=evstr(part(Tmp,K+1:length(Tmp))); + Tmp=Mixop(6,FdL); + K=mtlb_findstr(Tmp,'='); + Vname=part(Tmp,1:K-1); + Vrg=evstr(part(Tmp,K+1:length(Tmp))); + DuL=varargin(N); + DvL=varargin(N+1); + N=N+2; + Np=[50,50]; + if Nargs>=N + Np=varargin(N); + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end + Eps=[0.05,1]; // + if Nargs>=N+1 + Eps=varargin(N+1); + end; + Eps2=0.2; + if Nargs>=N+2 + Eps2=varargin(N+2); + end; + Tmp=Mixop(2,Fd); + K=mtlb_findstr(Tmp,'='); + Xname=part(Tmp,1:K-1); + Tmp=Mixop(3,Fd); + K=mtlb_findstr(Tmp,'='); + Yname=part(Tmp,1:K-1); + Umin=Urg(1); Umax=Urg(2); + Vmin=Vrg(1); Vmax=Vrg(2); + if type(DuL)==10 + DuL=evstr(DuL); + elseif length(DuL)==1 + Tmp=(Umax-Umin)/(DuL+1); + Tmp1=Umin+Tmp; + Tmp2=Umin+DuL*Tmp + DuL=[Tmp1:Tmp:Tmp2]; + end; + if type(DvL)==10 + DvL=evstr(DvL); + elseif length(DvL)==1 + Tmp=(Vmax-Vmin)/(DvL+1); + Tmp1=Vmin+Tmp; + Tmp2=Vmin+DvL*Tmp + DvL=[Tmp1:Tmp:Tmp2]; + end; + Fbdxy=Makexybdy(Fd,Np); + WIREPT=[]; + HIDDENWIREDATA=[]; + FsL=[]; + for I=1:length(DuL) + U=DuL(I); + Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07 + FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); // + for J=1:Mixlength(FkL) + Fk=Mixop(J,FkL); + Tmp=Projpara(Fk); + Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // + if Mixlength(PARTITIONPT)>2 + for K=2:Mixlength(PARTITIONPT) + Tmp1=Mixop(K,PARTITIONPT); + WIREPT=Mixadd(WIREPT,Tmp1); + end; + end; + Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); + HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); + FsL=Mixjoin(FsL,Fs); + end; + end; + Nx=Mixlength(FsL); + if Nx>0 + Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); + end; + for I=1:length(DvL) + V=DvL(I); + Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');//17.05.07 + FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); // + for J=1:Mixlength(FkL) + Fk=Mixop(J,FkL); + Tmp=Projpara(Fk); + Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // + if Mixlength(PARTITIONPT)>2 + for K=2:Mixlength(PARTITIONPT) + Tmp1=Mixop(K,PARTITIONPT); + WIREPT=Mixadd(WIREPT,Tmp1); + end; + end; + Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); + HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); + FsL=Mixjoin(FsL,Fs); + end; + end; + Ny=Mixlength(FsL)-Nx; + if Ny>0 + Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin Binary files differnew file mode 100644 index 00000000..01266c62 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci new file mode 100644 index 00000000..11def80c --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci @@ -0,0 +1,120 @@ +// 08.09.21 +// 08.10.10 +// 08.10.11 +// 08.10.15 +// 08.10.21 +// 08.10.25 +// 09.09.10 +// 10.02.16 Eps +// 17.05.07 Eps changed + +function FsL=Wirepersdata(varargin) + global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA + timer(); + Nargs=length(varargin); + Fbdy=Projpers(varargin(1)); + Fd=varargin(2); N=3; + FdL=Fullformfunc(Fd); + Fxy=Mixop(1,FdL); + Tmp=Mixop(5,FdL); + K=mtlb_findstr(Tmp,'='); + Uname=part(Tmp,1:K-1); + Urg=evstr(part(Tmp,K+1:length(Tmp))); + Tmp=Mixop(6,FdL); + K=mtlb_findstr(Tmp,'='); + Vname=part(Tmp,1:K-1); + Vrg=evstr(part(Tmp,K+1:length(Tmp))); + DuL=varargin(N); + DvL=varargin(N+1); + N=N+2; + Np=[50,50]; + if Nargs>=N + Np=varargin(N); + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end + Eps=[0.05,1]; // + if Nargs>=N+1 + Eps=varargin(N+1); + end; + Eps2=0.2; + if Nargs>=N+2 + Eps2=varargin(N+2); + end; + Tmp=Mixop(2,Fd); + K=mtlb_findstr(Tmp,'='); + Xname=part(Tmp,1:K-1); + Tmp=Mixop(3,Fd); + K=mtlb_findstr(Tmp,'='); + Yname=part(Tmp,1:K-1); + Umin=Urg(1); Umax=Urg(2); + Vmin=Vrg(1); Vmax=Vrg(2); + if type(DuL)==10 + DuL=evstr(DuL); + elseif length(DuL)==1 + Tmp=(Umax-Umin)/(DuL+1); + Tmp1=Umin+Tmp; + Tmp2=Umin+DuL*Tmp + DuL=[Tmp1:Tmp:Tmp2]; + end; + if type(DvL)==10 + DvL=evstr(DvL); + elseif length(DvL)==1 + Tmp=(Vmax-Vmin)/(DvL+1); + Tmp1=Vmin+Tmp; + Tmp2=Vmin+DvL*Tmp + DvL=[Tmp1:Tmp:Tmp2]; + end; + Fbdxy=Makexybdy(Fd,Np); + WIREPT=[]; + HIDDENWIREDATA=[]; + FsL=[]; + for I=1:length(DuL) + U=DuL(I); + Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07 + FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); // + for J=1:Mixlength(FkL) + Fk=Mixop(J,FkL); + Tmp=Projpers(Fk); + Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // + if Mixlength(PARTITIONPT)>2 + for K=2:Mixlength(PARTITIONPT) + Tmp1=Mixop(K,PARTITIONPT); + WIREPT=Mixadd(WIREPT,Tmp1); + end; + end; + Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); + HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); + FsL=Mixjoin(FsL,Fs); + end; + end; + Nx=Mixlength(FsL); + if Nx>0 + Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); + end; + for I=1:length(DvL) + V=DvL(I); + Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)'); + FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); // + for J=1:Mixlength(FkL) + Fk=Mixop(J,FkL); + Tmp=Projpers(Fk); + Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //17.05.07 + if Mixlength(PARTITIONPT)>2 + for K=2:Mixlength(PARTITIONPT) + Tmp1=Mixop(K,PARTITIONPT); + WIREPT=Mixadd(WIREPT,Tmp1); + end; + end; + Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); + HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); + FsL=Mixjoin(FsL,Fs); + end; + end; + Ny=Mixlength(FsL)-Nx; + if Ny>0 + Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin Binary files differnew file mode 100644 index 00000000..4e6ca980 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci new file mode 100644 index 00000000..59c5ba54 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci @@ -0,0 +1,86 @@ +// 08.09.15 +// 08.10.10 +// 08.10.21 +// 09.09.10 + +function FsL=Wirerawparadata(varargin) + timer(); + Nargs=length(varargin); + Fbdy=Projpara(varargin(1)); + Fd=varargin(2); N=3; + FdL=Fullformfunc(Fd); + Fxy=Mixop(1,FdL); + Tmp=Mixop(5,FdL); + K=mtlb_findstr(Tmp,'='); + Uname=part(Tmp,1:K-1); + Urg=evstr(part(Tmp,K+1:length(Tmp))); + Tmp=Mixop(6,FdL); + K=mtlb_findstr(Tmp,'='); + Vname=part(Tmp,1:K-1); + Vrg=evstr(part(Tmp,K+1:length(Tmp))); + DuL=varargin(N); + DvL=varargin(N+1); + N=N+2; + Np=[50,50]; + if Nargs>=N + Np=varargin(N); + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end + Eps=0.05; + if Nargs>=N+1 + Eps=varargin(N+1); + end; + Eps2=0.2; + if Nargs>=N+2 + Eps2=varargin(N+2); + end; + Umin=Urg(1); Umax=Urg(2); + Vmin=Vrg(1); Vmax=Vrg(2); + if type(DuL)==10 + DuL=evstr(DuL); + elseif length(DuL)==1 + Tmp=(Umax-Umin)/(DuL+1); + Tmp1=Umin+Tmp; + Tmp2=Umin+DuL*Tmp + DuL=[Tmp1:Tmp:Tmp2]; + end; + if type(DvL)==10 + DvL=evstr(DvL); + elseif length(DvL)==1 + Tmp=(Vmax-Vmin)/(DvL+1); + Tmp1=Vmin+Tmp; + Tmp2=Vmin+DvL*Tmp + DvL=[Tmp1:Tmp:Tmp2]; + end; + Fbdxy=Makexybdy(Fd,Np); + FsL=[]; + for I=1:length(DuL) + U=DuL(I); + Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)'); + FkL=Cuspsplitpara(Tmp,Fd,Eps); + for J=1:Mixlength(FkL) + Fk=Mixop(J,FkL); + FsL=Mixadd(FsL,Fk); + end; + end; + Nx=Mixlength(FsL); + if Nx>0 + Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); + end; + for I=1:length(DvL) + V=DvL(I); + Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)'); + FkL=Cuspsplitpara(Tmp,Fd,Eps); + for J=1:Mixlength(FkL) + Fk=Mixop(J,FkL); + FsL=Mixadd(FsL,Fk); + end; + end; + Ny=Mixlength(FsL)-Nx; + if Ny>0 + Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin Binary files differnew file mode 100644 index 00000000..2718cfd0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci new file mode 100644 index 00000000..d168b4f7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci @@ -0,0 +1,86 @@ +// 08.09.21 +// 08.10.10 +// 08.10.21 +// 09.09.10 + +function FsL=Wirerawpersdata(varargin) + timer(); + Nargs=length(varargin); + Fbdy=Projpers(varargin(1)); + Fd=varargin(2); N=3; + FdL=Fullformfunc(Fd); + Fxy=Mixop(1,FdL); + Tmp=Mixop(5,FdL); + K=mtlb_findstr(Tmp,'='); + Uname=part(Tmp,1:K-1); + Urg=evstr(part(Tmp,K+1:length(Tmp))); + Tmp=Mixop(6,FdL); + K=mtlb_findstr(Tmp,'='); + Vname=part(Tmp,1:K-1); + Vrg=evstr(part(Tmp,K+1:length(Tmp))); + DuL=varargin(N); + DvL=varargin(N+1); + N=N+2; + Np=[50,50]; + if Nargs>=N + Np=varargin(N); + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end + Eps=0.05; + if Nargs>=N+1 + Eps=varargin(N+1); + end; + Eps2=0.2; + if Nargs>=N+2 + Eps2=varargin(N+2); + end; + Umin=Urg(1); Umax=Urg(2); + Vmin=Vrg(1); Vmax=Vrg(2); + if type(DuL)==10 + DuL=evstr(DuL); + elseif length(DvL)==1 + Tmp=(Umax-Umin)/(DuL+1); + Tmp1=Umin+Tmp; + Tmp2=Umin+DuL*Tmp + DuL=[Tmp1:Tmp:Tmp2]; + end; + if type(DvL)==10 + DvL=evstr(DvL); + elseif length(DvL)==1 + Tmp=(Vmax-Vmin)/(DvL+1); + Tmp1=Vmin+Tmp; + Tmp2=Vmin+DvL*Tmp + DvL=[Tmp1:Tmp:Tmp2]; + end; + Fbdxy=Makexybdy(Fd,Np); + FsL=[]; + for I=1:length(DuL) + U=DuL(I); + Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)'); + FkL=Cuspsplitpers(Tmp,Fd,Eps); + for J=1:Mixlength(FkL) + Fk=Mixop(J,FkL); + FsL=Mixadd(FsL,Fk); + end; + end; + Nx=Mixlength(FsL); + if Nx>0 + Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); + end; + for I=1:length(DvL) + V=DvL(I); + Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)'); + FkL=Cuspsplitpers(Tmp,Fd,Eps); + for J=1:Mixlength(FkL) + Fk=Mixop(J,FkL); + FsL=Mixadd(FsL,Fk); + end; + end; + Ny=Mixlength(FsL)-Nx; + if Ny>0 + Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); + end; +endfunction; + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin Binary files differnew file mode 100644 index 00000000..3016dd47 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci new file mode 100644 index 00000000..059ac6d5 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci @@ -0,0 +1,55 @@ +// s:2014.10.10 +// e:2014.12.14 ( for 3d ) +// e:2015.10.29 ( endmark //// ) + +function WriteOutData(varargin) + global Fnameout + Nargs=length(varargin); + if modulo(Nargs,2)==0 then + Fname=Fnameout; + Nst=1; + else + Fname=varargin(1); + Nst=2; + end; + Fid=mopen(Fname,'w'); + for N=Nst:2:Nargs + Gname=varargin(N); + mfprintf(Fid,'%s\n',Gname+"//"); + Gdata=varargin(N+1); + Gdata=Flattenlist(Gdata); + for K=1:length(Gdata) + GL=Dividegraphics(Gdata(K)); + for J=1:length(GL) + mfprintf(Fid,'%s\n',"start//"); + Str=""; + for I=1:Numptcrv(GL(J)) + Pt=Ptcrv(I,GL(J)); + if length(Str)>0 then + Str=Str+"," + end; + if length(Pt)<3 // 2014.12.14 + Str=Str+msprintf("[%5.4f,%5.4f]",Pt(1),Pt(2)); + else + Str=Str+msprintf("[%5.4f,%5.4f,%5.4f]",Pt(1),Pt(2),Pt(3)); + end; + if length(Str)>80 then + mfprintf(Fid,'%s\n',"["+Str+"]//"); + Str=""; + end + end + if length(Str)>0 then + mfprintf(Fid,'%s\n',"["+Str+"]//"); + end + if N==Nargs-1 & K==length(Gdata) & J==length(GL) then // 15.10.29 +// mfprintf(Fid,'%s\n',"end////"); + mfprintf(Fid,'%s\n',"end//"); + else + mfprintf(Fid,'%s\n',"end//"); + end; + end + end + end + mfprintf(Fid,'%s\n',"//"); + mclose(Fid); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin Binary files differnew file mode 100644 index 00000000..e53ba463 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci new file mode 100644 index 00000000..ae51bf8b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci @@ -0,0 +1,12 @@ +// s : 2014.06.22 + +function Out=Writeobjpoint(P) + global OBJFMT OBJSCALE NPOINT; + X=sprintf(OBJFMT,P(1)*OBJSCALE); + Y=sprintf(OBJFMT,P(2)*OBJSCALE); + Z=sprintf(OBJFMT,P(3)*OBJSCALE); + Str="v "+X+" "+Y+" "+Z; + Printobjstr(Str) + NPOINT=NPOINT+1 + Out=NPOINT; +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin Binary files differnew file mode 100644 index 00000000..c3f3d522 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci new file mode 100644 index 00000000..51a13884 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci @@ -0,0 +1,47 @@ +// 2010.04.27 + +function Writetextdata(varargin) + Fname=varargin(1); + Mt=varargin(2); + D=-1; + for I=3:length(varargin) + Tmp=varargin(I); + if mtlb_findstr(Tmp,'=')~=[] + execstr(Tmp); + end; + end; + Str=''; + for J=1:size(Mt,2) + Str=Str+'x'+string(J); + if J<size(Mt,2) + Str=Str+','; + end; + end; + if Fname~='' + Fid=mopen(Fname,'w'); + mfprintf(Fid,'%s\n',Str); + else + mprintf('%s\n',Str); + end; + for I=1:size(Mt,1) + Str=''; + for J=1:size(Mt,2) + Dt=Mt(I,J); + if Dt==%inf + Dt=D; + end; + Str=Str+string(Dt); + if J<size(Mt,2) + Str=Str+','; + end; + end; + if Fname~='' + mfprintf(Fid,'%s\n',Str); + else + mprintf('%s\n',Str); + end; + end; + if Fname~='' + mclose(Fid); + end; +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin Binary files differnew file mode 100644 index 00000000..655cd4e6 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci new file mode 100644 index 00000000..60d73ef7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci @@ -0,0 +1,42 @@ +// s:2014.09.16 + +function WritetoCindy(varargin) + global Fnametxt + GnameV=list(); + for J=1:length(varargin) + Tmp=varargin(J); + for K=1:size(Tmp,2) + GnameV($+1)=Tmp(1,K); + end + end; + Fid=mopen(Fnametxt,'w'); + for Nv=1:length(GnameV) + Gname=GnameV(Nv); + Tmp=evstr(Gname); + GL=Dividegraphics(Tmp); + Lnst=""; + for J=1:length(GL) + G=GL(J); + Gn=Gname+"No"+string(J); + mfprintf(Fid,'%s\n',Gn+"=[];//"); + for K=1:Numptcrv(G) + Pt=Ptcrv(K,G); + if length(Lnst)==0 + Lnst=Gn+"=concat("+Gn+",["; + end; + Tmp=msprintf("[%6.4f,%6.4f]",Pt(1),Pt(2)); + Lnst=Lnst+Tmp; + if length(Lnst)>80 | K==Numptcrv(G) + Lnst=Lnst+"]);//"; + mfprintf(Fid,'%s\n',Lnst); + Lnst=""; + else + Lnst=Lnst+","; + end; + end; + Str="Goutdatalist=Append(Goutdatalist,"+Gn+");//"; + mfprintf(Fid,'%s\n',Str); + end; + end; + mclose(Fid); +endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin Binary files differnew file mode 100644 index 00000000..ba00f67f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci new file mode 100644 index 00000000..28ab28ce --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci @@ -0,0 +1,5 @@ +function Y=Xmax() + global XMAX + Y=XMAX; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin Binary files differnew file mode 100644 index 00000000..7e8c9e46 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci new file mode 100644 index 00000000..e18e83d7 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci @@ -0,0 +1,5 @@ +function Y=Xmin() + global XMIN + Y=XMIN; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin Binary files differnew file mode 100644 index 00000000..fc0a8807 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci new file mode 100644 index 00000000..b2118c90 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci @@ -0,0 +1,14 @@ +// 08.07.11 + +function Out=Xyzax3data(Xrange,Yrange,Zrange) + J=mtlb_findstr(Xrange,'='); + Tmp=evstr(part(Xrange,J+1:length(Xrange))); + Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; + J=mtlb_findstr(Yrange,'='); + Tmp=evstr(part(Yrange,J+1:length(Yrange))); + Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; + J=mtlb_findstr(Zrange,'='); + Tmp=evstr(part(Zrange,J+1:length(Zrange))); + Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; + Out=MixS(Spaceline([Px,Qx]),Spaceline([Py,Qy]),Spaceline([Pz,Qz])); +endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin Binary files differnew file mode 100644 index 00000000..04b8bdce --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci new file mode 100644 index 00000000..b833802d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci @@ -0,0 +1,71 @@ +// 08.07.11 +// 09.09.18 + +function Kekka=Xyzaxparaname(varargin) + global MilliIn; + Nargs=length(varargin); + Eps=10.0^(-6); + Dr=0.19*1000/2.54/MilliIn; + Tmp=varargin(Nargs); + if Nargs>1 & type(Tmp)==1 + Dr=Dr*Tmp; + Nargs=Nargs-1; + end; + if type(varargin(1))==10 + Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3); + J=mtlb_findstr(Xrange,'='); + Xname=part(Xrange,1:J-1); + Tmp=evstr(part(Xrange,J+1:length(Xrange))); + Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; + J=mtlb_findstr(Yrange,'='); + Yname=part(Yrange,1:J-1); + Tmp=evstr(part(Yrange,J+1:length(Yrange))); + Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; + J=mtlb_findstr(Zrange,'='); + Zname=part(Zrange,1:J-1); + Tmp=evstr(part(Zrange,J+1:length(Zrange))); + Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; + else + Data=varargin(1); + Xname='x'; Yname='y'; Zname='z'; + if Nargs>1 + if varargin(2)~='' + Xname=varargin(2); + end; + if varargin(3)~='' + Yname=varargin(3); + end; + if varargin(4)~='' + Zname=varargin(4); + end; + end; + Tmp=Mixop(1,Data); + Px=Tmp(1,:); Qx=Tmp(2,:); + Tmp=Mixop(2,Data); + Py=Tmp(1,:) ; + Qy=Tmp(2,:); + Tmp=Mixop(3,Data); + Pz=Tmp(1,:); + Qz=Tmp(2,:); + end; + Ph=Parapt(Px); Qh=Parapt(Qx); R=Vecnagasa(Ph,Qh); + Kekka=[]; + if R>Eps + Ch=Qh+Dr/R*(Qh-Ph); + Kekka=Mixadd(Kekka,Pointdata(Ch)); + Expr(Ch,'c',Xname); + end + Ph=Parapt(Py); Qh=Parapt(Qy); R=Vecnagasa(Ph,Qh); + if R>Eps + Ch=Qh+Dr/R*(Qh-Ph); + Kekka=Mixadd(Kekka,Pointdata(Ch)); + Expr(Ch,'c',Yname); + end; + Ph=Parapt(Pz); Qh=Parapt(Qz); R=Vecnagasa(Ph,Qh); + if R>Eps + Ch=Qh+Dr/R*(Qh-Ph); + Kekka=Mixadd(Kekka,Pointdata(Ch)); + Expr(Ch,'c',Zname); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin Binary files differnew file mode 100644 index 00000000..3940b5b0 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci new file mode 100644 index 00000000..d9c1c7df --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci @@ -0,0 +1,72 @@ +// 08.08.14 +// 08.08.15 +// 09.09.18 + +function Kekka=Xyzaxpersname(varargin) + global MilliIn; + Eps=10.0^(-6); + Nargs=length(varargin); + Dr=0.19*1000/2.54/MilliIn; + Tmp=varargin(Nargs); + if Nargs>1 & type(Tmp)==1 + Dr=Dr*Tmp; + Nargs=Nargs-1; + end; + if type(varargin(1))==10 + Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3); + J=mtlb_findstr(Xrange,'='); + Xname=part(Xrange,1:J-1); + Tmp=evstr(part(Xrange,J+1:length(Xrange))); + Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; + J=mtlb_findstr(Yrange,'='); + Yname=part(Yrange,1:J-1); + Tmp=evstr(part(Yrange,J+1:length(Yrange))); + Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; + J=mtlb_findstr(Zrange,'='); + Zname=part(Zrange,1:J-1); + Tmp=evstr(part(Zrange,J+1:length(Zrange))); + Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; + else + Data=varargin(1); + Xname='x'; Yname='y'; Zname='z'; + if Nargs>1 + if varargin(2)~='' + Xname=varargin(2); + end; + if varargin(3)~='' + Yname=varargin(3); + end; + if varargin(4)~='' + Zname=varargin(4); + end; + end; + Tmp=Mixop(1,Data); + Px=Tmp(1,:); Qx=Tmp(2,:); + Tmp=Mixop(2,Data); + Py=Tmp(1,:) ; + Qy=Tmp(2,:); + Tmp=Mixop(3,Data); + Pz=Tmp(1,:); + Qz=Tmp(2,:); + end; + Ph=Perspt(Px); Qh=Perspt(Qx); R=Vecnagasa(Ph,Qh); + Kekka=[]; + if R>Eps + Ch=Qh+Dr/R*(Qh-Ph); + Kekka=Mixadd(Kekka,Pointdata(Ch)); + Expr(Ch,'c',Xname); + end + Ph=Perspt(Py); Qh=Perspt(Qy); R=Vecnagasa(Ph,Qh); + if R>Eps + Ch=Qh+Dr/R*(Qh-Ph); + Kekka=Mixadd(Kekka,Pointdata(Ch)); + Expr(Ch,'c',Yname); + end; + Ph=Perspt(Pz); Qh=Perspt(Qz); R=Vecnagasa(Ph,Qh); + if R>Eps + Ch=Qh+Dr/R*(Qh-Ph); + Kekka=Mixadd(Kekka,Pointdata(Ch)); + Expr(Ch,'c',Zname); + end; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin Binary files differnew file mode 100644 index 00000000..93cbf4e2 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci new file mode 100644 index 00000000..0a835534 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci @@ -0,0 +1,5 @@ +function Y=Ymax() + global YMAX + Y=YMAX; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin Binary files differnew file mode 100644 index 00000000..79ab6600 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci new file mode 100644 index 00000000..73d0d261 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci @@ -0,0 +1,5 @@ +function Y=Ymin() + global YMIN + Y=YMIN; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin Binary files differnew file mode 100644 index 00000000..d870458d --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci new file mode 100644 index 00000000..5c237179 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci @@ -0,0 +1,8 @@ +// 08.07.11 + +function Out=Zparapt(P) + global PHI THETA; + x=P(1); y=P(2); z=P(3); + Out=x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA); +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin Binary files differnew file mode 100644 index 00000000..0af89330 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci new file mode 100644 index 00000000..13601556 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci @@ -0,0 +1,20 @@ +// 08.08.12 +// 10.01.02 + +function X3=Zperspt(P) + + global FocusPoint EyePoint + + Tmp=P-FocusPoint; + X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3); + Tmp=EyePoint-FocusPoint; + E1=Tmp(1); F1=Tmp(2); G1=Tmp(3); + Ca=E1/sqrt(E1^2+F1^2); + Sa=F1/sqrt(E1^2+F1^2); + X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1; + E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1; + Cb=E2/sqrt(E2^2+G2^2); + Sb=G2/sqrt(E2^2+G2^2); + X3=X2*Cb+Z2*Sb; +endfunction + diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib new file mode 100644 index 00000000..24864cee --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib @@ -0,0 +1,344 @@ +<?xml version="1.0" encoding="UTF-8" standalone="no"?> +<scilablib name="ketpic2esciL6"> + <macro name="Addcounter" file="Addcounter.bin" md5="f7a17da511ba9fdd3cf4cdaf83f3d78c"/> + <macro name="Anglemark" file="Anglemark.bin" md5="0e984414d47cb604faef41ae93390dcb"/> + <macro name="Arrowdata" file="Arrowdata.bin" md5="b39db1a6340e09c9dfaa3fbb4c3777f1"/> + <macro name="Arrowhead" file="Arrowhead.bin" md5="0b0bc5478ce8afeb47770d9add192560"/> + <macro name="Arrowheaddata" file="Arrowheaddata.bin" md5="3c06f276e57945b3d54e11e39a9e9435"/> + <macro name="Arrowline" file="Arrowline.bin" md5="e15854f9c5c640cee8667f6128023620"/> + <macro name="Assign" file="Assign.bin" md5="c8d1390433c0a317d199f5491669e988"/> + <macro name="Assignadd" file="Assignadd.bin" md5="d24d31a4cfd1dc707c51c51ff9cdf364"/> + <macro name="Assignrep" file="Assignrep.bin" md5="e81413f3bc64c05ae0821b56fd63e5ef"/> + <macro name="Assignset" file="Assignset.bin" md5="6a6dad9e5a35cdddb0ac069ec601c061"/> + <macro name="Beginpicture" file="Beginpicture.bin" md5="9fd24a768a0d6548b1f458d51e1bb202"/> + <macro name="Bezier" file="Bezier.bin" md5="f23aa1069913d825c6f8040b3de17e7d"/> + <macro name="Bezierpt" file="Bezierpt.bin" md5="f09183e61d71f55243937a28ef90fb06"/> + <macro name="BorderHiddenData" file="BorderHiddenData.bin" md5="67622b4dca726e7aff9b4e92d411edcd"/> + <macro name="BorderPt" file="BorderPt.bin" md5="e482d76b67ceb360021f9cef448abc73"/> + <macro name="Borderparadata" file="Borderparadata.bin" md5="1bf108993d36707c45e3a25770ca2869"/> + <macro name="Borderpersdata" file="Borderpersdata.bin" md5="d46e7fdcf42a61c354a540359dcd9f5f"/> + <macro name="Borderrawdata" file="Borderrawdata.bin" md5="0228890cf35b6929fc3bb083b1211da6"/> + <macro name="Bowdata" file="Bowdata.bin" md5="1f5f1c65d0448af83143e14f53565393"/> + <macro name="Bowmiddle" file="Bowmiddle.bin" md5="0a765efd6dae8c6fbd0d075ef0ff8b3c"/> + <macro name="Bowname" file="Bowname.bin" md5="e8ab45879c83d386dcf5e086fe71e1a4"/> + <macro name="Bownamerot" file="Bownamerot.bin" md5="ce9e45bf14fca7b62fa56b6d0b3baaef"/> + <macro name="CalcHeight" file="CalcHeight.bin" md5="f535ff3dcd86bc6552b54894e5865673"/> + <macro name="CalcWidth" file="CalcWidth.bin" md5="cf0f3d22a9dd2ffdb077a4be5bf1219f"/> + <macro name="Calcfun" file="Calcfun.bin" md5="618d36dbe48f68b4a3e2664b5df8cad2"/> + <macro name="CameraCurve" file="CameraCurve.bin" md5="b8acf2da07c09553106c10b4cc29d9e7"/> + <macro name="CameracoordCurve" file="CameracoordCurve.bin" md5="91ad20f64500117414f16a1cce2c344f"/> + <macro name="Cancoordpara" file="Cancoordpara.bin" md5="61afc19fb49f4b16d48a3cc54c6c6650"/> + <macro name="Cancoordpers" file="Cancoordpers.bin" md5="3a82d9864deed9b050795decae25d8bb"/> + <macro name="Circledata" file="Circledata.bin" md5="a5a1cf644e81417a9065d80f71b24d8d"/> + <macro name="Clipindomain" file="Clipindomain.bin" md5="773133bed55b7003b0248ffb670e3685"/> + <macro name="Closefile" file="Closefile.bin" md5="d29119f97c49373729d10b0cfba746e4"/> + <macro name="Closeobj" file="Closeobj.bin" md5="18df14cfd19b6a7911f9a3748572c02c"/> + <macro name="Closepar" file="Closepar.bin" md5="b8f58e851efa7f12560401c5b0760ecf"/> + <macro name="Closephr" file="Closephr.bin" md5="f53a01c653931c16bd3c493950798acf"/> + <macro name="Closepicture" file="Closepicture.bin" md5="32f401713757a349111cfaf0adcf199d"/> + <macro name="Connectseg" file="Connectseg.bin" md5="439d9f55197c09cd7b54e98cc7151208"/> + <macro name="Crossprod" file="Crossprod.bin" md5="536992b625b66d009e88e73a21a354d6"/> + <macro name="Crv3onsfHiddenData" file="Crv3onsfHiddenData.bin" md5="716dedc06dea644e6aadecf58ab050f4"/> + <macro name="Crv3onsfparadata" file="Crv3onsfparadata.bin" md5="e0d51c785077d687bfc222837fd8593b"/> + <macro name="Crv3onsfpersdata" file="Crv3onsfpersdata.bin" md5="63bcd579f64f40cc04e50094782e09e0"/> + <macro name="CrvonsfHiddenData" file="CrvonsfHiddenData.bin" md5="009a9889bf1f2a3a05f38918b579b7cb"/> + <macro name="Crvonsfparadata" file="Crvonsfparadata.bin" md5="6d5468227fd75007c1dfe4572c1c189c"/> + <macro name="Crvonsfpersdata" file="Crvonsfpersdata.bin" md5="de082902912599535a629ed08e56fb6c"/> + <macro name="CrvsfHiddenData" file="CrvsfHiddenData.bin" md5="f8d158838c95df89a67bf8233e541a09"/> + <macro name="Crvsfparadata" file="Crvsfparadata.bin" md5="885de6d7639a403dd01a2761e39a6ad1"/> + <macro name="Crvsfpersdata" file="Crvsfpersdata.bin" md5="3a660a01512f537e270f611d45512032"/> + <macro name="CuspData" file="CuspData.bin" md5="0958a008a4c59305d62522f9b80028da"/> + <macro name="CuspPt" file="CuspPt.bin" md5="08b55dc8b3e2d0ee1fea47b71825af92"/> + <macro name="CuspSplitPt" file="CuspSplitPt.bin" md5="0ff09f7f3d56080bbad1a1a26260f254"/> + <macro name="Cuspsplitpara" file="Cuspsplitpara.bin" md5="e54d63f2224cff696951a50800d0c4d4"/> + <macro name="Cuspsplitpers" file="Cuspsplitpers.bin" md5="ebf6aef58ed839a05d27771eeb0fc60c"/> + <macro name="Cutsf2d" file="Cutsf2d.bin" md5="adc0dd43b75ee65d181c56c5eeef3b0a"/> + <macro name="Dashline" file="Dashline.bin" md5="4d0497d9013039e15ff2b287b2c0988b"/> + <macro name="Dataindex" file="Dataindex.bin" md5="f0b3b146c9ee16cde54ecd4937acb0b9"/> + <macro name="Definecolor" file="Definecolor.bin" md5="337b7001704f8c604b555e35721973d6"/> + <macro name="Deqplot" file="Deqplot.bin" md5="43a868bfe9d41dc2389116b15d18df80"/> + <macro name="Derivative" file="Derivative.bin" md5="f0b451a2b43c69168ac088e8443f6961"/> + <macro name="Diagcelldata" file="Diagcelldata.bin" md5="efc679b9d0239e2669c6a0929a4e242b"/> + <macro name="Dividegraphics" file="Dividegraphics.bin" md5="b2c065a1249613d3cf7f6ba80ec816a4"/> + <macro name="Dividetable" file="Dividetable.bin" md5="af1d4f7f854da91ce2b4cec13ff44bc5"/> + <macro name="Doscaling" file="Doscaling.bin" md5="86184ec15f528517d5e37e8b5baa3754"/> + <macro name="Dotfilldata" file="Dotfilldata.bin" md5="80a560945fc679f1f036778833dd59a7"/> + <macro name="Dotprod" file="Dotprod.bin" md5="e1a7afad315e324245ec76499b5dfb6c"/> + <macro name="Dottedline" file="Dottedline.bin" md5="6505941ec7ec4395b72df15f93621117"/> + <macro name="Dropnumlistcrv" file="Dropnumlistcrv.bin" md5="1875178bc5c363af0d15f8276503be4a"/> + <macro name="Droppoint" file="Droppoint.bin" md5="c25e16076a319350b8763f48476b4ec6"/> + <macro name="Drwline" file="Drwline.bin" md5="3aedf6f6a861fa772b06071e29680824"/> + <macro name="Drwpt" file="Drwpt.bin" md5="52f450f7724e33a424582cfe03c06877"/> + <macro name="Drwxy" file="Drwxy.bin" md5="c17d9f6608390f019c87d6e1e181e8a3"/> + <macro name="Embed" file="Embed.bin" md5="7cc5c0ccfeb87763b205b3fcf0dc67b4"/> + <macro name="Enclosing" file="Enclosing.bin" md5="457c453795c3b3224be70e1721385cb1"/> + <macro name="EnclosingS" file="EnclosingS.bin" md5="13de130f31f7932194fd173f977ff896"/> + <macro name="Endpicture" file="Endpicture.bin" md5="9b3ce661a450d798d55889be6ffd31ac"/> + <macro name="Evlptablepara" file="Evlptablepara.bin" md5="06e669cba02eb0218f852fdf46b1cae5"/> + <macro name="Evlptablepers" file="Evlptablepers.bin" md5="6cc6897a677911ce2629157f932f32c5"/> + <macro name="Execmd" file="Execmd.bin" md5="c3a30b0fae6f2a8ce6593607ed0d2ed8"/> + <macro name="Expr" file="Expr.bin" md5="c3e260bc0fd7af5a7231431ef9033f5c"/> + <macro name="Exprrot" file="Exprrot.bin" md5="6fc71ff18629fc512e5fed1218433619"/> + <macro name="Faceremovaldata" file="Faceremovaldata.bin" md5="90e9f3a860839349b2486df6fff7adb4"/> + <macro name="Facesdata" file="Facesdata.bin" md5="0c43ae73a08dcfce906c075f17eec59a"/> + <macro name="Findcell" file="Findcell.bin" md5="9b9cc86ef6f67a8d539d30ec58ad9005"/> + <macro name="Flattenlist" file="Flattenlist.bin" md5="d4b4a78c9e9760a4cbeda97f54592acb"/> + <macro name="Fontsize" file="Fontsize.bin" md5="3620d8e64b61ab17778776195acec82a"/> + <macro name="Fouriercoeff" file="Fouriercoeff.bin" md5="83dfcd5c4a1d0f7ccb711d89b0a8003c"/> + <macro name="FouriercoeffL" file="FouriercoeffL.bin" md5="29b8c2c57c53796531cb8316630e87ee"/> + <macro name="Fouriersum" file="Fouriersum.bin" md5="3cf167292e587148fe7d3a9d2e34eab0"/> + <macro name="Fracform" file="Fracform.bin" md5="6dfc4e723a0a2d55ef9e2e9028e5a0b1"/> + <macro name="Framedata" file="Framedata.bin" md5="712be5ee4fdd60fe132b951022f7f5e1"/> + <macro name="Fullformfunc" file="Fullformfunc.bin" md5="ebc5473763f9884c091aa9863062702b"/> + <macro name="Gaiseki" file="Gaiseki.bin" md5="36a6b9567ed081b46107ed3374562196"/> + <macro name="Getcounter" file="Getcounter.bin" md5="45f7aec5f0936f4abe6e65296634a847"/> + <macro name="Gettrace" file="Gettrace.bin" md5="bb84c353b0e3af593e903273160d9bd9"/> + <macro name="Hatchdata" file="Hatchdata.bin" md5="e05c42f885a108c41a75bf1b607b509b"/> + <macro name="Hexahedrondata" file="Hexahedrondata.bin" md5="86efcd2c370b4e76adfeea3b75639d31"/> + <macro name="HiddenWireData" file="HiddenWireData.bin" md5="a080bcb1dcc97c1205fff04562d694fd"/> + <macro name="Htickmark" file="Htickmark.bin" md5="bdafbfedbc2441fe5cd989910852c79e"/> + <macro name="ImplicitData" file="ImplicitData.bin" md5="24a9ea9eb043677084250a30d6c6db00"/> + <macro name="Implicitplot" file="Implicitplot.bin" md5="7d1075882d5446646c2304e00e70ad6d"/> + <macro name="InWindow" file="InWindow.bin" md5="cf3f449e5189b8d40a3d3a4c219a92ea"/> + <macro name="Initangle" file="Initangle.bin" md5="c6902d32536d434af7f28c28b45290ab"/> + <macro name="Integrate" file="Integrate.bin" md5="6f255339baf16af41b20d9b2d86adb50"/> + <macro name="Intersectcrvs" file="Intersectcrvs.bin" md5="68b875e1418a8a231095155ca2482cbc"/> + <macro name="IntersectcrvsPp" file="IntersectcrvsPp.bin" md5="5c05582df9fa8f9a05fa42ef1cf799ae"/> + <macro name="Intersectcrvsf" file="Intersectcrvsf.bin" md5="89b1b7d500237aebbd41f1094560609b"/> + <macro name="Intersectlines" file="Intersectlines.bin" md5="5a4837581398e0f6299d83805b325fd6"/> + <macro name="IntersectselfPp" file="IntersectselfPp.bin" md5="d10bc970ff6540655fedece748a0f1d7"/> + <macro name="Invdashline" file="Invdashline.bin" md5="d72a1842fe88eb719dd85ce45caafc96"/> + <macro name="Invert" file="Invert.bin" md5="7018f80081bca2cb147e81ea435ba287"/> + <macro name="Invparapt" file="Invparapt.bin" md5="b58cfbc854e7b14d076b1f1676c3f54b"/> + <macro name="Invperspt" file="Invperspt.bin" md5="c8500cf469fd4a4c8399e5e093f49126"/> + <macro name="Joincrvs" file="Joincrvs.bin" md5="41981f483c2cfacab95b25356ee5a7d1"/> + <macro name="Joingraphics" file="Joingraphics.bin" md5="e525e21001a3408e5bb3587d24ca4916"/> + <macro name="Ketinit" file="Ketinit.bin" md5="bd9d49f1927a921db621d419da386e1d"/> + <macro name="Kouten" file="Kouten.bin" md5="b0fbbe27e4961ef9a8d0652b1d9edfaf"/> + <macro name="KoutenList" file="KoutenList.bin" md5="ca822b6e42d545a627a7129d02b91cb2"/> + <macro name="Koutenseg" file="Koutenseg.bin" md5="2424557c72db63186699b8ab8fb4ef64"/> + <macro name="Kukannozoku" file="Kukannozoku.bin" md5="40cef25e80745039eb34c5066dfe2d14"/> + <macro name="Kukeiwake" file="Kukeiwake.bin" md5="2e42c3fdef9ac1f7aaca550ff11307c3"/> + <macro name="Kyorihensuu" file="Kyorihensuu.bin" md5="3f313b70f962d573d0db9a548ed4ebc4"/> + <macro name="Kyoukai" file="Kyoukai.bin" md5="630a8517e9e9ae8ecb2a5372c87193fd"/> + <macro name="Letter" file="Letter.bin" md5="a587d241a5c2f1c69b0904632af16a26"/> + <macro name="Letterrot" file="Letterrot.bin" md5="1ce92bf2c945ee12d0746ae7f2fe6b5d"/> + <macro name="Lineplot" file="Lineplot.bin" md5="d2b8a90dd16c873622ffc291b7c9ed64"/> + <macro name="Listplot" file="Listplot.bin" md5="1575fd89b2e6c3c96b90b6889006370f"/> + <macro name="MakeBowdata" file="MakeBowdata.bin" md5="ab5ea1d8c5cc092ea13021c3fb255613"/> + <macro name="MakeCurves" file="MakeCurves.bin" md5="a1d7968df6f80673bab58af5762640a4"/> + <macro name="MakecutbycrvL" file="MakecutbycrvL.bin" md5="8ddeb50d60ce53392a6d6ec76fad7bee"/> + <macro name="Makehasen" file="Makehasen.bin" md5="b6e177ea7ad735910a2c6b45dc1bb580"/> + <macro name="Makeliststr" file="Makeliststr.bin" md5="bf4e86417206108a51e2b0210b990557"/> + <macro name="Makesfcutoffdata" file="Makesfcutoffdata.bin" md5="7b61d0f517b18505225edbac83729b6f"/> + <macro name="Makeshasen" file="Makeshasen.bin" md5="878e44c4780cdac427a7d55f551373a2"/> + <macro name="Makeskeletondata" file="Makeskeletondata.bin" md5="6c918f7f13736227cc0ac351c6fd7a54"/> + <macro name="Makeskeletonpersdata" file="Makeskeletonpersdata.bin" md5="72dd47219b4e6689c54c69eed62f06dc"/> + <macro name="Makevaltable" file="Makevaltable.bin" md5="c279f90b73efc06d235c983bd08ce47b"/> + <macro name="MakeveLfaceL" file="MakeveLfaceL.bin" md5="1afea9c44a3dbe277e601b02d38be3cc"/> + <macro name="Makexybdy" file="Makexybdy.bin" md5="6eca03d530a515cdfe0b98d33fee2b67"/> + <macro name="Mawarikomi" file="Mawarikomi.bin" md5="61b967de5ef56e29016932c9f77c561a"/> + <macro name="MeetWindow" file="MeetWindow.bin" md5="ae7f015eebc2250c20ad876d1d3ec9e4"/> + <macro name="Meetpoints" file="Meetpoints.bin" md5="ffeccee8bfbebd44a45abdfe91c3cca1"/> + <macro name="Member" file="Member.bin" md5="6c29ab2fdbbc61889c95b45d820d317d"/> + <macro name="Menkakusi" file="Menkakusi.bin" md5="53d3fee4c99b28d7aac10f8114fe2524"/> + <macro name="Menkakusi2" file="Menkakusi2.bin" md5="eedabe7e3dd93f6af4fe225a6aa4b2ed"/> + <macro name="Mix" file="Mix.bin" md5="f9f822bf34f04f9dc5401f492b8dc76b"/> + <macro name="MixL" file="MixL.bin" md5="e80cd4b09be7c0a9b88cfaea7bcf802a"/> + <macro name="MixS" file="MixS.bin" md5="d60abae70f94ff28b184306e971d1102"/> + <macro name="Mixadd" file="Mixadd.bin" md5="51da5be70ce2e556dd75d812715faad4"/> + <macro name="Mixdisp" file="Mixdisp.bin" md5="b2b5187462a54615cca28f272232b61f"/> + <macro name="Mixjoin" file="Mixjoin.bin" md5="f9df8699f8cb95ca2b657403a94a9d8f"/> + <macro name="Mixlength" file="Mixlength.bin" md5="ee9cee8e9c916ea42ed8e1e8ad70e321"/> + <macro name="Mixmake" file="Mixmake.bin" md5="b84d74ef8def9658fa2d8f34cc8424f5"/> + <macro name="Mixop" file="Mixop.bin" md5="8c5f9a72e8838aa4b9c9f45013000670"/> + <macro name="Mixsub" file="Mixsub.bin" md5="f2a14687cf8a0c6daaede12d0b730dd5"/> + <macro name="Mixtype" file="Mixtype.bin" md5="0a0931265b0666b53416685a35897f82"/> + <macro name="Naigai" file="Naigai.bin" md5="6e97fdbd9f1feabfb09b2247518c4399"/> + <macro name="Naiseki" file="Naiseki.bin" md5="8f33757e011f07a03a144414296c3190"/> + <macro name="Nearestpt" file="Nearestpt.bin" md5="7b392fdb66cdafb6ccf4e3f083967ba2"/> + <macro name="Newlength" file="Newlength.bin" md5="ea7efdb86cdb3345f0b3e43427cb2c48"/> + <macro name="Nohiddenpara" file="Nohiddenpara.bin" md5="b46886584a10d67fbdb7816c5c739fb8"/> + <macro name="Nohiddenpara2" file="Nohiddenpara2.bin" md5="be95c5d2791c7b05e25c1def88f2bdc6"/> + <macro name="Nohiddenpers" file="Nohiddenpers.bin" md5="1e867c6479823f428d90911b099cdbcf"/> + <macro name="Nohiddenpers2" file="Nohiddenpers2.bin" md5="f96bfe5e316b4b771ab3d26b27b73615"/> + <macro name="Numptcrv" file="Numptcrv.bin" md5="5bf4461504105054dd993bff3b35f370"/> + <macro name="Objcurve" file="Objcurve.bin" md5="3f7684be52bce1b1458d378be0849229"/> + <macro name="Objjoin" file="Objjoin.bin" md5="74a96fb8ed5d88ff1008156f27738f5a"/> + <macro name="Objname" file="Objname.bin" md5="74d2732da725b97cb3c0eb443a6f5ed9"/> + <macro name="Objpolygon" file="Objpolygon.bin" md5="56d22a5ae20dcfc9a0cd4b8a440385e6"/> + <macro name="Objpolyhedron" file="Objpolyhedron.bin" md5="ff92bd278e558ead5df19970d6d01546"/> + <macro name="Objrecs" file="Objrecs.bin" md5="e8ca7cd5993fb7ce8e5b509dce42e46b"/> + <macro name="Objsurf" file="Objsurf.bin" md5="f3017f49c709447a7024d16edb01580d"/> + <macro name="Objsymb" file="Objsymb.bin" md5="ef3fbae27f502a20ff4df575638d4e52"/> + <macro name="Objthicksurf" file="Objthicksurf.bin" md5="07f9c70cedf719587412c848812c7704"/> + <macro name="Op" file="Op.bin" md5="cb2e0935be6b77b1c0bc4f2c7071a1cb"/> + <macro name="Openfile" file="Openfile.bin" md5="bfccc88e9e9abcd83236dd4dd5da2cb4"/> + <macro name="Openobj" file="Openobj.bin" md5="c60578368dceeb4ab79f74e6de774ffd"/> + <macro name="Openpar" file="Openpar.bin" md5="39554dc8c76d98179e21e6878af691c5"/> + <macro name="Openphr" file="Openphr.bin" md5="a086531ca6cf4e112742d5aef90943cf"/> + <macro name="Openpicture" file="Openpicture.bin" md5="e7b76f0bb2132c86350d0f1293a31069"/> + <macro name="Ovalbox" file="Ovalbox.bin" md5="d22bdac24b70c1d6b1625dcf3a8ce007"/> + <macro name="Ovaldata" file="Ovaldata.bin" md5="0facfbd0760cec3d8fa762f7dea098f2"/> + <macro name="Paramark" file="Paramark.bin" md5="644e9aa93430fd35f3639875d6759584"/> + <macro name="ParamonCurve" file="ParamonCurve.bin" md5="910c0b77eb025faf243e2d2cb7ebd043"/> + <macro name="Paramoncrv" file="Paramoncrv.bin" md5="48c6dc127d039740c0a11def8a18fe8a"/> + <macro name="Paramplot" file="Paramplot.bin" md5="09b2750fc9950bbc258a881a2c12a97b"/> + <macro name="Parapt" file="Parapt.bin" md5="e130c84b03164202cf8e25ea27558859"/> + <macro name="Partcrv" file="Partcrv.bin" md5="819797d94d68bf7df7c29b01717525a6"/> + <macro name="Partcrv3" file="Partcrv3.bin" md5="c87d37f9f00aff9ce05a3a3879c6ea5a"/> + <macro name="Partframe" file="Partframe.bin" md5="8df2a78e61362e18cf3b71779ffffbd4"/> + <macro name="PartitionPt" file="PartitionPt.bin" md5="a4afd33aca16e70df0984f7cf05371ce"/> + <macro name="Partitionseg" file="Partitionseg.bin" md5="c0ce6ccd18ea9794f55a9e6926328ea1"/> + <macro name="Perspt" file="Perspt.bin" md5="5415e8696ae175005b59936b2e164bac"/> + <macro name="PhFaceL" file="PhFaceL.bin" md5="b8748ee001a1357e2820b304083ce09e"/> + <macro name="PhHiddenData" file="PhHiddenData.bin" md5="6a0ab5d6aeb7d4c66b31ab86ac5afdae"/> + <macro name="PhVertexL" file="PhVertexL.bin" md5="9d7e1d653e88fc9b98f783ec57ebe8ca"/> + <macro name="Phcutdata" file="Phcutdata.bin" md5="bed83bc88efc277012bab8ba47b9d810"/> + <macro name="Phcutoffdata" file="Phcutoffdata.bin" md5="2ca3881c7cdfe2fee62aa3e64af34157"/> + <macro name="Phidegree" file="Phidegree.bin" md5="5d1ac461a2fee60c6c2dda978a262428"/> + <macro name="Phparadata" file="Phparadata.bin" md5="cbc40d5c2c508a72e51adac3ffecdd4c"/> + <macro name="Phpersdata" file="Phpersdata.bin" md5="51601f80ae1578cf4aa0d6f244ba5027"/> + <macro name="Phrawparadata" file="Phrawparadata.bin" md5="371b244204a19e6a12e70773cb118f21"/> + <macro name="Phrawpersdata" file="Phrawpersdata.bin" md5="f2371fdb24326f6c7a209f9b70d07ce1"/> + <macro name="Phsparadata" file="Phsparadata.bin" md5="762751108de07b4e5a1e6264e16d487c"/> + <macro name="Phspersdata" file="Phspersdata.bin" md5="acf5af0f78c134ae893fd057e408dd3e"/> + <macro name="Phsrawparadata" file="Phsrawparadata.bin" md5="2aebf882e1d6cd11e44cb2815fd186fd"/> + <macro name="Phsrawpersdata" file="Phsrawpersdata.bin" md5="b90465806262e6016d26450f6654194d"/> + <macro name="Plotdata" file="Plotdata.bin" md5="676695f9f9b9a91cfea1ee426d7185ce"/> + <macro name="Pointdata" file="Pointdata.bin" md5="eb131a9f0a6687722dc491cedb732ade"/> + <macro name="PointonCurve" file="PointonCurve.bin" md5="168183930f3fce712571ad5b737f7004"/> + <macro name="Pointoncrv" file="Pointoncrv.bin" md5="a0a2cd4d7f51bec560eb26fef054d835"/> + <macro name="Powersum" file="Powersum.bin" md5="29a72b2125d2f95cfd9bdd742a4e106b"/> + <macro name="Prime" file="Prime.bin" md5="35045b439a59fabbe9a4127d12706fb6"/> + <macro name="Printobjstr" file="Printobjstr.bin" md5="2b4d610c4a39dcab5cfb5c93f7dff5ea"/> + <macro name="ProjCurve" file="ProjCurve.bin" md5="7d548512c30e79cd098aa7b2f96a4ebf"/> + <macro name="ProjcoordCurve" file="ProjcoordCurve.bin" md5="ddf1fa0e05421feaa482038b26925ab5"/> + <macro name="Projpara" file="Projpara.bin" md5="98da96de9ea67f2db4111877d7ff785e"/> + <macro name="Projpers" file="Projpers.bin" md5="7820810b8c0861b22e8dcdc23f1c0864"/> + <macro name="Ptcrv" file="Ptcrv.bin" md5="d353fd7e1af4fac1533c7e0ddebf996e"/> + <macro name="Ptend" file="Ptend.bin" md5="5b30f64ef0920f13b540db8eb5f93e5a"/> + <macro name="PthiddenQ" file="PthiddenQ.bin" md5="c1e31cee1140bf7942b7e1c83514d790"/> + <macro name="Ptne" file="Ptne.bin" md5="833e0e4b3ced75d740eaaab4c1fc88bd"/> + <macro name="Ptnw" file="Ptnw.bin" md5="8415bd27db46c35cec56e67d2ca9734f"/> + <macro name="Ptse" file="Ptse.bin" md5="f5180a6df918355d3a588786e7be8cf4"/> + <macro name="Ptstart" file="Ptstart.bin" md5="f0e4baaf1f46e6b379571e9414a83812"/> + <macro name="Ptsw" file="Ptsw.bin" md5="c30adf43aa5f3c9a0961402ab3b8ddc9"/> + <macro name="Putcell" file="Putcell.bin" md5="da158190a8848db850d3d34a16d36dc8"/> + <macro name="Putcirmark" file="Putcirmark.bin" md5="9f1b9f829d10c8d29f3c2ea6d316383b"/> + <macro name="PutcoL" file="PutcoL.bin" md5="d8f49a7b534060301063804207669228"/> + <macro name="PutcoLexpr" file="PutcoLexpr.bin" md5="d35417b4b818f80c7b96f99118795d48"/> + <macro name="PutcoLstr" file="PutcoLstr.bin" md5="32c9d7d6751b5c85adca1c384ec98c10"/> + <macro name="Putdashmark" file="Putdashmark.bin" md5="03b76cd3bbc9e52df76c2be30c42570b"/> + <macro name="Putrecmark" file="Putrecmark.bin" md5="a5c20a30353d0c79c0dcea3cf39c54e3"/> + <macro name="Putrow" file="Putrow.bin" md5="0a9adbebc80444ab1495a302265920e6"/> + <macro name="Putrowexpr" file="Putrowexpr.bin" md5="4a32c3441cd9ad7c23656ab97e65d352"/> + <macro name="Putrowstr" file="Putrowstr.bin" md5="92ee0311a5e4bb7995a9d44bfbc1460d"/> + <macro name="Puttrace" file="Puttrace.bin" md5="08b64f48285a49c1cb6138fe1491c8fe"/> + <macro name="Ratiocmyk" file="Ratiocmyk.bin" md5="54098c052d304f2b329cc4fd2bd23bc1"/> + <macro name="ReadOutData" file="ReadOutData.bin" md5="0198ca044595d75779d267e425e5380a"/> + <macro name="ReadfromCindy" file="ReadfromCindy.bin" md5="1fed87229911382502d7e7cfd359f4c1"/> + <macro name="Readtextdata" file="Readtextdata.bin" md5="4acbbc591808404b6814db3175c2ffed"/> + <macro name="Reflectdata" file="Reflectdata.bin" md5="51d5020a418590fe64cbf4883da76562"/> + <macro name="Rmmember" file="Rmmember.bin" md5="31ade9c8802d46438ace1e53bb769b86"/> + <macro name="Rotate3data" file="Rotate3data.bin" md5="5aaab016d1fed7a61f270e3b4ad84316"/> + <macro name="Rotate3pt" file="Rotate3pt.bin" md5="7feea2dd66e7a02b96c384011d818a0e"/> + <macro name="Rotatedata" file="Rotatedata.bin" md5="f7c7aa1bd5b2d2d99b66bb3bd711de19"/> + <macro name="Roundstr" file="Roundstr.bin" md5="dd261bcd78d1110bfd9fd775efcf5a4e"/> + <macro name="Scaledata" file="Scaledata.bin" md5="fac166fc1de490a64dd7f7a8f46164a9"/> + <macro name="Sectionview" file="Sectionview.bin" md5="db370ec400c90c7865f7c626572e39f7"/> + <macro name="Setangle" file="Setangle.bin" md5="57190782b3c5c0ace7f2adecb18e4aed"/> + <macro name="Setarrow" file="Setarrow.bin" md5="e7baa60ca4f593de15c7cb8b56be800a"/> + <macro name="Setax" file="Setax.bin" md5="ef281e109b01e3b65d1842e0d2a03873"/> + <macro name="Setcolor" file="Setcolor.bin" md5="b0adb12d43ae4da2815331389b85f944"/> + <macro name="Setcounter" file="Setcounter.bin" md5="e38d212ffa114288c73ccdb613c9cb9d"/> + <macro name="Setmark" file="Setmark.bin" md5="d4cb68ac16edcd28a86ba2a0563b9597"/> + <macro name="Setmarklen" file="Setmarklen.bin" md5="ec3870c326393f15a29d77cf476618cf"/> + <macro name="Setobjdecimals" file="Setobjdecimals.bin" md5="823bc64fbdda67813d1e3c3bf592a0e3"/> + <macro name="Setobjscale" file="Setobjscale.bin" md5="a2cdb49a13b0dc89328a7194f34eeeab"/> + <macro name="Setorigin" file="Setorigin.bin" md5="fe236fa677bab1dd24e53cfc28022826"/> + <macro name="Setpen" file="Setpen.bin" md5="9d87bbd283d225fd62422263375a94b5"/> + <macro name="Setpers" file="Setpers.bin" md5="830fe8254a07765e703077b456353070"/> + <macro name="Setpt" file="Setpt.bin" md5="cbfbda69ce4184fc0ad59bfbe01943a6"/> + <macro name="Setscaling" file="Setscaling.bin" md5="263333f56ad33907534fdb460e54da9b"/> + <macro name="SetstereoL" file="SetstereoL.bin" md5="2711aa6a1541336aec852ac1437155ac"/> + <macro name="SetstereoR" file="SetstereoR.bin" md5="bd74d871d1bc79ed8c01a13a569eb7bb"/> + <macro name="Setunitlen" file="Setunitlen.bin" md5="1e245724b987e84c413bf37a30bb5dd3"/> + <macro name="Setversion" file="Setversion.bin" md5="d6dbab1ce7bb18b2c773bae647e4ac5d"/> + <macro name="Setwindow" file="Setwindow.bin" md5="e781a89da1ce77fbc46f713553523c51"/> + <macro name="Sf3data" file="Sf3data.bin" md5="095b6c0f2bf25f7b9ed5f5d8d3a8915d"/> + <macro name="Sfbdparadata" file="Sfbdparadata.bin" md5="f9c0c54671a68458f4bcb1936fa402ec"/> + <macro name="Sfbdpersdata" file="Sfbdpersdata.bin" md5="aa08f921566b64c11e888ee34429eca5"/> + <macro name="Sfbdrawparadata" file="Sfbdrawparadata.bin" md5="fae8431fd5fe5ead8ff2f85d45e144c1"/> + <macro name="Sfbdrawpersdata" file="Sfbdrawpersdata.bin" md5="1cafbda088573fad0d85f2bb2a165178"/> + <macro name="Sfcutdata" file="Sfcutdata.bin" md5="4dff7dff641c5e51588e8f27c2068396"/> + <macro name="Sfcutoffparadata" file="Sfcutoffparadata.bin" md5="d5089ce276ce8329a5e25772eda825ad"/> + <macro name="Sfcutoffpersdata" file="Sfcutoffpersdata.bin" md5="8f232600533c8c553d279fb7999a9aef"/> + <macro name="Sfcutoffrawparadata" file="Sfcutoffrawparadata.bin" md5="b530fdec88ecac05548dcbc183fac672"/> + <macro name="Sfcutoffrawpersdata" file="Sfcutoffrawpersdata.bin" md5="c7dc8aec4aedc1a9e3b88a423b4e4091"/> + <macro name="Sfparadata" file="Sfparadata.bin" md5="636205ff5e7fa28c188beb8a788ec30f"/> + <macro name="Sfpersdata" file="Sfpersdata.bin" md5="2c198aaa68180b41eb0dd81812668a52"/> + <macro name="Shade" file="Shade.bin" md5="db51cd9b42032b1fd9cebb3f0565d055"/> + <macro name="Skeleton2data" file="Skeleton2data.bin" md5="046308bb7c2d18186a5db1abf5724ace"/> + <macro name="Skeletonpara3data" file="Skeletonpara3data.bin" md5="8b00d1898174de20f097983ad72f96d9"/> + <macro name="Skeletonparadata" file="Skeletonparadata.bin" md5="6368394d29bd3e34c9dadbc54dd49755"/> + <macro name="Skeletonpers3data" file="Skeletonpers3data.bin" md5="62a627cd77291d934150cbe175d9ec06"/> + <macro name="Skeletonpersdata" file="Skeletonpersdata.bin" md5="63663e9c381325970209a62a00877361"/> + <macro name="Spacecurve" file="Spacecurve.bin" md5="e06c5eb2ae8623cee4fe135d6ed8d2a5"/> + <macro name="Spaceline" file="Spaceline.bin" md5="bcdf09d58fde1a3071968c7600cbcadc"/> + <macro name="Splinedata" file="Splinedata.bin" md5="c8cac41f49166b548f6bb20eb765f513"/> + <macro name="Strop" file="Strop.bin" md5="b3e20bfeaaf10aa827ec9be26865547b"/> + <macro name="Subs" file="Subs.bin" md5="daa0438a2d34af2d043c50b3d2a00a01"/> + <macro name="Sumfun" file="Sumfun.bin" md5="0a785d3c30c763778e1f92d3b8fb785e"/> + <macro name="Symb3data" file="Symb3data.bin" md5="ba72252ea118f44b847927d0de9b9892"/> + <macro name="Symbdata" file="Symbdata.bin" md5="53c196c0ca5f9026e4cd441e0d6586ed"/> + <macro name="Tabledata" file="Tabledata.bin" md5="b79bdcd7c171ab768e763d26d9b4f6a1"/> + <macro name="Texcom" file="Texcom.bin" md5="dc0139e9541acb939d1c3839a0fc11f6"/> + <macro name="Texctr" file="Texctr.bin" md5="5f23e09b23191bec07cb10b070d5c66b"/> + <macro name="Texelse" file="Texelse.bin" md5="f8b67c8497e8dd9ac1dbcc5a90fc930c"/> + <macro name="Texend" file="Texend.bin" md5="351105e6dd3c5c171f0944030fba69c4"/> + <macro name="Texendfor" file="Texendfor.bin" md5="7d1005515ed98a776c7c9a00a2a970d8"/> + <macro name="Texendif" file="Texendif.bin" md5="6323c9cf98ac4c1d6e01bef2dadc6614"/> + <macro name="Texfor" file="Texfor.bin" md5="0ade87f95e63dadbdbfe35efbca00e86"/> + <macro name="Texforinit" file="Texforinit.bin" md5="6e96556a978535b632dba9e33b9551b3"/> + <macro name="Texif" file="Texif.bin" md5="db3af265fced379c5bc2a35dcd661aef"/> + <macro name="Texletter" file="Texletter.bin" md5="7a7ebe58bae97a3a17d646d1c7a9e1da"/> + <macro name="Texnewcmd" file="Texnewcmd.bin" md5="b4f314f440314e77d8c93385172eb5e1"/> + <macro name="Texnewctr" file="Texnewctr.bin" md5="86756d50c10bcf8359c1a924e6e1004d"/> + <macro name="Texrenewcmd" file="Texrenewcmd.bin" md5="90e63f10dd735a7263da2cb8661692c7"/> + <macro name="Texsetctr" file="Texsetctr.bin" md5="8d9cd50bcb9304e25e27ac7818c9b047"/> + <macro name="Texthectr" file="Texthectr.bin" md5="b74d5106ff432a8c84dfd3e8baf9402f"/> + <macro name="Texvalctr" file="Texvalctr.bin" md5="6a789e4941c736527f57d75d1ba26123"/> + <macro name="Texvctr" file="Texvctr.bin" md5="05e1f689e4002ca0b53c1b7674d814e0"/> + <macro name="Thetadegree" file="Thetadegree.bin" md5="0ff4846aaeb83b20683ec4d4b60ed98f"/> + <macro name="ThisVersion" file="ThisVersion.bin" md5="5d9fc94c56eb694d62a16b1f7a6a9d04"/> + <macro name="Tolist" file="Tolist.bin" md5="65c83ab06c83674c70f46e0f402d3580"/> + <macro name="Translate3data" file="Translate3data.bin" md5="38c5bcaf8d3659c75cd7cf335d26196b"/> + <macro name="Translatedata" file="Translatedata.bin" md5="17b85cc7ed17d1f260cf758ead8dc0ab"/> + <macro name="Trunc" file="Trunc.bin" md5="7a6a605bcba822854e4c917fe41db659"/> + <macro name="Unscaling" file="Unscaling.bin" md5="08ee317471c47d086c9404e47955b17b"/> + <macro name="Vecnagasa" file="Vecnagasa.bin" md5="aaeae5f1a186bba7b2c357a2c77ce2a1"/> + <macro name="Vecnagasa2" file="Vecnagasa2.bin" md5="41c4c41904d6b87a9844d20fd860a6cb"/> + <macro name="Viewfrom" file="Viewfrom.bin" md5="fe4685d5db0abf45a31b2b643b20c23f"/> + <macro name="Vtickmark" file="Vtickmark.bin" md5="375b4bc294d26ab3b7d30f8fbd4bfad7"/> + <macro name="Windisp" file="Windisp.bin" md5="1e48a32bf2ea244b701fb5bb63ea18f4"/> + <macro name="WireHiddenData" file="WireHiddenData.bin" md5="7fb2be220f2c6dfefea57e5a9acf9145"/> + <macro name="WirePt" file="WirePt.bin" md5="0936e8dd2f3ca890efaf0b274aa64d96"/> + <macro name="Wireparadata" file="Wireparadata.bin" md5="60a5c112230c8cb7ebd803304b1b17b7"/> + <macro name="Wirepersdata" file="Wirepersdata.bin" md5="b2696b1685c9456c6857fbdd1424256a"/> + <macro name="Wirerawparadata" file="Wirerawparadata.bin" md5="e770b9a2bce4c8804fc62a5191be1545"/> + <macro name="Wirerawpersdata" file="Wirerawpersdata.bin" md5="f254f9cad0b02b01e7388fbbb433bcc4"/> + <macro name="WriteOutData" file="WriteOutData.bin" md5="55682f0605917544dd41d2c25f24786c"/> + <macro name="Writeobjpoint" file="Writeobjpoint.bin" md5="24c598f95cc38899d5cf5d3048a9e263"/> + <macro name="Writetextdata" file="Writetextdata.bin" md5="b1da333518052fedb658e0827833a54f"/> + <macro name="WritetoCindy" file="WritetoCindy.bin" md5="c8a05614d69d73bd4aa3c562cf479872"/> + <macro name="Xmax" file="Xmax.bin" md5="87038803908d553ab8de412b410887dd"/> + <macro name="Xmin" file="Xmin.bin" md5="eae15ed2438d2805a6ad488cf22b75e8"/> + <macro name="Xyzax3data" file="Xyzax3data.bin" md5="633e040e19b435e55bb66dbc4f231117"/> + <macro name="Xyzaxparaname" file="Xyzaxparaname.bin" md5="8fa701d6b92b478a97ed8b4e263c9a18"/> + <macro name="Xyzaxpersname" file="Xyzaxpersname.bin" md5="1e9573e9452267842a7907f30661e902"/> + <macro name="Ymax" file="Ymax.bin" md5="4ab8eccdba393b4c41a45d38f97faf88"/> + <macro name="Ymin" file="Ymin.bin" md5="5dedfdfc18e01299ea069b578be8b697"/> + <macro name="Zparapt" file="Zparapt.bin" md5="e16dd6e761c2e8ec7eb31da49d7a3b96"/> + <macro name="Zperspt" file="Zperspt.bin" md5="b04d5677e9ee74a1cbff3ad73c9d2a20"/> +</scilablib> diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names new file mode 100644 index 00000000..cef9f19b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names @@ -0,0 +1,335 @@ +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 |