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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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;
|