Changes between Initial Version and Version 1 of PerllineObj


Ignore:
Timestamp:
Jan 29, 2009, 10:42:14 AM (13 years ago)
Author:
jmckenna
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • PerllineObj

    v1 v1  
     1= lineObj =
     2{{{
     3#!perl
     4$line = new mapscript::lineObj();
     5$numpoints = $line->{numpoints};
     6for($j=0; $j<$numpoints; $j++) {
     7  $point = $line->get($j);
     8}
     9
     10my $line = new mapscript::lineObj();
     11my $point = new mapscript::pointObj();
     12while (<POINTS>) {
     13  $point->{x} = $long;
     14  $point->{y} = $lat;
     15  $line->add($point);
     16}
     17}}}
     18----
     19back to PerlMapScript