plot_nexrad.c

Go to the documentation of this file.

 
#include "prototypes.h"
 
void plot_nexrad(Pixmap pixm,int h, int display_flag)
 
{
 
extern unsigned long nmap[20];
extern struct pcp *spf;
extern int pcp_in_use[50];
extern Font font[10];
extern XFontStruct *info_font[10];
extern Display *display;
extern int npoint[2],zoom;
extern GC gc;
extern unsigned long xmap[16];
extern Widget drawing_area;
extern float delim[16];
extern struct display_set display_set[4];
extern struct hrap_grid *hrap_grid;
int i,j,k;
int color,MY=10;
float xrat,yrat,mult,dmult,cmult;
long nx[4],ny[4];
Dimension width,height;
Arg args[10];
unsigned long XSIZE,YSIZE;
XPoint point[5];
long xmin,xmax,ymin,ymax,lint1,lint2;
signed long xcen,ycen;
int di[4],dj[4],dy,dx,pts,yheight;
float value;
 
XSetFont(display,gc,font[4]);  
yheight=info_font[4]->ascent+2;     
 
dx=1;dy=1;
 
di[0]=0;dj[0]=0;
di[1]=1;dj[1]=0; 
di[2]=1;dj[2]=1;
di[3]=0;dj[3]=1;
 
dmult=display_set[display_flag].dmult[h];
xmin= display_set[display_flag].xmin[h];
xmax= display_set[display_flag].xmax[h];
ymin= display_set[display_flag].ymin[h];
ymax= display_set[display_flag].ymax[h];
xcen= display_set[display_flag].xcen[h];
ycen= display_set[display_flag].ycen[h];
 
XtSetArg(args[0],XtNwidth,&width);
XtSetArg(args[1],XtNheight,&height);
XtGetValues(drawing_area,args,2);
 
XSIZE=(long)width*10L;
YSIZE=(long)height*10L;
 
xrat=(float)XSIZE/(float)12800;
yrat=(float)YSIZE/(float)9600;
 
if(xrat < yrat)
             mult=xrat;
 
else
             mult=yrat;
 
cmult=dmult*mult;
lint1=(long)npoint[0]*(long)MY;
lint2=(long)npoint[1]*(long)MY;
XSetFillRule(display,gc,WindingRule);
pts=0;
 
for(i=0;i<hrap_grid->maxi-1;i++) {
 
for(j=0;j<hrap_grid->maxj-1;j++) {
 
             value=(float)spf->value[i][j]/100;
 
             if(value<=0.01 && value >=-0.01)
                          continue;
 
             for(k=0;k<15;k++) {
 
                     if(value >= delim[k] &&
                        value <  delim[k+1]) {
 
                                          color=xmap[k];
                                          break;
 
                    }
                     
                  } 
 
              if(k==15)
                     color=xmap[15];
 
              if(value < -99.98)
                     color=nmap[16]; 
                     
              if(color==0)
                        continue;
  
              pts++;
 
              XSetForeground(display,gc,color);
 
              if(zoom <= 1) {
 
              for(k=0;k<4;k++) {               
 
                  nx[k]=xmin+(float)hrap_grid->coord[i+di[k]][j+dj[k]].x*cmult;                
                  ny[k]=ymin+(float)hrap_grid->coord[i+di[k]][j+dj[k]].y*cmult;
 
        }
        }
 
              else {
 
                 for(k=0;k<4;k++) {               
 
                     nx[k]=xmin+((float)hrap_grid->coord[i+di[k]][j+dj[k]].x*
                           cmult-lint1)*zoom + xcen;
                     ny[k]=ymin+((float)hrap_grid->coord[i+di[k]][j+dj[k]].y*
                           cmult-lint2)*zoom + ycen;
                   
 
           }
 
           }
 
           
              for(k=0;k<4;k++) {
 
                        point[k].x=(nx[k]+5)/MY;
                        point[k].y=(ny[k]+5)/MY;
 
 
              }
           
              point[4].x=point[0].x;
              point[4].y=point[0].y;
 
              XFillPolygon(display,pixm,gc,point,5,Convex,CoordModeOrigin);
 
                                          
                 }
 
}
 
return;
 
}