Return to output.c CVS log

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

Annotation of researchv10no/cmd/sky/output.c, revision 1.1.1.1

1.1       root        1: #include "sky.h"
                      2: 
                      3: output()
                      4: {
                      5: 
                      6:        printf("%s ",object);
                      7: 
                      8:        if(!((flags&GEO)||(flags&HELIO))){
                      9:                prhms(ra,3);
                     10:                prdms(decl2,2);
                     11:                printf(" %8.4f %8.4f %9.4f\n", az, el, semi2);
                     12:        }
                     13:        if((flags&GEO)){
                     14:                prhms(alpha,3);
                     15:                prdms(delta,2);
                     16:                printf(" %13.7f\n", georad);
                     17:        }
                     18:        if((flags&HELIO)){
                     19:                while(lambda<0)
                     20:                        lambda += 2.*pi;
                     21:                while(lambda > 2.*pi)
                     22:                        lambda -= 2.*pi;
                     23:                prdms(lambda,3);
                     24:                prdms(beta,3);
                     25:                printf(" %14.8f\n", rad);
                     26:        }
                     27: }
                     28: 
                     29: prhms(arg,n)
                     30: double arg;
                     31: int n;
                     32: {
                     33:        int n1, n2;
                     34:        double x;
                     35:        char *format = " %2d %02d %07.4f";
                     36: 
                     37:        format[14] = n + '0';
                     38:        format[12] = n + '3';
                     39:        while(arg < 0.) arg += 2.*pi;
                     40:        arg /= 15.;
                     41:        x = arg/radian;
                     42:        n1 = floor(x);
                     43:        x = (x-n1)*60.;
                     44:        n2 = floor(x);
                     45:        x = x - n2;
                     46:        x = x * 60.;
                     47:        printf(format, n1, n2, x);
                     48: }
                     49: 
                     50: prdms(arg,n)
                     51: double arg;
                     52: int n;
                     53: {
                     54:        int n1, n2;
                     55:        double x;
                     56:        int sign;
                     57:        char *format1 = " %4d %02d %07.4f";
                     58:        char *format2 = "   -0 %02d %07.4f";
                     59: 
                     60:        format1[14] = n + '0';
                     61:        format1[12] = n + '3';
                     62:        format2[15] = n + '0';
                     63:        format2[13] = n + '3';
                     64:        if(arg<0.){
                     65:                arg = -arg;
                     66:                sign = -1;
                     67:        }else{
                     68:                sign = 1;
                     69:        }
                     70:        x = arg/radian;
                     71:        n1 = floor(x);
                     72:        x = (x-n1)*60.;
                     73:        n2 = floor(x);
                     74:        x -= n2;
                     75:        x *= 60.;
                     76:        n1 *= sign;
                     77:        if((n1==0)&&(sign== -1))
                     78:                printf(format2, n2, x);
                     79:        else
                     80:                printf(format1, n1, n2, x);
                     81: }

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