diff options
-rw-r--r-- | actions/denemo.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/actions/denemo.scm b/actions/denemo.scm index f36baa54..14a93ac8 100644 --- a/actions/denemo.scm +++ b/actions/denemo.scm @@ -1923,3 +1923,6 @@ ;Insert a no-pitch note of the prevailing duration. (define (d-Enter) (eval-string (string-append "(d-" (number->string (abs (d-GetPrevailingDuration))) ")" ))) + +(define (GetPosition) + (list (d-GetMovement) (d-GetStaff) (d-GetMeasure)(d-GetHorizontalPosition))) |