diff options
author | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
commit | 8c3c49fd56de185396400a0e8a636ac03d8239ab (patch) | |
tree | adf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci deleted file mode 100644 index fb72097b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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; |