plot_fstations_new.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 isom;
extern int flf_on;
extern int qpf_on;
extern int maxmin_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[1000];
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 struct station zstation[750];
extern struct station tstation[1000];
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],tbuf2[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;
            
     if(maxmin_on==1 && fstation[ii].txn==-1)
                        continue;
 
     if(qpf_on==1) {
             
        i=fstation[ii].pindex;
     
        lat=station[i].lat;
        lon=station[i].lon;
     
     }
 
     else if(flf_on==1) {
             
        i=fstation[ii].zindex;
     
        lat=zstation[i].lat;
        lon=zstation[i].lon;
    
    }
    
     else if(maxmin_on==1) {     
             
        i=fstation[ii].tindex;
    
        lat=tstation[i].lat;
        lon=tstation[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;
 
     }
 
      
     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(fstation[ii].selected==1) {
     
     XSetForeground(display,gc,qmap[4]);
     
     XDrawLine(display,pix,gc,x1+5,y1+5,x1+5,y1-5);
     XDrawLine(display,pix,gc,x1+5,y1-5,x1-5,y1-5);
     XDrawLine(display,pix,gc,x1-5,y1-5,x1-5,y1+5);
     XDrawLine(display,pix,gc,x1-5,y1+5,x1+5,y1+5);
 
 
        }
 
 
     XSetForeground(display,gc,qmap[15]);
     if(type==1){
     
              if(qpf_on==1)
              strcpy(tbuf,station[i].hb5);
 
              else if(flf_on==1)
              strcpy(tbuf,zstation[i].hb5);
          
              else if(maxmin_on==1)
              strcpy(tbuf,tstation[i].hb5);
 
              }
 
     else if(type==2) {
              
          if(qpf_on==1)
              strcpy(tbuf,&station[i].parm[3]);
          
          else if(flf_on==1)
              strcpy(tbuf,&station[i].parm[3]);
          
          else if(maxmin_on==1)
              strcpy(tbuf,&tstation[i].parm[3]);
          
              tbuf[2]=0;
 
        }
 
     else if(type==3){
     
              if(qpf_on==1)
              strcpy(tbuf,station[i].name);
     
              else if(flf_on==1)
              strcpy(tbuf,station[i].name);
          
          else if(maxmin_on==1)
              strcpy(tbuf,tstation[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);
 
        } 
     
     else if(type>=4 && maxmin_on==1) {
     
     
              printf("%d %d %f\n",isom,
          fdata[k].fstn[i].tx[ifcst],tstation[i].max[isom]);
 
              if(fdata[k].fstn[i].tx[ifcst] < 0)
                     strcpy(tbuf,"  M");
                   
              else        
              sprintf(tbuf,"%3d %3d",fdata[k].fstn[i].tx[ifcst],
          fdata[k].fstn[i].tx[ifcst]-(int)tstation[i].max[isom]);
          
          if(fdata[k].fstn[i].tn[ifcst] < 0)
                     strcpy(tbuf2,"  M");
                   
              else        
              sprintf(tbuf2,"%3d",fdata[k].fstn[i].tn[ifcst]);
 
        }
        
     length=strlen(tbuf);
     text_width=XTextWidth(info_font[4],tbuf,length); 
 
     if(qpf_on==1) {
     
     xadd=station[i].xadd;
     yadd=station[i].yadd;
 
     }
 
     else if(flf_on==1) {
     
     xadd=zstation[i].xadd;
     yadd=zstation[i].yadd;
 
     }
     
     else if(maxmin_on==1) {
     
     xadd=zstation[i].xadd;
     yadd=zstation[i].yadd;
 
     }
 
     if(xadd < 0) 
                    xc=x1 - text_width;
                        
     else
                    xc=x1+3;
 
     if(yadd < 0)
                    yc=y1;
 
     else
                    yc=y1+yheight;
            
            
     if(maxmin_on==1) {
     
            length=strlen(tbuf);
            XDrawString(display,pix,gc,x1+3,yc-20,tbuf,length);
 
            length=strlen(tbuf2);
        
            XDrawString(display,pix,gc,x1+3,yc,tbuf2,length);
            XDrawLine(display,pix,gc,x1+10,yc-15,x1+17,yc-15);
 
        }
    
     else
        XDrawString(display,pix,gc,xc,yc,tbuf,length);
      
      
     if(type==5) {
     
              if(qpf_on==1) {
          
         
              strcpy(tbuf,station[i].hb5);
          sprintf(mbuf,"(%5.2f)",station[i].isoh[isom]);
              strcat(tbuf,mbuf);
          
          }       
 
 
              else if(flf_on==1)
              strcpy(tbuf,zstation[i].hb5);
          
              else if(maxmin_on==1)
              strcpy(tbuf,tstation[i].hb5);
          
          
          
              length=strlen(tbuf);
              text_width=XTextWidth(info_font[4],tbuf,length); 
 
              XDrawString(display,pix,gc,xc,yc+10,tbuf,length);
     
                }     
 
}
 
}