Re: after behaviour

hi all
does this proc is ok?

proc doTime {a z g} {
if {[ set ::compteur::ti] == 0 && [ set ::compteur::to] == 200 } {
return
}
variable ::compteur::ti
variable ::compteur::to
set t0 [ set ::init::init1]
set t [ expr {$t0 + $a}]
set t2 [ expr {$t0 + $g*[ incr to]}]
set t1 [ expr {$t0 + $z*[ incr ti -1]}]
after [ expr {$t1-[ clock clicks -milliseconds ]} ] vui
after [ expr {$t2-[ clock clicks -milliseconds ]} ] vuo
after [ expr {$t-[ clock clicks -milliseconds ]} ] [ list doTime $a $z
$g ]
}

.