Mercurial > hg > amuse

comparison implementations/meredith/methods.lisp @ 313:aa2545163331

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Twiddle meredith methods. Ignore-this: 57c8ad7ac505841068f1b69498245d1 darcs-hash:20100414185135-16a00-e5e008cec50a531fd23e01e57379adab5fa76c2b.gz
author j.forth <j.forth@gold.ac.uk>
date Wed, 14 Apr 2010 19:51:35 +0100
parents f5734df598f4
children
comparison
equal deleted inserted replaced
312:32769840b715 313:aa2545163331
1 (cl:in-package #:amuse-meredith) 1 (cl:in-package #:amuse-meredith)
2 2
3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3 ;;;=====================================================================
4 ;;; Specialised constructors 4 ;;; Specialised constructors
5 ;;;=====================================================================
6
5 (defmethod make-composition-identifier ((package (eql *package*)) 7 (defmethod make-composition-identifier ((package (eql *package*))
6 composition-id) 8 composition-id)
7 (make-meredith-composition-identifier composition-id)) 9 (make-meredith-composition-identifier composition-id))
8 10
9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 11
10 ;;; Compositions 12 ;;;=====================================================================
13 ;;; Specialized composition methods
14 ;;;=====================================================================
11 15
12 (defvar *event-attributes* 16 (defvar *event-attributes*
13 #.(clsql:locally-enable-sql-reader-syntax) 17 #.(clsql:locally-enable-sql-reader-syntax)
14 (list [event-id] [tatum-on] [tatum-dur] [tactus-on] [tactus-dur] 18 (list [event-id] [tatum-on] [tatum-dur] [tactus-on] [tactus-dur]
15 [crot-on] [crot-dur] [tatum-on-ms] [tatum-dur-ms] [beat-on-ms] 19 [crot-on] [crot-dur] [tatum-on-ms] [tatum-dur-ms] [beat-on-ms]