Text.XML.MusicXML.Attributes

Attributes

type Attributes = (Editorial, Maybe Divisions, [Key], [Time], Maybe Staves, Maybe Part_Symbol, Maybe Instruments, [Clef], [Staff_Details], Maybe Transpose, [Directive], [Measure_Style])

read_Attributes :: Eq i => STM Result [Content i] Attributes

show_Attributes :: Attributes -> [Content ()]

Key

type Key = ((Maybe CDATA, Print_Style, Print_Object), (Key_, [Key_Octave]))

read_Key :: Eq i => STM Result [Content i] Key

show_Key :: Key -> [Content ()]

data Key_

Constructors

Key_1 (Maybe Cancel, Fifths, Maybe Mode)

Key_2 [(Key_Step, Key_Alter)]

Instances

Eq Key_

Show Key_

read_Key_ :: Eq i => STM Result [Content i] Key_

show_Key_ :: Key_ -> [Content ()]

read_Key_aux1 :: Eq i => STM Result [Content i] (Maybe Cancel, Fifths, Maybe Mode)

read_Key_aux2 :: Eq i => STM Result [Content i] (Key_Step, Key_Alter)

show_Key_aux1 :: (Key_Step, Key_Alter) -> [Content ()]

type Cancel = (Maybe Left_Right, PCDATA)

read_Cancel :: STM Result [Content i] Cancel

show_Cancel :: Cancel -> [Content ()]

type Fifths = PCDATA

read_Fifths :: STM Result [Content i] Fifths

show_Fifths :: Fifths -> [Content ()]

type Mode = PCDATA

read_Mode :: STM Result [Content i] Mode

show_Mode :: Mode -> [Content ()]

type Key_Step = PCDATA

read_Key_Step :: STM Result [Content i] Key_Step

show_Key_Step :: Key_Step -> [Content ()]

type Key_Alter = PCDATA

read_Key_Alter :: STM Result [Content i] Key_Alter

show_Key_Alter :: Key_Alter -> [Content ()]

type Key_Octave = ((CDATA, Maybe Yes_No), PCDATA)

read_Key_Octave :: STM Result [Content i] Key_Octave

show_Key_Octave :: Key_Octave -> [Content ()]

Divisions

type Divisions = PCDATA

read_Divisions :: STM Result [Content i] Divisions

show_Divisions :: Divisions -> [Content ()]

Time

type Time = ((Maybe CDATA, Maybe Time_A, Print_Style, Print_Object), Time_B)

read_Time :: Eq i => STM Result [Content i] Time

show_Time :: Time -> [Content ()]

data Time_A

Constructors

Time_1

Time_2

Time_3

Time_4

Instances

Eq Time_A

Show Time_A

read_Time_A :: String -> Result Time_A

show_Time_A :: Time_A -> String

data Time_B

Constructors

Time_5 [(Beats, Beat_Type)]

Time_6 Senza_Misura

Instances

Eq Time_B

Show Time_B

read_Time_B :: Eq i => STM Result [Content i] Time_B

show_Time_B :: Time_B -> [Content ()]

read_Time_B_aux1 :: STM Result [Content i] (Beats, Beat_Type)

show_Time_B_aux1 :: (Beats, Beat_Type) -> [Content ()]

type Beats = PCDATA

read_Beats :: STM Result [Content i] Beats

show_Beats :: Beats -> [Content ()]

type Beat_Type = PCDATA

read_Beat_Type :: STM Result [Content i] Beat_Type

show_Beat_Type :: Beat_Type -> [Content ()]

type Senza_Misura = ()

read_Senza_Misura :: STM Result [Content i] Senza_Misura

show_Senza_Misura :: Senza_Misura -> [Content ()]

Staves

type Staves = PCDATA

read_Staves :: STM Result [Content i] Staves

show_Staves :: Staves -> [Content ()]

Part_Symbol

type Part_Symbol = ((Maybe CDATA, Maybe CDATA, Position, Color), PCDATA)

read_Part_Symbol :: STM Result [Content i] Part_Symbol

show_Part_Symbol :: Part_Symbol -> [Content ()]

Instruments

type Instruments = PCDATA

read_Instruments :: STM Result [Content i] Instruments

show_Instruments :: Instruments -> [Content ()]

Clef

type Clef = ((Maybe CDATA, Maybe Yes_No, Maybe Symbol_Size, Print_Style, Print_Object), (Sign, Maybe Line, Maybe Clef_Octave_Change))

read_Clef :: Eq i => STM Result [Content i] Clef

show_Clef :: Clef -> [Content ()]

type Sign = PCDATA

read_Sign :: STM Result [Content i] Sign

show_Sign :: Sign -> [Content ()]

type Line = PCDATA

read_Line :: STM Result [Content i] Line

show_Line :: Line -> [Content ()]

type Clef_Octave_Change = PCDATA

read_Clef_Octave_Change :: STM Result [Content i] Clef_Octave_Change

show_Clef_Octave_Change :: Clef_Octave_Change -> [Content ()]

Staff_Details

