Autocad lisp spiral from length and radius