summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci
blob: 44bde517afc579ce11f93026c55ca7df2dea5254 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// 08.10.26

function Out=Viewfrom(varargin)
  global THETA PHI
  Nargs=length(varargin);
  Nvec=varargin(1);
  GL=varargin(2);
  Flg=1;
  if Nargs>=3
    Flg=varargin(3);
  end;
  Theta=THETA; Phi=PHI;
  Tmp=Rotate3data(GL,Nvec,[-1,0,0]);
  THETA=%pi/2; PHI=0;
  Out=Projpara(Tmp);
  if Flg==1
    Windisp(Out);
  end;
  THETA=Theta; PHI=Phi;
endfunction;