Select Code to Download

# draw a skewed rectange for each data-point

...
# \-+-/ \+/
#   |    |
# $ppd   - $consts{slant}

if ($params->{dim} == 3) {
  my $face = GD::Polygon->new;
...
  C: $top->addPt($x_pos + $ppd, $yi + $slant_height);
  $image->filledPolygon($top,$hist_top{"@$cRGB"});
}