Changes between Initial Version and Version 1 of PerllineObj

Timestamp:

Jan 29, 2009, 10:42:14 AM (15 years ago)

Author:

jmckenna

Comment:

--

PerllineObj

@@ +1 @@
+= 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 (<POINTS>) {
+  $point->{x} = $long;
+  $point->{y} = $lat;
+  $line->add($point);
+}
+}}}
+----
+back to PerlMapScript