Return to orthographic.c CVS log

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

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

1.1       root        1: #include "map.h"
                      2: 
                      3: 
                      4: int
                      5: Xorthographic(struct place *place, double *x, double *y)
                      6: {
                      7:        *x = - place->nlat.c * place->wlon.s;
                      8:        *y = - place->nlat.c * place->wlon.c;
                      9:        return(place->nlat.l<0.? 0 : 1);
                     10: }
                     11: 
                     12: proj
                     13: orthographic(void)
                     14: {
                     15:        return(Xorthographic);
                     16: }
                     17: 
                     18: int
                     19: olimb(double *lat, double *lon, double res)
                     20: {
                     21:        static first  = 1;
                     22:        if(first) {
                     23:                *lat = 0;
                     24:                *lon = -180;
                     25:                first = 0;
                     26:                return 0;
                     27:        }
                     28:        *lon += res;
                     29:        if(*lon <= 180)
                     30:                return 1;
                     31:        first = 1;
                     32:        return -1;
                     33: }

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