Mercurial > hg > amuse

changeset 200:305bf70fc017

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Monody has slots for constituents committer: David Lewis <d.lewis@gold.ac.uk>
author David Lewis <david@localhost.localdomain>
date Wed, 08 Sep 2010 13:06:36 +0100
parents bff786b723a6
children 4e0a5c7026ca
files implementations/geerdes/constructors.lisp
diffstat 1 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/implementations/geerdes/constructors.lisp	Wed Sep 08 13:06:36 2010 +0100
+++ b/implementations/geerdes/constructors.lisp	Wed Sep 08 13:06:36 2010 +0100
@@ -36,11 +36,15 @@
 	  (timepoint composition) 0)
     (when monody-notes
       (setf (%monody composition) (sequence:adjust-sequence monody (length monody-notes)
-							    :initial-contents (reverse monody-notes))
-	    (timepoint (%monody composition)) (timepoint (elt monody 0))
-	    (duration (%monody composition)) (- (timepoint (cut-off (car monody-notes)))
-						(timepoint (elt monody 0)))))
-    composition))
+                                                            :initial-contents (reverse monody-notes))
+            (timepoint (%monody composition)) (timepoint (elt monody 0))
+            (duration (%monody composition)) (- (timepoint (cut-off (car monody-notes)))
+                                                (timepoint (elt monody 0)))
+            (%midi-constituents (%monody composition)) nil
+            (%midi-timebase (%monody composition)) (%midi-timebase composition)
+            (%midi-events (%monody composition)) nil
+            (%fast-identifier (%monody composition)) (list :monody composition)))
+    Composition))
 
 (defgeneric %initialise-constituents (composition))
 (defmethod %initialise-constituents ((composition geerdes-composition))