= lineObj = {{{ #!perl $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 () { $point->{x} = $long; $point->{y} = $lat; $line->add($point); } }}} ---- back to PerlMapScript