added functions
This commit is contained in:
19
functions.ly
19
functions.ly
@@ -102,3 +102,22 @@ frr = #(define-scheme-function
|
|||||||
(rep 8 n)
|
(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 }
|
||||||
|
#}
|
||||||
|
)
|
||||||
Reference in New Issue
Block a user