summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci26
1 files changed, 26 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci
new file mode 100755
index 00000000..78cd46e5
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/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