o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Astro with some minor changes to placate Unix.

Browse source
This commit is contained in:
wkj 2004-04-21 02:16:43 +00:00
parent 95f57b01e2
commit cd5bae7871
33 changed files with 4819 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

53
src/cmd/astro/output.c Normal file
View file

@ -0,0 +1,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);
}