chore: format update

Alexander Nguyen

yesterday bfc7fbad5ea4256afbada138ae7551e9ad2bf39d

chore: format update

 sources/classes/sox-hoadecode.lisp

@@ -70,7 +70,10 @@
"Returns n-th row of arr as vector.

Example:
(nth-row #2A((1 0 0) (0 1 0) (0 0 1)) 1) ; => #(0 1 0)"

(nth-row #2A((1 0 0) (0 1 0) (0 0 1)) 1)
=> #(0 1 0)
"
    (make-array (array-dimension arr 1) 
      :displaced-to arr 
       :displaced-index-offset (* row (array-dimension arr 1))))
@@ -79,16 +82,29 @@
"Converts a list of lists (interpreted as list of rows) to a 2d array (#2A).

Example:
(list-to-2d-array '((1 0 0)))                 ; => #2A((1 0 0))
(list-to-2d-array '((1 0 0) (0 1 0) (0 0 1))) ; => #2A((1 0 0) (0 1 0) (0 0 1))"

(list-to-2d-array '((1 0 0)))
=> #2A((1 0 0))

(list-to-2d-array '((1 0 0) (0 1 0) (0 0 1)))
=> #2A((1 0 0) (0 1 0) (0 0 1))
"
  (make-array (list (length list) (length (first list))) :initial-contents list))

(defun number-to-string (num)
"Returns the string representation of num (interpreted as single-float).
    
Example:
(number-to-string 1)  => 1.0
(number-to-string pi) => 3.1415927"

(number-to-string 1)  
=> 1.0

(number-to-string pi) 
=> 3.1415927

(number-to-string 0.0000123)
=> 1.23e-5
"
    (substitute #\e #\d (format nil "~d" (coerce num 'single-float))))

(defun unassociated-legendre-polynomial (order x)
@@ -96,9 +112,15 @@
The current implementation supports max. order 7.

Example:
(unassociated-legendre-polynomial 0 pi) ; => 1
(unassociated-legendre-polynomial 1 pi) ; => 3.141592653589793d0
(unassociated-legendre-polynomial 2 pi) ; => 14.304406601634037d0

(unassociated-legendre-polynomial 0 pi) 
=> 1

(unassociated-legendre-polynomial 1 pi)
=> 3.141592653589793d0

(unassociated-legendre-polynomial 2 pi)
=> 14.304406601634037d0
"
    (ecase order
        (0 1)
@@ -122,7 +144,7 @@
    
Example:

(vbap-convex-hull '((1 0 0) (0 1 0) (-1 0 0) (0 -1 0) (0 0 1) (0 0 -1))) 
(vbap-convex-hull '((1 0 0) (0 1 0) (-1 0 0) (0 -1 0) (0 0 1) (0 0 -1)))
=> ((0 1 4) (0 1 5) (0 3 4) (0 3 5) (1 2 4) (1 2 5) (2 3 4) (2 3 5))
"
    (let*
@@ -297,8 +319,6 @@
        )
    ))

;(print (vbap-triangulate (vbap-make-triangle_to_inverse_matrix (first (sox-hoadecode-mut210-cartesian-positions-and-imaginary-idxs))) (list-length (first (sox-hoadecode-mut210-cartesian-positions-and-imaginary-idxs))) (second (sox-hoadecode-mut210-cartesian-positions-and-imaginary-idxs))  (/ pi 4) (/ pi 1)))


; AllRAD

@@ -356,7 +376,8 @@

(defun allrad-maxre-factor (order truncation_order)
"Returns a factor to multiply each of the channels of the ambisonics matrix with if using decoder flavor max-rE.
Values are taken from the IEM Plug-In Suite to be closer to their AllRAD implementation.

Note: Values are taken from the IEM Plug-In Suite (and as such differ from values reported in their and other papers).
    
Example: