Převod úhlových stupňů na radiány

Lidé i uživatelská rozhraní CAD programů počítají spíše s úhly zadávanými ve stupních. LISP funkce, ale vyžadují zadávání hodnot v radiánech. Převod není složitý, ale práci může urychlit předdefinování převodních funkcí:

360^o = 2 π radiánů

Funkce deg2rad převádí stupně na radiány.
Funkce rad2deg převádí radiány na stupně.

pi je v LISP konstanta o přibližné hodnotě 3,14159265.

---

(defun deg2rad (degree / x)
	(* (/ degree 180) pi)
)

(defun rad2deg (radian / x)
	(* (/ radian pi) 180)
)

---

Soubor ke stažení