2024 lines
64 KiB
C
2024 lines
64 KiB
C
/***************************************************************/
|
|
/* SHARP-95 */
|
|
/* Advanced Interactive Sounding Analysis Program */
|
|
/* */
|
|
/* HP-Laserjet III+ Very High Quality Printer Output */
|
|
/* */
|
|
/* John A. Hart */
|
|
/* National Severe Storms Forecast Center */
|
|
/* Kansas City, Missouri */
|
|
/* Modified 12-28-2001 (LJH @ AWC) for Printing from Linux */
|
|
/* OS's. */
|
|
/* -------------------------------------------------- */
|
|
/* List of Routines in this module: */
|
|
/* */
|
|
/* PRINT_SOUNDING */
|
|
/* OPEN_PRINTER */
|
|
/* HPGL_SETUP */
|
|
/* HPSELECT_PEN */
|
|
/* HPMOVETO */
|
|
/* HPLINETO */
|
|
/* HPRECTANGLE */
|
|
/* HPCLIPRGN */
|
|
/* HPCLOSE_PRINTER */
|
|
/* HPDRAW_SKEWT */
|
|
/* HPISOBAR */
|
|
/* HPISOTHERM */
|
|
/* HPPRES_TO_PIX */
|
|
/* HPTEMP_TO_PIX */
|
|
/* HPDRY_ADIABAT */
|
|
/* HPTRACE_TEMP */
|
|
/* HPTRACE_VTMP */
|
|
/* HPTRACE_DWPT */
|
|
/* HPTRACE_WETBULB */
|
|
/* HPOUTTEXT */
|
|
/* HPWIND_BARB */
|
|
/* HPPLOT_BARBS */
|
|
/* HPTRACE_PARCEL */
|
|
/* HPTRACE_PARCELX */
|
|
/* HPSET_FONT */
|
|
/* HPTRIANGLE */
|
|
/* HPDRAW_HODO */
|
|
/* HPHODO_TO_PIX */
|
|
/* HPTRACE_HODO */
|
|
/* HPLABEL_HODO */
|
|
/* HPPLOT_ELEVS */
|
|
/* HPHODO_CIRCS */
|
|
/* HPCIRCLE */
|
|
/* HPWRITE_PARCEL */
|
|
/* HPWRITE_THERMO */
|
|
/* HPDISP_PARAM */
|
|
/* HPFILL_CAPE */
|
|
/* HPFIL_CAPEX */
|
|
/* HPCENTERTEXT */
|
|
/* HPLVLDATA */
|
|
/* HPSHARP_LABEL */
|
|
/* */
|
|
/***************************************************************/
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <sharp95.h>
|
|
#include <math.h>
|
|
#include <string.h>
|
|
|
|
struct _skewt hsk = { 500, 850, 5636, 5986, 100, 70, 60 , 1 };
|
|
struct _hodog hho = { 3500, 850, 5636, 2950, -25, -25, 120, 20 };
|
|
|
|
/*NP*/
|
|
void print_sounding_hpgl( void )
|
|
/*************************************************************/
|
|
/* PRINT_SOUNDING */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Prints skewt/hodograph to LPT1. */
|
|
/*************************************************************/
|
|
{
|
|
FILE *fp;
|
|
char unixcmd[200];
|
|
char OS[20];
|
|
|
|
/* ----- Laserjet Printer Stuff ----- */
|
|
fp = open_printer();
|
|
if(fp==NULL)
|
|
{
|
|
printf("\a");
|
|
return;
|
|
}
|
|
|
|
hpgl_setup( fp );
|
|
hpselect_pen( fp, 1, 1, 9 );
|
|
hpdraw_skewt( fp );
|
|
hpdraw_hodo( fp );
|
|
hpwrite_parcel( fp );
|
|
hpwrite_thermo( fp );
|
|
hpwrite_winds( fp );
|
|
hpwrite_storm( fp );
|
|
hpplot_uvvs( fp );
|
|
/*sharp_label( fp, 75, 9845 ); */
|
|
sharp_label ( fp, 4305, 9620 );
|
|
hpclose_printer( fp );
|
|
strcpy(OS,getenv("OS"));
|
|
if (strncmp(OS,"Linux",5)==0)
|
|
sprintf(unixcmd,"lpr %s", config.lptname);
|
|
else
|
|
sprintf(unixcmd,"lp -onb -oletter %s", config.lptname);
|
|
system(unixcmd);
|
|
sprintf(unixcmd,"rm -f %s", config.lptname );
|
|
system(unixcmd);
|
|
}
|
|
|
|
/*NP*/
|
|
FILE *open_printer( void )
|
|
/*************************************************************/
|
|
/* OPEN_PRINTER */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Opens stream for output to printer. Returns FILE handle.*/
|
|
/* */
|
|
/* fin - Name of file to open */
|
|
/*************************************************************/
|
|
{
|
|
FILE *f1;
|
|
sprintf (config.lptname, "/tmp/sharphpgl.plt" );
|
|
f1 = fopen( config.lptname, "wb" );
|
|
return f1;
|
|
}
|
|
|
|
/*NP*/
|
|
void hpgl_setup( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPGL_SETUP */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Sets HP-Laserjet III+ to HP-GL/2 graphics mode. */
|
|
/* */
|
|
/* fp - File handle */
|
|
/*************************************************************/
|
|
{
|
|
/* ----- Reset Printer ----- */
|
|
fputs( "\033E", fp );
|
|
|
|
/* ----- Set to HP-GL/2 mode ----- */
|
|
fputs( "\033%0B", fp );
|
|
|
|
/* ----- Initialize HP-GL/2 mode ----- */
|
|
fputs( "IN;", fp );
|
|
|
|
/* ----- Set Standard Font ----- */
|
|
fputs( "SD1,21,2,1,4,10,5,0,6,0,7,4148;SS;", fp );
|
|
|
|
/* ----- Tell Laserjet to begin plot ----- */
|
|
fputs( "BP;", fp );
|
|
|
|
/* ----- Transparency mode off ----- */
|
|
fputs( "TR0;", fp );
|
|
|
|
}
|
|
|
|
/*NP*/
|
|
void hpselect_pen( FILE *fp , short onoff, float width, short type )
|
|
/*************************************************************/
|
|
/* HPSELECT_PEN */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Selects the appropriate graphics pen in HP-GL/2 mode. */
|
|
/* */
|
|
/* fp - File handle */
|
|
/* onoff - Selects pin color (1=black, 0=white) */
|
|
/* width - Width in pels */
|
|
/* type - Line style (0-8), 9=Solid */
|
|
/* */
|
|
/*************************************************************/
|
|
{
|
|
/* ----- Select Pen ----- */
|
|
fprintf( fp, "SP%d;", onoff );
|
|
|
|
/* ----- Set Pen Width in millimeters----- */
|
|
fprintf( fp, "PW%f;", width );
|
|
|
|
/* ----- Set Pen Type ----- */
|
|
if( type == 9 )
|
|
{ fputs( "LT;", fp); }
|
|
if( type == 10 )
|
|
{
|
|
fputs( "UL8,2,2,2,2,2,2,2,2;", fp);
|
|
fputs( "LT8,5;", fp);
|
|
}
|
|
if( type == 11 )
|
|
{
|
|
fputs( "UL8,2,2,2,2,2,2,2,2;", fp);
|
|
fputs( "LT8,2;", fp);
|
|
}
|
|
if ( type == 12)
|
|
{
|
|
fputs( "UL8,2,2,2,2,2,2,2,2;", fp);
|
|
fputs( "LT8,1;", fp);
|
|
}
|
|
if( type == -2 )
|
|
{ fprintf( fp, "LT%d, 1;", type ); }
|
|
if( type == -1 )
|
|
{ fprintf( fp, "LT%d, 1;", type ); }
|
|
}
|
|
|
|
/*NP*/
|
|
void hpmoveto( FILE *fp , short x, short y )
|
|
/*************************************************************/
|
|
/* HPMOVETO */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Moves HPGL cursor to given coordinates (pels) */
|
|
/*************************************************************/
|
|
{
|
|
y = (1016 * 11) - 1050 - y;
|
|
fprintf( fp, "PU%d,%d;", x, y);
|
|
}
|
|
|
|
/*NP*/
|
|
void hplineto( FILE *fp , short x, short y )
|
|
/*************************************************************/
|
|
/* HPLINETO */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Strikes a line from current cursor location to (x,y) */
|
|
/*************************************************************/
|
|
{
|
|
y = (1016 * 11) - 1050 - y;
|
|
fprintf( fp, "PD%d,%d;", x, y);
|
|
}
|
|
|
|
/*NP*/
|
|
void hprectangle( FILE *fp , short x1, short y1, short x3, short y3,
|
|
short fill, short pct)
|
|
/*************************************************************/
|
|
/* HPRECTANGLE */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Draws a rectangle bounded by (x1,y1) and (x2,y2). */
|
|
/* */
|
|
/* fill - Fill Indicator (1=YES) */
|
|
/* pct - Percent coverage of fill (0-100%) */
|
|
/*************************************************************/
|
|
{
|
|
short x2, y2, x4, y4;
|
|
|
|
x2 = x3;
|
|
y2 = y1;
|
|
|
|
x4 = x1;
|
|
y4 = y3;
|
|
|
|
hpmoveto( fp, x1, y1);
|
|
fputs( "PM0;", fp );
|
|
hplineto( fp, x2, y2);
|
|
hplineto( fp, x3, y3);
|
|
hplineto( fp, x4, y4);
|
|
hplineto( fp, x1, y1);
|
|
fputs( "PM2;", fp );
|
|
if( fill == 1)
|
|
{
|
|
fprintf( fp, "FT10,%d;", pct );
|
|
fputs( "FP;", fp );
|
|
}
|
|
else
|
|
{
|
|
fputs( "EP;", fp );
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hpcliprgn( FILE *fp , short x1, short y1, short x2, short y2 )
|
|
/*************************************************************/
|
|
/* HPCLIPRGN */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Defines drawing area with points (x1,y1) and (x2,y2). */
|
|
/*************************************************************/
|
|
{
|
|
y1 = (1016 * 11) - 1050 - y1;
|
|
y2 = (1016 * 11) - 1050 - y2;
|
|
fprintf( fp, "IW%d,%d,%d,%d;", x1, y1, x2, y2);
|
|
}
|
|
|
|
/*NP*/
|
|
void hpclose_printer( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPCLOSE_PRINTER */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Ends HP-GL/2 mode and closes printer. */
|
|
/*************************************************************/
|
|
{
|
|
/* ----- Enters PCL mode ----- */
|
|
fputs( "\033%0A", fp );
|
|
|
|
/* ----- Reset Printer ----- */
|
|
fputs( "\033E", fp );
|
|
|
|
fclose( fp );
|
|
}
|
|
|
|
/*NP*/
|
|
void hpdraw_skewt( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPDRAW_SKEWT */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Draws a standard Skew-T/LogP diagram on a HP Laserjet */
|
|
/* printer. All graphic calls are HP-GL/2 dependent. */
|
|
/*************************************************************/
|
|
{
|
|
short x1, y1, x2, y2, y, i, j;
|
|
float a, thta, thtae, ix1;
|
|
float lvl[] = {1050,1000,850,700,500,300,200,100};
|
|
float mixratios[] = {0.5,1,2,4,8,16,32};
|
|
int mixratiocount=7;
|
|
char st[90];
|
|
|
|
/* ----- Write Title Line at top of chart ----- */
|
|
hpouttext( fp, raobtitle, hsk.tlx, hsk.tly - 65, 12, 3);
|
|
|
|
/* ----- Begin with outer boundary and frame ----- */
|
|
hpselect_pen( fp, 1, .75F, 9 );
|
|
hprectangle( fp, hsk.tlx, hsk.tly, hsk.brx, hsk.bry, 0, 0 );
|
|
hpcliprgn( fp, hsk.brx, hsk.tly, hsk.tlx, hsk.bry );
|
|
|
|
/* ----- Draw Horizontal Pressure Lines ----- */
|
|
hpselect_pen( fp, 1, 0, 9 );
|
|
for(i=1; i<=7; i++) { hpisobar( fp, lvl[i], 0 ); }
|
|
for(i=150; i<1050; i += 50) { hpisobar( fp, (float)i, 1 ); }
|
|
|
|
/* ----- Draw Skewed Temperature Lines ----- */
|
|
/*hpselect_pen( fp, 1, 0, -2 );*/
|
|
hpselect_pen( fp, 1, 0, 9);
|
|
for( i=-160; i<=50; i += 10 ) { hpisotherm( fp, (float)i ); }
|
|
|
|
/* ----- Draw Dry Adiabats ----- */
|
|
hpselect_pen( fp, 1, 0, 9 );
|
|
for( thta=-70; thta<=350; thta += 20) { hpdry_adiabat( fp, thta); };
|
|
|
|
/* ----- Draw Moist Adiabats ---- */
|
|
hpselect_pen( fp, 1, 0, -2 );
|
|
for (thtae=-2+273.16;thtae<=38+273.16;thtae+=4)
|
|
{hpmoist_adiabat( fp, thtae); };
|
|
|
|
/* ----- Draw Mixing ratio Lines ---- */
|
|
hpselect_pen( fp, 1, 0, 12);
|
|
for (i=0;i<mixratiocount;i++) {hpmixingratio( fp, mixratios[i]);};
|
|
|
|
/* ----- Plot Environmental Temperature Data ----- */
|
|
hpselect_pen( fp, 1, .75F, 9 );
|
|
hptrace_temp( fp );
|
|
|
|
/* ----- Plot Environmental Dew Point Data ----- */
|
|
hpselect_pen( fp, 1, .75F, 9 );
|
|
hptrace_dwpt( fp );
|
|
|
|
/* ----- Plot Environmental Virtual Temperature Data ----- */
|
|
hpselect_pen( fp, 1, .25F, 11 );
|
|
hptrace_vtmp( fp );
|
|
|
|
/* ----- Plot Environmental Wet Bulb Temperature Data ----- */
|
|
hpselect_pen( fp, 1, .25F, 11 );
|
|
hptrace_wetbulb( fp );
|
|
|
|
/* ----- Plot Environmental Wind Barbs ----- */
|
|
hpselect_pen( fp, 1, .25F, 9 );
|
|
hpplot_barbs( fp );
|
|
|
|
/* ----- Plot Elevation legend ----- */
|
|
hpselect_pen( fp, 1, .25F, 9 );
|
|
hpplot_elevs( fp );
|
|
|
|
/* ----- Trace Lifted Parcel ----- */
|
|
hpselect_pen( fp, 1, .35F, 10 );
|
|
hptrace_parcel( fp, lplvals.pres, lplvals.temp, lplvals.dwpt);
|
|
hpfill_cape( fp, 20 );
|
|
}
|
|
|
|
/*NP*/
|
|
void hpisobar( FILE *fp, float pres, short flag )
|
|
/*************************************************************/
|
|
/* HPISOBAR */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Draws pressure lines (pres, mb) on SkewT graphic. */
|
|
/* */
|
|
/* flag = 0 Draw complete horizontal line */
|
|
/* = 1 Draw small tick marks along sides of chart */
|
|
/*************************************************************/
|
|
{
|
|
short y;
|
|
char st[10];
|
|
|
|
y = hppres_to_pix( pres );
|
|
if( flag == 0 )
|
|
{
|
|
hpcliprgn( fp , 20000, 0, 0, 20000 );
|
|
itoa( (short)pres, st, 10 );
|
|
hpouttext( fp, st, hsk.tlx - 355, y + 60, 10, 0 );
|
|
hpcliprgn( fp , hsk.brx, hsk.tly, hsk.tlx, hsk.bry );
|
|
|
|
hpmoveto( fp, hsk.tlx, y);
|
|
hplineto( fp, hsk.brx, y);
|
|
}
|
|
else
|
|
{
|
|
hpmoveto( fp, hsk.tlx, y);
|
|
hplineto( fp, hsk.tlx + 100, y);
|
|
hpmoveto( fp, hsk.brx, y);
|
|
hplineto( fp, hsk.brx - 100, y);
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hpisotherm( FILE *fp, float temp)
|
|
/*************************************************************/
|
|
/* HPISOTHERM */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Draws temperature lines (temp, c) on SkewT graphic. */
|
|
/*************************************************************/
|
|
{
|
|
short x1, y1, x2, y2;
|
|
char st[10];
|
|
|
|
if((temp >= -30) && (temp <= 50))
|
|
{
|
|
x1 = hptemp_to_pix( temp, 1050 );
|
|
y1 = hsk.bry;
|
|
hpcliprgn( fp , 20000, 0, 0, 20000 );
|
|
itoa( (short)temp, st, 10 );
|
|
hpouttext( fp, st, x1, y1 + 160, 10, 0 );
|
|
hpcliprgn( fp , hsk.brx, hsk.tly, hsk.tlx, hsk.bry );
|
|
}
|
|
x1 = hptemp_to_pix( temp, 1050 );
|
|
y1 = hsk.bry;
|
|
hpmoveto( fp, x1, y1 );
|
|
x2 = hptemp_to_pix( temp, 100 );
|
|
y2 = hsk.tly;
|
|
hplineto( fp, x2, y2 );
|
|
}
|
|
|
|
/*NP*/
|
|
short hppres_to_pix( float pres )
|
|
/*************************************************************/
|
|
/* HPPRES_TO_PIX */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Converts given pressure (mb) to an Y coordinate on */
|
|
/* Skewt graphic. */
|
|
/*************************************************************/
|
|
{
|
|
double scl1, scl2;
|
|
scl1 = log(1050) - log(100);
|
|
scl2 = log(1050) - log(pres);
|
|
return (short)(hsk.bry - (scl2 / scl1) * (hsk.bry - hsk.tly));
|
|
}
|
|
|
|
/*NP*/
|
|
short hptemp_to_pix( float temp, float pres )
|
|
/*************************************************************/
|
|
/* HPTEMP_TO_PIX */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Converts given temperature (c) to an X coordinate on */
|
|
/* Thermodynamic diagram. */
|
|
/* */
|
|
/* Depending on (hsk.type), relationship is for (1) Pseudo- */
|
|
/* Adiabatic or (2) Skew-T/Log P diagram. */
|
|
/* */
|
|
/* Skew: 90c spread across the bottom of chart. */
|
|
/* 120c spread up-and-down the chart. */
|
|
/* Temp at BR of chart = 50c */
|
|
/*************************************************************/
|
|
{
|
|
float scl1, scl2;
|
|
|
|
if( hsk.type == 1 )
|
|
{
|
|
scl1 = (float)hsk.brtemp - ((((float)hsk.bry -
|
|
(float)hppres_to_pix( pres )) / ((float)hsk.bry - (float)hsk.tly)) *
|
|
(float)hsk.vspread);
|
|
}
|
|
else
|
|
{
|
|
scl1 = hsk.brtemp;
|
|
}
|
|
scl2 = hsk.brx - (((scl1 - temp) / hsk.hspread) * (hsk.brx - hsk.tlx));
|
|
return (short)scl2;
|
|
}
|
|
|
|
/*NP*/
|
|
void hpdry_adiabat( FILE *fp, float thta)
|
|
/*************************************************************/
|
|
/* DRY_ADIABAT */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Draws dry adiabat of theta (thta, c) on SkewT graphic. */
|
|
/*************************************************************/
|
|
{
|
|
float pres, temp;
|
|
short x, y;
|
|
|
|
for( pres = 1050; pres >= 100; pres = pres - 50 )
|
|
{
|
|
temp = ((thta + 273.15) / pow( 1000.0 / pres, ROCP )) - 273.15;
|
|
|
|
x = hptemp_to_pix( temp , pres );
|
|
y = hppres_to_pix( pres );
|
|
|
|
if(pres == 1050)
|
|
{ hpmoveto( fp, x, y ); }
|
|
else
|
|
{ hplineto( fp, x, y ); }
|
|
}
|
|
}
|
|
|
|
void hpmoist_adiabat(FILE *fp, float thtae)
|
|
/**************************************************************/
|
|
/* Draw moist adiabat of constant thetae from surface to top. */
|
|
/**************************************************************/
|
|
{
|
|
float pres, startpres, temp,t1,t2;
|
|
short x,y;
|
|
/* start at pres 1000 */
|
|
startpres=1000;
|
|
t1=thtae-273.16;
|
|
x=hptemp_to_pix(virtemp(startpres,t1,t1),startpres);
|
|
y=hppres_to_pix(startpres);
|
|
hpmoveto(fp, x,y);
|
|
for(pres =950; pres>=100;pres-=50) {
|
|
t2=wetlift(startpres,t1,pres);
|
|
x=hptemp_to_pix(virtemp(pres,t2,t2),pres);
|
|
y=hppres_to_pix(pres);
|
|
hplineto(fp,x,y);
|
|
}
|
|
}
|
|
|
|
void hpmixingratio(FILE *fp, float w)
|
|
/*****************************************************************/
|
|
/* Draw line of constant mixing ratio from sfc to top of sounding*/
|
|
/*****************************************************************/
|
|
{
|
|
float pres, startpres, temp,t1,t2;
|
|
short x,y;
|
|
for (pres=1000;pres>=100;pres-=50) {
|
|
t1=temp_at_mixrat(w,pres);
|
|
x=hptemp_to_pix(t1,pres);
|
|
y=hppres_to_pix(pres);
|
|
if (pres==1000)
|
|
hpmoveto(fp,x,y);
|
|
else
|
|
hplineto(fp,x,y);
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hptrace_temp( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPTRACE_TEMP */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots environmental temperature trace on SkewT. */
|
|
/*************************************************************/
|
|
{
|
|
short i, j, x, y, xold, yold, ok = 0;
|
|
|
|
for( i=0; i < numlvl; i++)
|
|
{
|
|
if( sndg[i][3] > -200)
|
|
{
|
|
xold = x;
|
|
yold = y;
|
|
x = hptemp_to_pix( sndg[i][3], sndg[i][1] );
|
|
y = hppres_to_pix( sndg[i][1] );
|
|
if( ok == 0)
|
|
{ hpmoveto( fp, x, y); ok = 1; }
|
|
else
|
|
{ hplineto( fp, x, y); }
|
|
}
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hptrace_vtmp( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPTRACE_VTMP */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots environmental virtual temp trace on SkewT. */
|
|
/*************************************************************/
|
|
{
|
|
short i, j, x, y, xold, yold, ok = 0;
|
|
|
|
for( i=0; i < numlvl; i++)
|
|
{
|
|
if( sndg[i][3] > -200)
|
|
{
|
|
xold = x;
|
|
yold = y;
|
|
x = hptemp_to_pix( i_vtmp(sndg[i][1]), sndg[i][1] );
|
|
y = hppres_to_pix( sndg[i][1] );
|
|
if( ok == 0)
|
|
{ hpmoveto( fp, x, y); ok = 1; }
|
|
else
|
|
{ hplineto( fp, x, y); }
|
|
}
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hptrace_dwpt( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPTRACE_DWPT */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots environmental Dew Point trace on SkewT. */
|
|
/*************************************************************/
|
|
{
|
|
short i, j, x, y, xold, yold, ok = 0;
|
|
|
|
for( i=0; i < numlvl; i++)
|
|
{
|
|
if( sndg[i][4] > -200)
|
|
{
|
|
xold = x;
|
|
yold = y;
|
|
x = hptemp_to_pix( sndg[i][4], sndg[i][1] );
|
|
y = hppres_to_pix( sndg[i][1] );
|
|
if( ok == 0)
|
|
{ hpmoveto( fp, x, y); ok = 1; }
|
|
else
|
|
{ hplineto( fp, x, y); }
|
|
}
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hptrace_wetbulb( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPTRACE_WETBULB */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots environmental Wet Bulb trace on SkewT. */
|
|
/*************************************************************/
|
|
{
|
|
short i, j, x, y, xold, yold, ok = 0;
|
|
float t1;
|
|
|
|
for( i=0; i < numlvl; i++)
|
|
{
|
|
if( sndg[i][4] > -200)
|
|
{
|
|
xold = x;
|
|
yold = y;
|
|
|
|
t1 = wetbulb( sndg[i][1], sndg[i][3], sndg[i][4] );
|
|
x = hptemp_to_pix( t1, sndg[i][1] );
|
|
y = hppres_to_pix( sndg[i][1] );
|
|
if( ok == 0)
|
|
{ hpmoveto( fp, x, y); ok = 1; }
|
|
else
|
|
{ hplineto( fp, x, y); }
|
|
}
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hpouttext( FILE *fp, char *st, short x, short y, short pts, short bold)
|
|
/*************************************************************/
|
|
/* HPOUTTEXT */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Writes given string at location (x,y). */
|
|
/* pts - Number of points for given font */
|
|
/* bold - Typeface indicator (0=NORM, 3=BOLD) */
|
|
/*************************************************************/
|
|
{
|
|
hpmoveto(fp, x, y);
|
|
|
|
fprintf( fp, "AD1,21,2,1,4,%d,5,0,6,%d,7,4148;SA;", pts, bold);
|
|
|
|
fputs( "DT~;", fp);
|
|
fputs( "LB", fp);
|
|
fputs( st, fp );
|
|
fputs( "~;", fp );
|
|
}
|
|
|
|
/*NP*/
|
|
void hpwind_barb( FILE *fp, float wdir, float wspd, short x,
|
|
short y, short siz)
|
|
/*************************************************************/
|
|
/* HPWIND_BARB */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots wind barb at location (x,y) for given wind. */
|
|
/*************************************************************/
|
|
{
|
|
short x1, y1, x2, y2, x3, y3, sped, flag, maxsiz=3;
|
|
float dx, dy, spcx, spcy, wid, hgt;
|
|
|
|
dx = ucomp(wdir, 10) * siz / 1.5;
|
|
dy = vcomp(wdir, 10) * siz / 1.5;
|
|
|
|
x1 = x;
|
|
y1 = y;
|
|
x2 = x1 + (short)dx;
|
|
y2 = y1 - (short)dy;
|
|
|
|
/* ----- Draw backbone of wind barb, along with origin dot ----- */
|
|
hpmoveto(fp, x1, y1); hplineto(fp, x2, y2);
|
|
|
|
sped = (short)wspd;
|
|
x1 = x2;
|
|
y1 = y2;
|
|
|
|
wid = 6; /* Width of flags */
|
|
spcx = dx / wid;
|
|
spcy = dy / wid;
|
|
x1 = x1 + (short)spcx;
|
|
y1 = y1 - (short)spcy;
|
|
|
|
/* ----- Draw wind flags (increments of 50kt) ----- */
|
|
flag = 0;
|
|
while (sped > 47)
|
|
{
|
|
flag = 1;
|
|
x1 = x1 - (short)spcx;
|
|
y1 = y1 + (short)spcy;
|
|
|
|
hgt = .5F; /* Heigth of flags */
|
|
x2 = x1 + (short)(dy * hgt);
|
|
y2 = y1 + (short)(dx * hgt);
|
|
|
|
x3 = x1 - (short)spcx;
|
|
y3 = y1 + (short)spcy;
|
|
|
|
hptriangle( fp, x1, y1, x2, y2, x3, y3, 1);
|
|
hpmoveto( fp, x1, y1);
|
|
hplineto( fp, x2, y2);
|
|
hplineto( fp, x3, y3);
|
|
|
|
sped -= 50;
|
|
x1 = x3;
|
|
y1 = y3;
|
|
}
|
|
|
|
/* ----- Draw wind barbs (increments of 5kt) ----- */
|
|
while (sped > 7 )
|
|
{
|
|
hgt = .5F; /* Heigth of flags */
|
|
x2 = x1 + (short)(dy * hgt);
|
|
y2 = y1 + (short)(dx * hgt);
|
|
|
|
x3 = x1 - (short)spcx;
|
|
y3 = y1 + (short)spcy;
|
|
|
|
hpmoveto(fp, x3, y3); hplineto(fp, x2, y2);
|
|
sped -= 10;
|
|
x1 = x3;
|
|
y1 = y3;
|
|
}
|
|
/* ----- Draw short barb ----- */
|
|
if(sped > 3 )
|
|
{
|
|
hgt = .5F; /* Heigth of flags */
|
|
x2 = x1 + (short)(dy * hgt);
|
|
y2 = y1 + (short)(dx * hgt);
|
|
|
|
x3 = x1 - (short)spcx;
|
|
y3 = y1 + (short)spcy;
|
|
|
|
dx = (x3 - x2) / 2;
|
|
dy = (y3 - y2) / 2;
|
|
|
|
x2 = x3 - (short)dx;
|
|
y2 = y3 - (short)dy;
|
|
|
|
hpmoveto(fp, x3, y3); hplineto(fp, x2, y2);
|
|
|
|
sped -= 10;
|
|
x1 = x3;
|
|
y1 = y3;
|
|
}
|
|
}
|
|
|
|
|
|
/*NP*/
|
|
void hpplot_barbs( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPPLOT_BARBS */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots wind barbs along side of thermo diagram. */
|
|
/*************************************************************/
|
|
{
|
|
short i, x, y;
|
|
float lastpres;
|
|
|
|
hpcliprgn( fp , 20000, 0, 0, 20000 );
|
|
|
|
/* ----- Draw vertical line ----- */
|
|
hpmoveto( fp, hsk.brx + 500, hsk.tly);
|
|
hplineto( fp, hsk.brx + 500, hsk.bry);
|
|
|
|
lastpres = 1100;
|
|
for( i = 0; i < numlvl; i++)
|
|
{
|
|
if( qc( sndg[i][5] ) && sndg[i][1] >= 100 )
|
|
{
|
|
y = hppres_to_pix( sndg[i][1] );
|
|
x = hsk.brx + 500;
|
|
|
|
if((sndg[i][2]-i_hght(lastpres)) > 400)
|
|
{
|
|
hpwind_barb( fp, sndg[i][5], sndg[i][6], x, y, 45);
|
|
lastpres = sndg[i][1];
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hptrace_parcel(FILE *fp, float pres, float temp, float dwpt)
|
|
/*************************************************************/
|
|
/* HPTRACE_PARCEL */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots parcel(pres, temp, dwpt) trajectory on SkewT */
|
|
/* graphic. */
|
|
/* */
|
|
/* pres - Pressure of initial parcel(mb) */
|
|
/* temp - Temperature of initial parcel (c) */
|
|
/* dwpt - Dew Point of initial parcel (c) */
|
|
/*************************************************************/
|
|
{
|
|
float i, p2, t2, t3;
|
|
short x, y;
|
|
|
|
x = hptemp_to_pix( virtemp(pres, temp, dwpt), pres );
|
|
y = hppres_to_pix( pres );
|
|
hpmoveto( fp, x, y );
|
|
|
|
drylift(pres, temp, dwpt, &p2, &t2);
|
|
x = hptemp_to_pix( virtemp(p2, t2, t2), p2 );
|
|
y = hppres_to_pix( p2 );
|
|
hplineto( fp, x, y );
|
|
|
|
for(i = p2 - 50; i >= 100; i = i - 50)
|
|
{
|
|
t3 = wetlift(p2, t2, i);
|
|
x = hptemp_to_pix( virtemp(i, t3, t3), i );
|
|
y = hppres_to_pix( i );
|
|
hplineto( fp, x, y );
|
|
}
|
|
t3 = wetlift(p2, t2, 100);
|
|
x = hptemp_to_pix( virtemp(100, t3, t3), 100 );
|
|
y = hppres_to_pix( 100 );
|
|
hplineto( fp, x, y );
|
|
}
|
|
|
|
/*NP*/
|
|
void hptrace_parcelx(FILE *fp, float pres, float temp, float dwpt)
|
|
/*************************************************************/
|
|
/* HPTRACE_PARCELX */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots parcel(pres, temp, dwpt) trajectory on SkewT */
|
|
/* graphic. */
|
|
/* */
|
|
/* pres - Pressure of initial parcel(mb) */
|
|
/* temp - Temperature of initial parcel (c) */
|
|
/* dwpt - Dew Point of initial parcel (c) */
|
|
/*************************************************************/
|
|
{
|
|
float i, p2, t2, t3;
|
|
short x, y;
|
|
|
|
x = hptemp_to_pix( temp, pres );
|
|
y = hppres_to_pix( pres );
|
|
hpmoveto( fp, x, y );
|
|
|
|
drylift(pres, temp, dwpt, &p2, &t2);
|
|
x = hptemp_to_pix( t2, p2 );
|
|
y = hppres_to_pix( p2 );
|
|
hplineto( fp, x, y );
|
|
|
|
for(i = p2 - 50; i >= 100; i = i - 50)
|
|
{
|
|
t3 = wetlift(p2, t2, i);
|
|
x = hptemp_to_pix( t3, i );
|
|
y = hppres_to_pix( i );
|
|
hplineto( fp, x, y );
|
|
}
|
|
t3 = wetlift(p2, t2, 100);
|
|
x = hptemp_to_pix( t3, 100 );
|
|
y = hppres_to_pix( 100 );
|
|
hplineto( fp, x, y );
|
|
}
|
|
|
|
/*NP*/
|
|
void hpset_font( FILE *fp, short typ, short points)
|
|
/*************************************************************/
|
|
/* HPSET_FONT */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Defines and activates the given font. */
|
|
/* */
|
|
/* typ - 1 = Bold HELV */
|
|
/* 2 = Norm HELV */
|
|
/*************************************************************/
|
|
{
|
|
if( typ == 1)
|
|
{ fprintf( fp, "AD1,21,2,1,4,%d,5,0,6,0,7,4148;SA;", points );}
|
|
if( typ == 2)
|
|
{ fprintf( fp, "AD1,21,2,1,4,%d,5,0,6,3,7,4148;SA;", points );}
|
|
}
|
|
|
|
|
|
/*NP*/
|
|
void hptriangle( FILE *fp, short x1, short y1, short x2, short y2,
|
|
short x3, short y3, short fill)
|
|
/*************************************************************/
|
|
/* HPTRIANGLE */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Draws triangle of (x,y) coordinates. */
|
|
/* */
|
|
/* fill - Fill indicator (1=YES) */
|
|
/*************************************************************/
|
|
{
|
|
fputs( "PM0;", fp );
|
|
hpmoveto( fp, x1, y1);
|
|
hplineto( fp, x2, y2);
|
|
hplineto( fp, x3, y3);
|
|
fputs( "PM2;", fp );
|
|
if( fill == 1)
|
|
{ fputs( "FP;", fp ); }
|
|
else
|
|
{ fputs( "EP;", fp ); }
|
|
|
|
}
|
|
|
|
/*NP*/
|
|
void hpdraw_hodo( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPDRAW_HODO */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Draws a standard Hodograph diagram on a HP Laserjet */
|
|
/* printer. All graphic calls are HP-GL/2 dependent. */
|
|
/*************************************************************/
|
|
{
|
|
short x1, y1, x2, y2, i;
|
|
float scle, wdir, wspd, mnu, mnv;
|
|
char st[10];
|
|
|
|
/* ----- Transparency mode off ----- */
|
|
fputs( "TR0;", fp );
|
|
|
|
hpcliprgn(fp, hho.tlx, hho.tly, hho.brx, hho.bry);
|
|
hprectangle( fp, hho.tlx, hho.tly, hho.brx, hho.bry, 1, 0);
|
|
hpselect_pen( fp, 1, .75F, 9 );
|
|
hprectangle( fp, hho.tlx, hho.tly, hho.brx, hho.bry, 0, 0);
|
|
|
|
/* ----- Plot crosshairs ----- */
|
|
hpselect_pen( fp, 1, .1F, 9 );
|
|
hphodo_to_pix( 180, 60, &x1, &y1);
|
|
hpmoveto( fp, x1, hho.tly);
|
|
hplineto( fp, x1, hho.bry);
|
|
|
|
hphodo_to_pix( 270, 60, &x1, &y1);
|
|
hpmoveto( fp, hho.tlx, y1);
|
|
hplineto( fp, hho.brx, y1);
|
|
|
|
/* ----- Plot X-Coord hash marks ----- */
|
|
for(i = hho.scale; i <= hho.hodomag; i = i + hho.scale)
|
|
{
|
|
hphodo_to_pix( 180, (float)i, &x1, &y1);
|
|
hpmoveto( fp, x1-30, y1);
|
|
hplineto( fp, x1+30, y1);
|
|
itoa( i, st, 10 );
|
|
hpouttext( fp, st, x1 + 50, y1 + 30, 6, 0);
|
|
|
|
hphodo_to_pix( 360, (float)i, &x1, &y1);
|
|
hpmoveto( fp, x1-30, y1);
|
|
hplineto( fp, x1+30, y1);
|
|
itoa( i, st, 10 );
|
|
hpouttext( fp, st, x1 + 50, y1 + 30, 6, 0);
|
|
}
|
|
|
|
/* ----- Plot Y-Coord hash marks ----- */
|
|
for(i = hho.scale; i <= hho.hodomag; i = i + hho.scale)
|
|
{
|
|
hphodo_to_pix( 90, (float)i, &x1, &y1);
|
|
hpmoveto( fp, x1, y1 - 30);
|
|
hplineto( fp, x1, y1 + 30);
|
|
itoa( i, st, 10 );
|
|
hpouttext( fp, st, x1 - 50, y1 + 80, 6, 0);
|
|
|
|
hphodo_to_pix( 270, (float)i, &x1, &y1);
|
|
hpmoveto( fp, x1, y1 - 30);
|
|
hplineto( fp, x1, y1 + 30);
|
|
itoa( i, st, 10 );
|
|
hpouttext( fp, st, x1 - 50, y1 + 80, 6, 0);
|
|
}
|
|
|
|
hpselect_pen( fp, 1, .1F, 9 );
|
|
hphodo_circs( fp );
|
|
|
|
/* ----- Plot Hodograph (Shear Vectors) ----- */
|
|
hpselect_pen( fp, 1, .75F, 9 );
|
|
hptrace_hodo( fp );
|
|
hplabel_hodo( fp );
|
|
}
|
|
|
|
/*NP*/
|
|
void hphodo_to_pix( float dir, float mag, short *x, short *y )
|
|
/*************************************************************/
|
|
/* HPHODO_COORDS */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Calculates the printer location (x,y) in pels of the */
|
|
/* wind vector (dir,mag). */
|
|
/*************************************************************/
|
|
{
|
|
float midx, midy;
|
|
float scle;
|
|
|
|
scle = (hho.brx - hho.tlx) / hho.hodomag;
|
|
midx = hho.tlx + ((hho.brx - hho.tlx) / 2) + (hho.xshift * scle);
|
|
midy = hho.tly + ((hho.bry - hho.tly) / 2) - (hho.yshift * scle);
|
|
|
|
*x = (short)(midx - (ucomp( dir, mag ) * scle));
|
|
*y = (short)(midy + (vcomp( dir, mag ) * scle));
|
|
}
|
|
|
|
/*NP*/
|
|
void hptrace_hodo( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPTRACE_HODO */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots environmental wind shear vectors on Hodograph. */
|
|
/*************************************************************/
|
|
{
|
|
short i, j, x, y, xold, yold, ok = 0;
|
|
|
|
for( i=0; i < numlvl; i++)
|
|
{
|
|
if( qc(sndg[i][5]) && qc(sndg[i][6]))
|
|
{
|
|
xold = x;
|
|
yold = y;
|
|
hphodo_to_pix( sndg[i][5], sndg[i][6], &x, &y);
|
|
if( ok == 0)
|
|
{
|
|
hpmoveto( fp, x, y);
|
|
ok = 1;
|
|
}
|
|
else
|
|
{
|
|
hplineto( fp, x, y );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hplabel_hodo( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPLABEL_HODO */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* places labels on hodograph at predetermined levels. */
|
|
/*************************************************************/
|
|
{
|
|
float wdi, wsp;
|
|
short i, x, y;
|
|
short lvl[] = {1000, 2000, 3000, 5000, 10000, 15000};
|
|
char st[10];
|
|
|
|
for(i = 0; i <= 5; i++)
|
|
{
|
|
wdi = i_wdir( i_pres(msl( lvl[i]) ) );
|
|
wsp = i_wspd( i_pres(msl( lvl[i]) ) );
|
|
hphodo_to_pix( wdi, wsp, &x, &y);
|
|
sprintf( st, "%d", lvl[i]/1000);
|
|
hpouttext( fp, st, x - 60, y - 60, 8, 3);
|
|
}
|
|
|
|
/* ----- Display Storm Motion at Upper Left Corner ----- */
|
|
if(qc(st_dir) && qc(st_spd))
|
|
{ sprintf( st, "%d / %d kt", (short)st_dir, (short)st_spd); }
|
|
else
|
|
{ sprintf( st, "M / M"); }
|
|
hpouttext( fp, st, hho.tlx + 50, hho.tly+150, 9, 0);
|
|
|
|
|
|
|
|
}
|
|
|
|
/*NP*/
|
|
void hpplot_elevs( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPPLOT_ELEVS */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots elevations (m, ft) MSL on right side of SkewT. */
|
|
/*************************************************************/
|
|
{
|
|
short i, x, y;
|
|
float lastpres, hgt;
|
|
char st[80];
|
|
|
|
hpcliprgn( fp , 20000, 0, 0, 20000 );
|
|
|
|
/* ----- Draw base legend ----- */
|
|
hpmoveto( fp, hsk.brx + 1200, hsk.tly);
|
|
hplineto( fp, hsk.brx + 1200, hsk.bry);
|
|
|
|
hpmoveto( fp, hsk.brx + 900, hsk.tly);
|
|
hplineto( fp, hsk.brx + 1500, hsk.tly);
|
|
|
|
hpouttext( fp, "MSL", hsk.brx + 1125, hsk.tly - 95, 7, 3);
|
|
hpouttext( fp, "kft km", hsk.brx + 1000, hsk.tly - 15, 7, 3);
|
|
|
|
/* ----- Find SFC level and plot ----- */
|
|
y = hppres_to_pix( sndg[sfc()][1] );
|
|
hpmoveto( fp, hsk.brx + 1150, y);
|
|
hplineto( fp, hsk.brx + 1250, y);
|
|
sprintf( st, "%d m", (short)sndg[sfc()][2] );
|
|
hpouttext( fp, st, hsk.brx + 1300, y + 30, 7, 0);
|
|
sprintf( st, "%d ft", (short)mtof(sndg[sfc()][2]) );
|
|
hpouttext( fp, st, hsk.brx + 800, y + 30, 7, 0);
|
|
|
|
/* ----- Plot every 1km ----- */
|
|
for( hgt=1000; hgt < sndg[numlvl-1][2]; hgt += 1000)
|
|
{
|
|
if(i_pres(hgt) > 100)
|
|
{
|
|
y = hppres_to_pix( i_pres( hgt ));
|
|
hpmoveto( fp, hsk.brx + 1200, y);
|
|
hplineto( fp, hsk.brx + 1250, y);
|
|
sprintf( st, "%d", (short)(hgt / 1000) );
|
|
hpouttext( fp, st, hsk.brx + 1300, y + 30, 7, 0);
|
|
}
|
|
}
|
|
/* ----- Plot every 5kft ----- */
|
|
for(hgt = 5000; hgt < mtof(sndg[numlvl-1][2]); hgt += 5000)
|
|
{
|
|
if(i_pres(ftom(hgt)) > 100)
|
|
{
|
|
y = hppres_to_pix( i_pres( ftom(hgt)));
|
|
hpmoveto( fp, hsk.brx + 1150, y);
|
|
hplineto( fp, hsk.brx + 1200, y);
|
|
sprintf( st, "%d", (short)(hgt / 1000) );
|
|
hpouttext( fp, st, hsk.brx + 1000, y + 30, 7, 0);
|
|
}
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hphodo_circs( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPHODO_CIRCS */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Draws speed rings on hodograph as scale increments. */
|
|
/*************************************************************/
|
|
{
|
|
short x1, y1, x2, y2, i;
|
|
|
|
hphodo_to_pix( 180, 0, &x1, &y1);
|
|
|
|
for(i = hho.scale; i <= hho.hodomag; i = i + hho.scale)
|
|
{
|
|
hphodo_to_pix( 180, (float)i, &x2, &y2);
|
|
hpcircle( fp, x1, y1, abs(y2 - y1));
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hpcircle( FILE *fp, short x, short y, short radius)
|
|
/*************************************************************/
|
|
/* HPCIRCLE */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Draws a circle at (x,y) of radius (radius). */
|
|
/*************************************************************/
|
|
{
|
|
hpmoveto( fp, x, y );
|
|
fprintf( fp, "CI%d;", radius );
|
|
}
|
|
|
|
/*NP*/
|
|
void hpwrite_parcel( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPWRITE_PARCEL */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Writes parcel data to printer. */
|
|
/*************************************************************/
|
|
{
|
|
char st[80];
|
|
short x1, y1;
|
|
float sfctemp, sfcdwpt, sfcpres, p;
|
|
struct _parcel pcl;
|
|
|
|
sfctemp = lplvals.temp;
|
|
sfcdwpt = lplvals.dwpt;
|
|
sfcpres = lplvals.pres;
|
|
|
|
x1 = 100;
|
|
y1 = hsk.bry + 500;
|
|
|
|
hpcliprgn( fp , 20000, 0, 0, 20000 );
|
|
hpcentertext( fp, "THERMODYNAMIC PARAMETERS", x1 + 1500, y1, 12, 3);
|
|
hpselect_pen( fp, 1, .4F, 9 );
|
|
/* hprectangle( fp , x1 - 50, y1 + 20, x1 + 3000, 9800, 0, 0);*/
|
|
hprectangle( fp , x1 - 50, y1 + 20, x1 + 3000, 9900, 0, 0);
|
|
/* ----- Selected parcel type ----- */
|
|
y1 += 200;
|
|
sprintf( st, "%s", lplvals.desc);
|
|
hpouttext( fp, st, x1, y1, 9, 0);
|
|
|
|
/* ----- Lifted Parcel Information ----- */
|
|
y1 += 200;
|
|
sprintf( st, "LPL: %4.0fmb %4.0fC/%4.0fC %4.0fF/%4.0fF",
|
|
lplvals.pres,
|
|
lplvals.temp, lplvals.dwpt,
|
|
ctof(lplvals.temp), ctof(lplvals.dwpt));
|
|
hpouttext( fp, st, x1, y1, 9, 0);
|
|
|
|
/* ----- Calculate Parcel Data ----- */
|
|
parcel( -1, -1, sfcpres, sfctemp, sfcdwpt, &pcl);
|
|
|
|
/* ----- CAPE/LI ----- */
|
|
y1 += 200;
|
|
hpouttext( fp, "CAPE:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( pcl.bplus, " J/kg", 0));
|
|
hpdisp_param( fp, st, x1 + 1200, y1, 9, 0);
|
|
|
|
hpouttext( fp, "LI:", x1 + 1500, y1, 9, 0);
|
|
strcpy( st, qc2( pcl.li5, " C @ 500mb", 0));
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
/* ----- BFZL/LImin ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "BFZL:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( pcl.bfzl, " J/kg", 0));
|
|
hpdisp_param( fp, st, x1 + 1200, y1, 9, 0);
|
|
|
|
hpouttext( fp, "LImin:", x1 + 1500, y1, 9, 0);
|
|
if( qc(pcl.limax))
|
|
{
|
|
strcpy( st, qc2( pcl.limax, " C @ ", 0));
|
|
strcat( st, qc2( pcl.limaxpres, "mb", 0));
|
|
}
|
|
else
|
|
{ strcpy( st, "M"); }
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
|
|
/* ----- CINH/CAP ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "CINH:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( pcl.bminus, " J/kg", 0));
|
|
hpdisp_param( fp, st, x1 + 1200, y1, 9, 0);
|
|
|
|
hpouttext( fp, "CAP:", x1 + 1500, y1, 9, 0);
|
|
if( qc(pcl.cap))
|
|
{
|
|
strcpy( st, qc2( pcl.cap, " C @ ", 0));
|
|
strcat( st, qc2( pcl.cappres, "mb", 0));
|
|
}
|
|
else
|
|
{ strcpy( st, "M" ); }
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
/* ----- Header for LEVEL data ----- */
|
|
y1 += 200;
|
|
/* hpdisp_param( fp, "LEVEL", x1 + 400, y1, 9, 0);
|
|
hpdisp_param( fp, "PRES", x1 + 1100, y1, 9, 0);
|
|
hpdisp_param( fp, "HGT(AGL)", x1 + 2100, y1, 9, 0);
|
|
hpdisp_param( fp, "TEMP", x1 + 2900, y1, 9, 0); */
|
|
|
|
hpdisp_param( fp, "LEVEL", x1 + 400, y1, 9, 0);
|
|
hpdisp_param( fp, "PRES", x1 + 1100, y1, 9, 0);
|
|
hpdisp_param( fp, "HGT(AGL)", x1 + 1800, y1, 9, 0);
|
|
hpdisp_param( fp, "HGT(MSL)", x1 + 2500, y1, 9, 0);
|
|
hpdisp_param( fp, "TEMP", x1 + 2900, y1, 9, 0);
|
|
|
|
|
|
y1 += 20;
|
|
hpselect_pen( fp, 1, .1F, 9 );
|
|
hpmoveto( fp, x1, y1 ); hplineto( fp, x1 + 2950, y1 );
|
|
|
|
/* ----- LCL ----- */
|
|
y1 += 150;
|
|
p = pcl.lclpres;
|
|
hplvldata( fp, p, "LCL", x1, y1);
|
|
|
|
/* ----- LFC ----- */
|
|
y1 += 150;
|
|
p = pcl.lfcpres;
|
|
hplvldata( fp, p, "LFC", x1, y1);
|
|
strcpy( st, qc2(i_temp( p ), " C", 0));
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
/* ----- EL ----- */
|
|
y1 += 150;
|
|
p = pcl.elpres;
|
|
hplvldata( fp, p, "EL", x1, y1);
|
|
strcpy( st, qc2(i_temp( p ), " C", 0));
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
/* ----- MPL ----- */
|
|
y1 += 150;
|
|
p = pcl.mplpres;
|
|
hplvldata( fp, p, "MPL", x1, y1);
|
|
|
|
y1 += 50;
|
|
hpselect_pen( fp, 1, .4F, 9 );
|
|
hpmoveto( fp, x1 - 50 , y1);
|
|
hplineto( fp, x1 + 3000, y1);
|
|
}
|
|
|
|
/*NP*/
|
|
void hpwrite_thermo( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPWRITE_THERMO */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Writes thermo data to printer. */
|
|
/*************************************************************/
|
|
{
|
|
char st[80];
|
|
short x1, y1;
|
|
float sfctemp, sfcdwpt, sfcpres, ix1, ix2, ix3;
|
|
struct _parcel pcl;
|
|
int fzgstatus,nparams;
|
|
float params[2];
|
|
|
|
sfctemp = lplvals.temp;
|
|
sfcdwpt = lplvals.dwpt;
|
|
sfcpres = lplvals.pres;
|
|
|
|
x1 = 100;
|
|
y1 = 8406;
|
|
|
|
/* ----- PW and Mean RH ----- */
|
|
hpouttext( fp, "Precip Water:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( precip_water( &ix1, -1, -1), " in", 2 ));
|
|
hpdisp_param( fp, st, x1 + 1400, y1, 9, 0);
|
|
hpouttext( fp, "Mean RH:", x1 + 1600, y1, 9, 0);
|
|
strcpy( st, qc2( mean_relhum( &ix1, -1, -1), " %", 0));
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
/* ----- Mean MR and Mean LRH ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "Mean Q:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( mean_mixratio( &ix1, -1, -1), " g/kg", 1 ));
|
|
hpdisp_param( fp, st, x1 + 1400, y1, 9, 0);
|
|
hpouttext( fp, "Mean LRH:", x1 + 1600, y1, 9, 0);
|
|
strcpy( st, qc2( mean_relhum( &ix1, -1, sndg[sfc()][1] - 150), " %", 0));
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
/* ----- Top of Moist Layer ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "Top of Moist Layer:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( top_moistlyr( &ix1 ), " mb", 0 ));
|
|
strcat( st, " / " );
|
|
strcat( st, qc2( mtof(agl(i_hght(ix1))), " ft", 0 ));
|
|
hpouttext( fp, st, x1 + 1600, y1, 9, 0);
|
|
|
|
y1 += 50;
|
|
hpselect_pen( fp, 1, .4F, 9 );
|
|
hpmoveto( fp, x1 - 50 , y1);
|
|
hplineto( fp, x1 + 3000, y1);
|
|
|
|
/* ----- 700-500mb Lapse Rates ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "700-500mb Lapse Rate:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( delta_t( &ix1 ), " C", 0 ));
|
|
strcat( st, " / " );
|
|
strcat( st, qc2( lapse_rate( &ix1, 700, 500 ), " C/km", 1 ));
|
|
hpouttext( fp, st, x1 + 1600, y1, 9, 0);
|
|
|
|
/* ----- 850-500mb Lapse Rates ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "850-500mb Lapse Rate:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( vert_tot( &ix1 ), " C", 0 ));
|
|
strcat( st, " / " );
|
|
strcat( st, qc2( lapse_rate( &ix1, 850, 500 ), " C/km", 1 ));
|
|
hpouttext( fp, st, x1 + 1600, y1, 9, 0);
|
|
|
|
y1 += 50;
|
|
hpmoveto( fp, x1 - 50 , y1);
|
|
hplineto( fp, x1 + 3000, y1);
|
|
|
|
/* ----- Total-Totals and K-Index ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "Total Totals:", x1, y1, 9, 0);
|
|
strcpy( st,qc2( t_totals( &ix1, &ix2, &ix3 ), "", 0));
|
|
hpdisp_param( fp, st, x1 + 1400, y1, 9, 0);
|
|
hpouttext( fp, "K-Index:", x1 + 1600, y1, 9, 0);
|
|
strcpy( st, qc2( k_index( &ix1 ), "", 0));
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
/* -----SWEAT and Max Temp ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "SWEAT Index:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( sweat_index( &ix1 ), "", 0));
|
|
hpdisp_param( fp, st, x1 + 1400, y1, 9, 0);
|
|
hpouttext( fp, "Max Temp:", x1 + 1600, y1, 9, 0);
|
|
strcpy( st, qc2( ctof(max_temp( &ix1, -1 )), " F", 0));
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
/* ----- ThetaE Diff and Convective Temp ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "ThetaE Diff:", x1, y1, 9, 0);
|
|
ix2 = ThetaE_diff(&ix1);
|
|
strcpy( st, qc2( ix2, " C", 0 ));
|
|
hpdisp_param( fp, st, x1 + 1400, y1, 9, 0);
|
|
ix2 = old_cnvtv_temp( &ix1);
|
|
hpouttext( fp, "*Conv Temp(s):", x1 + 1600, y1, 9, 0);
|
|
strcpy( st, qc2( ctof(ix2), "F/", 0 ));
|
|
strcat( st, qc2(ctof(cnvtv_temp(&ix1, -50)),"F", 0));
|
|
hpdisp_param( fp, st, x1 + 3000, y1, 9, 0);
|
|
|
|
/* ----- FZL and WBZ ----- */
|
|
y1 += 150;
|
|
/* hpouttext( fp, "FZG Level:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( mtof(agl(i_hght(temp_lvl( 0, &ix1 )))), " ft", 0 ));
|
|
hpdisp_param( fp, st, x1 + 1400, y1, 9, 0);
|
|
hpouttext( fp, "WBZ Level:", x1 + 1600, y1, 9, 0);
|
|
strcpy( st, qc2( mtof(agl(i_hght(wb_lvl( 0, &ix1 )))), " ft", 0 ));
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0); */
|
|
|
|
|
|
hpouttext( fp, "WBZ Level:", x1, y1, 9, 0);
|
|
strcpy( st, qc2( mtof(agl(i_hght(wb_lvl( 0, &ix1 )))), " ft", 0 ));
|
|
hpdisp_param( fp, st, x1 + 1400, y1, 9, 0);
|
|
hpouttext( fp, "FZG Level:", x1+1600, y1, 9, 0);
|
|
strcpy( st, qc2( mtof(agl(i_hght(temp_lvl( 0, &ix1 )))), " ft", 0 ));
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
|
|
/* ---- FZL MSL ----- */
|
|
y1 += 150;
|
|
fzgstatus=mult_temp_lvl(0,params,&nparams);
|
|
if (fzgstatus<0) {
|
|
strcpy( st, "FZG LVL(MSL) = SNDG BLO FZG");
|
|
hpouttext(fp, st, x1, y1, 9, 0);
|
|
} else {
|
|
strcpy( st, "FZG LVL(MSL) = ");
|
|
strcat( st, qc2(mtof(i_hght(params[0])),"ft",0));
|
|
if( nparams==2) {
|
|
strcat(st,",");
|
|
strcat(st, qc2(mtof(i_hght(params[1])),"ft",0));
|
|
}
|
|
hpouttext(fp, st, x1, y1, 9, 0);
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void hpdisp_param( FILE *fp, char *st, short x, short y, short font, short tf)
|
|
/*************************************************************/
|
|
/* HPDISP_PARAM */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Right justifies value at location x,y. */
|
|
/*************************************************************/
|
|
{
|
|
fputs( "LO7;", fp );
|
|
hpouttext( fp, st, x, y, font, tf);
|
|
fputs( "LO;", fp );
|
|
}
|
|
|
|
/*NP*/
|
|
void hpfill_cape( FILE *fp, short pct)
|
|
/*************************************************************/
|
|
/* HPFILL_CAPE */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Fills the positive area with grey area. */
|
|
/*************************************************************/
|
|
{
|
|
short x, y, i, j, xs, ys;
|
|
float t1, p1, t2, p2, sfcpres, sfctemp, sfcdwpt, pres;
|
|
struct _parcel pcl;
|
|
|
|
sfcpres = lplvals.pres;
|
|
sfctemp = lplvals.temp;
|
|
sfcdwpt = lplvals.dwpt;
|
|
|
|
/* ----- Calculate Parcel Data ----- */
|
|
parcel( -1, -1, sfcpres, sfctemp, sfcdwpt, &pcl);
|
|
if( pcl.bplus <= 0 ) { return; }
|
|
|
|
/* ----- Account for partial soundings ----- */
|
|
if( !qc(pcl.elpres)) { pcl.elpres = sndg[numlvl-1][1]; }
|
|
|
|
/* ----- Set Polygon Mode ----- */
|
|
fputs( "PM0;", fp );
|
|
|
|
/* ----- Start at LFC ----- */
|
|
p1 = pcl.lfcpres;
|
|
t1 = i_vtmp(pcl.lfcpres);
|
|
x = hptemp_to_pix( t1, p1);
|
|
y = hppres_to_pix( p1 );
|
|
hpmoveto( fp, x, y);
|
|
xs = x;
|
|
ys = y;
|
|
|
|
/* ----- Trace up temperature line ----- */
|
|
i=0;
|
|
while(sndg[i][1] > pcl.lfcpres) { i++; }
|
|
|
|
for( j=i; sndg[j][1] > pcl.elpres; j++)
|
|
{
|
|
if( qc(sndg[j][3]))
|
|
{
|
|
p1 = sndg[j][1];
|
|
t1 = i_vtmp( p1 );
|
|
x = hptemp_to_pix( t1, p1);
|
|
y = hppres_to_pix( p1 );
|
|
hplineto( fp, x, y);
|
|
}
|
|
}
|
|
|
|
/* ----- Now, starting at EL, go back down Thw to LFC ----- */
|
|
drylift(sfcpres, sfctemp, sfcdwpt, &p2, &t2);
|
|
for(pres = pcl.elpres; pres < pcl.lfcpres; pres += 50)
|
|
{
|
|
t1 = wetlift(p2, t2, pres);
|
|
x = hptemp_to_pix( virtemp(pres, t1, t1), pres );
|
|
y = hppres_to_pix( pres );
|
|
hplineto( fp, x, y );
|
|
}
|
|
|
|
/* ----- Finish Polygon by returning to LFC ----- */
|
|
hplineto( fp, xs, ys );
|
|
|
|
/* ----- End Polygon Mode ----- */
|
|
fputs( "PM2;", fp );
|
|
|
|
/* ----- Transparency mode on ----- */
|
|
fputs( "TR1;", fp );
|
|
|
|
/* ----- Set Fill Density and Finish Fill ----- */
|
|
fprintf( fp, "FT10,%d;", pct );
|
|
fputs( "FP;", fp );
|
|
}
|
|
|
|
/*NP*/
|
|
void hpfill_capex( FILE *fp, short pct)
|
|
/*************************************************************/
|
|
/* HPFILL_CAPEX */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Fills the positive area with grey area. */
|
|
/*************************************************************/
|
|
{
|
|
short x, y, i, j, xs, ys;
|
|
float t1, p1, t2, p2, sfcpres, sfctemp, sfcdwpt, pres;
|
|
struct _parcel pcl;
|
|
|
|
sfcpres = lplvals.pres;
|
|
sfctemp = lplvals.temp;
|
|
sfcdwpt = lplvals.dwpt;
|
|
|
|
/* ----- Calculate Parcel Data ----- */
|
|
parcelx( -1, -1, sfcpres, sfctemp, sfcdwpt, &pcl);
|
|
if( pcl.bplus <= 0 ) { return; }
|
|
|
|
/* ----- Set Polygon Mode ----- */
|
|
fputs( "PM0;", fp );
|
|
|
|
/* ----- Start at LFC ----- */
|
|
p1 = pcl.lfcpres;
|
|
t1 = i_temp(pcl.lfcpres);
|
|
x = hptemp_to_pix( t1, p1);
|
|
y = hppres_to_pix( p1 );
|
|
hpmoveto( fp, x, y);
|
|
xs = x;
|
|
ys = y;
|
|
|
|
/* ----- Trace up temperature line ----- */
|
|
i=0;
|
|
while(sndg[i][1] > pcl.lfcpres) { i++; }
|
|
|
|
for( j=i; sndg[j][1] > pcl.elpres; j++)
|
|
{
|
|
if( qc(sndg[j][3]))
|
|
{
|
|
p1 = sndg[j][1];
|
|
t1 = i_temp( p1 );
|
|
x = hptemp_to_pix( t1, p1);
|
|
y = hppres_to_pix( p1 );
|
|
hplineto( fp, x, y);
|
|
}
|
|
}
|
|
|
|
/* ----- Now, starting at EL, go back down Thw to LFC ----- */
|
|
drylift(sfcpres, sfctemp, sfcdwpt, &p2, &t2);
|
|
for(pres = pcl.elpres; pres < pcl.lfcpres; pres += 50)
|
|
{
|
|
t1 = wetlift(p2, t2, pres);
|
|
x = hptemp_to_pix( t1, pres );
|
|
y = hppres_to_pix( pres );
|
|
hplineto( fp, x, y );
|
|
}
|
|
|
|
/* ----- Finish Polygon by returning to LFC ----- */
|
|
hplineto( fp, xs, ys );
|
|
|
|
/* ----- End Polygon Mode ----- */
|
|
fputs( "PM2;", fp );
|
|
|
|
/* ----- Transparency mode on ----- */
|
|
fputs( "TR1;", fp );
|
|
|
|
/* ----- Set Fill Density and Finish Fill ----- */
|
|
fprintf( fp, "FT10,%d;", pct );
|
|
fputs( "FP;", fp );
|
|
}
|
|
|
|
/*NP*/
|
|
void hpcentertext( FILE *fp, char *st, short x, short y, short font, short tf)
|
|
/*************************************************************/
|
|
/* HPCENTERTEXT */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Writes given string at location (x,y). */
|
|
/* pts - Number of points for given font */
|
|
/* bold - Typeface indicator (0=NORM, 3=BOLD) */
|
|
/*************************************************************/
|
|
{
|
|
fputs( "LO4;", fp );
|
|
hpouttext( fp, st, x, y, font, tf);
|
|
fputs( "LO;", fp );
|
|
}
|
|
|
|
/*NP*/
|
|
void hplvldata( FILE *fp, float pres, char *nam, short x, short y)
|
|
/*************************************************************/
|
|
/* HPLVLDATA */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Write level data to printer (used in parcel area). */
|
|
/*************************************************************/
|
|
{
|
|
char st[80];
|
|
if (qc(pres))
|
|
{
|
|
/*hpdisp_param( fp, nam, x + 400, y, 9, 0);
|
|
strcpy( st, qc2( pres, "mb", 0 ));
|
|
hpdisp_param( fp, st, x + 1100, y, 9, 0);
|
|
strcpy( st, qc2( mtof(agl(i_hght(pres ))), "ft", 0 ));
|
|
hpdisp_param( fp, st, x + 2100, y, 9, 0);*/
|
|
|
|
hpdisp_param( fp, nam, x + 400, y, 9, 0);
|
|
strcpy( st, qc2( pres, "mb", 0 ));
|
|
hpdisp_param( fp, st, x + 1100, y, 9, 0);
|
|
strcpy( st, qc2( mtof(agl(i_hght(pres ))), "ft", 0 ));
|
|
hpdisp_param( fp, st, x + 1800, y, 9, 0);
|
|
strcpy( st, qc2( mtof(i_hght(pres )), "ft", 0 ));
|
|
hpdisp_param(fp, st, x + 2500, y, 9, 0);
|
|
|
|
}
|
|
else
|
|
{
|
|
/*hpdisp_param( fp, nam, x + 400, y, 9, 0);
|
|
hpdisp_param( fp, "M", x + 1100, y, 9, 0);
|
|
hpdisp_param( fp, "M", x + 2100, y, 9, 0);*/
|
|
|
|
hpdisp_param( fp, nam, x + 400, y, 9, 0);
|
|
hpdisp_param( fp, "M", x + 1100, y, 9, 0);
|
|
hpdisp_param( fp, "M", x + 1800, y, 9, 0);
|
|
hpdisp_param( fp, "M", x + 2500, y, 9, 0);
|
|
|
|
}
|
|
}
|
|
|
|
/*NP*/
|
|
void sharp_label( FILE *fp, short x1, short y1)
|
|
/*************************************************************/
|
|
/* SHARP_LABEL */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Writes SHARP label on page at specified (x,y) */
|
|
/*************************************************************/
|
|
{
|
|
char st[80];
|
|
|
|
strcpy( st, "Output produced by:");
|
|
hpouttext( fp, st, x1 + 25, y1 + 80, 5, 3);
|
|
|
|
strcpy( st, "SHARP (SkewT-Hodograph Analysis and Research Program) v5.5d");
|
|
hpouttext( fp, st, x1 + 25, y1 + 160, 5, 3);
|
|
|
|
strcpy( st, "J Hart et.al., 2000, NWS/NCEP/SPC & AWC");
|
|
hpouttext( fp, st, x1 + 25, y1 + 240, 5, 3);
|
|
|
|
hpselect_pen( fp, 1, .3F, 9 );
|
|
hprectangle( fp, x1, y1, x1 + 2195, y1 + 280, 0, 0 );
|
|
}
|
|
|
|
|
|
/*NP*/
|
|
void hpwrite_winds( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPWRITE_WINDS */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Writes wind data to printer. */
|
|
/*************************************************************/
|
|
{
|
|
char st[80];
|
|
short x1, y1;
|
|
float sfctemp, sfcdwpt, sfcpres, p, ix1, ix2, ix3, ix4;
|
|
struct _parcel pcl;
|
|
|
|
sfctemp = lplvals.temp;
|
|
sfcdwpt = lplvals.dwpt;
|
|
sfcpres = lplvals.pres;
|
|
|
|
x1 = 3500;
|
|
y1 = hsk.bry + 500;
|
|
|
|
hpcliprgn( fp , 20000, 0, 0, 20000 );
|
|
hpcentertext( fp, "KINEMATIC PARAMETERS", x1 + 1500, y1, 12, 3);
|
|
hpselect_pen( fp, 1, .4F, 9 );
|
|
hprectangle( fp , x1 - 50, y1 + 20, x1 + 3000, 7700, 0, 0);
|
|
|
|
/* ----- 0-6km Mean Wind ----- */
|
|
y1 += 200;
|
|
hpouttext( fp, "Sfc - 6 km Mean Wind:", x1, y1, 9, 0);
|
|
mean_wind( -1, i_pres(agl(6000)), &ix1, &ix2, &ix3, &ix4);
|
|
if(qc(ix3) && qc(ix4))
|
|
{ sprintf( st, "%d / %d kt (%d m/s)", (short)ix3, (short)ix4,
|
|
(short)kt_to_mps(ix4)); }
|
|
else
|
|
{ sprintf( st, "M / M"); }
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
/* ----- LFC-EL Mean Wind ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "LFC - EL Mean Wind:", x1, y1, 9, 0);
|
|
mean_wind( -1, -1, &ix1, &ix2, &ix3, &ix4);
|
|
if(qc(ix3) && qc(ix4))
|
|
{ sprintf( st, "%d / %d kt (%d m/s)", (short)ix3, (short)ix4,
|
|
(short)kt_to_mps(ix4)); }
|
|
else
|
|
{ sprintf( st, "M / M"); }
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
/* ----- 850-300 Mean Wind ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "850 - 300 Mean Wind:", x1, y1, 9, 0);
|
|
mean_wind( 850, 300, &ix1, &ix2, &ix3, &ix4);
|
|
if(qc(ix3) && qc(ix4))
|
|
{ sprintf( st, "%d / %d kt (%d m/s)", (short)ix3, (short)ix4,
|
|
(short)kt_to_mps(ix4)); }
|
|
else
|
|
{ sprintf( st, "M / M"); }
|
|
hpdisp_param( fp, st, x1 + 2900, y1, 9, 0);
|
|
|
|
y1 += 200;
|
|
hpmoveto(fp, x1, y1);
|
|
hplineto(fp, x1+3000, y1);
|
|
|
|
/* ----- Sfc-2km Shear ----- */
|
|
y1 += 150;
|
|
wind_shear( -1, i_pres(msl(2000)), &ix1, &ix2, &ix3, &ix4);
|
|
hpouttext( fp, "Sfc - 2km Shear:", x1, y1, 9, 0);
|
|
if(qc(ix3) && qc(ix4))
|
|
{
|
|
sprintf( st, "%d kt", (short)ix4);
|
|
hpdisp_param( fp, st, x1+1700, y1, 9, 0);
|
|
sprintf( st, "(%d m/s)", (short)kt_to_mps(ix4));
|
|
hpdisp_param( fp, st, x1+2500, y1, 9, 0);
|
|
}
|
|
else
|
|
{
|
|
strcpy( st, "M");
|
|
hpdisp_param( fp, st, x1+1700, y1, 9, 0);
|
|
}
|
|
|
|
/* ----- Sfc-6km Shear ----- */
|
|
y1 += 150;
|
|
wind_shear( -1, i_pres(msl(6000)), &ix1, &ix2, &ix3, &ix4);
|
|
hpouttext( fp, "Sfc - 6km Shear:", x1, y1, 9, 0);
|
|
if(qc(ix3) && qc(ix4))
|
|
{
|
|
sprintf( st, "%d kt", (short)ix4);
|
|
hpdisp_param( fp, st, x1+1700, y1, 9, 0);
|
|
sprintf( st, "(%d m/s)", (short)kt_to_mps(ix4));
|
|
hpdisp_param( fp, st, x1+2500, y1, 9, 0);
|
|
}
|
|
else
|
|
{
|
|
strcpy( st, "M");
|
|
hpdisp_param( fp, st, x1+1700, y1, 9, 0);
|
|
}
|
|
|
|
/* ----- BRN Shear ----- */
|
|
y1 += 150;
|
|
pcl.bplus=1;
|
|
pcl.lplpres = lplvals.pres;
|
|
ix2 = bulk_rich( pcl, &ix1);
|
|
hpouttext( fp, "*BRN Shear:", x1, y1, 9, 0);
|
|
if(qc(ix3) && qc(ix4))
|
|
{
|
|
sprintf( st, "%d m2/s2", (short)ix1);
|
|
hpdisp_param( fp, st, x1+2500, y1, 9, 0);
|
|
}
|
|
else
|
|
{
|
|
strcpy( st, "M");
|
|
hpdisp_param( fp, st, x1+2100, y1, 9, 0);
|
|
}
|
|
}
|
|
|
|
|
|
/*NP*/
|
|
void hpwrite_storm( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPWRITE_STORM */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Writes storm data to printer. */
|
|
/*************************************************************/
|
|
{
|
|
char st[80], st1[80];
|
|
short x1, y1;
|
|
float sfctemp, sfcdwpt, sfcpres, p, hel3;
|
|
float ix1, ix2, ix3, ix4;
|
|
struct _parcel pcl;
|
|
|
|
sfctemp = lplvals.temp;
|
|
sfcdwpt = lplvals.dwpt;
|
|
sfcpres = lplvals.pres;
|
|
parcel( -1, -1, sfcpres, sfctemp, sfcdwpt, &pcl);
|
|
|
|
x1 = 3500;
|
|
y1 = 8000;
|
|
|
|
hpcliprgn( fp , 20000, 0, 0, 20000 );
|
|
hpcentertext( fp, "STORM STRUCTURE PARAMETERS", x1 + 1500, y1, 12, 3);
|
|
hpselect_pen( fp, 1, .4F, 9 );
|
|
hprectangle( fp , x1 - 50, y1 + 20, x1 + 3000, 9200, 0, 0);
|
|
|
|
/* ----- Sfc-3km SREH ----- */
|
|
y1 += 200;
|
|
ix1 = helicity( 0, 3000, st_dir, st_spd, &ix2, &ix3);
|
|
hel3 = ix1;
|
|
hpouttext( fp, "Sfc - 3km SREH:", x1, y1, 9, 0);
|
|
if(qc(ix1))
|
|
{
|
|
sprintf( st, "%.0f m2/s2", ix1);
|
|
hpdisp_param( fp, st, x1+1700, y1, 9, 0);
|
|
}
|
|
else
|
|
{
|
|
strcpy( st, "M");
|
|
hpdisp_param( fp, st, x1+1700, y1, 9, 0);
|
|
}
|
|
|
|
/* ----- Effective SREH ----- */
|
|
y1 += 150;
|
|
ix1 = helicity( -1, -1, st_dir, st_spd, &ix2, &ix3);
|
|
hpouttext( fp, "Effective SREH:", x1, y1, 9, 0);
|
|
if(qc(ix1))
|
|
{
|
|
sprintf( st, "%.0f m2/s2", ix1);
|
|
sprintf( st1, "from %.0f m.", agl(i_hght(esfc(50))));
|
|
hpdisp_param( fp, st, x1+1700, y1, 9, 0);
|
|
hpdisp_param( fp, st1, x1+2600, y1, 9, 0);
|
|
}
|
|
else
|
|
{
|
|
strcpy( st, "M");
|
|
hpdisp_param( fp, st, x1+1700, y1, 9, 0);
|
|
}
|
|
|
|
y1 += 200;
|
|
hpmoveto( fp, x1, y1);
|
|
hplineto( fp, x1+3000, y1);
|
|
|
|
/* ----- 0-2 km Storm Relative Winds ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "0-2 km SRW:", x1, y1, 9, 0);
|
|
sr_wind( -1, i_pres(msl(2000)), st_dir, st_spd, &ix1, &ix2, &ix3, &ix4);
|
|
if(qc(ix4))
|
|
{
|
|
sprintf( st, "%.0f kt", ix4);
|
|
hpdisp_param( fp, st, x1+1300, y1, 9, 0);
|
|
}
|
|
else
|
|
{
|
|
hpdisp_param( fp, "M", x1+1300, y1, 9, 0);
|
|
}
|
|
|
|
/* ----- EHI ----- */
|
|
hpouttext( fp, "EHI:", x1+1700, y1, 9, 0);
|
|
ix1 = ehi(pcl.bplus, hel3);
|
|
if(qc(ix1))
|
|
{
|
|
sprintf( st, "%.1f", ix1);
|
|
hpdisp_param( fp, st, x1+2900, y1, 9, 0);
|
|
}
|
|
else
|
|
{
|
|
hpdisp_param( fp, "M", x1+2900, y1, 9, 0);
|
|
}
|
|
|
|
/* ----- 4-6 km Storm Relative Winds ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "4-6 km SRW:", x1, y1, 9, 0);
|
|
sr_wind( i_pres(msl(4000)), i_pres(msl(6000)), st_dir, st_spd, &ix1, &ix2, &ix3, &ix4);
|
|
if(qc(ix4))
|
|
{
|
|
sprintf( st, "%.0f kt", ix4);
|
|
hpdisp_param( fp, st, x1+1300, y1, 9, 0);
|
|
}
|
|
else
|
|
{
|
|
hpdisp_param( fp, "M", x1+1300, y1, 9, 0);
|
|
}
|
|
|
|
/* ----- BRN ----- */
|
|
hpouttext( fp, "BRN:", x1+1700, y1, 9, 0);
|
|
ix1 = bulk_rich(pcl, &ix2);
|
|
if(qc(ix1))
|
|
{
|
|
sprintf( st, "%.0f", ix1);
|
|
hpdisp_param( fp, st, x1+2900, y1, 9, 0);
|
|
}
|
|
else
|
|
{
|
|
hpdisp_param( fp, "M", x1+2900, y1, 9, 0);
|
|
}
|
|
|
|
/* ----- 6-10 km Storm Relative Winds ----- */
|
|
y1 += 150;
|
|
hpouttext( fp, "6-10 km SRW:", x1, y1, 9, 0);
|
|
sr_wind( i_pres(msl(6000)), i_pres(msl(10000)), st_dir, st_spd, &ix1, &ix2, &ix3, &ix4);
|
|
if(qc(ix4))
|
|
{
|
|
sprintf( st, "%.0f kt", ix4);
|
|
hpdisp_param( fp, st, x1+1300, y1, 9, 0);
|
|
}
|
|
else
|
|
{
|
|
hpdisp_param( fp, "M", x1+1300, y1, 9, 0);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
/*NP*/
|
|
void hpplot_uvvs( FILE *fp )
|
|
/*************************************************************/
|
|
/* HPPLOT_UVVS */
|
|
/* John Hart NSSFC KCMO */
|
|
/* */
|
|
/* Plots VVs (Mbps) on right side of SkewT. */
|
|
/*************************************************************/
|
|
{
|
|
short i, x, y, x1, y1, x2, avail;
|
|
float leng, scal;
|
|
|
|
scal = 1000;
|
|
|
|
hpcliprgn( fp , 20000, 0, 0, 20000 );
|
|
hpselect_pen( fp, 1, .25F, 9 );
|
|
|
|
x1 = hsk.brx + 1900;
|
|
|
|
/* ----- Plot every level ----- */
|
|
avail = 0;
|
|
for( i = 0; i < numlvl; i++)
|
|
{
|
|
if(qc(sndg[i][0]) && (sndg[i][0] < 1))
|
|
{
|
|
avail++;
|
|
y = hppres_to_pix( sndg[i][1] );
|
|
leng = (sndg[i][0] * scal); /* Convert to Mbs/sec */
|
|
hpselect_pen( fp, 1, .05F, 9 );
|
|
if(abs(leng) > 5) hpselect_pen( fp, 1, .10F, 9 );
|
|
if(abs(leng) > 10) hpselect_pen( fp, 1, .35F, 9 );
|
|
if(abs(leng) > 15) hpselect_pen( fp, 1, .50F, 9 );
|
|
x = x1 - (leng * 15); /* Determine screen scale */
|
|
hpmoveto(fp, x1, y);
|
|
hplineto(fp, x, y);
|
|
}
|
|
}
|
|
|
|
if(avail > 5)
|
|
{
|
|
/* ----- Draw base legend ----- */
|
|
|
|
hpselect_pen( fp, 1, .20F, 9 );
|
|
hpmoveto( fp, x1, hsk.tly);
|
|
hplineto( fp, x1, hsk.bry);
|
|
|
|
hpselect_pen( fp, 1, .10F, 11 );
|
|
hpmoveto( fp, x1+150, hsk.tly);
|
|
hplineto( fp, x1+150, hsk.bry);
|
|
|
|
hpselect_pen( fp, 1, .10F, 11 );
|
|
hpmoveto( fp, x1-150, hsk.tly);
|
|
hplineto( fp, x1-150, hsk.bry);
|
|
|
|
hpselect_pen( fp, 1, .20F, 9 );
|
|
hpmoveto( fp, x1-300, hsk.tly);
|
|
hplineto( fp, x1+300, hsk.tly);
|
|
|
|
hpcentertext( fp, "VVEL (Mbps)", x1, hsk.tly-95, 7, 3);
|
|
hpcentertext( fp, "Down Up ", x1, hsk.tly-15, 7, 3);
|
|
}
|
|
}
|