The source code is proposed by meizz (plum snow). In the original text: http://community.9cbs.net/expert/topic/3811/3811571.xml? Temp = .7770502 slightly modified:
