Changes between Initial Version and Version 1 of PerllabelCacheMemberObj
- Timestamp:
- Jan 29, 2009, 10:33:49 AM (15 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
PerllabelCacheMemberObj
v1 v1 1 = labelCacheMemberObj = 2 {{{ 3 #!perl 4 my ($label,$box_minx,$box_miny,$box_maxx,$box_maxy,$text); 5 while ( $label = $map->nextLabel() ) { # ** labelCacheMemberObj ** 6 if ( $label->{status} ) { 7 my $point = $label->{point}; 8 $box_minx = $point->{x} - 15; 9 $box_miny = $point->{y} - 10; 10 $box_maxx = $point->{x} + 15; 11 $box_maxy = $point->{y} + 10; 12 $text = "String = $label->{string}"; 13 } 14 } 15 }}} 16 ---- 17 back to PerlMapScript