diff options
| author | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2006-10-04 12:01:48 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2006-10-04 12:01:48 +0000 |
| commit | 34b09edda9458e5edb83599a90d976cd8c0cb9f4 (patch) | |
| tree | 9e91d87ce3e0b8d8ae27bb2b2b243c292e81bf62 /scm | |
| parent | 56b4aae20940bac76b90937abcbac7e85f1a33c2 (diff) | |
*** empty log message ***
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/define-grobs.scm | 1 | ||||
| -rw-r--r-- | scm/output-lib.scm | 8 |
2 files changed, 9 insertions, 0 deletions
diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm index 333c6a8e9e..97de2fd69f 100644 --- a/scm/define-grobs.scm +++ b/scm/define-grobs.scm @@ -692,6 +692,7 @@ (stencil . ,ly:hairpin::print) (springs-and-rods . ,ly:spanner::set-spacing-rods) (after-line-breaking . ,ly:hairpin::after-line-breaking) + (grow-direction . ,hairpin::calc-grow-direction) (circled-tip . #f) (thickness . 1.0) (height . 0.6666) 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 + )) |