Issue 4961/4: Simplify polar->rectangular

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 574b85437eb251b12c02e6e3f24f6bdbecd3173e..bbbe3cc53acebcd12ad2406cf9fde2a50b07a8e1 100644 (file)
--- 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