diff options
| author | Nils Gey <denemo@nilsgey.de> | 2011-02-01 00:55:59 +0100 |
|---|---|---|
| committer | Nils Gey <denemo@nilsgey.de> | 2011-02-01 00:55:59 +0100 |
| commit | 6af2e82106f9c612e4b7e965144a9dbc21a7f792 (patch) | |
| tree | 3276f4c1268cdf5c78f189fbca272e6b678ba145 /actions | |
| parent | 220a267c43b1435d6347e74c299d97d0c43da419 (diff) | |
musobj field for metrical position
Diffstat (limited to 'actions')
| -rw-r--r-- | actions/denemo.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/actions/denemo.scm b/actions/denemo.scm index 55549343..b6b47d12 100644 --- a/actions/denemo.scm +++ b/actions/denemo.scm @@ -1785,7 +1785,7 @@ (eqv? (vector-ref x 0) ',s)))))))))) ; Create a music-object that holds various information. This is the smallest, single object -(defstruct musobj pitch movement staff measure horizontal start duration end time) +(defstruct musobj pitch movement staff measure metricalp horizontal start duration end time) (define (CreateMusObj) (make-musobj 'pitch (ANS::GetChordNotes) @@ -1793,6 +1793,7 @@ 'staff (d-GetStaff) 'measure (d-GetMeasure) 'horizontal (d-GetHorizontalPosition) + 'metricalp (duration::GetMetricalPosition) 'start (d-GetStartTick) 'duration (d-GetDurationInTicks) 'end (d-GetEndTick) |