home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / pd8.lzh / SRC / mainmenu.c < prev    next >
Text File  |  1990-04-13  |  7KB  |  278 lines
  1. /* printing routines for the main (upper) screen.
  2.  */
  3.  
  4. #include <stdio.h>
  5. #include <math.h>
  6. #include "astro.h"
  7. #include "circum.h"
  8. #include "screen.h"
  9.  
  10. /* #define PC_GRAPHICS */
  11. #ifdef PC_GRAPHICS
  12. #define    JOINT    207
  13. #define    VERT    179
  14. #define    HORIZ    205
  15. #else
  16. #define    JOINT    '-'
  17. #define    VERT    '|'
  18. #define    HORIZ    '-'
  19. #endif
  20.  
  21. mm_borders()
  22. {
  23.     char line[NC+1], *lp;
  24.     register i;
  25.  
  26.     lp = line;
  27.     for (i = 0; i < NC; i++)
  28.         *lp++ = HORIZ;
  29.     *lp = '\0';
  30.     f_string (R_PLANTAB-1, 1, line);
  31.     for (i = R_TOP; i < R_PLANTAB-1; i++)
  32.         f_char (i, COL2-2, VERT);
  33.     f_char (R_PLANTAB-1, COL2-2, JOINT);
  34.     for (i = R_TOP; i < R_PLANTAB-1; i++)
  35.         f_char (i, COL3-2, VERT);
  36.     f_char (R_PLANTAB-1, COL3-2, JOINT);
  37.     for (i = R_LST; i < R_PLANTAB-1; i++)
  38.         f_char (i, COL4-2, VERT);
  39.     f_char (R_PLANTAB-1, COL4-2, JOINT);
  40. }
  41.  
  42. /* print the permanent labels, on the top menu and the planet names
  43.  * in the bottom section.
  44.  */
  45. mm_labels()
  46. {
  47.     f_string (R_TZN,    C_TZN,        "LT");
  48.     f_string (R_UT,        C_UT,        "UTC");
  49.     f_string (R_JD,        C_JD,        "JulianDate");
  50.     f_string (R_WATCH,    C_WATCH,    "Watch");
  51.     f_string (R_SRCH,    C_SRCH,        "Search");
  52.     f_string (R_PLOT,    C_PLOT,        "Plot");
  53.     f_string (R_ALTM,    C_ALTM,        "Menu");
  54.  
  55.     f_string (R_LST,    C_LST,        "LST");
  56.     f_string (R_DAWN,    C_DAWN,        "Dawn");
  57.     f_string (R_DUSK,    C_DUSK,        "Dusk");
  58.     f_string (R_LON,    C_LON,        "NiteLn");
  59.     f_string (R_NSTEP,    C_NSTEP,    "NStep");
  60.     f_string (R_STPSZ,    C_STPSZ,    "StpSz");
  61.  
  62.     f_string (R_LAT,    C_LAT,        "Lat");
  63.     f_string (R_LONG,    C_LONG,        "Long");
  64.     f_string (R_HEIGHT,    C_HEIGHT,    "Elev");
  65.     f_string (R_TEMP,    C_TEMP,        "Temp");
  66.     f_string (R_PRES,    C_PRES,        "AtmPr");
  67.     f_string (R_TZONE,    C_TZONE,    "TZ");
  68.     f_string (R_EPOCH,    C_EPOCH,    "Epoch");
  69.  
  70.     f_string (R_PLANTAB,    C_OBJ,    "Ob");
  71.     f_string (R_SUN,    C_OBJ,    "Su");
  72.     f_string (R_MOON,    C_OBJ,    "Mo");
  73.     f_string (R_MERCURY,    C_OBJ,    "Me");
  74.     f_string (R_VENUS,    C_OBJ,    "Ve");
  75.     f_string (R_MARS,    C_OBJ,    "Ma");
  76.     f_string (R_JUPITER,    C_OBJ,    "Ju");
  77.     f_string (R_SATURN,    C_OBJ,    "Sa");
  78.     f_string (R_URANUS,    C_OBJ,    "Ur");
  79.     f_string (R_NEPTUNE,    C_OBJ,    "Ne");
  80.     f_string (R_PLUTO,    C_OBJ,    "Pl");
  81.     f_string (R_OBJX,    C_OBJ,    "X");
  82.     f_string (R_OBJY,    C_OBJ,    "Y");
  83. }
  84.  
  85. /* print all the time/date/where related stuff: the Now structure.
  86.  * print in a nice order, based on the field locations, as much as possible.
  87.  */
  88. mm_now (np, all)
  89. Now *np;
  90. int all;
  91. {
  92.     char buf[32];
  93.     double lmjd = mjd - tz/24.0;
  94.     double jd = mjd + 2415020L;
  95.     double tmp;
  96.  
  97.     sprintf (buf, "%-3.3s", tznm);
  98.     f_string (R_TZN, C_TZN, buf);
  99.     f_time (R_LT, C_LT, mjd_hr(lmjd));
  100.     f_date (R_LD, C_LD, mjd_day(lmjd));
  101.  
  102.     f_time (R_UT, C_UTV, mjd_hr(mjd));
  103.     f_date (R_UD, C_UD, mjd_day(mjd));
  104.  
  105.     sprintf (buf, "%14.5f", jd);
  106.     (void) flog_log (R_JD, C_JDV, jd);
  107.     f_string (R_JD, C_JDV, buf);
  108.  
  109.     now_lst (np, &tmp);
  110.     f_time (R_LST, C_LSTV, tmp);
  111.  
  112.     if (all) {
  113.         f_gangle (R_LAT, C_LATV, lat);
  114.         f_gangle (R_LONG, C_LONGV, -lng);    /* + west */
  115.  
  116.         tmp = height * 2.093e7;    /* want to see ft, not earth radii */
  117.         sprintf (buf, "%5g ft", tmp);
  118.         (void) flog_log (R_HEIGHT, C_HEIGHTV, tmp);
  119.         f_string (R_HEIGHT, C_HEIGHTV, buf);
  120.  
  121.         tmp = 9./5.*temp + 32.0;     /* want to see degrees F, not C */
  122.         (void) flog_log (R_TEMP, C_TEMPV, tmp);
  123.         sprintf (buf, "%6g F", tmp);
  124.         f_string (R_TEMP, C_TEMPV, buf);
  125.  
  126.         tmp = pressure / 33.86;    /* want to see in. Hg, not mBar */
  127.         (void) flog_log (R_PRES, C_PRESV, tmp);
  128.         sprintf (buf, "%5.2f in", tmp);
  129.         f_string (R_PRES, C_PRESV, buf);
  130.  
  131.         f_signtime (R_TZONE, C_TZONEV, tz);
  132.  
  133.         if (epoch == EOD)
  134.         f_string (R_EPOCH, C_EPOCHV, "(OfDate)");
  135.         else {
  136.         mjd_year (epoch, &tmp);
  137.         f_double (R_EPOCH, C_EPOCHV, "%8.1f", tmp);
  138.         }
  139.     }
  140.  
  141.     /* print the calendar for local day, if new month/year.  */
  142.     mm_calendar (np, all > 1);
  143. }
  144.  
  145. /* display dawn/dusk/length-of-night times.
  146.  */
  147. mm_twilight (np, force)
  148. Now *np;
  149. int force;
  150. {
  151.     double dusk, dawn;
  152.     double tmp;
  153.     int status;
  154.  
  155.     if (!twilight_cir (np, &dawn, &dusk, &status) && !force)
  156.         return;
  157.  
  158.     if (status != 0) {
  159.         f_blanks (R_DAWN, C_DAWNV, 5);
  160.         f_blanks (R_DUSK, C_DUSKV, 5);
  161.         f_string (R_LON, C_LONV, "-----");
  162.         return;
  163.     }
  164.  
  165.     f_mtime (R_DAWN, C_DAWNV, dawn);
  166.     f_mtime (R_DUSK, C_DUSKV, dusk);
  167.     tmp = dawn - dusk; range (&tmp, 24.0);
  168.     f_mtime (R_LON, C_LONV, tmp);
  169. }
  170.  
  171. mm_newcir (y)
  172. int y;
  173. {
  174.     static char ncmsg[] = "NEW CIRCUMSTANCES";
  175.     static char nomsg[] = "                 ";
  176.     static int last_y = -1;
  177.  
  178.     if (y != last_y) {
  179.         f_string (R_NEWCIR, C_NEWCIR, y ? ncmsg : nomsg);
  180.         last_y = y;
  181.     }
  182. }
  183.  
  184. static
  185. mm_calendar (np, force)
  186. Now *np;
  187. int force;
  188. {
  189.     static char *mnames[] = {
  190.         "January", "February", "March", "April", "May", "June",
  191.         "July", "August", "September", "October", "November", "December"
  192.     };
  193.     static int last_m, last_y;
  194.     static double last_tz;
  195.     char str[64];
  196.     int m, y;
  197.     double d;
  198.     int f, nd;
  199.     int r;
  200.     double jd0;
  201.  
  202.     /* get local m/d/y. do nothing if still same month and not forced. */
  203.     mjd_cal (mjd_day(mjd-tz/24.0), &m, &d, &y);
  204.     if (m == last_m && y == last_y && tz == last_tz && !force)
  205.         return;
  206.     last_m = m;
  207.     last_y = y;
  208.     last_tz = tz;
  209.  
  210.     /* find day of week of first day of month */
  211.     cal_mjd (m, 1.0, y, &jd0);
  212.     mjd_dow (jd0, &f);
  213.     if (f < 0) {
  214.         /* can't figure it out - too hard before Gregorian */
  215.         int i;
  216.         for (i = 8; --i >= 0; )
  217.         f_string (R_CAL+i, C_CAL, "                    ");
  218.         return;
  219.     }
  220.  
  221.     /* print header */
  222.     f_blanks (R_CAL, C_CAL, 20);
  223.     sprintf (str, "%s %4d", mnames[m-1], y);
  224.     f_string (R_CAL, C_CAL + (20 - (strlen(mnames[m-1]) + 5))/2, str);
  225.     f_string (R_CAL+1, C_CAL, "Su Mo Tu We Th Fr Sa");
  226.  
  227.     /* find number of days in this month */
  228.     mjd_dpm (jd0, &nd);
  229.  
  230.     /* print the calendar */
  231.     for (r = 0; r < 6; r++) {
  232.         char row[7*3+1], *rp = row;
  233.         int c;
  234.         for (c = 0; c < 7; c++) {
  235.         int i = r*7+c;
  236.         if (i < f || i >= f + nd)
  237.             sprintf (rp, "   ");
  238.         else
  239.             sprintf (rp, "%2d ", i-f+1);
  240.         rp += 3;
  241.         }
  242.         row[sizeof(row)-2] = '\0';    /* don't print last blank; causes wrap*/
  243.         f_string (R_CAL+2+r, C_CAL, row);
  244.     }
  245.  
  246.     /* over print the new and full moons for this month.
  247.      * TODO: don't really know which dates to use here (see moonnf())
  248.      *   so try several to be fairly safe. have to go back to 4/29/1988
  249.      *   to find the full moon on 5/1 for example.
  250.      */
  251.     mm_nfmoon (jd0-3, tz, m, f);
  252.     mm_nfmoon (jd0+15, tz, m, f);
  253. }
  254.  
  255. static
  256. mm_nfmoon (jd, tzone, m, f)
  257. double jd, tzone;
  258. int m, f;
  259. {
  260.     static char nm[] = "NM", fm[] = "FM";
  261.     double dm;
  262.     int mm, ym;
  263.     double jdn, jdf;
  264.     int di;
  265.  
  266.     moonnf (jd, &jdn, &jdf);
  267.     mjd_cal (jdn-tzone/24.0, &mm, &dm, &ym);
  268.     if (m == mm) {
  269.         di = dm + f - 1;
  270.         f_string (R_CAL+2+di/7, C_CAL+3*(di%7), nm);
  271.     }
  272.     mjd_cal (jdf-tzone/24.0, &mm, &dm, &ym);
  273.     if (m == mm) {
  274.         di = dm + f - 1;
  275.         f_string (R_CAL+2+di/7, C_CAL+3*(di%7), fm);
  276.     }
  277. }
  278.