}
set latest [expr { $time > $latest ? $time : $latest }]
set tint [expr { exp( (-($age >= 0 ? $age : 0) + 0.0) / $e_life ) }]
}
set latest [expr { $time > $latest ? $time : $latest }]
set tint [expr { exp( (-($age >= 0 ? $age : 0) + 0.0) / $e_life ) }]