+sub get_icon {
+ my $zoom = shift;
+ $imicon = GD::Image->newFromPng( $zoom > 7 ? $icon2 : $icon1 ) ;
+ # Calculate which icon to use based on zoom...
+
+ my $custom_icon = "$name/icons/$zoom.png";
+ $imicon = GD::Image->newFromPng( $custom_icon ) if -e $custom_icon;
+
+ my $xiconpix = $imicon->width;
+ my $yiconpix = $imicon->height;
+
+ # FIXME make click position configurable
+ my $xiconoff = $xiconpix / 2;
+ my $yiconoff = $yiconpix / 2;
+
+ return ( $xiconpix, $yiconpix, $xiconoff, $yiconoff );
+}