summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.sci
blob: 2a4a3c9505dbbbb00bc5aa4135b8bd24885c5cee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
// 08.07.11
// 08.08.12
// 09.02.27

function Setangle(varargin)
  global PHI THETA;
  Nargs=length(varargin);
  if Nargs<2
    Mixdisp(Mix('theta=',THETA*180/%pi));
    Mixdisp(Mix('phi=',PHI*180/%pi));
    return;
  else
    PHI=varargin(2)*%pi/180;
    THETA=varargin(1)*%pi/180;
  end
endfunction;