summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci
blob: f6452897d583b038b19d783df0a139f7d90e27d4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//
// 10.01.13

function Out=Ptne(varargin)
  global XMIN XMAX YMIN YMAX
  if length(varargin)==0
    Out=[XMAX,YMAX];
  else
    G=varargin(1);
    XM=max(G(:,1));
    YM=max(G(:,2));
    Out=[XM,YM];
  end;
endfunction