summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.sci
blob: 455551bb86399101daebfb145b3e0f4072b1ab07 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// 08.08.12
// 08.08.15

function Setpers(varargin)
  global FocusPoint EyePoint;
  Nargs=length(varargin);
  if Nargs==0
    Mixdisp(Mix('FocusPoints=',FocusPoint));
    Mixdisp(Mix('EyePoint=',EyePoint));
    return;
  else
    FocusPoint=varargin(1);
    EyePoint=varargin(2);
  end;
endfunction