# Scale the box and colon circles by a scale factor
sub scale {
    my($bx, $tc, $bc) = @_; 

    $selw  = $baseelw * $scale;                      # Scale the element width

    @$bx = map {$_ * $scale} @baseBox;              # Scale elements
    @$tc = map {$_ * $scale} @baseTopColon;
    @$bc = map {$_ * $scale} @baseBotColon;

    ++$scale;                             # Bump for next cycle
    return;
}