Changes between Initial Version and Version 1 of lineObj
- Timestamp:
- Jan 29, 2009, 10:19:15 AM (15 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
lineObj
v1 v1 1 = lineObj = 2 {{{ 3 #!perl 4 $line = new mapscript::lineObj(); 5 $numpoints = $line->{numpoints}; 6 for($j=0; $j<$numpoints; $j++) { 7 $point = $line->get($j); 8 } 9 10 my $line = new mapscript::lineObj(); 11 my $point = new mapscript::pointObj(); 12 while (<POINTS>) { 13 $point->{x} = $long; 14 $point->{y} = $lat; 15 $line->add($point); 16 } 17 }}} 18 ---- 19 back to PerlMapScript