// Smear Waveform Script
// Translated from:	G-Force
//			Gravity
//
// Description: Smoke heading to the top of the screen.

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

(declare move
 (set $srcX (- (+ $x (rnd .01)) .005))
 (set $srcY (- $y (- (rnd .01) (- .005 (* (- $y 1.3) .04)))))
)
