Return to bicentric.c CVS log

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

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

1.1       root        1: #include "map.h"
                      2: 
                      3: static struct coord center;
                      4: 
                      5: static int
                      6: Xbicentric(struct place *place, double *x, double *y)
                      7: {
                      8:        if(place->wlon.c<=.01||place->nlat.c<=.01)
                      9:                return(-1);
                     10:        *x = -center.c*place->wlon.s/place->wlon.c;
                     11:        *y = place->nlat.s/(place->nlat.c*place->wlon.c);
                     12:        return(*x**x+*y**y<=9);
                     13: }
                     14: 
                     15: proj
                     16: bicentric(double l)
                     17: {
                     18:        l = fabs(l);
                     19:        if(l>89)
                     20:                return(0);
                     21:        deg2rad(l,&center);
                     22:        return(Xbicentric);
                     23: }

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