diff options
| -rw-r--r-- | scm/lily-library.scm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/scm/lily-library.scm b/scm/lily-library.scm index 574b85437e..bbbe3cc53a 100644 --- a/scm/lily-library.scm +++ b/scm/lily-library.scm @@ -776,14 +776,8 @@ right (@var{dir}=+1)." (define-public (polar->rectangular radius angle-in-degrees) "Return polar coordinates (@var{radius}, @var{angle-in-degrees}) -as rectangular coordinates @ode{(x-length . y-length)}." - - (let ((complex (make-polar - radius - (degrees->radians angle-in-degrees)))) - (cons - (real-part complex) - (imag-part complex)))) +as rectangular coordinates @code{(x-length . y-length)}." + (ly:directed angle-in-degrees radius)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; string |