Text.XML.MusicXML.Score

Contents

• Work
• Defaults
• Credit
• Part_List
• Music_Data
• Score_Header

Description

Synopsis

• type Work = (Maybe Work_Number, Maybe Work_Title, Maybe Opus)
• read_Work :: StateT Result [Content i] Work
• show_Work :: Work -> [Content ()]
• type Work_Number = PCDATA
• read_Work_Number :: StateT Result [Content i] Work_Number
• show_Work_Number :: Work_Number -> [Content ()]
• type Work_Title = PCDATA
• read_Work_Title :: StateT Result [Content i] Work_Title
• show_Work_Title :: Work_Title -> [Content ()]
• type Opus = (Link_Attributes, ())
• read_Opus :: StateT Result [Content i] Opus
• show_Opus :: Opus -> [Content ()]
• type Movement_Number = PCDATA
• read_Movement_Number :: StateT Result [Content i] Movement_Number
• show_Movement_Number :: Movement_Number -> [Content ()]
• type Movement_Title = PCDATA
• read_Movement_Title :: StateT Result [Content i] Movement_Title
• show_Movement_Title :: Movement_Title -> [Content ()]
• type Defaults = (Maybe Scaling, Maybe Page_Layout, Maybe System_Layout, [Staff_Layout], Maybe Appearance, Maybe Music_Font, Maybe Word_Font, [Lyric_Font], [Lyric_Language])
• read_Defaults :: Eq i => StateT Result [Content i] Defaults
• show_Defaults :: Defaults -> [Content ()]
• type Music_Font = (Font, ())
• read_Music_Font :: Eq i => StateT Result [Content i] Music_Font
• show_Music_Font :: Music_Font -> [Content ()]
• type Word_Font = (Font, ())
• read_Word_Font :: Eq i => StateT Result [Content i] Word_Font
• show_Word_Font :: Word_Font -> [Content ()]
• type Lyric_Font = ((Maybe CDATA, Maybe CDATA, Font), ())
• read_Lyric_Font :: Eq i => StateT Result [Content i] Lyric_Font
• show_Lyric_Font :: Lyric_Font -> [Content ()]
• type Lyric_Language = ((Maybe CDATA, Maybe CDATA, CDATA), ())
• read_Lyric_Language :: Eq i => StateT Result [Content i] Lyric_Language
• show_Lyric_Language :: Lyric_Language -> [Content ()]
• type Credit = (Maybe CDATA, ([Link], [Bookmark], Credit_))
• read_Credit :: Eq i => StateT Result [Content i] Credit
• show_Credit :: Credit -> [Content ()]
• data Credit_
  • = Credit_1 Credit_Image
  • | Credit_2 (Credit_Words, [([Link], [Bookmark], Credit_Words)])
• read_Credit_ :: Eq i => StateT Result [Content i] Credit_
• show_Credit_ :: Credit_ -> [Content ()]
• read_Credit_aux1 :: Eq i => StateT Result [Content i] (Credit_Words, [([Link], [Bookmark], Credit_Words)])
• read_Credit_aux2 :: Eq i => StateT Result [Content i] ([Link], [Bookmark], Credit_Words)
• show_Credit_aux1 :: ([Link], [Bookmark], Credit_Words) -> [Content ()]
• type Credit_Words = (Text_Formatting, PCDATA)
• read_Credit_Words :: StateT Result [Content i] Credit_Words
• show_Credit_Words :: Credit_Words -> [Content ()]
• type Credit_Image = ((CDATA, CDATA, Position, Halign, Valign_Image), ())
• read_Credit_Image :: StateT Result [Content i] Credit_Image
• show_Credit_Image :: Credit_Image -> [Content ()]
• type Part_List = ([Part_Group], Score_Part, [Part_List_])
• read_Part_List :: Eq i => StateT Result [Content i] Part_List
• show_Part_List :: Part_List -> [Content ()]
• data Part_List_
  • = Part_List_1 Part_Group
  • | Part_List_2 Score_Part
• read_Part_List_ :: Eq i => StateT Result [Content i] Part_List_
• show_Part_List_ :: Part_List_ -> [Content ()]
• type Score_Part = (ID, (Maybe Identification, Part_Name, Maybe Part_Name_Display, Maybe Part_Abbreviation, Maybe Part_Abbreviation_Display, [Group], [Score_Instrument], Maybe Midi_Device, [Midi_Instrument]))
• read_Score_Part :: Eq i => StateT Result [Content i] Score_Part
• show_Score_Part :: Score_Part -> [Content ()]
• type Part_Name = ((Print_Style, Print_Object, Justify), PCDATA)
• read_Part_Name :: StateT Result [Content i] Part_Name
• show_Part_Name :: Part_Name -> [Content ()]
• type Part_Abbreviation = ((Print_Style, Print_Object, Justify), PCDATA)
• read_Part_Abbreviation :: StateT Result [Content i] Part_Abbreviation
• show_Part_Abbreviation :: Part_Abbreviation -> [Content ()]
• type Part_Group = ((Start_Stop, CDATA), (Maybe Group_Name, Maybe Group_Name_Display, Maybe Group_Abbreviation, Maybe Group_Abbreviation_Display, Maybe Group_Symbol, Maybe Group_Barline, Maybe Group_Time, Editorial))
• read_Part_Group :: Eq i => StateT Result [Content i] Part_Group
• show_Part_Group :: Part_Group -> [Content ()]
• type Group_Name = ((Print_Style, Justify), PCDATA)
• read_Group_Name :: StateT Result [Content i] Group_Name
• show_Group_Name :: Group_Name -> [Content ()]
• type Group_Name_Display = (Print_Object, [Group_Name_Display_])
• read_Group_Name_Display :: Eq i => StateT Result [Content i] Group_Name_Display
• show_Group_Name_Display :: Group_Name_Display -> [Content ()]
• data Group_Name_Display_
  • = Group_Name_Display_1 Display_Text
  • | Group_Name_Display_2 Accidental_Text
