#description: Spiral stairs - not finished

=comment

Spiral stairs. Not finished. width/depth is always 16, height scales,
angle of top and bottom stairs unpredictable

=cut

# ignore all parameters for now, just try to build a spiral

# w/l are fixed at 16 for now

my $br;

#$staircasew=$w>$l?$w:$l;
$staircasew=16;

$bunch->addBrush(water()+align_by_sides(),cylinder()+eightsided(), 0,0,0, $staircasew,$staircasew,$h, $tl->texture($textures[0]), 0,0,11.25);
$bunch->addBrush(evaporate()+align_by_sides(),cylinder()+eightsided(), 0,0,0, $staircasew,$staircasew,$h, $tl->texture($textures[0]), 0,0,33.75);
$bunch->addBrush(water2solid()+align_by_sides(),cylinder()+eightsided(), 0,0,0, $staircasew,$staircasew,$h, $tl->texture($textures[0]), 0,0,11.25);

my $bunch2=Cowgen::Bunch->create('bunch');

$stairheight=.75;

#$z=-15.5;
#$z=(0-($h/2))+($stairheight/2);

#for ($z=0;$z<2;$z++) {
#for ($i=0;$i<18;$i++) {
#for ($z=-16;$z<=16;$z+=.8) {
#for ($z=-16;$z<=16;$z+=$stairheight) {

for ($z=(0-($h/2))+($stairheight/2);$z<=($h/2)-($stairheight/2);$z+=$stairheight) {

 $br=$bunch2->addBrush(solid(), wedge(), -3,3,$z, 6,$stairheight,6, $tl->texture($textures[0]),0,90,0);
 $br=$bunch2->addBrush(solid(), cube(), -7.25,1.5,$z, 3,2.5,$stairheight, $tl->texture($textures[0]),0,0,0);
 $br=$bunch2->addBrush(solid(), wedge(), -7.25,4.5,$z, 3,$stairheight,2.5, $tl->texture($textures[0]),0,270,0);

 $bunch2->rotate(0,0,22.5);
} 

$bunch2->rotate(0,0,292.5);



$bunch->merge($bunch2);

$bunch->addBrush(solid()+align_by_sides(),cylinder()+eightsided(), 0,0,0, 4,4,$h, $tl->texture($textures[0]));

