Changes between Initial Version and Version 1 of PerllabelCacheMemberObj

Timestamp:

Jan 29, 2009, 10:33:49 AM (15 years ago)

Author:

jmckenna

Comment:

--

PerllabelCacheMemberObj

@@ +1 @@
+= labelCacheMemberObj =
+{{{
+#!perl
+my ($label,$box_minx,$box_miny,$box_maxx,$box_maxy,$text);
+while ( $label = $map->nextLabel() ) { # ** labelCacheMemberObj **
+  if ( $label->{status} ) {
+    my $point = $label->{point};
+    $box_minx = $point->{x} - 15;
+    $box_miny = $point->{y} - 10;
+    $box_maxx = $point->{x} + 15;
+    $box_maxy = $point->{y} + 10;
+    $text = "String = $label->{string}";
+  }
+}
+}}}
+----
+back to PerlMapScript