Changes between Initial Version and Version 1 of PerlpointObj

Timestamp:

Jan 29, 2009, 10:45:21 AM (15 years ago)

Author:

jmckenna

Comment:

--

PerlpointObj

@@ +1 @@
+= pointObj =
+{{{
+#!perl
+$point = new mapscript::pointObj();
+
+$point->{x} = 100;
+
+$pointx = $point->{x};
+$pointy = $point->{y};
+
+my $distance = $point->distanceToPoint($garagepoint);
+
+$point->project($in_proj,$out_proj);
+
+my $point = $label->{point};
+
+$box_minx = $point->{x} - 15;
+
+$line->add($point);
+}}}
+----
+back to PerlMapScript