type Staff_Details = ((Maybe CDATA, Maybe Staff_Details_, Print_Object, Print_Spacing), (Maybe Staff_Type, Maybe Staff_Lines, [Staff_Tuning], Maybe Capo, Maybe Staff_Size))

read_Staff_Details :: Eq i => STM Result [Content i] Staff_Details

show_Staff_Details :: Staff_Details -> [Content ()]

data Staff_Details_

Constructors

Staff_Details_1

Staff_Details_2

Instances

Eq Staff_Details_

Show Staff_Details_

read_Staff_Details_ :: String -> Result Staff_Details_

show_Staff_Details_ :: Staff_Details_ -> String

type Staff_Type = PCDATA

read_Staff_Type :: STM Result [Content i] Staff_Type

show_Staff_Type :: Staff_Type -> [Content ()]

type Staff_Lines = PCDATA

read_Staff_Lines :: STM Result [Content i] Staff_Lines

show_Staff_Lines :: Staff_Lines -> [Content ()]

type Staff_Tuning = (CDATA, (Tuning_Step, Maybe Tuning_Alter, Tuning_Octave))

read_Staff_Tuning :: Eq i => STM Result [Content i] Staff_Tuning

show_Staff_Tuning :: Staff_Tuning -> [Content ()]

type Capo = PCDATA

read_Capo :: STM Result [Content i] Capo

show_Capo :: Capo -> [Content ()]

type Staff_Size = PCDATA

read_Staff_Size :: STM Result [Content i] Staff_Size

show_Staff_Size :: Staff_Size -> [Content ()]

Transpose

type Transpose = (Maybe Diatonic, Chromatic, Maybe Octave_Change, Maybe Double)

read_Transpose :: Eq i => STM Result [Content i] Transpose

show_Transpose :: Transpose -> [Content ()]

type Diatonic = PCDATA

read_Diatonic :: STM Result [Content i] Diatonic

show_Diatonic :: Diatonic -> [Content ()]

type Chromatic = PCDATA

read_Chromatic :: STM Result [Content i] Chromatic

show_Chromatic :: Chromatic -> [Content ()]

type Octave_Change = PCDATA

read_Octave_Change :: STM Result [Content i] Octave_Change

show_Octave_Change :: Octave_Change -> [Content ()]

type Double = ()

read_Double :: STM Result [Content i] Double

show_Double :: Double -> [Content ()]

Directive

type Directive = ((Print_Style, Maybe CDATA), CDATA)

read_Directive :: STM Result [Content i] Directive

show_Directive :: Directive -> [Content ()]

Measure_Style

type Measure_Style = ((Maybe CDATA, Font, Color), Measure_Style_)

read_Measure_Style :: Eq i => STM Result [Content i] Measure_Style

show_Measure_Style :: Measure_Style -> [Content ()]

data Measure_Style_

Constructors

Measure_Style_1 Multiple_Rest

Measure_Style_2 Measure_Repeat

Measure_Style_3 Beat_Repeat

Measure_Style_4 Slash

Instances

Eq Measure_Style_

Show Measure_Style_

read_Measure_Style_ :: Eq i => STM Result [Content i] Measure_Style_

show_Measure_Style_ :: Measure_Style_ -> [Content ()]

type Slash_Type = PCDATA

read_Slash_Type :: STM Result [Content i] Slash_Type

show_Slash_Type :: Slash_Type -> [Content ()]

type Slash_Dot = ()

read_Slash_Dot :: STM Result [Content i] Slash_Dot

show_Slash_Dot :: Slash_Dot -> [Content ()]

type Multiple_Rest = (Maybe Yes_No, PCDATA)

read_Multiple_Rest :: STM Result [Content i] Multiple_Rest

show_Multiple_Rest :: Multiple_Rest -> [Content ()]

type Measure_Repeat = ((Start_Stop, Maybe CDATA), PCDATA)

read_Measure_Repeat :: STM Result [Content i] Measure_Repeat

show_Measure_Repeat :: Measure_Repeat -> [Content ()]

type Beat_Repeat = ((Start_Stop, Maybe CDATA, Maybe Yes_No), Maybe (Slash_Type, [Slash_Dot]))

read_Beat_Repeat :: Eq i => STM Result [Content i] Beat_Repeat

show_Beat_Repeat :: Beat_Repeat -> [Content ()]

read_Beat_Repeat_aux1 :: Eq i => STM Result [Content i] (Slash_Type, [Slash_Dot])

show_Beat_Repeat_aux1 :: (Slash_Type, [Slash_Dot]) -> [Content ()]

type Slash = ((Start_Stop, Maybe Yes_No, Maybe Yes_No), Maybe (Slash_Type, [Slash_Dot]))

read_Slash :: Eq i => STM Result [Content i] Slash

show_Slash :: Slash -> [Content ()]

read_Slash_aux1 :: Eq i => STM Result [Content i] (Slash_Type, [Slash_Dot])

show_Slash_aux1 :: (Slash_Type, [Slash_Dot]) -> [Content ()]