-

2026-01-26 20:01:13 +01:00
parent 717b32cece
commit 4797000ca3
2 changed files with 59 additions and 4 deletions
--- a/functions.ly
+++ b/functions.ly
@@ -175,4 +175,56 @@ tri = #(define-scheme-function
        #{ 
          \times 2/3 { $n1 $n2 $n3 }
        #}
-        )
+        )
+
+triG = #(define-scheme-function
+         (n1 n2 n3)
+         (ly:music? ly:music? ly:music?)
+         #{
+           \times 2/3 { $n1[ $n2 $n3] }
+         #}
+         )
+
+triGn = #(define-scheme-function
+          (n1 n2 n3)
+         (ly:music? ly:music? ly:music?)
+         #{
+            %\omit TupletNumber {
+             \tuplet 3/2 { \once \omit TupletNumber $n1[ $n2 $n3] }
+            %}
+         #}
+         )
+          
+
+markupBetween = #(define-scheme-function 
+  (a b c)
+  (ly:music? ly:music? markup?)
+  #{
+    \once \override Stem.X-extent = #'(1 . 5) $a ^$c $b 
+  #}
+  )
+
+turnBetween = #(define-scheme-function
+                (a b)
+                (ly:music? ly:music?)
+                #{
+                  \markupBetween $a $b \markup { \halign #-3 { \musicglyph #"scripts.turn" } }
+                #}
+                )
+
+turnNaturalBetween = #(define-scheme-function
+                       (a b)
+                       (ly:music? ly:music?)
+                       #{
+                         \markupBetween $a $b  \markup { \halign #-3 \column {
+                                                          { \musicglyph #"scripts.turn" } 
+                                                          \super { \musicglyph #"accidentals.natural" } 
+                                                         }
+                                                       }
+                       #}
+                       )
+
+turnNatural = ^\markup { \column { 
+                            { \musicglyph #"scripts.turn" } 
+                            \super { \musicglyph #"accidentals.natural" } 
+                       }}