wri.c

Go to the documentation of this file.

 
void write_screen()
 
{
 
Dimension width,height;
Arg args[10];
signed long XSIZE,YSIZE,xsize,ysize,xbegin,ybegin;
int h,time_pos;
char tbuf[100];
time_t ltime;
struct tm *gm;
int yheight;
int ymax;
 
XtSetArg(args[0],XtNwidth,&width);
XtSetArg(args[1],XtNheight,&height);
XtGetValues(drawing_area,args,2);
 
XSIZE=(long)width*10L;;
YSIZE=(long)height*10L;
 
display_set[0].dmult[0]=1.0;
display_set[0].xmin[0]=0;
display_set[0].ymin[0]=0;
display_set[0].xmax[0]=XSIZE;
display_set[0].ymax[0]=YSIZE;
display_set[0].xcen[0]=XSIZE/2;
display_set[0].ycen[0]=YSIZE/2;
display_set[0].xoff[0]=0;
display_set[0].yoff[0]=0;
 
display_set[3].dmult[0]=0.5;
display_set[3].dmult[1]=0.5;
display_set[3].dmult[2]=0.5;
display_set[3].dmult[3]=0.5;
 
for(h=0;h<4;h++) {
 
       display_set[3].xmin[h]=0;
       display_set[3].ymin[h]=0;
       display_set[3].xmax[h]=XSIZE/2-xclip*10;
       display_set[3].ymax[h]=YSIZE/2-yclip*10;
       display_set[3].xcen[h]=XSIZE/4;
 
       display_set[3].ycen[h]=YSIZE/4;
 
 
                  }
 
display_set[3].xoff[0]=0;
display_set[3].yoff[0]=0;
 
display_set[3].xoff[1]=XSIZE/2+xclip*10;
display_set[3].yoff[1]=0;
 
display_set[3].xoff[2]=0;
display_set[3].yoff[2]=YSIZE/2+yclip*10;
 
display_set[3].xoff[3]=XSIZE/2+xclip*10;
display_set[3].yoff[3]=YSIZE/2+yclip*10;
 
ymax= display_set[0].ymax[0];
 
XSetFunction(display,gc,GXcopy);
 
XDefineCursor(display,window,watch_cursor);
 
XmUpdateDisplay(top_level);
 
 
clear_drawable(pixm);
 
h=0;
 
/*create background pixmap */
 
 
if(add_isohyet_flag==1 && isom != old_isom) {
 
            old_isom=isom;
            change_map_flag=1;
 
      }
 
 
if(change_map_flag==1) {
 
            clear_drawable(pixb);
 
 
            if(add_topo_flag==1) {
 
                 if(contour_topo_flag==0)
                 plot_topo(pixb,h,display_flag);
 
                 else
                 contour_topo(pixb,h,display_flag);
  
                 change_map_flag=0;
 
 
           }
 
            if(add_isohyet_flag==1) {
 
                  if(contour_isoh_flag==0)
                     plot_isohyets(isom,pixb,h,display_flag);
 
                  else
                     contour_isohyets(isom,pixb,h,display_flag);
 
                  change_map_flag=0;
 
        }
 
                  }
 
for(h=0;h < display_flag+1;h++) {
 
             if(fgbgflag==-1)
                     draw_map(pixm,h,display_flag);
 
             xsize=display_set[display_flag].xmax[h]-
                   display_set[display_flag].xmin[h];
             ysize=display_set[display_flag].ymax[h]-
                   display_set[display_flag].ymin[h];
 
             xbegin=display_set[display_flag].xoff[h];
             ybegin=display_set[display_flag].yoff[h];
 
/* copy raster backgrounds*/ 
 
             if(add_topo_flag==1 || add_isohyet_flag==1) 
 
                  XCopyArea(display,pixb,pixm,gc,0,0,xsize/10,ysize/10,0,0); 
 
/* maps background */
 
             if(fgbgflag==-1)
                  draw_map(pixm,h,display_flag);
 
 
/* precipitation MAPS */
 
 
             if(qpf_on==1) {
 
             if(map_flag==1) {
 
                      if(pcpn_time_step==0)
                             time_pos=pcp_flag;
 
                      else
                             time_pos=40+pcpn_day;
 
                      plot_map(pixm,h,display_flag,time_pos);
 
                    }
 
/* gridded precipitation */
 
              if(grids_flag==1) {
 
                      if(pcpn_time_step==0)
                             time_pos=pcp_flag;
 
                      else
                             time_pos=40+pcpn_day;
 
 
                       if(contour_pcp_flag==1)   
                                     contour_pcpn(pixm,h,display_flag,
                                                 "pcp",time_pos);
 
                       else
                                     plot_pcpn(pixm,h,display_flag,
                                                 "pcp",time_pos);
      
              }
 
/* NEXRAD data */
 
              if(dflag[0]==1) {
 
                      if(pcpn_time_step==0)
                             time_pos=50+pcp_flag;
 
                      else
                             time_pos=90+pcpn_day;
 
                       if(contour_pcp_flag==1)   
                                     contour_pcpn(pixm,h,display_flag,
                                                  "pcp",time_pos);
 
                       else
                                     plot_pcpn(pixm,h,display_flag, 
                                               "pcp",time_pos);
 
                        }
 
              if(plot_view > 0 && points_flag==1)
                           plot_stations(pixm,plot_view,h,display_flag);
 
              }
 
             else if(flf_on==1) {
             
              if(map_flag==1) {
             
                      time_pos=100+pcp_flag;
                      
                      plot_rsel(pixm,h,display_flag,time_pos);
 
                    }
 
              if(grids_flag==1) {
                     
                       time_pos=100+pcp_flag;
 
                       if(contour_pcp_flag==1)   
                                     contour_frz(pixm,h,display_flag,
                                                 "pcp",time_pos);
 
                       else
                                     plot_frz(pixm,h,display_flag,
                                                 "pcp",time_pos);
                                                 
                          }                       
      
              if(plot_view > 0 && points_flag==1)
                           plot_zstations(pixm,plot_view,h,display_flag);
 
             
                    }
 
 
            /* map backgrounds foreground */     
 
           if(fgbgflag==1)
                      draw_map(pixm,h,display_flag);
 
       }
 
 
if(pcpn_time_step==0)
              time_pos=pcpn_time;
 
else
              time_pos=4;
 
if(qpf_on==1) {
 
if(pcpn_time < 2 && pcpn_time_step==0)
                        ltime=pdata[pcpn_day].data_time - 24L*3600L;
 
else
                        ltime=pdata[pcpn_day].data_time;
             
gm=gmtime(&ltime);
 
sprintf(tbuf,"Precipitation %02d-%02d-%02d",gm->tm_mon+1,gm->tm_mday,gm->tm_year);
 
if(pcpn_time_step==0) {
 
             if(pcpn_time==3)
                    strcat(tbuf," 06z-12z");
             else if(pcpn_time==2)
                    strcat(tbuf," 00z-06z");
             else if(pcpn_time==1)
                    strcat(tbuf," 18z-00z");
             else if(pcpn_time==0)
                    strcat(tbuf," 12z-18z");
       }
 
else
             strcat(tbuf," ending at 12z");
 
XSetForeground(display,gc,qmap[15]);
XSetBackground(display,gc,0);
 
if(pdata[pcpn_day].level==1) 
                                     strcat(tbuf," - Level 1");
 
else if(pdata[pcpn_day].level==2) 
                                     strcat(tbuf," - Level 2");
 
 
if(pdata[pcpn_day].used[time_pos]==4) 
                                     strcat(tbuf," Saved");
 
 
else if(pdata[pcpn_day].used[time_pos]==3 ||
    pdata[pcpn_day].used[time_pos]==2) 
                                     strcat(tbuf," Modified");
 
else if(pdata[pcpn_day].used[time_pos]==1) 
                                     strcat(tbuf," Not Modified");
 
else 
                                     strcat(tbuf," - No Data");
 
XSetFont(display,gc,font[2]);
 
yheight=info_font[2]->ascent;
 
XDrawString(display,pixm,gc,35,ymax/10-yheight,
                           tbuf,strlen(tbuf));
 
}
 
else if(flf_on==1) {
 
time_pos=pcpn_time;
 
if(pcpn_time < 2)
                        ltime=zdata[pcpn_day].data_time - 24L*3600L;
 
else
                        ltime=zdata[pcpn_day].data_time;
             
gm=gmtime(&ltime);
 
sprintf(tbuf,"Freezing Level %02d-%02d-%02d",gm->tm_mon+1,gm->tm_mday,gm->tm_year);
 
if(pcpn_time==3)
                    strcat(tbuf," 06z");
else if(pcpn_time==2)
                    strcat(tbuf," 00z");
else if(pcpn_time==1)
                    strcat(tbuf," 18z");
else if(pcpn_time==0)
                    strcat(tbuf," 12z");
   
XSetForeground(display,gc,qmap[15]);
XSetBackground(display,gc,0);
 
if(zdata[pcpn_day].level[pcpn_time]==1) 
                                     strcat(tbuf," - Level 1");
 
else if(zdata[pcpn_day].level[pcpn_time]==2) 
                                     strcat(tbuf," - Level 2");
                     
 
if(zdata[pcpn_day].used[time_pos]==6) 
                                     strcat(tbuf," Calculated");
                     
 
else if(zdata[pcpn_day].used[time_pos]==4) 
                                     strcat(tbuf," Saved");
 
 
else if(zdata[pcpn_day].used[time_pos]==3 ||
    zdata[pcpn_day].used[time_pos]==2) 
                                     strcat(tbuf," Modified");
 
else if(zdata[pcpn_day].used[time_pos]==1) 
                                     strcat(tbuf," Not Modified");
 
else 
                                     strcat(tbuf," - No Data");
 
XSetFont(display,gc,font[2]);
 
yheight=info_font[2]->ascent;
 
XDrawString(display,pixm,gc,35,ymax/10-yheight,
                           tbuf,strlen(tbuf));
 
}
 
XSetForeground(display,gc,nmap[15]);
 
XSetFunction(display,gc,GXcopy);
 
if(change_topo_flag==1)
             redraw_topo_legend(pixm);
 
else if(change_isohyet_flag==1)
             redraw_isohyet_legend(pixm);
 
else if(change_pcpn_flag==1)
             redraw_pcpn_legend(pixm);
 
else if(change_diff_flag==1)
             redraw_diff_legend(pixm);
 
else if(change_frz_flag==1)
             redraw_frz_legend(pixm);
 
else if(change_rpcpn_flag==1)
             redraw_rpcpn_legend(pixm);
 
else if(first_through != 0)
             redraw_legend_display(pixm);
 
XCopyArea(display,pixm,window,gc,0,0,xsize/10,ysize/10,xbegin/10,ybegin/10);
 
XUndefineCursor(display,window);
 
XDefineCursor(display,window,dotbox_cursor);
 
 
}