summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci
blob: 5b0a34742627085806a1b69e9aeebb3e9e76dbb0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
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