added functions

2026-01-19 21:20:56 +01:00
1 changed files with 19 additions and 0 deletions
--- a/functions.ly
+++ b/functions.ly
@@ -102,3 +102,22 @@ frr = #(define-scheme-function
        (rep 8 n)
        )

+none = #(define-scheme-function 
+         (n1 n2 n3 n4 n5 n6 n7 n8 n9)
+         (ly:music? ly:music? ly:music? 
+          ly:music? ly:music? ly:music? 
+          ly:music? ly:music? ly:music?)
+          #{ \times 2/3 {  $n1 $n2 $n3 }
+             \times 2/3 {  $n4 $n5 $n6 }
+             \times 2/3 {  $n7 $n8 $n9 }
+          #}
+         )
+
+
+tri = #(define-scheme-function
+        (n1 n2 n3)
+        (ly:music? ly:music? ly:music?)
+        #{ 
+          \times 2/3 { $n1 $n2 $n3 }
+        #}
+        )