-
-
Notifications
You must be signed in to change notification settings - Fork 362
PerllabelCacheMemberObj
Thomas Bonfort edited this page Apr 6, 2012
·
2 revisions
#!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 PerlMapScrip