interval.rb

# coding: utf-8

require 'fiber'

def set_interval(millisec, &block)
	Fiber.new do
		end_time = Time.now.to_i + millisec
		loop do
			if Time.now.to_i > end_time
				end_time = Time.now.to_i + millisec
				block.call if block_given?
			else
				sleep 0.02
				chomp = Fiber.yield
				case chomp
				when Fixnum
					end_time += chomp - millisec
					millisec = chomp
				when 'Quit'
					break
				end
			end
		end
	end
end

def clear_interval(interval_obj)
	interval_obj.resume 'Quit'
end