=comment

Like a stone staircase, all solid underneath

=cut

#description: Solid stairs

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

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

#include 'stairs'

my $br;

my $tmph=$stairheight*($numstairs-1);
my $z=0-($stairheight/2);
my $y=0-(($w-$stairwidth)/2);

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

