\end{haskelllisting}
% | Dynamics String
% | Fingering Int
Recall that the \code{Note} constructor contained a field of \code{NoteAttribute}s.
These are values that are attached to notes for the
purpose of notation or musical interpretation.
\begin{haskelllisting}

>dataNoteAttributes=>NoteAttributes{>velocity_::Rational,-- intensity of playing between 0 and 1>vibrato_::(Rational,Rational),>tremolo_::(Rational,Rational)>}deriving(Eq,Ord)>>instanceShowNoteAttributeswhere>showsPrec=>AccShow.showsPrec>[AccShow.field"velocity1"velocity1,>AccShow.field"vibrato"vibrato,>AccShow.field"tremolo"tremolo]>"na"na>>na::NoteAttributes>na=NoteAttributes1(0,0)(0,0)>>velocity1::Accessor.TNoteAttributesRational>velocity1=>Accessor.fromSetGet(\vnas->nas{velocity_=v})velocity_>>vibrato::Accessor.TNoteAttributes(Rational,Rational)>vibrato=>Accessor.fromSetGet(\vnas->nas{vibrato_=v})vibrato_>>tremolo::Accessor.TNoteAttributes(Rational,Rational)>tremolo=>Accessor.fromSetGet(\vnas->nas{tremolo_=v})tremolo_