mirror
/
XEphem
mirror of https://github.com/XEphem/XEphem.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
XEphem/GUI/xephem/glance.c

1188 lines
31 KiB
C
Raw Blame History

/* code to manage the Night-at-a-Glance feature.
*/
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <string.h>
#include <X11/Xlib.h>
#include <Xm/Xm.h>
#include <Xm/Form.h>
#include <Xm/Frame.h>
#include <Xm/DrawingA.h>
#include <Xm/Label.h>
#include <Xm/PushB.h>
#include <Xm/CascadeB.h>
#include <Xm/Scale.h>
#include <Xm/ToggleB.h>
#include <Xm/RowColumn.h>
#include <Xm/Separator.h>
#include <Xm/ScrolledW.h>
#include "xephem.h"
static int ng_ison (void);
static void ng_create_shell (void);
static void ng_create_popup (void);
static void ng_1col_cb (Widget w, XtPointer client, XtPointer call);
static void ng_print_cb (Widget w, XtPointer client, XtPointer call);
static void ng_da_input_cb (Widget w, XtPointer client, XtPointer call);
static void ng_print (void);
static void ng_ps_annotate (void);
static void ng_settime_cb (Widget w, XtPointer client, XtPointer call);
static void ng_popdown_cb (Widget w, XtPointer client, XtPointer call);
static void ng_close_cb (Widget w, XtPointer client, XtPointer call);
static void ng_mloop_cb (Widget w, XtPointer client, XtPointer call);
static void ng_init_gcs (void);
static void ng_help_cb (Widget w, XtPointer client, XtPointer call);
static void ng_exp_cb (Widget w, XtPointer client, XtPointer call);
static void ng_redraw (void);
static void ng_refresh (XExposeEvent *ep);
static void ng_drawpm (void);
static int ng_ano (double *fracx, double *fracy, int *xp, int *yp, int w2x,
int arg);
/* main's widgets */
static Widget ngshell_w; /* main shell */
static Widget ngda_w; /* image view DrawingArea */
static Widget pu_w; /* popup shell */
static Widget puname_w; /* popup objects name label */
static Pixmap ng_pm; /* image view staging pixmap */
static Widget dt_w; /* main date/time stamp widget */
static Widget ngsolid_w; /* set when want to use a solid color */
static GC ng_gc; /* misc GC */
static Pixel ngsolid_p; /* color of ngsolid_tb set */
static XFontStruct *ng_vfs; /* views font */
static XFontStruct *ng_lfs; /* label font */
static int ng_w, ng_h; /* current ngda_w size */
static int skyh; /* sky region height, pixels */
static int midx; /* window x @ local midnight */
static int nowx; /* window x @ Now.n_mjd */
static Pixel *ngcolors; /* gray-scale ramp */
static int ncolors; /* actual number in ngcolors[] */
#define UPLT 3 /* Up-time line thickness, pixels */
#define TMLT 2 /* major tick mark line thickness, pixels */
/* info about stuff to put in the popup */
typedef struct {
char *prompt; /* prompt, or NULL for gap */
DMCol id; /* one of *_ID from dm.h */
char *tip; /* helpful tip */
Widget w; /* label widget */
} PopupInfo;
static PopupInfo puinfo[] = {
{"Rise time:", RSTIME_ID,
"Time at which this object rises during this 24-hour period, in Preference time zone"},
{"Rise az:", RSAZ_ID,
"Azimuth at which this object rises, degrees E of N"},
{"Transit time:", TRTIME_ID,
"Time at which this object transits during this 24-hour period, in Preference time zone"},
{"Transit alt:", TRALT_ID,
"Altitude at which this object transits during this 24-hour period, DD:MM"},
{"Transit az:", TRAZ_ID,
"Azimuth at which this object achieves maximum elevation during this 24-hour period, DDD:MM"},
{"Set time:", SETTIME_ID,
"Time at which this object sets during this 24-hour period, in Preference time zone"},
{"Set Az:", SETAZ_ID,
"Azimuth at which this object set, degrees E of N"},
};
static Now punow; /* Now at popup cursor loc */
static Widget punow_w; /* PB to set XEphem time to punow */
static Widget punowsep_w; /* separator about punowpb_w */
static char naagcategory[] = "Night at a Glance"; /* Save category */
/* called when the NG view is activated via the main menu pulldown.
* if first time, build everything, else just get going.
*/
void
ng_manage (void)
{
if (!ngshell_w) {
ng_create_shell();
ng_init_gcs();
}
XtPopup (ngshell_w, XtGrabNone);
set_something (ngshell_w, XmNiconic, (XtArgVal)False);
setXRes (ng_viewupres(), "1");
}
/* commanded from main to update with a new set of circumstances */
/* ARGSUSED */
void
ng_update (np, how_much)
Now *np;
int how_much;
{
/* only if we're up */
if (!ng_ison())
return;
ng_redraw();
}
/* list of favorites has changed */
void
ng_newfavs (void)
{
/* only if we're up */
if (!ng_ison())
return;
ng_redraw();
}
/* called when basic resources change.
* rebuild and redraw.
*/
void
ng_newres (void)
{
if (!ngshell_w)
return;
ng_init_gcs();
ng_update (mm_get_now(), 1);
}
/* called to put up or remove the watch cursor. */
void
ng_cursor (c)
Cursor c;
{
Window win;
if (ngshell_w && (win = XtWindow(ngshell_w)) != 0) {
Display *dsp = XtDisplay(ngshell_w);
if (c)
XDefineCursor (dsp, win, c);
else
XUndefineCursor (dsp, win);
}
}
/* return the name of the resource containing whether this view is up */
char *
ng_viewupres (void)
{
return ("NaaGViewUp");
}
static int
ng_ison (void)
{
return (isUp(ngshell_w));
}
static void
ng_create_shell (void)
{
Widget mb_w, pd_w, cb_w, fr_w;
Widget ngform_w;
Widget w;
Arg args[20];
int n;
/* create master shell and a form */
n = 0;
XtSetArg (args[n], XmNcolormap, xe_cm); n++;
XtSetArg (args[n], XmNtitle, "xephem Night at a Glance"); n++;
XtSetArg (args[n], XmNiconName, "Night"); n++;
XtSetArg (args[n], XmNdeleteResponse, XmUNMAP); n++;
ngshell_w = XtCreatePopupShell ("NaaGlance", topLevelShellWidgetClass,
toplevel_w, args, n);
set_something (ngshell_w, XmNcolormap, (XtArgVal)xe_cm);
setup_icon (ngshell_w);
XtAddCallback (ngshell_w, XmNpopdownCallback, ng_popdown_cb, 0);
sr_reg (ngshell_w, "XEphem*NaaGlance.width", naagcategory, 0);
sr_reg (ngshell_w, "XEphem*NaaGlance.height", naagcategory, 0);
sr_reg (ngshell_w, "XEphem*NaaGlance.x", naagcategory, 0);
sr_reg (ngshell_w, "XEphem*NaaGlance.y", naagcategory, 0);
sr_reg (NULL, ng_viewupres(), naagcategory, 0);
n = 0;
XtSetArg (args[n], XmNhorizontalSpacing, 5); n++;
XtSetArg (args[n], XmNverticalSpacing, 5); n++;
XtSetArg (args[n], XmNmarginWidth, 5); n++;
ngform_w = XmCreateForm (ngshell_w, "NaaGlanceF", args, n);
XtAddCallback (ngform_w, XmNhelpCallback, ng_help_cb, 0);
XtManageChild (ngform_w);
/* create the menu bar across the top */
n = 0;
XtSetArg (args[n], XmNtopAttachment, XmATTACH_FORM); n++;
XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
XtSetArg (args[n], XmNrightAttachment, XmATTACH_FORM); n++;
mb_w = XmCreateMenuBar (ngform_w, "MB", args, n);
XtManageChild (mb_w);
/* make the Control pulldown */
n = 0;
pd_w = XmCreatePulldownMenu (mb_w, "ControlPD", args, n);
n = 0;
XtSetArg (args[n], XmNsubMenuId, pd_w); n++;
XtSetArg (args[n], XmNmnemonic, 'C'); n++;
cb_w = XmCreateCascadeButton (mb_w, "ControlCB", args, n);
set_xmstring (cb_w, XmNlabelString, "Control");
XtManageChild (cb_w);
/* the "OneColor" push button */
n = 0;
XtSetArg (args[n], XmNvisibleWhenOff, True); n++;
XtSetArg (args[n], XmNmarginHeight, 0); n++;
XtSetArg (args[n], XmNindicatorType, XmN_OF_MANY); n++;
ngsolid_w = XmCreateToggleButton (pd_w, "OneColor", args, n);
XtAddCallback (ngsolid_w, XmNvalueChangedCallback, ng_1col_cb,NULL);
set_xmstring (ngsolid_w, XmNlabelString, "One color");
wtip (ngsolid_w, "Use same color for all objects");
XtManageChild (ngsolid_w);
sr_reg (ngsolid_w, NULL, naagcategory, 0);
/* the "Print" push button */
n = 0;
w = XmCreatePushButton (pd_w, "MPrint", args, n);
set_xmstring (w, XmNlabelString, "Print...");
XtAddCallback (w, XmNactivateCallback, ng_print_cb, 0);
wtip (w, "Print the current map");
XtManageChild (w);
/* the "Favorites" push button */
n = 0;
w = XmCreatePushButton (pd_w, "NF", args, n);
set_xmstring (w, XmNlabelString, "Favorites...");
XtAddCallback (w, XmNactivateCallback,(XtCallbackProc)fav_manage,0);
wtip (w, "Print the current map");
XtManageChild (w);
/* the "annotation" push button */
n = 0;
w = XmCreatePushButton (pd_w, "MAnn", args, n);
set_xmstring (w, XmNlabelString, "User annotation...");
XtAddCallback (w, XmNactivateCallback, ano_cb, 0);
wtip (w, "Open window to create and manage your own annotation");
XtManageChild (w);
/* the "movie" push button */
n = 0;
n += ml_addacc (args, n);
w = XmCreatePushButton (pd_w, "ML", args, n);
set_xmstring (w, XmNlabelString, "Add to movie...");
XtAddCallback (w, XmNactivateCallback, ng_mloop_cb, 0);
wtip (w, "Add this chart to the movie loop");
XtManageChild (w);
/* add a separator */
n = 0;
w = XmCreateSeparator (pd_w, "CtS", args, n);
XtManageChild (w);
/* add the close button */
n = 0;
w = XmCreatePushButton (pd_w, "Close", args, n);
XtAddCallback (w, XmNactivateCallback, ng_close_cb, 0);
wtip (w, "Close this dialog");
XtManageChild (w);
/* make the help pulldown */
n = 0;
pd_w = XmCreatePulldownMenu (mb_w, "HelpPD", args, n);
n = 0;
XtSetArg (args[n], XmNsubMenuId, pd_w); n++;
XtSetArg (args[n], XmNmnemonic, 'H'); n++;
cb_w = XmCreateCascadeButton (mb_w, "HelpCB", args, n);
set_xmstring (cb_w, XmNlabelString, "Help");
XtManageChild (cb_w);
set_something (mb_w, XmNmenuHelpWidget, (XtArgVal)cb_w);
n = 0;
XtSetArg (args[n], XmNmarginHeight, 0); n++;
w = XmCreatePushButton (pd_w, "Help", args, n);
XtAddCallback (w, XmNactivateCallback, ng_help_cb, 0);
XtManageChild (w);
wtip (w, "More info about this dialog");
/* make a label for the date stamp */
n = 0;
XtSetArg (args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
XtSetArg (args[n], XmNrightAttachment, XmATTACH_FORM); n++;
XtSetArg (args[n], XmNrecomputeSize, False); n++;
dt_w = XmCreateLabel (ngform_w, "DateStamp", args, n);
timestamp (mm_get_now(), dt_w); /* sets initial size */
wtip (dt_w, "Date and Time for which map is computed");
XtManageChild (dt_w);
/* make a drawing area for the image view in a frame */
n = 0;
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
XtSetArg (args[n], XmNtopWidget, mb_w); n++;
XtSetArg (args[n], XmNbottomAttachment, XmATTACH_WIDGET); n++;
XtSetArg (args[n], XmNbottomWidget, dt_w); n++;
XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
XtSetArg (args[n], XmNrightAttachment, XmATTACH_FORM); n++;
fr_w = XmCreateFrame (ngform_w, "Frame", args, n);
XtManageChild (fr_w);
n = 0;
ngda_w = XmCreateDrawingArea (fr_w, "Map", args, n);
XtAddCallback (ngda_w, XmNexposeCallback, ng_exp_cb, NULL);
XtAddCallback (ngda_w, XmNinputCallback, ng_da_input_cb, 0);
XtManageChild (ngda_w);
}
static void
ng_create_popup (void)
{
Arg args[20];
Widget w;
int i, n;
/* create the outer form */
n = 0;
XtSetArg (args[n], XmNisAligned, True); n++;
XtSetArg (args[n], XmNalignment, XmALIGNMENT_CENTER); n++;
pu_w = XmCreatePopupMenu (ngda_w, "NGPopup", args, n);
n = 0;
puname_w = XmCreateLabel (pu_w, "PUName", args, n);
wtip (puname_w, "Name of object");
XtManageChild (puname_w);
/* create the label widgets */
for (i = 0; i < XtNumber(puinfo); i++) {
PopupInfo *pip = &puinfo[i];
n = 0;
w = XmCreateLabel (pu_w, "NGPopUL", args, n);
pip->w = w;
XtManageChild (w);
wtip (w, pip->tip);
if (!pip->prompt)
set_xmstring (w, XmNlabelString, " ");
}
/* create the Set time PB */
n = 0;
punowsep_w = XmCreateSeparator (pu_w, "Sep", args, n);
XtManageChild (punowsep_w);
n = 0;
w = XmCreateLabel (pu_w, "ST", args, n);
set_xmstring (w, XmNlabelString, "Set Main time to:");
XtManageChild (w);
n = 0;
punow_w = XmCreatePushButton (pu_w, "Set", args, n);
XtAddCallback (punow_w, XmNactivateCallback, ng_settime_cb, NULL);
wtip (punow_w,
"Set main XEphem time to moment at mouse click, shown here");
XtManageChild (punow_w);
}
/* callback from the Print PB */
/* ARGSUSED */
static void
ng_print_cb (Widget w, XtPointer client, XtPointer call)
{
XPSAsk ("Night-at-a-Glance", ng_print);
}
/* callback from the One Color TB */
/* ARGSUSED */
static void
ng_1col_cb (Widget w, XtPointer client, XtPointer call)
{
ng_redraw();
}
/* callback from the inputCallback*/
/* ARGSUSED */
static void
ng_da_input_cb (Widget w, XtPointer client, XtPointer call)
{
XmDrawingAreaCallbackStruct *c = (XmDrawingAreaCallbackStruct *)call;
Now *np = mm_get_now();
int nlfavs;
char buf[1024];
Obj **lfavs;
XEvent *ev;
int i;
/* create popup first time */
if (!pu_w)
ng_create_popup();
/* confirm button 3 press event */
if (c->reason != XmCR_INPUT)
return;
ev = c->event;
if (ev->xany.type != ButtonPress || ev->xbutton.button != 3)
return;
/* set punow to time under cursor */
memcpy ((void *)&punow, (void *)np, sizeof(Now));
np = &punow;
mjd += (double)(ev->xbutton.x-nowx)/(2*midx); /* 1 day wide */
/* set time string in label */
fs_timestamp (np, buf);
set_xmstring (punow_w, XmNlabelString, buf);
/* show stats too if over an object */
nlfavs = fav_get_loaded (&lfavs);
if (ev->xbutton.y < skyh && ev->xbutton.y >= 0 && nlfavs > 0) {
Obj *op = lfavs[ev->xbutton.y*nlfavs/skyh];
RiseSet rs;
/* need separator */
XtManageChild (punowsep_w);
/* set name */
set_xmstring (puname_w, XmNlabelString, op->o_name);
XtManageChild (puname_w);
/* find and set info */
dm_riset (np, op, &rs);
for (i = 0; i < XtNumber(puinfo); i++) {
PopupInfo *pip = &puinfo[i];
if (pip->prompt) {
char fmt[64];
dm_colFormat (np, op, &rs, pip->id, fmt);
sprintf (buf, "%s %s", pip->prompt, fmt);
set_xmstring (pip->w, XmNlabelString, buf);
XtManageChild (pip->w);
}
}
} else {
XtUnmanageChild (punowsep_w);
XtUnmanageChild (puname_w);
for (i = 0; i < XtNumber(puinfo); i++)
XtUnmanageChild(puinfo[i].w);
}
/* popup */
XmMenuPosition (pu_w, (XButtonPressedEvent *)ev);
XtManageChild (pu_w);
}
/* proceed to generate a postscript file.
* call XPSClose() when finished.
*/
static void
ng_print (void)
{
/* must be up */
if (!ng_ison()) {
xe_msg (1, "N-ata-G must be open to print.");
XPSClose();
return;
}
watch_cursor(1);
/* fit view in square across the top and prepare to capture X calls */
if (ng_w > ng_h)
XPSXBegin (ng_pm, 0, 0, ng_w, ng_h, 1*72, 10*72, (int)(6.5*72));
else {
int pw = (int)(72*6.5*ng_w/ng_h+.5); /* width on paper as 6.5 hi */
XPSXBegin (ng_pm, 0, 0, ng_w, ng_h, (int)((8.5*72-pw)/2), 10*72,pw);
}
/* redraw everything now */
ng_redraw();
/* no more X captures */
XPSXEnd();
/* add some extra info */
ng_ps_annotate ();
/* finished */
XPSClose();
watch_cursor(0);
}
static void
ng_ps_annotate (void)
{
Now *np = mm_get_now();
char dir[128];
char buf[128];
int ctr = 306; /* = 8.5*72/2 */
int lx = 145, rx = 460;
char *site;
int y;
/* caption */
y = AROWY(10);
(void) strcpy (buf, "XEphem Night-at-a-Glance");
(void) sprintf (dir, "(%s) %d %d cstr", buf, ctr, y);
XPSDirect (dir);
/* put site name under caption */
site = mm_getsite();
if (site) {
y = AROWY(9);
(void) sprintf (dir, "(%s) %d %d cstr\n",
XPSCleanStr(site,strlen(site)), ctr, y);
XPSDirect (dir);
}
/* date and time on the left */
y = AROWY(9);
fs_date (buf, pref_get(PREF_DATE_FORMAT), mjd_day(mjd));
(void) sprintf (dir, "(UTC Date:) %d %d rstr (%s) %d %d lstr\n",
lx, y, buf, lx+10, y);
XPSDirect (dir);
y = AROWY(8);
fs_time (buf, mjd_hr(mjd));
(void) sprintf (dir, "(UTC Time:) %d %d rstr (%s) %d %d lstr\n",
lx, y, buf, lx+10, y);
XPSDirect (dir);
/* lat/long on the right */
y = AROWY(9);
fs_sexa (buf, raddeg(fabs(lat)), 3, 3600);
(void) sprintf (dir, "(Latitude:) %d %d rstr (%s %c) %d %d lstr\n",
rx, y, buf, lat < 0 ? 'S' : 'N', rx+10, y);
XPSDirect (dir);
y = AROWY(8);
fs_sexa (buf, raddeg(fabs(lng)), 4, 3600);
(void) sprintf (dir,"(Longitude:) %d %d rstr (%s %c) %d %d lstr\n",
rx, y, buf, lng < 0 ? 'W' : 'E', rx+10, y);
XPSDirect (dir);
}
/* callback from PB in popup to set XEphem time to punow. */
/* ARGSUSED */
static void
ng_settime_cb (Widget w, XtPointer client, XtPointer call)
{
mm_newcaldate (punow.n_mjd);
}
/* callback from ngshell_w being popped down. */
/* ARGSUSED */
static void
ng_popdown_cb (Widget w, XtPointer client, XtPointer call)
{
if (ng_pm) {
XFreePixmap (XtD, ng_pm);
ng_pm = 0;
}
/* record we are now down */
setXRes (ng_viewupres(), "0");
}
/* called from Close button */
static void
ng_close_cb (Widget w, XtPointer client, XtPointer call)
{
XtPopdown (ngshell_w);
/* popping down ngshell_w will do all the real work */
}
/* called to add graph to movie loop */
static void
ng_mloop_cb (Widget w, XtPointer client, XtPointer call)
{
ml_add (ng_pm, dt_w);
}
/* callback from the Help all button
*/
/* ARGSUSED */
static void
ng_help_cb (Widget w, XtPointer client, XtPointer call)
{
static char *msg[] = {
"This is the night at a glance.",
};
hlp_dialog ("NightAtAGlance", msg, XtNumber(msg));
}
/* expose (or reconfig) of NAAG drawing area.
*/
/* ARGSUSED */
static void
ng_exp_cb (Widget w, XtPointer client, XtPointer call)
{
XmDrawingAreaCallbackStruct *c = (XmDrawingAreaCallbackStruct *)call;
Display *dsp = XtDisplay(ngda_w);
Window win = XtWindow(ngda_w);
Window root;
int x, y;
unsigned int bw, d;
unsigned int wid, hei;
switch (c->reason) {
case XmCR_EXPOSE: {
static int before;
XExposeEvent *e = &c->event->xexpose;
if (!before) {
XSetWindowAttributes swa;
unsigned long mask = CWBitGravity | CWBackingStore;
swa.bit_gravity = ForgetGravity;
swa.backing_store = NotUseful; /* we use a pixmap */
XChangeWindowAttributes (dsp, win, mask, &swa);
before = 1;
}
/* wait for the last in the series */
if (e->count != 0)
return;
break;
}
default:
printf ("Unexpected ngda_w event. type=%d\n", c->reason);
abort();
}
XGetGeometry (dsp, win, &root, &x, &y, &wid, &hei, &bw, &d);
if (!ng_pm || (int)wid != ng_w || (int)hei != ng_h) {
if (ng_pm) {
XFreePixmap (dsp, ng_pm);
ng_pm = (Pixmap) NULL;
}
ng_pm = XCreatePixmap (dsp, win, wid, hei, d);
ng_w = wid;
ng_h = hei;
ng_redraw();
} else {
/* same size; just copy from the pixmap */
ng_refresh(NULL);
}
}
/* redraw the current scene from scratch */
static void
ng_redraw (void)
{
ng_drawpm ();
ng_refresh(NULL);
timestamp (mm_get_now(), dt_w);
}
/* copy the ng_pm pixmap to the drawing area ngda_w.
* if ep just copy that much, else copy all.
*/
static void
ng_refresh(ep)
XExposeEvent *ep;
{
Display *dsp = XtDisplay(ngda_w);
Window win = XtWindow (ngda_w);
Pixmap pm = ng_pm;
unsigned w, h;
int x, y;
/* ignore of no pixmap now */
if (!pm)
return;
if (ep) {
x = ep->x;
y = ep->y;
w = ep->width;
h = ep->height;
} else {
w = ng_w;
h = ng_h;
x = y = 0;
}
XCopyArea (dsp, pm, win, ng_gc, x, y, w, h, x, y);
}
/* get the gray scale and other one-time pixel-related stuff.
* N.B. just call this once.
* TODO: reclaim old stuff if called again.
*/
static void
ng_init_gcs (void)
{
Window win = XtWindow(toplevel_w);
Display *dsp = XtD;
/* gc for pixmap copying and wide lines */
ng_gc = XCreateGC (dsp, win, 0L, NULL);
/* prepare for strings */
get_views_font (dsp, &ng_vfs);
get_xmlabel_font (dt_w, &ng_lfs);
/* build gray ramp for night fade */
ncolors = gray_ramp (dsp, xe_cm, &ngcolors);
/* color for solid, when/if enabled */
(void) get_color_resource (ngshell_w, "NaaGOneColor", &ngsolid_p);
}
/* find x positions of line for given rise/set circumstances.
* we position across ng_w based on local time with 0 in the center.
* N.B. this is just the geometry, we ignore rp->rs_flags
*/
static void
rs_x (np, rp, xr, xs)
Now *np;
RiseSet *rp;
int *xr, *xs;
{
double t;
t = fmod (mjd_hr(rp->rs_risetm)-tz+36.0, 24.0)/24.0;
*xr = (int)floor(ng_w*t+0.5);
t = fmod (mjd_hr(rp->rs_settm)-tz+36.0, 24.0)/24.0;
*xs = (int)floor(ng_w*t+0.5);
}
/* find x positions of line for given rise/set circumstances.
* we position across ng_w based on local time where midnight is at midx.
* N.B. do not use this for EARTHSAT, use rs_es().
*/
static int
rs_xrs (np, op, xr, xs)
Now *np;
Obj *op;
int *xr, *xs;
{
RiseSet rs;
int nowright;
int badrise, badset;
/* find x's */
if (op->o_type == UNDEFOBJ)
return (-1);
dm_riset (np, op, &rs);
if (rs.rs_flags & (RS_RISERR|RS_SETERR|RS_NEVERUP))
return (-1);
rs_x (np, &rs, xr, xs);
/* if event occurs on opposite side of midnight as now or does not
* occur at all today, redo for opposite day
*/
nowright = (nowx > midx);
badrise = (rs.rs_flags & RS_NORISE) || (*xr > midx) != nowright;
badset = (rs.rs_flags & RS_NOSET) || (*xs > midx) != nowright;
if (badrise || badset) {
Now daynow;
RiseSet dayrs;
int dayxr, dayxs;
memcpy ((void*)&daynow, (void*)np, sizeof(Now));
daynow.n_mjd += nowright ? -1 : 1;
dm_riset (&daynow, op, &dayrs);
rs_x (&daynow, &dayrs, &dayxr, &dayxs);
if (rs.rs_flags & (RS_RISERR|RS_SETERR|RS_NEVERUP))
return (-1);
if (badrise) {
*xr = dayxr;
rs.rs_flags &= ~RS_NORISE; /* definitely known now */
}
if (badset) {
*xs = dayxs;
rs.rs_flags &= ~RS_NOSET; /* definitely known now */
}
}
/* catch a few odd cases */
if (rs.rs_flags & (RS_CIRCUMPOLAR|RS_NORISE))
*xr = 0; /* already up */
if (rs.rs_flags & (RS_CIRCUMPOLAR|RS_NOSET))
*xs = ng_w; /* still up */
return (0);
}
/* plot all visible periods for EARTHSAT op.
* set xrp to left-most rise, xsp to right-most set.
*/
static int
rs_es (np, op, y, xrp, xsp)
Now *np;
Obj *op;
int y;
int *xrp, *xsp;
{
Display *dsp = XtD;
RiseSet rs;
Now daynow;
double emjd;
int xr, xs;
int n;
/* start at beginning of window and go for 1 day */
memcpy (&daynow, np, sizeof(daynow));
daynow.n_mjd = mjd_day(mjd - tz/24.0) + tz/24.0 + 0.5;
if (nowx > midx)
daynow.n_mjd -= 1;
*xrp = 2*midx;
*xsp = 0;
n = 0;
for (emjd = daynow.n_mjd + 1; daynow.n_mjd < emjd;
daynow.n_mjd = rs.rs_settm+60./SPD) {
dm_riset (&daynow, op, &rs);
if (rs.rs_flags&(RS_ERROR|RS_RISERR|RS_SETERR|RS_NEVERUP|RS_NORISE))
break;
rs_x (&daynow, &rs, &xr, &xs);
if (rs.rs_risetm > emjd)
break; /* off right end */
if (rs.rs_flags & RS_NOSET) {
xs = 2*midx; /* up through end */
rs.rs_settm = emjd;
}
if (rs.rs_settm < rs.rs_risetm)
continue; /* wrong dir to use */
if (rs.rs_settm > emjd)
xs = 2*midx; /* sets after end */
if (xs < xr+2)
xs = xr+2; /* min seeable */
XPSDrawLine (dsp, ng_pm, ng_gc, xr, y, xs, y);
n++;
if (xr < *xrp)
*xrp = xr;
if (xs < *xsp)
*xsp = xs;
}
return (n ? 0 : -1);
}
/* draw the entire scene in ng_pm, which is known to be ng_w x ng_h.
* N.B. this just fills the pixmap; call ng_refresh() to copy to the screen.
*/
static void
ng_drawpm (void)
{
static char utclabel[] = "UTC";
Now *np = mm_get_now();
Display *dsp = XtD;
char buf[32], buf2[32];
int risex, setx;
int dawnx, duskx;
double dawn, dusk;
int nlfavs;
Obj **lfavs;
int hw, n;
int status;
Obj *op;
RiseSet rs;
int mincol, maxcol, ncols;
int dir, asc, des;
XCharStruct overall;
int fw, fh;
int lmarg;
int x1, x2;
int i;
int x, y;
/* get size of a typical string in the label font */
XTextExtents (ng_lfs, "5", 1, &dir, &asc, &des, &overall);
fw = overall.width;
fh = 2*(overall.ascent + overall.descent); /* room for gap */
/* find left margin for TZ labels */
x = strlen(tznm) + 1; /* allow hour label moving left to be centered*/
y = strlen(utclabel) + 1; /* " */
lmarg = fw * (x > y ? x : y);
/* find graph height sans room for scale and labeling at bottom.
* N.B. this is copied in ng_ano (void)
*/
skyh = ng_h - 4*fh;
/* black-to-white is too harsh, use grays */
mincol = ncolors/5; /* dark */
maxcol = 4*ncolors/5; /* bright */
ncols = maxcol-mincol; /* rails, not posts */
/* find x of local midnight and now */
rs.rs_risetm = tz/24.+.5; /* local midnight as an mjd */
rs.rs_settm = mjd; /* now */
rs_x (np, &rs, &midx, &nowx);
/* find x of twilight and sunrise/set */
op = db_basic (SUN);
twilight_cir (np, dip, &dawn, &dusk, &status);
/* local midnight close enough if diurnal cycle lands beyond today */
rs.rs_risetm = (status&RS_NORISE) ? tz/24+.5 : dawn;
rs.rs_settm = (status&RS_NOSET) ? tz/24+.5 : dusk;
rs.rs_flags = status & ~(RS_NORISE|RS_NOSET);
if (rs.rs_flags) {
dm_riset (np, op, &rs);
if (rs.rs_flags & RS_CIRCUMPOLAR) {
risex = dawnx = 0;
setx = duskx = ng_w-1;
} else if (rs.rs_flags) {
setx = duskx = 0;
risex = dawnx = ng_w-1;
} else {
rs_x (np, &rs, &risex, &setx);
mincol += (maxcol-mincol)/4; /* no night.. not so dark */
ncols = maxcol-mincol;
dawnx = duskx = (risex+setx)/2;
if (setx > risex) {
dawnx += ng_w/2;
duskx += ng_w/2;
}
}
} else {
rs_x (np, &rs, &dawnx, &duskx);
dm_riset (np, op, &rs);
if (rs.rs_flags) {
maxcol -= (maxcol-mincol)/4; /* no day.. not so bright */
ncols = maxcol-mincol;
risex = setx = (duskx+dawnx)/2;
if (dawnx > duskx) {
risex += ng_w/2;
setx += ng_w/2;
}
} else
rs_x (np, &rs, &risex, &setx);
}
/* modulo window size */
dawnx %= ng_w;
risex %= ng_w;
setx %= ng_w;
duskx %= ng_w;
/* beware sun dip set higher than sun rise/set value */
if (dawnx > risex)
dawnx = risex;
if (duskx < setx)
duskx = setx;
/* fill block at bottom for annotations -- screen only */
XSetForeground (dsp, ng_gc, BlackPixel (dsp, DefaultScreen(dsp)));
XFillRectangle (dsp, ng_pm, ng_gc, 0, skyh, ng_w, ng_h-skyh);
/* draw night and day "sky".
* screen gets rectangles and shaded bands,
* paper just gets labeled lines at dawn and dusk.
*/
XSetForeground (dsp, ng_gc, ngcolors[mincol]);
XSetLineAttributes (dsp, ng_gc, 0, LineSolid, CapButt, JoinMiter);
if (XPSDrawing()) {
XSetFont (dsp, ng_gc, ng_lfs->fid);
XPSDrawString (dsp, ng_pm, ng_gc, dawnx-5*fw, 20, "Dawn", 4);
XPSDrawString (dsp, ng_pm, ng_gc, duskx+fw, 20, "Dusk", 4);
XPSDrawLine (dsp, ng_pm, ng_gc, dawnx, 0, dawnx, skyh);
XPSDrawLine (dsp, ng_pm, ng_gc, duskx, 0, duskx, skyh);
}
XSetForeground (dsp, ng_gc, ngcolors[maxcol]);
if (setx > risex) {
XFillRectangle (dsp, ng_pm, ng_gc, risex, 0, setx-risex, skyh);
} else {
XFillRectangle (dsp, ng_pm, ng_gc, risex, 0, ng_w-risex, skyh);
XFillRectangle (dsp, ng_pm, ng_gc, 0, 0, setx, skyh);
}
XSetForeground (dsp, ng_gc, ngcolors[mincol]);
if (duskx > dawnx) {
XFillRectangle (dsp, ng_pm, ng_gc, duskx, 0, ng_w-duskx, skyh);
XFillRectangle (dsp, ng_pm, ng_gc, 0, 0, dawnx, skyh);
} else {
XFillRectangle (dsp, ng_pm, ng_gc, duskx, 0, dawnx-duskx, skyh);
}
/* thin bands to show twilights -- beware of wrap */
if (risex < dawnx)
risex += ng_w;
for (x = dawnx; x < risex; x++) {
Pixel p = ngcolors[mincol+ncols*(x-dawnx)/(risex-dawnx)];
XSetForeground (dsp, ng_gc, p);
XDrawLine (dsp, ng_pm, ng_gc, x%ng_w, 0, x%ng_w, skyh-1);
}
if (setx > duskx)
duskx += ng_w;
for (x = setx; x < duskx; x++) {
Pixel p = ngcolors[mincol+ncols*(duskx-x)/(duskx-setx)];
XSetForeground (dsp, ng_gc, p);
XDrawLine (dsp, ng_pm, ng_gc, x%ng_w, 0, x%ng_w, skyh-1);
}
/* overlay thin vertical line at current time */
XSetForeground (dsp, ng_gc, WhitePixel (dsp, DefaultScreen(dsp)));
XPSDrawLine (dsp, ng_pm, ng_gc, nowx, 0, nowx, skyh+fh);
/* overlay the names and thick bars */
nlfavs = fav_get_loaded (&lfavs);
XSetLineAttributes (dsp, ng_gc, UPLT, LineSolid, CapButt, JoinMiter);
XSetFont (dsp, ng_gc, ng_vfs->fid);
for (i = 0; i < nlfavs; i++) {
char *name;
int esat;
int y;
/* get rise and set x values, or skip if undef or never up */
op = lfavs[i];
db_update (op);
esat = op->o_type == EARTHSAT;
if (!esat && rs_xrs (np, op, &risex, &setx) < 0)
continue;
/* set the desired color */
if (XmToggleButtonGetState (ngsolid_w)) {
XSetForeground (dsp, ng_gc, ngsolid_p);
} else {
unsigned long gcm;
XGCValues gcv;
GC gc;
obj_pickgc (op, ngda_w, &gc);
gcm = GCForeground;
XGetGCValues (dsp, gc, gcm, &gcv);
XSetForeground (dsp, ng_gc, gcv.foreground);
}
/* draw line .. beware of wrap */
y = (i+1)*skyh/nlfavs-3*UPLT/2;
if (esat) {
if (rs_es (np, op, y, &risex, &setx) < 0)
continue;
} else if (risex < setx) {
XPSDrawLine (dsp, ng_pm, ng_gc, risex, y, setx, y);
} else {
XPSDrawLine (dsp, ng_pm, ng_gc, 0, y, setx, y);
XPSDrawLine (dsp, ng_pm, ng_gc, risex, y, ng_w, y);
}
/* name a little above the line, avoid far right */
y -= 3*UPLT/2;
name = op->o_name;
if (risex > setx && ng_w-risex < 50)
XPSDrawString (dsp, ng_pm, ng_gc, 10, y, name, strlen(name));
else
XPSDrawString (dsp, ng_pm, ng_gc, risex, y, name, strlen(name));
}
/* hours and tick marks */
XSetForeground (dsp, ng_gc, WhitePixel (dsp, DefaultScreen(dsp)));
XSetFont (dsp, ng_gc, ng_lfs->fid);
for (i = 0; i < 24; i++) {
int ieven = !(i%2);
rs.rs_risetm = (i+tz)/24.+.5; /* local as an mjd */
rs.rs_settm = i/24.+.5; /* utc as an mjd */
rs_x (np, &rs, &x1, &x2);
if (x1 > TMLT && x1 < ng_w-TMLT) {
int boty, thick;
y = skyh;
if (ieven) {
thick = TMLT;
boty = skyh + 4*fh/6;
} else {
thick = 0;
boty = skyh + 3*fh/6;
}
XSetLineAttributes (dsp, ng_gc, thick, LineSolid, CapButt,
JoinMiter);
XPSDrawLine (dsp, ng_pm, ng_gc, x1, y, x1, boty);
}
n = sprintf (buf, "%d", i);
hw = (fw*n)/2;
if (ieven && x1-hw > lmarg && x1+hw < ng_w) {
y = skyh + 2*fh-2;
XPSDrawString (dsp, ng_pm, ng_gc, x1-hw, y, buf, n);
}
if (ieven && x2-hw > lmarg && x2+hw < ng_w) {
y = skyh + 3*fh-2;
XPSDrawString (dsp, ng_pm, ng_gc, x2-hw, y, buf, n);
}
}
/* line to make it an "axis" */
XSetLineAttributes (dsp, ng_gc, TMLT, LineSolid, CapButt, JoinMiter);
y = skyh;
XPSDrawLine (dsp, ng_pm, ng_gc, 0, y, ng_w, y);
/* zones at left */
y = skyh + 2*fh-2;
n = strlen (tznm);
XPSDrawString (dsp, ng_pm, ng_gc, 2, y, tznm, n);
y = skyh + 3*fh-2;
n = strlen (utclabel);
XPSDrawString (dsp, ng_pm, ng_gc, 2, y, utclabel, n);
/* local dates -- today and the other */
XSetForeground (dsp, ng_gc, WhitePixel (dsp, DefaultScreen(dsp)));
y = skyh + 4*fh-2;
if (nowx < midx) {
fs_date (buf, pref_get(PREF_DATE_FORMAT), mjd_day(mjd-tz/24.));
fs_date (buf2, pref_get(PREF_DATE_FORMAT), mjd_day(mjd-tz/24.+1));
} else {
fs_date (buf, pref_get(PREF_DATE_FORMAT), mjd_day(mjd-tz/24.-1));
fs_date (buf2, pref_get(PREF_DATE_FORMAT), mjd_day(mjd-tz/24.));
}
n = strlen (buf);
XPSDrawString (dsp, ng_pm, ng_gc, (midx-fw*n)/2, y, buf, n);
n = strlen (buf2);
XPSDrawString (dsp, ng_pm, ng_gc, (ng_w+midx-fw*n)/2, y, buf2, n);
/* draw any annotation */
ano_draw (ngda_w, ng_pm, ng_ano, 0);
}
/* convert map fractions to/from X Windows coords depending on w2x.
* return whether visible
*/
static int
ng_ano (double *fracx, double *fracy, int *xp, int *yp, int w2x, int arg)
{
int dir, asc, des;
XCharStruct overall;
int fh, skyh;
/* get size of a typical string in the label font */
XTextExtents (ng_lfs, "5", 1, &dir, &asc, &des, &overall);
fh = 2*(overall.ascent + overall.descent); /* room for gap */
/* find graph height sans room for scale and labeling at bottom */
skyh = ng_h - 4*fh;
if (w2x) {
*xp = (int)floor(*fracx*ng_w);
*yp = (int)floor(*fracy*skyh);
} else {
*fracx = (double)*xp/ng_w;
*fracy = (double)*yp/skyh;
}
return (1);
}
Reference in New Issue View Git Blame Copy Permalink