← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to prim/tw3/libsrc/sdf.tex

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
prim/tw3/libsrc/sdf.tex
 
1
% @(#)sdf.tex   19.1 (ESO-IPG) 02/25/03 14:12:41 
 
2
%++++++++++++++
 
3
%.IDENTIFICATION sdf.tex
 
4
%.LANGUAGE       TeX
 
5
%.AUTHOR         Francois Ochsenbein [ESO-IPG]
 
6
%.ENVIRONMENT    STARCAT, TermWindows
 
7
%.PURPOSE        Definitions for SDF Files
 
8
%.VERSION 2.0    13-Jan-1989
 
9
%-------------
 
10
%
 
11
\def\BeginC{\begin{more}{Ccode}}
 
12
\def\EndC{\end{more}}
 
13
\def\Coordinates{%---------- There Are Coordinates
 
14
        equinox=\equinox;epoch=\epoch;
 
15
        if(!started)    \{started=1;return;\}
 
16
        x[0]=om\_coosys('\coosys',\coopm);
 
17
        x[1]=r\_a/3.6e6;
 
18
        x[2]=dec/3.6e6;
 
19
        x[3]=equinox;
 
20
        x[4]=epoch;
 
21
}
 
22
\def\CooTr#1#2#3{%------------>>>       Transform Coordinates:
 
23
%                       #1   = systeme (G S E J B)
 
24
%                       #2   = Equinox
 
25
%                       #3   = Epoch
 
26
%                       Result is y[1], y[2]
 
27
        y[0]=om\_coosys('#1',\coopm);
 
28
        y[3]=#2;y[4]=#3;
 
29
        om\_trcoo(\&x[0],\&y[0]);
 
30
}