r=|0.00000001|theta|| for theta=0 to 100