view base/package.lisp @ 297:6be947d9e7c3

add composition slot to event (amuse base)

Ignore-this: ef4ef09ad8e7c134e7e3cb5b70345b34

darcs-hash:20090828163617-16a00-eb532b34b175c446e804d90785ef18367ae85971.gz

(cl:defpackage #:amuse
  (:use #:common-lisp)
  (:export #:amuse-object
           #:constituent
	   #:composition
           #:standard-constituent
	   #:standard-composition
	   #:monody
           #:standard-monody
	   #:identifier
	   #:composition
	   #:%set-composition
	   #:composition-identifier
	   #:constituent-identifier
	   #:moment
	   #:period
	   #:anchored-period
	   #:pitch
	   #:pitch-interval
	   #:standard-moment
	   #:standard-period
	   #:standard-anchored-period
	   #:frequency-pitch
	   #:chromatic-pitch 
	   #:diatonic-pitch   
	   #:chromatic-pitch-interval
           #:diatonic-pitch-interval
	   #:linked-event
	   #:pitched-event
	   #:standard-pitched-event
	   #:chromatic-pitched-event
	   #:standard-chromatic-pitched-event
	   #:diatonic-pitched-event
	   #:standard-diatonic-pitched-event
	   #:percussive-event
	   #:standard-percussive-event
	   #:time-signature
	   #:time-signature-period
	   #:standard-time-signature
	   #:standard-time-signature-period
	   #:key-signature
	   #:key-signature-period
	   #:standard-key-signature
	   #:standard-key-signature-period
           #:midi-key-signature
           #:midi-key-signature-period
	   #:tempo
	   #:tempo-period
	   #:standard-tempo
	   #:standard-tempo-period
	   #:get-composition
	   #:get-constituents
	   #:time-signatures
	   #:tempi
	   #:key-signatures
	   #:midi-pitch-number
	   #:pitch-class
	   #:span
	   #:duration
	   #:timepoint
	   #:cut-off
	   #:beat-units-per-bar
	   #:time-signature-numerator
	   #:beat-units
	   #:time-signature-denominator
	   #:tactus-duration
	   #:key-signature-sharps
           #:key-signature-mode
	   #:bpm
	   #:microseconds-per-crotchet
	   #:anchored-period
	   #:period
	   #:moment
	   #:onset
	   #:time+
	   #:time-
	   #:time>
	   #:time<
	   #:time=
	   #:time>=
	   #:time<=
	   #:time/=
	   #:duration>
	   #:duration<
	   #:duration=
	   #:duration>=
	   #:duration<=
	   #:duration/=
	   #:duration*
	   #:duration/
	   #:pitch+
	   #:pitch-
	   #:pitch>
	   #:pitch<
	   #:pitch=
	   #:pitch>=
	   #:pitch<=
	   #:pitch/=
	   #:interval>
	   #:interval<
	   #:interval=
	   #:interval>=
	   #:interval<=
	   #:interval/=
	   #:meets
	   #:before
	   #:overlaps
	   #:during
	   #:starts
	   #:ends
	   #:subinterval
	   #:disjoint
	   #:period=
	   #:find-overlapping
	   #:period-intersection
	   #:inter-onset-interval
	   #:get-applicable-time-signatures
	   #:get-applicable-tempi
	   #:get-applicable-key-signatures
	   #:make-moment
	   #:make-period
	   #:make-anchored-period
	   #:make-standard-moment
	   #:make-standard-period
	   #:make-standard-anchored-period
	   #:make-chromatic-pitch
	   #:make-diatonic-pitch
	   #:make-chromatic-pitch-interval
	   #:make-chromatic-pitched-event
	   #:make-standard-time-signature
	   #:make-standard-time-signature-period
	   #:make-standard-key-signature
	   #:make-standard-key-signature-period
	   #:make-midi-key-signature
	   #:make-midi-key-signature-period
	   #:make-standard-tempo
	   #:make-standard-tempo-period
           #:time-signature-equal
           #:key-signature-equal
           #:tempo-equal
	   #:insufficient-information
	   #:undefined-action
           #:asa-pitch-string  
           #:asa-interval-string  
           #:diatonic-pitch-name 
           #:middle-c 
           #:make-mips-pitch
           #:make-mips-pitch-interval
           #:octave
           #:diatonic-pitch-octave 
           #:diatonic-pitch-accidental
           #:ensure-monody
           #:crotchet
           #:diatonic-pitch-cp
           #:diatonic-pitch-mp
	   #:current-beat
	   #:current-bar
	   ;; condition restart options
	   #:use-whole-bar
	   #:use-crotchet-beat
	   #:guess

	   #:%list-slot-sequence-data
	   #:list-slot-sequence
	   #:move-to-first-bar
	   #:copy-event
	   #:voice
	   #:event-identifier
	   #:id
	   #:event-id
	   #:composition-id
	   #:interval
	   #:event
	   ))