Select Code to Download

  # Get the points
  my @points=@{ $options->{points} };
...
  }

  my $new_poly=$self->slide->Shapes->AddPolyline($pointlist);

      # Add filled Triangle
      $PPT->add_polyline( {'points'    => [$pptpoints[0], $pptpoints[1
+], $pptpoints[2], $pptpoints[3], $pptpoints[4], $pptpoints[5], $pptpo
+ints[0], $pptpoints[1]],
                           'fillcolor' => &convert2RGBvalues($fill),
                           'weight'    => $weight/px2pt,
                           'forecolor' => &convert2RGBvalues($color) }
+);