diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci new file mode 100644 index 00000000..5b0a3474 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci @@ -0,0 +1,13 @@ +// 10.01.13 + +function Out=Ptsw(varargin) + global XMIN XMAX YMIN YMAX + if length(varargin)==0 + Out=[XMIN,YMIN]; + else + G=varargin(1); + Xm=min(G(:,1)); + Ym=min(G(:,2)); + Out=[Xm,Ym]; + end; +endfunction
\ No newline at end of file |