animebodyを見てちょっと作り直した
Rキーでシミュレーションスタート
http://epoiss.hp.infoseek.co.jp/apps/20040704.zip
あんまり凝った機能はないです(^^;