Changes between Initial Version and Version 1 of PerlshapeObj

Timestamp:

Jan 29, 2009, 10:57:37 AM (15 years ago)

Author:

jmckenna

Comment:

--

PerlshapeObj

@@ +1 @@
+= shapeObj =
+
+{{{
+#!perl
+$shape = new mapscript::shapeObj(-1);
+
+$shape = new mapscript::shapeObj($mapscript::MS_SHAPE_POLYGON);
+
+$extents = $shape->{bounds};
+
+$minx = $shape->{bounds}->{minx};
+$miny = $shape->{bounds}->{miny};
+$maxx = $shape->{bounds}->{maxx};
+$maxy = $shape->{bounds}->{maxy};
+
+$numlines = $shape->{numlines};
+
+$street_poly->get($result_mem->{shapeindex},$selected_shape); 
+
+my $result_shape = $prcl_dim_layer->getResult(0);
+
+for($i=0; $i<$numshapes; i++) {
+  $shapefile->get($i, $shape);
+  ...
+}
+
+This example retrieves all of the x,y's for all the lines in a polygon shape.
+#
+# Create shape object.
+$shp = new mapscript::shapeObj(-1);
+#
+# Retrieve shape into shape object.
+$shpfile->get(1,$shp);
+#
+# How many lines in shape.
+my $num_lines = $shp->{numlines};
+#
+# Loop through each line.
+for ( $line_num=0; $line_num<$num_lines; $line_num++ ) {
+  #
+  # Get line.
+  my $line = new mapscript::lineObj();
+  $line = $ishp->get($line_num);
+  print "Got Line #$line_num\n";
+  #
+  # How many points in line.
+  my $num_points = $line->{numpoints};
+  #
+  # Loop through each point.
+  for ( $point_num=0; $point_num<$num_points; $point_num++ ) {
+    #
+    # Get the point.
+    my $point = new mapscript::pointObj();
+    $point = $line->get($point_num);
+    print "Got Point #$point_num";
+    $px = $point->{x};
+    $py = $point->{y};
+    print " X=$px Y=$py\n";
+  }
+}
+print "\n";
+
+}}}
+----
+back to PerlMapScript