Mercurial > hg > amuse
changeset 245:70969555ca07
Twiddle comment separators.
Ignore-this: ff8dea522834ce66c6b0aee3bc54dd27
darcs-hash:20100604153923-16a00-029be21bba10fa97e77a694aec54086cc27003e8.gz
committer: Jamie Forth <j.forth@gold.ac.uk>
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | 76a695fe294f |
| children | 25b6b52eb770 |
| files | base/generics.lisp base/methods.lisp |
| diffstat | 2 files changed, 12 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/base/generics.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/base/generics.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -474,9 +474,9 @@ (defgeneric get-applicable-clefs (anchored-period constituent)) -;;;======================================================================== +;;;===================================================================== ;;; Copying events in time -;;;======================================================================== +;;;===================================================================== (defgeneric move-to-first-bar (composition)) @@ -485,16 +485,16 @@ (defgeneric voice (event)) -;;;======================================================================== +;;;===================================================================== ;;; Searching for events -;;;======================================================================== +;;;===================================================================== (defgeneric find-next-event (source-event &key predicate test break-test search-list)) -;;;======================================================================== +;;;===================================================================== ;;; Sorting Compositions -;;;======================================================================== +;;;===================================================================== (defgeneric event< (event1 event2 attribute-list))
--- a/base/methods.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/base/methods.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -579,9 +579,9 @@ (error 'insufficient-information :operation 'beat-period :datatype (class-of composition))))) -;;;======================================================================== +;;;===================================================================== ;;; Copying events in time -;;;======================================================================== +;;;===================================================================== (defmethod move-to-first-bar ((composition composition)) (let ((offset (floor (timepoint (elt composition 0))))) @@ -594,9 +594,9 @@ finally (return shifted-events)))) -;;;======================================================================== +;;;===================================================================== ;;; Searching for events -;;;======================================================================== +;;;===================================================================== (defmethod find-next-event ((source-event event) &key predicate test break-test search-list) @@ -625,9 +625,9 @@ (return nil))))))) -;;;======================================================================== +;;;===================================================================== ;;; Sorting Compositions -;;;======================================================================== +;;;===================================================================== (defmethod event< ((event1 event) (event2 event) attribute-list) (dolist (attribute attribute-list nil) ;nil if equal