summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci44
1 files changed, 0 insertions, 44 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci
deleted file mode 100644
index fb72097b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-//
-// 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;