summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci
blob: fb72097bafb40a1ef1cbe4a516130de0abecc7f1 (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
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;