/* -------------------------------------------------------------------------
/*                               GIS Laboratory
/*               Division of Geological and Planetary Sciences 
/*                                  Caltech            
/* -------------------------------------------------------------------------
/* Program  : DLG_TO_ROAD-COV.AML 
/* Purpose  : Convert 1:100,000 DLG data to coverages 
/* -------------------------------------------------------------------------
/* Calls    : none   
/* Called by: none
/* -------------------------------------------------------------------------
/* Arguments: prefix - prefix of each of the eight dlg files 
/*                     (e.g., mz1rdf0 for mz1rdf01)
/* Globals  : none
/* -------------------------------------------------------------------------
/* Notes    : 
/* -------------------------------------------------------------------------
/* History  : 04/04/98 - Tony Soeller; program created
/* =========================================================================
   &args  prefix
/*.
   &s amlname = dlg_to_road-cov.aml

   &severity &error &routine run_away 

   &if [null %prefix%] &then
      &return &inform Usage: &r dlg_to_cov <prefix>


/* Define the name of the coverage to process
   &do id = 1 &to 8
      &s dlg_file %prefix%%id%
      &s cov rd%id%

      &if [exists %cov% -cover] &then
         &do
            &type Coverage %cov% does not exist.  Terminating...
            &return
         &end
     
      dlgarc optional %dlg_file% %cov%
      build %cov% line
      additem %cov%.aat %cov%.aat major1 6 6 i
      additem %cov%.aat %cov%.aat minor1 6 6 i
      
      relate add
         rel
         %cov%.acode
         info
         %cov%-id
         %cov%-id
         linear
         ro
         [unquote ' ']

      tables
         sel %cov%.aat
         calc major1 = rel//major1
         calc minor1 = rel//minor1
         quit

   &end

/* Append the eight coverages
   append rd line all
   rd1
   rd2
   rd3
   rd4
   rd5
   rd6
   rd7
   rd8
   end


/* Project the appended coverage
   project cover rd rd_ll utm11_to_geo.prj

   &return


/****************************************************************************
   &routine run_away
       &s .error_flag 1
       &s ok [close -all]
   &return &inform Error condition in routine (%amlname%)