set ival 0.5

while {$ival<3 } {
  cs iset $ival
  wait 21
  cs iset -$ival
  wait 21
}