read_maps.c

Go to the documentation of this file.

 
#include "prototypes.h"
 
void read_maps(char *sfname,int smonth,int emonth)
 
{
 
extern double max_lat,min_lat,cen_lon;
extern int isohyets_used;
extern int fgbgflag;
extern Widget top_level;
extern int posit;
extern Widget s_text;
extern void topo_select();
extern void isohyet_select();
extern unsigned car[100];
extern struct maplayer *smaplayer[100];
extern struct MenuItem ktems[100];
extern struct dval dval;
extern void get_hrap_coord();
extern Widget scrollbar;
int i,j,ier,no,zoom,color,ii,lflag,xadd,yadd,type,k,len,jj;
char kbuf[120],*p,*sname[20],nm[50],dbuf[100],fname[50];
char name[50],ebuf[120];
int num[100];
FILE *ft;
long xsize=12800,ysize=9600;
double f1,f2,xo,yo,a,conv=.0174,lat,lon;
struct maplayer *maplayer;
FILE *fp;
int slider_size,scrollm,ivalue,increment,page_increment;
 
/* this will free memory if necessary */
 
isohyets_used=0;
 
for(j=0;j<100;j++)
             num[j]=j;
          
j=0;
jj=0;
 
fp=fopen(sfname,"r");
if(fp==NULL)
          printf("fp is NULL\n");
 
fgets(kbuf,110,fp);
 
p=pars_line(kbuf,"maximum_latitude=",dbuf);
 
if(p!=NULL)
          max_lat=atof(dbuf);
 
else      {
 
          printf("maximum_latitude not specified\n");
          exit(1);
 
    }
 
p=pars_line(kbuf,"minimum_latitude=",dbuf);
if(p!=NULL)
          min_lat=atof(dbuf);
 
else      {
 
          printf("minimum_latitude not specified\n");
          exit(1);
 
    }
 
p=pars_line(kbuf,"center_longitude=",dbuf);
if(p!=NULL)
          cen_lon=atof(dbuf);
 
 
else      {
 
          printf("center_longitude not specified\n");
          exit(1);
 
    }
 
 
f1=cos(max_lat*conv)/(1+sin(max_lat*conv));
f2=cos(min_lat*conv)/(1+sin(min_lat*conv));
 
a=ysize/(f1-f2);
yo=a*f1;
xo=xsize/2;
 
dval.a=a;
dval.yo=yo;
dval.xo=xo;
dval.lo=cen_lon;
lflag=0;
 
for(ii=0;ii<100;ii++) {
 
        p=fgets(kbuf,110,fp);
        if(p==NULL) 
                 break;
 
        ier=strlen(kbuf);
        kbuf[ier-1]=0;
 
        nm[0]=0;
 
        p=pars_line(kbuf,"name=",nm);
        fname[0]=0;
 
        p=pars_line(kbuf,"topography=",fname);
        if(p!=NULL) {
 
                    sname[j]=calloc(1,strlen(nm)+1);
                    strcpy(sname[j],nm);
                    ktems[j].label=sname[j];
                    ktems[j].callback=topo_select;
                    ktems[j++].callback_data=NULL;
                    strcat(nm,"\n");
                    posit=posit+strlen(nm);
                    XmTextInsert(s_text,posit,nm);
 
                    XtVaGetValues(scrollbar,XmNmaximum,&scrollm,NULL);
                    XmScrollBarGetValues(scrollbar,&ivalue,&slider_size,
                                    &increment,&page_increment);
                    XmScrollBarSetValues(scrollbar,scrollm-slider_size,
                                    slider_size,increment,page_increment,True);
 
                    XmUpdateDisplay(top_level);
                    get_topo_coord(fname);
                            
                    continue;
 
          }
 
        p=pars_line(kbuf,"isohyets=",fname);
        if(p!=NULL) {
 
                    sname[j]=calloc(1,strlen(nm)+1);
                    strcpy(sname[j],nm);
                    ktems[j].label=sname[j];
                    ktems[j].callback=isohyet_select;
                    ktems[j++].callback_data=NULL;
                    strcat(nm,"\n");
                    posit=posit+strlen(nm);
                    XmTextInsert(s_text,posit,nm);
 
                    XtVaGetValues(scrollbar,XmNmaximum,&scrollm,NULL);
 
                    XmScrollBarGetValues(scrollbar,&ivalue,&slider_size,
                                    &increment,&page_increment);
 
 
                    XmScrollBarSetValues(scrollbar,scrollm-slider_size,
                                    slider_size, increment,page_increment,True);
                    XmUpdateDisplay(top_level);
 
                    get_isohyet_coord(fname,smonth,emonth);
                             
                    continue;
 
          }
 
        p=pars_line(kbuf,"fmap=",fname);
        if(p!=NULL) 
                   continue;
 
        p=pars_line(kbuf,"background=",fname);
        if(p==NULL) 
                   continue;
 
        ft=fopen(fname,"r");
 
        if(ft==NULL) 
                   continue;
 
 
        p=fgets(ebuf,100,ft);
   
        ier=sscanf(ebuf,"%s %s %s %s %s",dbuf,dbuf,dbuf,dbuf,dbuf);
 
        type=0;
        if(ier > 4)
                 type=1;
 
        rewind(ft);
  
        p=pars_line(kbuf,"char=",dbuf);
        if(p!=NULL) {
 
                    *p=toupper(*p);
                    
                    car[j]=*p;
                  
                    }
 
        else
                   car[j]=-1;
 
        color=8;
        p=pars_line(kbuf,"color=",dbuf);
        if(p!=NULL)
                 color=atoi(dbuf);
 
 
        if(lflag==1){
 
           maplayer->nextseg=(struct maplayer *)calloc(1,sizeof(struct maplayer));
           if(maplayer->nextseg==NULL)
                                 printf("no memory\n");
 
           maplayer=maplayer->nextseg;
 
             }
 
        else     {
 
              sname[j]=calloc(1,strlen(nm)+1);
              strcpy(sname[j],nm);
              ktems[j].label=sname[j];
              ktems[j].callback=map_select;
              ktems[j].callback_data=(XtPointer)num[jj];
              j++;
              maplayer=(struct maplayer *) calloc(1,sizeof(struct maplayer));
              smaplayer[jj++]=maplayer;
 
        }
 
       if(lflag==0) {
  
               strcat(nm,"\n");
               posit=posit+strlen(nm);
               XmTextInsert(s_text,posit,nm);
 
               XtVaGetValues(scrollbar,XmNmaximum,&scrollm,NULL);
               XmScrollBarGetValues(scrollbar,&ivalue,&slider_size,
                                    &increment,&page_increment);
               XmScrollBarSetValues(scrollbar,scrollm-slider_size,slider_size,
                                    increment,page_increment,True);
 
               XmUpdateDisplay(top_level);
 
                     }             
 
 
       lflag=0;
       p=pars_line(kbuf,"link",dbuf);
       if(p!=NULL)
                     lflag=1;
 
        p=fgets(kbuf,100,ft);
 
        if(p==NULL)
                 continue;
 
        for(;;) {
           
           if(type==0) {
 
           sscanf(kbuf,"%d %d",&no,&zoom);
 
           maplayer->name=NULL;
           maplayer->zoom=zoom;
           maplayer->number=no;
           maplayer->color=color;
 
           maplayer->points=(struct mappoints *)calloc(no,sizeof(struct mappoints));
 
           if(maplayer->points==NULL)
                            printf("no memory\n");
 
           for(i=0;i<no;i++) {
 
                p=fgets(kbuf,100,ft);
                if(p==NULL) {
 
                      maplayer->nextseg=NULL;
                      break;
 
               }
 
                sscanf(kbuf,"%lf %lf",&lon,&lat);
                lon=-lon;
 
                maplayer->points[i].x=a * cos(lat*conv)/(1+sin(lat*conv))*
                                       cos((lon-cen_lon-90)*conv) + xo;
                         
                maplayer->points[i].y=a * cos(lat*conv)/(1+sin(lat*conv))*
                                       sin((lon-cen_lon-90)*conv) + yo;
 
          
                            }
 
 
 
     }
 
         else {
 
              i=0;
              k=0;
              
              while(kbuf[i] != 0) 
                          if(kbuf[i++] != ' ')
                                        break;
 
              while(kbuf[i] !=0)
                          if(kbuf[i++] == ' ')
                                        break;
 
              while(kbuf[i] != 0 )
                          if(kbuf[i++] != ' ')
                                        break;
              i--;
              while(kbuf[i] != 0) {
 
                         name[k]=kbuf[i];
 
                         if(kbuf[i+1]==' ' && kbuf[i+2]==' ')
                                             break;
                         i++;                       
                         k++;
 
                                    }
 
               if(kbuf[i]==0){
                            printf("error in format %s\n",sname[j]);
 
                            break;
 
              }
 
               name[k+1]=0;            
 
               ier=sscanf(&kbuf[i+1],"%d %d %d",&xadd,&yadd,&zoom);
 
               if(ier != 3) {
                           printf("error in format %s\n",sname[j]);
 
                           break;
 
              }
 
               p=pars_line(kbuf,"-center",dbuf);
 
               if(p==NULL)
                          maplayer->number=0;
 
               else
                          maplayer->number=1;      
 
               p=fgets(kbuf,100,ft);
               if(p==NULL)
                         break;
 
 
               maplayer->zoom=zoom;
               maplayer->xmax=xadd;
               maplayer->ymax=yadd;
               maplayer->color=color;
               sscanf(kbuf,"%lf %lf",&lon,&lat);
               lon=-lon;
 
               maplayer->points=(struct mappoints *)calloc(1,sizeof(struct mappoints));
               maplayer->points[0].x=a * cos(lat*conv)/(1+sin(lat*conv))*
                                       cos((lon-cen_lon-90)*conv) + xo;
                         
               maplayer->points[0].y=a * cos(lat*conv)/(1+sin(lat*conv))*
                                       sin((lon-cen_lon-90)*conv) + yo;
         
               len=strlen(name);
 
               maplayer->name=(char *) calloc(len + 1,sizeof(char));
               strcpy(maplayer->name,name);
 
     }
 
           p=fgets(kbuf,100,ft);
           if(p==NULL) {
 
                      maplayer->nextseg=NULL;
                      break;
 
            }
               
           maplayer->nextseg=(struct maplayer *)calloc(1,sizeof(struct maplayer));
           if(maplayer->nextseg==NULL)
                                 printf("no memory\n");
           maplayer=maplayer->nextseg;
 
           }   
 
    
 
     fclose(ft);
 
    }
 
ktems[j].label="Maps Foreground";
ktems[j].callback=foreground_select;
ktems[j++].callback_data=(XtPointer)fgbgflag;
ktems[j].label=NULL;
 
return;
 
}