#description: Pillars and fake pillars

=comment

Creates a row of pillars aligned to south of brush,
and flat "fake" pillars on north side.
Takes default texture

=cut

print "pillars1\n";

$pillar=(($textures[0]==undef)?$tl->texture('civicbui/col01a'):$tl->texture($textures[0]));

$pillarsize=3;
$mininc=12;

$tmpw=$w-$pillarsize;
#$tmpl=$l-$pillarsize;

$incrw=$tmpw/(int($tmpw/$mininc));
#$incrl=$tmpl/(int($tmpl/$mininc));

# columns in front
for ($i=0-($tmpw/2);$i<=($tmpw/2)+1;$i+=$incrw) {
 $brush=$bunch->addBrush(solid(),cylinder()+sixsided(),($l/2)-($pillarsize/2),$i,0,$pillarsize,$pillarsize,$h-1,$pillar);
 $brush=$bunch->addBrush(solid(),cube(),($l/2)-($pillarsize/2),$i,0-($h/2)+.25,$pillarsize,$pillarsize,.5,$pillar);
 $brush=$bunch->addBrush(solid(),cube(),($l/2)-($pillarsize/2),$i,($h/2)-.25,$pillarsize,$pillarsize,.5,$pillar);
}

# fake (flat) columns in back
for ($i=0-($tmpw/2);$i<=($tmpw/2)+1;$i+=$incrw) {
 #$brush=$bunch->addBrush(solid(),cube(), 0-($l/2)+.2,$i,0, $pillarsize,.4,$h-1, $pillar);
 #$brush=$bunch->addBrush(solid(),cube(), 0-($l/2)+.4,$i,0-($h/2)+.25, $pillarsize,.8,.5, $pillar);
 #$brush=$bunch->addBrush(solid(),cube(), 0-($l/2)+.4,$i,($h/2)-.25, $pillarsize,.8,.5, $pillar);
 $brush=$bunch->addBrush(solid(),cube(), 0-($l/2)+.2,$i,0, $pillarsize,.4,$h, $pillar);
}

