Mercurial > hg > amuse

comparison base/generics.lisp @ 95:e99e51c2a8af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
base/generics.lisp: new generic CROTCHET darcs-hash:20070724131457-c0ce4-af1b7bfd497aea94f2103f5d8be211fe451d9bf7.gz
author Marcus Pearce <m.pearce@gold.ac.uk>
date Tue, 24 Jul 2007 14:14:57 +0100
parents 0b4c624910f1
children ad9cca28fecf
comparison
equal deleted inserted replaced
94:8b5818686d7c 95:e99e51c2a8af
96 (defgeneric (setf timepoint) (value moment-designator)) 96 (defgeneric (setf timepoint) (value moment-designator))
97 (defgeneric cut-off (anchored-period-designator) ; name? 97 (defgeneric cut-off (anchored-period-designator) ; name?
98 (:documentation "Returns a <moment> representing the point at 98 (:documentation "Returns a <moment> representing the point at
99 which the anchored period has ended.") 99 which the anchored period has ended.")
100 (:method (apd) (time+ (moment apd) (floating-period apd)))) 100 (:method (apd) (time+ (moment apd) (floating-period apd))))
101 (defgeneric crotchet (object)
102 (:documentation "Returns a period, the duration of which represents
103 a crotchet in the time representation used by object."))
101 104
102 ;; others 105 ;; others
103 106
104 ;; I've given the time-sig accessors general names because it allows 107 ;; I've given the time-sig accessors general names because it allows
105 ;; for symbols in time-signatures as well as numbers - numerator is an 108 ;; for symbols in time-signatures as well as numbers - numerator is an