I dont have any code for you, but there should be some floating about.

Z.