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     ! 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.