summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci
blob: 62a1f6243439d486d8b0b4042f2928aadf531bc4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// 
// 09.02.27

function Setorigin(varargin)
  global GENTEN;
  Nargs=length(varargin);
  if Nargs==0
    disp(GENTEN);
    return;
  end;
  Pt=varargin(1);
  GENTEN=Pt;
endfunction