diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-24 09:28:05 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-24 09:28:05 -0500 |
| commit | 229a4caaa430ec5e20e9ad57ccb8c491c5ed653f (patch) | |
| tree | cf44ef7eb4a4b841f1dce7ba92b65ec278a582c9 /wheelwork.lisp | |
| parent | 129e6e79c27bff4f7f3cc07aa22028d7ede6f3bd (diff) | |
[example] altering rotation on click
Diffstat (limited to 'wheelwork.lisp')
| -rw-r--r-- | wheelwork.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/wheelwork.lisp b/wheelwork.lisp index 6cebb66..8638c60 100644 --- a/wheelwork.lisp +++ b/wheelwork.lisp @@ -876,3 +876,11 @@ fires when the FOCUS slot of the current APPLICATION instance is changed. ,(intern (symbol-name target)))) ,@body))) +;;; Utility + +(define-symbol-macro +pi-over-180+ 0.017453292519943295d0) + +(defun radians (degrees) + "Converse DEGREES to radians" + (* degrees +pi-over-180+)) + |