diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci new file mode 100755 index 00000000..fb72097b --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/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; |