// Smear Moves Script
// Translated from:	G-Force
//			Simple Sine-Sphere

(declare init
 (set $usePolar 1)
 (set $useAspect 0)
)

(declare move
 (set $srcRadius (+ $radius (* .04 (sin (* 6.2831853 $radius)))))
 (set $srcTheta (+ $theta .015))
)
