} elseif {$age < 120} {
lappend newprtimes [format "%3ds" $age]
} else {
- lappend newprtimes [format "%3dm" [expr {$age/120}]]
+ lappend newprtimes [format "%3dm" [expr {$age/60}]]
}
set latest [expr { $time > $latest ? $time : $latest }]
set tint [expr { exp( (-($age >= 0 ? $age : 0) + 0.0) / $e_life ) }]