module Music.Prelude.Standard (
module Music.Score,
module Music.Pitch,
module Music.Dynamics,
module Music.Parts,
StandardNote,
asScore,
asVoice,
asTrack,
asNote,
open,
play,
openAndPlay
) where
import Data.Default
import Data.Typeable
import Music.Dynamics
import Music.Parts
import Music.Pitch
import Music.Score hiding (Fifths, Interval, Note, Part,
Pitch, pitch)
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 (Sum Double, Sum Double)
(DynamicT (Average Double)
[TieT
(Behavior StandardPitch)]))))))))
type StandardPitch = Music.Pitch.Pitch
open = openLilypond . asScore
play = error "Not implemented: play"
openAndPlay x = open x >> play x