[libchamplain] Increased the zoom level.

[Pierre-Luc Beaudoin <plbeaudoin src gnome org>]

commit c70e1e4f6038e5daa2f4cb3612d360075d9a5e4f
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Sun Jun 14 19:00:47 2009 +0200

    Increased the zoom level.
    
    Ideally a higher zoom level would be used but clutter 0.8 doesn't cooperate too
    much and sends the view to antartica. In clutter 1.0 this will be fixed. In the
    meanwhile 8 is the higher usable zoom level at startup.

 bindings/perl/Champlain/examples/polygons.pl |  178 ++++++++++++++++++++++++++
 1 files changed, 178 insertions(+), 0 deletions(-)
---
diff --git a/bindings/perl/Champlain/examples/polygons.pl b/bindings/perl/Champlain/examples/polygons.pl
new file mode 100755
index 0000000..9330978
--- /dev/null
+++ b/bindings/perl/Champlain/examples/polygons.pl
@@ -0,0 +1,178 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Glib qw(TRUE FALSE);
+use Clutter qw(-threads-init -init);
+use Champlain;
+use FindBin;
+use File::Spec;
+
+
+my $PADDING = 10;
+
+
+exit main();
+
+
+sub main {
+	
+	my $stage = Clutter::Stage->get_default();
+	$stage->set_size(800, 600);
+	
+	# Create the map view
+	my $map = Champlain::View->new();
+	$map->set_scroll_mode('kinetic');
+	$map->set_size(800, 600);
+	$stage->add($map);
+	
+	# Create the zoom buttons
+	my $buttons = Clutter::Group->new();
+	$buttons->set_position($PADDING, $PADDING);
+	$stage->add($buttons);
+	
+	my $button = make_button("Zoom in", sub {
+		$map->zoom_in();
+	});
+	$buttons->add($button);
+	my ($width) = $button->get_size();
+	
+	$button = make_button("Zoom out", sub {
+		$map->zoom_out();
+	});
+	$buttons->add($button);
+	$button->set_position($width + $PADDING, 0);
+	
+	# Draw on the map
+	draw_polygons($map);
+	
+	# Finish initializing the map view
+	$map->set_property("zoom-level", 8);
+	$map->center_on(45.466, -73.75);
+	
+	# Middle click to get the location in the map
+	$map->set_reactive(TRUE);
+
+	$stage->show_all();
+	
+	Clutter->main();
+	
+	return 0;
+}
+
+
+#
+# Draw some polygons over the map.
+#
+sub draw_polygons {
+	my ($map) = @_;
+	
+	my $polygon;
+	
+	# Draw a line
+	$polygon = Champlain::Polygon->new();
+	
+	# Cheap approximation of Highway 10 aka "La 10"
+	$polygon->append_point(45.4095, -73.3197);
+	$polygon->append_point(45.4104, -73.2846);
+	$polygon->append_point(45.4178, -73.2239);
+	$polygon->append_point(45.4176, -73.2181);
+	$polygon->append_point(45.4151, -73.2126);
+	$polygon->append_point(45.4016, -73.1926);
+	$polygon->append_point(45.3994, -73.1877);
+	$polygon->append_point(45.4000, -73.1815);
+	$polygon->append_point(45.4151, -73.1218);
+
+	$polygon->set_stroke_width(5.0);
+	$map->add_polygon($polygon);
+
+
+	# Draw a polygon
+	$polygon = Champlain::Polygon->new();
+	$polygon->append_point(45.1386, -73.9196);
+	$polygon->append_point(45.1229, -73.8991);
+	$polygon->append_point(45.0946, -73.9531);
+	$polygon->append_point(45.1085, -73.9714);
+	$polygon->append_point(45.1104, -73.9761);
+
+	$polygon->set_fill(TRUE);
+	$polygon->set("closed-path", TRUE);
+	$map->add_polygon($polygon);
+}
+
+
+#
+# Creates a button and registers the given callback. The callback will be called
+# each time that the button is clicked.
+#
+sub make_button {
+	my ($text, $callback) = @_;
+
+	my $button = Clutter::Group->new();
+
+	my $white = Clutter::Color->new(0xff, 0xff, 0xff, 0xff);
+	my $button_bg = Clutter::Rectangle->new($white);
+	$button->add($button_bg);
+	$button_bg->set_opacity(0xcc);
+
+	my $black = Clutter::Color->new(0x00, 0x00, 0x00, 0xff);
+	my $button_text = Clutter::Label->new("Sans 10", $text, $black);
+	$button->add($button_text);
+	my ($width, $height) = $button_text->get_size();
+
+	$button_bg->set_size($width + $PADDING * 2, $height + $PADDING * 2);
+	$button_bg->set_position(0, 0);
+	$button_text->set_position($PADDING, $PADDING);
+	
+	
+	$button->set_reactive(TRUE);
+	$button->signal_connect('button-release-event', $callback);
+
+	return $button;
+}
+
+
+sub create_marker_layer {
+	my ($map) = @_;
+	my $layer = Champlain::Layer->new();
+
+	my $orange = Clutter::Color->new(0xf3, 0x94, 0x07, 0xbb);
+	my $white = Clutter::Color->new(0xff, 0xff, 0xff, 0xff);
+	
+	my $marker;
+	
+	$marker = Champlain::Marker->new_with_text("Montr\x{e9}al", "Airmole 14");
+	$marker->set_position(45.528178, -73.563788);
+	$marker->set_reactive(TRUE);
+	$marker->signal_connect_after("button-release-event", \&marker_button_release_cb, $map);
+	$layer->add($marker);
+
+	$marker = Champlain::Marker->new_with_text("New York", "Sans 15", $white);
+	$marker->set_position(40.77, -73.98);
+	$layer->add($marker);
+
+	my $file = File::Spec->catfile($FindBin::Bin, 'images', 'who.png');
+	eval {
+		$marker = Champlain::Marker->new_from_file($file);
+		$marker->set_position(47.130885, -70.764141);
+		$layer->add($marker);
+	};
+	if (my $error = $@) {
+		warn "Failed to load image $file because $error";
+	}
+
+	$layer->show();
+	return $layer;
+}
+
+
+sub map_view_button_release_cb {
+	my ($actor, $event, $map) = @_;
+	return FALSE unless $event->button == 2 && $event->click_count == 1;
+
+	my ($lat, $lon) = $map->get_coords_from_event($event);
+	printf "Map was clicked at %f, %f\n", $lat, $lon;
+	return TRUE;
+}
+