Вот мой вариант сам переводил с писи графики

http://zxaaa.untergrund.net/view_demo.php?id=7143