wiki:PerllineObj

lineObj

$line = new mapscript::lineObj();
$numpoints = $line->{numpoints};
for($j=0; $j<$numpoints; $j++) {
  $point = $line->get($j);
}

my $line = new mapscript::lineObj();
my $point = new mapscript::pointObj();
while (<POINTS>) {
  $point->{x} = $long;
  $point->{y} = $lat;
  $line->add($point);
}

back to PerlMapScript

Last modified 13 years ago Last modified on Jan 29, 2009, 10:42:14 AM