diff options
Diffstat (limited to 'scm/output-lib.scm')
| -rw-r--r-- | scm/output-lib.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/scm/output-lib.scm b/scm/output-lib.scm index 90edde716a..93e61dd9d9 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -416,3 +416,11 @@ centered, X==1 is at the right, X == -1 is at the left." (number->string digit 10) )) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; dynamics +(define-public (hairpin::calc-grow-direction grob) + (if (eq? (ly:event-property (event-cause grob) 'class) 'decrescendo-event) + START + STOP + )) |