# 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];

    foreach my $i(0 .. $#$bx) {                      # Return scaled elements
        $_[0][$i] = @$bx[$i];                        #    via references
    }
    foreach my $i(0 .. $#$tc) {
        $_[1][$i] = @$tc[$i];
    }
    foreach my $i(0 .. $#$bc) {
        $_[2][$i] = @$bc[$i];
    }
    $scale = $scale + 1;                             # Bump for next cycle
    return;
}

##</code><code>##

# 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;
}