~mdw
/
rocl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Release 1.1.6.
[rocl]
/
elite-tantalus
diff --git
a/elite-tantalus
b/elite-tantalus
index
478d5ba
..
ac5837e
100755
(executable)
--- a/
elite-tantalus
+++ b/
elite-tantalus
@@
-31,7
+31,7
@@
for {set i 0} {$i < [llength $argv]} {incr i} {
}
default {
break
}
default {
break
- }
+ }
}
}
}
}
@@
-69,8
+69,8
@@
foreach g $gg {
set dd [$lv get $i $j]
set r [expr {$dd/"$d.0"}]
if {$r >= $minratio} {
set dd [$lv get $i $j]
set r [expr {$dd/"$d.0"}]
if {$r >= $minratio} {
- puts [format "%14s %
-8s -> %-8s %5.1f %5.1f (%5
.1f)" \
- $g [world
name $w] [worldname
$ww] \
+ puts [format "%14s %
s -> %s %4.1f %5.1f (%4
.1f)" \
+ $g [world
-brief $w] [world-brief
$ww] \
[expr {$d/10.0}] [expr {$dd/10.0}] $r]
}
}
[expr {$d/10.0}] [expr {$dd/10.0}] $r]
}
}
@@
-79,4
+79,3
@@
foreach g $gg {
$lv destroy
$pv destroy
}
$lv destroy
$pv destroy
}
-