diff options
author | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
commit | 138f77fe71e43adc24ecb030d73df81cc5c4eb7e (patch) | |
tree | cd2d906c634149bbecd2f4bad3d540c16b23befa /texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci | |
parent | 37bfdbee2c91bab6f0abd54503a0b9c669c9109e (diff) |
add ketpic
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci new file mode 100755 index 00000000..fb72097b --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/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; |