• read_Group_Name_Display_ :: StateT Result [Content i] Group_Name_Display_
• show_Group_Name_Display_ :: Group_Name_Display_ -> [Content ()]
• type Group_Abbreviation = ((Print_Style, Justify), PCDATA)
• read_Group_Abbreviation :: StateT Result [Content i] Group_Abbreviation
• show_Group_Abbreviation :: Group_Abbreviation -> [Content ()]
• type Group_Abbreviation_Display = (Print_Object, [Group_Abbreviation_Display_])
• read_Group_Abbreviation_Display :: Eq i => StateT Result [Content i] Group_Abbreviation_Display
• show_Group_Abbreviation_Display :: Group_Abbreviation_Display -> [Content ()]
• data Group_Abbreviation_Display_
  • = Group_Abbreviation_Display_1 Display_Text
  • | Group_Abbreviation_Display_2 Accidental_Text
• read_Group_Abbreviation_Display_ :: StateT Result [Content i] Group_Abbreviation_Display_
• show_Group_Abbreviation_Display_ :: Group_Abbreviation_Display_ -> [Content ()]
• type Group_Symbol = ((Position, Color), PCDATA)
• read_Group_Symbol :: StateT Result [Content i] Group_Symbol
• show_Group_Symbol :: Group_Symbol -> [Content ()]
• type Group_Barline = (Color, PCDATA)
• read_Group_Barline :: StateT Result [Content i] Group_Barline
• show_Group_Barline :: Group_Barline -> [Content ()]
• type Group_Time = ()
• read_Group_Time :: StateT Result [Content i] Group_Time
• show_Group_Time :: Group_Time -> [Content ()]
• type Score_Instrument = (ID, (Instrument_Name, Maybe Instrument_Abbreviation, Maybe Score_Instrument_))
• read_Score_Instrument :: StateT Result [Content i] Score_Instrument
• show_Score_Instrument :: Score_Instrument -> [Content ()]
• data Score_Instrument_
  • = Score_Instrument_1 Solo
  • | Score_Instrument_2 Ensemble
• read_Score_Instrument_ :: StateT Result [Content i] Score_Instrument_
• show_Score_Instrument_ :: Score_Instrument_ -> [Content ()]
• type Instrument_Name = PCDATA
• read_Instrument_Name :: StateT Result [Content i] Instrument_Name
• show_Instrument_Name :: Instrument_Name -> [Content ()]
• type Instrument_Abbreviation = PCDATA
• read_Instrument_Abbreviation :: StateT Result [Content i] Instrument_Abbreviation
• show_Instrument_Abbreviation :: Instrument_Abbreviation -> [Content ()]
• type Solo = ()
• read_Solo :: StateT Result [Content i] Solo
• show_Solo :: Solo -> [Content ()]
• type Ensemble = PCDATA
• read_Ensemble :: StateT Result [Content i] Ensemble
• show_Ensemble :: Ensemble -> [Content ()]
• type Midi_Device = (Maybe CDATA, PCDATA)
• read_Midi_Device :: StateT Result [Content i] Midi_Device
• show_Midi_Device :: Midi_Device -> [Content ()]
• type Group = PCDATA
• read_Group :: StateT Result [Content i] Group
• show_Group :: Group -> [Content ()]
• type Music_Data = [Music_Data_]
• read_Music_Data :: Eq i => StateT Result [Content i] Music_Data
• show_Music_Data :: Music_Data -> [Content ()]
• data Music_Data_
  • = Music_Data_1 Note
  • | Music_Data_2 Backup
  • | Music_Data_3 Forward
  • | Music_Data_4 Direction
  • | Music_Data_5 Attributes
  • | Music_Data_6 Harmony
  • | Music_Data_7 Figured_Bass
  • | Music_Data_8 Print
  • | Music_Data_9 Sound
  • | Music_Data_10 Barline
  • | Music_Data_11 Grouping
  • | Music_Data_12 Link
  • | Music_Data_13 Bookmark
• read_Music_Data_ :: Eq i => StateT Result [Content i] Music_Data_
• show_Music_Data_ :: Music_Data_ -> [Content ()]
• type Score_Header = (Maybe Work, Maybe Movement_Number, Maybe Movement_Title, Maybe Identification, Maybe Defaults, [Credit], Part_List)
• read_Score_Header :: Eq i => StateT Result [Content i] Score_Header
• show_Score_Header :: Score_Header -> [Content ()]
• update_Score_Header :: ([Software], Encoding_Date) -> Score_Header -> Score_Header

Work

Defaults

Credit

Part_List

Music_Data

Score_Header