8 lines
172 B
Common Lisp
8 lines
172 B
Common Lisp
|
(defun angle-difference (b1 b2)
|
||
|
|
(let ((diff (mod (- b2 b1) 360)))
|
||
|
|
(if (< diff -180)
|
||
|
|
(incf diff 360)
|
||
|
|
(if (> diff 180)
|
||
|
|
(decf diff 360)
|
||
|
|
diff))))
|