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

function Setpt(varargin)
  global TenSize TenSizeInit;
   Nargs=length(varargin);
   if Nargs==0
     Tmp=TenSize/TenSizeInit;
     Tmp=round(Tmp*100)/100;
     disp(Tmp);
     return;
   end;
   Size=varargin(1);
  TenSize=TenSizeInit*Size;
endfunction;