497 lines
13 KiB
C
497 lines
13 KiB
C
|
#include "gui.h"
|
||
|
|
|
||
|
|
|
||
|
|
/************************************************************************
|
||
|
|
* draw.c *
|
||
|
|
* *
|
||
|
|
* This module contains the drawing functions. *
|
||
|
|
* *
|
||
|
|
* CONTENTS: *
|
||
|
|
* draw_map() set the map attributes and draw the map. *
|
||
|
|
* draw_stnmark() draw station marker at station location. *
|
||
|
|
* draw_value() plot values at station location . *
|
||
|
|
* draw_cntr() plot contouring lines. *
|
||
|
|
* draw_wbox() draw watch box. *
|
||
|
|
***********************************************************************/
|
||
|
|
|
||
|
|
/*=====================================================================*/
|
||
|
|
|
||
|
|
void draw_map ( int num, struct maptype_list *map_info, int zoomflg,
|
||
|
|
mapbnd_t *mapb, int *iret )
|
||
|
|
/************************************************************************
|
||
|
|
* draw_map *
|
||
|
|
* *
|
||
|
|
* This routine will set the map attributes and draw the map. *
|
||
|
|
* *
|
||
|
|
* draw_map ( num, map_info, zoomflg, mapb, iret ) *
|
||
|
|
* *
|
||
|
|
* Input parameters: *
|
||
|
|
* num int Index to map info array *
|
||
|
|
* *map_info struct maptype_list Map projection info *
|
||
|
|
* zoomflg int Zoom box flag *
|
||
|
|
* *
|
||
|
|
* Input/Output parameters: *
|
||
|
|
* *mapb mapbnd_t Map boundary coordinates *
|
||
|
|
* *
|
||
|
|
* Output parameters: *
|
||
|
|
* *iret int Return code *
|
||
|
|
** *
|
||
|
|
* Log: *
|
||
|
|
* S. Jacobs/NMC 7/94 *
|
||
|
|
* C. Lin/EAI 8/95 add compute xin, yin from garea *
|
||
|
|
* C. Lin/EAI 8/95 modified from nwx2.1 *
|
||
|
|
* C. Lin/EAI 2/97 use gqmprj *
|
||
|
|
* S. Jacobs/NCEP 11/97 Changed sizeof(savprj) to sizeof(prjtmp)*
|
||
|
|
* I. Durham/GSC 5/98 changed call for underscore *
|
||
|
|
* T. Lee/GSC 1/01 checked CED/MER projection *
|
||
|
|
***********************************************************************/
|
||
|
|
{
|
||
|
|
char map[25];
|
||
|
|
char proj[25];
|
||
|
|
char garea[128];
|
||
|
|
char latlon[25];
|
||
|
|
char panel[13];
|
||
|
|
char text[13];
|
||
|
|
char shrttl[9];
|
||
|
|
char title[73];
|
||
|
|
int ititl;
|
||
|
|
int linttl;
|
||
|
|
int clear;
|
||
|
|
|
||
|
|
char gflag;
|
||
|
|
float angle[3];
|
||
|
|
int len;
|
||
|
|
char prjtmp[40]="\0";
|
||
|
|
|
||
|
|
static char savprj[128]; /* save the previous projection info */
|
||
|
|
/*---------------------------------------------------------------------*/
|
||
|
|
|
||
|
|
*iret = G_NORMAL;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Set the map attributes.
|
||
|
|
*/
|
||
|
|
strcpy( map, "31" );
|
||
|
|
strcpy( latlon, "6/20/2" );
|
||
|
|
strcpy( panel, "0" );
|
||
|
|
strcpy( text, "1/22//hw" );
|
||
|
|
strcpy( shrttl, " " );
|
||
|
|
strcpy( title, " " );
|
||
|
|
ititl = 1;
|
||
|
|
linttl = -2;
|
||
|
|
clear = G_TRUE;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Check for a menu selection or a zoom box for garea.
|
||
|
|
*/
|
||
|
|
gflag = 0;
|
||
|
|
if ( zoomflg ) {
|
||
|
|
sprintf( garea, "%f;%f;%f;%f",
|
||
|
|
mapb->x[0], mapb->y[0], mapb->x[1], mapb->y[1] );
|
||
|
|
strcpy( proj, savprj );
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
|
||
|
|
strcpy( garea, map_info[num].garea );
|
||
|
|
strcpy( proj, map_info[num].proj );
|
||
|
|
|
||
|
|
gflag = 1;
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Draw the map.
|
||
|
|
*/
|
||
|
|
map_draw( map, garea, proj, latlon, panel, text, title, &ititl,
|
||
|
|
&linttl, shrttl, &clear, iret,
|
||
|
|
strlen(map), strlen(garea), strlen(proj),
|
||
|
|
strlen(latlon), strlen(panel), strlen(text),
|
||
|
|
strlen(title), strlen(shrttl) );
|
||
|
|
|
||
|
|
if ( gflag ) {
|
||
|
|
|
||
|
|
gqmprj( prjtmp, &angle[0], &angle[1], &angle[2],
|
||
|
|
&mapb->x[0], &mapb->y[0],
|
||
|
|
&mapb->x[1], &mapb->y[1],
|
||
|
|
iret, sizeof(prjtmp));
|
||
|
|
/*
|
||
|
|
* remove trailing blank
|
||
|
|
*/
|
||
|
|
prjtmp[39] = '\0';
|
||
|
|
cst_lstr(prjtmp, &len, iret);
|
||
|
|
prjtmp[len] = '\0';
|
||
|
|
|
||
|
|
if ( strcmp ( prjtmp, "CED" ) == 0 ||
|
||
|
|
strcmp ( prjtmp, "MER" ) == 0 ||
|
||
|
|
strcmp ( prjtmp, "MCD" ) == 0 ) {
|
||
|
|
sprintf(savprj, "%s", prjtmp );
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
sprintf(savprj, "%s/%5.2f;%5.2f;%5.2f", prjtmp, angle[0],
|
||
|
|
angle[1], angle[2]);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/*=====================================================================*/
|
||
|
|
|
||
|
|
void draw_stnmark ( int numpts, float *slat, float *slon, int jcolr,
|
||
|
|
int imrk, int *iret )
|
||
|
|
/************************************************************************
|
||
|
|
* draw_stnmark *
|
||
|
|
* *
|
||
|
|
* This routine will set the marker attributes and plot the markers *
|
||
|
|
* at the station locations. *
|
||
|
|
* *
|
||
|
|
* draw_stnmark ( numpts, slat, slon, jcolr, imrk, iret ) *
|
||
|
|
* *
|
||
|
|
* Input parameters: *
|
||
|
|
* numpts int Number of stations *
|
||
|
|
* *slat float Array of latitudes *
|
||
|
|
* *slon float Array of longitudes *
|
||
|
|
* jcolr int Requested marker color *
|
||
|
|
* imrk int Requested marker type *
|
||
|
|
* *
|
||
|
|
* Output parameters: *
|
||
|
|
* *iret int Return code *
|
||
|
|
** *
|
||
|
|
* Log: *
|
||
|
|
* S. Jacobs/NMC 7/94 *
|
||
|
|
***********************************************************************/
|
||
|
|
{
|
||
|
|
float sizmrk;
|
||
|
|
int ncolor, mrktyp, mrkwid, pltval, iposn;
|
||
|
|
|
||
|
|
/*---------------------------------------------------------------------*/
|
||
|
|
*iret = G_NORMAL;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Set the marker attributes.
|
||
|
|
*/
|
||
|
|
ncolor = 1;
|
||
|
|
mrktyp = imrk;
|
||
|
|
sizmrk = 1.0F;
|
||
|
|
mrkwid = 2;
|
||
|
|
pltval = G_FALSE;
|
||
|
|
iposn = 0;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Draw the markers.
|
||
|
|
*/
|
||
|
|
map_mark( &numpts, slat, slon, NULL, &ncolor, NULL, &jcolr,
|
||
|
|
&mrktyp, &sizmrk, &mrkwid, &pltval, &iposn, iret );
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/*=====================================================================*/
|
||
|
|
|
||
|
|
void draw_value ( struct mrkv *markdata )
|
||
|
|
/************************************************************************
|
||
|
|
* draw_value *
|
||
|
|
* *
|
||
|
|
* This routine will plot the markers based on the input data. *
|
||
|
|
* *
|
||
|
|
* draw_value ( markdata ) *
|
||
|
|
* *
|
||
|
|
* Input parameters: *
|
||
|
|
* *markdata struct mrkv structure for marker data *
|
||
|
|
* *
|
||
|
|
* Output parameters: *
|
||
|
|
** *
|
||
|
|
* Log: *
|
||
|
|
* C. Lin/EAI 9/95 *
|
||
|
|
***********************************************************************/
|
||
|
|
{
|
||
|
|
int iret;
|
||
|
|
|
||
|
|
map_mark( &(markdata->nstn), markdata->lat, markdata->lon,
|
||
|
|
markdata->dvalues, &(markdata->ncolor),
|
||
|
|
markdata->breaks, markdata->icolrs,
|
||
|
|
&(markdata->marktype), &(markdata->marksize),
|
||
|
|
&(markdata->markwdth), &(markdata->pltflag),
|
||
|
|
&(markdata->iposn),
|
||
|
|
&iret );
|
||
|
|
}
|
||
|
|
|
||
|
|
/*=====================================================================*/
|
||
|
|
|
||
|
|
void draw_cntr ( struct contour *contours )
|
||
|
|
/************************************************************************
|
||
|
|
* draw_cntr *
|
||
|
|
* *
|
||
|
|
* This routine plots the contour lines. *
|
||
|
|
* *
|
||
|
|
* draw_cntr(contours) *
|
||
|
|
* *
|
||
|
|
* Input parameters: *
|
||
|
|
* *contours struct contour struct of contour data *
|
||
|
|
* *
|
||
|
|
* Output parameters: *
|
||
|
|
* *
|
||
|
|
** *
|
||
|
|
* Log: *
|
||
|
|
* L. Williams/EAI 01/95 *
|
||
|
|
* C. Lin/EAI 09/95 *
|
||
|
|
* S. Jacobs/NCE 8/98 Changed gtext to gtextc *
|
||
|
|
* A. Hardy/GSC 11/00 renamed coordinate system declaration *
|
||
|
|
***********************************************************************/
|
||
|
|
{
|
||
|
|
int ltyhw, ltype, lwidth;
|
||
|
|
int offset, j;
|
||
|
|
float rotat;
|
||
|
|
int iret;
|
||
|
|
|
||
|
|
/*---------------------------------------------------------------------*/
|
||
|
|
|
||
|
|
if ( contours->nc == 0 )
|
||
|
|
return;
|
||
|
|
|
||
|
|
ltyhw = 0;
|
||
|
|
ltype = 1;
|
||
|
|
lwidth = 1;
|
||
|
|
rotat = 0.0F;
|
||
|
|
offset = 0;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* set the line type, width... attributes
|
||
|
|
*/
|
||
|
|
gsline(<ype, <yhw, &lwidth, <yhw, &iret);
|
||
|
|
|
||
|
|
for ( j=0; j < contours->nc; ++j ) {
|
||
|
|
|
||
|
|
/*
|
||
|
|
* set line color
|
||
|
|
*/
|
||
|
|
gscolr(&(contours->line[j].color), &iret);
|
||
|
|
|
||
|
|
/*
|
||
|
|
* draw the line
|
||
|
|
*/
|
||
|
|
gline(sys_M, &(contours->line[j].npt),
|
||
|
|
contours->line[j].lat,
|
||
|
|
contours->line[j].lon,
|
||
|
|
&iret, strlen(sys_M));
|
||
|
|
|
||
|
|
/*
|
||
|
|
* plot contour label
|
||
|
|
*/
|
||
|
|
gtextc(sys_M, &(contours->line[j].lat[0]),
|
||
|
|
&(contours->line[j].lon[0]),
|
||
|
|
contours->line[j].label,
|
||
|
|
&rotat, &offset, &offset, &iret,
|
||
|
|
strlen(sys_M), strlen(contours->line[j].label));
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* flush the buffer
|
||
|
|
*/
|
||
|
|
geplot(&iret );
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/*=====================================================================*/
|
||
|
|
|
||
|
|
void draw_wbox ( struct watchbox *wtchbox, int called_from )
|
||
|
|
/************************************************************************
|
||
|
|
* draw_wbox *
|
||
|
|
* *
|
||
|
|
* This routine draws a watch box. *
|
||
|
|
* *
|
||
|
|
* draw_wbox(wtchbox, called_from) *
|
||
|
|
* *
|
||
|
|
* Input parameters: *
|
||
|
|
* *wtchbox struct watchbox struct of watchbox data *
|
||
|
|
* called_from int Indicate from where it is called *
|
||
|
|
* 1 - from user click *
|
||
|
|
* 2 - from auto-update *
|
||
|
|
* *
|
||
|
|
* Output parameters: *
|
||
|
|
* *
|
||
|
|
** *
|
||
|
|
* Log: *
|
||
|
|
* D. Kidwell/NCEP 8/98 Adapted from draw_cntr *
|
||
|
|
* S. Jacobs/NCEP 4/99 Changed cfdate to css_date *
|
||
|
|
* D. Kidwell/NCEP 4/99 Fixed for Y2K; added gg_wlbl call; fixed*
|
||
|
|
* watch cancel check; gtextc -> gtext *
|
||
|
|
* A. Hardy/GSC 11/00 renamed coordinate system declaration *
|
||
|
|
* T. Piper/SAIC 6/02 Added 'No watches' message *
|
||
|
|
* A. Hardy/NCEP 6/03 Added tmzn to CSS_DATE *
|
||
|
|
* R. Tian/SAIC 11/03 Added called_from arg *
|
||
|
|
* B. Yin/SAIC 03/04 changed css_date calling sequences *
|
||
|
|
***********************************************************************/
|
||
|
|
{
|
||
|
|
|
||
|
|
int ltype, ltyhw, lwidth, lwdhw,
|
||
|
|
ltxfn, ltxhw, ltxwid, lbrdr, lrrotn, ljust;
|
||
|
|
float sztext;
|
||
|
|
|
||
|
|
int jtype, jtyhw, jwidth, jwdhw,
|
||
|
|
jtxfn, jtxhw, jtxwid, jbrdr, jrrotn, jjust;
|
||
|
|
float siztx;
|
||
|
|
|
||
|
|
float rotat, xlat, ylon;
|
||
|
|
int j, k, ixoff, iyoff, iret;
|
||
|
|
char wlabel[50];
|
||
|
|
/* char found; */
|
||
|
|
|
||
|
|
int itarr[5], ietar[5],
|
||
|
|
minute, itype, isec, jday, jcolr, imrk;
|
||
|
|
char endtim[21], endtm2[21], expr[21]="\0", exptim[21],
|
||
|
|
vald[21]="\0", valtim[21], tmzn[4];
|
||
|
|
|
||
|
|
/*---------------------------------------------------------------------*/
|
||
|
|
|
||
|
|
if ( wtchbox->nb == 0 ) return;
|
||
|
|
|
||
|
|
/* found = 0; NOT used */
|
||
|
|
ltype = 1;
|
||
|
|
ltyhw = 0;
|
||
|
|
lwidth = 3;
|
||
|
|
lwdhw = 0;
|
||
|
|
|
||
|
|
ltxfn = 21;
|
||
|
|
ltxhw = 2;
|
||
|
|
ltxwid = 1;
|
||
|
|
lbrdr = 111;
|
||
|
|
lrrotn = 1;
|
||
|
|
ljust = 1;
|
||
|
|
sztext = 1.0F;
|
||
|
|
|
||
|
|
rotat = 0.0F;
|
||
|
|
ixoff = 0;
|
||
|
|
iyoff = -4;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Get the current time.
|
||
|
|
*/
|
||
|
|
itype = 1;
|
||
|
|
css_date ( &itype, &itarr[0], &itarr[1], &itarr[2],
|
||
|
|
&itarr[3], &itarr[4], &isec, &jday, tmzn, &iret );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Add 15 minutes to the current time to account for
|
||
|
|
* differences in system clocks, and use 4-digit year.
|
||
|
|
*/
|
||
|
|
minute = 15;
|
||
|
|
ti_addm ( itarr, &minute, ietar, &iret );
|
||
|
|
ti_itoc ( ietar, endtm2, &iret, sizeof(endtm2) );
|
||
|
|
endtm2[20] = '\0';
|
||
|
|
ti_dtm4 ( endtm2, endtim, &iret, sizeof(endtm2),
|
||
|
|
sizeof(endtim) );
|
||
|
|
endtim[20] = '\0';
|
||
|
|
|
||
|
|
/*
|
||
|
|
* set the line type, width... attributes
|
||
|
|
*/
|
||
|
|
gqline ( &jtype, &jtyhw, &jwidth, &jwdhw, &iret );
|
||
|
|
gsline ( <ype, <yhw, &lwidth, &lwdhw, &iret );
|
||
|
|
|
||
|
|
gqtext ( &jtxfn, &jtxhw, &siztx, &jtxwid,
|
||
|
|
&jbrdr, &jrrotn, &jjust, &iret );
|
||
|
|
gstext ( <xfn, <xhw, &sztext, <xwid,
|
||
|
|
&lbrdr, &lrrotn, &ljust, &iret );
|
||
|
|
|
||
|
|
k = 0;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Loop over all watches.
|
||
|
|
*/
|
||
|
|
for ( j = 0; j < wtchbox->nb; j++ ) {
|
||
|
|
|
||
|
|
xlat = -9999.0F;
|
||
|
|
ylon = -9999.0F;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Check for current watches. Use 4-digit year for
|
||
|
|
* comparison.
|
||
|
|
*/
|
||
|
|
strcpy ( expr, wtchbox->winfo[j].expire );
|
||
|
|
expr[20] = '\0';
|
||
|
|
ti_dtm4 ( expr, exptim, &iret,
|
||
|
|
sizeof(expr), sizeof(exptim) );
|
||
|
|
exptim[20] = '\0';
|
||
|
|
strcpy ( vald, wtchbox->winfo[j].valid );
|
||
|
|
vald[20] = '\0';
|
||
|
|
ti_dtm4 ( vald, valtim, &iret,
|
||
|
|
sizeof(vald), sizeof(valtim) );
|
||
|
|
valtim[20] = '\0';
|
||
|
|
if ( ( ( strcmp ( endtim, exptim ) <= 0 ) &&
|
||
|
|
( strcmp ( endtim, valtim ) >= 0 ) ) ) {
|
||
|
|
/* found = 1; NOT used */
|
||
|
|
/*
|
||
|
|
* Set line color.
|
||
|
|
*/
|
||
|
|
gscolr ( &(wtchbox->winfo[j].color), &iret );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Draw the box.
|
||
|
|
*/
|
||
|
|
gline ( sys_M, &(wtchbox->winfo[j].npt),
|
||
|
|
wtchbox->winfo[j].lat,
|
||
|
|
wtchbox->winfo[j].lon,
|
||
|
|
&iret, strlen(sys_M) );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Find the lower left corner for plotting the label.
|
||
|
|
*/
|
||
|
|
gg_wlbl ( &(wtchbox->winfo[j].npt),
|
||
|
|
wtchbox->winfo[j].lat,
|
||
|
|
wtchbox->winfo[j].lon,
|
||
|
|
&xlat, &ylon, &iret );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Plot watch number, start and stop times
|
||
|
|
*/
|
||
|
|
wlabel[0] = '\0';
|
||
|
|
|
||
|
|
strncpy ( wlabel, wtchbox->winfo[j].wtchnum, 4 );
|
||
|
|
wlabel[4] = '\n';
|
||
|
|
wlabel[5] = '\0';
|
||
|
|
|
||
|
|
strncat ( wlabel, wtchbox->winfo[j].valid, 11 );
|
||
|
|
wlabel[16] = '\n';
|
||
|
|
wlabel[17] = '\0';
|
||
|
|
|
||
|
|
strncat ( wlabel, wtchbox->winfo[j].expire, 11 );
|
||
|
|
wlabel[28] = '\0';
|
||
|
|
|
||
|
|
gtext ( sys_M, &xlat, &ylon, wlabel, &rotat,
|
||
|
|
&ixoff, &iyoff, &iret,
|
||
|
|
strlen(sys_M), strlen(wlabel) );
|
||
|
|
|
||
|
|
jcolr = ALL_COL;
|
||
|
|
imrk = ALL_MRK;
|
||
|
|
draw_stnmark ( 1, &xlat, &ylon, jcolr, imrk, &iret );
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
stnList.lat[k] = xlat;
|
||
|
|
stnList.lon[k] = ylon;
|
||
|
|
k++;
|
||
|
|
|
||
|
|
}
|
||
|
|
/*
|
||
|
|
if ( found == 0 && called_from == 1 ) {
|
||
|
|
XmTextSetString( textW, "No current watches found.");
|
||
|
|
}
|
||
|
|
*/
|
||
|
|
stnList.nstn = k;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Reset the line and text attributes, and flush the graphics.
|
||
|
|
*/
|
||
|
|
gsline ( &jtype, &jtyhw, &jwidth, &jwdhw, &iret );
|
||
|
|
|
||
|
|
gstext ( &jtxfn, &jtxhw, &siztx, &jtxwid,
|
||
|
|
&jbrdr, &jrrotn, &jjust, &iret );
|
||
|
|
|
||
|
|
geplot ( &iret );
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/*=====================================================================*/
|