Mercurial > hg > amuse

diff base/constructors.lisp @ 40:5bec705db9d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move midi-key-signature from implementations/midi to base/ darcs-hash:20070606134940-aa3d6-69b8a531ef8ae393234d065ff6105ed9ecd18434.gz
author m.pearce <m.pearce@gold.ac.uk>
date Wed, 06 Jun 2007 14:49:40 +0100
parents d1010755f507
children 4e1538df0d10
line wrap: on
line diff
--- a/base/constructors.lisp	Fri May 25 17:52:41 2007 +0100
+++ b/base/constructors.lisp	Wed Jun 06 14:49:40 2007 +0100
@@ -53,6 +53,13 @@
 		 :time onset
 		 :interval duration))
 
+(defun make-midi-key-signature (sharp-count mode onset duration)
+  (make-instance 'midi-key-signature
+		 :sharp-count sharp-count
+		 :mode mode
+		 :time onset
+		 :interval duration))
+
 (defun make-tempo (bpm onset duration)
   (make-instance 'tempo
 		 :bpm bpm