Nice. bplus your version looks pretty smooth. Playing with it I added *.75 to the putimage to give the tunnel more of a squashed look close to the original animation loop (not perfect circle look).
_PutImage (300 - w2, 300 - w2 * .75)-Step(w, w * .75), c&, 0
- Dav
_PutImage (300 - w2, 300 - w2 * .75)-Step(w, w * .75), c&, 0
- Dav