1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#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);
}
|