Wicked Cool Perl Scripts

#40 Getting the Map

In simple terms, this module gets a map. There are a number of details that have to be handled to do this.

The input to this module is a map description. It consists of the following elements:

center	The center of the map
type	Type of map (a topographical map or aerial photograph)
scale	The scale of the map
size	The height and width of the map

The output consists of a matrix of image tiles that, when put together, make a map.

The Code

 1 use strict; 2 use warnings; 3 4 # 5 # This module contains all the functions that 6 # deal with the map server 7 # and manipulate coordinates 8 # 9 10 package map; 11 12 require Exporter; 13 use vars qw/@ISA @EXPORT $x_size $y_size $scale/; 14 15 @ISA = qw/Exporter/; 16 @EXPORT=qw/ 17 $x_size ...