diff options
Diffstat (limited to 'test/toxy/kb.wid')
-rw-r--r-- | test/toxy/kb.wid | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/toxy/kb.wid b/test/toxy/kb.wid index e447697..9a64d70 100644 --- a/test/toxy/kb.wid +++ b/test/toxy/kb.wid @@ -1,10 +1,10 @@ proc ::toxy::kb {path target remote noctaves size} { set lft [expr {round(5 * $size)}] - set top [expr {5 * $size}] - set bot [expr {100 * $size}] + set top [expr {round(5 * $size)}] + set bot [expr {round(100 * $size)}] set dx [expr {round(17 * $size)}] - set wid [expr {$dx - $size * .5}] - set blbot [expr {$bot * .65}] + set wid [expr {round($dx - $size * .5)}] + set blbot [expr {round($bot * .65)}] $path config -height [expr {$bot + $top}] \ -width [expr {$dx * ($noctaves * 7 + 1) + $lft * 2 - 1}] |