Subversion Repositories planix.SVN

#include "astro.h"

void
output(char *s, Obj1 *p)
{

        if(s == 0)
                print(" SAO %5ld", sao);
        else
                print("%10s", s);
        print(" %R %D %9.4f %9.4f %9.4f",
                p->ra, p->decl2, p->az, p->el, p->semi2);
        if(s == osun.name || s == omoon.name)
                print(" %7.4f", p->mag);
        print("\n");
}

int
Rconv(Fmt *f)
{
        double v;
        int h, m, c;

        v = va_arg(f->args, double);
        v = fmod(v*12/pi, 24);          /* now hours */
        h = floor(v);
        v = fmod((v-h)*60, 60);         /* now leftover minutes */
        m = floor(v);
        v = fmod((v-m)*60, 60);         /* now leftover seconds */
        c = floor(v);
        return fmtprint(f, "%2dh%.2dm%.2ds", h, m, c);
}

int
Dconv(Fmt *f1)
{
        double v;
        int h, m, c, f;

        v = va_arg(f1->args, double);
        v = fmod(v/radian, 360);        /* now degrees */
        f = 0;
        if(v > 180) {
                v = 360 - v;
                f = 1;
        }
        h = floor(v);
        v = fmod((v-h)*60, 60);         /* now leftover minutes */
        m = floor(v);
        v = fmod((v-m)*60, 60);         /* now leftover seconds */
        c = floor(v);
        return fmtprint(f1, "%c%.2d°%.2d'%.2d\"", "+-"[f], h, m, c);
}