+sub get_icon {
+ my $zoom = shift;
+
+ # Calculate which icon to use based on zoom...
+ $imicon = GD::Image->newFromPng( $zoom > 7 ? $icon2 : $icon1 ) ;
+ my $merge = 90;
+
+ my $custom_icon = "$name/icons/$zoom.png";
+ if ( -e $custom_icon ) {
+ $imicon = GD::Image->newFromPng( $custom_icon );
+ $merge = 50;
+ }
+
+ 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, $merge );
+}