Changes between Initial Version and Version 1 of PerlShapeObj4

Timestamp:

Jan 29, 2009, 11:26:08 AM (15 years ago)

Author:

jmckenna

Comment:

--

PerlShapeObj4

@@ +1 @@
+= shapeObj =
+
+== drawing lines with mapscript ==
+ 
+...class definition in the map file needed a style section (even if it is empty)...
+{{{
+#!perl
+$layer = $map->getLayerByName('line_layer');
+$layer->{status} = 1;
+my $linePoint1 = new mapscript::pointObj();
+$linePoint1->{x} = 272048; $linePoint1->{y} = 199772;
+my $linePoint2 = new mapscript::pointObj();
+$linePoint2->{x} = 272450; $linePoint2->{y} = 200074;
+my $line = new mapscript::lineObj();
+$line->add($linePoint1);
+$line->add($linePoint2);
+my $shape = new mapscript::shapeObj($mapscript::MS_SHAPE_LINE);
+$shape->add($line);
+$shape->{text} = "LINE TEXT";
+$shape->draw($map, $layer, $img);
+}}}
+----------------------------------
+{{{
+LAYER
+NAME "line_layer"
+STATUS ON
+PROJECTION
+"init=epsg:26958"
+END
+TYPE LINE
+CLASS
+STYLE
+END
+LABEL
+ANGLE AUTO
+FONT arial
+TYPE TRUETYPE
+POSITION UC
+SIZE 7
+COLOR 0 0 0
+END
+COLOR 0 0 0
+SIZE 10
+END
+END
+}}}
+----
+back to PerlMapScript