menu channel,query,status,menubar,@SpiralOfLife {
  Spiral Out:/SpiralOfLife 50
}

alias SpiralOfLife {
  if (%spiralOfLife) {
    Spiral.Destroy
  }
  Spiral.Create $1
}

on 1:close:@SpiralOfLife: {
  .timerSpiralofLife off
  %spiralofLife = $false
  .hfree SpiralOfLife
}
alias Spiral.Destroy {
  .timerSpiralOfLife off
  close @SpiralofLife
  %spiralOfLife = $false
  .hfree SpiralOfLife
}

alias Spiral.Create {
  Spiral.InitWindow
  Spiral.InitDots $1
  Spiral.StartAnimation
}
alias Spiral.StartAnimation {
  .timerSpiralOfLife 0 0 Spiral.RenderScene
}
alias Spiral.InitDots {
  set %spiralFrame 0
  set %spiralTicks $ticks
  var %MultiDirection 0
  var %dotCount $1
  var %baseSize 4
  var %baseDist 4
  var %baseAngle 12
  var %angleOffset $calc(%baseAngle / (%dotCount + 1) * (1 + %multiDirection))
  var %redBase 0
  var %redOffset $calc(255 / %dotCount)
  var %currDist %baseDist
  var %x 1
  hadd -m SpiralOfLife DotCount %dotCount
}

alias Spiral.InitWindow {
  var %window.h 768
  var %window.w 1024
  hadd -m SpiralOfLife window.midx $calc(%window.w / 2)
  hadd -m SpiralOfLife window.midy $calc(%window.h / 2)
  hadd -m SpiralOfLife window.w %window.w
  hadd -m SpiralofLife window.h %window.h
  window -aBdfp @SpiralOfLife -1 -1 %window.w %window.h
}

alias Spiral.RenderScene {
  var %baseSize 4
  var %sizeMax 8
  var %baseDist 6
  var %framesPerDegree 11
  %spiralTicks = $ticks
  var %dotCount $hget(SpiralOfLife,DotCount)
  var %dotCount2 %dotCount
  drawrect -nrf @SpiralOfLife $rgb(255,255,255) 1 0 0 $hget(SpiralOfLife,window.w) $hget(SpiralOfLife,window.h)
  var %lastX, %lastY
  var %window.midx $hget(SpiralOfLife,window.midx)
  var %window.midy $hget(SpiralOfLife,window.midy)
  var %list,%list2,%list3
  while %dotCount {
    var %length $calc(%baseDist * %dotCount - %baseDist)
    var %dotSize $calc((%dotCount / %dotCount2) * (%sizeMax - %baseSize) + %baseSize)
    var %dotOffset %dotSize / 2
    var %newAngle $calc(((((1 + %dotCount2 - %dotCount) / %framesPerDegree) * %spiralFrame) + 90) % 360)
    var %zz $sin(%newAngle).deg
    var %newX $calc(%zz * %length + %window.midx - %dotOffset)
    ;var %newY $calc($cos(%newAngle).deg * %length + %window.midy - %dotOffset)
    var %newY %length + $calc(%window.midy / 2)
    ;var %newY $calc(($cos($calc(%newAngle * 2)).deg) * %length + (%window.midy / 3) - %dotOffset + %length)
    %list = %list $round(%zz,2)
    %list2 = %list2 %newX
    %list3 = %list3 %newY
    var %color $rgb($calc(255 / %dotCount2 * %dotCount),120,180)

    ;Uncomment the next line to draw dots;
    drawDot -nr @SpiralOfLife %color %dotSize $calc(%newX + %dotOffset) $calc(%newY + %dotOffset)

    ;Uncomment to draw line from center
    drawline -nr @SpiralOfLife %color 2 %newX %newY %window.midx $calc(%window.midy / 2 )

    if %lastX != $null && %lastY != $null {
      ;Uncomment the next line to draw lines
      drawline -nr @SpiralOfLife %color 2 %newX %newY %lastX %lastY
    }
    var %lastX %newX
    var %lastY %newY

    ;hadd -m SpiralOfLife %dotCount $+ .Angle %newAngle
    dec %dotCount
  }
  var %dotCount $hget(SpiralOfLife,DotCount)
  var %iter $int($calc(%dotCount / 2))
  var %x 2,%lastX,%lastY
  /*
  while %x <= %iter {
    if $count(%list,$token(%list,1 - $+ %x,32)) == $floor($calc(%dotCount / %x)) {

      var %k $v2
      var %y %x
      while %nny {
        var %z %k
        while %z {
          dec %z
        }
        dec %y
      }
      drawsave -q80 @SpiralOfLife SpiralOfLife- $+ %x $+ - $+ %spiralFrame $+ - $+ $ticks $+ .jpg
      %x = $calc(%iter + 1)
    }
    inc %x
  }
  */
  drawDot @SpiralOfLife
  inc %spiralFrame 1
}

alias bigtest {
  if $* {
    var %
    echo -a $len(%x) %x
  }
}
alias spiralTest {
  var %x $1
  var %y 1
  var %z $2
  while %y <= %z {
    var %a $regsubex($str(.,%x),/(.)/g,$round($sin($calc(((\n * 0.05) * %y + 90) % 360)).deg,3) $+ $chr(32))
    var %b $numtok(%a,32)
    var %c $floor($calc(%x / 2))
    var %d 2
    var %match 0
    while %d <= %c {
      if $count(%a,$token(%a,1 - $+ %d,32)) == $floor($calc(%x / %d)) {
        echo -a Solid wavelength found ( $+ %d $+ ) $v2 : %a
        %d = %c + 1
      }
      inc %d
    }
    inc %y
  }
}