blob: 78cd46e5c75a848fa285408e66738519325f631a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
|