diff options
author | Nils Gey <denemo@nilsgey.de> | 2011-02-14 02:06:45 +0100 |
---|---|---|
committer | Nils Gey <denemo@nilsgey.de> | 2011-02-14 02:06:45 +0100 |
commit | 394a0dbcafe35314c883635b25489a7ec9ca5393 (patch) | |
tree | de332e0d05e2a90545cc342386eb651655079a98 | |
parent | 06ec7ac9ba3071808aa534adaf16a884d30bfbba (diff) |
Add GetPosition
-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))) |