IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Oct 12, 2004, 10:53:02 AM (22 years ago)
Author:
gusciora
Message:

Added new members to psExposure.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/psLib/src/astronomy/psCoord.c

    r1615 r2058  
    1010*  @author George Gusciora, MHPCC
    1111*
    12 *  @version $Revision: 1.20 $ $Name: not supported by cvs2svn $
    13 *  @date $Date: 2004-08-25 01:38:30 $
     12*  @version $Revision: 1.21 $ $Name: not supported by cvs2svn $
     13*  @date $Date: 2004-10-12 20:53:02 $
    1414*
    1515*  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
    … …  
    3232/******************************************************************************/
    3333
     34#define PS_COT(X) (1.0 / atan(X))
     35
     36/******************************************************************************/
     37/*  TYPE DEFINITIONS                                                          */
     38/******************************************************************************/
     39
    3440// None
    3541
    36 /******************************************************************************/
    37 /*  TYPE DEFINITIONS                                                          */
    38 /******************************************************************************/
     42/*****************************************************************************/
     43/*  GLOBAL VARIABLES                                                         */
     44/*****************************************************************************/
    3945
    4046// None
    4147
    4248/*****************************************************************************/
    43 /*  GLOBAL VARIABLES                                                         */
     49/*  FILE STATIC VARIABLES                                                    */
    4450/*****************************************************************************/
    4551
    … …  
    4753
    4854/*****************************************************************************/
    49 /*  FILE STATIC VARIABLES                                                    */
    50 /*****************************************************************************/
    51 
    52 // None
    53 
    54 /*****************************************************************************/
    5555/*  FUNCTION IMPLEMENTATION - LOCAL                                          */
    5656/*****************************************************************************/
    5757
    58 static float p_psCot(float x);
    5958static float p_psArg(float x, float y);
    6059
    6160/******************************************************************************
    62 XXX: Do this with a macro.
    63  *****************************************************************************/
    64 float p_psCot(float x)
    65 {
    66     return (1.0 / atan(x));
    67 }
    68 
    69 /******************************************************************************
    7061XXX: Verify this arc tan function.
    71  *****************************************************************************/
     62XXX: macro
     63 *****************************************************************************/
     64
    7265float p_psArg(float x,
    7366              float y)
    … …  
    240233
    241234    if (projection->type == PS_PROJ_TAN) {
    242         R = p_psCot(coord->r) * (180.0 / M_PI);
     235        R = PS_COT(coord->r) * (180.0 / M_PI);
    243236        tmp->x = R * sin(coord->d);
    244237        tmp->y = R * cos(coord->d);
Note: See TracChangeset for help on using the changeset viewer.