Posted to tcl by scoofy at Sun Mar 30 08:18:28 GMT 2014view pretty

proc toNextTick {} {
	set interval 3600
	set now [clock seconds]
	set quantized [expr {int($now/$interval)*$interval}]
	return [expr {$quantized+$interval-$now}]
}
proc waitNextTick {} {
	after [expr {[toNextTick]*1000}]
}