void clo_tdirect ( char *name, float lat, float lon, char *stn,
float *dist, float *dir, int *iret )
/************************************************************************
* clo_tdirect *
* *
* This function takes a latitude/longitude point and computes *
* the nearest station (type loctyp), its distance from the point in *
* statute miles and the direction. *
* *
* clo_tdirect ( name, lat, lon, stn, dist, dir, iret ) *
* *
* Input parameters: *
* *name char Location name *
* lat float Latitude *
* lon float Longitude *
* *
* Output parameters: *
* *stn char Station *
* *dist float Distance from point (statute miles) *
* *dir float Direction from point (degrees from N) *
* *iret int Return value *
* *
** *
* Log: *
* D.W.Plummer/NCEP 4/98 Create *
* T. Piper/GSC 10/98 Prolog update *
* D.W.Plummer/NCEP 12/98 Rename from clo_direct to clo_tdirect *
* D.W.Plummer/NCEP 12/98 Change clo_tclsst to clo_tclosest *
* D.W.Plummer/NCEP 12/98 Changed how clo_tgid is called *
* S. Law/GSC 01/99 Moved direction stuff to clo_direct *
* M. Li/GSC 10/99 Modified clo_direct and clo_dist codes *
* M. Li/GSC 10/99 Added multi-point cal. to clo_dist *
* D.W.Plummer/NCEP 12/99 Add check when no points are returned *
***********************************************************************/
{
int npt, nclose, ier, np;
float vlat, vlon, ddist, ddir;
char id[20];
/*---------------------------------------------------------------------*/
*iret = 0;
/*
* Consider all points of type name
*/
nclose = 1;
clo_tclosest( name, lat, lon, nclose, &ier);
/*
* Get station id.
*/
clo_tgid( name, 1, sizeof(id), &npt, id, &ier );
if ( npt == 0 ) {
*iret = -1;
stn[0] = CHNULL;
*dist = RMISSD;
*dir = RMISSD;
}
else {
strcpy( stn, strtok( id, ";" ) );
/*
* Get lat/lon.
*/
clo_tgltln( name, 1, &npt, &vlat, &vlon, &ier );
/*
* Compute distance between two earth points.
*/
np = 1;
clo_dist( &lat, &lon, &np, &vlat, &vlon, &ddist, iret );
*dist = ddist;
/*
* Compute directional angle (degrees from N).
*/
if ( G_DIFF(*dist, 0.0F) ) {
*dir = 0.0F;
}
else {
clo_direct (&lat, &lon, &vlat, &vlon, &ddir, &ier);
*dir = ddir;
}
}
return;
}
void clo_reorder ( int npin, float *lat, float *lon, int *indx,
int *iret )
/************************************************************************
* clo_reorder *
* *
* This function reorder a closed polygon into a clockwise fashion *
* and the first point is the northernmost point. *
* *
* clo_reorder ( npin, lat, lon, indx, iret ) *
* *
* Input parameters: *
* npin int Number of points *
* *lat float Latitudes *
* *lon float Longitudes *
* *
* Output parameters: *
* indx int indexes of points *
* *iret int Return value *
* *
** *
* Log: *
* M. Li/SAIC 08/01 Create *
* m.gamazaychikov/SAIC 9/02 change output parameters from arrays of *
* lat and lon to array of indexes *
* S. Jacobs/NCEP 10/02 Removed increase of np *
* E. Safford/SAIC 11/06 initialize iptr *
***********************************************************************/
{
int ii, jj, iptr=0, np, ier;
float maxlat, dirnext, dirprev;
/*---------------------------------------------------------------------*/
*iret = 0;
np = npin;
for ( jj = 0; jj < np; jj++ ) {
indx[jj] = jj;
}
/*
* Re-order processing of points to do northernmost first
* and proceed clockwise.
*/
maxlat = -90.0F;
for ( jj = 0; jj < np; jj++ ) {
if ( lat[jj] > maxlat ) {
iptr = jj;
maxlat = lat[jj];
}
}
/*
* Check directions for each adjacent point; the point with
* the smallest angle from north is in the clockwise direction.
*/
if ( iptr != 0 )
clo_direct ( &lat[iptr-1], &lon[iptr-1],
&lat[iptr], &lon[iptr], &dirprev, &ier );
else
clo_direct ( &lat[np-1], &lon[np-1],
&lat[iptr], &lon[iptr], &dirprev, &ier );
if ( iptr != np-1 )
clo_direct ( &lat[iptr+1], &lon[iptr+1],
&lat[iptr], &lon[iptr], &dirnext, &ier );
else
clo_direct ( &lat[0], &lon[0],
&lat[iptr], &lon[iptr], &dirnext, &ier );
if ( dirnext < dirprev ) {
ii = 0;
for ( jj = iptr; jj < np; jj++ ) {
indx[ii] = jj;
ii++;
}
for ( jj = 0; jj <= iptr; jj++ ) {
indx[ii] = jj;
ii++;
}
}
else {
ii = 0;
for ( jj = iptr; jj >= 0; jj-- ) {
indx[ii] = jj;
ii++;
}
for ( jj = np-1; jj >= iptr; jj-- ) {
indx[ii] = jj;
ii++;
}
}
return;
}
void crg_setsigmet ( VG_DBStruct *el, int joffset, int elnum, int *iret )
/************************************************************************
* crg_setsigmet *
* *
* This function sets the range for a sigmet element. *
* *
* crg_setsigmet ( el, joffset, elnum, iret ) *
* *
* Input parameters: *
* *el VG_DBStruct Element containing circle *
* joffset int File position of the element *
* elnum int Element number *
* *
* Output parameters: *
* *iret int Return code *
** *
* Log: *
* H. Zeng/EAI 07/02 initial coding *
* H. Zeng/EAI 07/02 modified for very large iso. SIGMET *
***********************************************************************/
{
float llx, lly, urx, ury, ccx, ccy, dist, ang1, ang2;
float new_llx, new_lly, new_urx, new_ury, new_ccx, new_ccy;
float lat[MAX_SIGMET*2+3], lon[MAX_SIGMET*2+3];
float s1lat[2], s1lon[2], s2lat[2], s2lon[2];
float x1[2], y1[2], x2[2], y2[2];
float xint, yint, new_dist;
float dirs[]= { 0.0F, 180.0F, 90.0F, 270.0F };
int ii, kk, ier, np, npx, vg_subtype, two, intrsct;
SigmetType *psig;
/*---------------------------------------------------------------------*/
*iret = 0;
psig = &(el->elem.sig);
vg_subtype = psig->info.subtype;
np = psig->info.npts;
dist = psig->info.distance * NM2M;
/*
* get bounds
*/
crg_gbnd (sys_M, sys_D, np, &(psig->latlon[0]),
&(psig->latlon[np]), &llx, &lly, &urx, &ury,
&ccx, &ccy);
/*
* For line or isolated SIGMET, range should be expanded
* because of the distance.
*/
if ( vg_subtype == SIGTYP_ISOL && !G_DIFFT(dist, 0.0F, GDIFFD) ) {
npx = 4;
for ( ii = 0; ii < npx; ii++ ) {
clo_dltln ( &(psig->latlon[0]), &(psig->latlon[np]),
&dist, &(dirs[ii]), &(lat[ii]), &(lon[ii]), &ier );
}
crg_gbnd (sys_M, sys_D, npx, &(lat[0]), &(lon[0]),
&new_llx, &new_lly, &new_urx, &new_ury,
&new_ccx, &new_ccy );
/*
* Calculate the distance between (new_ccx, new_ccy) and
* (new_llx, new_lly).
*/
new_dist = (float)sqrt( (double)((new_ccx - new_llx) * (new_ccx - new_llx)
+ (new_ccy - new_lly) * (new_ccy - new_lly) ) );
/*
* modify the range according to new_dist.
*/
llx = new_ccx - new_dist;
urx = new_ccx + new_dist;
ury = new_ccy + new_dist;
lly = new_ccy - new_dist;
}
else if ( vg_subtype == SIGTYP_LINE && !G_DIFFT(dist, 0.0F, GDIFFD) ) {
switch ( psig->info.sol ) {
case SIGLINE_NOF:
case SIGLINE_SOF:
case SIGLINE_EOF:
case SIGLINE_WOF:
npx = 0;
for ( ii = 0; ii < np; ii++ ) {
clo_dltln ( &(psig->latlon[ii]), &(psig->latlon[ii+np]),
&dist, &(dirs[psig->info.sol-1]),
&(lat[npx]), &(lon[npx]), &ier );
npx++;
}
crg_gbnd (sys_M, sys_D, npx, &(lat[0]), &(lon[0]),
&new_llx, &new_lly, &new_urx, &new_ury,
&new_ccx, &new_ccy );
break;
case SIGLINE_ESOL:
lat[0] = psig->latlon[0];
lon[0] = psig->latlon[np];
clo_direct ( &(psig->latlon[1]), &(psig->latlon[np+1]),
&(psig->latlon[0]), &(psig->latlon[np ]),
&ang1, &ier );
ang1 -= 90.0F;
clo_dltln ( &(psig->latlon[0]), &(psig->latlon[np]), &dist,
&ang1, &(lat[2*np+1]), &(lon[2*np+1]), &ier );
ang1 = ang1 - 180.0F;
clo_dltln ( &(psig->latlon[0]), &(psig->latlon[np]), &dist,
&ang1, &(lat[1]), &(lon[1]), &ier );
ang2 = ang1;
two = 2;
for ( ii = 1; ii < np-1; ii++ ) {
clo_direct ( &(psig->latlon[ii-1]), &(psig->latlon[np+ii-1]),
&(psig->latlon[ii]), &(psig->latlon[np+ii]),
&ang1, &ier );
ang1 = (float)fmod ( ((double)ang1+270.0), 360.0);
clo_dltln ( &(psig->latlon[ii]), &(psig->latlon[np+ii]),
&dist, &ang1, &(s1lat[1]), &(s1lon[1]), &ier );
clo_direct ( &(psig->latlon[ii+1]), &(psig->latlon[np+ii+1]),
&(psig->latlon[ii]), &(psig->latlon[np+ii]),
&ang2, &ier );
ang2 = (float)fmod ( ((double)ang2+90.0), 360.0);
clo_dltln ( &(psig->latlon[ii]), &(psig->latlon[np+ii]),
&dist, &ang2, &(s2lat[0]), &(s2lon[0]), &ier );
if ( G_ABS(ang1-ang2) > 1.F ) {
clo_dltln ( &(psig->latlon[ii-1]), &(psig->latlon[np+ii-1]),
&dist, &ang1, &(s1lat[0]), &(s1lon[0]), &ier );
clo_dltln ( &(psig->latlon[ii+1]), &(psig->latlon[np+ii+1]),
&dist, &ang2, &(s2lat[1]), &(s2lon[1]), &ier );
gtrans ( sys_M, sys_N, &two, s1lat, s1lon, x1, y1,
&ier, strlen(sys_M), strlen(sys_N) );
gtrans ( sys_M, sys_N, &two, s2lat, s2lon, x2, y2,
&ier, strlen(sys_M), strlen(sys_N) );
cgr_segint( sys_N, x1, y1, sys_N, x2, y2,
sys_M, &xint, &yint, &intrsct, &ier );
}
else {
xint = (s1lat[1] + s2lat[0]) / 2.0F;
yint = (s1lon[1] + s2lon[0]) / 2.0F;
}
kk = ii + 1;
lat[kk] = xint;
lon[kk] = yint;
ang1 = (float)fmod ( ((double)ang1+180.0), 360.0 );
ang2 = (float)fmod ( ((double)ang2+180.0), 360.0 );
clo_dltln ( &(psig->latlon[ii]), &(psig->latlon[np+ii]),
&dist, &ang1, &(s1lat[1]), &(s1lon[1]), &ier );
clo_dltln ( &(psig->latlon[ii]), &(psig->latlon[np+ii]),
&dist, &ang2, &(s2lat[0]), &(s2lon[0]), &ier );
if ( G_ABS(ang1-ang2) > 1.F ) {
clo_dltln ( &(psig->latlon[ii-1]), &(psig->latlon[np+ii-1]),
&dist, &ang1, &(s1lat[0]), &(s1lon[0]), &ier );
clo_dltln ( &(psig->latlon[ii+1]), &(psig->latlon[np+ii+1]),
&dist, &ang2, &(s2lat[1]), &(s2lon[1]), &ier );
gtrans ( sys_M, sys_N, &two, s1lat, s1lon, x1, y1,
&ier, strlen(sys_M), strlen(sys_N) );
gtrans ( sys_M, sys_N, &two, s2lat, s2lon, x2, y2,
&ier, strlen(sys_M), strlen(sys_N) );
cgr_segint( sys_N, x1, y1, sys_N, x2, y2,
sys_M, &xint, &yint, &intrsct, &ier );
}
else {
xint = (s1lat[1] + s2lat[0]) / 2.0F;
yint = (s1lon[1] + s2lon[0]) / 2.0F;
}
kk = 2*np - ii + 1;
lat[kk] = xint;
lon[kk] = yint;
ang1 = (float)fmod ( ((double)ang1+180.0), 360.0 );
ang2 = (float)fmod ( ((double)ang2+180.0), 360.0 );
ang1 = ang2;
} /* the end of for (... */
clo_direct ( &(psig->latlon[np-2]), &(psig->latlon[2*np-2]),
&(psig->latlon[np-1]), &(psig->latlon[2*np-1]),
&ang2, &ier );
ang2 -= 90.0F;
clo_dltln ( &(psig->latlon[np-1]), &(psig->latlon[2*np-1]),
&dist, &ang2, &(lat[np]), &(lon[np]), &ier );
ang2 = (float)fmod ( ((double)ang2+180.0), 360.0);
clo_dltln ( &(psig->latlon[np-1]), &(psig->latlon[2*np-1]),
&dist, &ang2, &(lat[np+2]), &(lon[np+2]), &ier );
lat[np+1] = psig->latlon[np-1];
lon[np+1] = psig->latlon[2*np-1];
lat[2*np+2] = lat[0];
lon[2*np+2] = lon[0];
npx = 2*np + 3;
crg_gbnd (sys_M, sys_D, npx, &(lat[0]), &(lon[0]),
&new_llx, &new_lly, &new_urx, &new_ury,
&new_ccx, &new_ccy );
break;
} /* the end of switch ... */
/*
* compare two set of ranges and get the union of them.
*/
llx = ( llx <= new_llx ) ? llx : new_llx;
urx = ( urx >= new_urx ) ? urx : new_urx;
ury = ( ury >= new_ury ) ? ury : new_ury;
lly = ( lly <= new_lly ) ? lly : new_lly;
} /* the end of else if ... */
llx -= (float)EXTRA_SM;
urx += (float)EXTRA_SM;
ury += (float)EXTRA_SM;
lly -= (float)EXTRA_SM;
/*
* Store the device coordinates in the range array.
*/
crg_save(elnum, joffset, llx, lly, urx, ury, &ier);
}
void cds_sig ( VG_DBStruct *el, int indx, int *iret )
/************************************************************************
* cds_sig *
* *
* This function displays SIGMETs to the output device. *
* *
* cds_sig (el, indx, iret) *
* *
* Input parameters: *
* *el VG_DBStruct Pointer to VG record structure *
* indx int Index into user attribute table *
* *
* Output parameters: *
* *iret int Return code *
* *
** *
* Log: *
* D.W.Plummer/NCEP 7/99 Copied from cds_line *
* D.W.Plummer/NCEP 9/99 Compute circle from element distance; *
* Compute line extension area *
* H. Zeng/EAI 9/99 Preserve plot attributes *
* F. J. Yen/NCEP 10/99 Handled user attribute table *
* M. Li/GSC 10/99 Modified clo_direct and clo_dltln codes *
* D.W.Plummer/NCEP 12/99 Added plotting of sequence number *
* M. Li/GSC 1/00 Used string variables in gtrans *
* S. Law/GSC 05/00 changed to use MAX_SIGMET for lat/lon *
* H. Zeng/EAI 06/00 increased the sizes of lat&lon arrays *
* A. Hardy/GSC 11/00 renamed coordinate system declarations *
* M. Li/SAIC 01/03 delete vgstruct.h *
* T. Piper/SAIC 12/05 redone with new Setting_t structure *
***********************************************************************/
{
int ii, kk, npts, np, intrsct, ier;
int mtype, color, width, lintyp, lthw, lwhw, mkhw, two;
int iltypx, ilthwx, iwidthx, iwhwx, icolrx, imarkx, imkhwx, imkwidx;
char str[4];
float lat[MAX_SIGMET*2+3], lon[MAX_SIGMET*2+3];
float size, dist, dir, ang1, ang2;
float dirs[]={ 0.0F, 180.0F, 90.0F, 270.0F };
float s1lat[2], s1lon[2], s2lat[2], s2lon[2];
float x1[2], y1[2], x2[2], y2[2];
float xint, yint;
float szmarkx;
float lbllat, lbllon, rotat=0.0F;
int ixoff=0, iyoff=2;
int itxfn_s, itxhw_s, itxwid_s, ibrdr_s, irrotn_s, ijust_s;
float sztext_s;
int itxfn, itxhw, itxwid, ibrdr, irrotn, ijust;
float sztext;
SigmetType *psig;
/*---------------------------------------------------------------------*/
*iret = 0;
/*
* Save plot attributes.
*/
gqcolr ( &icolrx, &ier );
gqline ( &iltypx, &ilthwx, &iwidthx, &iwhwx, &ier );
gqmrkr ( &imarkx, &imkhwx, &szmarkx, &imkwidx, &ier );
/*
* setup basic information
*/
psig = &(el->elem.sig);
width = (int) (( ( cdsUattr[indx].info.sig->linwid == 0 ) ?
(float)psig->info.linwid :
(float)cdsUattr[indx].info.sig->linwid) * cdsLineWdth);
lintyp = ( cdsUattr[indx].info.sig->lintyp == 0 ) ?
psig->info.lintyp : cdsUattr[indx].info.sig->lintyp;
lthw = 0;
lwhw = 0;
mtype = 1;
mkhw = 0;
size = 1.0F;
np = psig->info.npts;
gsline (&lintyp, <hw, &width, &lwhw, &ier);
color = (cdsColor == 0) ?
( ( cdsUattr[indx].maj_col == 0 ) ?
el->hdr.maj_col : cdsUattr[indx].maj_col ) : cdsColor;
gscolr (&color, &ier);
switch ( psig->info.subtype ) {
case SIGTYP_ISOL: /* isolated */
/*
* Plot marker w/ surrounding circle
*/
lat[0] = psig->latlon[0];
lon[0] = psig->latlon[np];
gsmrkr ( &mtype, &mkhw, &size, &width, &ier );
gmark ( sys_M, &np, lat, lon, &ier, strlen(sys_M) );
if ( !G_DIFF(psig->info.distance, 0.0F ) ) {
dir = ( lat[0] >= 0.F ) ? 180.F : 0.F;
dist = psig->info.distance * NM2M;
clo_dltln ( &lat[0], &lon[0], &dist, &dir, &(lat[1]), &(lon[1]), &ier );
np = 18;
gcircl ( sys_M, lat, lon, &(lat[1]), &(lon[1]), &np,
&ier, strlen(sys_M) );
}
break;
case SIGTYP_LINE: /* line */
for ( ii = 0; ii < np; ii++ ) {
lat[ii] = psig->latlon[ii];
lon[ii] = psig->latlon[ii+np];
}
gline ( sys_M, &np, lat, lon, &ier, strlen(sys_M) );
if ( !G_DIFF(psig->info.distance, 0.0F) ) {
lintyp = 2;
gsline (&lintyp, <hw, &width, &lwhw, &ier);
dist = psig->info.distance * NM2M;
switch ( psig->info.sol ) {
case SIGLINE_NOF:
case SIGLINE_SOF:
case SIGLINE_EOF:
case SIGLINE_WOF:
npts = 1;
for ( ii = 0; ii < np; ii++ ) {
clo_dltln ( &(psig->latlon[ii]), &(psig->latlon[ii+np]),
&dist, &(dirs[psig->info.sol-1]),
&(lat[npts]), &(lon[npts]), &ier );
npts++;
}
lat[npts] = psig->latlon[np-1];
lon[npts] = psig->latlon[2*np-1];
npts++;
gline ( sys_M, &npts, lat, lon, &ier, strlen(sys_M) );
break;
case SIGLINE_ESOL:
lat[0] = psig->latlon[0];
lon[0] = psig->latlon[np];
clo_direct ( &(psig->latlon[1]), &(psig->latlon[np+1]),
&(psig->latlon[0]), &(psig->latlon[np ]),
&ang1, &ier );
ang1 -= 90.0F;
clo_dltln ( &(psig->latlon[0]), &(psig->latlon[np]), &dist,
&ang1, &(lat[2*np+1]), &(lon[2*np+1]), &ier );
ang1 = ang1 - 180.0F;
clo_dltln ( &(psig->latlon[0]), &(psig->latlon[np]), &dist,
&ang1, &(lat[1]), &(lon[1]), &ier );
ang2 = ang1;
two = 2;
for ( ii = 1; ii < np-1; ii++ ) {
clo_direct ( &(psig->latlon[ii-1]), &(psig->latlon[np+ii-1]),
&(psig->latlon[ii]), &(psig->latlon[np+ii]),
&ang1, &ier );
ang1 = (float)fmod ( ((double)ang1+270.0), 360.0);
clo_dltln ( &(psig->latlon[ii]), &(psig->latlon[np+ii]),
&dist, &ang1, &(s1lat[1]), &(s1lon[1]), &ier );
clo_direct ( &(psig->latlon[ii+1]), &(psig->latlon[np+ii+1]),
&(psig->latlon[ii]), &(psig->latlon[np+ii]),
&ang2, &ier );
ang2 = (float)fmod ( ((double)ang2+90.0), 360.0);
clo_dltln ( &(psig->latlon[ii]), &(psig->latlon[np+ii]),
&dist, &ang2, &(s2lat[0]), &(s2lon[0]), &ier );
if ( G_ABS(ang1-ang2) > 1.F ) {
clo_dltln ( &(psig->latlon[ii-1]), &(psig->latlon[np+ii-1]),
&dist, &ang1, &(s1lat[0]), &(s1lon[0]), &ier );
clo_dltln ( &(psig->latlon[ii+1]), &(psig->latlon[np+ii+1]),
&dist, &ang2, &(s2lat[1]), &(s2lon[1]), &ier );
gtrans ( sys_M, sys_N, &two, s1lat, s1lon, x1, y1,
&ier, strlen(sys_M), strlen(sys_N) );
gtrans ( sys_M, sys_N, &two, s2lat, s2lon, x2, y2,
&ier, strlen(sys_M), strlen(sys_N) );
cgr_segint( sys_N, x1, y1, sys_N, x2, y2,
sys_M, &xint, &yint, &intrsct, &ier );
}
else {
xint = (s1lat[1] + s2lat[0]) / 2.0F;
yint = (s1lon[1] + s2lon[0]) / 2.0F;
}
kk = ii + 1;
lat[kk] = xint;
lon[kk] = yint;
ang1 = (float)fmod ( ((double)ang1+180.0), 360.0 );
ang2 = (float)fmod ( ((double)ang2+180.0), 360.0 );
clo_dltln ( &(psig->latlon[ii]), &(psig->latlon[np+ii]),
&dist, &ang1, &(s1lat[1]), &(s1lon[1]), &ier );
clo_dltln ( &(psig->latlon[ii]), &(psig->latlon[np+ii]),
&dist, &ang2, &(s2lat[0]), &(s2lon[0]), &ier );
if ( G_ABS(ang1-ang2) > 1.F ) {
clo_dltln ( &(psig->latlon[ii-1]), &(psig->latlon[np+ii-1]),
&dist, &ang1, &(s1lat[0]), &(s1lon[0]), &ier );
clo_dltln ( &(psig->latlon[ii+1]), &(psig->latlon[np+ii+1]),
&dist, &ang2, &(s2lat[1]), &(s2lon[1]), &ier );
gtrans ( sys_M, sys_N, &two, s1lat, s1lon, x1, y1,
&ier, strlen(sys_M), strlen(sys_N) );
gtrans ( sys_M, sys_N, &two, s2lat, s2lon, x2, y2,
&ier, strlen(sys_M), strlen(sys_N) );
cgr_segint( sys_N, x1, y1, sys_N, x2, y2,
sys_M, &xint, &yint, &intrsct, &ier );
}
else {
xint = (s1lat[1] + s2lat[0]) / 2.0F;
yint = (s1lon[1] + s2lon[0]) / 2.0F;
}
kk = 2*np - ii + 1;
lat[kk] = xint;
lon[kk] = yint;
ang1 = (float)fmod ( ((double)ang1+180.0), 360.0 );
ang2 = (float)fmod ( ((double)ang2+180.0), 360.0 );
ang1 = ang2;
}
clo_direct ( &(psig->latlon[np-2]), &(psig->latlon[2*np-2]),
&(psig->latlon[np-1]), &(psig->latlon[2*np-1]),
&ang2, &ier );
ang2 -= 90.0F;
clo_dltln ( &(psig->latlon[np-1]), &(psig->latlon[2*np-1]),
&dist, &ang2, &(lat[np]), &(lon[np]), &ier );
ang2 = (float)fmod ( ((double)ang2+180.0), 360.0);
clo_dltln ( &(psig->latlon[np-1]), &(psig->latlon[2*np-1]),
&dist, &ang2, &(lat[np+2]), &(lon[np+2]), &ier );
lat[np+1] = psig->latlon[np-1];
lon[np+1] = psig->latlon[2*np-1];
lat[2*np+2] = lat[0];
lon[2*np+2] = lon[0];
npts = 2*np + 3;
gline ( sys_M, &npts, lat, lon, &ier, strlen(sys_M) );
break;
}
}
break;
case SIGTYP_AREA: /* area */
for ( ii = 0; ii < np; ii++ ) {
lat[ii] = psig->latlon[ii];
lon[ii] = psig->latlon[ii+np];
}
lat[np] = psig->latlon[0];
lon[np] = psig->latlon[np];
np++;
gline ( sys_M, &np, lat, lon, &ier, strlen(sys_M) );
break;
}
if ( el->hdr.vg_type == SIGCONV_ELM || el->hdr.vg_type == SIGOUTL_ELM ) {
if ( el->hdr.vg_type == SIGCONV_ELM )
sprintf( str, "%d%c", psig->info.seqnum, psig->info.msgid[0] );
else if ( el->hdr.vg_type == SIGOUTL_ELM )
sprintf( str, "%d", psig->info.seqnum );
np = psig->info.npts;
lbllat = psig->latlon[0];
lbllon = psig->latlon[np];
for ( ii = 1; ii < np; ii++ ) {
if ( psig->latlon[ii] > lbllat ) {
lbllat = psig->latlon[ii];
lbllon = psig->latlon[ii+np];
}
}
gqtext( &itxfn_s, &itxhw_s, &sztext_s, &itxwid_s, &ibrdr_s,
&irrotn_s, &ijust_s, &ier );
itxfn = 0;
itxhw = 0;
sztext = 1.5F;
itxwid = 0;
ibrdr = 0;
irrotn = 0;
ijust = 2;
gstext( &itxfn, &itxhw, &sztext, &itxwid, &ibrdr, &irrotn, &ijust, &ier );
gtext( sys_M, &lbllat, &lbllon, str, &rotat, &ixoff, &iyoff, &ier,
strlen(sys_M), strlen(str) );
gstext( &itxfn_s, &itxhw_s, &sztext_s, &itxwid_s, &ibrdr_s,
&irrotn_s, &ijust_s, &ier );
}
/*
* Restore the saved plot attribute values
*/
gsmrkr ( &imarkx, &imkhwx, &szmarkx, &imkwidx, &ier );
gsline ( &iltypx, &ilthwx, &iwidthx, &iwhwx, &ier );
gscolr ( &icolrx, &ier );
}
