plot_fstations.c

Go to the documentation of this file.

 
#include "prototypes_new.h"
 
 
void plot_fstations(Drawable pix,int h,int type,int k,int display_flag)
 
{
 
extern int flf_on;
extern int qpf_on;
extern int fstation_focus;
extern int wfo_all;
struct tag tag[20];
extern int wfo_in_use[20];
extern int ifcst;
extern struct fstation fstation[500];
extern int max_fstations;
extern struct fdata fdata[60];
extern struct dval dval;
extern int npoint[2],zoom;
extern GC gc;
extern unsigned long qmap[16];
extern Widget drawing_area;
extern Display *display;
extern Font font[10];
extern XFontStruct *info_font[10];
extern struct station station[3000];
extern int max_stations;
extern int dflag[10];
extern int qflag[10];
extern long amap[16];
int i,xc,yc,text_width,length,m;
int x1,y1,xadd,yadd,MY=10;
float xrat,yrat,mult,dmult,cmult;
long xmin,xmax,ymin,ymax;
signed long xcen,ycen,lint1,lint2;
Dimension width,height;
Arg args[10];
signed long XSIZE,YSIZE;
extern struct display_set display_set[4];
long r,s;
float conv=.0174;
float lat,lon;
char tbuf[100],mbuf[100];
int yheight;   
struct tm *gm;
int time_pos;
time_t ltime;
extern int funct[];
int mm,ii;
 
XSetFont(display,gc,font[4]);
 
yheight=info_font[4]->ascent;
 
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;
 
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];
 
lint1=(long)npoint[0]*(long)MY;
lint2=(long)npoint[1]*(long)MY;
 
cmult=mult*dmult;
 
for(ii=0;ii<max_fstations;ii++) {
 
     if(wfo_all!=1) {
     
     for(h=0;h<20;h++) {
 
             if(wfo_in_use[h] == -1)
                                     break;
 
             if(fstation[ii].owner==wfo_in_use[h])
                                     break;          
 
       }
 
     if(wfo_in_use[h]==-1) 
                            continue;
                                                    
     }
     
     if(qpf_on==1 && fstation[ii].qpf==-1)
                        continue;
                        
 
     if(flf_on==1 && fstation[ii].frz==-1)
                        continue;
         
     i=fstation[ii].index;
     
     lat=station[i].lat;
     lon=station[i].lon;
 
     r=dval.a * cos(lat*conv)/(1+sin(lat*conv))
       * cos((lon-dval.lo-90)*conv) + dval.xo +.5;
 
     s=dval.a * cos(lat*conv)/(1+sin(lat*conv))
       * sin((lon-dval.lo-90)*conv) + dval.yo + .5;       
             
     if(zoom==1) {
 
           x1=(xmin+(float)r * cmult)/MY;
           y1=(ymin+(float)s * cmult)/MY;
 
                                }
 
     else      {
 
           x1=(((xmin+(float)r*cmult)-lint1)*zoom+xcen)/MY;
           y1=(((ymin+(float)s*cmult)-lint2)*zoom+ycen)/MY;
 
     }
 
     
     if(i==fstation_focus)
               XSetForeground(display,gc,qmap[10]);
 
     else
               XSetForeground(display,gc,qmap[15]);
 
     XDrawLine(display,pix,gc,x1+1,y1+1,x1+1,y1-1);
     XDrawLine(display,pix,gc,x1+1,y1-1,x1-1,y1-1);
     XDrawLine(display,pix,gc,x1-1,y1-1,x1-1,y1+1);
     XDrawLine(display,pix,gc,x1-1,y1+1,x1+1,y1-1);
 
     if(type==1)
              strcpy(tbuf,station[i].hb5);
 
     else if(type==2) {
 
              strcpy(tbuf,&station[i].parm[3]);
              tbuf[2]=0;
 
        }
 
     else if(type==3)
              strcpy(tbuf,station[i].name);
 
     else if(type==4 && qpf_on==1) {
 
              if(fdata[k].fstn[i].rain[ifcst] < -999)
                     strcpy(mbuf,"    M");
                     
              else
              sprintf(mbuf,"%5.2f",fdata[k].fstn[i].rain[ifcst]);
 
              if(mbuf[0]=='0')
                    strcpy(tbuf,&mbuf[1]);
 
              else
                    strcpy(tbuf,mbuf);
 
        }
 
     else if(type==4 && flf_on==1) {
 
              if(fdata[k].fstn[i].frz[ifcst] < 0)
                     strcpy(mbuf,"    M");
                     
              else
              sprintf(mbuf,"%5.2f",fdata[k].fstn[i].frz[ifcst]);
 
              if(mbuf[0]=='0')
                    strcpy(tbuf,&mbuf[1]);
 
              else
                    strcpy(tbuf,mbuf);
 
        }
     length=strlen(tbuf);
     text_width=XTextWidth(info_font[4],tbuf,length); 
 
     xadd=station[i].xadd;
     yadd=station[i].yadd;
 
     if(xadd < 0) 
                    xc=x1 - text_width;
                        
     else
                    xc=x1+3;
 
     if(yadd < 0)
                    yc=y1;
 
     else
                    yc=y1+yheight;
 
     XDrawString(display,pix,gc,xc,yc,tbuf,length);
 
}
 
}