Statistics
| Revision:

svn-gvsig-desktop / trunk / libraries / libjni-proj4 / src / PJ_wag7.c @ 7098

History | View | Annotate | Download (542 Bytes)

1 
#ifndef lint
2 
static const char SCCSID[]="@(#)PJ_wag7.c        4.1        94/02/15        GIE        REL";
3 
#endif
4 
#define PJ_LIB__
5 
#include        <projects.h>
6 
PROJ_HEAD(wag7, "Wagner VII") "\n\tMisc Sph, no inv.";
7 
FORWARD(s_forward); /* sphere */
8 
        double theta, ct, D;
9 

    		
  

  

    
      10
    
    
      
        theta = asin(xy.y = 0.90630778703664996 * sin(lp.phi));


    		
  

  

    
      11
    
    
      
        xy.x = 2.66723 * (ct = cos(theta)) * sin(lp.lam /= 3.);


    		
  

  

    
      12
    
    
      
        xy.y *= 1.24104 * (D = 1/(sqrt(0.5 * (1 + ct * cos(lp.lam)))));


    		
  

  

    
      13
    
    
      
        xy.x *= D;


    		
  

  

    
      14
    
    
      
        return (xy);


    		
  

  

    
      15
    
    
      
}


    		
  

  

    
      16
    
    
      
FREEUP; if (P) pj_dalloc(P); }


    		
  

  

    
      17
    
    
      
ENTRY0(wag7) P->fwd = s_forward; P->inv = 0; P->es = 0.; ENDENTRY(P)