3 (defclass input-state
()
4 ((lbeams :initform
0 :accessor lbeams
)
5 (rbeams :initform
0 :accessor rbeams
)
6 (dots :initform
0 :accessor dots
)
7 (notehead :initform
:filled
:accessor notehead
)
8 (stem-direction :initform
:auto
:accessor stem-direction
)
9 (last-note :initform
34 :accessor last-note
) ; a B in the fourth octave
10 (accidentals :initform
:natural
:accessor accidentals
)))
12 (defun make-input-state ()
13 (make-instance 'input-state
))