Wicked Cool Perl Scripts

#41 Map Generator

With this program, the user can view and print topographical maps and aerial photographs of any place in the United States. Its job is to take the data from the mapping module and display it in a way you can use it.

The Code

   1 use strict;
   2 use warnings;
   3
   4 use Tk;
   5 use Geo::Coordinates::UTM;
   6 use HTTP::Lite;
   7 use Tk::Photo;
   8 use Tk::JPEG;
   9 use Tk::LabEntry;
  10 use Tk::BrowseEntry;
  11 use Image::Magick;
  12
  13 use map; 14 use goto_loc; 15 16 my $tk_mw; # Main window 17 my $tk_canvas; # Canvas on the main window 18 my $tk_nav; # Navigation window 19 20 my $goto_long = 0; # Where to go from the entry 21 my $goto_lat = 0; 22 23 # The buttons to display the scale 24 my @tk_scale_buttons; 25 26 ################################################ ...