alias doThisShit {
  echo -a $ticks
}
menu * {
  Pendulum:/pendulum.init
}
alias pendulum.init {
  .timerPend off
  if (!$window(@Pendulum)) { window -ep @Pendulum }
  else { drawrect -rf @Pendulum $rgb(255,255,255) 1 0 0 $window(@Pendulum).w $window(@Pendulum).h }
  %pendulum.radius = $$1
  %pendulum.angle = $calc($$2 * ($pi / 180))
  %pendulum.momentum = $$3
  %pendulum.tick = $ticks
  %pendulum.x = $calc(0 $iif($2 > 0,+,-) $sin($2).deg * $1))
  %pendulum.y = $calc(0 $iif($2 > 0,+,-) $cos($2).deg * $1))
  .timerPend 0 0 pendulum.animate
}
alias pendulum.animate {
  var %x $window(@Pendulum).w / 2
  var %y $window(@Pendulum).h / 2

  var %distance $ticks - %pendulum.tick
  %pendulum.tick = $ticks
  $iif(%pendulum.x > 0,dec,inc) %pendulum.momentum $calc(((%distance / 1000) * 9) * ($abs(%pendulum.x) / ($abs(%pendulum.y) + $abs(%pendulum.x))))
  inc %pendulum.angle $calc(%pendulum.momentum / %pendulum.radius)

  %pendulum.x = $sin(%pendulum.angle) * %pendulum.radius
  %pendulum.y = $cos(%pendulum.angle) * %pendulum.radius
  drawrect -nrf @Pendulum $rgb(255,255,255) 1 0 0 $window(@Pendulum).w $window(@Pendulum).h
  drawtext -nr @Pendulum $rgb(255,0,0) 10 $calc($window(@Pendulum).h - 100) Momentum: %pendulum.momentum
  drawtext -nr @Pendulum $rgb(255,0,0) 10 $calc($window(@Pendulum).h - 90)  Angular Momentum Ratio: $calc($abs(%pendulum.x) / ($abs(%pendulum.y) + $abs(%pendulum.x)))
  drawline -nr @Pendulum $rgb(255,0,0) 2 %x %y $calc(%pendulum.x + %x) $calc(%pendulum.y + %y)
  drawdot -nref @Pendulum 0 4 $calc(%x + 2) $calc(%y + 2)
  drawdot -nref @Pendulum $rgb(0,0,255) 8 $calc(%pendulum.x + %x + 4) $calc(%pendulum.y + %y + 4)
  drawdot @Pendulum
}

on 1:input:@Pendulum: {
  if ($1 == start) {
    pendulum.init $2-
  }
  if ($1 == stop) {
    pendulum.init
  }
}