module Music.Prelude.Piano (
module Music.Score,
PianoPart,
Note,
asScore
) where
import Data.AffineSpace.Point
import Data.Typeable
import Music.Dynamics.Literal
import qualified Music.Lilypond as Lilypond
import qualified Music.MusicXml.Simple as Xml
import Music.Pitch
import Music.Score hiding (Interval, Note, Pitch)
import qualified Music.Score as Score
asScore :: Score Note -> Score Note
asScore = id
data PianoPart
= Pno
deriving (Eq, Ord, Enum)
instance Show PianoPart where
show Pno = "Piano"
type Note = (PartT PianoPart (TieT
(TremoloT (HarmonicT (SlideT
(DynamicT (ArticulationT (TextT Integer))))))))