Mercurial > hg > amuse

comparison base/classes.lisp @ 68:95dce8c7f08c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
midi-key-signature: 0 darcs-hash:20070706094145-c0ce4-eedb2b03b6557c4dba4cdd1170c925c471744a71.gz
author Marcus Pearce <m.pearce@gold.ac.uk>
date Fri, 06 Jul 2007 10:41:45 +0100
parents f308c2b7b796
children 4e1538df0d10
comparison
equal deleted inserted replaced
67:8b31d54c95be 68:95dce8c7f08c
74 ;; won't work 74 ;; won't work
75 ((sharp-count :accessor %basic-key-signature-sharp-count 75 ((sharp-count :accessor %basic-key-signature-sharp-count
76 :initarg :sharp-count))) 76 :initarg :sharp-count)))
77 77
78 (defclass midi-key-signature (basic-key-signature) 78 (defclass midi-key-signature (basic-key-signature)
79 ;; Is mode ever used in real life? Is it ever accurately used in 79 ;; mode: 0 = major key; 1 = minor key
80 ;; real life?
81 ((mode :accessor %midi-key-signature-mode 80 ((mode :accessor %midi-key-signature-mode
82 :initarg :mode))) 81 :initarg :mode)))
83 82
84 (defmethod print-object ((mks midi-key-signature) stream) 83 (defmethod print-object ((mks midi-key-signature) stream)
85 (format stream "#<~A ~A ~A>" 84 (format stream "#<~A ~A ~A>"