少し改良してみました。簡単な構造なので説明は省いてます。画質、動画時間も全て省エネということでマイリスト mylist/30195029 TEX-D texture packというテクスチャを使わせてもらってます。
http://www.nicovideo.jp/watch/sm16951729