r(t) = sin(t)/t

plot( r, 0.001, 4*pi, 200, "polar", "frame:#00cc00" )