Return to faststate.c CVS log

Up to [Research Unix] / researchv10no / cmd / town

Annotation of researchv10no/cmd/town/faststate.c, revision 1.1

1.1     ! root        1: # include "stdio.h"
        !             2: # include "math.h"
        !             3: # include "assert.h"
        !             4: # define radp  57.2957795
        !             5: main()
        !             6: {
        !             7: /* reads ascii patch file; converts to binary and does cosine conversion. */
        !             8: char line[100], *s, opat[10];
        !             9: long pos;
        !            10: float a[4];
        !            11: double correct;
        !            12: opat[0]=0;
        !            13: pos=0;
        !            14: correct = cos(40.0/radp);
        !            15: while (gets(line))
        !            16:        {
        !            17:        if (strncmp(opat, line, 5))
        !            18:                fprintf(stderr, "%.5s %ld\n", line, pos);
        !            19:        strncpy(opat, line, 5);
        !            20:        for(s=line; *s && *s!='\t'; s++)
        !            21:                ;
        !            22:        sscanf(s, "%f %f %f %f", a+0, a+1, a+2, a+3);
        !            23:        /* need to multiply longitudes by cosine of latitude */
        !            24:        a[1] *= correct;
        !            25:        a[3] *= correct;
        !            26:        write (1, a, 4*sizeof(float));
        !            27:        pos+= 4*sizeof(float);
        !            28:        }
        !            29: fprintf(stderr, "ENDED %ld\n", pos);
        !            30: }

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