module Music.Prelude.StringQuartet (
module Music.Score,
StringQuartetPart,
Note,
asScore
) where
import Music.Pitch
import Music.Score hiding (Pitch, Interval, Note)
import Music.Dynamics.Literal --TODO
import Data.Typeable
import Data.AffineSpace.Point
import qualified Music.Score as Score
import qualified Music.Lilypond as Lilypond
import qualified Music.MusicXml.Simple as Xml
asScore :: Score Note -> Score Note
asScore = id
data StringQuartetPart
= Vl1
| Vl2
| Vla
| Vc
deriving (Eq, Ord, Enum, Typeable)
instance Show StringQuartetPart where
show Vl1 = "Violin I"
show Vl2 = "Violin II"
show Vla = "Viola"
show Vc = "Cello"
type Note = (PartT StringQuartetPart (TieT
(TremoloT (HarmonicT (SlideT
(DynamicT (ArticulationT (TextT Integer))))))))