#description: Hipp roof

=comment

A "hipp" roof, automatically determines whether width or depth is greater

=cut

my $br;

$shingle=$tl->texture('city/blushngl');
$overhang=1;
$hw=$w/2;
$hl=$l/2;

$br = $bunch->addBrush(solid(), cube(), 0,0,(0-($h/2))+0.5, $w+1,$l+1,1, $tl->texture('city/blushngl'));
if ($w==$l) {
 $br=$bunch->addBrush(solid()+align_by_sides(), pyramid()+foursided(), 0,0,.5, $w+1,$l+1,$h-1, $shingle);
} elsif ($l>$w) {
 $br = $bunch->addBrush(solid()+align_by_sides(), pyramid()+foursided(), 0-(($l-$w)/2),0,.5, $w+1,$w+1,$h-1, $shingle);
 $br = $bunch->addBrush(solid()+align_by_sides(), pyramid()+foursided(), ($l-$w)/2,0,.5, $w+1,$w+1,$h-1, $shingle);

 $br = $bunch->addBrush(solid(), wedge(), 0,($w+1)/4,.5, ($w+1)/2,$l-$w,$h-1, $shingle);
 $br = $bunch->addBrush(solid(), wedge(), 0,0-(($w+1)/4),.5, ($w+1)/2,$l-$w,$h-1, $shingle, 0,0,180);
} else {
 $br = $bunch->addBrush(solid()+align_by_sides(), pyramid()+foursided(), 0,0-(($w-$l)/2),.5, $l+1,$l+1,$h-1, $shingle);
 $br = $bunch->addBrush(solid()+align_by_sides(), pyramid()+foursided(), 0,($w-$l)/2,.5, $l+1,$l+1,$h-1, $shingle);

 #$br = $bunch->addBrush(solid(), wedge(), 0-($l+1)/4,0,.5, ($w+1)/2,$l-$w,$h-1, $shingle, 0,0,90);
 #$br = $bunch->addBrush(solid(), wedge(), 0+(($l+1)/4),0,.5, ($w+1)/2,$l-$w,$h-1, $shingle, 0,0,270);

 $br = $bunch->addBrush(solid(), wedge(), 0-($l+1)/4,0,.5, ($l+1)/2,$w-$l,$h-1, $shingle, 0,0,90);
 $br = $bunch->addBrush(solid(), wedge(), 0+($l+1)/4,0,.5, ($l+1)/2,$w-$l,$h-1, $shingle, 0,0,270);
}
