##
##
##  Reading track irregularities from data  
##  files written in trac- or trax- format.
##
##
 create_curve file_vpair_free  tname= Y_dist  vname= Y_irr
              format="(a,a,x,x,x)" file=ver_data/track_irr_file.trac
 create_curve file_vpair_free  tname= Z_dist  vname= Z_irr
              format="(a,x,a,x,x)" file=ver_data/track_irr_file.trac
 create_curve file_vpair_free  tname= G_dist  vname= G_irr
              format="(a,x,x,a,x)" file=ver_data/track_irr_file.trac
 create_curve file_vpair_free  tname= C_dist  vname= C_irr
              format="(a,x,x,x,a)" file=ver_data/track_irr_file.trac



 page  ----------------------------------------
  overwrite= global
  x_left= 0.
  diagram 11
   curve yvar= Y_irr
         linetext= 'Lateral track center line irregularities'
  diagram 21
   curve yvar= Z_irr 
         linetext= 'Vertical track center line irregularities'
  diagram 31
   curve yvar= G_irr
         linetext= 'Gauge irregularities'
  diagram 41
   curve yvar= C_irr
         linetext= 'Cant irregularities'
 exec