module Music.Prelude.Standard (
module Music.Pitch,
module Music.Dynamics,
module Music.Articulation,
module Music.Parts,
module Music.Score,
StandardNote,
asScore,
asVoice,
asTrack,
asNote,
open,
play,
openAndPlay
) where
import Data.Default
import Data.Typeable
import Music.Pitch
import Music.Dynamics
import Music.Articulation
import Music.Parts
import Music.Score hiding (Fifths, Interval, Note, Part, Pitch, Dynamics, Articulation)
import Music.Prelude.Instances ()
asNote :: StandardNote -> StandardNote
asNote = id
asScore :: Score StandardNote -> Score StandardNote
asScore = id
asVoice :: Voice StandardNote -> Voice StandardNote
asVoice = id
asTrack :: Track StandardNote -> Track StandardNote
asTrack = id
type StandardNote =
(PartT Part
(ColorT
(TextT
(TremoloT
(HarmonicT
(SlideT
(ArticulationT Articulation
(DynamicT Dynamics
[TieT
(Behavior Pitch)]))))))))
open = openLilypond . asScore
play = error "Not implemented: play"
openAndPlay x = open x >> play x