diff --git a/functions.ly b/functions.ly index 575681f..82fa843 100644 --- 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 } + #} + ) \ No newline at end of file