beginwave
(function action
 (= $v (+ (* $mid 10.100) 10))
 (cart $x $y (* $v $midPeak) (* $step 6.283185307))
 (= $x1 (+ $x $cx1))
 (= $y1 (+ $y $cy1))
 (if (>= $numrings 1) (block
  (= $x0 (+ $x $cx2))
  (= $y0 (+ $y $cy2))
 ))
(= $x0 (+ $x 0))
 (= $y0 (+ $y 0))
)
endwave


beginsugar
(function init
 (= $numparticles 1)
 (= $Xchangea (rnd 0.01 0.09))
 (= $Ychangea (rnd 0.01 0.09))
 (= $Xchangeb (rnd 0.01 0.09))
 (= $Ychangeb (rnd 0.01 0.09))
 (= $Xchangec (rnd 0.01 0.09))
 (= $Ychangec (rnd 0.01 0.09))
 (= $Xa (rnd -1 1))
 (= $Ya (rnd -1 1))
 (= $Xb (rnd -1 1))
 (= $Yb (rnd -1 1))
 (= $Xc (rnd -1 1))
 (= $UseBlendType 2)
)

(function prepare)

(function action
 (if (== $particle 0)
  (block (= $Xo $Xa)
         (= $Yo $Ya)
         (= $Xchange $Xchangea)
         (= $Ychange $Ychangea)
  )
 )
 (if (== $particle 1)
  (block (= $Xo $Xb)
         (= $Yo $Yb)
         (= $Xchange $Xchangeb)
         (= $Ychange $Ychangeb)
  )
 )
 (if (== $particle 2)
  (block (= $Xo $Xc)
         (= $Yo $Yc)
         (= $Xchange $Xchangec)
         (= $Ychange $Ychangec)
  )
 )
 (if (>= $Xo 1) (= $Xchange (- 0 $Xchange)))
 (if (<= $Xo -1) (= $Xchange (abs $Xchange)))
 (if (>= $Yo 1) (= $Ychange (- 0 $Ychange)))
 (if (<= $Yo -1) (= $Ychange (abs $Ychange)))
 (+= $Xo $Xchange)
 (+= $Yo $Ychange)
 (= $X $Xo)
 (= $Y $Yo)
 (= $Size 1.0)
 (= $Style 1)
 (= $fade (- 1.0 (* $midpeak 10)))
 (if (== $particle 0)
  (block (= $Xa $Xo)
         (= $Ya $Yo)
         (= $Xchangea $Xchange)
         (= $Ychangea $Ychange)
  )
 )
 (if (== $particle 1)
  (block (= $Xb $Xo)
         (= $Yb $Yo)
         (= $Xchangeb $Xchange)
         (= $Ychangeb $Ychange)
  )
 )
 (if (== $particle 2)
  (block (= $Xc $Xo)
         (= $Yc $Yo)
         (= $Xchangec $Xchange)
         (= $Ychangec $Ychange)
  )
 )
)
endsugar

beginsugar
(function init
 (= $spinAngle 0)
 (= $magAngle 0)
 (= $useAspect 1)
 (= $steps 16)
 (= $useBlendType 1)
)

(function prepare
 (= $magAngle (+ $magAngle 0.016))
 (= $spinAngle (+ $magAngle 0.05))
 (= $mag (/ (+ (sin $magAngle) 1.1) 2.5))
)

(function action
 (cart $x $y $mag (+ $spinAngle (* (/ $step $steps) (* 2 $pi))))
 (= $size (/ (* $mag 2) 8))
)
endsugar

beginsugar
(function init
 (= $xrchange (rnd .1))
 (= $yrchange (rnd .1))
 (= $zrchange (rnd .1))
 (= $useAspect 1)
 (= $lineSize .3)
 (= $negSize (neg $lineSize))
 (= $ringDots 16)
 (= $ringCount 16)
 (= $steps (* $ringDots $ringCount))
 (= $useBlendType 1)
 (= $pers 1)
 (= $runAngle (rnd $pi))

 // Setup point array here
 (loop $step 0 (- $steps 1)
  (block
   (= $v1 (/ (* (trunc (/ $step $ringDots)) 2 $pi) $ringCount))
   (= $v2 (/ (* (% $step $ringDots) $pi) $ringDots))

   (= [$Xpoint $step] (* (cos $v1) (cos $v2)))
   (= [$Ypoint $step] (* (cos $v1) (sin $v2)))
   (= [$Zpoint $step] (sin $v1))
  )
 )
 
)

(function prepare
 (= $xr (+ $xr $xrchange))
 (= $yr (+ $yr $yrchange))
 (= $zr (+ $zr $zrchange))

 (3dSetup $xr $yr $zr)

 (= $midpeak (+ $midpeak .1))
 (if (< (abs (- $linesize $midpeak)) .025)
   (= $linesize $midPeak)
   (= $lineSize (if (< $midPeak $linesize) (- $linesize .025) (+ $linesize .025)))
 )
 (+= $linesize .01)
 (= $negSize (neg $lineSize))

 (= $Xcenter (/ (* (sin (* $runAngle .938)) (cos (* $runAngle 1.49))) 2))
 (= $Ycenter (/ (* (sin (* $runAngle 1.1)) (cos (* $runAngle .79))) 4))
 (+= $runAngle .01)
)

(function action
 (3dRotate $Xo $Yo $Zo
   (* [$Xpoint $step] $lineSize)
   (* [$Ypoint $step] $lineSize)
   (* [$Zpoint $step] $lineSize)
 )

 (+= $Xo $Xcenter)
 (+= $Yo $Ycenter)
 
 (= $x (/ (* $Xo $pers) (+ $pers $Zo)))
 (= $y (/ (* $Yo $pers) (+ $pers $Zo)))
 (= $size (/ (* .015 (* 1.2 $lineSize)) (+ (* 1.2 $lineSize) $Zo)))
)
endsugar