$m_inverse=1  /* this could be chosen as arbitrarily small, like 0.00001 to get effectively smaller time steps) */
$v=0
$theta=0
while(!$done){
    ($F_x,$F_y)=ForceCalculator($theta)
    $F_perp=$F_x*sin(theta)+$F_y*cos($theta)
    $v=$v+$F_perp*$scale
    $theta=$theta+$v
}