Circle

;I use this script for moving the mouse in a circle press f1 to start where mouse is, then arrows to affect speed and direction, press the other arrow keys once to stop rotation then again to start another rotation.
;press esc to exit
SetBatchLines, -1
SetDefaultMouseSpeed, 0

pi = 3.141592653589793
Radius = 100
rad2degree(rad)
{
  global pi
  return rad*180/pi
}

degree2rad(degree)
{
  global pi
  return degree*pi/180
}

f1::
  MouseGetPos, baseX, baseY
  baseY -= Radius
  Angle = 0
  Return

Up::
    Toggle := !Toggle
     While Toggle
   Loop, 10
  {
    Angle += 0.25
    newX := baseX + Radius*sin(degree2rad(angle))
    newY := baseY + Radius*cos(degree2rad(angle))
    MouseMove, %newX%, %newY%
  }
  Return

Down::
    Toggle := !Toggle
    While Toggle
  Loop, 10
  {
    Angle -= 0.5
    newX := baseX + Radius*sin(degree2rad(angle))
    newY := baseY + Radius*cos(degree2rad(angle))
    MouseMove, %newX%, %newY%
  }
  Return

Left::
    Toggle := !Toggle
    While Toggle
  Loop, 10
  {
    Angle -= 0.75
    newX := baseX + Radius*sin(degree2rad(angle))
    newY := baseY + Radius*cos(degree2rad(angle))
    MouseMove, %newX%, %newY%
  }
  Return

Right::
     Toggle := !Toggle
     While Toggle
   Loop, 10
  {
    Angle += 1
    newX := baseX + Radius*sin(degree2rad(angle))
    newY := baseY + Radius*cos(degree2rad(angle))
    MouseMove, %newX%, %newY%
  }
  Return

esc::ExitApp