#description: Smooth bottomed stairs

=comment

Smooth-bottom stairs, made from inverted wedges

=cut

configure({
 'Max stair height'=>.75,
});

$tx->{'base'} = $textures[0] if defined($textures[0]);

#include 'stairs'

my $br;

my $z = ($h/2)-$stairheight;
my $y = (0-($w/2))-($stairwidth);

for (; $numstairs > 1; $numstairs--) {
 $z -= $stairheight;
 $y += $stairwidth;
 $br = $bunch->addBrush(solid, wedge(), 0,$y,$z, $stairwidth*2,$l,$stairheight*2, $tl->texture($tx->{'base'}),180,0,0);
}
if ($extrastairheight > 0) { 
 $z -= (($stairheight+$extrastairheight)/2);
 $y += $stairwidth;
 $br = $bunch->addBrush(solid, wedge(), 0,$y,$z, $stairwidth*2,$l,$extrastairheight*2, $tl->texture($tx->{'base'}),180,0,0);
}
