Return to newyorker.c CVS log

Up to [Research Unix] / researchv10no / cmd / map / libmap

Annotation of researchv10no/cmd/map/libmap/newyorker.c, revision 1.1.1.1

1.1       root        1: #include "map.h"
                      2: 
                      3: static double a;
                      4: 
                      5: static int
                      6: Xnewyorker(struct place *place, double *x, double *y)
                      7: {
                      8:        double r = PI/2 - place->nlat.l;
                      9:        double s;
                     10:        if(r<.001)      /* cheat to plot center */
                     11:                s = 0;
                     12:        else if(r<a)
                     13:                return -1;
                     14:        else
                     15:                s = log(r/a);
                     16:        *x = -s * place->wlon.s;
                     17:        *y = -s * place->wlon.c;
                     18:        return(1);
                     19: }
                     20: 
                     21: proj
                     22: newyorker(double a0)
                     23: {
                     24:        a = a0*RAD;
                     25:        return(Xnewyorker);
                     26: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.