fadno-xml 1.1.3 → 1.2
raw patch · 5 files changed
+29898/−5 lines, 5 filesdep ~basePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base
API changes (from Hackage documentation)
- Fadno.MusicXml.MusicXml20: AboveBelowAbove :: AboveBelow
- Fadno.MusicXml.MusicXml20: AboveBelowBelow :: AboveBelow
- Fadno.MusicXml.MusicXml20: Accidental :: AccidentalValue -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe SymbolSize -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Accidental
- Fadno.MusicXml.MusicXml20: AccidentalMark :: AccidentalValue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> AccidentalMark
- Fadno.MusicXml.MusicXml20: AccidentalText :: AccidentalValue -> Maybe Lang -> Maybe Enclosure -> Maybe LeftCenterRight -> Maybe LeftCenterRight -> Maybe Valign -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe RotationDegrees -> Maybe NumberOrNormal -> Maybe NumberOrNormal -> Maybe TextDirection -> AccidentalText
- Fadno.MusicXml.MusicXml20: AccidentalValueDoubleSharp :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueFlat :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueFlatFlat :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueNatural :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueNaturalFlat :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueNaturalSharp :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueQuarterFlat :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueQuarterSharp :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueSharp :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueSharpSharp :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueThreeQuartersFlat :: AccidentalValue
- Fadno.MusicXml.MusicXml20: AccidentalValueThreeQuartersSharp :: AccidentalValue
- Fadno.MusicXml.MusicXml20: Accord :: Maybe StringNumber -> Tuning -> Accord
- Fadno.MusicXml.MusicXml20: AccordionMiddle :: PositiveInteger -> AccordionMiddle
- Fadno.MusicXml.MusicXml20: AccordionRegistration :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe Empty -> Maybe AccordionMiddle -> Maybe Empty -> AccordionRegistration
- Fadno.MusicXml.MusicXml20: ActuateNone :: Actuate
- Fadno.MusicXml.MusicXml20: ActuateOnLoad :: Actuate
- Fadno.MusicXml.MusicXml20: ActuateOnRequest :: Actuate
- Fadno.MusicXml.MusicXml20: ActuateOther :: Actuate
- Fadno.MusicXml.MusicXml20: AllMargins :: LeftRightMargins -> Tenths -> Tenths -> AllMargins
- Fadno.MusicXml.MusicXml20: Appearance :: [LineWidth] -> [NoteSize] -> [OtherAppearance] -> Appearance
- Fadno.MusicXml.MusicXml20: Arpeggiate :: Maybe NumberLevel -> Maybe UpDown -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe Color -> Arpeggiate
- Fadno.MusicXml.MusicXml20: Articulations :: [ChxArticulations] -> Articulations
- Fadno.MusicXml.MusicXml20: ArticulationsAccent :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsBreathMark :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsCaesura :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsDetachedLegato :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsDoit :: EmptyLine -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsFalloff :: EmptyLine -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsOtherArticulation :: PlacementText -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsPlop :: EmptyLine -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsScoop :: EmptyLine -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsSpiccato :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsStaccatissimo :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsStaccato :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsStress :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsStrongAccent :: StrongAccent -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsTenuto :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: ArticulationsUnstress :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: Attributes :: Editorial -> Maybe PositiveDivisions -> [Key] -> [Time] -> Maybe NonNegativeInteger -> Maybe PartSymbol -> Maybe NonNegativeInteger -> [Clef] -> [StaffDetails] -> Maybe Transpose -> [Directive] -> [MeasureStyle] -> Attributes
- Fadno.MusicXml.MusicXml20: Backup :: Duration -> Editorial -> Backup
- Fadno.MusicXml.MusicXml20: BackwardForwardBackward :: BackwardForward
- Fadno.MusicXml.MusicXml20: BackwardForwardForward :: BackwardForward
- Fadno.MusicXml.MusicXml20: BarStyleColor :: BarStyle -> Maybe Color -> BarStyleColor
- Fadno.MusicXml.MusicXml20: BarStyleDashed :: BarStyle
- Fadno.MusicXml.MusicXml20: BarStyleDotted :: BarStyle
- Fadno.MusicXml.MusicXml20: BarStyleHeavy :: BarStyle
- Fadno.MusicXml.MusicXml20: BarStyleHeavyHeavy :: BarStyle
- Fadno.MusicXml.MusicXml20: BarStyleHeavyLight :: BarStyle
- Fadno.MusicXml.MusicXml20: BarStyleLightHeavy :: BarStyle
- Fadno.MusicXml.MusicXml20: BarStyleLightLight :: BarStyle
- Fadno.MusicXml.MusicXml20: BarStyleNone :: BarStyle
- Fadno.MusicXml.MusicXml20: BarStyleRegular :: BarStyle
- Fadno.MusicXml.MusicXml20: BarStyleShort :: BarStyle
- Fadno.MusicXml.MusicXml20: BarStyleTick :: BarStyle
- Fadno.MusicXml.MusicXml20: Barline :: Maybe RightLeftMiddle -> Maybe Token -> Maybe Token -> Maybe Divisions -> Maybe BarStyleColor -> Editorial -> Maybe WavyLine -> Maybe EmptyPrintStyle -> Maybe EmptyPrintStyle -> [Fermata] -> Maybe Ending -> Maybe Repeat -> Barline
- Fadno.MusicXml.MusicXml20: Barre :: StartStop -> Maybe Color -> Barre
- Fadno.MusicXml.MusicXml20: Bass :: BassStep -> Maybe BassAlter -> Bass
- Fadno.MusicXml.MusicXml20: BassAlter :: Semitones -> Maybe LeftRight -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> BassAlter
- Fadno.MusicXml.MusicXml20: BassStep :: Step -> Maybe Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> BassStep
- Fadno.MusicXml.MusicXml20: Beam :: BeamValue -> Maybe BeamLevel -> Maybe YesNo -> Maybe Fan -> Maybe Color -> Beam
- Fadno.MusicXml.MusicXml20: BeamLevel :: PositiveInteger -> BeamLevel
- Fadno.MusicXml.MusicXml20: BeamValueBackwardHook :: BeamValue
- Fadno.MusicXml.MusicXml20: BeamValueBegin :: BeamValue
- Fadno.MusicXml.MusicXml20: BeamValueContinue :: BeamValue
- Fadno.MusicXml.MusicXml20: BeamValueEnd :: BeamValue
- Fadno.MusicXml.MusicXml20: BeamValueForwardHook :: BeamValue
- Fadno.MusicXml.MusicXml20: BeatRepeat :: StartStop -> Maybe PositiveInteger -> Maybe YesNo -> Maybe Slash -> BeatRepeat
- Fadno.MusicXml.MusicXml20: BeatUnit :: NoteTypeValue -> [Empty] -> BeatUnit
- Fadno.MusicXml.MusicXml20: Bend :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe TrillBeats -> Maybe Percent -> Maybe Percent -> Semitones -> Maybe ChxBend -> Maybe PlacementText -> Bend
- Fadno.MusicXml.MusicXml20: BendPreBend :: Empty -> ChxBend
- Fadno.MusicXml.MusicXml20: BendRelease :: Empty -> ChxBend
- Fadno.MusicXml.MusicXml20: Bookmark :: ID -> Maybe Token -> Maybe NMTOKEN -> Maybe PositiveInteger -> Bookmark
- Fadno.MusicXml.MusicXml20: Bracket :: StartStop -> Maybe NumberLevel -> LineEnd -> Maybe Tenths -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Bracket
- Fadno.MusicXml.MusicXml20: Cancel :: Fifths -> Maybe LeftRight -> Cancel
- Fadno.MusicXml.MusicXml20: ChxMetronomeBeatUnit :: BeatUnit -> ChxMetronome0 -> ChxMetronome
- Fadno.MusicXml.MusicXml20: Clef :: Maybe StaffNumber -> Maybe YesNo -> Maybe SymbolSize -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> ClefSign -> Maybe StaffLine -> Maybe Int -> Clef
- Fadno.MusicXml.MusicXml20: ClefSignC :: ClefSign
- Fadno.MusicXml.MusicXml20: ClefSignF :: ClefSign
- Fadno.MusicXml.MusicXml20: ClefSignG :: ClefSign
- Fadno.MusicXml.MusicXml20: ClefSignNone :: ClefSign
- Fadno.MusicXml.MusicXml20: ClefSignPercussion :: ClefSign
- Fadno.MusicXml.MusicXml20: ClefSignTAB :: ClefSign
- Fadno.MusicXml.MusicXml20: CmpMeasure :: Token -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> [Part] -> CmpMeasure
- Fadno.MusicXml.MusicXml20: CmpPart :: IDREF -> [Measure] -> CmpPart
- Fadno.MusicXml.MusicXml20: CmpScorePart :: ID -> Maybe Identification -> PartName -> Maybe NameDisplay -> Maybe PartName -> Maybe NameDisplay -> [String] -> [ScoreInstrument] -> Maybe MidiDevice -> [MidiInstrument] -> CmpScorePart
- Fadno.MusicXml.MusicXml20: CmpSlash :: StartStop -> Maybe YesNo -> Maybe YesNo -> Maybe Slash -> CmpSlash
- Fadno.MusicXml.MusicXml20: CmpString :: StringNumber -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> CmpString
- Fadno.MusicXml.MusicXml20: Color :: Token -> Color
- Fadno.MusicXml.MusicXml20: CommaSeparatedText :: Token -> CommaSeparatedText
- Fadno.MusicXml.MusicXml20: Credit :: Maybe PositiveInteger -> [Link] -> [Bookmark] -> ChxCredit -> Credit
- Fadno.MusicXml.MusicXml20: CreditCreditImage :: Image -> ChxCredit
- Fadno.MusicXml.MusicXml20: CreditCreditWords :: FormattedText -> [SeqCredit] -> ChxCredit
- Fadno.MusicXml.MusicXml20: CssFontSizeLarge :: CssFontSize
- Fadno.MusicXml.MusicXml20: CssFontSizeMedium :: CssFontSize
- Fadno.MusicXml.MusicXml20: CssFontSizeSmall :: CssFontSize
- Fadno.MusicXml.MusicXml20: CssFontSizeXLarge :: CssFontSize
- Fadno.MusicXml.MusicXml20: CssFontSizeXSmall :: CssFontSize
- Fadno.MusicXml.MusicXml20: CssFontSizeXxLarge :: CssFontSize
- Fadno.MusicXml.MusicXml20: CssFontSizeXxSmall :: CssFontSize
- Fadno.MusicXml.MusicXml20: Dashes :: StartStop -> Maybe NumberLevel -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Dashes
- Fadno.MusicXml.MusicXml20: Defaults :: Maybe Scaling -> Layout -> Maybe Appearance -> Maybe EmptyFont -> Maybe EmptyFont -> [LyricFont] -> [LyricLanguage] -> Defaults
- Fadno.MusicXml.MusicXml20: Degree :: Maybe YesNo -> DegreeValue -> DegreeAlter -> DegreeType -> Degree
- Fadno.MusicXml.MusicXml20: DegreeAlter :: Semitones -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> DegreeAlter
- Fadno.MusicXml.MusicXml20: DegreeType :: DegreeTypeValue -> Maybe Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> DegreeType
- Fadno.MusicXml.MusicXml20: DegreeTypeValueAdd :: DegreeTypeValue
- Fadno.MusicXml.MusicXml20: DegreeTypeValueAlter :: DegreeTypeValue
- Fadno.MusicXml.MusicXml20: DegreeTypeValueSubtract :: DegreeTypeValue
- Fadno.MusicXml.MusicXml20: DegreeValue :: PositiveInteger -> Maybe Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> DegreeValue
- Fadno.MusicXml.MusicXml20: Direction :: Maybe AboveBelow -> Maybe YesNo -> [DirectionType] -> Maybe Offset -> EditorialVoiceDirection -> Maybe Staff -> Maybe Sound -> Direction
- Fadno.MusicXml.MusicXml20: DirectionType :: ChxDirectionType -> DirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeAccordionRegistration :: AccordionRegistration -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeBracket :: Bracket -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeCoda :: [EmptyPrintStyle] -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeDamp :: EmptyPrintStyle -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeDampAll :: EmptyPrintStyle -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeDashes :: Dashes -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeDynamics :: [Dynamics] -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeEyeglasses :: EmptyPrintStyle -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeHarpPedals :: HarpPedals -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeImage :: Image -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeMetronome :: Metronome -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeOctaveShift :: OctaveShift -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeOtherDirection :: OtherDirection -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypePedal :: Pedal -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeRehearsal :: [Rehearsal] -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeScordatura :: Scordatura -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeSegno :: [EmptyPrintStyle] -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeWedge :: Wedge -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: DirectionTypeWords :: [FormattedText] -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: Directive :: String -> Maybe Lang -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Directive
- Fadno.MusicXml.MusicXml20: DisplayStepOctave :: Maybe SeqDisplayStepOctave -> DisplayStepOctave
- Fadno.MusicXml.MusicXml20: Divisions :: Decimal -> Divisions
- Fadno.MusicXml.MusicXml20: Duration :: PositiveDivisions -> Duration
- Fadno.MusicXml.MusicXml20: Dynamics :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> [ChxDynamics] -> Dynamics
- Fadno.MusicXml.MusicXml20: DynamicsF :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsFf :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsFff :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsFfff :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsFffff :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsFfffff :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsFp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsFz :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsMf :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsMp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsOtherDynamics :: String -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsP :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsPp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsPpp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsPppp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsPpppp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsPppppp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsRf :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsRfz :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsSf :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsSffz :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsSfp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsSfpp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: DynamicsSfz :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: Editorial :: Maybe Footnote -> Maybe GrpLevel -> Editorial
- Fadno.MusicXml.MusicXml20: EditorialVoice :: Maybe Footnote -> Maybe GrpLevel -> Maybe Voice -> EditorialVoice
- Fadno.MusicXml.MusicXml20: EditorialVoiceDirection :: Maybe Footnote -> Maybe GrpLevel -> Maybe Voice -> EditorialVoiceDirection
- Fadno.MusicXml.MusicXml20: Elision :: String -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Elision
- Fadno.MusicXml.MusicXml20: Empty :: Empty
- Fadno.MusicXml.MusicXml20: EmptyFont :: Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> EmptyFont
- Fadno.MusicXml.MusicXml20: EmptyLine :: Maybe LineShape -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> EmptyLine
- Fadno.MusicXml.MusicXml20: EmptyPlacement :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: EmptyPrintStyle :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: EmptyTrillSound :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe StartNote -> Maybe TrillStep -> Maybe TwoNoteTurn -> Maybe YesNo -> Maybe TrillBeats -> Maybe Percent -> Maybe Percent -> EmptyTrillSound
- Fadno.MusicXml.MusicXml20: EnclosureNone :: Enclosure
- Fadno.MusicXml.MusicXml20: EnclosureOval :: Enclosure
- Fadno.MusicXml.MusicXml20: EnclosureRectangle :: Enclosure
- Fadno.MusicXml.MusicXml20: Encoding :: [ChxEncoding] -> Encoding
- Fadno.MusicXml.MusicXml20: EncodingEncoder :: TypedText -> ChxEncoding
- Fadno.MusicXml.MusicXml20: EncodingEncodingDate :: YyyyMmDd -> ChxEncoding
- Fadno.MusicXml.MusicXml20: EncodingEncodingDescription :: String -> ChxEncoding
- Fadno.MusicXml.MusicXml20: EncodingSoftware :: String -> ChxEncoding
- Fadno.MusicXml.MusicXml20: EncodingSupports :: Supports -> ChxEncoding
- Fadno.MusicXml.MusicXml20: Ending :: String -> EndingNumber -> StartStopDiscontinue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Ending
- Fadno.MusicXml.MusicXml20: EndingNumber :: Token -> EndingNumber
- Fadno.MusicXml.MusicXml20: Extend :: Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Extend
- Fadno.MusicXml.MusicXml20: FanAccel :: Fan
- Fadno.MusicXml.MusicXml20: FanNone :: Fan
- Fadno.MusicXml.MusicXml20: FanRit :: Fan
- Fadno.MusicXml.MusicXml20: Feature :: String -> Maybe Token -> Feature
- Fadno.MusicXml.MusicXml20: Fermata :: FermataShape -> Maybe UprightInverted -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Fermata
- Fadno.MusicXml.MusicXml20: FermataShape :: FermataShape
- Fadno.MusicXml.MusicXml20: FermataShapeAngled :: FermataShape
- Fadno.MusicXml.MusicXml20: FermataShapeNormal :: FermataShape
- Fadno.MusicXml.MusicXml20: FermataShapeSquare :: FermataShape
- Fadno.MusicXml.MusicXml20: Fifths :: Int -> Fifths
- Fadno.MusicXml.MusicXml20: Figure :: Maybe StyleText -> Maybe StyleText -> Maybe StyleText -> Maybe Extend -> Figure
- Fadno.MusicXml.MusicXml20: FiguredBass :: Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> [Figure] -> Maybe Duration -> Editorial -> FiguredBass
- Fadno.MusicXml.MusicXml20: Fingering :: String -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Fingering
- Fadno.MusicXml.MusicXml20: FirstFret :: PositiveInteger -> Maybe Token -> Maybe LeftRight -> FirstFret
- Fadno.MusicXml.MusicXml20: FontSizeCssFontSize :: CssFontSize -> FontSize
- Fadno.MusicXml.MusicXml20: FontSizeDecimal :: Decimal -> FontSize
- Fadno.MusicXml.MusicXml20: FontStyleItalic :: FontStyle
- Fadno.MusicXml.MusicXml20: FontStyleNormal :: FontStyle
- Fadno.MusicXml.MusicXml20: FontWeightBold :: FontWeight
- Fadno.MusicXml.MusicXml20: FontWeightNormal :: FontWeight
- Fadno.MusicXml.MusicXml20: Footnote :: FormattedText -> Footnote
- Fadno.MusicXml.MusicXml20: FormattedText :: String -> Maybe Lang -> Maybe Enclosure -> Maybe LeftCenterRight -> Maybe LeftCenterRight -> Maybe Valign -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe RotationDegrees -> Maybe NumberOrNormal -> Maybe NumberOrNormal -> Maybe TextDirection -> FormattedText
- Fadno.MusicXml.MusicXml20: Forward :: Duration -> EditorialVoice -> Maybe Staff -> Forward
- Fadno.MusicXml.MusicXml20: Frame :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> PositiveInteger -> PositiveInteger -> Maybe FirstFret -> [FrameNote] -> Frame
- Fadno.MusicXml.MusicXml20: FrameNote :: CmpString -> Fret -> Maybe Fingering -> Maybe Barre -> FrameNote
- Fadno.MusicXml.MusicXml20: Fret :: NonNegativeInteger -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Fret
- Fadno.MusicXml.MusicXml20: FullNotePitch :: Pitch -> FullNote
- Fadno.MusicXml.MusicXml20: FullNoteRest :: DisplayStepOctave -> FullNote
- Fadno.MusicXml.MusicXml20: FullNoteUnpitched :: DisplayStepOctave -> FullNote
- Fadno.MusicXml.MusicXml20: Glissando :: String -> StartStop -> Maybe NumberLevel -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Glissando
- Fadno.MusicXml.MusicXml20: Grace :: Maybe Percent -> Maybe Percent -> Maybe Divisions -> Maybe YesNo -> Grace
- Fadno.MusicXml.MusicXml20: GroupBarline :: GroupBarlineValue -> Maybe Color -> GroupBarline
- Fadno.MusicXml.MusicXml20: GroupBarlineValueMensurstrich :: GroupBarlineValue
- Fadno.MusicXml.MusicXml20: GroupBarlineValueNo :: GroupBarlineValue
- Fadno.MusicXml.MusicXml20: GroupBarlineValueYes :: GroupBarlineValue
- Fadno.MusicXml.MusicXml20: GroupName :: String -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> GroupName
- Fadno.MusicXml.MusicXml20: GroupSymbol :: GroupSymbolValue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> GroupSymbol
- Fadno.MusicXml.MusicXml20: GroupSymbolValueBrace :: GroupSymbolValue
- Fadno.MusicXml.MusicXml20: GroupSymbolValueBracket :: GroupSymbolValue
- Fadno.MusicXml.MusicXml20: GroupSymbolValueLine :: GroupSymbolValue
- Fadno.MusicXml.MusicXml20: GroupSymbolValueNone :: GroupSymbolValue
- Fadno.MusicXml.MusicXml20: Grouping :: StartStopSingle -> Maybe Token -> Maybe Token -> [Feature] -> Grouping
- Fadno.MusicXml.MusicXml20: GrpFullNote :: Maybe Empty -> FullNote -> GrpFullNote
- Fadno.MusicXml.MusicXml20: GrpLevel :: Level -> GrpLevel
- Fadno.MusicXml.MusicXml20: GrpPartGroup :: PartGroup -> GrpPartGroup
- Fadno.MusicXml.MusicXml20: HammerOnPullOff :: String -> StartStop -> Maybe NumberLevel -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> HammerOnPullOff
- Fadno.MusicXml.MusicXml20: Harmonic :: Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe ChxHarmonic -> Maybe ChxHarmonic1 -> Harmonic
- Fadno.MusicXml.MusicXml20: HarmonicArtificial :: Empty -> ChxHarmonic
- Fadno.MusicXml.MusicXml20: HarmonicBasePitch :: Empty -> ChxHarmonic1
- Fadno.MusicXml.MusicXml20: HarmonicNatural :: Empty -> ChxHarmonic
- Fadno.MusicXml.MusicXml20: HarmonicSoundingPitch :: Empty -> ChxHarmonic1
- Fadno.MusicXml.MusicXml20: HarmonicTouchingPitch :: Empty -> ChxHarmonic1
- Fadno.MusicXml.MusicXml20: Harmony :: Maybe HarmonyType -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> [HarmonyChord] -> Maybe Frame -> Maybe Offset -> Editorial -> Maybe Staff -> Harmony
- Fadno.MusicXml.MusicXml20: HarmonyChord :: ChxHarmonyChord -> Kind -> Maybe Inversion -> Maybe Bass -> [Degree] -> HarmonyChord
- Fadno.MusicXml.MusicXml20: HarmonyChordFunction :: StyleText -> ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: HarmonyChordRoot :: Root -> ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: HarmonyTypeAlternate :: HarmonyType
- Fadno.MusicXml.MusicXml20: HarmonyTypeExplicit :: HarmonyType
- Fadno.MusicXml.MusicXml20: HarmonyTypeImplied :: HarmonyType
- Fadno.MusicXml.MusicXml20: HarpPedals :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> [PedalTuning] -> HarpPedals
- Fadno.MusicXml.MusicXml20: HeelToe :: HeelToe -> Maybe YesNo -> HeelToe
- Fadno.MusicXml.MusicXml20: ID :: NCName -> ID
- Fadno.MusicXml.MusicXml20: IDREF :: NCName -> IDREF
- Fadno.MusicXml.MusicXml20: Identification :: [TypedText] -> [TypedText] -> Maybe Encoding -> Maybe String -> [TypedText] -> Maybe Miscellaneous -> Identification
- Fadno.MusicXml.MusicXml20: Image :: String -> Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe LeftCenterRight -> Maybe ValignImage -> Image
- Fadno.MusicXml.MusicXml20: Instrument :: IDREF -> Instrument
- Fadno.MusicXml.MusicXml20: Inversion :: NonNegativeInteger -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Inversion
- Fadno.MusicXml.MusicXml20: Key :: Maybe StaffNumber -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> ChxKey -> [KeyOctave] -> Key
- Fadno.MusicXml.MusicXml20: KeyNonTraditionalKey :: [NonTraditionalKey] -> ChxKey
- Fadno.MusicXml.MusicXml20: KeyOctave :: Octave -> PositiveInteger -> Maybe YesNo -> KeyOctave
- Fadno.MusicXml.MusicXml20: KeyTraditionalKey :: TraditionalKey -> ChxKey
- Fadno.MusicXml.MusicXml20: Kind :: KindValue -> Maybe YesNo -> Maybe Token -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Kind
- Fadno.MusicXml.MusicXml20: KindValueAugmented :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueAugmentedSeventh :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueDiminished :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueDiminishedSeventh :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueDominant :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueDominant11th :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueDominant13th :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueDominantNinth :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueFrench :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueGerman :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueHalfDiminished :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueItalian :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMajor :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMajor11th :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMajor13th :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMajorMinor :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMajorNinth :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMajorSeventh :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMajorSixth :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMinor :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMinor11th :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMinor13th :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMinorNinth :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMinorSeventh :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueMinorSixth :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueNeapolitan :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueNone :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueOther :: KindValue
- Fadno.MusicXml.MusicXml20: KindValuePedal :: KindValue
- Fadno.MusicXml.MusicXml20: KindValuePower :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueSuspendedFourth :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueSuspendedSecond :: KindValue
- Fadno.MusicXml.MusicXml20: KindValueTristan :: KindValue
- Fadno.MusicXml.MusicXml20: LangLang :: SumLang -> Lang
- Fadno.MusicXml.MusicXml20: LangLanguage :: Language -> Lang
- Fadno.MusicXml.MusicXml20: Language :: Token -> Language
- Fadno.MusicXml.MusicXml20: Layout :: Maybe PageLayout -> Maybe SystemLayout -> [StaffLayout] -> Layout
- Fadno.MusicXml.MusicXml20: LeftCenterRightCenter :: LeftCenterRight
- Fadno.MusicXml.MusicXml20: LeftCenterRightLeft :: LeftCenterRight
- Fadno.MusicXml.MusicXml20: LeftCenterRightRight :: LeftCenterRight
- Fadno.MusicXml.MusicXml20: LeftRightLeft :: LeftRight
- Fadno.MusicXml.MusicXml20: LeftRightMargins :: Tenths -> Tenths -> LeftRightMargins
- Fadno.MusicXml.MusicXml20: LeftRightRight :: LeftRight
- Fadno.MusicXml.MusicXml20: Level :: String -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe SymbolSize -> Level
- Fadno.MusicXml.MusicXml20: LineEndArrow :: LineEnd
- Fadno.MusicXml.MusicXml20: LineEndBoth :: LineEnd
- Fadno.MusicXml.MusicXml20: LineEndDown :: LineEnd
- Fadno.MusicXml.MusicXml20: LineEndNone :: LineEnd
- Fadno.MusicXml.MusicXml20: LineEndUp :: LineEnd
- Fadno.MusicXml.MusicXml20: LineShapeCurved :: LineShape
- Fadno.MusicXml.MusicXml20: LineShapeStraight :: LineShape
- Fadno.MusicXml.MusicXml20: LineTypeDashed :: LineType
- Fadno.MusicXml.MusicXml20: LineTypeDotted :: LineType
- Fadno.MusicXml.MusicXml20: LineTypeSolid :: LineType
- Fadno.MusicXml.MusicXml20: LineTypeWavy :: LineType
- Fadno.MusicXml.MusicXml20: LineWidth :: Tenths -> LineWidthType -> LineWidth
- Fadno.MusicXml.MusicXml20: LineWidthType :: Token -> LineWidthType
- Fadno.MusicXml.MusicXml20: Link :: Maybe Token -> String -> Maybe Type -> Maybe Token -> Maybe Token -> Maybe SmpShow -> Maybe Actuate -> Maybe NMTOKEN -> Maybe PositiveInteger -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Link
- Fadno.MusicXml.MusicXml20: Lyric :: Maybe NMTOKEN -> Maybe Token -> Maybe LeftCenterRight -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe Color -> ChxLyric -> Maybe Empty -> Maybe Empty -> Editorial -> Lyric
- Fadno.MusicXml.MusicXml20: LyricExtend :: Extend -> ChxLyric
- Fadno.MusicXml.MusicXml20: LyricFont :: Maybe NMTOKEN -> Maybe Token -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> LyricFont
- Fadno.MusicXml.MusicXml20: LyricHumming :: Empty -> ChxLyric
- Fadno.MusicXml.MusicXml20: LyricLanguage :: Maybe NMTOKEN -> Maybe Token -> Lang -> LyricLanguage
- Fadno.MusicXml.MusicXml20: LyricLaughing :: Empty -> ChxLyric
- Fadno.MusicXml.MusicXml20: LyricSyllabic :: Maybe Syllabic -> TextElementData -> [SeqLyric] -> Maybe Extend -> ChxLyric
- Fadno.MusicXml.MusicXml20: MarginTypeBoth :: MarginType
- Fadno.MusicXml.MusicXml20: MarginTypeEven :: MarginType
- Fadno.MusicXml.MusicXml20: MarginTypeOdd :: MarginType
- Fadno.MusicXml.MusicXml20: Measure :: Token -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> MusicData -> Measure
- Fadno.MusicXml.MusicXml20: MeasureLayout :: Maybe Tenths -> MeasureLayout
- Fadno.MusicXml.MusicXml20: MeasureNumbering :: MeasureNumberingValue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> MeasureNumbering
- Fadno.MusicXml.MusicXml20: MeasureNumberingValueMeasure :: MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: MeasureNumberingValueNone :: MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: MeasureNumberingValueSystem :: MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: MeasureRepeat :: PositiveIntegerOrEmpty -> StartStop -> Maybe PositiveInteger -> MeasureRepeat
- Fadno.MusicXml.MusicXml20: MeasureStyle :: Maybe StaffNumber -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> ChxMeasureStyle -> MeasureStyle
- Fadno.MusicXml.MusicXml20: MeasureStyleBeatRepeat :: BeatRepeat -> ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: MeasureStyleMeasureRepeat :: MeasureRepeat -> ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: MeasureStyleMultipleRest :: MultipleRest -> ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: MeasureStyleSlash :: CmpSlash -> ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: Metronome :: Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> ChxMetronome -> Metronome
- Fadno.MusicXml.MusicXml20: MetronomeBeam :: BeamValue -> Maybe BeamLevel -> MetronomeBeam
- Fadno.MusicXml.MusicXml20: MetronomeBeatUnit :: BeatUnit -> ChxMetronome0
- Fadno.MusicXml.MusicXml20: MetronomeMetronomeNote :: [MetronomeNote] -> Maybe SeqMetronome -> ChxMetronome
- Fadno.MusicXml.MusicXml20: MetronomeNote :: NoteTypeValue -> [Empty] -> [MetronomeBeam] -> Maybe MetronomeTuplet -> MetronomeNote
- Fadno.MusicXml.MusicXml20: MetronomePerMinute :: PerMinute -> ChxMetronome0
- Fadno.MusicXml.MusicXml20: MetronomeTuplet :: MetronomeTuplet -> StartStop -> Maybe YesNo -> Maybe ShowTuplet -> MetronomeTuplet
- Fadno.MusicXml.MusicXml20: Midi128 :: PositiveInteger -> Midi128
- Fadno.MusicXml.MusicXml20: Midi16 :: PositiveInteger -> Midi16
- Fadno.MusicXml.MusicXml20: Midi16384 :: PositiveInteger -> Midi16384
- Fadno.MusicXml.MusicXml20: MidiDevice :: String -> Maybe Midi16 -> MidiDevice
- Fadno.MusicXml.MusicXml20: MidiInstrument :: IDREF -> Maybe Midi16 -> Maybe String -> Maybe Midi16384 -> Maybe Midi128 -> Maybe Midi128 -> Maybe Percent -> Maybe RotationDegrees -> Maybe RotationDegrees -> MidiInstrument
- Fadno.MusicXml.MusicXml20: Millimeters :: Decimal -> Millimeters
- Fadno.MusicXml.MusicXml20: Miscellaneous :: [MiscellaneousField] -> Miscellaneous
- Fadno.MusicXml.MusicXml20: MiscellaneousField :: String -> Token -> MiscellaneousField
- Fadno.MusicXml.MusicXml20: Mode :: String -> Mode
- Fadno.MusicXml.MusicXml20: Mordent :: Mordent -> Maybe YesNo -> Mordent
- Fadno.MusicXml.MusicXml20: MultipleRest :: PositiveIntegerOrEmpty -> Maybe YesNo -> MultipleRest
- Fadno.MusicXml.MusicXml20: MusicData :: [ChxMusicData] -> MusicData
- Fadno.MusicXml.MusicXml20: MusicDataAttributes :: Attributes -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataBackup :: Backup -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataBarline :: Barline -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataBookmark :: Bookmark -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataDirection :: Direction -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataFiguredBass :: FiguredBass -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataForward :: Forward -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataGrouping :: Grouping -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataHarmony :: Harmony -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataLink :: Link -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataNote :: Note -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataPrint :: Print -> ChxMusicData
- Fadno.MusicXml.MusicXml20: MusicDataSound :: Sound -> ChxMusicData
- Fadno.MusicXml.MusicXml20: NCName :: Name -> NCName
- Fadno.MusicXml.MusicXml20: NMTOKEN :: Token -> NMTOKEN
- Fadno.MusicXml.MusicXml20: Name :: Token -> Name
- Fadno.MusicXml.MusicXml20: NameDisplay :: Maybe YesNo -> [ChxNameDisplay] -> NameDisplay
- Fadno.MusicXml.MusicXml20: NameDisplayAccidentalText :: AccidentalText -> ChxNameDisplay
- Fadno.MusicXml.MusicXml20: NameDisplayDisplayText :: FormattedText -> ChxNameDisplay
- Fadno.MusicXml.MusicXml20: NonArpeggiate :: TopBottom -> Maybe NumberLevel -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe Color -> NonArpeggiate
- Fadno.MusicXml.MusicXml20: NonNegativeDecimal :: Decimal -> NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: NonNegativeInteger :: Int -> NonNegativeInteger
- Fadno.MusicXml.MusicXml20: NonTraditionalKey :: Step -> Semitones -> NonTraditionalKey
- Fadno.MusicXml.MusicXml20: NormalizedString :: String -> NormalizedString
- Fadno.MusicXml.MusicXml20: Notations :: Editorial -> [ChxNotations] -> Notations
- Fadno.MusicXml.MusicXml20: NotationsAccidentalMark :: AccidentalMark -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsArpeggiate :: Arpeggiate -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsArticulations :: Articulations -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsDynamics :: Dynamics -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsFermata :: Fermata -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsGlissando :: Glissando -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsNonArpeggiate :: NonArpeggiate -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsOrnaments :: Ornaments -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsOtherNotation :: OtherNotation -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsSlide :: Slide -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsSlur :: Slur -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsTechnical :: Technical -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsTied :: Tied -> ChxNotations
- Fadno.MusicXml.MusicXml20: NotationsTuplet :: Tuplet -> ChxNotations
- Fadno.MusicXml.MusicXml20: Note :: Maybe NonNegativeDecimal -> Maybe NonNegativeDecimal -> Maybe Divisions -> Maybe Divisions -> Maybe Token -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> ChxNote -> Maybe Instrument -> EditorialVoice -> Maybe NoteType -> [EmptyPlacement] -> Maybe Accidental -> Maybe TimeModification -> Maybe Stem -> Maybe Notehead -> Maybe Staff -> [Beam] -> [Notations] -> [Lyric] -> Note
- Fadno.MusicXml.MusicXml20: NoteCue :: Empty -> GrpFullNote -> Duration -> ChxNote
- Fadno.MusicXml.MusicXml20: NoteFullNote :: GrpFullNote -> Duration -> [Tie] -> ChxNote
- Fadno.MusicXml.MusicXml20: NoteGrace :: Grace -> GrpFullNote -> [Tie] -> ChxNote
- Fadno.MusicXml.MusicXml20: NoteSize :: NonNegativeDecimal -> NoteSizeType -> NoteSize
- Fadno.MusicXml.MusicXml20: NoteSizeTypeCue :: NoteSizeType
- Fadno.MusicXml.MusicXml20: NoteSizeTypeGrace :: NoteSizeType
- Fadno.MusicXml.MusicXml20: NoteSizeTypeLarge :: NoteSizeType
- Fadno.MusicXml.MusicXml20: NoteType :: NoteTypeValue -> Maybe SymbolSize -> NoteType
- Fadno.MusicXml.MusicXml20: NoteTypeValue128th :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: NoteTypeValue16th :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: NoteTypeValue256th :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: NoteTypeValue32nd :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: NoteTypeValue64th :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: NoteTypeValueBreve :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: NoteTypeValueEighth :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: NoteTypeValueHalf :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: NoteTypeValueLong :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: NoteTypeValueQuarter :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: NoteTypeValueWhole :: NoteTypeValue
- Fadno.MusicXml.MusicXml20: Notehead :: NoteheadValue -> Maybe YesNo -> Maybe YesNo -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Notehead
- Fadno.MusicXml.MusicXml20: NoteheadValueArrowDown :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueArrowUp :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueBackSlashed :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueCircleX :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueCluster :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueCross :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueDiamond :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueDo :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueFa :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueInvertedTriangle :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueLa :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueMi :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueNone :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueNormal :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueRe :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueSlash :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueSlashed :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueSo :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueSquare :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueTi :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueTriangle :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NoteheadValueX :: NoteheadValue
- Fadno.MusicXml.MusicXml20: NumberLevel :: PositiveInteger -> NumberLevel
- Fadno.MusicXml.MusicXml20: NumberOfLines :: NonNegativeInteger -> NumberOfLines
- Fadno.MusicXml.MusicXml20: NumberOrNormalDecimal :: Decimal -> NumberOrNormal
- Fadno.MusicXml.MusicXml20: NumberOrNormalNormal :: SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: NumberOrNormalNumberOrNormal :: SumNumberOrNormal -> NumberOrNormal
- Fadno.MusicXml.MusicXml20: Octave :: Int -> Octave
- Fadno.MusicXml.MusicXml20: OctaveShift :: UpDownStop -> Maybe NumberLevel -> Maybe PositiveInteger -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> OctaveShift
- Fadno.MusicXml.MusicXml20: Offset :: Divisions -> Maybe YesNo -> Offset
- Fadno.MusicXml.MusicXml20: Opus :: String -> Maybe Type -> Maybe Token -> Maybe Token -> Maybe SmpShow -> Maybe Actuate -> Opus
- Fadno.MusicXml.MusicXml20: Ornaments :: [SeqOrnaments] -> Ornaments
- Fadno.MusicXml.MusicXml20: OrnamentsDelayedTurn :: EmptyTrillSound -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OrnamentsInvertedMordent :: Mordent -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OrnamentsInvertedTurn :: EmptyTrillSound -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OrnamentsMordent :: Mordent -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OrnamentsOtherOrnament :: PlacementText -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OrnamentsSchleifer :: EmptyPlacement -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OrnamentsShake :: EmptyTrillSound -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OrnamentsTremolo :: Tremolo -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OrnamentsTrillMark :: EmptyTrillSound -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OrnamentsTurn :: EmptyTrillSound -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OrnamentsWavyLine :: WavyLine -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: OtherAppearance :: String -> Token -> OtherAppearance
- Fadno.MusicXml.MusicXml20: OtherDirection :: String -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> OtherDirection
- Fadno.MusicXml.MusicXml20: OtherNotation :: String -> StartStopSingle -> Maybe NumberLevel -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> OtherNotation
- Fadno.MusicXml.MusicXml20: OverUnderOver :: OverUnder
- Fadno.MusicXml.MusicXml20: OverUnderUnder :: OverUnder
- Fadno.MusicXml.MusicXml20: PageLayout :: Maybe SeqPageLayout -> [PageMargins] -> PageLayout
- Fadno.MusicXml.MusicXml20: PageMargins :: Maybe MarginType -> AllMargins -> PageMargins
- Fadno.MusicXml.MusicXml20: Part :: IDREF -> MusicData -> Part
- Fadno.MusicXml.MusicXml20: PartGroup :: StartStop -> Maybe Token -> Maybe GroupName -> Maybe NameDisplay -> Maybe GroupName -> Maybe NameDisplay -> Maybe GroupSymbol -> Maybe GroupBarline -> Maybe Empty -> Editorial -> PartGroup
- Fadno.MusicXml.MusicXml20: PartList :: [GrpPartGroup] -> ScorePart -> [ChxPartList] -> PartList
- Fadno.MusicXml.MusicXml20: PartListPartGroup :: GrpPartGroup -> ChxPartList
- Fadno.MusicXml.MusicXml20: PartListScorePart :: ScorePart -> ChxPartList
- Fadno.MusicXml.MusicXml20: PartName :: String -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe LeftCenterRight -> PartName
- Fadno.MusicXml.MusicXml20: PartSymbol :: GroupSymbolValue -> Maybe StaffNumber -> Maybe StaffNumber -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> PartSymbol
- Fadno.MusicXml.MusicXml20: Pedal :: StartStopChange -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Pedal
- Fadno.MusicXml.MusicXml20: PedalTuning :: Step -> Semitones -> PedalTuning
- Fadno.MusicXml.MusicXml20: PerMinute :: String -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> PerMinute
- Fadno.MusicXml.MusicXml20: Percent :: Decimal -> Percent
- Fadno.MusicXml.MusicXml20: Pitch :: Step -> Maybe Semitones -> Octave -> Pitch
- Fadno.MusicXml.MusicXml20: PlacementText :: String -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> PlacementText
- Fadno.MusicXml.MusicXml20: PositiveDivisions :: Divisions -> PositiveDivisions
- Fadno.MusicXml.MusicXml20: PositiveInteger :: NonNegativeInteger -> PositiveInteger
- Fadno.MusicXml.MusicXml20: PositiveIntegerOrEmptyPositiveInteger :: PositiveInteger -> PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: PositiveIntegerOrEmptyPositiveIntegerOrEmpty :: SumPositiveIntegerOrEmpty -> PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: Print :: Maybe Tenths -> Maybe YesNo -> Maybe YesNo -> Maybe PositiveInteger -> Maybe Token -> Layout -> Maybe MeasureLayout -> Maybe MeasureNumbering -> Maybe NameDisplay -> Maybe NameDisplay -> Print
- Fadno.MusicXml.MusicXml20: Rehearsal :: String -> Maybe Lang -> Maybe RehearsalEnclosure -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe TextDirection -> Maybe RotationDegrees -> Rehearsal
- Fadno.MusicXml.MusicXml20: RehearsalEnclosureCircle :: RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: RehearsalEnclosureNone :: RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: RehearsalEnclosureSquare :: RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: Repeat :: BackwardForward -> Maybe NonNegativeInteger -> Repeat
- Fadno.MusicXml.MusicXml20: RightLeftMiddleLeft :: RightLeftMiddle
- Fadno.MusicXml.MusicXml20: RightLeftMiddleMiddle :: RightLeftMiddle
- Fadno.MusicXml.MusicXml20: RightLeftMiddleRight :: RightLeftMiddle
- Fadno.MusicXml.MusicXml20: Root :: RootStep -> Maybe RootAlter -> Root
- Fadno.MusicXml.MusicXml20: RootAlter :: Semitones -> Maybe LeftRight -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> RootAlter
- Fadno.MusicXml.MusicXml20: RootStep :: Step -> Maybe Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> RootStep
- Fadno.MusicXml.MusicXml20: RotationDegrees :: Decimal -> RotationDegrees
- Fadno.MusicXml.MusicXml20: Scaling :: Millimeters -> Tenths -> Scaling
- Fadno.MusicXml.MusicXml20: Scordatura :: [Accord] -> Scordatura
- Fadno.MusicXml.MusicXml20: ScoreHeader :: Maybe Work -> Maybe String -> Maybe String -> Maybe Identification -> Maybe Defaults -> [Credit] -> PartList -> ScoreHeader
- Fadno.MusicXml.MusicXml20: ScoreInstrument :: ID -> String -> Maybe String -> Maybe ChxScoreInstrument -> ScoreInstrument
- Fadno.MusicXml.MusicXml20: ScoreInstrumentEnsemble :: PositiveIntegerOrEmpty -> ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: ScoreInstrumentSolo :: Empty -> ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: ScorePart :: CmpScorePart -> ScorePart
- Fadno.MusicXml.MusicXml20: ScorePartwise :: Maybe Token -> ScoreHeader -> [CmpPart] -> ScorePartwise
- Fadno.MusicXml.MusicXml20: ScoreTimewise :: Maybe Token -> ScoreHeader -> [CmpMeasure] -> ScoreTimewise
- Fadno.MusicXml.MusicXml20: Semitones :: Decimal -> Semitones
- Fadno.MusicXml.MusicXml20: SeqCredit :: [Link] -> [Bookmark] -> FormattedText -> SeqCredit
- Fadno.MusicXml.MusicXml20: SeqDisplayStepOctave :: Step -> Octave -> SeqDisplayStepOctave
- Fadno.MusicXml.MusicXml20: SeqLyric :: Maybe SeqLyric0 -> TextElementData -> SeqLyric
- Fadno.MusicXml.MusicXml20: SeqLyric0 :: Elision -> Maybe Syllabic -> SeqLyric0
- Fadno.MusicXml.MusicXml20: SeqMetronome :: String -> [MetronomeNote] -> SeqMetronome
- Fadno.MusicXml.MusicXml20: SeqMetronomeTuplet :: NoteTypeValue -> [Empty] -> SeqMetronomeTuplet
- Fadno.MusicXml.MusicXml20: SeqOrnaments :: ChxOrnaments -> [AccidentalMark] -> SeqOrnaments
- Fadno.MusicXml.MusicXml20: SeqPageLayout :: Tenths -> Tenths -> SeqPageLayout
- Fadno.MusicXml.MusicXml20: SeqTime :: String -> String -> SeqTime
- Fadno.MusicXml.MusicXml20: SeqTimeModification :: NoteTypeValue -> [Empty] -> SeqTimeModification
- Fadno.MusicXml.MusicXml20: ShowEmbed :: SmpShow
- Fadno.MusicXml.MusicXml20: ShowFretsLetters :: ShowFrets
- Fadno.MusicXml.MusicXml20: ShowFretsNumbers :: ShowFrets
- Fadno.MusicXml.MusicXml20: ShowNew :: SmpShow
- Fadno.MusicXml.MusicXml20: ShowNone :: SmpShow
- Fadno.MusicXml.MusicXml20: ShowOther :: SmpShow
- Fadno.MusicXml.MusicXml20: ShowReplace :: SmpShow
- Fadno.MusicXml.MusicXml20: ShowTupletActual :: ShowTuplet
- Fadno.MusicXml.MusicXml20: ShowTupletBoth :: ShowTuplet
- Fadno.MusicXml.MusicXml20: ShowTupletNone :: ShowTuplet
- Fadno.MusicXml.MusicXml20: Slash :: NoteTypeValue -> [Empty] -> Slash
- Fadno.MusicXml.MusicXml20: Slide :: String -> StartStop -> Maybe NumberLevel -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe TrillBeats -> Maybe Percent -> Maybe Percent -> Slide
- Fadno.MusicXml.MusicXml20: Slur :: StartStopContinue -> Maybe NumberLevel -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe OverUnder -> Maybe Divisions -> Maybe Divisions -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Slur
- Fadno.MusicXml.MusicXml20: Sound :: Maybe NonNegativeDecimal -> Maybe NonNegativeDecimal -> Maybe YesNo -> Maybe Token -> Maybe Token -> Maybe Token -> Maybe Token -> Maybe Divisions -> Maybe YesNo -> Maybe Token -> Maybe Token -> Maybe YesNo -> Maybe RotationDegrees -> Maybe RotationDegrees -> Maybe YesNoNumber -> Maybe YesNoNumber -> Maybe YesNoNumber -> [MidiInstrument] -> Maybe Offset -> Sound
- Fadno.MusicXml.MusicXml20: Staff :: PositiveInteger -> Staff
- Fadno.MusicXml.MusicXml20: StaffDetails :: Maybe StaffNumber -> Maybe ShowFrets -> Maybe YesNo -> Maybe YesNo -> Maybe StaffType -> Maybe NonNegativeInteger -> [StaffTuning] -> Maybe NonNegativeInteger -> Maybe NonNegativeDecimal -> StaffDetails
- Fadno.MusicXml.MusicXml20: StaffLayout :: Maybe StaffNumber -> Maybe Tenths -> StaffLayout
- Fadno.MusicXml.MusicXml20: StaffLine :: Int -> StaffLine
- Fadno.MusicXml.MusicXml20: StaffNumber :: PositiveInteger -> StaffNumber
- Fadno.MusicXml.MusicXml20: StaffTuning :: Maybe StaffLine -> Tuning -> StaffTuning
- Fadno.MusicXml.MusicXml20: StaffTypeAlternate :: StaffType
- Fadno.MusicXml.MusicXml20: StaffTypeCue :: StaffType
- Fadno.MusicXml.MusicXml20: StaffTypeEditorial :: StaffType
- Fadno.MusicXml.MusicXml20: StaffTypeOssia :: StaffType
- Fadno.MusicXml.MusicXml20: StaffTypeRegular :: StaffType
- Fadno.MusicXml.MusicXml20: StartNoteBelow :: StartNote
- Fadno.MusicXml.MusicXml20: StartNoteMain :: StartNote
- Fadno.MusicXml.MusicXml20: StartNoteUpper :: StartNote
- Fadno.MusicXml.MusicXml20: StartStopChangeChange :: StartStopChange
- Fadno.MusicXml.MusicXml20: StartStopChangeStart :: StartStopChange
- Fadno.MusicXml.MusicXml20: StartStopChangeStop :: StartStopChange
- Fadno.MusicXml.MusicXml20: StartStopContinueContinue :: StartStopContinue
- Fadno.MusicXml.MusicXml20: StartStopContinueStart :: StartStopContinue
- Fadno.MusicXml.MusicXml20: StartStopContinueStop :: StartStopContinue
- Fadno.MusicXml.MusicXml20: StartStopDiscontinueDiscontinue :: StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: StartStopDiscontinueStart :: StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: StartStopDiscontinueStop :: StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: StartStopSingleSingle :: StartStopSingle
- Fadno.MusicXml.MusicXml20: StartStopSingleStart :: StartStopSingle
- Fadno.MusicXml.MusicXml20: StartStopSingleStop :: StartStopSingle
- Fadno.MusicXml.MusicXml20: StartStopStart :: StartStop
- Fadno.MusicXml.MusicXml20: StartStopStop :: StartStop
- Fadno.MusicXml.MusicXml20: Stem :: StemValue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Stem
- Fadno.MusicXml.MusicXml20: StemValueDouble :: StemValue
- Fadno.MusicXml.MusicXml20: StemValueDown :: StemValue
- Fadno.MusicXml.MusicXml20: StemValueNone :: StemValue
- Fadno.MusicXml.MusicXml20: StemValueUp :: StemValue
- Fadno.MusicXml.MusicXml20: StepA :: Step
- Fadno.MusicXml.MusicXml20: StepB :: Step
- Fadno.MusicXml.MusicXml20: StepC :: Step
- Fadno.MusicXml.MusicXml20: StepD :: Step
- Fadno.MusicXml.MusicXml20: StepE :: Step
- Fadno.MusicXml.MusicXml20: StepF :: Step
- Fadno.MusicXml.MusicXml20: StepG :: Step
- Fadno.MusicXml.MusicXml20: StringNumber :: PositiveInteger -> StringNumber
- Fadno.MusicXml.MusicXml20: StrongAccent :: StrongAccent -> Maybe UpDown -> StrongAccent
- Fadno.MusicXml.MusicXml20: StyleText :: String -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> StyleText
- Fadno.MusicXml.MusicXml20: SumLang :: SumLang
- Fadno.MusicXml.MusicXml20: SumPositiveIntegerOrEmpty :: SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: Supports :: YesNo -> NMTOKEN -> Maybe NMTOKEN -> Maybe Token -> Supports
- Fadno.MusicXml.MusicXml20: SyllabicBegin :: Syllabic
- Fadno.MusicXml.MusicXml20: SyllabicEnd :: Syllabic
- Fadno.MusicXml.MusicXml20: SyllabicMiddle :: Syllabic
- Fadno.MusicXml.MusicXml20: SyllabicSingle :: Syllabic
- Fadno.MusicXml.MusicXml20: SymbolSizeCue :: SymbolSize
- Fadno.MusicXml.MusicXml20: SymbolSizeFull :: SymbolSize
- Fadno.MusicXml.MusicXml20: SymbolSizeLarge :: SymbolSize
- Fadno.MusicXml.MusicXml20: SystemLayout :: Maybe SystemMargins -> Maybe Tenths -> Maybe Tenths -> SystemLayout
- Fadno.MusicXml.MusicXml20: SystemMargins :: LeftRightMargins -> SystemMargins
- Fadno.MusicXml.MusicXml20: Technical :: [ChxTechnical] -> Technical
- Fadno.MusicXml.MusicXml20: TechnicalBend :: Bend -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalDoubleTongue :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalDownBow :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalFingering :: Fingering -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalFingernails :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalFret :: Fret -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalHammerOn :: HammerOnPullOff -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalHarmonic :: Harmonic -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalHeel :: HeelToe -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalOpenString :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalOtherTechnical :: PlacementText -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalPluck :: PlacementText -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalPullOff :: HammerOnPullOff -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalSnapPizzicato :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalStopped :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalString :: CmpString -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalTap :: PlacementText -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalThumbPosition :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalToe :: HeelToe -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalTripleTongue :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: TechnicalUpBow :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: Tenths :: Decimal -> Tenths
- Fadno.MusicXml.MusicXml20: TextDirectionLro :: TextDirection
- Fadno.MusicXml.MusicXml20: TextDirectionLtr :: TextDirection
- Fadno.MusicXml.MusicXml20: TextDirectionRlo :: TextDirection
- Fadno.MusicXml.MusicXml20: TextDirectionRtl :: TextDirection
- Fadno.MusicXml.MusicXml20: TextElementData :: String -> Maybe Lang -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe RotationDegrees -> Maybe NumberOrNormal -> Maybe TextDirection -> TextElementData
- Fadno.MusicXml.MusicXml20: Tie :: StartStop -> Tie
- Fadno.MusicXml.MusicXml20: Tied :: StartStop -> Maybe NumberLevel -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe OverUnder -> Maybe Divisions -> Maybe Divisions -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Tied
- Fadno.MusicXml.MusicXml20: Time :: Maybe StaffNumber -> Maybe TimeSymbol -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> ChxTime -> Time
- Fadno.MusicXml.MusicXml20: TimeModification :: NonNegativeInteger -> NonNegativeInteger -> Maybe SeqTimeModification -> TimeModification
- Fadno.MusicXml.MusicXml20: TimeSenzaMisura :: Empty -> ChxTime
- Fadno.MusicXml.MusicXml20: TimeSymbolCommon :: TimeSymbol
- Fadno.MusicXml.MusicXml20: TimeSymbolCut :: TimeSymbol
- Fadno.MusicXml.MusicXml20: TimeSymbolNormal :: TimeSymbol
- Fadno.MusicXml.MusicXml20: TimeSymbolSingleNumber :: TimeSymbol
- Fadno.MusicXml.MusicXml20: TimeTime :: [SeqTime] -> ChxTime
- Fadno.MusicXml.MusicXml20: Token :: NormalizedString -> Token
- Fadno.MusicXml.MusicXml20: TopBottomBottom :: TopBottom
- Fadno.MusicXml.MusicXml20: TopBottomTop :: TopBottom
- Fadno.MusicXml.MusicXml20: TraditionalKey :: Maybe Cancel -> Fifths -> Maybe Mode -> TraditionalKey
- Fadno.MusicXml.MusicXml20: Transpose :: Maybe Int -> Semitones -> Maybe Int -> Maybe Empty -> Transpose
- Fadno.MusicXml.MusicXml20: Tremolo :: TremoloMarks -> Maybe StartStopSingle -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Tremolo
- Fadno.MusicXml.MusicXml20: TremoloMarks :: Int -> TremoloMarks
- Fadno.MusicXml.MusicXml20: TrillBeats :: Decimal -> TrillBeats
- Fadno.MusicXml.MusicXml20: TrillStepHalf :: TrillStep
- Fadno.MusicXml.MusicXml20: TrillStepUnison :: TrillStep
- Fadno.MusicXml.MusicXml20: TrillStepWhole :: TrillStep
- Fadno.MusicXml.MusicXml20: Tuning :: Step -> Maybe Semitones -> Octave -> Tuning
- Fadno.MusicXml.MusicXml20: Tuplet :: StartStop -> Maybe NumberLevel -> Maybe YesNo -> Maybe ShowTuplet -> Maybe ShowTuplet -> Maybe LineShape -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe TupletPortion -> Maybe TupletPortion -> Tuplet
- Fadno.MusicXml.MusicXml20: TupletDot :: Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> TupletDot
- Fadno.MusicXml.MusicXml20: TupletNumber :: NonNegativeInteger -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> TupletNumber
- Fadno.MusicXml.MusicXml20: TupletPortion :: Maybe TupletNumber -> Maybe TupletType -> [TupletDot] -> TupletPortion
- Fadno.MusicXml.MusicXml20: TupletType :: NoteTypeValue -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> TupletType
- Fadno.MusicXml.MusicXml20: TwoNoteTurnHalf :: TwoNoteTurn
- Fadno.MusicXml.MusicXml20: TwoNoteTurnNone :: TwoNoteTurn
- Fadno.MusicXml.MusicXml20: TwoNoteTurnWhole :: TwoNoteTurn
- Fadno.MusicXml.MusicXml20: TypeSimple :: Type
- Fadno.MusicXml.MusicXml20: TypedText :: String -> Maybe Token -> TypedText
- Fadno.MusicXml.MusicXml20: UpDownDown :: UpDown
- Fadno.MusicXml.MusicXml20: UpDownStopDown :: UpDownStop
- Fadno.MusicXml.MusicXml20: UpDownStopStop :: UpDownStop
- Fadno.MusicXml.MusicXml20: UpDownStopUp :: UpDownStop
- Fadno.MusicXml.MusicXml20: UpDownUp :: UpDown
- Fadno.MusicXml.MusicXml20: UprightInvertedInverted :: UprightInverted
- Fadno.MusicXml.MusicXml20: UprightInvertedUpright :: UprightInverted
- Fadno.MusicXml.MusicXml20: ValignBaseline :: Valign
- Fadno.MusicXml.MusicXml20: ValignBottom :: Valign
- Fadno.MusicXml.MusicXml20: ValignImageBottom :: ValignImage
- Fadno.MusicXml.MusicXml20: ValignImageMiddle :: ValignImage
- Fadno.MusicXml.MusicXml20: ValignImageTop :: ValignImage
- Fadno.MusicXml.MusicXml20: ValignMiddle :: Valign
- Fadno.MusicXml.MusicXml20: ValignTop :: Valign
- Fadno.MusicXml.MusicXml20: Voice :: String -> Voice
- Fadno.MusicXml.MusicXml20: WavyLine :: StartStopContinue -> Maybe NumberLevel -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe Color -> Maybe StartNote -> Maybe TrillStep -> Maybe TwoNoteTurn -> Maybe YesNo -> Maybe TrillBeats -> Maybe Percent -> Maybe Percent -> WavyLine
- Fadno.MusicXml.MusicXml20: Wedge :: WedgeType -> Maybe NumberLevel -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Wedge
- Fadno.MusicXml.MusicXml20: WedgeTypeCrescendo :: WedgeType
- Fadno.MusicXml.MusicXml20: WedgeTypeDiminuendo :: WedgeType
- Fadno.MusicXml.MusicXml20: WedgeTypeStop :: WedgeType
- Fadno.MusicXml.MusicXml20: Work :: Maybe String -> Maybe String -> Maybe Opus -> Work
- Fadno.MusicXml.MusicXml20: YesNoNo :: YesNo
- Fadno.MusicXml.MusicXml20: YesNoNumberDecimal :: Decimal -> YesNoNumber
- Fadno.MusicXml.MusicXml20: YesNoNumberYesNo :: YesNo -> YesNoNumber
- Fadno.MusicXml.MusicXml20: YesNoYes :: YesNo
- Fadno.MusicXml.MusicXml20: YyyyMmDd :: String -> YyyyMmDd
- Fadno.MusicXml.MusicXml20: [accidentalAccidentalValue] :: Accidental -> AccidentalValue
- Fadno.MusicXml.MusicXml20: [accidentalBracket] :: Accidental -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [accidentalCautionary] :: Accidental -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [accidentalColor] :: Accidental -> Maybe Color
- Fadno.MusicXml.MusicXml20: [accidentalDefaultX] :: Accidental -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalDefaultY] :: Accidental -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalEditorial] :: Accidental -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [accidentalFontFamily] :: Accidental -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [accidentalFontSize] :: Accidental -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [accidentalFontStyle] :: Accidental -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [accidentalFontWeight] :: Accidental -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [accidentalMarkAccidentalValue] :: AccidentalMark -> AccidentalValue
- Fadno.MusicXml.MusicXml20: [accidentalMarkColor] :: AccidentalMark -> Maybe Color
- Fadno.MusicXml.MusicXml20: [accidentalMarkDefaultX] :: AccidentalMark -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalMarkDefaultY] :: AccidentalMark -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalMarkFontFamily] :: AccidentalMark -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [accidentalMarkFontSize] :: AccidentalMark -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [accidentalMarkFontStyle] :: AccidentalMark -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [accidentalMarkFontWeight] :: AccidentalMark -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [accidentalMarkPlacement] :: AccidentalMark -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [accidentalMarkRelativeX] :: AccidentalMark -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalMarkRelativeY] :: AccidentalMark -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalParentheses] :: Accidental -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [accidentalRelativeX] :: Accidental -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalRelativeY] :: Accidental -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalSize] :: Accidental -> Maybe SymbolSize
- Fadno.MusicXml.MusicXml20: [accidentalTextAccidentalValue] :: AccidentalText -> AccidentalValue
- Fadno.MusicXml.MusicXml20: [accidentalTextColor] :: AccidentalText -> Maybe Color
- Fadno.MusicXml.MusicXml20: [accidentalTextDefaultX] :: AccidentalText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalTextDefaultY] :: AccidentalText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalTextDir] :: AccidentalText -> Maybe TextDirection
- Fadno.MusicXml.MusicXml20: [accidentalTextEnclosure] :: AccidentalText -> Maybe Enclosure
- Fadno.MusicXml.MusicXml20: [accidentalTextFontFamily] :: AccidentalText -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [accidentalTextFontSize] :: AccidentalText -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [accidentalTextFontStyle] :: AccidentalText -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [accidentalTextFontWeight] :: AccidentalText -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [accidentalTextHalign] :: AccidentalText -> Maybe LeftCenterRight
- Fadno.MusicXml.MusicXml20: [accidentalTextJustify] :: AccidentalText -> Maybe LeftCenterRight
- Fadno.MusicXml.MusicXml20: [accidentalTextLang] :: AccidentalText -> Maybe Lang
- Fadno.MusicXml.MusicXml20: [accidentalTextLetterSpacing] :: AccidentalText -> Maybe NumberOrNormal
- Fadno.MusicXml.MusicXml20: [accidentalTextLineHeight] :: AccidentalText -> Maybe NumberOrNormal
- Fadno.MusicXml.MusicXml20: [accidentalTextLineThrough] :: AccidentalText -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [accidentalTextOverline] :: AccidentalText -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [accidentalTextRelativeX] :: AccidentalText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalTextRelativeY] :: AccidentalText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accidentalTextRotation] :: AccidentalText -> Maybe RotationDegrees
- Fadno.MusicXml.MusicXml20: [accidentalTextUnderline] :: AccidentalText -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [accidentalTextValign] :: AccidentalText -> Maybe Valign
- Fadno.MusicXml.MusicXml20: [accordString] :: Accord -> Maybe StringNumber
- Fadno.MusicXml.MusicXml20: [accordTuning] :: Accord -> Tuning
- Fadno.MusicXml.MusicXml20: [accordionMiddle] :: AccordionMiddle -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [accordionRegistrationAccordionHigh] :: AccordionRegistration -> Maybe Empty
- Fadno.MusicXml.MusicXml20: [accordionRegistrationAccordionLow] :: AccordionRegistration -> Maybe Empty
- Fadno.MusicXml.MusicXml20: [accordionRegistrationAccordionMiddle] :: AccordionRegistration -> Maybe AccordionMiddle
- Fadno.MusicXml.MusicXml20: [accordionRegistrationColor] :: AccordionRegistration -> Maybe Color
- Fadno.MusicXml.MusicXml20: [accordionRegistrationDefaultX] :: AccordionRegistration -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accordionRegistrationDefaultY] :: AccordionRegistration -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accordionRegistrationFontFamily] :: AccordionRegistration -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [accordionRegistrationFontSize] :: AccordionRegistration -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [accordionRegistrationFontStyle] :: AccordionRegistration -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [accordionRegistrationFontWeight] :: AccordionRegistration -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [accordionRegistrationRelativeX] :: AccordionRegistration -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [accordionRegistrationRelativeY] :: AccordionRegistration -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [allMarginsBottomMargin] :: AllMargins -> Tenths
- Fadno.MusicXml.MusicXml20: [allMarginsLeftRightMargins] :: AllMargins -> LeftRightMargins
- Fadno.MusicXml.MusicXml20: [allMarginsTopMargin] :: AllMargins -> Tenths
- Fadno.MusicXml.MusicXml20: [appearanceLineWidth] :: Appearance -> [LineWidth]
- Fadno.MusicXml.MusicXml20: [appearanceNoteSize] :: Appearance -> [NoteSize]
- Fadno.MusicXml.MusicXml20: [appearanceOtherAppearance] :: Appearance -> [OtherAppearance]
- Fadno.MusicXml.MusicXml20: [arpeggiateColor] :: Arpeggiate -> Maybe Color
- Fadno.MusicXml.MusicXml20: [arpeggiateDefaultX] :: Arpeggiate -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [arpeggiateDefaultY] :: Arpeggiate -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [arpeggiateDirection] :: Arpeggiate -> Maybe UpDown
- Fadno.MusicXml.MusicXml20: [arpeggiateNumber] :: Arpeggiate -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [arpeggiatePlacement] :: Arpeggiate -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [arpeggiateRelativeX] :: Arpeggiate -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [arpeggiateRelativeY] :: Arpeggiate -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [articulationsAccent] :: ChxArticulations -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [articulationsArticulations] :: Articulations -> [ChxArticulations]
- Fadno.MusicXml.MusicXml20: [articulationsBreathMark] :: ChxArticulations -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [articulationsCaesura] :: ChxArticulations -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [articulationsDetachedLegato] :: ChxArticulations -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [articulationsDoit] :: ChxArticulations -> EmptyLine
- Fadno.MusicXml.MusicXml20: [articulationsFalloff] :: ChxArticulations -> EmptyLine
- Fadno.MusicXml.MusicXml20: [articulationsOtherArticulation] :: ChxArticulations -> PlacementText
- Fadno.MusicXml.MusicXml20: [articulationsPlop] :: ChxArticulations -> EmptyLine
- Fadno.MusicXml.MusicXml20: [articulationsScoop] :: ChxArticulations -> EmptyLine
- Fadno.MusicXml.MusicXml20: [articulationsSpiccato] :: ChxArticulations -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [articulationsStaccatissimo] :: ChxArticulations -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [articulationsStaccato] :: ChxArticulations -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [articulationsStress] :: ChxArticulations -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [articulationsStrongAccent] :: ChxArticulations -> StrongAccent
- Fadno.MusicXml.MusicXml20: [articulationsTenuto] :: ChxArticulations -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [articulationsUnstress] :: ChxArticulations -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [attributesClef] :: Attributes -> [Clef]
- Fadno.MusicXml.MusicXml20: [attributesDirective] :: Attributes -> [Directive]
- Fadno.MusicXml.MusicXml20: [attributesDivisions] :: Attributes -> Maybe PositiveDivisions
- Fadno.MusicXml.MusicXml20: [attributesEditorial] :: Attributes -> Editorial
- Fadno.MusicXml.MusicXml20: [attributesInstruments] :: Attributes -> Maybe NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [attributesKey] :: Attributes -> [Key]
- Fadno.MusicXml.MusicXml20: [attributesMeasureStyle] :: Attributes -> [MeasureStyle]
- Fadno.MusicXml.MusicXml20: [attributesPartSymbol] :: Attributes -> Maybe PartSymbol
- Fadno.MusicXml.MusicXml20: [attributesStaffDetails] :: Attributes -> [StaffDetails]
- Fadno.MusicXml.MusicXml20: [attributesStaves] :: Attributes -> Maybe NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [attributesTime] :: Attributes -> [Time]
- Fadno.MusicXml.MusicXml20: [attributesTranspose] :: Attributes -> Maybe Transpose
- Fadno.MusicXml.MusicXml20: [backupDuration] :: Backup -> Duration
- Fadno.MusicXml.MusicXml20: [backupEditorial] :: Backup -> Editorial
- Fadno.MusicXml.MusicXml20: [barStyleColorBarStyle] :: BarStyleColor -> BarStyle
- Fadno.MusicXml.MusicXml20: [barStyleColorColor] :: BarStyleColor -> Maybe Color
- Fadno.MusicXml.MusicXml20: [barlineBarStyle] :: Barline -> Maybe BarStyleColor
- Fadno.MusicXml.MusicXml20: [barlineCoda1] :: Barline -> Maybe EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: [barlineCoda] :: Barline -> Maybe Token
- Fadno.MusicXml.MusicXml20: [barlineDivisions] :: Barline -> Maybe Divisions
- Fadno.MusicXml.MusicXml20: [barlineEditorial] :: Barline -> Editorial
- Fadno.MusicXml.MusicXml20: [barlineEnding] :: Barline -> Maybe Ending
- Fadno.MusicXml.MusicXml20: [barlineFermata] :: Barline -> [Fermata]
- Fadno.MusicXml.MusicXml20: [barlineLocation] :: Barline -> Maybe RightLeftMiddle
- Fadno.MusicXml.MusicXml20: [barlineRepeat] :: Barline -> Maybe Repeat
- Fadno.MusicXml.MusicXml20: [barlineSegno1] :: Barline -> Maybe EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: [barlineSegno] :: Barline -> Maybe Token
- Fadno.MusicXml.MusicXml20: [barlineWavyLine] :: Barline -> Maybe WavyLine
- Fadno.MusicXml.MusicXml20: [barreColor] :: Barre -> Maybe Color
- Fadno.MusicXml.MusicXml20: [barreType] :: Barre -> StartStop
- Fadno.MusicXml.MusicXml20: [bassAlterColor] :: BassAlter -> Maybe Color
- Fadno.MusicXml.MusicXml20: [bassAlterDefaultX] :: BassAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bassAlterDefaultY] :: BassAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bassAlterFontFamily] :: BassAlter -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [bassAlterFontSize] :: BassAlter -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [bassAlterFontStyle] :: BassAlter -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [bassAlterFontWeight] :: BassAlter -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [bassAlterLocation] :: BassAlter -> Maybe LeftRight
- Fadno.MusicXml.MusicXml20: [bassAlterPrintObject] :: BassAlter -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [bassAlterRelativeX] :: BassAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bassAlterRelativeY] :: BassAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bassAlterSemitones] :: BassAlter -> Semitones
- Fadno.MusicXml.MusicXml20: [bassBassAlter] :: Bass -> Maybe BassAlter
- Fadno.MusicXml.MusicXml20: [bassBassStep] :: Bass -> BassStep
- Fadno.MusicXml.MusicXml20: [bassStepColor] :: BassStep -> Maybe Color
- Fadno.MusicXml.MusicXml20: [bassStepDefaultX] :: BassStep -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bassStepDefaultY] :: BassStep -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bassStepFontFamily] :: BassStep -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [bassStepFontSize] :: BassStep -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [bassStepFontStyle] :: BassStep -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [bassStepFontWeight] :: BassStep -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [bassStepRelativeX] :: BassStep -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bassStepRelativeY] :: BassStep -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bassStepStep] :: BassStep -> Step
- Fadno.MusicXml.MusicXml20: [bassStepText] :: BassStep -> Maybe Token
- Fadno.MusicXml.MusicXml20: [beamBeamValue] :: Beam -> BeamValue
- Fadno.MusicXml.MusicXml20: [beamColor] :: Beam -> Maybe Color
- Fadno.MusicXml.MusicXml20: [beamFan] :: Beam -> Maybe Fan
- Fadno.MusicXml.MusicXml20: [beamLevel] :: BeamLevel -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [beamNumber] :: Beam -> Maybe BeamLevel
- Fadno.MusicXml.MusicXml20: [beamRepeater] :: Beam -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [beatRepeatSlash] :: BeatRepeat -> Maybe Slash
- Fadno.MusicXml.MusicXml20: [beatRepeatSlashes] :: BeatRepeat -> Maybe PositiveInteger
- Fadno.MusicXml.MusicXml20: [beatRepeatType] :: BeatRepeat -> StartStop
- Fadno.MusicXml.MusicXml20: [beatRepeatUseDots] :: BeatRepeat -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [beatUnitBeatUnitDot] :: BeatUnit -> [Empty]
- Fadno.MusicXml.MusicXml20: [beatUnitBeatUnit] :: BeatUnit -> NoteTypeValue
- Fadno.MusicXml.MusicXml20: [bendAccelerate] :: Bend -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [bendBeats] :: Bend -> Maybe TrillBeats
- Fadno.MusicXml.MusicXml20: [bendBendAlter] :: Bend -> Semitones
- Fadno.MusicXml.MusicXml20: [bendBend] :: Bend -> Maybe ChxBend
- Fadno.MusicXml.MusicXml20: [bendColor] :: Bend -> Maybe Color
- Fadno.MusicXml.MusicXml20: [bendDefaultX] :: Bend -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bendDefaultY] :: Bend -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bendFirstBeat] :: Bend -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [bendFontFamily] :: Bend -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [bendFontSize] :: Bend -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [bendFontStyle] :: Bend -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [bendFontWeight] :: Bend -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [bendLastBeat] :: Bend -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [bendPreBend] :: ChxBend -> Empty
- Fadno.MusicXml.MusicXml20: [bendRelativeX] :: Bend -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bendRelativeY] :: Bend -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bendRelease] :: ChxBend -> Empty
- Fadno.MusicXml.MusicXml20: [bendWithBar] :: Bend -> Maybe PlacementText
- Fadno.MusicXml.MusicXml20: [bookmarkElement] :: Bookmark -> Maybe NMTOKEN
- Fadno.MusicXml.MusicXml20: [bookmarkId] :: Bookmark -> ID
- Fadno.MusicXml.MusicXml20: [bookmarkName] :: Bookmark -> Maybe Token
- Fadno.MusicXml.MusicXml20: [bookmarkPosition] :: Bookmark -> Maybe PositiveInteger
- Fadno.MusicXml.MusicXml20: [bracketColor] :: Bracket -> Maybe Color
- Fadno.MusicXml.MusicXml20: [bracketDefaultX] :: Bracket -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bracketDefaultY] :: Bracket -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bracketEndLength] :: Bracket -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bracketLineEnd] :: Bracket -> LineEnd
- Fadno.MusicXml.MusicXml20: [bracketLineType] :: Bracket -> Maybe LineType
- Fadno.MusicXml.MusicXml20: [bracketNumber] :: Bracket -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [bracketRelativeX] :: Bracket -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bracketRelativeY] :: Bracket -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [bracketType] :: Bracket -> StartStop
- Fadno.MusicXml.MusicXml20: [cancelFifths] :: Cancel -> Fifths
- Fadno.MusicXml.MusicXml20: [cancelLocation] :: Cancel -> Maybe LeftRight
- Fadno.MusicXml.MusicXml20: [chxcreditCredit] :: ChxCredit -> [SeqCredit]
- Fadno.MusicXml.MusicXml20: [chxlyricLyric] :: ChxLyric -> [SeqLyric]
- Fadno.MusicXml.MusicXml20: [chxmetronomeBeatUnit] :: ChxMetronome -> BeatUnit
- Fadno.MusicXml.MusicXml20: [chxmetronomeMetronome] :: ChxMetronome -> ChxMetronome0
- Fadno.MusicXml.MusicXml20: [chxpartListPartGroup] :: ChxPartList -> GrpPartGroup
- Fadno.MusicXml.MusicXml20: [chxpartListScorePart] :: ChxPartList -> ScorePart
- Fadno.MusicXml.MusicXml20: [chxtimeTime] :: ChxTime -> [SeqTime]
- Fadno.MusicXml.MusicXml20: [clefAdditional] :: Clef -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [clefClefOctaveChange] :: Clef -> Maybe Int
- Fadno.MusicXml.MusicXml20: [clefColor] :: Clef -> Maybe Color
- Fadno.MusicXml.MusicXml20: [clefDefaultX] :: Clef -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [clefDefaultY] :: Clef -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [clefFontFamily] :: Clef -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [clefFontSize] :: Clef -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [clefFontStyle] :: Clef -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [clefFontWeight] :: Clef -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [clefLine] :: Clef -> Maybe StaffLine
- Fadno.MusicXml.MusicXml20: [clefNumber] :: Clef -> Maybe StaffNumber
- Fadno.MusicXml.MusicXml20: [clefPrintObject] :: Clef -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [clefRelativeX] :: Clef -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [clefRelativeY] :: Clef -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [clefSign] :: Clef -> ClefSign
- Fadno.MusicXml.MusicXml20: [clefSize] :: Clef -> Maybe SymbolSize
- Fadno.MusicXml.MusicXml20: [cmpendingNumber] :: Ending -> EndingNumber
- Fadno.MusicXml.MusicXml20: [cmplineWidthType] :: LineWidth -> LineWidthType
- Fadno.MusicXml.MusicXml20: [cmpmeasureImplicit] :: CmpMeasure -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [cmpmeasureNonControlling] :: CmpMeasure -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [cmpmeasureNumber] :: CmpMeasure -> Token
- Fadno.MusicXml.MusicXml20: [cmpmeasureWidth] :: CmpMeasure -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [cmppartId] :: Part -> IDREF
- Fadno.MusicXml.MusicXml20: [color] :: Color -> Token
- Fadno.MusicXml.MusicXml20: [commaSeparatedText] :: CommaSeparatedText -> Token
- Fadno.MusicXml.MusicXml20: [creditBookmark] :: Credit -> [Bookmark]
- Fadno.MusicXml.MusicXml20: [creditCreditImage] :: ChxCredit -> Image
- Fadno.MusicXml.MusicXml20: [creditCreditWords] :: ChxCredit -> FormattedText
- Fadno.MusicXml.MusicXml20: [creditCredit] :: Credit -> ChxCredit
- Fadno.MusicXml.MusicXml20: [creditLink] :: Credit -> [Link]
- Fadno.MusicXml.MusicXml20: [creditPage] :: Credit -> Maybe PositiveInteger
- Fadno.MusicXml.MusicXml20: [dashesColor] :: Dashes -> Maybe Color
- Fadno.MusicXml.MusicXml20: [dashesDefaultX] :: Dashes -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [dashesDefaultY] :: Dashes -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [dashesNumber] :: Dashes -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [dashesRelativeX] :: Dashes -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [dashesRelativeY] :: Dashes -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [dashesType] :: Dashes -> StartStop
- Fadno.MusicXml.MusicXml20: [defaultsAppearance] :: Defaults -> Maybe Appearance
- Fadno.MusicXml.MusicXml20: [defaultsLayout] :: Defaults -> Layout
- Fadno.MusicXml.MusicXml20: [defaultsLyricFont] :: Defaults -> [LyricFont]
- Fadno.MusicXml.MusicXml20: [defaultsLyricLanguage] :: Defaults -> [LyricLanguage]
- Fadno.MusicXml.MusicXml20: [defaultsMusicFont] :: Defaults -> Maybe EmptyFont
- Fadno.MusicXml.MusicXml20: [defaultsScaling] :: Defaults -> Maybe Scaling
- Fadno.MusicXml.MusicXml20: [defaultsWordFont] :: Defaults -> Maybe EmptyFont
- Fadno.MusicXml.MusicXml20: [degreeAlterColor] :: DegreeAlter -> Maybe Color
- Fadno.MusicXml.MusicXml20: [degreeAlterDefaultX] :: DegreeAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeAlterDefaultY] :: DegreeAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeAlterFontFamily] :: DegreeAlter -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [degreeAlterFontSize] :: DegreeAlter -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [degreeAlterFontStyle] :: DegreeAlter -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [degreeAlterFontWeight] :: DegreeAlter -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [degreeAlterPlusMinus] :: DegreeAlter -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [degreeAlterRelativeX] :: DegreeAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeAlterRelativeY] :: DegreeAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeAlterSemitones] :: DegreeAlter -> Semitones
- Fadno.MusicXml.MusicXml20: [degreeDegreeAlter] :: Degree -> DegreeAlter
- Fadno.MusicXml.MusicXml20: [degreeDegreeType] :: Degree -> DegreeType
- Fadno.MusicXml.MusicXml20: [degreeDegreeValue] :: Degree -> DegreeValue
- Fadno.MusicXml.MusicXml20: [degreePrintObject] :: Degree -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [degreeTypeColor] :: DegreeType -> Maybe Color
- Fadno.MusicXml.MusicXml20: [degreeTypeDefaultX] :: DegreeType -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeTypeDefaultY] :: DegreeType -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeTypeDegreeTypeValue] :: DegreeType -> DegreeTypeValue
- Fadno.MusicXml.MusicXml20: [degreeTypeFontFamily] :: DegreeType -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [degreeTypeFontSize] :: DegreeType -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [degreeTypeFontStyle] :: DegreeType -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [degreeTypeFontWeight] :: DegreeType -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [degreeTypeRelativeX] :: DegreeType -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeTypeRelativeY] :: DegreeType -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeTypeText] :: DegreeType -> Maybe Token
- Fadno.MusicXml.MusicXml20: [degreeValueColor] :: DegreeValue -> Maybe Color
- Fadno.MusicXml.MusicXml20: [degreeValueDefaultX] :: DegreeValue -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeValueDefaultY] :: DegreeValue -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeValueFontFamily] :: DegreeValue -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [degreeValueFontSize] :: DegreeValue -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [degreeValueFontStyle] :: DegreeValue -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [degreeValueFontWeight] :: DegreeValue -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [degreeValuePositiveInteger] :: DegreeValue -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [degreeValueRelativeX] :: DegreeValue -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeValueRelativeY] :: DegreeValue -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [degreeValueText] :: DegreeValue -> Maybe Token
- Fadno.MusicXml.MusicXml20: [directionDirectionType] :: Direction -> [DirectionType]
- Fadno.MusicXml.MusicXml20: [directionDirective] :: Direction -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [directionEditorialVoiceDirection] :: Direction -> EditorialVoiceDirection
- Fadno.MusicXml.MusicXml20: [directionOffset] :: Direction -> Maybe Offset
- Fadno.MusicXml.MusicXml20: [directionPlacement] :: Direction -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [directionSound] :: Direction -> Maybe Sound
- Fadno.MusicXml.MusicXml20: [directionStaff] :: Direction -> Maybe Staff
- Fadno.MusicXml.MusicXml20: [directionTypeAccordionRegistration] :: ChxDirectionType -> AccordionRegistration
- Fadno.MusicXml.MusicXml20: [directionTypeBracket] :: ChxDirectionType -> Bracket
- Fadno.MusicXml.MusicXml20: [directionTypeCoda] :: ChxDirectionType -> [EmptyPrintStyle]
- Fadno.MusicXml.MusicXml20: [directionTypeDampAll] :: ChxDirectionType -> EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: [directionTypeDamp] :: ChxDirectionType -> EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: [directionTypeDashes] :: ChxDirectionType -> Dashes
- Fadno.MusicXml.MusicXml20: [directionTypeDirectionType] :: DirectionType -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: [directionTypeDynamics] :: ChxDirectionType -> [Dynamics]
- Fadno.MusicXml.MusicXml20: [directionTypeEyeglasses] :: ChxDirectionType -> EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: [directionTypeHarpPedals] :: ChxDirectionType -> HarpPedals
- Fadno.MusicXml.MusicXml20: [directionTypeImage] :: ChxDirectionType -> Image
- Fadno.MusicXml.MusicXml20: [directionTypeMetronome] :: ChxDirectionType -> Metronome
- Fadno.MusicXml.MusicXml20: [directionTypeOctaveShift] :: ChxDirectionType -> OctaveShift
- Fadno.MusicXml.MusicXml20: [directionTypeOtherDirection] :: ChxDirectionType -> OtherDirection
- Fadno.MusicXml.MusicXml20: [directionTypePedal] :: ChxDirectionType -> Pedal
- Fadno.MusicXml.MusicXml20: [directionTypeRehearsal] :: ChxDirectionType -> [Rehearsal]
- Fadno.MusicXml.MusicXml20: [directionTypeScordatura] :: ChxDirectionType -> Scordatura
- Fadno.MusicXml.MusicXml20: [directionTypeSegno] :: ChxDirectionType -> [EmptyPrintStyle]
- Fadno.MusicXml.MusicXml20: [directionTypeWedge] :: ChxDirectionType -> Wedge
- Fadno.MusicXml.MusicXml20: [directionTypeWords] :: ChxDirectionType -> [FormattedText]
- Fadno.MusicXml.MusicXml20: [directiveColor] :: Directive -> Maybe Color
- Fadno.MusicXml.MusicXml20: [directiveDefaultX] :: Directive -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [directiveDefaultY] :: Directive -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [directiveFontFamily] :: Directive -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [directiveFontSize] :: Directive -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [directiveFontStyle] :: Directive -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [directiveFontWeight] :: Directive -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [directiveLang] :: Directive -> Maybe Lang
- Fadno.MusicXml.MusicXml20: [directiveRelativeX] :: Directive -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [directiveRelativeY] :: Directive -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [directiveString] :: Directive -> String
- Fadno.MusicXml.MusicXml20: [displayStepOctaveDisplayOctave] :: SeqDisplayStepOctave -> Octave
- Fadno.MusicXml.MusicXml20: [displayStepOctaveDisplayStepOctave] :: DisplayStepOctave -> Maybe SeqDisplayStepOctave
- Fadno.MusicXml.MusicXml20: [displayStepOctaveDisplayStep] :: SeqDisplayStepOctave -> Step
- Fadno.MusicXml.MusicXml20: [divisions] :: Divisions -> Decimal
- Fadno.MusicXml.MusicXml20: [durationDuration] :: Duration -> PositiveDivisions
- Fadno.MusicXml.MusicXml20: [dynamicsColor] :: Dynamics -> Maybe Color
- Fadno.MusicXml.MusicXml20: [dynamicsDefaultX] :: Dynamics -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [dynamicsDefaultY] :: Dynamics -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [dynamicsDynamics] :: Dynamics -> [ChxDynamics]
- Fadno.MusicXml.MusicXml20: [dynamicsF] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsFf] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsFff] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsFfff] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsFffff] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsFfffff] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsFontFamily] :: Dynamics -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [dynamicsFontSize] :: Dynamics -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [dynamicsFontStyle] :: Dynamics -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [dynamicsFontWeight] :: Dynamics -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [dynamicsFp] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsFz] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsMf] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsMp] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsOtherDynamics] :: ChxDynamics -> String
- Fadno.MusicXml.MusicXml20: [dynamicsP] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsPlacement] :: Dynamics -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [dynamicsPp] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsPpp] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsPppp] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsPpppp] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsPppppp] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsRelativeX] :: Dynamics -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [dynamicsRelativeY] :: Dynamics -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [dynamicsRf] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsRfz] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsSf] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsSffz] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsSfp] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsSfpp] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [dynamicsSfz] :: ChxDynamics -> Empty
- Fadno.MusicXml.MusicXml20: [editorialFootnote] :: Editorial -> Maybe Footnote
- Fadno.MusicXml.MusicXml20: [editorialLevel] :: Editorial -> Maybe GrpLevel
- Fadno.MusicXml.MusicXml20: [editorialVoiceDirectionFootnote] :: EditorialVoiceDirection -> Maybe Footnote
- Fadno.MusicXml.MusicXml20: [editorialVoiceDirectionLevel] :: EditorialVoiceDirection -> Maybe GrpLevel
- Fadno.MusicXml.MusicXml20: [editorialVoiceDirectionVoice] :: EditorialVoiceDirection -> Maybe Voice
- Fadno.MusicXml.MusicXml20: [editorialVoiceFootnote] :: EditorialVoice -> Maybe Footnote
- Fadno.MusicXml.MusicXml20: [editorialVoiceLevel] :: EditorialVoice -> Maybe GrpLevel
- Fadno.MusicXml.MusicXml20: [editorialVoiceVoice] :: EditorialVoice -> Maybe Voice
- Fadno.MusicXml.MusicXml20: [elisionColor] :: Elision -> Maybe Color
- Fadno.MusicXml.MusicXml20: [elisionFontFamily] :: Elision -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [elisionFontSize] :: Elision -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [elisionFontStyle] :: Elision -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [elisionFontWeight] :: Elision -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [elisionString] :: Elision -> String
- Fadno.MusicXml.MusicXml20: [emptyFontFontFamily] :: EmptyFont -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [emptyFontFontSize] :: EmptyFont -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [emptyFontFontStyle] :: EmptyFont -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [emptyFontFontWeight] :: EmptyFont -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [emptyLineColor] :: EmptyLine -> Maybe Color
- Fadno.MusicXml.MusicXml20: [emptyLineDefaultX] :: EmptyLine -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyLineDefaultY] :: EmptyLine -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyLineFontFamily] :: EmptyLine -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [emptyLineFontSize] :: EmptyLine -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [emptyLineFontStyle] :: EmptyLine -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [emptyLineFontWeight] :: EmptyLine -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [emptyLineLineShape] :: EmptyLine -> Maybe LineShape
- Fadno.MusicXml.MusicXml20: [emptyLineLineType] :: EmptyLine -> Maybe LineType
- Fadno.MusicXml.MusicXml20: [emptyLinePlacement] :: EmptyLine -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [emptyLineRelativeX] :: EmptyLine -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyLineRelativeY] :: EmptyLine -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyPlacementColor] :: EmptyPlacement -> Maybe Color
- Fadno.MusicXml.MusicXml20: [emptyPlacementDefaultX] :: EmptyPlacement -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyPlacementDefaultY] :: EmptyPlacement -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyPlacementFontFamily] :: EmptyPlacement -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [emptyPlacementFontSize] :: EmptyPlacement -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [emptyPlacementFontStyle] :: EmptyPlacement -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [emptyPlacementFontWeight] :: EmptyPlacement -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [emptyPlacementPlacement] :: EmptyPlacement -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [emptyPlacementRelativeX] :: EmptyPlacement -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyPlacementRelativeY] :: EmptyPlacement -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyPrintStyleColor] :: EmptyPrintStyle -> Maybe Color
- Fadno.MusicXml.MusicXml20: [emptyPrintStyleDefaultX] :: EmptyPrintStyle -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyPrintStyleDefaultY] :: EmptyPrintStyle -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyPrintStyleFontFamily] :: EmptyPrintStyle -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [emptyPrintStyleFontSize] :: EmptyPrintStyle -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [emptyPrintStyleFontStyle] :: EmptyPrintStyle -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [emptyPrintStyleFontWeight] :: EmptyPrintStyle -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [emptyPrintStyleRelativeX] :: EmptyPrintStyle -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyPrintStyleRelativeY] :: EmptyPrintStyle -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundAccelerate] :: EmptyTrillSound -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundBeats] :: EmptyTrillSound -> Maybe TrillBeats
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundColor] :: EmptyTrillSound -> Maybe Color
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundDefaultX] :: EmptyTrillSound -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundDefaultY] :: EmptyTrillSound -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundFontFamily] :: EmptyTrillSound -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundFontSize] :: EmptyTrillSound -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundFontStyle] :: EmptyTrillSound -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundFontWeight] :: EmptyTrillSound -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundLastBeat] :: EmptyTrillSound -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundPlacement] :: EmptyTrillSound -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundRelativeX] :: EmptyTrillSound -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundRelativeY] :: EmptyTrillSound -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundSecondBeat] :: EmptyTrillSound -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundStartNote] :: EmptyTrillSound -> Maybe StartNote
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundTrillStep] :: EmptyTrillSound -> Maybe TrillStep
- Fadno.MusicXml.MusicXml20: [emptyTrillSoundTwoNoteTurn] :: EmptyTrillSound -> Maybe TwoNoteTurn
- Fadno.MusicXml.MusicXml20: [encodingEncoder] :: ChxEncoding -> TypedText
- Fadno.MusicXml.MusicXml20: [encodingEncodingDate] :: ChxEncoding -> YyyyMmDd
- Fadno.MusicXml.MusicXml20: [encodingEncodingDescription] :: ChxEncoding -> String
- Fadno.MusicXml.MusicXml20: [encodingEncoding] :: Encoding -> [ChxEncoding]
- Fadno.MusicXml.MusicXml20: [encodingSoftware] :: ChxEncoding -> String
- Fadno.MusicXml.MusicXml20: [encodingSupports] :: ChxEncoding -> Supports
- Fadno.MusicXml.MusicXml20: [endingColor] :: Ending -> Maybe Color
- Fadno.MusicXml.MusicXml20: [endingDefaultX] :: Ending -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [endingDefaultY] :: Ending -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [endingEndLength] :: Ending -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [endingFontFamily] :: Ending -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [endingFontSize] :: Ending -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [endingFontStyle] :: Ending -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [endingFontWeight] :: Ending -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [endingNumber] :: EndingNumber -> Token
- Fadno.MusicXml.MusicXml20: [endingPrintObject] :: Ending -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [endingRelativeX] :: Ending -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [endingRelativeY] :: Ending -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [endingString] :: Ending -> String
- Fadno.MusicXml.MusicXml20: [endingTextX] :: Ending -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [endingTextY] :: Ending -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [endingType] :: Ending -> StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: [extendColor] :: Extend -> Maybe Color
- Fadno.MusicXml.MusicXml20: [extendFontFamily] :: Extend -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [extendFontSize] :: Extend -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [extendFontStyle] :: Extend -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [extendFontWeight] :: Extend -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [featureString] :: Feature -> String
- Fadno.MusicXml.MusicXml20: [featureType] :: Feature -> Maybe Token
- Fadno.MusicXml.MusicXml20: [fermataColor] :: Fermata -> Maybe Color
- Fadno.MusicXml.MusicXml20: [fermataDefaultX] :: Fermata -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [fermataDefaultY] :: Fermata -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [fermataFermataShape] :: Fermata -> FermataShape
- Fadno.MusicXml.MusicXml20: [fermataFontFamily] :: Fermata -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [fermataFontSize] :: Fermata -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [fermataFontStyle] :: Fermata -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [fermataFontWeight] :: Fermata -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [fermataRelativeX] :: Fermata -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [fermataRelativeY] :: Fermata -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [fermataType] :: Fermata -> Maybe UprightInverted
- Fadno.MusicXml.MusicXml20: [fifths] :: Fifths -> Int
- Fadno.MusicXml.MusicXml20: [figureExtend] :: Figure -> Maybe Extend
- Fadno.MusicXml.MusicXml20: [figureFigureNumber] :: Figure -> Maybe StyleText
- Fadno.MusicXml.MusicXml20: [figurePrefix] :: Figure -> Maybe StyleText
- Fadno.MusicXml.MusicXml20: [figureSuffix] :: Figure -> Maybe StyleText
- Fadno.MusicXml.MusicXml20: [figuredBassColor] :: FiguredBass -> Maybe Color
- Fadno.MusicXml.MusicXml20: [figuredBassDefaultX] :: FiguredBass -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [figuredBassDefaultY] :: FiguredBass -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [figuredBassDuration] :: FiguredBass -> Maybe Duration
- Fadno.MusicXml.MusicXml20: [figuredBassEditorial] :: FiguredBass -> Editorial
- Fadno.MusicXml.MusicXml20: [figuredBassFigure] :: FiguredBass -> [Figure]
- Fadno.MusicXml.MusicXml20: [figuredBassFontFamily] :: FiguredBass -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [figuredBassFontSize] :: FiguredBass -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [figuredBassFontStyle] :: FiguredBass -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [figuredBassFontWeight] :: FiguredBass -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [figuredBassParentheses] :: FiguredBass -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [figuredBassPrintDot] :: FiguredBass -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [figuredBassPrintLyric] :: FiguredBass -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [figuredBassPrintObject] :: FiguredBass -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [figuredBassPrintSpacing] :: FiguredBass -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [figuredBassRelativeX] :: FiguredBass -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [figuredBassRelativeY] :: FiguredBass -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [fingeringAlternate] :: Fingering -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [fingeringColor] :: Fingering -> Maybe Color
- Fadno.MusicXml.MusicXml20: [fingeringDefaultX] :: Fingering -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [fingeringDefaultY] :: Fingering -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [fingeringFontFamily] :: Fingering -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [fingeringFontSize] :: Fingering -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [fingeringFontStyle] :: Fingering -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [fingeringFontWeight] :: Fingering -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [fingeringPlacement] :: Fingering -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [fingeringRelativeX] :: Fingering -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [fingeringRelativeY] :: Fingering -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [fingeringString] :: Fingering -> String
- Fadno.MusicXml.MusicXml20: [fingeringSubstitution] :: Fingering -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [firstFretLocation] :: FirstFret -> Maybe LeftRight
- Fadno.MusicXml.MusicXml20: [firstFretPositiveInteger] :: FirstFret -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [firstFretText] :: FirstFret -> Maybe Token
- Fadno.MusicXml.MusicXml20: [fontSize1] :: FontSize -> Decimal
- Fadno.MusicXml.MusicXml20: [fontSize2] :: FontSize -> CssFontSize
- Fadno.MusicXml.MusicXml20: [footnoteFootnote] :: Footnote -> FormattedText
- Fadno.MusicXml.MusicXml20: [formattedTextColor] :: FormattedText -> Maybe Color
- Fadno.MusicXml.MusicXml20: [formattedTextDefaultX] :: FormattedText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [formattedTextDefaultY] :: FormattedText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [formattedTextDir] :: FormattedText -> Maybe TextDirection
- Fadno.MusicXml.MusicXml20: [formattedTextEnclosure] :: FormattedText -> Maybe Enclosure
- Fadno.MusicXml.MusicXml20: [formattedTextFontFamily] :: FormattedText -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [formattedTextFontSize] :: FormattedText -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [formattedTextFontStyle] :: FormattedText -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [formattedTextFontWeight] :: FormattedText -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [formattedTextHalign] :: FormattedText -> Maybe LeftCenterRight
- Fadno.MusicXml.MusicXml20: [formattedTextJustify] :: FormattedText -> Maybe LeftCenterRight
- Fadno.MusicXml.MusicXml20: [formattedTextLang] :: FormattedText -> Maybe Lang
- Fadno.MusicXml.MusicXml20: [formattedTextLetterSpacing] :: FormattedText -> Maybe NumberOrNormal
- Fadno.MusicXml.MusicXml20: [formattedTextLineHeight] :: FormattedText -> Maybe NumberOrNormal
- Fadno.MusicXml.MusicXml20: [formattedTextLineThrough] :: FormattedText -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [formattedTextOverline] :: FormattedText -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [formattedTextRelativeX] :: FormattedText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [formattedTextRelativeY] :: FormattedText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [formattedTextRotation] :: FormattedText -> Maybe RotationDegrees
- Fadno.MusicXml.MusicXml20: [formattedTextString] :: FormattedText -> String
- Fadno.MusicXml.MusicXml20: [formattedTextUnderline] :: FormattedText -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [formattedTextValign] :: FormattedText -> Maybe Valign
- Fadno.MusicXml.MusicXml20: [forwardDuration] :: Forward -> Duration
- Fadno.MusicXml.MusicXml20: [forwardEditorialVoice] :: Forward -> EditorialVoice
- Fadno.MusicXml.MusicXml20: [forwardStaff] :: Forward -> Maybe Staff
- Fadno.MusicXml.MusicXml20: [frameColor] :: Frame -> Maybe Color
- Fadno.MusicXml.MusicXml20: [frameDefaultX] :: Frame -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [frameDefaultY] :: Frame -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [frameFirstFret] :: Frame -> Maybe FirstFret
- Fadno.MusicXml.MusicXml20: [frameFrameFrets] :: Frame -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [frameFrameNote] :: Frame -> [FrameNote]
- Fadno.MusicXml.MusicXml20: [frameFrameStrings] :: Frame -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [frameHalign] :: Frame -> Maybe LeftCenterRight
- Fadno.MusicXml.MusicXml20: [frameHeight] :: Frame -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [frameNoteBarre] :: FrameNote -> Maybe Barre
- Fadno.MusicXml.MusicXml20: [frameNoteFingering] :: FrameNote -> Maybe Fingering
- Fadno.MusicXml.MusicXml20: [frameNoteFret] :: FrameNote -> Fret
- Fadno.MusicXml.MusicXml20: [frameNoteString] :: FrameNote -> CmpString
- Fadno.MusicXml.MusicXml20: [frameRelativeX] :: Frame -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [frameRelativeY] :: Frame -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [frameValign] :: Frame -> Maybe Valign
- Fadno.MusicXml.MusicXml20: [frameWidth] :: Frame -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [fretColor] :: Fret -> Maybe Color
- Fadno.MusicXml.MusicXml20: [fretFontFamily] :: Fret -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [fretFontSize] :: Fret -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [fretFontStyle] :: Fret -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [fretFontWeight] :: Fret -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [fretNonNegativeInteger] :: Fret -> NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [fullNoteChord] :: GrpFullNote -> Maybe Empty
- Fadno.MusicXml.MusicXml20: [fullNoteFullNote] :: GrpFullNote -> FullNote
- Fadno.MusicXml.MusicXml20: [fullNotePitch] :: FullNote -> Pitch
- Fadno.MusicXml.MusicXml20: [fullNoteRest] :: FullNote -> DisplayStepOctave
- Fadno.MusicXml.MusicXml20: [fullNoteUnpitched] :: FullNote -> DisplayStepOctave
- Fadno.MusicXml.MusicXml20: [glissandoColor] :: Glissando -> Maybe Color
- Fadno.MusicXml.MusicXml20: [glissandoDefaultX] :: Glissando -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [glissandoDefaultY] :: Glissando -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [glissandoFontFamily] :: Glissando -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [glissandoFontSize] :: Glissando -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [glissandoFontStyle] :: Glissando -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [glissandoFontWeight] :: Glissando -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [glissandoLineType] :: Glissando -> Maybe LineType
- Fadno.MusicXml.MusicXml20: [glissandoNumber] :: Glissando -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [glissandoRelativeX] :: Glissando -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [glissandoRelativeY] :: Glissando -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [glissandoString] :: Glissando -> String
- Fadno.MusicXml.MusicXml20: [glissandoType] :: Glissando -> StartStop
- Fadno.MusicXml.MusicXml20: [graceMakeTime] :: Grace -> Maybe Divisions
- Fadno.MusicXml.MusicXml20: [graceSlash] :: Grace -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [graceStealTimeFollowing] :: Grace -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [graceStealTimePrevious] :: Grace -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [groupBarlineColor] :: GroupBarline -> Maybe Color
- Fadno.MusicXml.MusicXml20: [groupBarlineGroupBarlineValue] :: GroupBarline -> GroupBarlineValue
- Fadno.MusicXml.MusicXml20: [groupNameColor] :: GroupName -> Maybe Color
- Fadno.MusicXml.MusicXml20: [groupNameDefaultX] :: GroupName -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [groupNameDefaultY] :: GroupName -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [groupNameFontFamily] :: GroupName -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [groupNameFontSize] :: GroupName -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [groupNameFontStyle] :: GroupName -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [groupNameFontWeight] :: GroupName -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [groupNameJustify] :: GroupName -> Maybe LeftCenterRight
- Fadno.MusicXml.MusicXml20: [groupNameRelativeX] :: GroupName -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [groupNameRelativeY] :: GroupName -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [groupNameString] :: GroupName -> String
- Fadno.MusicXml.MusicXml20: [groupSymbolColor] :: GroupSymbol -> Maybe Color
- Fadno.MusicXml.MusicXml20: [groupSymbolDefaultX] :: GroupSymbol -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [groupSymbolDefaultY] :: GroupSymbol -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [groupSymbolGroupSymbolValue] :: GroupSymbol -> GroupSymbolValue
- Fadno.MusicXml.MusicXml20: [groupSymbolRelativeX] :: GroupSymbol -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [groupSymbolRelativeY] :: GroupSymbol -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [groupingFeature] :: Grouping -> [Feature]
- Fadno.MusicXml.MusicXml20: [groupingMemberOf] :: Grouping -> Maybe Token
- Fadno.MusicXml.MusicXml20: [groupingNumber] :: Grouping -> Maybe Token
- Fadno.MusicXml.MusicXml20: [groupingType] :: Grouping -> StartStopSingle
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffColor] :: HammerOnPullOff -> Maybe Color
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffDefaultX] :: HammerOnPullOff -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffDefaultY] :: HammerOnPullOff -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffFontFamily] :: HammerOnPullOff -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffFontSize] :: HammerOnPullOff -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffFontStyle] :: HammerOnPullOff -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffFontWeight] :: HammerOnPullOff -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffNumber] :: HammerOnPullOff -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffPlacement] :: HammerOnPullOff -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffRelativeX] :: HammerOnPullOff -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffRelativeY] :: HammerOnPullOff -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffString] :: HammerOnPullOff -> String
- Fadno.MusicXml.MusicXml20: [hammerOnPullOffType] :: HammerOnPullOff -> StartStop
- Fadno.MusicXml.MusicXml20: [harmonicArtificial] :: ChxHarmonic -> Empty
- Fadno.MusicXml.MusicXml20: [harmonicBasePitch] :: ChxHarmonic1 -> Empty
- Fadno.MusicXml.MusicXml20: [harmonicColor] :: Harmonic -> Maybe Color
- Fadno.MusicXml.MusicXml20: [harmonicDefaultX] :: Harmonic -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harmonicDefaultY] :: Harmonic -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harmonicFontFamily] :: Harmonic -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [harmonicFontSize] :: Harmonic -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [harmonicFontStyle] :: Harmonic -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [harmonicFontWeight] :: Harmonic -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [harmonicHarmonic1] :: Harmonic -> Maybe ChxHarmonic1
- Fadno.MusicXml.MusicXml20: [harmonicHarmonic] :: Harmonic -> Maybe ChxHarmonic
- Fadno.MusicXml.MusicXml20: [harmonicNatural] :: ChxHarmonic -> Empty
- Fadno.MusicXml.MusicXml20: [harmonicPlacement] :: Harmonic -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [harmonicPrintObject] :: Harmonic -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [harmonicRelativeX] :: Harmonic -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harmonicRelativeY] :: Harmonic -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harmonicSoundingPitch] :: ChxHarmonic1 -> Empty
- Fadno.MusicXml.MusicXml20: [harmonicTouchingPitch] :: ChxHarmonic1 -> Empty
- Fadno.MusicXml.MusicXml20: [harmonyChordBass] :: HarmonyChord -> Maybe Bass
- Fadno.MusicXml.MusicXml20: [harmonyChordDegree] :: HarmonyChord -> [Degree]
- Fadno.MusicXml.MusicXml20: [harmonyChordFunction] :: ChxHarmonyChord -> StyleText
- Fadno.MusicXml.MusicXml20: [harmonyChordHarmonyChord] :: HarmonyChord -> ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: [harmonyChordInversion] :: HarmonyChord -> Maybe Inversion
- Fadno.MusicXml.MusicXml20: [harmonyChordKind] :: HarmonyChord -> Kind
- Fadno.MusicXml.MusicXml20: [harmonyChordRoot] :: ChxHarmonyChord -> Root
- Fadno.MusicXml.MusicXml20: [harmonyColor] :: Harmony -> Maybe Color
- Fadno.MusicXml.MusicXml20: [harmonyDefaultX] :: Harmony -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harmonyDefaultY] :: Harmony -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harmonyEditorial] :: Harmony -> Editorial
- Fadno.MusicXml.MusicXml20: [harmonyFontFamily] :: Harmony -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [harmonyFontSize] :: Harmony -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [harmonyFontStyle] :: Harmony -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [harmonyFontWeight] :: Harmony -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [harmonyFrame] :: Harmony -> Maybe Frame
- Fadno.MusicXml.MusicXml20: [harmonyHarmonyChord] :: Harmony -> [HarmonyChord]
- Fadno.MusicXml.MusicXml20: [harmonyOffset] :: Harmony -> Maybe Offset
- Fadno.MusicXml.MusicXml20: [harmonyPlacement] :: Harmony -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [harmonyPrintFrame] :: Harmony -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [harmonyPrintObject] :: Harmony -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [harmonyRelativeX] :: Harmony -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harmonyRelativeY] :: Harmony -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harmonyStaff] :: Harmony -> Maybe Staff
- Fadno.MusicXml.MusicXml20: [harmonyType] :: Harmony -> Maybe HarmonyType
- Fadno.MusicXml.MusicXml20: [harpPedalsColor] :: HarpPedals -> Maybe Color
- Fadno.MusicXml.MusicXml20: [harpPedalsDefaultX] :: HarpPedals -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harpPedalsDefaultY] :: HarpPedals -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harpPedalsFontFamily] :: HarpPedals -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [harpPedalsFontSize] :: HarpPedals -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [harpPedalsFontStyle] :: HarpPedals -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [harpPedalsFontWeight] :: HarpPedals -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [harpPedalsPedalTuning] :: HarpPedals -> [PedalTuning]
- Fadno.MusicXml.MusicXml20: [harpPedalsRelativeX] :: HarpPedals -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [harpPedalsRelativeY] :: HarpPedals -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [heelToeEmptyPlacement] :: HeelToe -> HeelToe
- Fadno.MusicXml.MusicXml20: [heelToeSubstitution] :: HeelToe -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [iDREF] :: IDREF -> NCName
- Fadno.MusicXml.MusicXml20: [iD] :: ID -> NCName
- Fadno.MusicXml.MusicXml20: [identificationCreator] :: Identification -> [TypedText]
- Fadno.MusicXml.MusicXml20: [identificationEncoding] :: Identification -> Maybe Encoding
- Fadno.MusicXml.MusicXml20: [identificationMiscellaneous] :: Identification -> Maybe Miscellaneous
- Fadno.MusicXml.MusicXml20: [identificationRelation] :: Identification -> [TypedText]
- Fadno.MusicXml.MusicXml20: [identificationRights] :: Identification -> [TypedText]
- Fadno.MusicXml.MusicXml20: [identificationSource] :: Identification -> Maybe String
- Fadno.MusicXml.MusicXml20: [imageDefaultX] :: Image -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [imageDefaultY] :: Image -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [imageHalign] :: Image -> Maybe LeftCenterRight
- Fadno.MusicXml.MusicXml20: [imageRelativeX] :: Image -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [imageRelativeY] :: Image -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [imageSource] :: Image -> String
- Fadno.MusicXml.MusicXml20: [imageType] :: Image -> Token
- Fadno.MusicXml.MusicXml20: [imageValign] :: Image -> Maybe ValignImage
- Fadno.MusicXml.MusicXml20: [instrumentId] :: Instrument -> IDREF
- Fadno.MusicXml.MusicXml20: [inversionColor] :: Inversion -> Maybe Color
- Fadno.MusicXml.MusicXml20: [inversionDefaultX] :: Inversion -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [inversionDefaultY] :: Inversion -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [inversionFontFamily] :: Inversion -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [inversionFontSize] :: Inversion -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [inversionFontStyle] :: Inversion -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [inversionFontWeight] :: Inversion -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [inversionNonNegativeInteger] :: Inversion -> NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [inversionRelativeX] :: Inversion -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [inversionRelativeY] :: Inversion -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [keyColor] :: Key -> Maybe Color
- Fadno.MusicXml.MusicXml20: [keyDefaultX] :: Key -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [keyDefaultY] :: Key -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [keyFontFamily] :: Key -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [keyFontSize] :: Key -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [keyFontStyle] :: Key -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [keyFontWeight] :: Key -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [keyKeyOctave] :: Key -> [KeyOctave]
- Fadno.MusicXml.MusicXml20: [keyKey] :: Key -> ChxKey
- Fadno.MusicXml.MusicXml20: [keyNonTraditionalKey] :: ChxKey -> [NonTraditionalKey]
- Fadno.MusicXml.MusicXml20: [keyNumber] :: Key -> Maybe StaffNumber
- Fadno.MusicXml.MusicXml20: [keyOctaveCancel] :: KeyOctave -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [keyOctaveNumber] :: KeyOctave -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [keyOctaveOctave] :: KeyOctave -> Octave
- Fadno.MusicXml.MusicXml20: [keyPrintObject] :: Key -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [keyRelativeX] :: Key -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [keyRelativeY] :: Key -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [keyTraditionalKey] :: ChxKey -> TraditionalKey
- Fadno.MusicXml.MusicXml20: [kindBracketDegrees] :: Kind -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [kindColor] :: Kind -> Maybe Color
- Fadno.MusicXml.MusicXml20: [kindDefaultX] :: Kind -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [kindDefaultY] :: Kind -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [kindFontFamily] :: Kind -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [kindFontSize] :: Kind -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [kindFontStyle] :: Kind -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [kindFontWeight] :: Kind -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [kindHalign] :: Kind -> Maybe LeftCenterRight
- Fadno.MusicXml.MusicXml20: [kindKindValue] :: Kind -> KindValue
- Fadno.MusicXml.MusicXml20: [kindParenthesesDegrees] :: Kind -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [kindRelativeX] :: Kind -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [kindRelativeY] :: Kind -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [kindStackDegrees] :: Kind -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [kindText] :: Kind -> Maybe Token
- Fadno.MusicXml.MusicXml20: [kindUseSymbols] :: Kind -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [kindValign] :: Kind -> Maybe Valign
- Fadno.MusicXml.MusicXml20: [lang1] :: Lang -> Language
- Fadno.MusicXml.MusicXml20: [lang2] :: Lang -> SumLang
- Fadno.MusicXml.MusicXml20: [language] :: Language -> Token
- Fadno.MusicXml.MusicXml20: [layoutPageLayout] :: Layout -> Maybe PageLayout
- Fadno.MusicXml.MusicXml20: [layoutStaffLayout] :: Layout -> [StaffLayout]
- Fadno.MusicXml.MusicXml20: [layoutSystemLayout] :: Layout -> Maybe SystemLayout
- Fadno.MusicXml.MusicXml20: [leftRightMarginsLeftMargin] :: LeftRightMargins -> Tenths
- Fadno.MusicXml.MusicXml20: [leftRightMarginsRightMargin] :: LeftRightMargins -> Tenths
- Fadno.MusicXml.MusicXml20: [levelBracket] :: Level -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [levelLevel] :: GrpLevel -> Level
- Fadno.MusicXml.MusicXml20: [levelParentheses] :: Level -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [levelReference] :: Level -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [levelSize] :: Level -> Maybe SymbolSize
- Fadno.MusicXml.MusicXml20: [levelString] :: Level -> String
- Fadno.MusicXml.MusicXml20: [lineWidthTenths] :: LineWidth -> Tenths
- Fadno.MusicXml.MusicXml20: [lineWidthType] :: LineWidthType -> Token
- Fadno.MusicXml.MusicXml20: [linkActuate] :: Link -> Maybe Actuate
- Fadno.MusicXml.MusicXml20: [linkDefaultX] :: Link -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [linkDefaultY] :: Link -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [linkElement] :: Link -> Maybe NMTOKEN
- Fadno.MusicXml.MusicXml20: [linkHref] :: Link -> String
- Fadno.MusicXml.MusicXml20: [linkName] :: Link -> Maybe Token
- Fadno.MusicXml.MusicXml20: [linkPosition] :: Link -> Maybe PositiveInteger
- Fadno.MusicXml.MusicXml20: [linkRelativeX] :: Link -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [linkRelativeY] :: Link -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [linkRole] :: Link -> Maybe Token
- Fadno.MusicXml.MusicXml20: [linkShow] :: Link -> Maybe SmpShow
- Fadno.MusicXml.MusicXml20: [linkTitle] :: Link -> Maybe Token
- Fadno.MusicXml.MusicXml20: [linkType] :: Link -> Maybe Type
- Fadno.MusicXml.MusicXml20: [lyricColor] :: Lyric -> Maybe Color
- Fadno.MusicXml.MusicXml20: [lyricDefaultX] :: Lyric -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [lyricDefaultY] :: Lyric -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [lyricEditorial] :: Lyric -> Editorial
- Fadno.MusicXml.MusicXml20: [lyricElision] :: SeqLyric0 -> Elision
- Fadno.MusicXml.MusicXml20: [lyricEndLine] :: Lyric -> Maybe Empty
- Fadno.MusicXml.MusicXml20: [lyricEndParagraph] :: Lyric -> Maybe Empty
- Fadno.MusicXml.MusicXml20: [lyricExtend1] :: ChxLyric -> Extend
- Fadno.MusicXml.MusicXml20: [lyricExtend] :: ChxLyric -> Maybe Extend
- Fadno.MusicXml.MusicXml20: [lyricFontFontFamily] :: LyricFont -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [lyricFontFontSize] :: LyricFont -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [lyricFontFontStyle] :: LyricFont -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [lyricFontFontWeight] :: LyricFont -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [lyricFontName] :: LyricFont -> Maybe Token
- Fadno.MusicXml.MusicXml20: [lyricFontNumber] :: LyricFont -> Maybe NMTOKEN
- Fadno.MusicXml.MusicXml20: [lyricHumming] :: ChxLyric -> Empty
- Fadno.MusicXml.MusicXml20: [lyricJustify] :: Lyric -> Maybe LeftCenterRight
- Fadno.MusicXml.MusicXml20: [lyricLanguageLang] :: LyricLanguage -> Lang
- Fadno.MusicXml.MusicXml20: [lyricLanguageName] :: LyricLanguage -> Maybe Token
- Fadno.MusicXml.MusicXml20: [lyricLanguageNumber] :: LyricLanguage -> Maybe NMTOKEN
- Fadno.MusicXml.MusicXml20: [lyricLaughing] :: ChxLyric -> Empty
- Fadno.MusicXml.MusicXml20: [lyricLyric] :: Lyric -> ChxLyric
- Fadno.MusicXml.MusicXml20: [lyricName] :: Lyric -> Maybe Token
- Fadno.MusicXml.MusicXml20: [lyricNumber] :: Lyric -> Maybe NMTOKEN
- Fadno.MusicXml.MusicXml20: [lyricPlacement] :: Lyric -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [lyricRelativeX] :: Lyric -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [lyricRelativeY] :: Lyric -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [lyricSyllabic] :: ChxLyric -> Maybe Syllabic
- Fadno.MusicXml.MusicXml20: [lyricText] :: ChxLyric -> TextElementData
- Fadno.MusicXml.MusicXml20: [measureImplicit] :: Measure -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [measureLayoutMeasureDistance] :: MeasureLayout -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [measureMusicData] :: Measure -> MusicData
- Fadno.MusicXml.MusicXml20: [measureNonControlling] :: Measure -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [measureNumber] :: Measure -> Token
- Fadno.MusicXml.MusicXml20: [measureNumberingColor] :: MeasureNumbering -> Maybe Color
- Fadno.MusicXml.MusicXml20: [measureNumberingDefaultX] :: MeasureNumbering -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [measureNumberingDefaultY] :: MeasureNumbering -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [measureNumberingFontFamily] :: MeasureNumbering -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [measureNumberingFontSize] :: MeasureNumbering -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [measureNumberingFontStyle] :: MeasureNumbering -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [measureNumberingFontWeight] :: MeasureNumbering -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [measureNumberingMeasureNumberingValue] :: MeasureNumbering -> MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: [measureNumberingRelativeX] :: MeasureNumbering -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [measureNumberingRelativeY] :: MeasureNumbering -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [measurePart] :: CmpMeasure -> [Part]
- Fadno.MusicXml.MusicXml20: [measureRepeatPositiveIntegerOrEmpty] :: MeasureRepeat -> PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: [measureRepeatSlashes] :: MeasureRepeat -> Maybe PositiveInteger
- Fadno.MusicXml.MusicXml20: [measureRepeatType] :: MeasureRepeat -> StartStop
- Fadno.MusicXml.MusicXml20: [measureStyleBeatRepeat] :: ChxMeasureStyle -> BeatRepeat
- Fadno.MusicXml.MusicXml20: [measureStyleColor] :: MeasureStyle -> Maybe Color
- Fadno.MusicXml.MusicXml20: [measureStyleFontFamily] :: MeasureStyle -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [measureStyleFontSize] :: MeasureStyle -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [measureStyleFontStyle] :: MeasureStyle -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [measureStyleFontWeight] :: MeasureStyle -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [measureStyleMeasureRepeat] :: ChxMeasureStyle -> MeasureRepeat
- Fadno.MusicXml.MusicXml20: [measureStyleMeasureStyle] :: MeasureStyle -> ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: [measureStyleMultipleRest] :: ChxMeasureStyle -> MultipleRest
- Fadno.MusicXml.MusicXml20: [measureStyleNumber] :: MeasureStyle -> Maybe StaffNumber
- Fadno.MusicXml.MusicXml20: [measureStyleSlash] :: ChxMeasureStyle -> CmpSlash
- Fadno.MusicXml.MusicXml20: [measureWidth] :: Measure -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [metronomeBeamBeamValue] :: MetronomeBeam -> BeamValue
- Fadno.MusicXml.MusicXml20: [metronomeBeamNumber] :: MetronomeBeam -> Maybe BeamLevel
- Fadno.MusicXml.MusicXml20: [metronomeBeatUnit] :: ChxMetronome0 -> BeatUnit
- Fadno.MusicXml.MusicXml20: [metronomeColor] :: Metronome -> Maybe Color
- Fadno.MusicXml.MusicXml20: [metronomeDefaultX] :: Metronome -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [metronomeDefaultY] :: Metronome -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [metronomeFontFamily] :: Metronome -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [metronomeFontSize] :: Metronome -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [metronomeFontStyle] :: Metronome -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [metronomeFontWeight] :: Metronome -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [metronomeMetronome1] :: ChxMetronome -> Maybe SeqMetronome
- Fadno.MusicXml.MusicXml20: [metronomeMetronomeNote] :: ChxMetronome -> [MetronomeNote]
- Fadno.MusicXml.MusicXml20: [metronomeMetronomeRelation] :: SeqMetronome -> String
- Fadno.MusicXml.MusicXml20: [metronomeMetronome] :: Metronome -> ChxMetronome
- Fadno.MusicXml.MusicXml20: [metronomeNoteMetronomeBeam] :: MetronomeNote -> [MetronomeBeam]
- Fadno.MusicXml.MusicXml20: [metronomeNoteMetronomeDot] :: MetronomeNote -> [Empty]
- Fadno.MusicXml.MusicXml20: [metronomeNoteMetronomeTuplet] :: MetronomeNote -> Maybe MetronomeTuplet
- Fadno.MusicXml.MusicXml20: [metronomeNoteMetronomeType] :: MetronomeNote -> NoteTypeValue
- Fadno.MusicXml.MusicXml20: [metronomeParentheses] :: Metronome -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [metronomePerMinute] :: ChxMetronome0 -> PerMinute
- Fadno.MusicXml.MusicXml20: [metronomeRelativeX] :: Metronome -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [metronomeRelativeY] :: Metronome -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [metronomeTupletBracket] :: MetronomeTuplet -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [metronomeTupletNormalDot] :: SeqMetronomeTuplet -> [Empty]
- Fadno.MusicXml.MusicXml20: [metronomeTupletNormalType] :: SeqMetronomeTuplet -> NoteTypeValue
- Fadno.MusicXml.MusicXml20: [metronomeTupletShowNumber] :: MetronomeTuplet -> Maybe ShowTuplet
- Fadno.MusicXml.MusicXml20: [metronomeTupletTimeModification] :: MetronomeTuplet -> MetronomeTuplet
- Fadno.MusicXml.MusicXml20: [metronomeTupletType] :: MetronomeTuplet -> StartStop
- Fadno.MusicXml.MusicXml20: [midi128] :: Midi128 -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [midi16384] :: Midi16384 -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [midi16] :: Midi16 -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [midiDevicePort] :: MidiDevice -> Maybe Midi16
- Fadno.MusicXml.MusicXml20: [midiDeviceString] :: MidiDevice -> String
- Fadno.MusicXml.MusicXml20: [midiInstrumentElevation] :: MidiInstrument -> Maybe RotationDegrees
- Fadno.MusicXml.MusicXml20: [midiInstrumentId] :: MidiInstrument -> IDREF
- Fadno.MusicXml.MusicXml20: [midiInstrumentMidiBank] :: MidiInstrument -> Maybe Midi16384
- Fadno.MusicXml.MusicXml20: [midiInstrumentMidiChannel] :: MidiInstrument -> Maybe Midi16
- Fadno.MusicXml.MusicXml20: [midiInstrumentMidiName] :: MidiInstrument -> Maybe String
- Fadno.MusicXml.MusicXml20: [midiInstrumentMidiProgram] :: MidiInstrument -> Maybe Midi128
- Fadno.MusicXml.MusicXml20: [midiInstrumentMidiUnpitched] :: MidiInstrument -> Maybe Midi128
- Fadno.MusicXml.MusicXml20: [midiInstrumentPan] :: MidiInstrument -> Maybe RotationDegrees
- Fadno.MusicXml.MusicXml20: [midiInstrumentVolume] :: MidiInstrument -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [millimeters] :: Millimeters -> Decimal
- Fadno.MusicXml.MusicXml20: [miscellaneousFieldName] :: MiscellaneousField -> Token
- Fadno.MusicXml.MusicXml20: [miscellaneousFieldString] :: MiscellaneousField -> String
- Fadno.MusicXml.MusicXml20: [miscellaneousMiscellaneousField] :: Miscellaneous -> [MiscellaneousField]
- Fadno.MusicXml.MusicXml20: [mode] :: Mode -> String
- Fadno.MusicXml.MusicXml20: [mordentEmptyTrillSound] :: Mordent -> Mordent
- Fadno.MusicXml.MusicXml20: [mordentLong] :: Mordent -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [multipleRestPositiveIntegerOrEmpty] :: MultipleRest -> PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: [multipleRestUseSymbols] :: MultipleRest -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [musicDataAttributes] :: ChxMusicData -> Attributes
- Fadno.MusicXml.MusicXml20: [musicDataBackup] :: ChxMusicData -> Backup
- Fadno.MusicXml.MusicXml20: [musicDataBarline] :: ChxMusicData -> Barline
- Fadno.MusicXml.MusicXml20: [musicDataBookmark] :: ChxMusicData -> Bookmark
- Fadno.MusicXml.MusicXml20: [musicDataDirection] :: ChxMusicData -> Direction
- Fadno.MusicXml.MusicXml20: [musicDataFiguredBass] :: ChxMusicData -> FiguredBass
- Fadno.MusicXml.MusicXml20: [musicDataForward] :: ChxMusicData -> Forward
- Fadno.MusicXml.MusicXml20: [musicDataGrouping] :: ChxMusicData -> Grouping
- Fadno.MusicXml.MusicXml20: [musicDataHarmony] :: ChxMusicData -> Harmony
- Fadno.MusicXml.MusicXml20: [musicDataLink] :: ChxMusicData -> Link
- Fadno.MusicXml.MusicXml20: [musicDataMusicData] :: MusicData -> [ChxMusicData]
- Fadno.MusicXml.MusicXml20: [musicDataNote] :: ChxMusicData -> Note
- Fadno.MusicXml.MusicXml20: [musicDataPrint] :: ChxMusicData -> Print
- Fadno.MusicXml.MusicXml20: [musicDataSound] :: ChxMusicData -> Sound
- Fadno.MusicXml.MusicXml20: [nCName] :: NCName -> Name
- Fadno.MusicXml.MusicXml20: [nMTOKEN] :: NMTOKEN -> Token
- Fadno.MusicXml.MusicXml20: [nameDisplayAccidentalText] :: ChxNameDisplay -> AccidentalText
- Fadno.MusicXml.MusicXml20: [nameDisplayDisplayText] :: ChxNameDisplay -> FormattedText
- Fadno.MusicXml.MusicXml20: [nameDisplayNameDisplay] :: NameDisplay -> [ChxNameDisplay]
- Fadno.MusicXml.MusicXml20: [nameDisplayPrintObject] :: NameDisplay -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [name] :: Name -> Token
- Fadno.MusicXml.MusicXml20: [nonArpeggiateColor] :: NonArpeggiate -> Maybe Color
- Fadno.MusicXml.MusicXml20: [nonArpeggiateDefaultX] :: NonArpeggiate -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [nonArpeggiateDefaultY] :: NonArpeggiate -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [nonArpeggiateNumber] :: NonArpeggiate -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [nonArpeggiatePlacement] :: NonArpeggiate -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [nonArpeggiateRelativeX] :: NonArpeggiate -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [nonArpeggiateRelativeY] :: NonArpeggiate -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [nonArpeggiateType] :: NonArpeggiate -> TopBottom
- Fadno.MusicXml.MusicXml20: [nonNegativeDecimal] :: NonNegativeDecimal -> Decimal
- Fadno.MusicXml.MusicXml20: [nonNegativeInteger] :: NonNegativeInteger -> Int
- Fadno.MusicXml.MusicXml20: [nonTraditionalKeyKeyAlter] :: NonTraditionalKey -> Semitones
- Fadno.MusicXml.MusicXml20: [nonTraditionalKeyKeyStep] :: NonTraditionalKey -> Step
- Fadno.MusicXml.MusicXml20: [normalizedString] :: NormalizedString -> String
- Fadno.MusicXml.MusicXml20: [notationsAccidentalMark] :: ChxNotations -> AccidentalMark
- Fadno.MusicXml.MusicXml20: [notationsArpeggiate] :: ChxNotations -> Arpeggiate
- Fadno.MusicXml.MusicXml20: [notationsArticulations] :: ChxNotations -> Articulations
- Fadno.MusicXml.MusicXml20: [notationsDynamics] :: ChxNotations -> Dynamics
- Fadno.MusicXml.MusicXml20: [notationsEditorial] :: Notations -> Editorial
- Fadno.MusicXml.MusicXml20: [notationsFermata] :: ChxNotations -> Fermata
- Fadno.MusicXml.MusicXml20: [notationsGlissando] :: ChxNotations -> Glissando
- Fadno.MusicXml.MusicXml20: [notationsNonArpeggiate] :: ChxNotations -> NonArpeggiate
- Fadno.MusicXml.MusicXml20: [notationsNotations] :: Notations -> [ChxNotations]
- Fadno.MusicXml.MusicXml20: [notationsOrnaments] :: ChxNotations -> Ornaments
- Fadno.MusicXml.MusicXml20: [notationsOtherNotation] :: ChxNotations -> OtherNotation
- Fadno.MusicXml.MusicXml20: [notationsSlide] :: ChxNotations -> Slide
- Fadno.MusicXml.MusicXml20: [notationsSlur] :: ChxNotations -> Slur
- Fadno.MusicXml.MusicXml20: [notationsTechnical] :: ChxNotations -> Technical
- Fadno.MusicXml.MusicXml20: [notationsTied] :: ChxNotations -> Tied
- Fadno.MusicXml.MusicXml20: [notationsTuplet] :: ChxNotations -> Tuplet
- Fadno.MusicXml.MusicXml20: [noteAccidental] :: Note -> Maybe Accidental
- Fadno.MusicXml.MusicXml20: [noteAttack] :: Note -> Maybe Divisions
- Fadno.MusicXml.MusicXml20: [noteBeam] :: Note -> [Beam]
- Fadno.MusicXml.MusicXml20: [noteColor] :: Note -> Maybe Color
- Fadno.MusicXml.MusicXml20: [noteCue] :: ChxNote -> Empty
- Fadno.MusicXml.MusicXml20: [noteDefaultX] :: Note -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [noteDefaultY] :: Note -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [noteDot] :: Note -> [EmptyPlacement]
- Fadno.MusicXml.MusicXml20: [noteDuration1] :: ChxNote -> Duration
- Fadno.MusicXml.MusicXml20: [noteDuration] :: ChxNote -> Duration
- Fadno.MusicXml.MusicXml20: [noteDynamics] :: Note -> Maybe NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: [noteEditorialVoice] :: Note -> EditorialVoice
- Fadno.MusicXml.MusicXml20: [noteEndDynamics] :: Note -> Maybe NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: [noteFontFamily] :: Note -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [noteFontSize] :: Note -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [noteFontStyle] :: Note -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [noteFontWeight] :: Note -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [noteFullNote1] :: ChxNote -> GrpFullNote
- Fadno.MusicXml.MusicXml20: [noteFullNote2] :: ChxNote -> GrpFullNote
- Fadno.MusicXml.MusicXml20: [noteFullNote] :: ChxNote -> GrpFullNote
- Fadno.MusicXml.MusicXml20: [noteGrace] :: ChxNote -> Grace
- Fadno.MusicXml.MusicXml20: [noteInstrument] :: Note -> Maybe Instrument
- Fadno.MusicXml.MusicXml20: [noteLyric] :: Note -> [Lyric]
- Fadno.MusicXml.MusicXml20: [noteNotations] :: Note -> [Notations]
- Fadno.MusicXml.MusicXml20: [noteNote] :: Note -> ChxNote
- Fadno.MusicXml.MusicXml20: [noteNotehead] :: Note -> Maybe Notehead
- Fadno.MusicXml.MusicXml20: [notePizzicato] :: Note -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [notePrintDot] :: Note -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [notePrintLyric] :: Note -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [notePrintObject] :: Note -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [notePrintSpacing] :: Note -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [noteRelativeX] :: Note -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [noteRelativeY] :: Note -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [noteRelease] :: Note -> Maybe Divisions
- Fadno.MusicXml.MusicXml20: [noteSizeNonNegativeDecimal] :: NoteSize -> NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: [noteSizeType] :: NoteSize -> NoteSizeType
- Fadno.MusicXml.MusicXml20: [noteStaff] :: Note -> Maybe Staff
- Fadno.MusicXml.MusicXml20: [noteStem] :: Note -> Maybe Stem
- Fadno.MusicXml.MusicXml20: [noteTie1] :: ChxNote -> [Tie]
- Fadno.MusicXml.MusicXml20: [noteTie] :: ChxNote -> [Tie]
- Fadno.MusicXml.MusicXml20: [noteTimeModification] :: Note -> Maybe TimeModification
- Fadno.MusicXml.MusicXml20: [noteTimeOnly] :: Note -> Maybe Token
- Fadno.MusicXml.MusicXml20: [noteTypeNoteTypeValue] :: NoteType -> NoteTypeValue
- Fadno.MusicXml.MusicXml20: [noteTypeSize] :: NoteType -> Maybe SymbolSize
- Fadno.MusicXml.MusicXml20: [noteType] :: Note -> Maybe NoteType
- Fadno.MusicXml.MusicXml20: [noteheadColor] :: Notehead -> Maybe Color
- Fadno.MusicXml.MusicXml20: [noteheadFilled] :: Notehead -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [noteheadFontFamily] :: Notehead -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [noteheadFontSize] :: Notehead -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [noteheadFontStyle] :: Notehead -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [noteheadFontWeight] :: Notehead -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [noteheadNoteheadValue] :: Notehead -> NoteheadValue
- Fadno.MusicXml.MusicXml20: [noteheadParentheses] :: Notehead -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [numberLevel] :: NumberLevel -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [numberOfLines] :: NumberOfLines -> NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [numberOrNormal1] :: NumberOrNormal -> Decimal
- Fadno.MusicXml.MusicXml20: [numberOrNormal2] :: NumberOrNormal -> SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: [octaveShiftColor] :: OctaveShift -> Maybe Color
- Fadno.MusicXml.MusicXml20: [octaveShiftDefaultX] :: OctaveShift -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [octaveShiftDefaultY] :: OctaveShift -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [octaveShiftFontFamily] :: OctaveShift -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [octaveShiftFontSize] :: OctaveShift -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [octaveShiftFontStyle] :: OctaveShift -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [octaveShiftFontWeight] :: OctaveShift -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [octaveShiftNumber] :: OctaveShift -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [octaveShiftRelativeX] :: OctaveShift -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [octaveShiftRelativeY] :: OctaveShift -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [octaveShiftSize] :: OctaveShift -> Maybe PositiveInteger
- Fadno.MusicXml.MusicXml20: [octaveShiftType] :: OctaveShift -> UpDownStop
- Fadno.MusicXml.MusicXml20: [octave] :: Octave -> Int
- Fadno.MusicXml.MusicXml20: [offsetDivisions] :: Offset -> Divisions
- Fadno.MusicXml.MusicXml20: [offsetSound] :: Offset -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [opusActuate] :: Opus -> Maybe Actuate
- Fadno.MusicXml.MusicXml20: [opusHref] :: Opus -> String
- Fadno.MusicXml.MusicXml20: [opusRole] :: Opus -> Maybe Token
- Fadno.MusicXml.MusicXml20: [opusShow] :: Opus -> Maybe SmpShow
- Fadno.MusicXml.MusicXml20: [opusTitle] :: Opus -> Maybe Token
- Fadno.MusicXml.MusicXml20: [opusType] :: Opus -> Maybe Type
- Fadno.MusicXml.MusicXml20: [ornamentsAccidentalMark] :: SeqOrnaments -> [AccidentalMark]
- Fadno.MusicXml.MusicXml20: [ornamentsDelayedTurn] :: ChxOrnaments -> EmptyTrillSound
- Fadno.MusicXml.MusicXml20: [ornamentsInvertedMordent] :: ChxOrnaments -> Mordent
- Fadno.MusicXml.MusicXml20: [ornamentsInvertedTurn] :: ChxOrnaments -> EmptyTrillSound
- Fadno.MusicXml.MusicXml20: [ornamentsMordent] :: ChxOrnaments -> Mordent
- Fadno.MusicXml.MusicXml20: [ornamentsOrnaments] :: Ornaments -> [SeqOrnaments]
- Fadno.MusicXml.MusicXml20: [ornamentsOtherOrnament] :: ChxOrnaments -> PlacementText
- Fadno.MusicXml.MusicXml20: [ornamentsSchleifer] :: ChxOrnaments -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [ornamentsShake] :: ChxOrnaments -> EmptyTrillSound
- Fadno.MusicXml.MusicXml20: [ornamentsTremolo] :: ChxOrnaments -> Tremolo
- Fadno.MusicXml.MusicXml20: [ornamentsTrillMark] :: ChxOrnaments -> EmptyTrillSound
- Fadno.MusicXml.MusicXml20: [ornamentsTurn] :: ChxOrnaments -> EmptyTrillSound
- Fadno.MusicXml.MusicXml20: [ornamentsWavyLine] :: ChxOrnaments -> WavyLine
- Fadno.MusicXml.MusicXml20: [otherAppearanceString] :: OtherAppearance -> String
- Fadno.MusicXml.MusicXml20: [otherAppearanceType] :: OtherAppearance -> Token
- Fadno.MusicXml.MusicXml20: [otherDirectionColor] :: OtherDirection -> Maybe Color
- Fadno.MusicXml.MusicXml20: [otherDirectionDefaultX] :: OtherDirection -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [otherDirectionDefaultY] :: OtherDirection -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [otherDirectionFontFamily] :: OtherDirection -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [otherDirectionFontSize] :: OtherDirection -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [otherDirectionFontStyle] :: OtherDirection -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [otherDirectionFontWeight] :: OtherDirection -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [otherDirectionPrintObject] :: OtherDirection -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [otherDirectionRelativeX] :: OtherDirection -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [otherDirectionRelativeY] :: OtherDirection -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [otherDirectionString] :: OtherDirection -> String
- Fadno.MusicXml.MusicXml20: [otherNotationColor] :: OtherNotation -> Maybe Color
- Fadno.MusicXml.MusicXml20: [otherNotationDefaultX] :: OtherNotation -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [otherNotationDefaultY] :: OtherNotation -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [otherNotationFontFamily] :: OtherNotation -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [otherNotationFontSize] :: OtherNotation -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [otherNotationFontStyle] :: OtherNotation -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [otherNotationFontWeight] :: OtherNotation -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [otherNotationNumber] :: OtherNotation -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [otherNotationPlacement] :: OtherNotation -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [otherNotationPrintObject] :: OtherNotation -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [otherNotationRelativeX] :: OtherNotation -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [otherNotationRelativeY] :: OtherNotation -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [otherNotationString] :: OtherNotation -> String
- Fadno.MusicXml.MusicXml20: [otherNotationType] :: OtherNotation -> StartStopSingle
- Fadno.MusicXml.MusicXml20: [pageLayoutPageHeight] :: SeqPageLayout -> Tenths
- Fadno.MusicXml.MusicXml20: [pageLayoutPageLayout] :: PageLayout -> Maybe SeqPageLayout
- Fadno.MusicXml.MusicXml20: [pageLayoutPageMargins] :: PageLayout -> [PageMargins]
- Fadno.MusicXml.MusicXml20: [pageLayoutPageWidth] :: SeqPageLayout -> Tenths
- Fadno.MusicXml.MusicXml20: [pageMarginsAllMargins] :: PageMargins -> AllMargins
- Fadno.MusicXml.MusicXml20: [pageMarginsType] :: PageMargins -> Maybe MarginType
- Fadno.MusicXml.MusicXml20: [partGroupEditorial] :: PartGroup -> Editorial
- Fadno.MusicXml.MusicXml20: [partGroupGroupAbbreviationDisplay] :: PartGroup -> Maybe NameDisplay
- Fadno.MusicXml.MusicXml20: [partGroupGroupAbbreviation] :: PartGroup -> Maybe GroupName
- Fadno.MusicXml.MusicXml20: [partGroupGroupBarline] :: PartGroup -> Maybe GroupBarline
- Fadno.MusicXml.MusicXml20: [partGroupGroupNameDisplay] :: PartGroup -> Maybe NameDisplay
- Fadno.MusicXml.MusicXml20: [partGroupGroupName] :: PartGroup -> Maybe GroupName
- Fadno.MusicXml.MusicXml20: [partGroupGroupSymbol] :: PartGroup -> Maybe GroupSymbol
- Fadno.MusicXml.MusicXml20: [partGroupGroupTime] :: PartGroup -> Maybe Empty
- Fadno.MusicXml.MusicXml20: [partGroupNumber] :: PartGroup -> Maybe Token
- Fadno.MusicXml.MusicXml20: [partGroupPartGroup] :: GrpPartGroup -> PartGroup
- Fadno.MusicXml.MusicXml20: [partGroupType] :: PartGroup -> StartStop
- Fadno.MusicXml.MusicXml20: [partId] :: CmpPart -> IDREF
- Fadno.MusicXml.MusicXml20: [partListPartGroup] :: PartList -> [GrpPartGroup]
- Fadno.MusicXml.MusicXml20: [partListPartList] :: PartList -> [ChxPartList]
- Fadno.MusicXml.MusicXml20: [partListScorePart] :: PartList -> ScorePart
- Fadno.MusicXml.MusicXml20: [partMeasure] :: CmpPart -> [Measure]
- Fadno.MusicXml.MusicXml20: [partMusicData] :: Part -> MusicData
- Fadno.MusicXml.MusicXml20: [partNameColor] :: PartName -> Maybe Color
- Fadno.MusicXml.MusicXml20: [partNameDefaultX] :: PartName -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [partNameDefaultY] :: PartName -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [partNameFontFamily] :: PartName -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [partNameFontSize] :: PartName -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [partNameFontStyle] :: PartName -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [partNameFontWeight] :: PartName -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [partNameJustify] :: PartName -> Maybe LeftCenterRight
- Fadno.MusicXml.MusicXml20: [partNamePrintObject] :: PartName -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [partNameRelativeX] :: PartName -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [partNameRelativeY] :: PartName -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [partNameString] :: PartName -> String
- Fadno.MusicXml.MusicXml20: [partSymbolBottomStaff] :: PartSymbol -> Maybe StaffNumber
- Fadno.MusicXml.MusicXml20: [partSymbolColor] :: PartSymbol -> Maybe Color
- Fadno.MusicXml.MusicXml20: [partSymbolDefaultX] :: PartSymbol -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [partSymbolDefaultY] :: PartSymbol -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [partSymbolGroupSymbolValue] :: PartSymbol -> GroupSymbolValue
- Fadno.MusicXml.MusicXml20: [partSymbolRelativeX] :: PartSymbol -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [partSymbolRelativeY] :: PartSymbol -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [partSymbolTopStaff] :: PartSymbol -> Maybe StaffNumber
- Fadno.MusicXml.MusicXml20: [pedalColor] :: Pedal -> Maybe Color
- Fadno.MusicXml.MusicXml20: [pedalDefaultX] :: Pedal -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [pedalDefaultY] :: Pedal -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [pedalFontFamily] :: Pedal -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [pedalFontSize] :: Pedal -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [pedalFontStyle] :: Pedal -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [pedalFontWeight] :: Pedal -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [pedalLine] :: Pedal -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [pedalRelativeX] :: Pedal -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [pedalRelativeY] :: Pedal -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [pedalTuningPedalAlter] :: PedalTuning -> Semitones
- Fadno.MusicXml.MusicXml20: [pedalTuningPedalStep] :: PedalTuning -> Step
- Fadno.MusicXml.MusicXml20: [pedalType] :: Pedal -> StartStopChange
- Fadno.MusicXml.MusicXml20: [perMinuteFontFamily] :: PerMinute -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [perMinuteFontSize] :: PerMinute -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [perMinuteFontStyle] :: PerMinute -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [perMinuteFontWeight] :: PerMinute -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [perMinuteString] :: PerMinute -> String
- Fadno.MusicXml.MusicXml20: [percent] :: Percent -> Decimal
- Fadno.MusicXml.MusicXml20: [pitchAlter] :: Pitch -> Maybe Semitones
- Fadno.MusicXml.MusicXml20: [pitchOctave] :: Pitch -> Octave
- Fadno.MusicXml.MusicXml20: [pitchStep] :: Pitch -> Step
- Fadno.MusicXml.MusicXml20: [placementTextColor] :: PlacementText -> Maybe Color
- Fadno.MusicXml.MusicXml20: [placementTextDefaultX] :: PlacementText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [placementTextDefaultY] :: PlacementText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [placementTextFontFamily] :: PlacementText -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [placementTextFontSize] :: PlacementText -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [placementTextFontStyle] :: PlacementText -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [placementTextFontWeight] :: PlacementText -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [placementTextPlacement] :: PlacementText -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [placementTextRelativeX] :: PlacementText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [placementTextRelativeY] :: PlacementText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [placementTextString] :: PlacementText -> String
- Fadno.MusicXml.MusicXml20: [positiveDivisions] :: PositiveDivisions -> Divisions
- Fadno.MusicXml.MusicXml20: [positiveIntegerOrEmpty1] :: PositiveIntegerOrEmpty -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [positiveIntegerOrEmpty2] :: PositiveIntegerOrEmpty -> SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: [positiveInteger] :: PositiveInteger -> NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [printBlankPage] :: Print -> Maybe PositiveInteger
- Fadno.MusicXml.MusicXml20: [printLayout] :: Print -> Layout
- Fadno.MusicXml.MusicXml20: [printMeasureLayout] :: Print -> Maybe MeasureLayout
- Fadno.MusicXml.MusicXml20: [printMeasureNumbering] :: Print -> Maybe MeasureNumbering
- Fadno.MusicXml.MusicXml20: [printNewPage] :: Print -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [printNewSystem] :: Print -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [printPageNumber] :: Print -> Maybe Token
- Fadno.MusicXml.MusicXml20: [printPartAbbreviationDisplay] :: Print -> Maybe NameDisplay
- Fadno.MusicXml.MusicXml20: [printPartNameDisplay] :: Print -> Maybe NameDisplay
- Fadno.MusicXml.MusicXml20: [printStaffSpacing] :: Print -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rehearsalColor] :: Rehearsal -> Maybe Color
- Fadno.MusicXml.MusicXml20: [rehearsalDefaultX] :: Rehearsal -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rehearsalDefaultY] :: Rehearsal -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rehearsalDir] :: Rehearsal -> Maybe TextDirection
- Fadno.MusicXml.MusicXml20: [rehearsalEnclosure] :: Rehearsal -> Maybe RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: [rehearsalFontFamily] :: Rehearsal -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [rehearsalFontSize] :: Rehearsal -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [rehearsalFontStyle] :: Rehearsal -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [rehearsalFontWeight] :: Rehearsal -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [rehearsalLang] :: Rehearsal -> Maybe Lang
- Fadno.MusicXml.MusicXml20: [rehearsalLineThrough] :: Rehearsal -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [rehearsalOverline] :: Rehearsal -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [rehearsalRelativeX] :: Rehearsal -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rehearsalRelativeY] :: Rehearsal -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rehearsalRotation] :: Rehearsal -> Maybe RotationDegrees
- Fadno.MusicXml.MusicXml20: [rehearsalString] :: Rehearsal -> String
- Fadno.MusicXml.MusicXml20: [rehearsalUnderline] :: Rehearsal -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [repeatDirection] :: Repeat -> BackwardForward
- Fadno.MusicXml.MusicXml20: [repeatTimes] :: Repeat -> Maybe NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [rootAlterColor] :: RootAlter -> Maybe Color
- Fadno.MusicXml.MusicXml20: [rootAlterDefaultX] :: RootAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rootAlterDefaultY] :: RootAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rootAlterFontFamily] :: RootAlter -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [rootAlterFontSize] :: RootAlter -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [rootAlterFontStyle] :: RootAlter -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [rootAlterFontWeight] :: RootAlter -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [rootAlterLocation] :: RootAlter -> Maybe LeftRight
- Fadno.MusicXml.MusicXml20: [rootAlterPrintObject] :: RootAlter -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [rootAlterRelativeX] :: RootAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rootAlterRelativeY] :: RootAlter -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rootAlterSemitones] :: RootAlter -> Semitones
- Fadno.MusicXml.MusicXml20: [rootRootAlter] :: Root -> Maybe RootAlter
- Fadno.MusicXml.MusicXml20: [rootRootStep] :: Root -> RootStep
- Fadno.MusicXml.MusicXml20: [rootStepColor] :: RootStep -> Maybe Color
- Fadno.MusicXml.MusicXml20: [rootStepDefaultX] :: RootStep -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rootStepDefaultY] :: RootStep -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rootStepFontFamily] :: RootStep -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [rootStepFontSize] :: RootStep -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [rootStepFontStyle] :: RootStep -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [rootStepFontWeight] :: RootStep -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [rootStepRelativeX] :: RootStep -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rootStepRelativeY] :: RootStep -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [rootStepStep] :: RootStep -> Step
- Fadno.MusicXml.MusicXml20: [rootStepText] :: RootStep -> Maybe Token
- Fadno.MusicXml.MusicXml20: [rotationDegrees] :: RotationDegrees -> Decimal
- Fadno.MusicXml.MusicXml20: [scalingMillimeters] :: Scaling -> Millimeters
- Fadno.MusicXml.MusicXml20: [scalingTenths] :: Scaling -> Tenths
- Fadno.MusicXml.MusicXml20: [scordaturaAccord] :: Scordatura -> [Accord]
- Fadno.MusicXml.MusicXml20: [scoreHeaderCredit] :: ScoreHeader -> [Credit]
- Fadno.MusicXml.MusicXml20: [scoreHeaderDefaults] :: ScoreHeader -> Maybe Defaults
- Fadno.MusicXml.MusicXml20: [scoreHeaderIdentification] :: ScoreHeader -> Maybe Identification
- Fadno.MusicXml.MusicXml20: [scoreHeaderMovementNumber] :: ScoreHeader -> Maybe String
- Fadno.MusicXml.MusicXml20: [scoreHeaderMovementTitle] :: ScoreHeader -> Maybe String
- Fadno.MusicXml.MusicXml20: [scoreHeaderPartList] :: ScoreHeader -> PartList
- Fadno.MusicXml.MusicXml20: [scoreHeaderWork] :: ScoreHeader -> Maybe Work
- Fadno.MusicXml.MusicXml20: [scoreInstrumentEnsemble] :: ChxScoreInstrument -> PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: [scoreInstrumentId] :: ScoreInstrument -> ID
- Fadno.MusicXml.MusicXml20: [scoreInstrumentInstrumentAbbreviation] :: ScoreInstrument -> Maybe String
- Fadno.MusicXml.MusicXml20: [scoreInstrumentInstrumentName] :: ScoreInstrument -> String
- Fadno.MusicXml.MusicXml20: [scoreInstrumentScoreInstrument] :: ScoreInstrument -> Maybe ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: [scoreInstrumentSolo] :: ChxScoreInstrument -> Empty
- Fadno.MusicXml.MusicXml20: [scorePartGroup] :: CmpScorePart -> [String]
- Fadno.MusicXml.MusicXml20: [scorePartId] :: CmpScorePart -> ID
- Fadno.MusicXml.MusicXml20: [scorePartIdentification] :: CmpScorePart -> Maybe Identification
- Fadno.MusicXml.MusicXml20: [scorePartMidiDevice] :: CmpScorePart -> Maybe MidiDevice
- Fadno.MusicXml.MusicXml20: [scorePartMidiInstrument] :: CmpScorePart -> [MidiInstrument]
- Fadno.MusicXml.MusicXml20: [scorePartPartAbbreviationDisplay] :: CmpScorePart -> Maybe NameDisplay
- Fadno.MusicXml.MusicXml20: [scorePartPartAbbreviation] :: CmpScorePart -> Maybe PartName
- Fadno.MusicXml.MusicXml20: [scorePartPartNameDisplay] :: CmpScorePart -> Maybe NameDisplay
- Fadno.MusicXml.MusicXml20: [scorePartPartName] :: CmpScorePart -> PartName
- Fadno.MusicXml.MusicXml20: [scorePartScoreInstrument] :: CmpScorePart -> [ScoreInstrument]
- Fadno.MusicXml.MusicXml20: [scorePartScorePart] :: ScorePart -> CmpScorePart
- Fadno.MusicXml.MusicXml20: [scorePartwisePart] :: ScorePartwise -> [CmpPart]
- Fadno.MusicXml.MusicXml20: [scorePartwiseScoreHeader] :: ScorePartwise -> ScoreHeader
- Fadno.MusicXml.MusicXml20: [scorePartwiseVersion] :: ScorePartwise -> Maybe Token
- Fadno.MusicXml.MusicXml20: [scoreTimewiseMeasure] :: ScoreTimewise -> [CmpMeasure]
- Fadno.MusicXml.MusicXml20: [scoreTimewiseScoreHeader] :: ScoreTimewise -> ScoreHeader
- Fadno.MusicXml.MusicXml20: [scoreTimewiseVersion] :: ScoreTimewise -> Maybe Token
- Fadno.MusicXml.MusicXml20: [semitones] :: Semitones -> Decimal
- Fadno.MusicXml.MusicXml20: [seqcreditBookmark] :: SeqCredit -> [Bookmark]
- Fadno.MusicXml.MusicXml20: [seqcreditCreditWords] :: SeqCredit -> FormattedText
- Fadno.MusicXml.MusicXml20: [seqcreditLink] :: SeqCredit -> [Link]
- Fadno.MusicXml.MusicXml20: [seqlyricLyric] :: SeqLyric -> Maybe SeqLyric0
- Fadno.MusicXml.MusicXml20: [seqlyricSyllabic] :: SeqLyric0 -> Maybe Syllabic
- Fadno.MusicXml.MusicXml20: [seqlyricText] :: SeqLyric -> TextElementData
- Fadno.MusicXml.MusicXml20: [seqmetronomeMetronomeNote] :: SeqMetronome -> [MetronomeNote]
- Fadno.MusicXml.MusicXml20: [seqornamentsOrnaments] :: SeqOrnaments -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: [slashSlashDot] :: Slash -> [Empty]
- Fadno.MusicXml.MusicXml20: [slashSlashType] :: Slash -> NoteTypeValue
- Fadno.MusicXml.MusicXml20: [slashSlash] :: CmpSlash -> Maybe Slash
- Fadno.MusicXml.MusicXml20: [slashType] :: CmpSlash -> StartStop
- Fadno.MusicXml.MusicXml20: [slashUseDots] :: CmpSlash -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [slashUseStems] :: CmpSlash -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [slideAccelerate] :: Slide -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [slideBeats] :: Slide -> Maybe TrillBeats
- Fadno.MusicXml.MusicXml20: [slideColor] :: Slide -> Maybe Color
- Fadno.MusicXml.MusicXml20: [slideDefaultX] :: Slide -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slideDefaultY] :: Slide -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slideFirstBeat] :: Slide -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [slideFontFamily] :: Slide -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [slideFontSize] :: Slide -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [slideFontStyle] :: Slide -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [slideFontWeight] :: Slide -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [slideLastBeat] :: Slide -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [slideLineType] :: Slide -> Maybe LineType
- Fadno.MusicXml.MusicXml20: [slideNumber] :: Slide -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [slideRelativeX] :: Slide -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slideRelativeY] :: Slide -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slideString] :: Slide -> String
- Fadno.MusicXml.MusicXml20: [slideType] :: Slide -> StartStop
- Fadno.MusicXml.MusicXml20: [slurBezierOffset2] :: Slur -> Maybe Divisions
- Fadno.MusicXml.MusicXml20: [slurBezierOffset] :: Slur -> Maybe Divisions
- Fadno.MusicXml.MusicXml20: [slurBezierX2] :: Slur -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slurBezierX] :: Slur -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slurBezierY2] :: Slur -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slurBezierY] :: Slur -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slurColor] :: Slur -> Maybe Color
- Fadno.MusicXml.MusicXml20: [slurDefaultX] :: Slur -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slurDefaultY] :: Slur -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slurLineType] :: Slur -> Maybe LineType
- Fadno.MusicXml.MusicXml20: [slurNumber] :: Slur -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [slurOrientation] :: Slur -> Maybe OverUnder
- Fadno.MusicXml.MusicXml20: [slurPlacement] :: Slur -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [slurRelativeX] :: Slur -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slurRelativeY] :: Slur -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [slurType] :: Slur -> StartStopContinue
- Fadno.MusicXml.MusicXml20: [soundCoda] :: Sound -> Maybe Token
- Fadno.MusicXml.MusicXml20: [soundDacapo] :: Sound -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [soundDalsegno] :: Sound -> Maybe Token
- Fadno.MusicXml.MusicXml20: [soundDamperPedal] :: Sound -> Maybe YesNoNumber
- Fadno.MusicXml.MusicXml20: [soundDivisions] :: Sound -> Maybe Divisions
- Fadno.MusicXml.MusicXml20: [soundDynamics] :: Sound -> Maybe NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: [soundElevation] :: Sound -> Maybe RotationDegrees
- Fadno.MusicXml.MusicXml20: [soundFine] :: Sound -> Maybe Token
- Fadno.MusicXml.MusicXml20: [soundForwardRepeat] :: Sound -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [soundMidiInstrument] :: Sound -> [MidiInstrument]
- Fadno.MusicXml.MusicXml20: [soundOffset] :: Sound -> Maybe Offset
- Fadno.MusicXml.MusicXml20: [soundPan] :: Sound -> Maybe RotationDegrees
- Fadno.MusicXml.MusicXml20: [soundPizzicato] :: Sound -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [soundSegno] :: Sound -> Maybe Token
- Fadno.MusicXml.MusicXml20: [soundSoftPedal] :: Sound -> Maybe YesNoNumber
- Fadno.MusicXml.MusicXml20: [soundSostenutoPedal] :: Sound -> Maybe YesNoNumber
- Fadno.MusicXml.MusicXml20: [soundTempo] :: Sound -> Maybe NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: [soundTimeOnly] :: Sound -> Maybe Token
- Fadno.MusicXml.MusicXml20: [soundTocoda] :: Sound -> Maybe Token
- Fadno.MusicXml.MusicXml20: [staffDetailsCapo] :: StaffDetails -> Maybe NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [staffDetailsNumber] :: StaffDetails -> Maybe StaffNumber
- Fadno.MusicXml.MusicXml20: [staffDetailsPrintObject] :: StaffDetails -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [staffDetailsPrintSpacing] :: StaffDetails -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [staffDetailsShowFrets] :: StaffDetails -> Maybe ShowFrets
- Fadno.MusicXml.MusicXml20: [staffDetailsStaffLines] :: StaffDetails -> Maybe NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [staffDetailsStaffSize] :: StaffDetails -> Maybe NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: [staffDetailsStaffTuning] :: StaffDetails -> [StaffTuning]
- Fadno.MusicXml.MusicXml20: [staffDetailsStaffType] :: StaffDetails -> Maybe StaffType
- Fadno.MusicXml.MusicXml20: [staffLayoutNumber] :: StaffLayout -> Maybe StaffNumber
- Fadno.MusicXml.MusicXml20: [staffLayoutStaffDistance] :: StaffLayout -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [staffLine] :: StaffLine -> Int
- Fadno.MusicXml.MusicXml20: [staffNumber] :: StaffNumber -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [staffStaff] :: Staff -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [staffTuningLine] :: StaffTuning -> Maybe StaffLine
- Fadno.MusicXml.MusicXml20: [staffTuningTuning] :: StaffTuning -> Tuning
- Fadno.MusicXml.MusicXml20: [stemColor] :: Stem -> Maybe Color
- Fadno.MusicXml.MusicXml20: [stemDefaultX] :: Stem -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [stemDefaultY] :: Stem -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [stemRelativeX] :: Stem -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [stemRelativeY] :: Stem -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [stemStemValue] :: Stem -> StemValue
- Fadno.MusicXml.MusicXml20: [stringColor] :: CmpString -> Maybe Color
- Fadno.MusicXml.MusicXml20: [stringDefaultX] :: CmpString -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [stringDefaultY] :: CmpString -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [stringFontFamily] :: CmpString -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [stringFontSize] :: CmpString -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [stringFontStyle] :: CmpString -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [stringFontWeight] :: CmpString -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [stringNumber] :: StringNumber -> PositiveInteger
- Fadno.MusicXml.MusicXml20: [stringPlacement] :: CmpString -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [stringRelativeX] :: CmpString -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [stringRelativeY] :: CmpString -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [stringStringNumber] :: CmpString -> StringNumber
- Fadno.MusicXml.MusicXml20: [strongAccentEmptyPlacement] :: StrongAccent -> StrongAccent
- Fadno.MusicXml.MusicXml20: [strongAccentType] :: StrongAccent -> Maybe UpDown
- Fadno.MusicXml.MusicXml20: [styleTextColor] :: StyleText -> Maybe Color
- Fadno.MusicXml.MusicXml20: [styleTextDefaultX] :: StyleText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [styleTextDefaultY] :: StyleText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [styleTextFontFamily] :: StyleText -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [styleTextFontSize] :: StyleText -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [styleTextFontStyle] :: StyleText -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [styleTextFontWeight] :: StyleText -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [styleTextRelativeX] :: StyleText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [styleTextRelativeY] :: StyleText -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [styleTextString] :: StyleText -> String
- Fadno.MusicXml.MusicXml20: [supportsAttribute] :: Supports -> Maybe NMTOKEN
- Fadno.MusicXml.MusicXml20: [supportsElement] :: Supports -> NMTOKEN
- Fadno.MusicXml.MusicXml20: [supportsType] :: Supports -> YesNo
- Fadno.MusicXml.MusicXml20: [supportsValue] :: Supports -> Maybe Token
- Fadno.MusicXml.MusicXml20: [systemLayoutSystemDistance] :: SystemLayout -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [systemLayoutSystemMargins] :: SystemLayout -> Maybe SystemMargins
- Fadno.MusicXml.MusicXml20: [systemLayoutTopSystemDistance] :: SystemLayout -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [systemMarginsLeftRightMargins] :: SystemMargins -> LeftRightMargins
- Fadno.MusicXml.MusicXml20: [technicalBend] :: ChxTechnical -> Bend
- Fadno.MusicXml.MusicXml20: [technicalDoubleTongue] :: ChxTechnical -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [technicalDownBow] :: ChxTechnical -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [technicalFingering] :: ChxTechnical -> Fingering
- Fadno.MusicXml.MusicXml20: [technicalFingernails] :: ChxTechnical -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [technicalFret] :: ChxTechnical -> Fret
- Fadno.MusicXml.MusicXml20: [technicalHammerOn] :: ChxTechnical -> HammerOnPullOff
- Fadno.MusicXml.MusicXml20: [technicalHarmonic] :: ChxTechnical -> Harmonic
- Fadno.MusicXml.MusicXml20: [technicalHeel] :: ChxTechnical -> HeelToe
- Fadno.MusicXml.MusicXml20: [technicalOpenString] :: ChxTechnical -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [technicalOtherTechnical] :: ChxTechnical -> PlacementText
- Fadno.MusicXml.MusicXml20: [technicalPluck] :: ChxTechnical -> PlacementText
- Fadno.MusicXml.MusicXml20: [technicalPullOff] :: ChxTechnical -> HammerOnPullOff
- Fadno.MusicXml.MusicXml20: [technicalSnapPizzicato] :: ChxTechnical -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [technicalStopped] :: ChxTechnical -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [technicalString] :: ChxTechnical -> CmpString
- Fadno.MusicXml.MusicXml20: [technicalTap] :: ChxTechnical -> PlacementText
- Fadno.MusicXml.MusicXml20: [technicalTechnical] :: Technical -> [ChxTechnical]
- Fadno.MusicXml.MusicXml20: [technicalThumbPosition] :: ChxTechnical -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [technicalToe] :: ChxTechnical -> HeelToe
- Fadno.MusicXml.MusicXml20: [technicalTripleTongue] :: ChxTechnical -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [technicalUpBow] :: ChxTechnical -> EmptyPlacement
- Fadno.MusicXml.MusicXml20: [tenths] :: Tenths -> Decimal
- Fadno.MusicXml.MusicXml20: [textElementDataColor] :: TextElementData -> Maybe Color
- Fadno.MusicXml.MusicXml20: [textElementDataDir] :: TextElementData -> Maybe TextDirection
- Fadno.MusicXml.MusicXml20: [textElementDataFontFamily] :: TextElementData -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [textElementDataFontSize] :: TextElementData -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [textElementDataFontStyle] :: TextElementData -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [textElementDataFontWeight] :: TextElementData -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [textElementDataLang] :: TextElementData -> Maybe Lang
- Fadno.MusicXml.MusicXml20: [textElementDataLetterSpacing] :: TextElementData -> Maybe NumberOrNormal
- Fadno.MusicXml.MusicXml20: [textElementDataLineThrough] :: TextElementData -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [textElementDataOverline] :: TextElementData -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [textElementDataRotation] :: TextElementData -> Maybe RotationDegrees
- Fadno.MusicXml.MusicXml20: [textElementDataString] :: TextElementData -> String
- Fadno.MusicXml.MusicXml20: [textElementDataUnderline] :: TextElementData -> Maybe NumberOfLines
- Fadno.MusicXml.MusicXml20: [tieType] :: Tie -> StartStop
- Fadno.MusicXml.MusicXml20: [tiedBezierOffset2] :: Tied -> Maybe Divisions
- Fadno.MusicXml.MusicXml20: [tiedBezierOffset] :: Tied -> Maybe Divisions
- Fadno.MusicXml.MusicXml20: [tiedBezierX2] :: Tied -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tiedBezierX] :: Tied -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tiedBezierY2] :: Tied -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tiedBezierY] :: Tied -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tiedColor] :: Tied -> Maybe Color
- Fadno.MusicXml.MusicXml20: [tiedDefaultX] :: Tied -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tiedDefaultY] :: Tied -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tiedLineType] :: Tied -> Maybe LineType
- Fadno.MusicXml.MusicXml20: [tiedNumber] :: Tied -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [tiedOrientation] :: Tied -> Maybe OverUnder
- Fadno.MusicXml.MusicXml20: [tiedPlacement] :: Tied -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [tiedRelativeX] :: Tied -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tiedRelativeY] :: Tied -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tiedType] :: Tied -> StartStop
- Fadno.MusicXml.MusicXml20: [timeBeatType] :: SeqTime -> String
- Fadno.MusicXml.MusicXml20: [timeBeats] :: SeqTime -> String
- Fadno.MusicXml.MusicXml20: [timeColor] :: Time -> Maybe Color
- Fadno.MusicXml.MusicXml20: [timeDefaultX] :: Time -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [timeDefaultY] :: Time -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [timeFontFamily] :: Time -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [timeFontSize] :: Time -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [timeFontStyle] :: Time -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [timeFontWeight] :: Time -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [timeModificationActualNotes] :: TimeModification -> NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [timeModificationNormalDot] :: SeqTimeModification -> [Empty]
- Fadno.MusicXml.MusicXml20: [timeModificationNormalNotes] :: TimeModification -> NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [timeModificationNormalType] :: SeqTimeModification -> NoteTypeValue
- Fadno.MusicXml.MusicXml20: [timeModificationTimeModification] :: TimeModification -> Maybe SeqTimeModification
- Fadno.MusicXml.MusicXml20: [timeNumber] :: Time -> Maybe StaffNumber
- Fadno.MusicXml.MusicXml20: [timePrintObject] :: Time -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [timeRelativeX] :: Time -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [timeRelativeY] :: Time -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [timeSenzaMisura] :: ChxTime -> Empty
- Fadno.MusicXml.MusicXml20: [timeSymbol] :: Time -> Maybe TimeSymbol
- Fadno.MusicXml.MusicXml20: [timeTime] :: Time -> ChxTime
- Fadno.MusicXml.MusicXml20: [token] :: Token -> NormalizedString
- Fadno.MusicXml.MusicXml20: [traditionalKeyCancel] :: TraditionalKey -> Maybe Cancel
- Fadno.MusicXml.MusicXml20: [traditionalKeyFifths] :: TraditionalKey -> Fifths
- Fadno.MusicXml.MusicXml20: [traditionalKeyMode] :: TraditionalKey -> Maybe Mode
- Fadno.MusicXml.MusicXml20: [transposeChromatic] :: Transpose -> Semitones
- Fadno.MusicXml.MusicXml20: [transposeDiatonic] :: Transpose -> Maybe Int
- Fadno.MusicXml.MusicXml20: [transposeDouble] :: Transpose -> Maybe Empty
- Fadno.MusicXml.MusicXml20: [transposeOctaveChange] :: Transpose -> Maybe Int
- Fadno.MusicXml.MusicXml20: [tremoloColor] :: Tremolo -> Maybe Color
- Fadno.MusicXml.MusicXml20: [tremoloDefaultX] :: Tremolo -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tremoloDefaultY] :: Tremolo -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tremoloFontFamily] :: Tremolo -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [tremoloFontSize] :: Tremolo -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [tremoloFontStyle] :: Tremolo -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [tremoloFontWeight] :: Tremolo -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [tremoloMarks] :: TremoloMarks -> Int
- Fadno.MusicXml.MusicXml20: [tremoloPlacement] :: Tremolo -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [tremoloRelativeX] :: Tremolo -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tremoloRelativeY] :: Tremolo -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tremoloTremoloMarks] :: Tremolo -> TremoloMarks
- Fadno.MusicXml.MusicXml20: [tremoloType] :: Tremolo -> Maybe StartStopSingle
- Fadno.MusicXml.MusicXml20: [trillBeats] :: TrillBeats -> Decimal
- Fadno.MusicXml.MusicXml20: [tuningTuningAlter] :: Tuning -> Maybe Semitones
- Fadno.MusicXml.MusicXml20: [tuningTuningOctave] :: Tuning -> Octave
- Fadno.MusicXml.MusicXml20: [tuningTuningStep] :: Tuning -> Step
- Fadno.MusicXml.MusicXml20: [tupletBracket] :: Tuplet -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [tupletDefaultX] :: Tuplet -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tupletDefaultY] :: Tuplet -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tupletDotColor] :: TupletDot -> Maybe Color
- Fadno.MusicXml.MusicXml20: [tupletDotFontFamily] :: TupletDot -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [tupletDotFontSize] :: TupletDot -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [tupletDotFontStyle] :: TupletDot -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [tupletDotFontWeight] :: TupletDot -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [tupletLineShape] :: Tuplet -> Maybe LineShape
- Fadno.MusicXml.MusicXml20: [tupletNumberColor] :: TupletNumber -> Maybe Color
- Fadno.MusicXml.MusicXml20: [tupletNumberFontFamily] :: TupletNumber -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [tupletNumberFontSize] :: TupletNumber -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [tupletNumberFontStyle] :: TupletNumber -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [tupletNumberFontWeight] :: TupletNumber -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [tupletNumberNonNegativeInteger] :: TupletNumber -> NonNegativeInteger
- Fadno.MusicXml.MusicXml20: [tupletNumber] :: Tuplet -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [tupletPlacement] :: Tuplet -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [tupletPortionTupletDot] :: TupletPortion -> [TupletDot]
- Fadno.MusicXml.MusicXml20: [tupletPortionTupletNumber] :: TupletPortion -> Maybe TupletNumber
- Fadno.MusicXml.MusicXml20: [tupletPortionTupletType] :: TupletPortion -> Maybe TupletType
- Fadno.MusicXml.MusicXml20: [tupletRelativeX] :: Tuplet -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tupletRelativeY] :: Tuplet -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [tupletShowNumber] :: Tuplet -> Maybe ShowTuplet
- Fadno.MusicXml.MusicXml20: [tupletShowType] :: Tuplet -> Maybe ShowTuplet
- Fadno.MusicXml.MusicXml20: [tupletTupletActual] :: Tuplet -> Maybe TupletPortion
- Fadno.MusicXml.MusicXml20: [tupletTupletNormal] :: Tuplet -> Maybe TupletPortion
- Fadno.MusicXml.MusicXml20: [tupletTypeColor] :: TupletType -> Maybe Color
- Fadno.MusicXml.MusicXml20: [tupletTypeFontFamily] :: TupletType -> Maybe CommaSeparatedText
- Fadno.MusicXml.MusicXml20: [tupletTypeFontSize] :: TupletType -> Maybe FontSize
- Fadno.MusicXml.MusicXml20: [tupletTypeFontStyle] :: TupletType -> Maybe FontStyle
- Fadno.MusicXml.MusicXml20: [tupletTypeFontWeight] :: TupletType -> Maybe FontWeight
- Fadno.MusicXml.MusicXml20: [tupletTypeNoteTypeValue] :: TupletType -> NoteTypeValue
- Fadno.MusicXml.MusicXml20: [tupletType] :: Tuplet -> StartStop
- Fadno.MusicXml.MusicXml20: [typedTextString] :: TypedText -> String
- Fadno.MusicXml.MusicXml20: [typedTextType] :: TypedText -> Maybe Token
- Fadno.MusicXml.MusicXml20: [voiceVoice] :: Voice -> String
- Fadno.MusicXml.MusicXml20: [wavyLineAccelerate] :: WavyLine -> Maybe YesNo
- Fadno.MusicXml.MusicXml20: [wavyLineBeats] :: WavyLine -> Maybe TrillBeats
- Fadno.MusicXml.MusicXml20: [wavyLineColor] :: WavyLine -> Maybe Color
- Fadno.MusicXml.MusicXml20: [wavyLineDefaultX] :: WavyLine -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [wavyLineDefaultY] :: WavyLine -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [wavyLineLastBeat] :: WavyLine -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [wavyLineNumber] :: WavyLine -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [wavyLinePlacement] :: WavyLine -> Maybe AboveBelow
- Fadno.MusicXml.MusicXml20: [wavyLineRelativeX] :: WavyLine -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [wavyLineRelativeY] :: WavyLine -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [wavyLineSecondBeat] :: WavyLine -> Maybe Percent
- Fadno.MusicXml.MusicXml20: [wavyLineStartNote] :: WavyLine -> Maybe StartNote
- Fadno.MusicXml.MusicXml20: [wavyLineTrillStep] :: WavyLine -> Maybe TrillStep
- Fadno.MusicXml.MusicXml20: [wavyLineTwoNoteTurn] :: WavyLine -> Maybe TwoNoteTurn
- Fadno.MusicXml.MusicXml20: [wavyLineType] :: WavyLine -> StartStopContinue
- Fadno.MusicXml.MusicXml20: [wedgeColor] :: Wedge -> Maybe Color
- Fadno.MusicXml.MusicXml20: [wedgeDefaultX] :: Wedge -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [wedgeDefaultY] :: Wedge -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [wedgeNumber] :: Wedge -> Maybe NumberLevel
- Fadno.MusicXml.MusicXml20: [wedgeRelativeX] :: Wedge -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [wedgeRelativeY] :: Wedge -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [wedgeSpread] :: Wedge -> Maybe Tenths
- Fadno.MusicXml.MusicXml20: [wedgeType] :: Wedge -> WedgeType
- Fadno.MusicXml.MusicXml20: [workOpus] :: Work -> Maybe Opus
- Fadno.MusicXml.MusicXml20: [workWorkNumber] :: Work -> Maybe String
- Fadno.MusicXml.MusicXml20: [workWorkTitle] :: Work -> Maybe String
- Fadno.MusicXml.MusicXml20: [yesNoNumber1] :: YesNoNumber -> YesNo
- Fadno.MusicXml.MusicXml20: [yesNoNumber2] :: YesNoNumber -> Decimal
- Fadno.MusicXml.MusicXml20: [yyyyMmDd] :: YyyyMmDd -> String
- Fadno.MusicXml.MusicXml20: data AboveBelow
- Fadno.MusicXml.MusicXml20: data Accidental
- Fadno.MusicXml.MusicXml20: data AccidentalMark
- Fadno.MusicXml.MusicXml20: data AccidentalText
- Fadno.MusicXml.MusicXml20: data AccidentalValue
- Fadno.MusicXml.MusicXml20: data Accord
- Fadno.MusicXml.MusicXml20: data AccordionRegistration
- Fadno.MusicXml.MusicXml20: data Actuate
- Fadno.MusicXml.MusicXml20: data AllMargins
- Fadno.MusicXml.MusicXml20: data Appearance
- Fadno.MusicXml.MusicXml20: data Arpeggiate
- Fadno.MusicXml.MusicXml20: data Articulations
- Fadno.MusicXml.MusicXml20: data Attributes
- Fadno.MusicXml.MusicXml20: data Backup
- Fadno.MusicXml.MusicXml20: data BackwardForward
- Fadno.MusicXml.MusicXml20: data BarStyle
- Fadno.MusicXml.MusicXml20: data BarStyleColor
- Fadno.MusicXml.MusicXml20: data Barline
- Fadno.MusicXml.MusicXml20: data Barre
- Fadno.MusicXml.MusicXml20: data Bass
- Fadno.MusicXml.MusicXml20: data BassAlter
- Fadno.MusicXml.MusicXml20: data BassStep
- Fadno.MusicXml.MusicXml20: data Beam
- Fadno.MusicXml.MusicXml20: data BeamValue
- Fadno.MusicXml.MusicXml20: data BeatRepeat
- Fadno.MusicXml.MusicXml20: data BeatUnit
- Fadno.MusicXml.MusicXml20: data Bend
- Fadno.MusicXml.MusicXml20: data Bookmark
- Fadno.MusicXml.MusicXml20: data Bracket
- Fadno.MusicXml.MusicXml20: data Cancel
- Fadno.MusicXml.MusicXml20: data ChxArticulations
- Fadno.MusicXml.MusicXml20: data ChxBend
- Fadno.MusicXml.MusicXml20: data ChxCredit
- Fadno.MusicXml.MusicXml20: data ChxDirectionType
- Fadno.MusicXml.MusicXml20: data ChxDynamics
- Fadno.MusicXml.MusicXml20: data ChxEncoding
- Fadno.MusicXml.MusicXml20: data ChxHarmonic
- Fadno.MusicXml.MusicXml20: data ChxHarmonic1
- Fadno.MusicXml.MusicXml20: data ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: data ChxKey
- Fadno.MusicXml.MusicXml20: data ChxLyric
- Fadno.MusicXml.MusicXml20: data ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: data ChxMetronome
- Fadno.MusicXml.MusicXml20: data ChxMetronome0
- Fadno.MusicXml.MusicXml20: data ChxMusicData
- Fadno.MusicXml.MusicXml20: data ChxNameDisplay
- Fadno.MusicXml.MusicXml20: data ChxNotations
- Fadno.MusicXml.MusicXml20: data ChxNote
- Fadno.MusicXml.MusicXml20: data ChxOrnaments
- Fadno.MusicXml.MusicXml20: data ChxPartList
- Fadno.MusicXml.MusicXml20: data ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: data ChxTechnical
- Fadno.MusicXml.MusicXml20: data ChxTime
- Fadno.MusicXml.MusicXml20: data Clef
- Fadno.MusicXml.MusicXml20: data ClefSign
- Fadno.MusicXml.MusicXml20: data CmpMeasure
- Fadno.MusicXml.MusicXml20: data CmpPart
- Fadno.MusicXml.MusicXml20: data CmpScorePart
- Fadno.MusicXml.MusicXml20: data CmpSlash
- Fadno.MusicXml.MusicXml20: data CmpString
- Fadno.MusicXml.MusicXml20: data Credit
- Fadno.MusicXml.MusicXml20: data CssFontSize
- Fadno.MusicXml.MusicXml20: data Dashes
- Fadno.MusicXml.MusicXml20: data Defaults
- Fadno.MusicXml.MusicXml20: data Degree
- Fadno.MusicXml.MusicXml20: data DegreeAlter
- Fadno.MusicXml.MusicXml20: data DegreeType
- Fadno.MusicXml.MusicXml20: data DegreeTypeValue
- Fadno.MusicXml.MusicXml20: data DegreeValue
- Fadno.MusicXml.MusicXml20: data Direction
- Fadno.MusicXml.MusicXml20: data DirectionType
- Fadno.MusicXml.MusicXml20: data Directive
- Fadno.MusicXml.MusicXml20: data DisplayStepOctave
- Fadno.MusicXml.MusicXml20: data Duration
- Fadno.MusicXml.MusicXml20: data Dynamics
- Fadno.MusicXml.MusicXml20: data Editorial
- Fadno.MusicXml.MusicXml20: data EditorialVoice
- Fadno.MusicXml.MusicXml20: data EditorialVoiceDirection
- Fadno.MusicXml.MusicXml20: data Elision
- Fadno.MusicXml.MusicXml20: data Empty
- Fadno.MusicXml.MusicXml20: data EmptyFont
- Fadno.MusicXml.MusicXml20: data EmptyLine
- Fadno.MusicXml.MusicXml20: data EmptyPlacement
- Fadno.MusicXml.MusicXml20: data EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: data EmptyTrillSound
- Fadno.MusicXml.MusicXml20: data Enclosure
- Fadno.MusicXml.MusicXml20: data Encoding
- Fadno.MusicXml.MusicXml20: data Ending
- Fadno.MusicXml.MusicXml20: data Extend
- Fadno.MusicXml.MusicXml20: data Fan
- Fadno.MusicXml.MusicXml20: data Feature
- Fadno.MusicXml.MusicXml20: data Fermata
- Fadno.MusicXml.MusicXml20: data FermataShape
- Fadno.MusicXml.MusicXml20: data Figure
- Fadno.MusicXml.MusicXml20: data FiguredBass
- Fadno.MusicXml.MusicXml20: data Fingering
- Fadno.MusicXml.MusicXml20: data FirstFret
- Fadno.MusicXml.MusicXml20: data FontSize
- Fadno.MusicXml.MusicXml20: data FontStyle
- Fadno.MusicXml.MusicXml20: data FontWeight
- Fadno.MusicXml.MusicXml20: data Footnote
- Fadno.MusicXml.MusicXml20: data FormattedText
- Fadno.MusicXml.MusicXml20: data Forward
- Fadno.MusicXml.MusicXml20: data Frame
- Fadno.MusicXml.MusicXml20: data FrameNote
- Fadno.MusicXml.MusicXml20: data Fret
- Fadno.MusicXml.MusicXml20: data FullNote
- Fadno.MusicXml.MusicXml20: data Glissando
- Fadno.MusicXml.MusicXml20: data Grace
- Fadno.MusicXml.MusicXml20: data GroupBarline
- Fadno.MusicXml.MusicXml20: data GroupBarlineValue
- Fadno.MusicXml.MusicXml20: data GroupName
- Fadno.MusicXml.MusicXml20: data GroupSymbol
- Fadno.MusicXml.MusicXml20: data GroupSymbolValue
- Fadno.MusicXml.MusicXml20: data Grouping
- Fadno.MusicXml.MusicXml20: data GrpFullNote
- Fadno.MusicXml.MusicXml20: data GrpLevel
- Fadno.MusicXml.MusicXml20: data GrpPartGroup
- Fadno.MusicXml.MusicXml20: data HammerOnPullOff
- Fadno.MusicXml.MusicXml20: data Harmonic
- Fadno.MusicXml.MusicXml20: data Harmony
- Fadno.MusicXml.MusicXml20: data HarmonyChord
- Fadno.MusicXml.MusicXml20: data HarmonyType
- Fadno.MusicXml.MusicXml20: data HarpPedals
- Fadno.MusicXml.MusicXml20: data HeelToe
- Fadno.MusicXml.MusicXml20: data Identification
- Fadno.MusicXml.MusicXml20: data Image
- Fadno.MusicXml.MusicXml20: data Instrument
- Fadno.MusicXml.MusicXml20: data Inversion
- Fadno.MusicXml.MusicXml20: data Key
- Fadno.MusicXml.MusicXml20: data KeyOctave
- Fadno.MusicXml.MusicXml20: data Kind
- Fadno.MusicXml.MusicXml20: data KindValue
- Fadno.MusicXml.MusicXml20: data Lang
- Fadno.MusicXml.MusicXml20: data Layout
- Fadno.MusicXml.MusicXml20: data LeftCenterRight
- Fadno.MusicXml.MusicXml20: data LeftRight
- Fadno.MusicXml.MusicXml20: data LeftRightMargins
- Fadno.MusicXml.MusicXml20: data Level
- Fadno.MusicXml.MusicXml20: data LineEnd
- Fadno.MusicXml.MusicXml20: data LineShape
- Fadno.MusicXml.MusicXml20: data LineType
- Fadno.MusicXml.MusicXml20: data LineWidth
- Fadno.MusicXml.MusicXml20: data Link
- Fadno.MusicXml.MusicXml20: data Lyric
- Fadno.MusicXml.MusicXml20: data LyricFont
- Fadno.MusicXml.MusicXml20: data LyricLanguage
- Fadno.MusicXml.MusicXml20: data MarginType
- Fadno.MusicXml.MusicXml20: data Measure
- Fadno.MusicXml.MusicXml20: data MeasureLayout
- Fadno.MusicXml.MusicXml20: data MeasureNumbering
- Fadno.MusicXml.MusicXml20: data MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: data MeasureRepeat
- Fadno.MusicXml.MusicXml20: data MeasureStyle
- Fadno.MusicXml.MusicXml20: data Metronome
- Fadno.MusicXml.MusicXml20: data MetronomeBeam
- Fadno.MusicXml.MusicXml20: data MetronomeNote
- Fadno.MusicXml.MusicXml20: data MetronomeTuplet
- Fadno.MusicXml.MusicXml20: data MidiDevice
- Fadno.MusicXml.MusicXml20: data MidiInstrument
- Fadno.MusicXml.MusicXml20: data Miscellaneous
- Fadno.MusicXml.MusicXml20: data MiscellaneousField
- Fadno.MusicXml.MusicXml20: data Mordent
- Fadno.MusicXml.MusicXml20: data MultipleRest
- Fadno.MusicXml.MusicXml20: data MusicData
- Fadno.MusicXml.MusicXml20: data NameDisplay
- Fadno.MusicXml.MusicXml20: data NonArpeggiate
- Fadno.MusicXml.MusicXml20: data NonTraditionalKey
- Fadno.MusicXml.MusicXml20: data Notations
- Fadno.MusicXml.MusicXml20: data Note
- Fadno.MusicXml.MusicXml20: data NoteSize
- Fadno.MusicXml.MusicXml20: data NoteSizeType
- Fadno.MusicXml.MusicXml20: data NoteType
- Fadno.MusicXml.MusicXml20: data NoteTypeValue
- Fadno.MusicXml.MusicXml20: data Notehead
- Fadno.MusicXml.MusicXml20: data NoteheadValue
- Fadno.MusicXml.MusicXml20: data NumberOrNormal
- Fadno.MusicXml.MusicXml20: data OctaveShift
- Fadno.MusicXml.MusicXml20: data Offset
- Fadno.MusicXml.MusicXml20: data Opus
- Fadno.MusicXml.MusicXml20: data Ornaments
- Fadno.MusicXml.MusicXml20: data OtherAppearance
- Fadno.MusicXml.MusicXml20: data OtherDirection
- Fadno.MusicXml.MusicXml20: data OtherNotation
- Fadno.MusicXml.MusicXml20: data OverUnder
- Fadno.MusicXml.MusicXml20: data PageLayout
- Fadno.MusicXml.MusicXml20: data PageMargins
- Fadno.MusicXml.MusicXml20: data Part
- Fadno.MusicXml.MusicXml20: data PartGroup
- Fadno.MusicXml.MusicXml20: data PartList
- Fadno.MusicXml.MusicXml20: data PartName
- Fadno.MusicXml.MusicXml20: data PartSymbol
- Fadno.MusicXml.MusicXml20: data Pedal
- Fadno.MusicXml.MusicXml20: data PedalTuning
- Fadno.MusicXml.MusicXml20: data PerMinute
- Fadno.MusicXml.MusicXml20: data Pitch
- Fadno.MusicXml.MusicXml20: data PlacementText
- Fadno.MusicXml.MusicXml20: data PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: data Print
- Fadno.MusicXml.MusicXml20: data Rehearsal
- Fadno.MusicXml.MusicXml20: data RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: data Repeat
- Fadno.MusicXml.MusicXml20: data RightLeftMiddle
- Fadno.MusicXml.MusicXml20: data Root
- Fadno.MusicXml.MusicXml20: data RootAlter
- Fadno.MusicXml.MusicXml20: data RootStep
- Fadno.MusicXml.MusicXml20: data Scaling
- Fadno.MusicXml.MusicXml20: data Scordatura
- Fadno.MusicXml.MusicXml20: data ScoreHeader
- Fadno.MusicXml.MusicXml20: data ScoreInstrument
- Fadno.MusicXml.MusicXml20: data ScorePart
- Fadno.MusicXml.MusicXml20: data ScorePartwise
- Fadno.MusicXml.MusicXml20: data ScoreTimewise
- Fadno.MusicXml.MusicXml20: data SeqCredit
- Fadno.MusicXml.MusicXml20: data SeqDisplayStepOctave
- Fadno.MusicXml.MusicXml20: data SeqLyric
- Fadno.MusicXml.MusicXml20: data SeqLyric0
- Fadno.MusicXml.MusicXml20: data SeqMetronome
- Fadno.MusicXml.MusicXml20: data SeqMetronomeTuplet
- Fadno.MusicXml.MusicXml20: data SeqOrnaments
- Fadno.MusicXml.MusicXml20: data SeqPageLayout
- Fadno.MusicXml.MusicXml20: data SeqTime
- Fadno.MusicXml.MusicXml20: data SeqTimeModification
- Fadno.MusicXml.MusicXml20: data ShowFrets
- Fadno.MusicXml.MusicXml20: data ShowTuplet
- Fadno.MusicXml.MusicXml20: data Slash
- Fadno.MusicXml.MusicXml20: data Slide
- Fadno.MusicXml.MusicXml20: data Slur
- Fadno.MusicXml.MusicXml20: data SmpShow
- Fadno.MusicXml.MusicXml20: data Sound
- Fadno.MusicXml.MusicXml20: data Staff
- Fadno.MusicXml.MusicXml20: data StaffDetails
- Fadno.MusicXml.MusicXml20: data StaffLayout
- Fadno.MusicXml.MusicXml20: data StaffTuning
- Fadno.MusicXml.MusicXml20: data StaffType
- Fadno.MusicXml.MusicXml20: data StartNote
- Fadno.MusicXml.MusicXml20: data StartStop
- Fadno.MusicXml.MusicXml20: data StartStopChange
- Fadno.MusicXml.MusicXml20: data StartStopContinue
- Fadno.MusicXml.MusicXml20: data StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: data StartStopSingle
- Fadno.MusicXml.MusicXml20: data Stem
- Fadno.MusicXml.MusicXml20: data StemValue
- Fadno.MusicXml.MusicXml20: data Step
- Fadno.MusicXml.MusicXml20: data StrongAccent
- Fadno.MusicXml.MusicXml20: data StyleText
- Fadno.MusicXml.MusicXml20: data SumLang
- Fadno.MusicXml.MusicXml20: data SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: data SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: data Supports
- Fadno.MusicXml.MusicXml20: data Syllabic
- Fadno.MusicXml.MusicXml20: data SymbolSize
- Fadno.MusicXml.MusicXml20: data SystemLayout
- Fadno.MusicXml.MusicXml20: data SystemMargins
- Fadno.MusicXml.MusicXml20: data Technical
- Fadno.MusicXml.MusicXml20: data TextDirection
- Fadno.MusicXml.MusicXml20: data TextElementData
- Fadno.MusicXml.MusicXml20: data Tie
- Fadno.MusicXml.MusicXml20: data Tied
- Fadno.MusicXml.MusicXml20: data Time
- Fadno.MusicXml.MusicXml20: data TimeModification
- Fadno.MusicXml.MusicXml20: data TimeSymbol
- Fadno.MusicXml.MusicXml20: data TopBottom
- Fadno.MusicXml.MusicXml20: data TraditionalKey
- Fadno.MusicXml.MusicXml20: data Transpose
- Fadno.MusicXml.MusicXml20: data Tremolo
- Fadno.MusicXml.MusicXml20: data TrillStep
- Fadno.MusicXml.MusicXml20: data Tuning
- Fadno.MusicXml.MusicXml20: data Tuplet
- Fadno.MusicXml.MusicXml20: data TupletDot
- Fadno.MusicXml.MusicXml20: data TupletNumber
- Fadno.MusicXml.MusicXml20: data TupletPortion
- Fadno.MusicXml.MusicXml20: data TupletType
- Fadno.MusicXml.MusicXml20: data TwoNoteTurn
- Fadno.MusicXml.MusicXml20: data Type
- Fadno.MusicXml.MusicXml20: data TypedText
- Fadno.MusicXml.MusicXml20: data UpDown
- Fadno.MusicXml.MusicXml20: data UpDownStop
- Fadno.MusicXml.MusicXml20: data UprightInverted
- Fadno.MusicXml.MusicXml20: data Valign
- Fadno.MusicXml.MusicXml20: data ValignImage
- Fadno.MusicXml.MusicXml20: data Voice
- Fadno.MusicXml.MusicXml20: data WavyLine
- Fadno.MusicXml.MusicXml20: data Wedge
- Fadno.MusicXml.MusicXml20: data WedgeType
- Fadno.MusicXml.MusicXml20: data Work
- Fadno.MusicXml.MusicXml20: data YesNo
- Fadno.MusicXml.MusicXml20: data YesNoNumber
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.Color
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.CommaSeparatedText
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.EndingNumber
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.ID
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.IDREF
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.Language
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.LineWidthType
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.Mode
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.NCName
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.NMTOKEN
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.Name
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.NormalizedString
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.Token
- Fadno.MusicXml.MusicXml20: instance Data.String.IsString Fadno.MusicXml.MusicXml20.YyyyMmDd
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.AboveBelow
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Accidental
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.AccidentalMark
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.AccidentalText
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.AccidentalValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Accord
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.AccordionRegistration
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Actuate
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.AllMargins
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Appearance
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Arpeggiate
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Articulations
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Attributes
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Backup
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.BackwardForward
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.BarStyle
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.BarStyleColor
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Barline
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Barre
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Bass
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.BassAlter
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.BassStep
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Beam
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.BeamValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.BeatRepeat
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.BeatUnit
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Bend
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Bookmark
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Bracket
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Cancel
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxArticulations
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxBend
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxCredit
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxDirectionType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxDynamics
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxEncoding
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxHarmonic
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxHarmonic1
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxKey
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxLyric
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxMetronome
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxMetronome0
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxMusicData
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxNameDisplay
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxNotations
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxNote
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxOrnaments
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxPartList
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxTechnical
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ChxTime
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Clef
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ClefSign
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.CmpMeasure
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.CmpPart
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.CmpScorePart
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.CmpSlash
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.CmpString
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Color
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.CommaSeparatedText
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Credit
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.CssFontSize
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Dashes
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Defaults
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Degree
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.DegreeAlter
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.DegreeType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.DegreeTypeValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.DegreeValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Direction
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.DirectionType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Directive
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.DisplayStepOctave
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Divisions
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Duration
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Dynamics
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Editorial
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.EditorialVoice
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.EditorialVoiceDirection
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Elision
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Empty
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.EmptyFont
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.EmptyLine
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.EmptyPlacement
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.EmptyTrillSound
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Enclosure
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Encoding
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Ending
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.EndingNumber
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Extend
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Fan
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Feature
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Fermata
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.FermataShape
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Figure
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.FiguredBass
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Fingering
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.FirstFret
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.FontSize
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.FontStyle
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.FontWeight
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Footnote
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.FormattedText
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Forward
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Frame
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.FrameNote
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Fret
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.FullNote
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Glissando
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Grace
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.GroupBarline
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.GroupBarlineValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.GroupName
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.GroupSymbol
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.GroupSymbolValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Grouping
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.GrpFullNote
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.GrpLevel
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.GrpPartGroup
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.HammerOnPullOff
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Harmonic
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Harmony
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.HarmonyChord
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.HarmonyType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.HarpPedals
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.HeelToe
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ID
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.IDREF
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Identification
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Image
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Instrument
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Inversion
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Key
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.KeyOctave
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Kind
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.KindValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Lang
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Language
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Layout
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.LeftCenterRight
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.LeftRight
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.LeftRightMargins
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Level
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.LineEnd
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.LineShape
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.LineType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.LineWidth
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.LineWidthType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Link
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Lyric
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.LyricFont
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.LyricLanguage
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MarginType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Measure
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MeasureLayout
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MeasureNumbering
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MeasureRepeat
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MeasureStyle
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Metronome
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MetronomeBeam
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MetronomeNote
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MetronomeTuplet
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MidiDevice
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MidiInstrument
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Millimeters
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Miscellaneous
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MiscellaneousField
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Mode
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Mordent
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MultipleRest
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.MusicData
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NCName
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NMTOKEN
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Name
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NameDisplay
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NonArpeggiate
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NonTraditionalKey
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NormalizedString
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Notations
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Note
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NoteSize
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NoteSizeType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NoteType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NoteTypeValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Notehead
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NoteheadValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.NumberOrNormal
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.OctaveShift
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Offset
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Opus
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Ornaments
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.OtherAppearance
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.OtherDirection
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.OtherNotation
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.OverUnder
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PageLayout
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PageMargins
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Part
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PartGroup
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PartList
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PartName
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PartSymbol
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Pedal
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PedalTuning
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PerMinute
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Percent
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Pitch
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PlacementText
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PositiveDivisions
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Print
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Rehearsal
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Repeat
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.RightLeftMiddle
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Root
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.RootAlter
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.RootStep
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.RotationDegrees
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Scaling
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Scordatura
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ScoreHeader
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ScoreInstrument
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ScorePart
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ScorePartwise
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ScoreTimewise
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Semitones
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SeqCredit
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SeqDisplayStepOctave
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SeqLyric
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SeqLyric0
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SeqMetronome
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SeqMetronomeTuplet
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SeqOrnaments
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SeqPageLayout
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SeqTime
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SeqTimeModification
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ShowFrets
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ShowTuplet
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Slash
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Slide
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Slur
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SmpShow
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Sound
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Staff
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StaffDetails
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StaffLayout
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StaffTuning
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StaffType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StartNote
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StartStop
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StartStopChange
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StartStopContinue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StartStopSingle
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Stem
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StemValue
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Step
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StrongAccent
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.StyleText
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SumLang
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Supports
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Syllabic
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SymbolSize
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SystemLayout
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.SystemMargins
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Technical
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Tenths
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TextDirection
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TextElementData
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Tie
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Tied
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Time
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TimeModification
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TimeSymbol
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Token
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TopBottom
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TraditionalKey
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Transpose
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Tremolo
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TrillBeats
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TrillStep
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Tuning
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Tuplet
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TupletDot
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TupletNumber
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TupletPortion
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TupletType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TwoNoteTurn
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Type
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.TypedText
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.UpDown
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.UpDownStop
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.UprightInverted
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Valign
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.ValignImage
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Voice
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.WavyLine
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Wedge
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.WedgeType
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.Work
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.YesNo
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.YesNoNumber
- Fadno.MusicXml.MusicXml20: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml20.YyyyMmDd
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.AboveBelow
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Accidental
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.AccidentalMark
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.AccidentalText
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.AccidentalValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Accord
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.AccordionRegistration
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Actuate
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.AllMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Appearance
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Arpeggiate
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Articulations
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Attributes
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Backup
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.BackwardForward
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.BarStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.BarStyleColor
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Barline
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Barre
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Bass
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.BassAlter
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.BassStep
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Beam
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.BeamValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.BeatRepeat
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.BeatUnit
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Bend
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Bookmark
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Bracket
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Cancel
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxArticulations
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxBend
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxCredit
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxDirectionType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxDynamics
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxEncoding
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxHarmonic
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxHarmonic1
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxKey
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxLyric
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxMetronome
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxMetronome0
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxMusicData
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxNameDisplay
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxNotations
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxNote
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxOrnaments
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxPartList
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxTechnical
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ChxTime
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Clef
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ClefSign
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.CmpMeasure
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.CmpPart
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.CmpScorePart
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.CmpSlash
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.CmpString
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Color
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.CommaSeparatedText
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Credit
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.CssFontSize
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Dashes
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Defaults
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Degree
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.DegreeAlter
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.DegreeType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.DegreeTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.DegreeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Direction
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.DirectionType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Directive
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.DisplayStepOctave
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Divisions
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Duration
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Dynamics
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Editorial
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.EditorialVoice
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.EditorialVoiceDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Elision
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Empty
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.EmptyFont
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.EmptyLine
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.EmptyPlacement
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.EmptyTrillSound
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Enclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Encoding
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Ending
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.EndingNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Extend
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Fan
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Feature
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Fermata
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.FermataShape
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Figure
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.FiguredBass
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Fingering
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.FirstFret
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.FontSize
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.FontStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.FontWeight
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Footnote
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.FormattedText
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Forward
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Frame
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.FrameNote
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Fret
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.FullNote
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Glissando
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Grace
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.GroupBarline
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.GroupBarlineValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.GroupName
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.GroupSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.GroupSymbolValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Grouping
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.GrpFullNote
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.GrpLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.GrpPartGroup
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.HammerOnPullOff
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Harmonic
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Harmony
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.HarmonyChord
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.HarmonyType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.HarpPedals
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.HeelToe
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ID
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.IDREF
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Identification
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Image
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Instrument
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Inversion
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Key
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.KeyOctave
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Kind
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.KindValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Lang
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Language
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Layout
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.LeftCenterRight
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.LeftRight
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.LeftRightMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Level
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.LineEnd
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.LineShape
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.LineType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.LineWidth
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.LineWidthType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Link
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Lyric
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.LyricFont
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.LyricLanguage
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MarginType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Measure
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MeasureLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MeasureNumbering
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MeasureRepeat
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MeasureStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Metronome
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MetronomeBeam
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MetronomeNote
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MetronomeTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MidiDevice
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MidiInstrument
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Millimeters
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Miscellaneous
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MiscellaneousField
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Mode
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Mordent
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MultipleRest
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.MusicData
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NCName
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NMTOKEN
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Name
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NameDisplay
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NonArpeggiate
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NonTraditionalKey
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NormalizedString
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Notations
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Note
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NoteSize
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NoteSizeType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NoteType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NoteTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Notehead
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NoteheadValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.NumberOrNormal
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.OctaveShift
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Offset
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Opus
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Ornaments
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.OtherAppearance
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.OtherDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.OtherNotation
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.OverUnder
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PageLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PageMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Part
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PartGroup
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PartList
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PartName
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PartSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Pedal
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PedalTuning
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PerMinute
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Percent
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Pitch
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PlacementText
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PositiveDivisions
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Print
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Rehearsal
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Repeat
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.RightLeftMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Root
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.RootAlter
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.RootStep
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.RotationDegrees
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Scaling
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Scordatura
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ScoreHeader
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ScoreInstrument
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ScorePart
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ScorePartwise
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ScoreTimewise
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Semitones
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SeqCredit
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SeqDisplayStepOctave
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SeqLyric
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SeqLyric0
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SeqMetronome
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SeqMetronomeTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SeqOrnaments
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SeqPageLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SeqTime
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SeqTimeModification
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ShowFrets
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ShowTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Slash
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Slide
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Slur
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SmpShow
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Sound
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Staff
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StaffDetails
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StaffLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StaffTuning
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StaffType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StartNote
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StartStop
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StartStopChange
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StartStopContinue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StartStopSingle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Stem
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StemValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Step
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StrongAccent
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.StyleText
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SumLang
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Supports
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Syllabic
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SymbolSize
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SystemLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.SystemMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Technical
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Tenths
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TextDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TextElementData
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Tie
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Tied
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Time
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TimeModification
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TimeSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Token
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TopBottom
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TraditionalKey
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Transpose
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Tremolo
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TrillBeats
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TrillStep
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Tuning
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Tuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TupletDot
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TupletNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TupletPortion
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TupletType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TwoNoteTurn
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Type
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.TypedText
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.UpDown
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.UpDownStop
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.UprightInverted
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Valign
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.ValignImage
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Voice
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.WavyLine
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Wedge
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.WedgeType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.Work
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.YesNo
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.YesNoNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml20.YyyyMmDd
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.AboveBelow
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.AccidentalValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Actuate
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.BackwardForward
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.BarStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.BeamValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.ClefSign
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Color
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.CommaSeparatedText
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.CssFontSize
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.DegreeTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Divisions
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Enclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.EndingNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Fan
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.FermataShape
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.FontStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.FontWeight
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.GroupBarlineValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.GroupSymbolValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.HarmonyType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.ID
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.IDREF
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.KindValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Language
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.LeftCenterRight
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.LeftRight
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.LineEnd
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.LineShape
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.LineType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.LineWidthType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.MarginType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Millimeters
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Mode
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.NCName
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.NMTOKEN
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Name
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.NormalizedString
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.NoteSizeType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.NoteTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.NoteheadValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.OverUnder
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Percent
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.PositiveDivisions
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.RightLeftMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.RotationDegrees
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Semitones
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.ShowFrets
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.ShowTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.SmpShow
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StaffType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StartNote
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StartStop
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StartStopChange
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StartStopContinue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StartStopSingle
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StemValue
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Step
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.SumLang
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Syllabic
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.SymbolSize
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Tenths
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.TextDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.TimeSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Token
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.TopBottom
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.TrillBeats
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.TrillStep
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.TwoNoteTurn
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Type
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.UpDown
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.UpDownStop
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.UprightInverted
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.Valign
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.ValignImage
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.WedgeType
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.YesNo
- Fadno.MusicXml.MusicXml20: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml20.YyyyMmDd
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.AboveBelow
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.AccidentalValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Actuate
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.BackwardForward
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.BarStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.BeamValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.ClefSign
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.CssFontSize
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.DegreeTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Enclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Fan
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.FermataShape
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.FontStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.FontWeight
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.GroupBarlineValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.GroupSymbolValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.HarmonyType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.KindValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.LeftCenterRight
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.LeftRight
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.LineEnd
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.LineShape
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.LineType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.MarginType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.NoteSizeType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.NoteTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.NoteheadValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.OverUnder
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.RightLeftMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.ShowFrets
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.ShowTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.SmpShow
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StaffType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StartNote
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StartStop
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StartStopChange
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StartStopContinue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StartStopSingle
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StemValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Step
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.SumLang
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Syllabic
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.SymbolSize
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.TextDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.TimeSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.TopBottom
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.TrillStep
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.TwoNoteTurn
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Type
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.UpDown
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.UpDownStop
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.UprightInverted
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.Valign
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.ValignImage
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.WedgeType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml20.YesNo
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.AboveBelow
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.AccidentalValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Actuate
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.BackwardForward
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.BarStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.BeamValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.ClefSign
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.CssFontSize
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.DegreeTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Enclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Fan
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.FermataShape
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.FontStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.FontWeight
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.GroupBarlineValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.GroupSymbolValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.HarmonyType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.KindValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.LeftCenterRight
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.LeftRight
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.LineEnd
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.LineShape
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.LineType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.MarginType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.NoteSizeType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.NoteTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.NoteheadValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.OverUnder
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.RightLeftMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.ShowFrets
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.ShowTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.SmpShow
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StaffType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StartNote
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StartStop
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StartStopChange
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StartStopContinue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StartStopSingle
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StemValue
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Step
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.SumLang
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Syllabic
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.SymbolSize
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.TextDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.TimeSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.TopBottom
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.TrillStep
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.TwoNoteTurn
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Type
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.UpDown
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.UpDownStop
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.UprightInverted
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.Valign
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.ValignImage
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.WedgeType
- Fadno.MusicXml.MusicXml20: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml20.YesNo
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.AboveBelow
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Accidental
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.AccidentalMark
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.AccidentalText
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.AccidentalValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Accord
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.AccordionRegistration
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Actuate
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.AllMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Appearance
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Arpeggiate
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Articulations
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Attributes
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Backup
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.BackwardForward
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.BarStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.BarStyleColor
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Barline
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Barre
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Bass
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.BassAlter
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.BassStep
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Beam
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.BeamValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.BeatRepeat
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.BeatUnit
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Bend
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Bookmark
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Bracket
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Cancel
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxArticulations
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxBend
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxCredit
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxDirectionType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxDynamics
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxEncoding
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxHarmonic
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxHarmonic1
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxKey
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxLyric
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxMetronome
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxMetronome0
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxMusicData
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxNameDisplay
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxNotations
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxNote
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxOrnaments
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxPartList
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxTechnical
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ChxTime
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Clef
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ClefSign
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.CmpMeasure
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.CmpPart
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.CmpScorePart
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.CmpSlash
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.CmpString
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Color
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.CommaSeparatedText
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Credit
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.CssFontSize
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Dashes
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Defaults
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Degree
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.DegreeAlter
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.DegreeType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.DegreeTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.DegreeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Direction
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.DirectionType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Directive
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.DisplayStepOctave
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Divisions
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Duration
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Dynamics
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Editorial
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.EditorialVoice
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.EditorialVoiceDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Elision
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Empty
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.EmptyFont
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.EmptyLine
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.EmptyPlacement
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.EmptyTrillSound
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Enclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Encoding
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Ending
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.EndingNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Extend
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Fan
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Feature
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Fermata
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.FermataShape
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Figure
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.FiguredBass
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Fingering
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.FirstFret
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.FontSize
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.FontStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.FontWeight
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Footnote
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.FormattedText
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Forward
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Frame
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.FrameNote
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Fret
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.FullNote
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Glissando
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Grace
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.GroupBarline
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.GroupBarlineValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.GroupName
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.GroupSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.GroupSymbolValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Grouping
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.GrpFullNote
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.GrpLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.GrpPartGroup
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.HammerOnPullOff
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Harmonic
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Harmony
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.HarmonyChord
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.HarmonyType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.HarpPedals
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.HeelToe
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ID
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.IDREF
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Identification
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Image
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Instrument
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Inversion
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Key
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.KeyOctave
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Kind
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.KindValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Lang
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Language
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Layout
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.LeftCenterRight
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.LeftRight
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.LeftRightMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Level
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.LineEnd
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.LineShape
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.LineType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.LineWidth
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.LineWidthType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Link
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Lyric
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.LyricFont
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.LyricLanguage
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MarginType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Measure
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MeasureLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MeasureNumbering
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MeasureRepeat
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MeasureStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Metronome
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MetronomeBeam
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MetronomeNote
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MetronomeTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MidiDevice
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MidiInstrument
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Millimeters
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Miscellaneous
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MiscellaneousField
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Mode
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Mordent
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MultipleRest
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.MusicData
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NCName
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NMTOKEN
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Name
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NameDisplay
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NonArpeggiate
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NonTraditionalKey
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NormalizedString
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Notations
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Note
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NoteSize
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NoteSizeType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NoteType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NoteTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Notehead
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NoteheadValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.NumberOrNormal
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.OctaveShift
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Offset
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Opus
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Ornaments
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.OtherAppearance
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.OtherDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.OtherNotation
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.OverUnder
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PageLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PageMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Part
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PartGroup
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PartList
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PartName
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PartSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Pedal
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PedalTuning
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PerMinute
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Percent
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Pitch
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PlacementText
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PositiveDivisions
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Print
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Rehearsal
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Repeat
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.RightLeftMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Root
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.RootAlter
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.RootStep
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.RotationDegrees
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Scaling
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Scordatura
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ScoreHeader
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ScoreInstrument
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ScorePart
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ScorePartwise
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ScoreTimewise
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Semitones
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SeqCredit
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SeqDisplayStepOctave
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SeqLyric
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SeqLyric0
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SeqMetronome
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SeqMetronomeTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SeqOrnaments
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SeqPageLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SeqTime
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SeqTimeModification
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ShowFrets
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ShowTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Slash
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Slide
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Slur
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SmpShow
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Sound
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Staff
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StaffDetails
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StaffLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StaffTuning
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StaffType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StartNote
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StartStop
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StartStopChange
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StartStopContinue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StartStopSingle
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Stem
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StemValue
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Step
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StrongAccent
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.StyleText
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SumLang
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Supports
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Syllabic
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SymbolSize
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SystemLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.SystemMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Technical
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Tenths
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TextDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TextElementData
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Tie
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Tied
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Time
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TimeModification
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TimeSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Token
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TopBottom
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TraditionalKey
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Transpose
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Tremolo
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TrillBeats
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TrillStep
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Tuning
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Tuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TupletDot
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TupletNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TupletPortion
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TupletType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TwoNoteTurn
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Type
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.TypedText
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.UpDown
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.UpDownStop
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.UprightInverted
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Valign
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.ValignImage
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Voice
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.WavyLine
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Wedge
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.WedgeType
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.Work
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.YesNo
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.YesNoNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml20.YyyyMmDd
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.Divisions
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.Millimeters
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.Percent
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.PositiveDivisions
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.RotationDegrees
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.Semitones
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.Tenths
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance GHC.Num.Num Fadno.MusicXml.MusicXml20.TrillBeats
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Color
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.CommaSeparatedText
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Divisions
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.EndingNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.ID
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.IDREF
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Language
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.LineWidthType
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Millimeters
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Mode
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.NCName
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.NMTOKEN
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Name
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.NormalizedString
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Percent
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.PositiveDivisions
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.RotationDegrees
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Semitones
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Tenths
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.Token
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.TrillBeats
- Fadno.MusicXml.MusicXml20: instance GHC.Read.Read Fadno.MusicXml.MusicXml20.YyyyMmDd
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml20.Divisions
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml20.Millimeters
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml20.NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml20.Percent
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml20.PositiveDivisions
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml20.RotationDegrees
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml20.Semitones
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml20.Tenths
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml20.TrillBeats
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Integral Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.Divisions
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.Millimeters
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.Percent
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.PositiveDivisions
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.RotationDegrees
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.Semitones
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.Tenths
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance GHC.Real.Real Fadno.MusicXml.MusicXml20.TrillBeats
- Fadno.MusicXml.MusicXml20: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml20.Divisions
- Fadno.MusicXml.MusicXml20: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml20.Millimeters
- Fadno.MusicXml.MusicXml20: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml20.NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml20.Percent
- Fadno.MusicXml.MusicXml20: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml20.PositiveDivisions
- Fadno.MusicXml.MusicXml20: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml20.RotationDegrees
- Fadno.MusicXml.MusicXml20: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml20.Semitones
- Fadno.MusicXml.MusicXml20: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml20.Tenths
- Fadno.MusicXml.MusicXml20: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml20.TrillBeats
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.AboveBelow
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Accidental
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.AccidentalMark
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.AccidentalText
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.AccidentalValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Accord
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.AccordionMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.AccordionRegistration
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Actuate
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.AllMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Appearance
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Arpeggiate
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Articulations
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Attributes
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Backup
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.BackwardForward
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.BarStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.BarStyleColor
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Barline
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Barre
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Bass
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.BassAlter
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.BassStep
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Beam
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.BeamLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.BeamValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.BeatRepeat
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.BeatUnit
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Bend
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Bookmark
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Bracket
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Cancel
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxArticulations
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxBend
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxCredit
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxDirectionType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxDynamics
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxEncoding
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxHarmonic
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxHarmonic1
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxKey
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxLyric
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxMetronome
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxMetronome0
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxMusicData
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxNameDisplay
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxNotations
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxNote
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxOrnaments
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxPartList
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxTechnical
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ChxTime
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Clef
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ClefSign
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.CmpMeasure
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.CmpPart
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.CmpScorePart
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.CmpSlash
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.CmpString
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Color
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.CommaSeparatedText
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Credit
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.CssFontSize
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Dashes
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Defaults
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Degree
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.DegreeAlter
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.DegreeType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.DegreeTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.DegreeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Direction
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.DirectionType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Directive
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.DisplayStepOctave
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Divisions
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Duration
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Dynamics
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Editorial
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.EditorialVoice
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.EditorialVoiceDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Elision
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Empty
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.EmptyFont
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.EmptyLine
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.EmptyPlacement
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.EmptyTrillSound
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Enclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Encoding
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Ending
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.EndingNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Extend
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Fan
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Feature
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Fermata
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.FermataShape
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Fifths
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Figure
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.FiguredBass
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Fingering
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.FirstFret
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.FontSize
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.FontStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.FontWeight
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Footnote
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.FormattedText
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Forward
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Frame
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.FrameNote
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Fret
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.FullNote
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Glissando
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Grace
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.GroupBarline
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.GroupBarlineValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.GroupName
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.GroupSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.GroupSymbolValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Grouping
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.GrpFullNote
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.GrpLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.GrpPartGroup
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.HammerOnPullOff
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Harmonic
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Harmony
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.HarmonyChord
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.HarmonyType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.HarpPedals
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.HeelToe
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ID
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.IDREF
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Identification
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Image
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Instrument
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Inversion
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Key
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.KeyOctave
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Kind
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.KindValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Lang
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Language
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Layout
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.LeftCenterRight
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.LeftRight
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.LeftRightMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Level
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.LineEnd
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.LineShape
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.LineType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.LineWidth
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.LineWidthType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Link
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Lyric
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.LyricFont
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.LyricLanguage
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MarginType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Measure
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MeasureLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MeasureNumbering
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MeasureRepeat
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MeasureStyle
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Metronome
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MetronomeBeam
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MetronomeNote
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MetronomeTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Midi128
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Midi16
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Midi16384
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MidiDevice
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MidiInstrument
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Millimeters
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Miscellaneous
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MiscellaneousField
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Mode
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Mordent
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MultipleRest
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.MusicData
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NCName
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NMTOKEN
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Name
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NameDisplay
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NonArpeggiate
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NonNegativeInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NonTraditionalKey
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NormalizedString
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Notations
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Note
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NoteSize
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NoteSizeType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NoteType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NoteTypeValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Notehead
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NoteheadValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NumberLevel
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NumberOfLines
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.NumberOrNormal
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Octave
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.OctaveShift
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Offset
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Opus
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Ornaments
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.OtherAppearance
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.OtherDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.OtherNotation
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.OverUnder
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PageLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PageMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Part
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PartGroup
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PartList
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PartName
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PartSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Pedal
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PedalTuning
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PerMinute
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Percent
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Pitch
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PlacementText
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PositiveDivisions
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PositiveInteger
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Print
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Rehearsal
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Repeat
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.RightLeftMiddle
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Root
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.RootAlter
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.RootStep
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.RotationDegrees
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Scaling
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Scordatura
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ScoreHeader
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ScoreInstrument
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ScorePart
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ScorePartwise
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ScoreTimewise
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Semitones
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SeqCredit
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SeqDisplayStepOctave
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SeqLyric
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SeqLyric0
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SeqMetronome
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SeqMetronomeTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SeqOrnaments
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SeqPageLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SeqTime
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SeqTimeModification
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ShowFrets
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ShowTuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Slash
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Slide
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Slur
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SmpShow
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Sound
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Staff
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StaffDetails
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StaffLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StaffLine
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StaffNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StaffTuning
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StaffType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StartNote
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StartStop
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StartStopChange
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StartStopContinue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StartStopSingle
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Stem
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StemValue
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Step
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StringNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StrongAccent
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.StyleText
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SumLang
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Supports
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Syllabic
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SymbolSize
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SystemLayout
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.SystemMargins
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Technical
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Tenths
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TextDirection
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TextElementData
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Tie
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Tied
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Time
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TimeModification
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TimeSymbol
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Token
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TopBottom
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TraditionalKey
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Transpose
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Tremolo
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TremoloMarks
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TrillBeats
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TrillStep
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Tuning
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Tuplet
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TupletDot
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TupletNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TupletPortion
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TupletType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TwoNoteTurn
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Type
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.TypedText
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.UpDown
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.UpDownStop
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.UprightInverted
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Valign
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.ValignImage
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Voice
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.WavyLine
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Wedge
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.WedgeType
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.Work
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.YesNo
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.YesNoNumber
- Fadno.MusicXml.MusicXml20: instance GHC.Show.Show Fadno.MusicXml.MusicXml20.YyyyMmDd
- Fadno.MusicXml.MusicXml20: mkAccidental :: AccidentalValue -> Accidental
- Fadno.MusicXml.MusicXml20: mkAccidentalMark :: AccidentalValue -> AccidentalMark
- Fadno.MusicXml.MusicXml20: mkAccidentalText :: AccidentalValue -> AccidentalText
- Fadno.MusicXml.MusicXml20: mkAccord :: Tuning -> Accord
- Fadno.MusicXml.MusicXml20: mkAccordionRegistration :: AccordionRegistration
- Fadno.MusicXml.MusicXml20: mkAllMargins :: LeftRightMargins -> Tenths -> Tenths -> AllMargins
- Fadno.MusicXml.MusicXml20: mkAppearance :: Appearance
- Fadno.MusicXml.MusicXml20: mkArpeggiate :: Arpeggiate
- Fadno.MusicXml.MusicXml20: mkArticulations :: Articulations
- Fadno.MusicXml.MusicXml20: mkArticulationsAccent :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsBreathMark :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsCaesura :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsDetachedLegato :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsDoit :: EmptyLine -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsFalloff :: EmptyLine -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsOtherArticulation :: PlacementText -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsPlop :: EmptyLine -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsScoop :: EmptyLine -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsSpiccato :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsStaccatissimo :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsStaccato :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsStress :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsStrongAccent :: StrongAccent -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsTenuto :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkArticulationsUnstress :: EmptyPlacement -> ChxArticulations
- Fadno.MusicXml.MusicXml20: mkAttributes :: Editorial -> Attributes
- Fadno.MusicXml.MusicXml20: mkBackup :: Duration -> Editorial -> Backup
- Fadno.MusicXml.MusicXml20: mkBarStyleColor :: BarStyle -> BarStyleColor
- Fadno.MusicXml.MusicXml20: mkBarline :: Editorial -> Barline
- Fadno.MusicXml.MusicXml20: mkBarre :: StartStop -> Barre
- Fadno.MusicXml.MusicXml20: mkBass :: BassStep -> Bass
- Fadno.MusicXml.MusicXml20: mkBassAlter :: Semitones -> BassAlter
- Fadno.MusicXml.MusicXml20: mkBassStep :: Step -> BassStep
- Fadno.MusicXml.MusicXml20: mkBeam :: BeamValue -> Beam
- Fadno.MusicXml.MusicXml20: mkBeatRepeat :: StartStop -> BeatRepeat
- Fadno.MusicXml.MusicXml20: mkBeatUnit :: NoteTypeValue -> BeatUnit
- Fadno.MusicXml.MusicXml20: mkBend :: Semitones -> Bend
- Fadno.MusicXml.MusicXml20: mkBendPreBend :: Empty -> ChxBend
- Fadno.MusicXml.MusicXml20: mkBendRelease :: Empty -> ChxBend
- Fadno.MusicXml.MusicXml20: mkBookmark :: ID -> Bookmark
- Fadno.MusicXml.MusicXml20: mkBracket :: StartStop -> LineEnd -> Bracket
- Fadno.MusicXml.MusicXml20: mkCancel :: Fifths -> Cancel
- Fadno.MusicXml.MusicXml20: mkChxMetronomeBeatUnit :: BeatUnit -> ChxMetronome0 -> ChxMetronome
- Fadno.MusicXml.MusicXml20: mkClef :: ClefSign -> Clef
- Fadno.MusicXml.MusicXml20: mkCmpMeasure :: Token -> CmpMeasure
- Fadno.MusicXml.MusicXml20: mkCmpPart :: IDREF -> CmpPart
- Fadno.MusicXml.MusicXml20: mkCmpScorePart :: ID -> PartName -> CmpScorePart
- Fadno.MusicXml.MusicXml20: mkCmpSlash :: StartStop -> CmpSlash
- Fadno.MusicXml.MusicXml20: mkCmpString :: StringNumber -> CmpString
- Fadno.MusicXml.MusicXml20: mkCredit :: ChxCredit -> Credit
- Fadno.MusicXml.MusicXml20: mkCreditCreditImage :: Image -> ChxCredit
- Fadno.MusicXml.MusicXml20: mkCreditCreditWords :: FormattedText -> ChxCredit
- Fadno.MusicXml.MusicXml20: mkDashes :: StartStop -> Dashes
- Fadno.MusicXml.MusicXml20: mkDefaults :: Layout -> Defaults
- Fadno.MusicXml.MusicXml20: mkDegree :: DegreeValue -> DegreeAlter -> DegreeType -> Degree
- Fadno.MusicXml.MusicXml20: mkDegreeAlter :: Semitones -> DegreeAlter
- Fadno.MusicXml.MusicXml20: mkDegreeType :: DegreeTypeValue -> DegreeType
- Fadno.MusicXml.MusicXml20: mkDegreeValue :: PositiveInteger -> DegreeValue
- Fadno.MusicXml.MusicXml20: mkDirection :: EditorialVoiceDirection -> Direction
- Fadno.MusicXml.MusicXml20: mkDirectionType :: ChxDirectionType -> DirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeAccordionRegistration :: AccordionRegistration -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeBracket :: Bracket -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeCoda :: ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeDamp :: EmptyPrintStyle -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeDampAll :: EmptyPrintStyle -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeDashes :: Dashes -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeDynamics :: ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeEyeglasses :: EmptyPrintStyle -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeHarpPedals :: HarpPedals -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeImage :: Image -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeMetronome :: Metronome -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeOctaveShift :: OctaveShift -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeOtherDirection :: OtherDirection -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypePedal :: Pedal -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeRehearsal :: ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeScordatura :: Scordatura -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeSegno :: ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeWedge :: Wedge -> ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirectionTypeWords :: ChxDirectionType
- Fadno.MusicXml.MusicXml20: mkDirective :: String -> Directive
- Fadno.MusicXml.MusicXml20: mkDisplayStepOctave :: DisplayStepOctave
- Fadno.MusicXml.MusicXml20: mkDuration :: PositiveDivisions -> Duration
- Fadno.MusicXml.MusicXml20: mkDynamics :: Dynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsF :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsFf :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsFff :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsFfff :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsFffff :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsFfffff :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsFp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsFz :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsMf :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsMp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsOtherDynamics :: String -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsP :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsPp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsPpp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsPppp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsPpppp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsPppppp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsRf :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsRfz :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsSf :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsSffz :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsSfp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsSfpp :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkDynamicsSfz :: Empty -> ChxDynamics
- Fadno.MusicXml.MusicXml20: mkEditorial :: Editorial
- Fadno.MusicXml.MusicXml20: mkEditorialVoice :: EditorialVoice
- Fadno.MusicXml.MusicXml20: mkEditorialVoiceDirection :: EditorialVoiceDirection
- Fadno.MusicXml.MusicXml20: mkElision :: String -> Elision
- Fadno.MusicXml.MusicXml20: mkEmpty :: Empty
- Fadno.MusicXml.MusicXml20: mkEmptyFont :: EmptyFont
- Fadno.MusicXml.MusicXml20: mkEmptyLine :: EmptyLine
- Fadno.MusicXml.MusicXml20: mkEmptyPlacement :: EmptyPlacement
- Fadno.MusicXml.MusicXml20: mkEmptyPrintStyle :: EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: mkEmptyTrillSound :: EmptyTrillSound
- Fadno.MusicXml.MusicXml20: mkEncoding :: Encoding
- Fadno.MusicXml.MusicXml20: mkEncodingEncoder :: TypedText -> ChxEncoding
- Fadno.MusicXml.MusicXml20: mkEncodingEncodingDate :: YyyyMmDd -> ChxEncoding
- Fadno.MusicXml.MusicXml20: mkEncodingEncodingDescription :: String -> ChxEncoding
- Fadno.MusicXml.MusicXml20: mkEncodingSoftware :: String -> ChxEncoding
- Fadno.MusicXml.MusicXml20: mkEncodingSupports :: Supports -> ChxEncoding
- Fadno.MusicXml.MusicXml20: mkEnding :: String -> EndingNumber -> StartStopDiscontinue -> Ending
- Fadno.MusicXml.MusicXml20: mkExtend :: Extend
- Fadno.MusicXml.MusicXml20: mkFeature :: String -> Feature
- Fadno.MusicXml.MusicXml20: mkFermata :: FermataShape -> Fermata
- Fadno.MusicXml.MusicXml20: mkFigure :: Figure
- Fadno.MusicXml.MusicXml20: mkFiguredBass :: Editorial -> FiguredBass
- Fadno.MusicXml.MusicXml20: mkFingering :: String -> Fingering
- Fadno.MusicXml.MusicXml20: mkFirstFret :: PositiveInteger -> FirstFret
- Fadno.MusicXml.MusicXml20: mkFootnote :: FormattedText -> Footnote
- Fadno.MusicXml.MusicXml20: mkFormattedText :: String -> FormattedText
- Fadno.MusicXml.MusicXml20: mkForward :: Duration -> EditorialVoice -> Forward
- Fadno.MusicXml.MusicXml20: mkFrame :: PositiveInteger -> PositiveInteger -> Frame
- Fadno.MusicXml.MusicXml20: mkFrameNote :: CmpString -> Fret -> FrameNote
- Fadno.MusicXml.MusicXml20: mkFret :: NonNegativeInteger -> Fret
- Fadno.MusicXml.MusicXml20: mkFullNotePitch :: Pitch -> FullNote
- Fadno.MusicXml.MusicXml20: mkFullNoteRest :: DisplayStepOctave -> FullNote
- Fadno.MusicXml.MusicXml20: mkFullNoteUnpitched :: DisplayStepOctave -> FullNote
- Fadno.MusicXml.MusicXml20: mkGlissando :: String -> StartStop -> Glissando
- Fadno.MusicXml.MusicXml20: mkGrace :: Grace
- Fadno.MusicXml.MusicXml20: mkGroupBarline :: GroupBarlineValue -> GroupBarline
- Fadno.MusicXml.MusicXml20: mkGroupName :: String -> GroupName
- Fadno.MusicXml.MusicXml20: mkGroupSymbol :: GroupSymbolValue -> GroupSymbol
- Fadno.MusicXml.MusicXml20: mkGrouping :: StartStopSingle -> Grouping
- Fadno.MusicXml.MusicXml20: mkGrpFullNote :: FullNote -> GrpFullNote
- Fadno.MusicXml.MusicXml20: mkGrpLevel :: Level -> GrpLevel
- Fadno.MusicXml.MusicXml20: mkGrpPartGroup :: PartGroup -> GrpPartGroup
- Fadno.MusicXml.MusicXml20: mkHammerOnPullOff :: String -> StartStop -> HammerOnPullOff
- Fadno.MusicXml.MusicXml20: mkHarmonic :: Harmonic
- Fadno.MusicXml.MusicXml20: mkHarmonicArtificial :: Empty -> ChxHarmonic
- Fadno.MusicXml.MusicXml20: mkHarmonicBasePitch :: Empty -> ChxHarmonic1
- Fadno.MusicXml.MusicXml20: mkHarmonicNatural :: Empty -> ChxHarmonic
- Fadno.MusicXml.MusicXml20: mkHarmonicSoundingPitch :: Empty -> ChxHarmonic1
- Fadno.MusicXml.MusicXml20: mkHarmonicTouchingPitch :: Empty -> ChxHarmonic1
- Fadno.MusicXml.MusicXml20: mkHarmony :: Editorial -> Harmony
- Fadno.MusicXml.MusicXml20: mkHarmonyChord :: ChxHarmonyChord -> Kind -> HarmonyChord
- Fadno.MusicXml.MusicXml20: mkHarmonyChordFunction :: StyleText -> ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: mkHarmonyChordRoot :: Root -> ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: mkHarpPedals :: HarpPedals
- Fadno.MusicXml.MusicXml20: mkHeelToe :: HeelToe -> HeelToe
- Fadno.MusicXml.MusicXml20: mkIdentification :: Identification
- Fadno.MusicXml.MusicXml20: mkImage :: String -> Token -> Image
- Fadno.MusicXml.MusicXml20: mkInstrument :: IDREF -> Instrument
- Fadno.MusicXml.MusicXml20: mkInversion :: NonNegativeInteger -> Inversion
- Fadno.MusicXml.MusicXml20: mkKey :: ChxKey -> Key
- Fadno.MusicXml.MusicXml20: mkKeyNonTraditionalKey :: ChxKey
- Fadno.MusicXml.MusicXml20: mkKeyOctave :: Octave -> PositiveInteger -> KeyOctave
- Fadno.MusicXml.MusicXml20: mkKeyTraditionalKey :: TraditionalKey -> ChxKey
- Fadno.MusicXml.MusicXml20: mkKind :: KindValue -> Kind
- Fadno.MusicXml.MusicXml20: mkLayout :: Layout
- Fadno.MusicXml.MusicXml20: mkLeftRightMargins :: Tenths -> Tenths -> LeftRightMargins
- Fadno.MusicXml.MusicXml20: mkLevel :: String -> Level
- Fadno.MusicXml.MusicXml20: mkLineWidth :: Tenths -> LineWidthType -> LineWidth
- Fadno.MusicXml.MusicXml20: mkLink :: String -> Link
- Fadno.MusicXml.MusicXml20: mkLyric :: ChxLyric -> Editorial -> Lyric
- Fadno.MusicXml.MusicXml20: mkLyricExtend :: Extend -> ChxLyric
- Fadno.MusicXml.MusicXml20: mkLyricFont :: LyricFont
- Fadno.MusicXml.MusicXml20: mkLyricHumming :: Empty -> ChxLyric
- Fadno.MusicXml.MusicXml20: mkLyricLanguage :: Lang -> LyricLanguage
- Fadno.MusicXml.MusicXml20: mkLyricLaughing :: Empty -> ChxLyric
- Fadno.MusicXml.MusicXml20: mkLyricSyllabic :: TextElementData -> ChxLyric
- Fadno.MusicXml.MusicXml20: mkMeasure :: Token -> MusicData -> Measure
- Fadno.MusicXml.MusicXml20: mkMeasureLayout :: MeasureLayout
- Fadno.MusicXml.MusicXml20: mkMeasureNumbering :: MeasureNumberingValue -> MeasureNumbering
- Fadno.MusicXml.MusicXml20: mkMeasureRepeat :: PositiveIntegerOrEmpty -> StartStop -> MeasureRepeat
- Fadno.MusicXml.MusicXml20: mkMeasureStyle :: ChxMeasureStyle -> MeasureStyle
- Fadno.MusicXml.MusicXml20: mkMeasureStyleBeatRepeat :: BeatRepeat -> ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: mkMeasureStyleMeasureRepeat :: MeasureRepeat -> ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: mkMeasureStyleMultipleRest :: MultipleRest -> ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: mkMeasureStyleSlash :: CmpSlash -> ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: mkMetronome :: ChxMetronome -> Metronome
- Fadno.MusicXml.MusicXml20: mkMetronomeBeam :: BeamValue -> MetronomeBeam
- Fadno.MusicXml.MusicXml20: mkMetronomeBeatUnit :: BeatUnit -> ChxMetronome0
- Fadno.MusicXml.MusicXml20: mkMetronomeMetronomeNote :: ChxMetronome
- Fadno.MusicXml.MusicXml20: mkMetronomeNote :: NoteTypeValue -> MetronomeNote
- Fadno.MusicXml.MusicXml20: mkMetronomePerMinute :: PerMinute -> ChxMetronome0
- Fadno.MusicXml.MusicXml20: mkMetronomeTuplet :: MetronomeTuplet -> StartStop -> MetronomeTuplet
- Fadno.MusicXml.MusicXml20: mkMidiDevice :: String -> MidiDevice
- Fadno.MusicXml.MusicXml20: mkMidiInstrument :: IDREF -> MidiInstrument
- Fadno.MusicXml.MusicXml20: mkMiscellaneous :: Miscellaneous
- Fadno.MusicXml.MusicXml20: mkMiscellaneousField :: String -> Token -> MiscellaneousField
- Fadno.MusicXml.MusicXml20: mkMordent :: Mordent -> Mordent
- Fadno.MusicXml.MusicXml20: mkMultipleRest :: PositiveIntegerOrEmpty -> MultipleRest
- Fadno.MusicXml.MusicXml20: mkMusicData :: MusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataAttributes :: Attributes -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataBackup :: Backup -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataBarline :: Barline -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataBookmark :: Bookmark -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataDirection :: Direction -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataFiguredBass :: FiguredBass -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataForward :: Forward -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataGrouping :: Grouping -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataHarmony :: Harmony -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataLink :: Link -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataNote :: Note -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataPrint :: Print -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkMusicDataSound :: Sound -> ChxMusicData
- Fadno.MusicXml.MusicXml20: mkNameDisplay :: NameDisplay
- Fadno.MusicXml.MusicXml20: mkNameDisplayAccidentalText :: AccidentalText -> ChxNameDisplay
- Fadno.MusicXml.MusicXml20: mkNameDisplayDisplayText :: FormattedText -> ChxNameDisplay
- Fadno.MusicXml.MusicXml20: mkNonArpeggiate :: TopBottom -> NonArpeggiate
- Fadno.MusicXml.MusicXml20: mkNonTraditionalKey :: Step -> Semitones -> NonTraditionalKey
- Fadno.MusicXml.MusicXml20: mkNotations :: Editorial -> Notations
- Fadno.MusicXml.MusicXml20: mkNotationsAccidentalMark :: AccidentalMark -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsArpeggiate :: Arpeggiate -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsArticulations :: Articulations -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsDynamics :: Dynamics -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsFermata :: Fermata -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsGlissando :: Glissando -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsNonArpeggiate :: NonArpeggiate -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsOrnaments :: Ornaments -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsOtherNotation :: OtherNotation -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsSlide :: Slide -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsSlur :: Slur -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsTechnical :: Technical -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsTied :: Tied -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNotationsTuplet :: Tuplet -> ChxNotations
- Fadno.MusicXml.MusicXml20: mkNote :: ChxNote -> EditorialVoice -> Note
- Fadno.MusicXml.MusicXml20: mkNoteCue :: Empty -> GrpFullNote -> Duration -> ChxNote
- Fadno.MusicXml.MusicXml20: mkNoteFullNote :: GrpFullNote -> Duration -> ChxNote
- Fadno.MusicXml.MusicXml20: mkNoteGrace :: Grace -> GrpFullNote -> ChxNote
- Fadno.MusicXml.MusicXml20: mkNoteSize :: NonNegativeDecimal -> NoteSizeType -> NoteSize
- Fadno.MusicXml.MusicXml20: mkNoteType :: NoteTypeValue -> NoteType
- Fadno.MusicXml.MusicXml20: mkNotehead :: NoteheadValue -> Notehead
- Fadno.MusicXml.MusicXml20: mkOctaveShift :: UpDownStop -> OctaveShift
- Fadno.MusicXml.MusicXml20: mkOffset :: Divisions -> Offset
- Fadno.MusicXml.MusicXml20: mkOpus :: String -> Opus
- Fadno.MusicXml.MusicXml20: mkOrnaments :: Ornaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsDelayedTurn :: EmptyTrillSound -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsInvertedMordent :: Mordent -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsInvertedTurn :: EmptyTrillSound -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsMordent :: Mordent -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsOtherOrnament :: PlacementText -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsSchleifer :: EmptyPlacement -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsShake :: EmptyTrillSound -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsTremolo :: Tremolo -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsTrillMark :: EmptyTrillSound -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsTurn :: EmptyTrillSound -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOrnamentsWavyLine :: WavyLine -> ChxOrnaments
- Fadno.MusicXml.MusicXml20: mkOtherAppearance :: String -> Token -> OtherAppearance
- Fadno.MusicXml.MusicXml20: mkOtherDirection :: String -> OtherDirection
- Fadno.MusicXml.MusicXml20: mkOtherNotation :: String -> StartStopSingle -> OtherNotation
- Fadno.MusicXml.MusicXml20: mkPageLayout :: PageLayout
- Fadno.MusicXml.MusicXml20: mkPageMargins :: AllMargins -> PageMargins
- Fadno.MusicXml.MusicXml20: mkPart :: IDREF -> MusicData -> Part
- Fadno.MusicXml.MusicXml20: mkPartGroup :: StartStop -> Editorial -> PartGroup
- Fadno.MusicXml.MusicXml20: mkPartList :: ScorePart -> PartList
- Fadno.MusicXml.MusicXml20: mkPartListPartGroup :: GrpPartGroup -> ChxPartList
- Fadno.MusicXml.MusicXml20: mkPartListScorePart :: ScorePart -> ChxPartList
- Fadno.MusicXml.MusicXml20: mkPartName :: String -> PartName
- Fadno.MusicXml.MusicXml20: mkPartSymbol :: GroupSymbolValue -> PartSymbol
- Fadno.MusicXml.MusicXml20: mkPedal :: StartStopChange -> Pedal
- Fadno.MusicXml.MusicXml20: mkPedalTuning :: Step -> Semitones -> PedalTuning
- Fadno.MusicXml.MusicXml20: mkPerMinute :: String -> PerMinute
- Fadno.MusicXml.MusicXml20: mkPitch :: Step -> Octave -> Pitch
- Fadno.MusicXml.MusicXml20: mkPlacementText :: String -> PlacementText
- Fadno.MusicXml.MusicXml20: mkPrint :: Layout -> Print
- Fadno.MusicXml.MusicXml20: mkRehearsal :: String -> Rehearsal
- Fadno.MusicXml.MusicXml20: mkRepeat :: BackwardForward -> Repeat
- Fadno.MusicXml.MusicXml20: mkRoot :: RootStep -> Root
- Fadno.MusicXml.MusicXml20: mkRootAlter :: Semitones -> RootAlter
- Fadno.MusicXml.MusicXml20: mkRootStep :: Step -> RootStep
- Fadno.MusicXml.MusicXml20: mkScaling :: Millimeters -> Tenths -> Scaling
- Fadno.MusicXml.MusicXml20: mkScordatura :: Scordatura
- Fadno.MusicXml.MusicXml20: mkScoreHeader :: PartList -> ScoreHeader
- Fadno.MusicXml.MusicXml20: mkScoreInstrument :: ID -> String -> ScoreInstrument
- Fadno.MusicXml.MusicXml20: mkScoreInstrumentEnsemble :: PositiveIntegerOrEmpty -> ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: mkScoreInstrumentSolo :: Empty -> ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: mkScorePart :: CmpScorePart -> ScorePart
- Fadno.MusicXml.MusicXml20: mkScorePartwise :: ScoreHeader -> ScorePartwise
- Fadno.MusicXml.MusicXml20: mkScoreTimewise :: ScoreHeader -> ScoreTimewise
- Fadno.MusicXml.MusicXml20: mkSeqCredit :: FormattedText -> SeqCredit
- Fadno.MusicXml.MusicXml20: mkSeqDisplayStepOctave :: Step -> Octave -> SeqDisplayStepOctave
- Fadno.MusicXml.MusicXml20: mkSeqLyric :: TextElementData -> SeqLyric
- Fadno.MusicXml.MusicXml20: mkSeqLyric0 :: Elision -> SeqLyric0
- Fadno.MusicXml.MusicXml20: mkSeqMetronome :: String -> SeqMetronome
- Fadno.MusicXml.MusicXml20: mkSeqMetronomeTuplet :: NoteTypeValue -> SeqMetronomeTuplet
- Fadno.MusicXml.MusicXml20: mkSeqOrnaments :: ChxOrnaments -> SeqOrnaments
- Fadno.MusicXml.MusicXml20: mkSeqPageLayout :: Tenths -> Tenths -> SeqPageLayout
- Fadno.MusicXml.MusicXml20: mkSeqTime :: String -> String -> SeqTime
- Fadno.MusicXml.MusicXml20: mkSeqTimeModification :: NoteTypeValue -> SeqTimeModification
- Fadno.MusicXml.MusicXml20: mkSlash :: NoteTypeValue -> Slash
- Fadno.MusicXml.MusicXml20: mkSlide :: String -> StartStop -> Slide
- Fadno.MusicXml.MusicXml20: mkSlur :: StartStopContinue -> Slur
- Fadno.MusicXml.MusicXml20: mkSound :: Sound
- Fadno.MusicXml.MusicXml20: mkStaff :: PositiveInteger -> Staff
- Fadno.MusicXml.MusicXml20: mkStaffDetails :: StaffDetails
- Fadno.MusicXml.MusicXml20: mkStaffLayout :: StaffLayout
- Fadno.MusicXml.MusicXml20: mkStaffTuning :: Tuning -> StaffTuning
- Fadno.MusicXml.MusicXml20: mkStem :: StemValue -> Stem
- Fadno.MusicXml.MusicXml20: mkStrongAccent :: StrongAccent -> StrongAccent
- Fadno.MusicXml.MusicXml20: mkStyleText :: String -> StyleText
- Fadno.MusicXml.MusicXml20: mkSupports :: YesNo -> NMTOKEN -> Supports
- Fadno.MusicXml.MusicXml20: mkSystemLayout :: SystemLayout
- Fadno.MusicXml.MusicXml20: mkSystemMargins :: LeftRightMargins -> SystemMargins
- Fadno.MusicXml.MusicXml20: mkTechnical :: Technical
- Fadno.MusicXml.MusicXml20: mkTechnicalBend :: Bend -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalDoubleTongue :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalDownBow :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalFingering :: Fingering -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalFingernails :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalFret :: Fret -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalHammerOn :: HammerOnPullOff -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalHarmonic :: Harmonic -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalHeel :: HeelToe -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalOpenString :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalOtherTechnical :: PlacementText -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalPluck :: PlacementText -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalPullOff :: HammerOnPullOff -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalSnapPizzicato :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalStopped :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalString :: CmpString -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalTap :: PlacementText -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalThumbPosition :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalToe :: HeelToe -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalTripleTongue :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTechnicalUpBow :: EmptyPlacement -> ChxTechnical
- Fadno.MusicXml.MusicXml20: mkTextElementData :: String -> TextElementData
- Fadno.MusicXml.MusicXml20: mkTie :: StartStop -> Tie
- Fadno.MusicXml.MusicXml20: mkTied :: StartStop -> Tied
- Fadno.MusicXml.MusicXml20: mkTime :: ChxTime -> Time
- Fadno.MusicXml.MusicXml20: mkTimeModification :: NonNegativeInteger -> NonNegativeInteger -> TimeModification
- Fadno.MusicXml.MusicXml20: mkTimeSenzaMisura :: Empty -> ChxTime
- Fadno.MusicXml.MusicXml20: mkTimeTime :: ChxTime
- Fadno.MusicXml.MusicXml20: mkTraditionalKey :: Fifths -> TraditionalKey
- Fadno.MusicXml.MusicXml20: mkTranspose :: Semitones -> Transpose
- Fadno.MusicXml.MusicXml20: mkTremolo :: TremoloMarks -> Tremolo
- Fadno.MusicXml.MusicXml20: mkTuning :: Step -> Octave -> Tuning
- Fadno.MusicXml.MusicXml20: mkTuplet :: StartStop -> Tuplet
- Fadno.MusicXml.MusicXml20: mkTupletDot :: TupletDot
- Fadno.MusicXml.MusicXml20: mkTupletNumber :: NonNegativeInteger -> TupletNumber
- Fadno.MusicXml.MusicXml20: mkTupletPortion :: TupletPortion
- Fadno.MusicXml.MusicXml20: mkTupletType :: NoteTypeValue -> TupletType
- Fadno.MusicXml.MusicXml20: mkTypedText :: String -> TypedText
- Fadno.MusicXml.MusicXml20: mkVoice :: String -> Voice
- Fadno.MusicXml.MusicXml20: mkWavyLine :: StartStopContinue -> WavyLine
- Fadno.MusicXml.MusicXml20: mkWedge :: WedgeType -> Wedge
- Fadno.MusicXml.MusicXml20: mkWork :: Work
- Fadno.MusicXml.MusicXml20: newtype AccordionMiddle
- Fadno.MusicXml.MusicXml20: newtype BeamLevel
- Fadno.MusicXml.MusicXml20: newtype Color
- Fadno.MusicXml.MusicXml20: newtype CommaSeparatedText
- Fadno.MusicXml.MusicXml20: newtype Divisions
- Fadno.MusicXml.MusicXml20: newtype EndingNumber
- Fadno.MusicXml.MusicXml20: newtype Fifths
- Fadno.MusicXml.MusicXml20: newtype ID
- Fadno.MusicXml.MusicXml20: newtype IDREF
- Fadno.MusicXml.MusicXml20: newtype Language
- Fadno.MusicXml.MusicXml20: newtype LineWidthType
- Fadno.MusicXml.MusicXml20: newtype Midi128
- Fadno.MusicXml.MusicXml20: newtype Midi16
- Fadno.MusicXml.MusicXml20: newtype Midi16384
- Fadno.MusicXml.MusicXml20: newtype Millimeters
- Fadno.MusicXml.MusicXml20: newtype Mode
- Fadno.MusicXml.MusicXml20: newtype NCName
- Fadno.MusicXml.MusicXml20: newtype NMTOKEN
- Fadno.MusicXml.MusicXml20: newtype Name
- Fadno.MusicXml.MusicXml20: newtype NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: newtype NonNegativeInteger
- Fadno.MusicXml.MusicXml20: newtype NormalizedString
- Fadno.MusicXml.MusicXml20: newtype NumberLevel
- Fadno.MusicXml.MusicXml20: newtype NumberOfLines
- Fadno.MusicXml.MusicXml20: newtype Octave
- Fadno.MusicXml.MusicXml20: newtype Percent
- Fadno.MusicXml.MusicXml20: newtype PositiveDivisions
- Fadno.MusicXml.MusicXml20: newtype PositiveInteger
- Fadno.MusicXml.MusicXml20: newtype RotationDegrees
- Fadno.MusicXml.MusicXml20: newtype Semitones
- Fadno.MusicXml.MusicXml20: newtype StaffLine
- Fadno.MusicXml.MusicXml20: newtype StaffNumber
- Fadno.MusicXml.MusicXml20: newtype StringNumber
- Fadno.MusicXml.MusicXml20: newtype Tenths
- Fadno.MusicXml.MusicXml20: newtype Token
- Fadno.MusicXml.MusicXml20: newtype TremoloMarks
- Fadno.MusicXml.MusicXml20: newtype TrillBeats
- Fadno.MusicXml.MusicXml20: newtype YyyyMmDd
- Fadno.MusicXml.MusicXml20: parseAboveBelow :: String -> XParse AboveBelow
- Fadno.MusicXml.MusicXml20: parseAccidental :: XParse Accidental
- Fadno.MusicXml.MusicXml20: parseAccidentalMark :: XParse AccidentalMark
- Fadno.MusicXml.MusicXml20: parseAccidentalText :: XParse AccidentalText
- Fadno.MusicXml.MusicXml20: parseAccidentalValue :: String -> XParse AccidentalValue
- Fadno.MusicXml.MusicXml20: parseAccord :: XParse Accord
- Fadno.MusicXml.MusicXml20: parseAccordionMiddle :: String -> XParse AccordionMiddle
- Fadno.MusicXml.MusicXml20: parseAccordionRegistration :: XParse AccordionRegistration
- Fadno.MusicXml.MusicXml20: parseActuate :: String -> XParse Actuate
- Fadno.MusicXml.MusicXml20: parseAllMargins :: XParse AllMargins
- Fadno.MusicXml.MusicXml20: parseAppearance :: XParse Appearance
- Fadno.MusicXml.MusicXml20: parseArpeggiate :: XParse Arpeggiate
- Fadno.MusicXml.MusicXml20: parseArticulations :: XParse Articulations
- Fadno.MusicXml.MusicXml20: parseAttributes :: XParse Attributes
- Fadno.MusicXml.MusicXml20: parseBackup :: XParse Backup
- Fadno.MusicXml.MusicXml20: parseBackwardForward :: String -> XParse BackwardForward
- Fadno.MusicXml.MusicXml20: parseBarStyle :: String -> XParse BarStyle
- Fadno.MusicXml.MusicXml20: parseBarStyleColor :: XParse BarStyleColor
- Fadno.MusicXml.MusicXml20: parseBarline :: XParse Barline
- Fadno.MusicXml.MusicXml20: parseBarre :: XParse Barre
- Fadno.MusicXml.MusicXml20: parseBass :: XParse Bass
- Fadno.MusicXml.MusicXml20: parseBassAlter :: XParse BassAlter
- Fadno.MusicXml.MusicXml20: parseBassStep :: XParse BassStep
- Fadno.MusicXml.MusicXml20: parseBeam :: XParse Beam
- Fadno.MusicXml.MusicXml20: parseBeamLevel :: String -> XParse BeamLevel
- Fadno.MusicXml.MusicXml20: parseBeamValue :: String -> XParse BeamValue
- Fadno.MusicXml.MusicXml20: parseBeatRepeat :: XParse BeatRepeat
- Fadno.MusicXml.MusicXml20: parseBeatUnit :: XParse BeatUnit
- Fadno.MusicXml.MusicXml20: parseBend :: XParse Bend
- Fadno.MusicXml.MusicXml20: parseBookmark :: XParse Bookmark
- Fadno.MusicXml.MusicXml20: parseBracket :: XParse Bracket
- Fadno.MusicXml.MusicXml20: parseCancel :: XParse Cancel
- Fadno.MusicXml.MusicXml20: parseChxArticulations :: XParse ChxArticulations
- Fadno.MusicXml.MusicXml20: parseChxBend :: XParse ChxBend
- Fadno.MusicXml.MusicXml20: parseChxCredit :: XParse ChxCredit
- Fadno.MusicXml.MusicXml20: parseChxDirectionType :: XParse ChxDirectionType
- Fadno.MusicXml.MusicXml20: parseChxDynamics :: XParse ChxDynamics
- Fadno.MusicXml.MusicXml20: parseChxEncoding :: XParse ChxEncoding
- Fadno.MusicXml.MusicXml20: parseChxHarmonic :: XParse ChxHarmonic
- Fadno.MusicXml.MusicXml20: parseChxHarmonic1 :: XParse ChxHarmonic1
- Fadno.MusicXml.MusicXml20: parseChxHarmonyChord :: XParse ChxHarmonyChord
- Fadno.MusicXml.MusicXml20: parseChxKey :: XParse ChxKey
- Fadno.MusicXml.MusicXml20: parseChxLyric :: XParse ChxLyric
- Fadno.MusicXml.MusicXml20: parseChxMeasureStyle :: XParse ChxMeasureStyle
- Fadno.MusicXml.MusicXml20: parseChxMetronome :: XParse ChxMetronome
- Fadno.MusicXml.MusicXml20: parseChxMetronome0 :: XParse ChxMetronome0
- Fadno.MusicXml.MusicXml20: parseChxMusicData :: XParse ChxMusicData
- Fadno.MusicXml.MusicXml20: parseChxNameDisplay :: XParse ChxNameDisplay
- Fadno.MusicXml.MusicXml20: parseChxNotations :: XParse ChxNotations
- Fadno.MusicXml.MusicXml20: parseChxNote :: XParse ChxNote
- Fadno.MusicXml.MusicXml20: parseChxOrnaments :: XParse ChxOrnaments
- Fadno.MusicXml.MusicXml20: parseChxPartList :: XParse ChxPartList
- Fadno.MusicXml.MusicXml20: parseChxScoreInstrument :: XParse ChxScoreInstrument
- Fadno.MusicXml.MusicXml20: parseChxTechnical :: XParse ChxTechnical
- Fadno.MusicXml.MusicXml20: parseChxTime :: XParse ChxTime
- Fadno.MusicXml.MusicXml20: parseClef :: XParse Clef
- Fadno.MusicXml.MusicXml20: parseClefSign :: String -> XParse ClefSign
- Fadno.MusicXml.MusicXml20: parseCmpMeasure :: XParse CmpMeasure
- Fadno.MusicXml.MusicXml20: parseCmpPart :: XParse CmpPart
- Fadno.MusicXml.MusicXml20: parseCmpScorePart :: XParse CmpScorePart
- Fadno.MusicXml.MusicXml20: parseCmpSlash :: XParse CmpSlash
- Fadno.MusicXml.MusicXml20: parseCmpString :: XParse CmpString
- Fadno.MusicXml.MusicXml20: parseColor :: String -> XParse Color
- Fadno.MusicXml.MusicXml20: parseCommaSeparatedText :: String -> XParse CommaSeparatedText
- Fadno.MusicXml.MusicXml20: parseCredit :: XParse Credit
- Fadno.MusicXml.MusicXml20: parseCssFontSize :: String -> XParse CssFontSize
- Fadno.MusicXml.MusicXml20: parseDashes :: XParse Dashes
- Fadno.MusicXml.MusicXml20: parseDefaults :: XParse Defaults
- Fadno.MusicXml.MusicXml20: parseDegree :: XParse Degree
- Fadno.MusicXml.MusicXml20: parseDegreeAlter :: XParse DegreeAlter
- Fadno.MusicXml.MusicXml20: parseDegreeType :: XParse DegreeType
- Fadno.MusicXml.MusicXml20: parseDegreeTypeValue :: String -> XParse DegreeTypeValue
- Fadno.MusicXml.MusicXml20: parseDegreeValue :: XParse DegreeValue
- Fadno.MusicXml.MusicXml20: parseDirection :: XParse Direction
- Fadno.MusicXml.MusicXml20: parseDirectionType :: XParse DirectionType
- Fadno.MusicXml.MusicXml20: parseDirective :: XParse Directive
- Fadno.MusicXml.MusicXml20: parseDisplayStepOctave :: XParse DisplayStepOctave
- Fadno.MusicXml.MusicXml20: parseDivisions :: String -> XParse Divisions
- Fadno.MusicXml.MusicXml20: parseDuration :: XParse Duration
- Fadno.MusicXml.MusicXml20: parseDynamics :: XParse Dynamics
- Fadno.MusicXml.MusicXml20: parseEditorial :: XParse Editorial
- Fadno.MusicXml.MusicXml20: parseEditorialVoice :: XParse EditorialVoice
- Fadno.MusicXml.MusicXml20: parseEditorialVoiceDirection :: XParse EditorialVoiceDirection
- Fadno.MusicXml.MusicXml20: parseElision :: XParse Elision
- Fadno.MusicXml.MusicXml20: parseEmpty :: XParse Empty
- Fadno.MusicXml.MusicXml20: parseEmptyFont :: XParse EmptyFont
- Fadno.MusicXml.MusicXml20: parseEmptyLine :: XParse EmptyLine
- Fadno.MusicXml.MusicXml20: parseEmptyPlacement :: XParse EmptyPlacement
- Fadno.MusicXml.MusicXml20: parseEmptyPrintStyle :: XParse EmptyPrintStyle
- Fadno.MusicXml.MusicXml20: parseEmptyTrillSound :: XParse EmptyTrillSound
- Fadno.MusicXml.MusicXml20: parseEnclosure :: String -> XParse Enclosure
- Fadno.MusicXml.MusicXml20: parseEncoding :: XParse Encoding
- Fadno.MusicXml.MusicXml20: parseEnding :: XParse Ending
- Fadno.MusicXml.MusicXml20: parseEndingNumber :: String -> XParse EndingNumber
- Fadno.MusicXml.MusicXml20: parseExtend :: XParse Extend
- Fadno.MusicXml.MusicXml20: parseFan :: String -> XParse Fan
- Fadno.MusicXml.MusicXml20: parseFeature :: XParse Feature
- Fadno.MusicXml.MusicXml20: parseFermata :: XParse Fermata
- Fadno.MusicXml.MusicXml20: parseFermataShape :: String -> XParse FermataShape
- Fadno.MusicXml.MusicXml20: parseFifths :: String -> XParse Fifths
- Fadno.MusicXml.MusicXml20: parseFigure :: XParse Figure
- Fadno.MusicXml.MusicXml20: parseFiguredBass :: XParse FiguredBass
- Fadno.MusicXml.MusicXml20: parseFingering :: XParse Fingering
- Fadno.MusicXml.MusicXml20: parseFirstFret :: XParse FirstFret
- Fadno.MusicXml.MusicXml20: parseFontSize :: String -> XParse FontSize
- Fadno.MusicXml.MusicXml20: parseFontStyle :: String -> XParse FontStyle
- Fadno.MusicXml.MusicXml20: parseFontWeight :: String -> XParse FontWeight
- Fadno.MusicXml.MusicXml20: parseFootnote :: XParse Footnote
- Fadno.MusicXml.MusicXml20: parseFormattedText :: XParse FormattedText
- Fadno.MusicXml.MusicXml20: parseForward :: XParse Forward
- Fadno.MusicXml.MusicXml20: parseFrame :: XParse Frame
- Fadno.MusicXml.MusicXml20: parseFrameNote :: XParse FrameNote
- Fadno.MusicXml.MusicXml20: parseFret :: XParse Fret
- Fadno.MusicXml.MusicXml20: parseFullNote :: XParse FullNote
- Fadno.MusicXml.MusicXml20: parseGlissando :: XParse Glissando
- Fadno.MusicXml.MusicXml20: parseGrace :: XParse Grace
- Fadno.MusicXml.MusicXml20: parseGroupBarline :: XParse GroupBarline
- Fadno.MusicXml.MusicXml20: parseGroupBarlineValue :: String -> XParse GroupBarlineValue
- Fadno.MusicXml.MusicXml20: parseGroupName :: XParse GroupName
- Fadno.MusicXml.MusicXml20: parseGroupSymbol :: XParse GroupSymbol
- Fadno.MusicXml.MusicXml20: parseGroupSymbolValue :: String -> XParse GroupSymbolValue
- Fadno.MusicXml.MusicXml20: parseGrouping :: XParse Grouping
- Fadno.MusicXml.MusicXml20: parseGrpFullNote :: XParse GrpFullNote
- Fadno.MusicXml.MusicXml20: parseGrpLevel :: XParse GrpLevel
- Fadno.MusicXml.MusicXml20: parseGrpPartGroup :: XParse GrpPartGroup
- Fadno.MusicXml.MusicXml20: parseHammerOnPullOff :: XParse HammerOnPullOff
- Fadno.MusicXml.MusicXml20: parseHarmonic :: XParse Harmonic
- Fadno.MusicXml.MusicXml20: parseHarmony :: XParse Harmony
- Fadno.MusicXml.MusicXml20: parseHarmonyChord :: XParse HarmonyChord
- Fadno.MusicXml.MusicXml20: parseHarmonyType :: String -> XParse HarmonyType
- Fadno.MusicXml.MusicXml20: parseHarpPedals :: XParse HarpPedals
- Fadno.MusicXml.MusicXml20: parseHeelToe :: XParse HeelToe
- Fadno.MusicXml.MusicXml20: parseID :: String -> XParse ID
- Fadno.MusicXml.MusicXml20: parseIDREF :: String -> XParse IDREF
- Fadno.MusicXml.MusicXml20: parseIdentification :: XParse Identification
- Fadno.MusicXml.MusicXml20: parseImage :: XParse Image
- Fadno.MusicXml.MusicXml20: parseInstrument :: XParse Instrument
- Fadno.MusicXml.MusicXml20: parseInversion :: XParse Inversion
- Fadno.MusicXml.MusicXml20: parseKey :: XParse Key
- Fadno.MusicXml.MusicXml20: parseKeyOctave :: XParse KeyOctave
- Fadno.MusicXml.MusicXml20: parseKind :: XParse Kind
- Fadno.MusicXml.MusicXml20: parseKindValue :: String -> XParse KindValue
- Fadno.MusicXml.MusicXml20: parseLang :: String -> XParse Lang
- Fadno.MusicXml.MusicXml20: parseLanguage :: String -> XParse Language
- Fadno.MusicXml.MusicXml20: parseLayout :: XParse Layout
- Fadno.MusicXml.MusicXml20: parseLeftCenterRight :: String -> XParse LeftCenterRight
- Fadno.MusicXml.MusicXml20: parseLeftRight :: String -> XParse LeftRight
- Fadno.MusicXml.MusicXml20: parseLeftRightMargins :: XParse LeftRightMargins
- Fadno.MusicXml.MusicXml20: parseLevel :: XParse Level
- Fadno.MusicXml.MusicXml20: parseLineEnd :: String -> XParse LineEnd
- Fadno.MusicXml.MusicXml20: parseLineShape :: String -> XParse LineShape
- Fadno.MusicXml.MusicXml20: parseLineType :: String -> XParse LineType
- Fadno.MusicXml.MusicXml20: parseLineWidth :: XParse LineWidth
- Fadno.MusicXml.MusicXml20: parseLineWidthType :: String -> XParse LineWidthType
- Fadno.MusicXml.MusicXml20: parseLink :: XParse Link
- Fadno.MusicXml.MusicXml20: parseLyric :: XParse Lyric
- Fadno.MusicXml.MusicXml20: parseLyricFont :: XParse LyricFont
- Fadno.MusicXml.MusicXml20: parseLyricLanguage :: XParse LyricLanguage
- Fadno.MusicXml.MusicXml20: parseMarginType :: String -> XParse MarginType
- Fadno.MusicXml.MusicXml20: parseMeasure :: XParse Measure
- Fadno.MusicXml.MusicXml20: parseMeasureLayout :: XParse MeasureLayout
- Fadno.MusicXml.MusicXml20: parseMeasureNumbering :: XParse MeasureNumbering
- Fadno.MusicXml.MusicXml20: parseMeasureNumberingValue :: String -> XParse MeasureNumberingValue
- Fadno.MusicXml.MusicXml20: parseMeasureRepeat :: XParse MeasureRepeat
- Fadno.MusicXml.MusicXml20: parseMeasureStyle :: XParse MeasureStyle
- Fadno.MusicXml.MusicXml20: parseMetronome :: XParse Metronome
- Fadno.MusicXml.MusicXml20: parseMetronomeBeam :: XParse MetronomeBeam
- Fadno.MusicXml.MusicXml20: parseMetronomeNote :: XParse MetronomeNote
- Fadno.MusicXml.MusicXml20: parseMetronomeTuplet :: XParse MetronomeTuplet
- Fadno.MusicXml.MusicXml20: parseMidi128 :: String -> XParse Midi128
- Fadno.MusicXml.MusicXml20: parseMidi16 :: String -> XParse Midi16
- Fadno.MusicXml.MusicXml20: parseMidi16384 :: String -> XParse Midi16384
- Fadno.MusicXml.MusicXml20: parseMidiDevice :: XParse MidiDevice
- Fadno.MusicXml.MusicXml20: parseMidiInstrument :: XParse MidiInstrument
- Fadno.MusicXml.MusicXml20: parseMillimeters :: String -> XParse Millimeters
- Fadno.MusicXml.MusicXml20: parseMiscellaneous :: XParse Miscellaneous
- Fadno.MusicXml.MusicXml20: parseMiscellaneousField :: XParse MiscellaneousField
- Fadno.MusicXml.MusicXml20: parseMode :: String -> XParse Mode
- Fadno.MusicXml.MusicXml20: parseMordent :: XParse Mordent
- Fadno.MusicXml.MusicXml20: parseMultipleRest :: XParse MultipleRest
- Fadno.MusicXml.MusicXml20: parseMusicData :: XParse MusicData
- Fadno.MusicXml.MusicXml20: parseNCName :: String -> XParse NCName
- Fadno.MusicXml.MusicXml20: parseNMTOKEN :: String -> XParse NMTOKEN
- Fadno.MusicXml.MusicXml20: parseName :: String -> XParse Name
- Fadno.MusicXml.MusicXml20: parseNameDisplay :: XParse NameDisplay
- Fadno.MusicXml.MusicXml20: parseNonArpeggiate :: XParse NonArpeggiate
- Fadno.MusicXml.MusicXml20: parseNonNegativeDecimal :: String -> XParse NonNegativeDecimal
- Fadno.MusicXml.MusicXml20: parseNonNegativeInteger :: String -> XParse NonNegativeInteger
- Fadno.MusicXml.MusicXml20: parseNonTraditionalKey :: XParse NonTraditionalKey
- Fadno.MusicXml.MusicXml20: parseNormalizedString :: String -> XParse NormalizedString
- Fadno.MusicXml.MusicXml20: parseNotations :: XParse Notations
- Fadno.MusicXml.MusicXml20: parseNote :: XParse Note
- Fadno.MusicXml.MusicXml20: parseNoteSize :: XParse NoteSize
- Fadno.MusicXml.MusicXml20: parseNoteSizeType :: String -> XParse NoteSizeType
- Fadno.MusicXml.MusicXml20: parseNoteType :: XParse NoteType
- Fadno.MusicXml.MusicXml20: parseNoteTypeValue :: String -> XParse NoteTypeValue
- Fadno.MusicXml.MusicXml20: parseNotehead :: XParse Notehead
- Fadno.MusicXml.MusicXml20: parseNoteheadValue :: String -> XParse NoteheadValue
- Fadno.MusicXml.MusicXml20: parseNumberLevel :: String -> XParse NumberLevel
- Fadno.MusicXml.MusicXml20: parseNumberOfLines :: String -> XParse NumberOfLines
- Fadno.MusicXml.MusicXml20: parseNumberOrNormal :: String -> XParse NumberOrNormal
- Fadno.MusicXml.MusicXml20: parseOctave :: String -> XParse Octave
- Fadno.MusicXml.MusicXml20: parseOctaveShift :: XParse OctaveShift
- Fadno.MusicXml.MusicXml20: parseOffset :: XParse Offset
- Fadno.MusicXml.MusicXml20: parseOpus :: XParse Opus
- Fadno.MusicXml.MusicXml20: parseOrnaments :: XParse Ornaments
- Fadno.MusicXml.MusicXml20: parseOtherAppearance :: XParse OtherAppearance
- Fadno.MusicXml.MusicXml20: parseOtherDirection :: XParse OtherDirection
- Fadno.MusicXml.MusicXml20: parseOtherNotation :: XParse OtherNotation
- Fadno.MusicXml.MusicXml20: parseOverUnder :: String -> XParse OverUnder
- Fadno.MusicXml.MusicXml20: parsePageLayout :: XParse PageLayout
- Fadno.MusicXml.MusicXml20: parsePageMargins :: XParse PageMargins
- Fadno.MusicXml.MusicXml20: parsePart :: XParse Part
- Fadno.MusicXml.MusicXml20: parsePartGroup :: XParse PartGroup
- Fadno.MusicXml.MusicXml20: parsePartList :: XParse PartList
- Fadno.MusicXml.MusicXml20: parsePartName :: XParse PartName
- Fadno.MusicXml.MusicXml20: parsePartSymbol :: XParse PartSymbol
- Fadno.MusicXml.MusicXml20: parsePedal :: XParse Pedal
- Fadno.MusicXml.MusicXml20: parsePedalTuning :: XParse PedalTuning
- Fadno.MusicXml.MusicXml20: parsePerMinute :: XParse PerMinute
- Fadno.MusicXml.MusicXml20: parsePercent :: String -> XParse Percent
- Fadno.MusicXml.MusicXml20: parsePitch :: XParse Pitch
- Fadno.MusicXml.MusicXml20: parsePlacementText :: XParse PlacementText
- Fadno.MusicXml.MusicXml20: parsePositiveDivisions :: String -> XParse PositiveDivisions
- Fadno.MusicXml.MusicXml20: parsePositiveInteger :: String -> XParse PositiveInteger
- Fadno.MusicXml.MusicXml20: parsePositiveIntegerOrEmpty :: String -> XParse PositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: parsePrint :: XParse Print
- Fadno.MusicXml.MusicXml20: parseRehearsal :: XParse Rehearsal
- Fadno.MusicXml.MusicXml20: parseRehearsalEnclosure :: String -> XParse RehearsalEnclosure
- Fadno.MusicXml.MusicXml20: parseRepeat :: XParse Repeat
- Fadno.MusicXml.MusicXml20: parseRightLeftMiddle :: String -> XParse RightLeftMiddle
- Fadno.MusicXml.MusicXml20: parseRoot :: XParse Root
- Fadno.MusicXml.MusicXml20: parseRootAlter :: XParse RootAlter
- Fadno.MusicXml.MusicXml20: parseRootStep :: XParse RootStep
- Fadno.MusicXml.MusicXml20: parseRotationDegrees :: String -> XParse RotationDegrees
- Fadno.MusicXml.MusicXml20: parseScaling :: XParse Scaling
- Fadno.MusicXml.MusicXml20: parseScordatura :: XParse Scordatura
- Fadno.MusicXml.MusicXml20: parseScoreHeader :: XParse ScoreHeader
- Fadno.MusicXml.MusicXml20: parseScoreInstrument :: XParse ScoreInstrument
- Fadno.MusicXml.MusicXml20: parseScorePart :: XParse ScorePart
- Fadno.MusicXml.MusicXml20: parseScorePartwise :: XParse ScorePartwise
- Fadno.MusicXml.MusicXml20: parseScoreTimewise :: XParse ScoreTimewise
- Fadno.MusicXml.MusicXml20: parseSemitones :: String -> XParse Semitones
- Fadno.MusicXml.MusicXml20: parseSeqCredit :: XParse SeqCredit
- Fadno.MusicXml.MusicXml20: parseSeqDisplayStepOctave :: XParse SeqDisplayStepOctave
- Fadno.MusicXml.MusicXml20: parseSeqLyric :: XParse SeqLyric
- Fadno.MusicXml.MusicXml20: parseSeqLyric0 :: XParse SeqLyric0
- Fadno.MusicXml.MusicXml20: parseSeqMetronome :: XParse SeqMetronome
- Fadno.MusicXml.MusicXml20: parseSeqMetronomeTuplet :: XParse SeqMetronomeTuplet
- Fadno.MusicXml.MusicXml20: parseSeqOrnaments :: XParse SeqOrnaments
- Fadno.MusicXml.MusicXml20: parseSeqPageLayout :: XParse SeqPageLayout
- Fadno.MusicXml.MusicXml20: parseSeqTime :: XParse SeqTime
- Fadno.MusicXml.MusicXml20: parseSeqTimeModification :: XParse SeqTimeModification
- Fadno.MusicXml.MusicXml20: parseShowFrets :: String -> XParse ShowFrets
- Fadno.MusicXml.MusicXml20: parseShowTuplet :: String -> XParse ShowTuplet
- Fadno.MusicXml.MusicXml20: parseSlash :: XParse Slash
- Fadno.MusicXml.MusicXml20: parseSlide :: XParse Slide
- Fadno.MusicXml.MusicXml20: parseSlur :: XParse Slur
- Fadno.MusicXml.MusicXml20: parseSmpShow :: String -> XParse SmpShow
- Fadno.MusicXml.MusicXml20: parseSound :: XParse Sound
- Fadno.MusicXml.MusicXml20: parseStaff :: XParse Staff
- Fadno.MusicXml.MusicXml20: parseStaffDetails :: XParse StaffDetails
- Fadno.MusicXml.MusicXml20: parseStaffLayout :: XParse StaffLayout
- Fadno.MusicXml.MusicXml20: parseStaffLine :: String -> XParse StaffLine
- Fadno.MusicXml.MusicXml20: parseStaffNumber :: String -> XParse StaffNumber
- Fadno.MusicXml.MusicXml20: parseStaffTuning :: XParse StaffTuning
- Fadno.MusicXml.MusicXml20: parseStaffType :: String -> XParse StaffType
- Fadno.MusicXml.MusicXml20: parseStartNote :: String -> XParse StartNote
- Fadno.MusicXml.MusicXml20: parseStartStop :: String -> XParse StartStop
- Fadno.MusicXml.MusicXml20: parseStartStopChange :: String -> XParse StartStopChange
- Fadno.MusicXml.MusicXml20: parseStartStopContinue :: String -> XParse StartStopContinue
- Fadno.MusicXml.MusicXml20: parseStartStopDiscontinue :: String -> XParse StartStopDiscontinue
- Fadno.MusicXml.MusicXml20: parseStartStopSingle :: String -> XParse StartStopSingle
- Fadno.MusicXml.MusicXml20: parseStem :: XParse Stem
- Fadno.MusicXml.MusicXml20: parseStemValue :: String -> XParse StemValue
- Fadno.MusicXml.MusicXml20: parseStep :: String -> XParse Step
- Fadno.MusicXml.MusicXml20: parseStringNumber :: String -> XParse StringNumber
- Fadno.MusicXml.MusicXml20: parseStrongAccent :: XParse StrongAccent
- Fadno.MusicXml.MusicXml20: parseStyleText :: XParse StyleText
- Fadno.MusicXml.MusicXml20: parseSumLang :: String -> XParse SumLang
- Fadno.MusicXml.MusicXml20: parseSumNumberOrNormal :: String -> XParse SumNumberOrNormal
- Fadno.MusicXml.MusicXml20: parseSumPositiveIntegerOrEmpty :: String -> XParse SumPositiveIntegerOrEmpty
- Fadno.MusicXml.MusicXml20: parseSupports :: XParse Supports
- Fadno.MusicXml.MusicXml20: parseSyllabic :: String -> XParse Syllabic
- Fadno.MusicXml.MusicXml20: parseSymbolSize :: String -> XParse SymbolSize
- Fadno.MusicXml.MusicXml20: parseSystemLayout :: XParse SystemLayout
- Fadno.MusicXml.MusicXml20: parseSystemMargins :: XParse SystemMargins
- Fadno.MusicXml.MusicXml20: parseTechnical :: XParse Technical
- Fadno.MusicXml.MusicXml20: parseTenths :: String -> XParse Tenths
- Fadno.MusicXml.MusicXml20: parseTextDirection :: String -> XParse TextDirection
- Fadno.MusicXml.MusicXml20: parseTextElementData :: XParse TextElementData
- Fadno.MusicXml.MusicXml20: parseTie :: XParse Tie
- Fadno.MusicXml.MusicXml20: parseTied :: XParse Tied
- Fadno.MusicXml.MusicXml20: parseTime :: XParse Time
- Fadno.MusicXml.MusicXml20: parseTimeModification :: XParse TimeModification
- Fadno.MusicXml.MusicXml20: parseTimeSymbol :: String -> XParse TimeSymbol
- Fadno.MusicXml.MusicXml20: parseToken :: String -> XParse Token
- Fadno.MusicXml.MusicXml20: parseTopBottom :: String -> XParse TopBottom
- Fadno.MusicXml.MusicXml20: parseTraditionalKey :: XParse TraditionalKey
- Fadno.MusicXml.MusicXml20: parseTranspose :: XParse Transpose
- Fadno.MusicXml.MusicXml20: parseTremolo :: XParse Tremolo
- Fadno.MusicXml.MusicXml20: parseTremoloMarks :: String -> XParse TremoloMarks
- Fadno.MusicXml.MusicXml20: parseTrillBeats :: String -> XParse TrillBeats
- Fadno.MusicXml.MusicXml20: parseTrillStep :: String -> XParse TrillStep
- Fadno.MusicXml.MusicXml20: parseTuning :: XParse Tuning
- Fadno.MusicXml.MusicXml20: parseTuplet :: XParse Tuplet
- Fadno.MusicXml.MusicXml20: parseTupletDot :: XParse TupletDot
- Fadno.MusicXml.MusicXml20: parseTupletNumber :: XParse TupletNumber
- Fadno.MusicXml.MusicXml20: parseTupletPortion :: XParse TupletPortion
- Fadno.MusicXml.MusicXml20: parseTupletType :: XParse TupletType
- Fadno.MusicXml.MusicXml20: parseTwoNoteTurn :: String -> XParse TwoNoteTurn
- Fadno.MusicXml.MusicXml20: parseType :: String -> XParse Type
- Fadno.MusicXml.MusicXml20: parseTypedText :: XParse TypedText
- Fadno.MusicXml.MusicXml20: parseUpDown :: String -> XParse UpDown
- Fadno.MusicXml.MusicXml20: parseUpDownStop :: String -> XParse UpDownStop
- Fadno.MusicXml.MusicXml20: parseUprightInverted :: String -> XParse UprightInverted
- Fadno.MusicXml.MusicXml20: parseValign :: String -> XParse Valign
- Fadno.MusicXml.MusicXml20: parseValignImage :: String -> XParse ValignImage
- Fadno.MusicXml.MusicXml20: parseVoice :: XParse Voice
- Fadno.MusicXml.MusicXml20: parseWavyLine :: XParse WavyLine
- Fadno.MusicXml.MusicXml20: parseWedge :: XParse Wedge
- Fadno.MusicXml.MusicXml20: parseWedgeType :: String -> XParse WedgeType
- Fadno.MusicXml.MusicXml20: parseWork :: XParse Work
- Fadno.MusicXml.MusicXml20: parseYesNo :: String -> XParse YesNo
- Fadno.MusicXml.MusicXml20: parseYesNoNumber :: String -> XParse YesNoNumber
- Fadno.MusicXml.MusicXml20: parseYyyyMmDd :: String -> XParse YyyyMmDd
+ Fadno.MusicXml.MusicXml31: AboveBelowAbove :: AboveBelow
+ Fadno.MusicXml.MusicXml31: AboveBelowBelow :: AboveBelow
+ Fadno.MusicXml.MusicXml31: Accidental :: AccidentalValue -> Maybe YesNo -> Maybe YesNo -> Maybe SmuflAccidentalGlyphName -> Maybe YesNo -> Maybe YesNo -> Maybe SymbolSize -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Accidental
+ Fadno.MusicXml.MusicXml31: AccidentalMark :: AccidentalValue -> Maybe SmuflAccidentalGlyphName -> Maybe YesNo -> Maybe YesNo -> Maybe SymbolSize -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe ID -> AccidentalMark
+ Fadno.MusicXml.MusicXml31: AccidentalText :: AccidentalValue -> Maybe SmuflAccidentalGlyphName -> Maybe Lang -> Maybe Space -> Maybe LeftCenterRight -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe RotationDegrees -> Maybe NumberOrNormal -> Maybe NumberOrNormal -> Maybe TextDirection -> Maybe EnclosureShape -> AccidentalText
+ Fadno.MusicXml.MusicXml31: AccidentalValueArrowDown :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueArrowUp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueDoubleSharp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueDoubleSharpDown :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueDoubleSharpUp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueDoubleSlashFlat :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueFlat :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueFlat1 :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueFlat2 :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueFlat3 :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueFlat4 :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueFlatDown :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueFlatFlat :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueFlatFlatDown :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueFlatFlatUp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueFlatUp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueKoron :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueNatural :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueNaturalDown :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueNaturalFlat :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueNaturalSharp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueNaturalUp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueOther :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueQuarterFlat :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueQuarterSharp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSharp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSharp1 :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSharp2 :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSharp3 :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSharp5 :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSharpDown :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSharpSharp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSharpUp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSlashFlat :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSlashQuarterSharp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSlashSharp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueSori :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueThreeQuartersFlat :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueThreeQuartersSharp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueTripleFlat :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: AccidentalValueTripleSharp :: AccidentalValue
+ Fadno.MusicXml.MusicXml31: Accord :: Maybe StringNumber -> Tuning -> Accord
+ Fadno.MusicXml.MusicXml31: AccordionMiddle :: PositiveInteger -> AccordionMiddle
+ Fadno.MusicXml.MusicXml31: AccordionRegistration :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe ID -> Maybe Empty -> Maybe AccordionMiddle -> Maybe Empty -> AccordionRegistration
+ Fadno.MusicXml.MusicXml31: ActuateNone :: Actuate
+ Fadno.MusicXml.MusicXml31: ActuateOnLoad :: Actuate
+ Fadno.MusicXml.MusicXml31: ActuateOnRequest :: Actuate
+ Fadno.MusicXml.MusicXml31: ActuateOther :: Actuate
+ Fadno.MusicXml.MusicXml31: AllMargins :: LeftRightMargins -> Tenths -> Tenths -> AllMargins
+ Fadno.MusicXml.MusicXml31: Appearance :: [LineWidth] -> [NoteSize] -> [Distance] -> [Glyph] -> [OtherAppearance] -> Appearance
+ Fadno.MusicXml.MusicXml31: Arpeggiate :: Maybe NumberLevel -> Maybe UpDown -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe Color -> Maybe ID -> Arpeggiate
+ Fadno.MusicXml.MusicXml31: Arrow :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe SmuflGlyphName -> ChxArrow -> Arrow
+ Fadno.MusicXml.MusicXml31: ArrowArrowDirection :: ArrowDirection -> Maybe ArrowStyle -> Maybe Empty -> ChxArrow
+ Fadno.MusicXml.MusicXml31: ArrowCircularArrow :: CircularArrow -> ChxArrow
+ Fadno.MusicXml.MusicXml31: ArrowDirectionDown :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionLeft :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionLeftRight :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionNortheast :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionNortheastSouthwest :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionNorthwest :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionNorthwestSoutheast :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionOther :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionRight :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionSoutheast :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionSouthwest :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionUp :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowDirectionUpDown :: ArrowDirection
+ Fadno.MusicXml.MusicXml31: ArrowStyleCombined :: ArrowStyle
+ Fadno.MusicXml.MusicXml31: ArrowStyleDouble :: ArrowStyle
+ Fadno.MusicXml.MusicXml31: ArrowStyleFilled :: ArrowStyle
+ Fadno.MusicXml.MusicXml31: ArrowStyleHollow :: ArrowStyle
+ Fadno.MusicXml.MusicXml31: ArrowStyleOther :: ArrowStyle
+ Fadno.MusicXml.MusicXml31: ArrowStylePaired :: ArrowStyle
+ Fadno.MusicXml.MusicXml31: ArrowStyleSingle :: ArrowStyle
+ Fadno.MusicXml.MusicXml31: Articulations :: Maybe ID -> [ChxArticulations] -> Articulations
+ Fadno.MusicXml.MusicXml31: ArticulationsAccent :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsBreathMark :: BreathMark -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsCaesura :: Caesura -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsDetachedLegato :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsDoit :: EmptyLine -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsFalloff :: EmptyLine -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsOtherArticulation :: OtherPlacementText -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsPlop :: EmptyLine -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsScoop :: EmptyLine -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsSoftAccent :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsSpiccato :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsStaccatissimo :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsStaccato :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsStress :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsStrongAccent :: StrongAccent -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsTenuto :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: ArticulationsUnstress :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: Attributes :: Editorial -> Maybe PositiveDivisions -> [Key] -> [Time] -> Maybe NonNegativeInteger -> Maybe PartSymbol -> Maybe NonNegativeInteger -> [Clef] -> [StaffDetails] -> [Transpose] -> [Directive] -> [MeasureStyle] -> Attributes
+ Fadno.MusicXml.MusicXml31: Backup :: Duration -> Editorial -> Backup
+ Fadno.MusicXml.MusicXml31: BackwardForwardBackward :: BackwardForward
+ Fadno.MusicXml.MusicXml31: BackwardForwardForward :: BackwardForward
+ Fadno.MusicXml.MusicXml31: BarStyleColor :: BarStyle -> Maybe Color -> BarStyleColor
+ Fadno.MusicXml.MusicXml31: BarStyleDashed :: BarStyle
+ Fadno.MusicXml.MusicXml31: BarStyleDotted :: BarStyle
+ Fadno.MusicXml.MusicXml31: BarStyleHeavy :: BarStyle
+ Fadno.MusicXml.MusicXml31: BarStyleHeavyHeavy :: BarStyle
+ Fadno.MusicXml.MusicXml31: BarStyleHeavyLight :: BarStyle
+ Fadno.MusicXml.MusicXml31: BarStyleLightHeavy :: BarStyle
+ Fadno.MusicXml.MusicXml31: BarStyleLightLight :: BarStyle
+ Fadno.MusicXml.MusicXml31: BarStyleNone :: BarStyle
+ Fadno.MusicXml.MusicXml31: BarStyleRegular :: BarStyle
+ Fadno.MusicXml.MusicXml31: BarStyleShort :: BarStyle
+ Fadno.MusicXml.MusicXml31: BarStyleTick :: BarStyle
+ Fadno.MusicXml.MusicXml31: Barline :: Maybe RightLeftMiddle -> Maybe Token -> Maybe Token -> Maybe Divisions -> Maybe ID -> Maybe BarStyleColor -> Editorial -> Maybe WavyLine -> Maybe Segno -> Maybe Coda -> [Fermata] -> Maybe Ending -> Maybe Repeat -> Barline
+ Fadno.MusicXml.MusicXml31: Barre :: StartStop -> Maybe Color -> Barre
+ Fadno.MusicXml.MusicXml31: Bass :: BassStep -> Maybe BassAlter -> Bass
+ Fadno.MusicXml.MusicXml31: BassAlter :: Semitones -> Maybe LeftRight -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> BassAlter
+ Fadno.MusicXml.MusicXml31: BassStep :: Step -> Maybe Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> BassStep
+ Fadno.MusicXml.MusicXml31: Beam :: BeamValue -> Maybe BeamLevel -> Maybe YesNo -> Maybe Fan -> Maybe Color -> Maybe ID -> Beam
+ Fadno.MusicXml.MusicXml31: BeamLevel :: PositiveInteger -> BeamLevel
+ Fadno.MusicXml.MusicXml31: BeamValueBackwardHook :: BeamValue
+ Fadno.MusicXml.MusicXml31: BeamValueBegin :: BeamValue
+ Fadno.MusicXml.MusicXml31: BeamValueContinue :: BeamValue
+ Fadno.MusicXml.MusicXml31: BeamValueEnd :: BeamValue
+ Fadno.MusicXml.MusicXml31: BeamValueForwardHook :: BeamValue
+ Fadno.MusicXml.MusicXml31: BeatRepeat :: StartStop -> Maybe PositiveInteger -> Maybe YesNo -> Maybe Slash -> BeatRepeat
+ Fadno.MusicXml.MusicXml31: BeatUnit :: NoteTypeValue -> [Empty] -> BeatUnit
+ Fadno.MusicXml.MusicXml31: BeatUnitTied :: BeatUnit -> BeatUnitTied
+ Fadno.MusicXml.MusicXml31: Beater :: BeaterValue -> Maybe TipDirection -> Beater
+ Fadno.MusicXml.MusicXml31: BeaterValueBow :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueChimeHammer :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueCoin :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueDrumStick :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueFinger :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueFingernail :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueFist :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueGuiroScraper :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueHammer :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueHand :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueJazzStick :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueKnittingNeedle :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueMetalHammer :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueSlideBrushOnGong :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueSnareStick :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueSpoonMallet :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueSuperball :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueTriangleBeater :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueTriangleBeaterPlain :: BeaterValue
+ Fadno.MusicXml.MusicXml31: BeaterValueWireBrush :: BeaterValue
+ Fadno.MusicXml.MusicXml31: Bend :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe TrillBeats -> Maybe Percent -> Maybe Percent -> Semitones -> Maybe ChxBend -> Maybe PlacementText -> Bend
+ Fadno.MusicXml.MusicXml31: BendPreBend :: Empty -> ChxBend
+ Fadno.MusicXml.MusicXml31: BendRelease :: Empty -> ChxBend
+ Fadno.MusicXml.MusicXml31: Bookmark :: ID -> Maybe Token -> Maybe NMTOKEN -> Maybe PositiveInteger -> Bookmark
+ Fadno.MusicXml.MusicXml31: Bracket :: StartStopContinue -> Maybe NumberLevel -> LineEnd -> Maybe Tenths -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Maybe ID -> Bracket
+ Fadno.MusicXml.MusicXml31: BreathMark :: BreathMarkValue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> BreathMark
+ Fadno.MusicXml.MusicXml31: BreathMarkValue :: BreathMarkValue
+ Fadno.MusicXml.MusicXml31: BreathMarkValueComma :: BreathMarkValue
+ Fadno.MusicXml.MusicXml31: BreathMarkValueSalzedo :: BreathMarkValue
+ Fadno.MusicXml.MusicXml31: BreathMarkValueTick :: BreathMarkValue
+ Fadno.MusicXml.MusicXml31: BreathMarkValueUpbow :: BreathMarkValue
+ Fadno.MusicXml.MusicXml31: Caesura :: CaesuraValue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Caesura
+ Fadno.MusicXml.MusicXml31: CaesuraValue :: CaesuraValue
+ Fadno.MusicXml.MusicXml31: CaesuraValueCurved :: CaesuraValue
+ Fadno.MusicXml.MusicXml31: CaesuraValueNormal :: CaesuraValue
+ Fadno.MusicXml.MusicXml31: CaesuraValueShort :: CaesuraValue
+ Fadno.MusicXml.MusicXml31: CaesuraValueSingle :: CaesuraValue
+ Fadno.MusicXml.MusicXml31: CaesuraValueThick :: CaesuraValue
+ Fadno.MusicXml.MusicXml31: Cancel :: Fifths -> Maybe CancelLocation -> Cancel
+ Fadno.MusicXml.MusicXml31: CancelLocationBeforeBarline :: CancelLocation
+ Fadno.MusicXml.MusicXml31: CancelLocationLeft :: CancelLocation
+ Fadno.MusicXml.MusicXml31: CancelLocationRight :: CancelLocation
+ Fadno.MusicXml.MusicXml31: ChxCreditCreditSymbol :: FormattedSymbolId -> ChxCredit1
+ Fadno.MusicXml.MusicXml31: ChxCreditCreditWords :: FormattedTextId -> ChxCredit1
+ Fadno.MusicXml.MusicXml31: ChxMetronomeBeatUnit :: BeatUnit -> [BeatUnitTied] -> ChxMetronome0 -> ChxMetronome
+ Fadno.MusicXml.MusicXml31: ChxNoteCue :: Empty -> GrpFullNote -> Duration -> ChxNote
+ Fadno.MusicXml.MusicXml31: ChxNoteFullNote :: GrpFullNote -> Duration -> [Tie] -> ChxNote
+ Fadno.MusicXml.MusicXml31: CircularArrowAnticlockwise :: CircularArrow
+ Fadno.MusicXml.MusicXml31: CircularArrowClockwise :: CircularArrow
+ Fadno.MusicXml.MusicXml31: Clef :: Maybe StaffNumber -> Maybe YesNo -> Maybe SymbolSize -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe ID -> ClefSign -> Maybe StaffLine -> Maybe Int -> Clef
+ Fadno.MusicXml.MusicXml31: ClefSignC :: ClefSign
+ Fadno.MusicXml.MusicXml31: ClefSignF :: ClefSign
+ Fadno.MusicXml.MusicXml31: ClefSignG :: ClefSign
+ Fadno.MusicXml.MusicXml31: ClefSignJianpu :: ClefSign
+ Fadno.MusicXml.MusicXml31: ClefSignNone :: ClefSign
+ Fadno.MusicXml.MusicXml31: ClefSignPercussion :: ClefSign
+ Fadno.MusicXml.MusicXml31: ClefSignTAB :: ClefSign
+ Fadno.MusicXml.MusicXml31: CmpMeasure :: Token -> Maybe MeasureText -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> Maybe ID -> [Part] -> CmpMeasure
+ Fadno.MusicXml.MusicXml31: CmpPart :: IDREF -> [Measure] -> CmpPart
+ Fadno.MusicXml.MusicXml31: CmpScorePart :: ID -> Maybe Identification -> PartName -> Maybe NameDisplay -> Maybe PartName -> Maybe NameDisplay -> [String] -> [ScoreInstrument] -> [SeqScorePart] -> CmpScorePart
+ Fadno.MusicXml.MusicXml31: CmpSlash :: StartStop -> Maybe YesNo -> Maybe YesNo -> Maybe Slash -> CmpSlash
+ Fadno.MusicXml.MusicXml31: CmpString :: StringNumber -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> CmpString
+ Fadno.MusicXml.MusicXml31: Coda :: Maybe SmuflCodaGlyphName -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe ID -> Coda
+ Fadno.MusicXml.MusicXml31: Color :: Token -> Color
+ Fadno.MusicXml.MusicXml31: CommaSeparatedText :: Token -> CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: Credit :: Maybe PositiveInteger -> Maybe ID -> [String] -> [Link] -> [Bookmark] -> ChxCredit -> Credit
+ Fadno.MusicXml.MusicXml31: CreditCredit :: ChxCredit0 -> [SeqCredit] -> ChxCredit
+ Fadno.MusicXml.MusicXml31: CreditCreditImage :: Image -> ChxCredit
+ Fadno.MusicXml.MusicXml31: CreditCreditSymbol :: FormattedSymbolId -> ChxCredit0
+ Fadno.MusicXml.MusicXml31: CreditCreditWords :: FormattedTextId -> ChxCredit0
+ Fadno.MusicXml.MusicXml31: CssFontSizeLarge :: CssFontSize
+ Fadno.MusicXml.MusicXml31: CssFontSizeMedium :: CssFontSize
+ Fadno.MusicXml.MusicXml31: CssFontSizeSmall :: CssFontSize
+ Fadno.MusicXml.MusicXml31: CssFontSizeXLarge :: CssFontSize
+ Fadno.MusicXml.MusicXml31: CssFontSizeXSmall :: CssFontSize
+ Fadno.MusicXml.MusicXml31: CssFontSizeXxLarge :: CssFontSize
+ Fadno.MusicXml.MusicXml31: CssFontSizeXxSmall :: CssFontSize
+ Fadno.MusicXml.MusicXml31: Dashes :: StartStopContinue -> Maybe NumberLevel -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Maybe ID -> Dashes
+ Fadno.MusicXml.MusicXml31: Defaults :: Maybe Scaling -> Layout -> Maybe Appearance -> Maybe EmptyFont -> Maybe EmptyFont -> [LyricFont] -> [LyricLanguage] -> Defaults
+ Fadno.MusicXml.MusicXml31: Degree :: Maybe YesNo -> DegreeValue -> DegreeAlter -> DegreeType -> Degree
+ Fadno.MusicXml.MusicXml31: DegreeAlter :: Semitones -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> DegreeAlter
+ Fadno.MusicXml.MusicXml31: DegreeSymbolValueAugmented :: DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: DegreeSymbolValueDiminished :: DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: DegreeSymbolValueHalfDiminished :: DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: DegreeSymbolValueMajor :: DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: DegreeSymbolValueMinor :: DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: DegreeType :: DegreeTypeValue -> Maybe Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> DegreeType
+ Fadno.MusicXml.MusicXml31: DegreeTypeValueAdd :: DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: DegreeTypeValueAlter :: DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: DegreeTypeValueSubtract :: DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: DegreeValue :: PositiveInteger -> Maybe DegreeSymbolValue -> Maybe Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> DegreeValue
+ Fadno.MusicXml.MusicXml31: Direction :: Maybe AboveBelow -> Maybe YesNo -> Maybe ID -> [DirectionType] -> Maybe Offset -> EditorialVoiceDirection -> Maybe Staff -> Maybe Sound -> Direction
+ Fadno.MusicXml.MusicXml31: DirectionType :: Maybe ID -> ChxDirectionType -> DirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeAccordionRegistration :: AccordionRegistration -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeBracket :: Bracket -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeCoda :: [Coda] -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeDamp :: EmptyPrintStyleAlignId -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeDampAll :: EmptyPrintStyleAlignId -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeDashes :: Dashes -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeDirectionType :: [ChxDirectionType0] -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeDynamics :: [Dynamics] -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeEyeglasses :: EmptyPrintStyleAlignId -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeHarpPedals :: HarpPedals -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeImage :: Image -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeMetronome :: Metronome -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeOctaveShift :: OctaveShift -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeOtherDirection :: OtherDirection -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypePedal :: Pedal -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypePercussion :: [Percussion] -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypePrincipalVoice :: PrincipalVoice -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeRehearsal :: [FormattedTextId] -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeScordatura :: Scordatura -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeSegno :: [Segno] -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeStaffDivide :: StaffDivide -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeStringMute :: StringMute -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeSymbol :: FormattedSymbolId -> ChxDirectionType0
+ Fadno.MusicXml.MusicXml31: DirectionTypeWedge :: Wedge -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: DirectionTypeWords :: FormattedTextId -> ChxDirectionType0
+ Fadno.MusicXml.MusicXml31: Directive :: String -> Maybe Lang -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Directive
+ Fadno.MusicXml.MusicXml31: DisplayStepOctave :: Step -> Octave -> DisplayStepOctave
+ Fadno.MusicXml.MusicXml31: Distance :: Tenths -> DistanceType -> Distance
+ Fadno.MusicXml.MusicXml31: DistanceType :: Token -> DistanceType
+ Fadno.MusicXml.MusicXml31: Divisions :: Decimal -> Divisions
+ Fadno.MusicXml.MusicXml31: Duration :: PositiveDivisions -> Duration
+ Fadno.MusicXml.MusicXml31: Dynamics :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe AboveBelow -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe EnclosureShape -> Maybe ID -> [ChxDynamics] -> Dynamics
+ Fadno.MusicXml.MusicXml31: DynamicsF :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsFf :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsFff :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsFfff :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsFffff :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsFfffff :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsFp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsFz :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsMf :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsMp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsN :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsOtherDynamics :: OtherText -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsP :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsPf :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsPp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsPpp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsPppp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsPpppp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsPppppp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsRf :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsRfz :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsSf :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsSffz :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsSfp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsSfpp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsSfz :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: DynamicsSfzp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: Editorial :: Maybe Footnote -> Maybe GrpLevel -> Editorial
+ Fadno.MusicXml.MusicXml31: EditorialVoice :: Maybe Footnote -> Maybe GrpLevel -> Maybe Voice -> EditorialVoice
+ Fadno.MusicXml.MusicXml31: EditorialVoiceDirection :: Maybe Footnote -> Maybe GrpLevel -> Maybe Voice -> EditorialVoiceDirection
+ Fadno.MusicXml.MusicXml31: EffectAnvil :: Effect
+ Fadno.MusicXml.MusicXml31: EffectAutoHorn :: Effect
+ Fadno.MusicXml.MusicXml31: EffectBirdWhistle :: Effect
+ Fadno.MusicXml.MusicXml31: EffectCannon :: Effect
+ Fadno.MusicXml.MusicXml31: EffectDuckCall :: Effect
+ Fadno.MusicXml.MusicXml31: EffectGunShot :: Effect
+ Fadno.MusicXml.MusicXml31: EffectKlaxonHorn :: Effect
+ Fadno.MusicXml.MusicXml31: EffectLionsRoar :: Effect
+ Fadno.MusicXml.MusicXml31: EffectLotusFlute :: Effect
+ Fadno.MusicXml.MusicXml31: EffectMegaphone :: Effect
+ Fadno.MusicXml.MusicXml31: EffectPoliceWhistle :: Effect
+ Fadno.MusicXml.MusicXml31: EffectSiren :: Effect
+ Fadno.MusicXml.MusicXml31: EffectSlideWhistle :: Effect
+ Fadno.MusicXml.MusicXml31: EffectThunderSheet :: Effect
+ Fadno.MusicXml.MusicXml31: EffectWindMachine :: Effect
+ Fadno.MusicXml.MusicXml31: EffectWindWhistle :: Effect
+ Fadno.MusicXml.MusicXml31: Elision :: String -> Maybe SmuflLyricsGlyphName -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Elision
+ Fadno.MusicXml.MusicXml31: Empty :: Empty
+ Fadno.MusicXml.MusicXml31: EmptyFont :: Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> EmptyFont
+ Fadno.MusicXml.MusicXml31: EmptyLine :: Maybe LineShape -> Maybe LineType -> Maybe LineLength -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> EmptyLine
+ Fadno.MusicXml.MusicXml31: EmptyPlacement :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: EmptyPlacementSmufl :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe SmuflGlyphName -> EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: EmptyPrintObjectStyleAlign :: Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> EmptyPrintObjectStyleAlign
+ Fadno.MusicXml.MusicXml31: EmptyPrintStyleAlignId :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe ID -> EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: EmptyTrillSound :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe StartNote -> Maybe TrillStep -> Maybe TwoNoteTurn -> Maybe YesNo -> Maybe TrillBeats -> Maybe Percent -> Maybe Percent -> EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: EnclosureShapeBracket :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeCircle :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeDecagon :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeDiamond :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeHeptagon :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeHexagon :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeNonagon :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeNone :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeOctagon :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeOval :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapePentagon :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeRectangle :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeSquare :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: EnclosureShapeTriangle :: EnclosureShape
+ Fadno.MusicXml.MusicXml31: Encoding :: [ChxEncoding] -> Encoding
+ Fadno.MusicXml.MusicXml31: EncodingEncoder :: TypedText -> ChxEncoding
+ Fadno.MusicXml.MusicXml31: EncodingEncodingDate :: YyyyMmDd -> ChxEncoding
+ Fadno.MusicXml.MusicXml31: EncodingEncodingDescription :: String -> ChxEncoding
+ Fadno.MusicXml.MusicXml31: EncodingSoftware :: String -> ChxEncoding
+ Fadno.MusicXml.MusicXml31: EncodingSupports :: Supports -> ChxEncoding
+ Fadno.MusicXml.MusicXml31: Ending :: String -> EndingNumber -> StartStopDiscontinue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Ending
+ Fadno.MusicXml.MusicXml31: EndingNumber :: Token -> EndingNumber
+ Fadno.MusicXml.MusicXml31: Extend :: Maybe StartStopContinue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Extend
+ Fadno.MusicXml.MusicXml31: FanAccel :: Fan
+ Fadno.MusicXml.MusicXml31: FanNone :: Fan
+ Fadno.MusicXml.MusicXml31: FanRit :: Fan
+ Fadno.MusicXml.MusicXml31: Feature :: String -> Maybe Token -> Feature
+ Fadno.MusicXml.MusicXml31: Fermata :: FermataShape -> Maybe UprightInverted -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe ID -> Fermata
+ Fadno.MusicXml.MusicXml31: FermataShape :: FermataShape
+ Fadno.MusicXml.MusicXml31: FermataShapeAngled :: FermataShape
+ Fadno.MusicXml.MusicXml31: FermataShapeCurlew :: FermataShape
+ Fadno.MusicXml.MusicXml31: FermataShapeDoubleAngled :: FermataShape
+ Fadno.MusicXml.MusicXml31: FermataShapeDoubleDot :: FermataShape
+ Fadno.MusicXml.MusicXml31: FermataShapeDoubleSquare :: FermataShape
+ Fadno.MusicXml.MusicXml31: FermataShapeHalfCurve :: FermataShape
+ Fadno.MusicXml.MusicXml31: FermataShapeNormal :: FermataShape
+ Fadno.MusicXml.MusicXml31: FermataShapeSquare :: FermataShape
+ Fadno.MusicXml.MusicXml31: Fifths :: Int -> Fifths
+ Fadno.MusicXml.MusicXml31: Figure :: Maybe StyleText -> Maybe StyleText -> Maybe StyleText -> Maybe Extend -> Editorial -> Figure
+ Fadno.MusicXml.MusicXml31: FiguredBass :: Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe ID -> [Figure] -> Maybe Duration -> Editorial -> FiguredBass
+ Fadno.MusicXml.MusicXml31: Fingering :: String -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Fingering
+ Fadno.MusicXml.MusicXml31: FirstFret :: PositiveInteger -> Maybe Token -> Maybe LeftRight -> FirstFret
+ Fadno.MusicXml.MusicXml31: FontSizeCssFontSize :: CssFontSize -> FontSize
+ Fadno.MusicXml.MusicXml31: FontSizeDecimal :: Decimal -> FontSize
+ Fadno.MusicXml.MusicXml31: FontStyleItalic :: FontStyle
+ Fadno.MusicXml.MusicXml31: FontStyleNormal :: FontStyle
+ Fadno.MusicXml.MusicXml31: FontWeightBold :: FontWeight
+ Fadno.MusicXml.MusicXml31: FontWeightNormal :: FontWeight
+ Fadno.MusicXml.MusicXml31: Footnote :: FormattedText -> Footnote
+ Fadno.MusicXml.MusicXml31: FormattedSymbolId :: SmuflGlyphName -> Maybe LeftCenterRight -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe RotationDegrees -> Maybe NumberOrNormal -> Maybe NumberOrNormal -> Maybe TextDirection -> Maybe EnclosureShape -> Maybe ID -> FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: FormattedText :: String -> Maybe Lang -> Maybe Space -> Maybe LeftCenterRight -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe RotationDegrees -> Maybe NumberOrNormal -> Maybe NumberOrNormal -> Maybe TextDirection -> Maybe EnclosureShape -> FormattedText
+ Fadno.MusicXml.MusicXml31: FormattedTextId :: String -> Maybe Lang -> Maybe Space -> Maybe LeftCenterRight -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe RotationDegrees -> Maybe NumberOrNormal -> Maybe NumberOrNormal -> Maybe TextDirection -> Maybe EnclosureShape -> Maybe ID -> FormattedTextId
+ Fadno.MusicXml.MusicXml31: Forward :: Duration -> EditorialVoice -> Maybe Staff -> Forward
+ Fadno.MusicXml.MusicXml31: Frame :: Maybe Tenths -> Maybe Tenths -> Maybe Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Maybe LeftCenterRight -> Maybe ValignImage -> Maybe ID -> PositiveInteger -> PositiveInteger -> Maybe FirstFret -> [FrameNote] -> Frame
+ Fadno.MusicXml.MusicXml31: FrameNote :: CmpString -> Fret -> Maybe Fingering -> Maybe Barre -> FrameNote
+ Fadno.MusicXml.MusicXml31: Fret :: NonNegativeInteger -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Fret
+ Fadno.MusicXml.MusicXml31: FullNotePitch :: Pitch -> FullNote
+ Fadno.MusicXml.MusicXml31: FullNoteRest :: Rest -> FullNote
+ Fadno.MusicXml.MusicXml31: FullNoteUnpitched :: Unpitched -> FullNote
+ Fadno.MusicXml.MusicXml31: Glass :: GlassValue -> Maybe SmuflPictogramGlyphName -> Glass
+ Fadno.MusicXml.MusicXml31: GlassValueGlassHarmonica :: GlassValue
+ Fadno.MusicXml.MusicXml31: GlassValueGlassHarp :: GlassValue
+ Fadno.MusicXml.MusicXml31: GlassValueWindChimes :: GlassValue
+ Fadno.MusicXml.MusicXml31: Glissando :: String -> StartStop -> Maybe NumberLevel -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe ID -> Glissando
+ Fadno.MusicXml.MusicXml31: Glyph :: SmuflGlyphName -> GlyphType -> Glyph
+ Fadno.MusicXml.MusicXml31: GlyphType :: Token -> GlyphType
+ Fadno.MusicXml.MusicXml31: Grace :: Maybe Percent -> Maybe Percent -> Maybe Divisions -> Maybe YesNo -> Grace
+ Fadno.MusicXml.MusicXml31: GroupBarline :: GroupBarlineValue -> Maybe Color -> GroupBarline
+ Fadno.MusicXml.MusicXml31: GroupBarlineValueMensurstrich :: GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: GroupBarlineValueNo :: GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: GroupBarlineValueYes :: GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: GroupName :: String -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> GroupName
+ Fadno.MusicXml.MusicXml31: GroupSymbol :: GroupSymbolValue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> GroupSymbol
+ Fadno.MusicXml.MusicXml31: GroupSymbolValueBrace :: GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: GroupSymbolValueBracket :: GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: GroupSymbolValueLine :: GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: GroupSymbolValueNone :: GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: GroupSymbolValueSquare :: GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: Grouping :: StartStopSingle -> Maybe Token -> Maybe Token -> Maybe ID -> [Feature] -> Grouping
+ Fadno.MusicXml.MusicXml31: GrpFullNote :: Maybe Empty -> FullNote -> GrpFullNote
+ Fadno.MusicXml.MusicXml31: GrpLevel :: Level -> GrpLevel
+ Fadno.MusicXml.MusicXml31: GrpPartGroup :: PartGroup -> GrpPartGroup
+ Fadno.MusicXml.MusicXml31: HammerOnPullOff :: String -> StartStop -> Maybe NumberLevel -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> HammerOnPullOff
+ Fadno.MusicXml.MusicXml31: Handbell :: HandbellValue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Handbell
+ Fadno.MusicXml.MusicXml31: HandbellValueBelltree :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValueDamp :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValueEcho :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValueGyro :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValueHandMartellato :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValueMalletLift :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValueMalletTable :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValueMartellato :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValueMartellatoLift :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValueMutedMartellato :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValuePluckLift :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HandbellValueSwing :: HandbellValue
+ Fadno.MusicXml.MusicXml31: HarmonClosed :: HarmonClosedValue -> Maybe HarmonClosedLocation -> HarmonClosed
+ Fadno.MusicXml.MusicXml31: HarmonClosedLocationBottom :: HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: HarmonClosedLocationLeft :: HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: HarmonClosedLocationRight :: HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: HarmonClosedLocationTop :: HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: HarmonClosedValueHalf :: HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: HarmonClosedValueNo :: HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: HarmonClosedValueYes :: HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: HarmonMute :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> HarmonClosed -> HarmonMute
+ Fadno.MusicXml.MusicXml31: Harmonic :: Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe ChxHarmonic -> Maybe ChxHarmonic1 -> Harmonic
+ Fadno.MusicXml.MusicXml31: HarmonicArtificial :: Empty -> ChxHarmonic
+ Fadno.MusicXml.MusicXml31: HarmonicBasePitch :: Empty -> ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: HarmonicNatural :: Empty -> ChxHarmonic
+ Fadno.MusicXml.MusicXml31: HarmonicSoundingPitch :: Empty -> ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: HarmonicTouchingPitch :: Empty -> ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: Harmony :: Maybe HarmonyType -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe ID -> [HarmonyChord] -> Maybe Frame -> Maybe Offset -> Editorial -> Maybe Staff -> Harmony
+ Fadno.MusicXml.MusicXml31: HarmonyChord :: ChxHarmonyChord -> Kind -> Maybe Inversion -> Maybe Bass -> [Degree] -> HarmonyChord
+ Fadno.MusicXml.MusicXml31: HarmonyChordFunction :: StyleText -> ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: HarmonyChordRoot :: Root -> ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: HarmonyTypeAlternate :: HarmonyType
+ Fadno.MusicXml.MusicXml31: HarmonyTypeExplicit :: HarmonyType
+ Fadno.MusicXml.MusicXml31: HarmonyTypeImplied :: HarmonyType
+ Fadno.MusicXml.MusicXml31: HarpPedals :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe ID -> [PedalTuning] -> HarpPedals
+ Fadno.MusicXml.MusicXml31: HeelToe :: HeelToe -> Maybe YesNo -> HeelToe
+ Fadno.MusicXml.MusicXml31: Hole :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe String -> HoleClosed -> Maybe String -> Hole
+ Fadno.MusicXml.MusicXml31: HoleClosed :: HoleClosedValue -> Maybe HoleClosedLocation -> HoleClosed
+ Fadno.MusicXml.MusicXml31: HoleClosedLocationBottom :: HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: HoleClosedLocationLeft :: HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: HoleClosedLocationRight :: HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: HoleClosedLocationTop :: HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: HoleClosedValueHalf :: HoleClosedValue
+ Fadno.MusicXml.MusicXml31: HoleClosedValueNo :: HoleClosedValue
+ Fadno.MusicXml.MusicXml31: HoleClosedValueYes :: HoleClosedValue
+ Fadno.MusicXml.MusicXml31: HorizontalTurn :: Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe StartNote -> Maybe TrillStep -> Maybe TwoNoteTurn -> Maybe YesNo -> Maybe TrillBeats -> Maybe Percent -> Maybe Percent -> HorizontalTurn
+ Fadno.MusicXml.MusicXml31: ID :: NCName -> ID
+ Fadno.MusicXml.MusicXml31: IDREF :: NCName -> IDREF
+ Fadno.MusicXml.MusicXml31: Identification :: [TypedText] -> [TypedText] -> Maybe Encoding -> Maybe String -> [TypedText] -> Maybe Miscellaneous -> Identification
+ Fadno.MusicXml.MusicXml31: Image :: String -> Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe LeftCenterRight -> Maybe ValignImage -> Maybe ID -> Image
+ Fadno.MusicXml.MusicXml31: Instrument :: IDREF -> Instrument
+ Fadno.MusicXml.MusicXml31: Interchangeable :: Maybe TimeSymbol -> Maybe TimeSeparator -> Maybe TimeRelation -> [TimeSignature] -> Interchangeable
+ Fadno.MusicXml.MusicXml31: Inversion :: NonNegativeInteger -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Inversion
+ Fadno.MusicXml.MusicXml31: Key :: Maybe StaffNumber -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe ID -> ChxKey -> [KeyOctave] -> Key
+ Fadno.MusicXml.MusicXml31: KeyAccidental :: AccidentalValue -> Maybe SmuflAccidentalGlyphName -> KeyAccidental
+ Fadno.MusicXml.MusicXml31: KeyNonTraditionalKey :: [NonTraditionalKey] -> ChxKey
+ Fadno.MusicXml.MusicXml31: KeyOctave :: Octave -> PositiveInteger -> Maybe YesNo -> KeyOctave
+ Fadno.MusicXml.MusicXml31: KeyTraditionalKey :: TraditionalKey -> ChxKey
+ Fadno.MusicXml.MusicXml31: Kind :: KindValue -> Maybe YesNo -> Maybe Token -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Kind
+ Fadno.MusicXml.MusicXml31: KindValueAugmented :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueAugmentedSeventh :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueDiminished :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueDiminishedSeventh :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueDominant :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueDominant11th :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueDominant13th :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueDominantNinth :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueFrench :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueGerman :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueHalfDiminished :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueItalian :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMajor :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMajor11th :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMajor13th :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMajorMinor :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMajorNinth :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMajorSeventh :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMajorSixth :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMinor :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMinor11th :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMinor13th :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMinorNinth :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMinorSeventh :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueMinorSixth :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueNeapolitan :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueNone :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueOther :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValuePedal :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValuePower :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueSuspendedFourth :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueSuspendedSecond :: KindValue
+ Fadno.MusicXml.MusicXml31: KindValueTristan :: KindValue
+ Fadno.MusicXml.MusicXml31: LangLang :: SumLang -> Lang
+ Fadno.MusicXml.MusicXml31: LangLanguage :: Language -> Lang
+ Fadno.MusicXml.MusicXml31: Language :: Token -> Language
+ Fadno.MusicXml.MusicXml31: Layout :: Maybe PageLayout -> Maybe SystemLayout -> [StaffLayout] -> Layout
+ Fadno.MusicXml.MusicXml31: LeftCenterRightCenter :: LeftCenterRight
+ Fadno.MusicXml.MusicXml31: LeftCenterRightLeft :: LeftCenterRight
+ Fadno.MusicXml.MusicXml31: LeftCenterRightRight :: LeftCenterRight
+ Fadno.MusicXml.MusicXml31: LeftRightLeft :: LeftRight
+ Fadno.MusicXml.MusicXml31: LeftRightMargins :: Tenths -> Tenths -> LeftRightMargins
+ Fadno.MusicXml.MusicXml31: LeftRightRight :: LeftRight
+ Fadno.MusicXml.MusicXml31: Level :: String -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe SymbolSize -> Level
+ Fadno.MusicXml.MusicXml31: LineEndArrow :: LineEnd
+ Fadno.MusicXml.MusicXml31: LineEndBoth :: LineEnd
+ Fadno.MusicXml.MusicXml31: LineEndDown :: LineEnd
+ Fadno.MusicXml.MusicXml31: LineEndNone :: LineEnd
+ Fadno.MusicXml.MusicXml31: LineEndUp :: LineEnd
+ Fadno.MusicXml.MusicXml31: LineLengthLong :: LineLength
+ Fadno.MusicXml.MusicXml31: LineLengthMedium :: LineLength
+ Fadno.MusicXml.MusicXml31: LineLengthShort :: LineLength
+ Fadno.MusicXml.MusicXml31: LineShapeCurved :: LineShape
+ Fadno.MusicXml.MusicXml31: LineShapeStraight :: LineShape
+ Fadno.MusicXml.MusicXml31: LineTypeDashed :: LineType
+ Fadno.MusicXml.MusicXml31: LineTypeDotted :: LineType
+ Fadno.MusicXml.MusicXml31: LineTypeSolid :: LineType
+ Fadno.MusicXml.MusicXml31: LineTypeWavy :: LineType
+ Fadno.MusicXml.MusicXml31: LineWidth :: Tenths -> LineWidthType -> LineWidth
+ Fadno.MusicXml.MusicXml31: LineWidthType :: Token -> LineWidthType
+ Fadno.MusicXml.MusicXml31: Link :: Maybe Token -> String -> Maybe Type -> Maybe Token -> Maybe Token -> Maybe SmpShow -> Maybe Actuate -> Maybe NMTOKEN -> Maybe PositiveInteger -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Link
+ Fadno.MusicXml.MusicXml31: Lyric :: Maybe NMTOKEN -> Maybe Token -> Maybe TimeOnly -> Maybe LeftCenterRight -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe Color -> Maybe YesNo -> Maybe ID -> ChxLyric -> Maybe Empty -> Maybe Empty -> Editorial -> Lyric
+ Fadno.MusicXml.MusicXml31: LyricExtend :: Extend -> ChxLyric
+ Fadno.MusicXml.MusicXml31: LyricFont :: Maybe NMTOKEN -> Maybe Token -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> LyricFont
+ Fadno.MusicXml.MusicXml31: LyricHumming :: Empty -> ChxLyric
+ Fadno.MusicXml.MusicXml31: LyricLanguage :: Maybe NMTOKEN -> Maybe Token -> Lang -> LyricLanguage
+ Fadno.MusicXml.MusicXml31: LyricLaughing :: Empty -> ChxLyric
+ Fadno.MusicXml.MusicXml31: LyricSyllabic :: Maybe Syllabic -> TextElementData -> [SeqLyric] -> Maybe Extend -> ChxLyric
+ Fadno.MusicXml.MusicXml31: MarginTypeBoth :: MarginType
+ Fadno.MusicXml.MusicXml31: MarginTypeEven :: MarginType
+ Fadno.MusicXml.MusicXml31: MarginTypeOdd :: MarginType
+ Fadno.MusicXml.MusicXml31: Measure :: Token -> Maybe MeasureText -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> Maybe ID -> MusicData -> Measure
+ Fadno.MusicXml.MusicXml31: MeasureLayout :: Maybe Tenths -> MeasureLayout
+ Fadno.MusicXml.MusicXml31: MeasureNumbering :: MeasureNumberingValue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> MeasureNumbering
+ Fadno.MusicXml.MusicXml31: MeasureNumberingValueMeasure :: MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: MeasureNumberingValueNone :: MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: MeasureNumberingValueSystem :: MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: MeasureRepeat :: PositiveIntegerOrEmpty -> StartStop -> Maybe PositiveInteger -> MeasureRepeat
+ Fadno.MusicXml.MusicXml31: MeasureStyle :: Maybe StaffNumber -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe ID -> ChxMeasureStyle -> MeasureStyle
+ Fadno.MusicXml.MusicXml31: MeasureStyleBeatRepeat :: BeatRepeat -> ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: MeasureStyleMeasureRepeat :: MeasureRepeat -> ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: MeasureStyleMultipleRest :: MultipleRest -> ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: MeasureStyleSlash :: CmpSlash -> ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: MeasureText :: Token -> MeasureText
+ Fadno.MusicXml.MusicXml31: MembraneBassDrum :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneBassDrumOnSide :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneBongos :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneChineseTomtom :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneCongaDrum :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneCuica :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneGobletDrum :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneIndoAmericanTomtom :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneJapaneseTomtom :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneMilitaryDrum :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneSnareDrum :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneSnareDrumSnaresOff :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneTabla :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneTambourine :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneTenorDrum :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneTimbales :: Membrane
+ Fadno.MusicXml.MusicXml31: MembraneTomtom :: Membrane
+ Fadno.MusicXml.MusicXml31: MetalAgogo :: Metal
+ Fadno.MusicXml.MusicXml31: MetalAlmglocken :: Metal
+ Fadno.MusicXml.MusicXml31: MetalBell :: Metal
+ Fadno.MusicXml.MusicXml31: MetalBellPlate :: Metal
+ Fadno.MusicXml.MusicXml31: MetalBellTree :: Metal
+ Fadno.MusicXml.MusicXml31: MetalBrakeDrum :: Metal
+ Fadno.MusicXml.MusicXml31: MetalCencerro :: Metal
+ Fadno.MusicXml.MusicXml31: MetalChainRattle :: Metal
+ Fadno.MusicXml.MusicXml31: MetalChineseCymbal :: Metal
+ Fadno.MusicXml.MusicXml31: MetalCowbell :: Metal
+ Fadno.MusicXml.MusicXml31: MetalCrashCymbals :: Metal
+ Fadno.MusicXml.MusicXml31: MetalCrotale :: Metal
+ Fadno.MusicXml.MusicXml31: MetalCymbalTongs :: Metal
+ Fadno.MusicXml.MusicXml31: MetalDomedGong :: Metal
+ Fadno.MusicXml.MusicXml31: MetalFingerCymbals :: Metal
+ Fadno.MusicXml.MusicXml31: MetalFlexatone :: Metal
+ Fadno.MusicXml.MusicXml31: MetalGong :: Metal
+ Fadno.MusicXml.MusicXml31: MetalHandbell :: Metal
+ Fadno.MusicXml.MusicXml31: MetalHiHat :: Metal
+ Fadno.MusicXml.MusicXml31: MetalHighHatCymbals :: Metal
+ Fadno.MusicXml.MusicXml31: MetalJawHarp :: Metal
+ Fadno.MusicXml.MusicXml31: MetalJingleBells :: Metal
+ Fadno.MusicXml.MusicXml31: MetalMusicalSaw :: Metal
+ Fadno.MusicXml.MusicXml31: MetalShellBells :: Metal
+ Fadno.MusicXml.MusicXml31: MetalSistrum :: Metal
+ Fadno.MusicXml.MusicXml31: MetalSizzleCymbal :: Metal
+ Fadno.MusicXml.MusicXml31: MetalSleighBells :: Metal
+ Fadno.MusicXml.MusicXml31: MetalSuspendedCymbal :: Metal
+ Fadno.MusicXml.MusicXml31: MetalTamTam :: Metal
+ Fadno.MusicXml.MusicXml31: MetalTamTamWithBeater :: Metal
+ Fadno.MusicXml.MusicXml31: MetalTriangle :: Metal
+ Fadno.MusicXml.MusicXml31: MetalVietnameseHat :: Metal
+ Fadno.MusicXml.MusicXml31: Metronome :: Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe LeftCenterRight -> Maybe ID -> ChxMetronome -> Metronome
+ Fadno.MusicXml.MusicXml31: MetronomeBeam :: BeamValue -> Maybe BeamLevel -> MetronomeBeam
+ Fadno.MusicXml.MusicXml31: MetronomeBeatUnit :: BeatUnit -> [BeatUnitTied] -> ChxMetronome0
+ Fadno.MusicXml.MusicXml31: MetronomeMetronomeArrows :: Maybe Empty -> [MetronomeNote] -> Maybe SeqMetronome -> ChxMetronome
+ Fadno.MusicXml.MusicXml31: MetronomeNote :: NoteTypeValue -> [Empty] -> [MetronomeBeam] -> Maybe MetronomeTied -> Maybe MetronomeTuplet -> MetronomeNote
+ Fadno.MusicXml.MusicXml31: MetronomePerMinute :: PerMinute -> ChxMetronome0
+ Fadno.MusicXml.MusicXml31: MetronomeTied :: StartStop -> MetronomeTied
+ Fadno.MusicXml.MusicXml31: MetronomeTuplet :: MetronomeTuplet -> StartStop -> Maybe YesNo -> Maybe ShowTuplet -> MetronomeTuplet
+ Fadno.MusicXml.MusicXml31: Midi128 :: PositiveInteger -> Midi128
+ Fadno.MusicXml.MusicXml31: Midi16 :: PositiveInteger -> Midi16
+ Fadno.MusicXml.MusicXml31: Midi16384 :: PositiveInteger -> Midi16384
+ Fadno.MusicXml.MusicXml31: MidiDevice :: String -> Maybe Midi16 -> Maybe IDREF -> MidiDevice
+ Fadno.MusicXml.MusicXml31: MidiInstrument :: IDREF -> Maybe Midi16 -> Maybe String -> Maybe Midi16384 -> Maybe Midi128 -> Maybe Midi128 -> Maybe Percent -> Maybe RotationDegrees -> Maybe RotationDegrees -> MidiInstrument
+ Fadno.MusicXml.MusicXml31: Millimeters :: Decimal -> Millimeters
+ Fadno.MusicXml.MusicXml31: Miscellaneous :: [MiscellaneousField] -> Miscellaneous
+ Fadno.MusicXml.MusicXml31: MiscellaneousField :: String -> Token -> MiscellaneousField
+ Fadno.MusicXml.MusicXml31: Mode :: String -> Mode
+ Fadno.MusicXml.MusicXml31: Mordent :: Mordent -> Maybe YesNo -> Maybe AboveBelow -> Maybe AboveBelow -> Mordent
+ Fadno.MusicXml.MusicXml31: MultipleRest :: PositiveIntegerOrEmpty -> Maybe YesNo -> MultipleRest
+ Fadno.MusicXml.MusicXml31: MusicData :: [ChxMusicData] -> MusicData
+ Fadno.MusicXml.MusicXml31: MusicDataAttributes :: Attributes -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataBackup :: Backup -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataBarline :: Barline -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataBookmark :: Bookmark -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataDirection :: Direction -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataFiguredBass :: FiguredBass -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataForward :: Forward -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataGrouping :: Grouping -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataHarmony :: Harmony -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataLink :: Link -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataNote :: Note -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataPrint :: Print -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MusicDataSound :: Sound -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: MuteBucket :: Mute
+ Fadno.MusicXml.MusicXml31: MuteCup :: Mute
+ Fadno.MusicXml.MusicXml31: MuteEcho :: Mute
+ Fadno.MusicXml.MusicXml31: MuteHarmonNoStem :: Mute
+ Fadno.MusicXml.MusicXml31: MuteHarmonStem :: Mute
+ Fadno.MusicXml.MusicXml31: MuteHat :: Mute
+ Fadno.MusicXml.MusicXml31: MuteOff :: Mute
+ Fadno.MusicXml.MusicXml31: MuteOn :: Mute
+ Fadno.MusicXml.MusicXml31: MutePalm :: Mute
+ Fadno.MusicXml.MusicXml31: MutePlunger :: Mute
+ Fadno.MusicXml.MusicXml31: MutePractice :: Mute
+ Fadno.MusicXml.MusicXml31: MuteSolotone :: Mute
+ Fadno.MusicXml.MusicXml31: MuteStopHand :: Mute
+ Fadno.MusicXml.MusicXml31: MuteStopMute :: Mute
+ Fadno.MusicXml.MusicXml31: MuteStraight :: Mute
+ Fadno.MusicXml.MusicXml31: NCName :: Name -> NCName
+ Fadno.MusicXml.MusicXml31: NMTOKEN :: Token -> NMTOKEN
+ Fadno.MusicXml.MusicXml31: Name :: Token -> Name
+ Fadno.MusicXml.MusicXml31: NameDisplay :: Maybe YesNo -> [ChxNameDisplay] -> NameDisplay
+ Fadno.MusicXml.MusicXml31: NameDisplayAccidentalText :: AccidentalText -> ChxNameDisplay
+ Fadno.MusicXml.MusicXml31: NameDisplayDisplayText :: FormattedText -> ChxNameDisplay
+ Fadno.MusicXml.MusicXml31: NonArpeggiate :: TopBottom -> Maybe NumberLevel -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe Color -> Maybe ID -> NonArpeggiate
+ Fadno.MusicXml.MusicXml31: NonNegativeDecimal :: Decimal -> NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: NonNegativeInteger :: Int -> NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: NonTraditionalKey :: Step -> Semitones -> Maybe KeyAccidental -> NonTraditionalKey
+ Fadno.MusicXml.MusicXml31: NormalizedString :: String -> NormalizedString
+ Fadno.MusicXml.MusicXml31: Notations :: Maybe YesNo -> Maybe ID -> Editorial -> [ChxNotations] -> Notations
+ Fadno.MusicXml.MusicXml31: NotationsAccidentalMark :: AccidentalMark -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsArpeggiate :: Arpeggiate -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsArticulations :: Articulations -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsDynamics :: Dynamics -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsFermata :: Fermata -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsGlissando :: Glissando -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsNonArpeggiate :: NonArpeggiate -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsOrnaments :: Ornaments -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsOtherNotation :: OtherNotation -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsSlide :: Slide -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsSlur :: Slur -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsTechnical :: Technical -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsTied :: Tied -> ChxNotations
+ Fadno.MusicXml.MusicXml31: NotationsTuplet :: Tuplet -> ChxNotations
+ Fadno.MusicXml.MusicXml31: Note :: Maybe YesNo -> Maybe NonNegativeDecimal -> Maybe NonNegativeDecimal -> Maybe Divisions -> Maybe Divisions -> Maybe TimeOnly -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe ID -> ChxNote -> Maybe Instrument -> EditorialVoice -> Maybe NoteType -> [EmptyPlacement] -> Maybe Accidental -> Maybe TimeModification -> Maybe Stem -> Maybe Notehead -> Maybe NoteheadText -> Maybe Staff -> [Beam] -> [Notations] -> [Lyric] -> Maybe Play -> Note
+ Fadno.MusicXml.MusicXml31: NoteCue :: Empty -> GrpFullNote -> ChxNote0
+ Fadno.MusicXml.MusicXml31: NoteFullNote :: GrpFullNote -> [Tie] -> ChxNote0
+ Fadno.MusicXml.MusicXml31: NoteGrace :: Grace -> ChxNote0 -> ChxNote
+ Fadno.MusicXml.MusicXml31: NoteSize :: NonNegativeDecimal -> NoteSizeType -> NoteSize
+ Fadno.MusicXml.MusicXml31: NoteSizeTypeCue :: NoteSizeType
+ Fadno.MusicXml.MusicXml31: NoteSizeTypeGrace :: NoteSizeType
+ Fadno.MusicXml.MusicXml31: NoteSizeTypeGraceCue :: NoteSizeType
+ Fadno.MusicXml.MusicXml31: NoteSizeTypeLarge :: NoteSizeType
+ Fadno.MusicXml.MusicXml31: NoteType :: NoteTypeValue -> Maybe SymbolSize -> NoteType
+ Fadno.MusicXml.MusicXml31: NoteTypeValue1024th :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValue128th :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValue16th :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValue256th :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValue32nd :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValue512th :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValue64th :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValueBreve :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValueEighth :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValueHalf :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValueLong :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValueMaxima :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValueQuarter :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: NoteTypeValueWhole :: NoteTypeValue
+ Fadno.MusicXml.MusicXml31: Notehead :: NoteheadValue -> Maybe YesNo -> Maybe YesNo -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe SmuflGlyphName -> Notehead
+ Fadno.MusicXml.MusicXml31: NoteheadText :: [ChxNoteheadText] -> NoteheadText
+ Fadno.MusicXml.MusicXml31: NoteheadTextAccidentalText :: AccidentalText -> ChxNoteheadText
+ Fadno.MusicXml.MusicXml31: NoteheadTextDisplayText :: FormattedText -> ChxNoteheadText
+ Fadno.MusicXml.MusicXml31: NoteheadValueArrowDown :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueArrowUp :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueBackSlashed :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueCircleDot :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueCircleX :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueCircled :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueCluster :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueCross :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueDiamond :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueDo :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueFa :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueFaUp :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueInvertedTriangle :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueLa :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueLeftTriangle :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueMi :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueNone :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueNormal :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueOther :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueRe :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueRectangle :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueSlash :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueSlashed :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueSo :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueSquare :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueTi :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueTriangle :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NoteheadValueX :: NoteheadValue
+ Fadno.MusicXml.MusicXml31: NumberLevel :: PositiveInteger -> NumberLevel
+ Fadno.MusicXml.MusicXml31: NumberOfLines :: NonNegativeInteger -> NumberOfLines
+ Fadno.MusicXml.MusicXml31: NumberOrNormalDecimal :: Decimal -> NumberOrNormal
+ Fadno.MusicXml.MusicXml31: NumberOrNormalNormal :: SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: NumberOrNormalNumberOrNormal :: SumNumberOrNormal -> NumberOrNormal
+ Fadno.MusicXml.MusicXml31: Octave :: Int -> Octave
+ Fadno.MusicXml.MusicXml31: OctaveShift :: UpDownStopContinue -> Maybe NumberLevel -> Maybe PositiveInteger -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe ID -> OctaveShift
+ Fadno.MusicXml.MusicXml31: Offset :: Divisions -> Maybe YesNo -> Offset
+ Fadno.MusicXml.MusicXml31: OnOffOff :: OnOff
+ Fadno.MusicXml.MusicXml31: OnOffOn :: OnOff
+ Fadno.MusicXml.MusicXml31: Opus :: String -> Maybe Type -> Maybe Token -> Maybe Token -> Maybe SmpShow -> Maybe Actuate -> Opus
+ Fadno.MusicXml.MusicXml31: Ornaments :: Maybe ID -> [SeqOrnaments] -> Ornaments
+ Fadno.MusicXml.MusicXml31: OrnamentsDelayedInvertedTurn :: HorizontalTurn -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsDelayedTurn :: HorizontalTurn -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsHaydn :: EmptyTrillSound -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsInvertedMordent :: Mordent -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsInvertedTurn :: HorizontalTurn -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsInvertedVerticalTurn :: EmptyTrillSound -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsMordent :: Mordent -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsOtherOrnament :: OtherPlacementText -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsSchleifer :: EmptyPlacement -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsShake :: EmptyTrillSound -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsTremolo :: Tremolo -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsTrillMark :: EmptyTrillSound -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsTurn :: HorizontalTurn -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsVerticalTurn :: EmptyTrillSound -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OrnamentsWavyLine :: WavyLine -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: OtherAppearance :: String -> Token -> OtherAppearance
+ Fadno.MusicXml.MusicXml31: OtherDirection :: String -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe SmuflGlyphName -> Maybe ID -> OtherDirection
+ Fadno.MusicXml.MusicXml31: OtherNotation :: String -> StartStopSingle -> Maybe NumberLevel -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe SmuflGlyphName -> Maybe ID -> OtherNotation
+ Fadno.MusicXml.MusicXml31: OtherPlacementText :: String -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe SmuflGlyphName -> OtherPlacementText
+ Fadno.MusicXml.MusicXml31: OtherPlay :: String -> Token -> OtherPlay
+ Fadno.MusicXml.MusicXml31: OtherText :: String -> Maybe SmuflGlyphName -> OtherText
+ Fadno.MusicXml.MusicXml31: OverUnderOver :: OverUnder
+ Fadno.MusicXml.MusicXml31: OverUnderUnder :: OverUnder
+ Fadno.MusicXml.MusicXml31: PageLayout :: Maybe SeqPageLayout -> [PageMargins] -> PageLayout
+ Fadno.MusicXml.MusicXml31: PageMargins :: Maybe MarginType -> AllMargins -> PageMargins
+ Fadno.MusicXml.MusicXml31: Part :: IDREF -> MusicData -> Part
+ Fadno.MusicXml.MusicXml31: PartGroup :: StartStop -> Maybe Token -> Maybe GroupName -> Maybe NameDisplay -> Maybe GroupName -> Maybe NameDisplay -> Maybe GroupSymbol -> Maybe GroupBarline -> Maybe Empty -> Editorial -> PartGroup
+ Fadno.MusicXml.MusicXml31: PartList :: [GrpPartGroup] -> ScorePart -> [ChxPartList] -> PartList
+ Fadno.MusicXml.MusicXml31: PartListPartGroup :: GrpPartGroup -> ChxPartList
+ Fadno.MusicXml.MusicXml31: PartListScorePart :: ScorePart -> ChxPartList
+ Fadno.MusicXml.MusicXml31: PartName :: String -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe LeftCenterRight -> PartName
+ Fadno.MusicXml.MusicXml31: PartSymbol :: GroupSymbolValue -> Maybe StaffNumber -> Maybe StaffNumber -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> PartSymbol
+ Fadno.MusicXml.MusicXml31: Pedal :: PedalType -> Maybe NumberLevel -> Maybe YesNo -> Maybe YesNo -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe ID -> Pedal
+ Fadno.MusicXml.MusicXml31: PedalTuning :: Step -> Semitones -> PedalTuning
+ Fadno.MusicXml.MusicXml31: PedalTypeChange :: PedalType
+ Fadno.MusicXml.MusicXml31: PedalTypeContinue :: PedalType
+ Fadno.MusicXml.MusicXml31: PedalTypeSostenuto :: PedalType
+ Fadno.MusicXml.MusicXml31: PedalTypeStart :: PedalType
+ Fadno.MusicXml.MusicXml31: PedalTypeStop :: PedalType
+ Fadno.MusicXml.MusicXml31: PerMinute :: String -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> PerMinute
+ Fadno.MusicXml.MusicXml31: Percent :: Decimal -> Percent
+ Fadno.MusicXml.MusicXml31: Percussion :: Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe EnclosureShape -> Maybe ID -> ChxPercussion -> Percussion
+ Fadno.MusicXml.MusicXml31: PercussionBeater :: Beater -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: PercussionEffect :: Effect -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: PercussionGlass :: Glass -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: PercussionMembrane :: Membrane -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: PercussionMetal :: Metal -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: PercussionOtherPercussion :: OtherText -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: PercussionPitched :: Pitched -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: PercussionStick :: Stick -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: PercussionStickLocation :: StickLocation -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: PercussionTimpani :: Empty -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: PercussionWood :: Wood -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: Pitch :: Step -> Maybe Semitones -> Octave -> Pitch
+ Fadno.MusicXml.MusicXml31: Pitched :: PitchedValue -> Maybe SmuflPictogramGlyphName -> Pitched
+ Fadno.MusicXml.MusicXml31: PitchedValueCelesta :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PitchedValueChimes :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PitchedValueGlockenspiel :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PitchedValueLithophone :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PitchedValueMallet :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PitchedValueMarimba :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PitchedValueSteelDrums :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PitchedValueTubaphone :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PitchedValueTubularChimes :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PitchedValueVibraphone :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PitchedValueXylophone :: PitchedValue
+ Fadno.MusicXml.MusicXml31: PlacementText :: String -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> PlacementText
+ Fadno.MusicXml.MusicXml31: Play :: Maybe IDREF -> [ChxPlay] -> Play
+ Fadno.MusicXml.MusicXml31: PlayIpa :: String -> ChxPlay
+ Fadno.MusicXml.MusicXml31: PlayMute :: Mute -> ChxPlay
+ Fadno.MusicXml.MusicXml31: PlayOtherPlay :: OtherPlay -> ChxPlay
+ Fadno.MusicXml.MusicXml31: PlaySemiPitched :: SemiPitched -> ChxPlay
+ Fadno.MusicXml.MusicXml31: PositiveDivisions :: Divisions -> PositiveDivisions
+ Fadno.MusicXml.MusicXml31: PositiveInteger :: NonNegativeInteger -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: PositiveIntegerOrEmptyPositiveInteger :: PositiveInteger -> PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: PositiveIntegerOrEmptyPositiveIntegerOrEmpty :: SumPositiveIntegerOrEmpty -> PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: PrincipalVoice :: String -> StartStop -> PrincipalVoiceSymbol -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe ID -> PrincipalVoice
+ Fadno.MusicXml.MusicXml31: PrincipalVoiceSymbolHauptstimme :: PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: PrincipalVoiceSymbolNebenstimme :: PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: PrincipalVoiceSymbolNone :: PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: PrincipalVoiceSymbolPlain :: PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: Print :: Maybe Tenths -> Maybe YesNo -> Maybe YesNo -> Maybe PositiveInteger -> Maybe Token -> Maybe ID -> Layout -> Maybe MeasureLayout -> Maybe MeasureNumbering -> Maybe NameDisplay -> Maybe NameDisplay -> Print
+ Fadno.MusicXml.MusicXml31: Repeat :: BackwardForward -> Maybe NonNegativeInteger -> Maybe Winged -> Repeat
+ Fadno.MusicXml.MusicXml31: Rest :: Maybe YesNo -> Maybe DisplayStepOctave -> Rest
+ Fadno.MusicXml.MusicXml31: RightLeftMiddleLeft :: RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: RightLeftMiddleMiddle :: RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: RightLeftMiddleRight :: RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: Root :: RootStep -> Maybe RootAlter -> Root
+ Fadno.MusicXml.MusicXml31: RootAlter :: Semitones -> Maybe LeftRight -> Maybe YesNo -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> RootAlter
+ Fadno.MusicXml.MusicXml31: RootStep :: Step -> Maybe Token -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> RootStep
+ Fadno.MusicXml.MusicXml31: RotationDegrees :: Decimal -> RotationDegrees
+ Fadno.MusicXml.MusicXml31: Scaling :: Millimeters -> Tenths -> Scaling
+ Fadno.MusicXml.MusicXml31: Scordatura :: Maybe ID -> [Accord] -> Scordatura
+ Fadno.MusicXml.MusicXml31: ScoreHeader :: Maybe Work -> Maybe String -> Maybe String -> Maybe Identification -> Maybe Defaults -> [Credit] -> PartList -> ScoreHeader
+ Fadno.MusicXml.MusicXml31: ScoreInstrument :: ID -> String -> Maybe String -> Maybe String -> Maybe ChxScoreInstrument -> Maybe VirtualInstrument -> ScoreInstrument
+ Fadno.MusicXml.MusicXml31: ScoreInstrumentEnsemble :: PositiveIntegerOrEmpty -> ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: ScoreInstrumentSolo :: Empty -> ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: ScorePart :: CmpScorePart -> ScorePart
+ Fadno.MusicXml.MusicXml31: ScorePartwise :: Maybe Token -> ScoreHeader -> [CmpPart] -> ScorePartwise
+ Fadno.MusicXml.MusicXml31: ScoreTimewise :: Maybe Token -> ScoreHeader -> [CmpMeasure] -> ScoreTimewise
+ Fadno.MusicXml.MusicXml31: Segno :: Maybe SmuflSegnoGlyphName -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe ID -> Segno
+ Fadno.MusicXml.MusicXml31: SemiPitchedHigh :: SemiPitched
+ Fadno.MusicXml.MusicXml31: SemiPitchedLow :: SemiPitched
+ Fadno.MusicXml.MusicXml31: SemiPitchedMedium :: SemiPitched
+ Fadno.MusicXml.MusicXml31: SemiPitchedMediumHigh :: SemiPitched
+ Fadno.MusicXml.MusicXml31: SemiPitchedMediumLow :: SemiPitched
+ Fadno.MusicXml.MusicXml31: SemiPitchedVeryLow :: SemiPitched
+ Fadno.MusicXml.MusicXml31: Semitones :: Decimal -> Semitones
+ Fadno.MusicXml.MusicXml31: SeqCredit :: [Link] -> [Bookmark] -> ChxCredit1 -> SeqCredit
+ Fadno.MusicXml.MusicXml31: SeqLyric :: Maybe SeqLyric0 -> TextElementData -> SeqLyric
+ Fadno.MusicXml.MusicXml31: SeqLyric0 :: Elision -> Maybe Syllabic -> SeqLyric0
+ Fadno.MusicXml.MusicXml31: SeqMetronome :: String -> [MetronomeNote] -> SeqMetronome
+ Fadno.MusicXml.MusicXml31: SeqMetronomeTuplet :: NoteTypeValue -> [Empty] -> SeqMetronomeTuplet
+ Fadno.MusicXml.MusicXml31: SeqOrnaments :: ChxOrnaments -> [AccidentalMark] -> SeqOrnaments
+ Fadno.MusicXml.MusicXml31: SeqPageLayout :: Tenths -> Tenths -> SeqPageLayout
+ Fadno.MusicXml.MusicXml31: SeqScorePart :: Maybe MidiDevice -> Maybe MidiInstrument -> SeqScorePart
+ Fadno.MusicXml.MusicXml31: SeqSlash :: NoteTypeValue -> [Empty] -> SeqSlash
+ Fadno.MusicXml.MusicXml31: SeqSound :: Maybe MidiDevice -> Maybe MidiInstrument -> Maybe Play -> SeqSound
+ Fadno.MusicXml.MusicXml31: SeqTimeModification :: NoteTypeValue -> [Empty] -> SeqTimeModification
+ Fadno.MusicXml.MusicXml31: ShowEmbed :: SmpShow
+ Fadno.MusicXml.MusicXml31: ShowFretsLetters :: ShowFrets
+ Fadno.MusicXml.MusicXml31: ShowFretsNumbers :: ShowFrets
+ Fadno.MusicXml.MusicXml31: ShowNew :: SmpShow
+ Fadno.MusicXml.MusicXml31: ShowNone :: SmpShow
+ Fadno.MusicXml.MusicXml31: ShowOther :: SmpShow
+ Fadno.MusicXml.MusicXml31: ShowReplace :: SmpShow
+ Fadno.MusicXml.MusicXml31: ShowTupletActual :: ShowTuplet
+ Fadno.MusicXml.MusicXml31: ShowTupletBoth :: ShowTuplet
+ Fadno.MusicXml.MusicXml31: ShowTupletNone :: ShowTuplet
+ Fadno.MusicXml.MusicXml31: Slash :: Maybe SeqSlash -> [String] -> Slash
+ Fadno.MusicXml.MusicXml31: Slide :: String -> StartStop -> Maybe NumberLevel -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe YesNo -> Maybe TrillBeats -> Maybe Percent -> Maybe Percent -> Maybe ID -> Slide
+ Fadno.MusicXml.MusicXml31: Slur :: StartStopContinue -> Maybe NumberLevel -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe OverUnder -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Divisions -> Maybe Divisions -> Maybe Color -> Maybe ID -> Slur
+ Fadno.MusicXml.MusicXml31: SmuflAccidentalGlyphName :: SmuflGlyphName -> SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: SmuflCodaGlyphName :: SmuflGlyphName -> SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: SmuflGlyphName :: NMTOKEN -> SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: SmuflLyricsGlyphName :: SmuflGlyphName -> SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: SmuflPictogramGlyphName :: SmuflGlyphName -> SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: SmuflSegnoGlyphName :: SmuflGlyphName -> SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: Sound :: Maybe NonNegativeDecimal -> Maybe NonNegativeDecimal -> Maybe YesNo -> Maybe Token -> Maybe Token -> Maybe Token -> Maybe Token -> Maybe Divisions -> Maybe YesNo -> Maybe Token -> Maybe TimeOnly -> Maybe YesNo -> Maybe RotationDegrees -> Maybe RotationDegrees -> Maybe YesNoNumber -> Maybe YesNoNumber -> Maybe YesNoNumber -> Maybe ID -> [SeqSound] -> Maybe Offset -> Sound
+ Fadno.MusicXml.MusicXml31: SpaceDefault :: Space
+ Fadno.MusicXml.MusicXml31: SpacePreserve :: Space
+ Fadno.MusicXml.MusicXml31: Staff :: PositiveInteger -> Staff
+ Fadno.MusicXml.MusicXml31: StaffDetails :: Maybe StaffNumber -> Maybe ShowFrets -> Maybe YesNo -> Maybe YesNo -> Maybe StaffType -> Maybe NonNegativeInteger -> [StaffTuning] -> Maybe NonNegativeInteger -> Maybe NonNegativeDecimal -> StaffDetails
+ Fadno.MusicXml.MusicXml31: StaffDivide :: StaffDivideSymbol -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe ID -> StaffDivide
+ Fadno.MusicXml.MusicXml31: StaffDivideSymbolDown :: StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: StaffDivideSymbolUp :: StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: StaffDivideSymbolUpDown :: StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: StaffLayout :: Maybe StaffNumber -> Maybe Tenths -> StaffLayout
+ Fadno.MusicXml.MusicXml31: StaffLine :: Int -> StaffLine
+ Fadno.MusicXml.MusicXml31: StaffNumber :: PositiveInteger -> StaffNumber
+ Fadno.MusicXml.MusicXml31: StaffTuning :: Maybe StaffLine -> Tuning -> StaffTuning
+ Fadno.MusicXml.MusicXml31: StaffTypeAlternate :: StaffType
+ Fadno.MusicXml.MusicXml31: StaffTypeCue :: StaffType
+ Fadno.MusicXml.MusicXml31: StaffTypeEditorial :: StaffType
+ Fadno.MusicXml.MusicXml31: StaffTypeOssia :: StaffType
+ Fadno.MusicXml.MusicXml31: StaffTypeRegular :: StaffType
+ Fadno.MusicXml.MusicXml31: StartNoteBelow :: StartNote
+ Fadno.MusicXml.MusicXml31: StartNoteMain :: StartNote
+ Fadno.MusicXml.MusicXml31: StartNoteUpper :: StartNote
+ Fadno.MusicXml.MusicXml31: StartStopContinueContinue :: StartStopContinue
+ Fadno.MusicXml.MusicXml31: StartStopContinueStart :: StartStopContinue
+ Fadno.MusicXml.MusicXml31: StartStopContinueStop :: StartStopContinue
+ Fadno.MusicXml.MusicXml31: StartStopDiscontinueDiscontinue :: StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: StartStopDiscontinueStart :: StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: StartStopDiscontinueStop :: StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: StartStopSingleSingle :: StartStopSingle
+ Fadno.MusicXml.MusicXml31: StartStopSingleStart :: StartStopSingle
+ Fadno.MusicXml.MusicXml31: StartStopSingleStop :: StartStopSingle
+ Fadno.MusicXml.MusicXml31: StartStopStart :: StartStop
+ Fadno.MusicXml.MusicXml31: StartStopStop :: StartStop
+ Fadno.MusicXml.MusicXml31: Stem :: StemValue -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Stem
+ Fadno.MusicXml.MusicXml31: StemValueDouble :: StemValue
+ Fadno.MusicXml.MusicXml31: StemValueDown :: StemValue
+ Fadno.MusicXml.MusicXml31: StemValueNone :: StemValue
+ Fadno.MusicXml.MusicXml31: StemValueUp :: StemValue
+ Fadno.MusicXml.MusicXml31: StepA :: Step
+ Fadno.MusicXml.MusicXml31: StepB :: Step
+ Fadno.MusicXml.MusicXml31: StepC :: Step
+ Fadno.MusicXml.MusicXml31: StepD :: Step
+ Fadno.MusicXml.MusicXml31: StepE :: Step
+ Fadno.MusicXml.MusicXml31: StepF :: Step
+ Fadno.MusicXml.MusicXml31: StepG :: Step
+ Fadno.MusicXml.MusicXml31: Stick :: Maybe TipDirection -> Maybe YesNo -> Maybe YesNo -> StickType -> StickMaterial -> Stick
+ Fadno.MusicXml.MusicXml31: StickLocationCenter :: StickLocation
+ Fadno.MusicXml.MusicXml31: StickLocationCymbalBell :: StickLocation
+ Fadno.MusicXml.MusicXml31: StickLocationCymbalEdge :: StickLocation
+ Fadno.MusicXml.MusicXml31: StickLocationRim :: StickLocation
+ Fadno.MusicXml.MusicXml31: StickMaterialHard :: StickMaterial
+ Fadno.MusicXml.MusicXml31: StickMaterialMedium :: StickMaterial
+ Fadno.MusicXml.MusicXml31: StickMaterialShaded :: StickMaterial
+ Fadno.MusicXml.MusicXml31: StickMaterialSoft :: StickMaterial
+ Fadno.MusicXml.MusicXml31: StickMaterialX :: StickMaterial
+ Fadno.MusicXml.MusicXml31: StickTypeBassDrum :: StickType
+ Fadno.MusicXml.MusicXml31: StickTypeDoubleBassDrum :: StickType
+ Fadno.MusicXml.MusicXml31: StickTypeGlockenspiel :: StickType
+ Fadno.MusicXml.MusicXml31: StickTypeGum :: StickType
+ Fadno.MusicXml.MusicXml31: StickTypeHammer :: StickType
+ Fadno.MusicXml.MusicXml31: StickTypeSuperball :: StickType
+ Fadno.MusicXml.MusicXml31: StickTypeTimpani :: StickType
+ Fadno.MusicXml.MusicXml31: StickTypeWound :: StickType
+ Fadno.MusicXml.MusicXml31: StickTypeXylophone :: StickType
+ Fadno.MusicXml.MusicXml31: StickTypeYarn :: StickType
+ Fadno.MusicXml.MusicXml31: StringMute :: OnOff -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe ID -> StringMute
+ Fadno.MusicXml.MusicXml31: StringNumber :: PositiveInteger -> StringNumber
+ Fadno.MusicXml.MusicXml31: StrongAccent :: StrongAccent -> Maybe UpDown -> StrongAccent
+ Fadno.MusicXml.MusicXml31: StyleText :: String -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> StyleText
+ Fadno.MusicXml.MusicXml31: SumLang :: SumLang
+ Fadno.MusicXml.MusicXml31: SumPositiveIntegerOrEmpty :: SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: Supports :: YesNo -> NMTOKEN -> Maybe NMTOKEN -> Maybe Token -> Supports
+ Fadno.MusicXml.MusicXml31: SyllabicBegin :: Syllabic
+ Fadno.MusicXml.MusicXml31: SyllabicEnd :: Syllabic
+ Fadno.MusicXml.MusicXml31: SyllabicMiddle :: Syllabic
+ Fadno.MusicXml.MusicXml31: SyllabicSingle :: Syllabic
+ Fadno.MusicXml.MusicXml31: SymbolSizeCue :: SymbolSize
+ Fadno.MusicXml.MusicXml31: SymbolSizeFull :: SymbolSize
+ Fadno.MusicXml.MusicXml31: SymbolSizeGraceCue :: SymbolSize
+ Fadno.MusicXml.MusicXml31: SymbolSizeLarge :: SymbolSize
+ Fadno.MusicXml.MusicXml31: SystemDividers :: EmptyPrintObjectStyleAlign -> EmptyPrintObjectStyleAlign -> SystemDividers
+ Fadno.MusicXml.MusicXml31: SystemLayout :: Maybe SystemMargins -> Maybe Tenths -> Maybe Tenths -> Maybe SystemDividers -> SystemLayout
+ Fadno.MusicXml.MusicXml31: SystemMargins :: LeftRightMargins -> SystemMargins
+ Fadno.MusicXml.MusicXml31: Tap :: String -> Maybe TapHand -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Tap
+ Fadno.MusicXml.MusicXml31: TapHandLeft :: TapHand
+ Fadno.MusicXml.MusicXml31: TapHandRight :: TapHand
+ Fadno.MusicXml.MusicXml31: Technical :: Maybe ID -> [ChxTechnical] -> Technical
+ Fadno.MusicXml.MusicXml31: TechnicalArrow :: Arrow -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalBend :: Bend -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalBrassBend :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalDoubleTongue :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalDownBow :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalFingering :: Fingering -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalFingernails :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalFlip :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalFret :: Fret -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalGolpe :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalHalfMuted :: EmptyPlacementSmufl -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalHammerOn :: HammerOnPullOff -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalHandbell :: Handbell -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalHarmonMute :: HarmonMute -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalHarmonic :: Harmonic -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalHeel :: HeelToe -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalHole :: Hole -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalOpen :: EmptyPlacementSmufl -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalOpenString :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalOtherTechnical :: OtherPlacementText -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalPluck :: PlacementText -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalPullOff :: HammerOnPullOff -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalSmear :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalSnapPizzicato :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalStopped :: EmptyPlacementSmufl -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalString :: CmpString -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalTap :: Tap -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalThumbPosition :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalToe :: HeelToe -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalTripleTongue :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: TechnicalUpBow :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: Tenths :: Decimal -> Tenths
+ Fadno.MusicXml.MusicXml31: TextDirectionLro :: TextDirection
+ Fadno.MusicXml.MusicXml31: TextDirectionLtr :: TextDirection
+ Fadno.MusicXml.MusicXml31: TextDirectionRlo :: TextDirection
+ Fadno.MusicXml.MusicXml31: TextDirectionRtl :: TextDirection
+ Fadno.MusicXml.MusicXml31: TextElementData :: String -> Maybe Lang -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe NumberOfLines -> Maybe RotationDegrees -> Maybe NumberOrNormal -> Maybe TextDirection -> TextElementData
+ Fadno.MusicXml.MusicXml31: Tie :: StartStop -> Maybe TimeOnly -> Tie
+ Fadno.MusicXml.MusicXml31: Tied :: TiedType -> Maybe NumberLevel -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe OverUnder -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Divisions -> Maybe Divisions -> Maybe Color -> Maybe ID -> Tied
+ Fadno.MusicXml.MusicXml31: TiedTypeContinue :: TiedType
+ Fadno.MusicXml.MusicXml31: TiedTypeLetRing :: TiedType
+ Fadno.MusicXml.MusicXml31: TiedTypeStart :: TiedType
+ Fadno.MusicXml.MusicXml31: TiedTypeStop :: TiedType
+ Fadno.MusicXml.MusicXml31: Time :: Maybe StaffNumber -> Maybe TimeSymbol -> Maybe TimeSeparator -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe LeftCenterRight -> Maybe Valign -> Maybe YesNo -> Maybe ID -> ChxTime -> Time
+ Fadno.MusicXml.MusicXml31: TimeModification :: NonNegativeInteger -> NonNegativeInteger -> Maybe SeqTimeModification -> TimeModification
+ Fadno.MusicXml.MusicXml31: TimeOnly :: Token -> TimeOnly
+ Fadno.MusicXml.MusicXml31: TimeRelationBracket :: TimeRelation
+ Fadno.MusicXml.MusicXml31: TimeRelationEquals :: TimeRelation
+ Fadno.MusicXml.MusicXml31: TimeRelationHyphen :: TimeRelation
+ Fadno.MusicXml.MusicXml31: TimeRelationParentheses :: TimeRelation
+ Fadno.MusicXml.MusicXml31: TimeRelationSlash :: TimeRelation
+ Fadno.MusicXml.MusicXml31: TimeRelationSpace :: TimeRelation
+ Fadno.MusicXml.MusicXml31: TimeSenzaMisura :: String -> ChxTime
+ Fadno.MusicXml.MusicXml31: TimeSeparatorAdjacent :: TimeSeparator
+ Fadno.MusicXml.MusicXml31: TimeSeparatorDiagonal :: TimeSeparator
+ Fadno.MusicXml.MusicXml31: TimeSeparatorHorizontal :: TimeSeparator
+ Fadno.MusicXml.MusicXml31: TimeSeparatorNone :: TimeSeparator
+ Fadno.MusicXml.MusicXml31: TimeSeparatorVertical :: TimeSeparator
+ Fadno.MusicXml.MusicXml31: TimeSignature :: String -> String -> TimeSignature
+ Fadno.MusicXml.MusicXml31: TimeSymbolCommon :: TimeSymbol
+ Fadno.MusicXml.MusicXml31: TimeSymbolCut :: TimeSymbol
+ Fadno.MusicXml.MusicXml31: TimeSymbolDottedNote :: TimeSymbol
+ Fadno.MusicXml.MusicXml31: TimeSymbolNormal :: TimeSymbol
+ Fadno.MusicXml.MusicXml31: TimeSymbolNote :: TimeSymbol
+ Fadno.MusicXml.MusicXml31: TimeSymbolSingleNumber :: TimeSymbol
+ Fadno.MusicXml.MusicXml31: TimeTimeSignature :: [TimeSignature] -> Maybe Interchangeable -> ChxTime
+ Fadno.MusicXml.MusicXml31: TipDirectionDown :: TipDirection
+ Fadno.MusicXml.MusicXml31: TipDirectionLeft :: TipDirection
+ Fadno.MusicXml.MusicXml31: TipDirectionNortheast :: TipDirection
+ Fadno.MusicXml.MusicXml31: TipDirectionNorthwest :: TipDirection
+ Fadno.MusicXml.MusicXml31: TipDirectionRight :: TipDirection
+ Fadno.MusicXml.MusicXml31: TipDirectionSoutheast :: TipDirection
+ Fadno.MusicXml.MusicXml31: TipDirectionSouthwest :: TipDirection
+ Fadno.MusicXml.MusicXml31: TipDirectionUp :: TipDirection
+ Fadno.MusicXml.MusicXml31: Token :: NormalizedString -> Token
+ Fadno.MusicXml.MusicXml31: TopBottomBottom :: TopBottom
+ Fadno.MusicXml.MusicXml31: TopBottomTop :: TopBottom
+ Fadno.MusicXml.MusicXml31: TraditionalKey :: Maybe Cancel -> Fifths -> Maybe Mode -> TraditionalKey
+ Fadno.MusicXml.MusicXml31: Transpose :: Maybe StaffNumber -> Maybe ID -> Maybe Int -> Semitones -> Maybe Int -> Maybe Empty -> Transpose
+ Fadno.MusicXml.MusicXml31: Tremolo :: TremoloMarks -> Maybe TremoloType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> Maybe AboveBelow -> Maybe SmuflGlyphName -> Tremolo
+ Fadno.MusicXml.MusicXml31: TremoloMarks :: Int -> TremoloMarks
+ Fadno.MusicXml.MusicXml31: TremoloTypeSingle :: TremoloType
+ Fadno.MusicXml.MusicXml31: TremoloTypeStart :: TremoloType
+ Fadno.MusicXml.MusicXml31: TremoloTypeStop :: TremoloType
+ Fadno.MusicXml.MusicXml31: TremoloTypeUnmeasured :: TremoloType
+ Fadno.MusicXml.MusicXml31: TrillBeats :: Decimal -> TrillBeats
+ Fadno.MusicXml.MusicXml31: TrillStepHalf :: TrillStep
+ Fadno.MusicXml.MusicXml31: TrillStepUnison :: TrillStep
+ Fadno.MusicXml.MusicXml31: TrillStepWhole :: TrillStep
+ Fadno.MusicXml.MusicXml31: Tuning :: Step -> Maybe Semitones -> Octave -> Tuning
+ Fadno.MusicXml.MusicXml31: Tuplet :: StartStop -> Maybe NumberLevel -> Maybe YesNo -> Maybe ShowTuplet -> Maybe ShowTuplet -> Maybe LineShape -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe ID -> Maybe TupletPortion -> Maybe TupletPortion -> Tuplet
+ Fadno.MusicXml.MusicXml31: TupletDot :: Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> TupletDot
+ Fadno.MusicXml.MusicXml31: TupletNumber :: NonNegativeInteger -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> TupletNumber
+ Fadno.MusicXml.MusicXml31: TupletPortion :: Maybe TupletNumber -> Maybe TupletType -> [TupletDot] -> TupletPortion
+ Fadno.MusicXml.MusicXml31: TupletType :: NoteTypeValue -> Maybe CommaSeparatedText -> Maybe FontStyle -> Maybe FontSize -> Maybe FontWeight -> Maybe Color -> TupletType
+ Fadno.MusicXml.MusicXml31: TwoNoteTurnHalf :: TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: TwoNoteTurnNone :: TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: TwoNoteTurnWhole :: TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: TypeSimple :: Type
+ Fadno.MusicXml.MusicXml31: TypedText :: String -> Maybe Token -> TypedText
+ Fadno.MusicXml.MusicXml31: Unpitched :: Maybe DisplayStepOctave -> Unpitched
+ Fadno.MusicXml.MusicXml31: UpDownDown :: UpDown
+ Fadno.MusicXml.MusicXml31: UpDownStopContinueContinue :: UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: UpDownStopContinueDown :: UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: UpDownStopContinueStop :: UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: UpDownStopContinueUp :: UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: UpDownUp :: UpDown
+ Fadno.MusicXml.MusicXml31: UprightInvertedInverted :: UprightInverted
+ Fadno.MusicXml.MusicXml31: UprightInvertedUpright :: UprightInverted
+ Fadno.MusicXml.MusicXml31: ValignBaseline :: Valign
+ Fadno.MusicXml.MusicXml31: ValignBottom :: Valign
+ Fadno.MusicXml.MusicXml31: ValignImageBottom :: ValignImage
+ Fadno.MusicXml.MusicXml31: ValignImageMiddle :: ValignImage
+ Fadno.MusicXml.MusicXml31: ValignImageTop :: ValignImage
+ Fadno.MusicXml.MusicXml31: ValignMiddle :: Valign
+ Fadno.MusicXml.MusicXml31: ValignTop :: Valign
+ Fadno.MusicXml.MusicXml31: VirtualInstrument :: Maybe String -> Maybe String -> VirtualInstrument
+ Fadno.MusicXml.MusicXml31: Voice :: String -> Voice
+ Fadno.MusicXml.MusicXml31: WavyLine :: StartStopContinue -> Maybe NumberLevel -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe AboveBelow -> Maybe Color -> Maybe StartNote -> Maybe TrillStep -> Maybe TwoNoteTurn -> Maybe YesNo -> Maybe TrillBeats -> Maybe Percent -> Maybe Percent -> WavyLine
+ Fadno.MusicXml.MusicXml31: Wedge :: WedgeType -> Maybe NumberLevel -> Maybe Tenths -> Maybe YesNo -> Maybe LineType -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Tenths -> Maybe Color -> Maybe ID -> Wedge
+ Fadno.MusicXml.MusicXml31: WedgeTypeContinue :: WedgeType
+ Fadno.MusicXml.MusicXml31: WedgeTypeCrescendo :: WedgeType
+ Fadno.MusicXml.MusicXml31: WedgeTypeDiminuendo :: WedgeType
+ Fadno.MusicXml.MusicXml31: WedgeTypeStop :: WedgeType
+ Fadno.MusicXml.MusicXml31: WingedCurved :: Winged
+ Fadno.MusicXml.MusicXml31: WingedDoubleCurved :: Winged
+ Fadno.MusicXml.MusicXml31: WingedDoubleStraight :: Winged
+ Fadno.MusicXml.MusicXml31: WingedNone :: Winged
+ Fadno.MusicXml.MusicXml31: WingedStraight :: Winged
+ Fadno.MusicXml.MusicXml31: WoodBambooScraper :: Wood
+ Fadno.MusicXml.MusicXml31: WoodBoardClapper :: Wood
+ Fadno.MusicXml.MusicXml31: WoodCabasa :: Wood
+ Fadno.MusicXml.MusicXml31: WoodCastanets :: Wood
+ Fadno.MusicXml.MusicXml31: WoodCastanetsWithHandle :: Wood
+ Fadno.MusicXml.MusicXml31: WoodClaves :: Wood
+ Fadno.MusicXml.MusicXml31: WoodFootballRattle :: Wood
+ Fadno.MusicXml.MusicXml31: WoodGuiro :: Wood
+ Fadno.MusicXml.MusicXml31: WoodLogDrum :: Wood
+ Fadno.MusicXml.MusicXml31: WoodMaraca :: Wood
+ Fadno.MusicXml.MusicXml31: WoodMaracas :: Wood
+ Fadno.MusicXml.MusicXml31: WoodQuijada :: Wood
+ Fadno.MusicXml.MusicXml31: WoodRainstick :: Wood
+ Fadno.MusicXml.MusicXml31: WoodRatchet :: Wood
+ Fadno.MusicXml.MusicXml31: WoodRecoReco :: Wood
+ Fadno.MusicXml.MusicXml31: WoodSandpaperBlocks :: Wood
+ Fadno.MusicXml.MusicXml31: WoodSlitDrum :: Wood
+ Fadno.MusicXml.MusicXml31: WoodTempleBlock :: Wood
+ Fadno.MusicXml.MusicXml31: WoodVibraslap :: Wood
+ Fadno.MusicXml.MusicXml31: WoodWhip :: Wood
+ Fadno.MusicXml.MusicXml31: WoodWoodBlock :: Wood
+ Fadno.MusicXml.MusicXml31: Work :: Maybe String -> Maybe String -> Maybe Opus -> Work
+ Fadno.MusicXml.MusicXml31: YesNoNo :: YesNo
+ Fadno.MusicXml.MusicXml31: YesNoNumberDecimal :: Decimal -> YesNoNumber
+ Fadno.MusicXml.MusicXml31: YesNoNumberYesNo :: YesNo -> YesNoNumber
+ Fadno.MusicXml.MusicXml31: YesNoYes :: YesNo
+ Fadno.MusicXml.MusicXml31: YyyyMmDd :: String -> YyyyMmDd
+ Fadno.MusicXml.MusicXml31: [accidentalAccidentalValue] :: Accidental -> AccidentalValue
+ Fadno.MusicXml.MusicXml31: [accidentalBracket] :: Accidental -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [accidentalCautionary] :: Accidental -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [accidentalColor] :: Accidental -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [accidentalDefaultX] :: Accidental -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalDefaultY] :: Accidental -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalEditorial] :: Accidental -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [accidentalFontFamily] :: Accidental -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [accidentalFontSize] :: Accidental -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [accidentalFontStyle] :: Accidental -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [accidentalFontWeight] :: Accidental -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [accidentalMarkAccidentalValue] :: AccidentalMark -> AccidentalValue
+ Fadno.MusicXml.MusicXml31: [accidentalMarkBracket] :: AccidentalMark -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [accidentalMarkColor] :: AccidentalMark -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [accidentalMarkDefaultX] :: AccidentalMark -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalMarkDefaultY] :: AccidentalMark -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalMarkFontFamily] :: AccidentalMark -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [accidentalMarkFontSize] :: AccidentalMark -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [accidentalMarkFontStyle] :: AccidentalMark -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [accidentalMarkFontWeight] :: AccidentalMark -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [accidentalMarkId] :: AccidentalMark -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [accidentalMarkParentheses] :: AccidentalMark -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [accidentalMarkPlacement] :: AccidentalMark -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [accidentalMarkRelativeX] :: AccidentalMark -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalMarkRelativeY] :: AccidentalMark -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalMarkSize] :: AccidentalMark -> Maybe SymbolSize
+ Fadno.MusicXml.MusicXml31: [accidentalMarkSmufl] :: AccidentalMark -> Maybe SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: [accidentalParentheses] :: Accidental -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [accidentalRelativeX] :: Accidental -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalRelativeY] :: Accidental -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalSize] :: Accidental -> Maybe SymbolSize
+ Fadno.MusicXml.MusicXml31: [accidentalSmufl] :: Accidental -> Maybe SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: [accidentalTextAccidentalValue] :: AccidentalText -> AccidentalValue
+ Fadno.MusicXml.MusicXml31: [accidentalTextColor] :: AccidentalText -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [accidentalTextDefaultX] :: AccidentalText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalTextDefaultY] :: AccidentalText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalTextDir] :: AccidentalText -> Maybe TextDirection
+ Fadno.MusicXml.MusicXml31: [accidentalTextEnclosure] :: AccidentalText -> Maybe EnclosureShape
+ Fadno.MusicXml.MusicXml31: [accidentalTextFontFamily] :: AccidentalText -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [accidentalTextFontSize] :: AccidentalText -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [accidentalTextFontStyle] :: AccidentalText -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [accidentalTextFontWeight] :: AccidentalText -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [accidentalTextHalign] :: AccidentalText -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [accidentalTextJustify] :: AccidentalText -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [accidentalTextLang] :: AccidentalText -> Maybe Lang
+ Fadno.MusicXml.MusicXml31: [accidentalTextLetterSpacing] :: AccidentalText -> Maybe NumberOrNormal
+ Fadno.MusicXml.MusicXml31: [accidentalTextLineHeight] :: AccidentalText -> Maybe NumberOrNormal
+ Fadno.MusicXml.MusicXml31: [accidentalTextLineThrough] :: AccidentalText -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [accidentalTextOverline] :: AccidentalText -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [accidentalTextRelativeX] :: AccidentalText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalTextRelativeY] :: AccidentalText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accidentalTextRotation] :: AccidentalText -> Maybe RotationDegrees
+ Fadno.MusicXml.MusicXml31: [accidentalTextSmufl] :: AccidentalText -> Maybe SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: [accidentalTextSpace] :: AccidentalText -> Maybe Space
+ Fadno.MusicXml.MusicXml31: [accidentalTextUnderline] :: AccidentalText -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [accidentalTextValign] :: AccidentalText -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [accordString] :: Accord -> Maybe StringNumber
+ Fadno.MusicXml.MusicXml31: [accordTuning] :: Accord -> Tuning
+ Fadno.MusicXml.MusicXml31: [accordionMiddle] :: AccordionMiddle -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationAccordionHigh] :: AccordionRegistration -> Maybe Empty
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationAccordionLow] :: AccordionRegistration -> Maybe Empty
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationAccordionMiddle] :: AccordionRegistration -> Maybe AccordionMiddle
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationColor] :: AccordionRegistration -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationDefaultX] :: AccordionRegistration -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationDefaultY] :: AccordionRegistration -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationFontFamily] :: AccordionRegistration -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationFontSize] :: AccordionRegistration -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationFontStyle] :: AccordionRegistration -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationFontWeight] :: AccordionRegistration -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationHalign] :: AccordionRegistration -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationId] :: AccordionRegistration -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationRelativeX] :: AccordionRegistration -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationRelativeY] :: AccordionRegistration -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [accordionRegistrationValign] :: AccordionRegistration -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [allMarginsBottomMargin] :: AllMargins -> Tenths
+ Fadno.MusicXml.MusicXml31: [allMarginsLeftRightMargins] :: AllMargins -> LeftRightMargins
+ Fadno.MusicXml.MusicXml31: [allMarginsTopMargin] :: AllMargins -> Tenths
+ Fadno.MusicXml.MusicXml31: [appearanceDistance] :: Appearance -> [Distance]
+ Fadno.MusicXml.MusicXml31: [appearanceGlyph] :: Appearance -> [Glyph]
+ Fadno.MusicXml.MusicXml31: [appearanceLineWidth] :: Appearance -> [LineWidth]
+ Fadno.MusicXml.MusicXml31: [appearanceNoteSize] :: Appearance -> [NoteSize]
+ Fadno.MusicXml.MusicXml31: [appearanceOtherAppearance] :: Appearance -> [OtherAppearance]
+ Fadno.MusicXml.MusicXml31: [arpeggiateColor] :: Arpeggiate -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [arpeggiateDefaultX] :: Arpeggiate -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [arpeggiateDefaultY] :: Arpeggiate -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [arpeggiateDirection] :: Arpeggiate -> Maybe UpDown
+ Fadno.MusicXml.MusicXml31: [arpeggiateId] :: Arpeggiate -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [arpeggiateNumber] :: Arpeggiate -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [arpeggiatePlacement] :: Arpeggiate -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [arpeggiateRelativeX] :: Arpeggiate -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [arpeggiateRelativeY] :: Arpeggiate -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [arrowArrowDirection] :: ChxArrow -> ArrowDirection
+ Fadno.MusicXml.MusicXml31: [arrowArrowStyle] :: ChxArrow -> Maybe ArrowStyle
+ Fadno.MusicXml.MusicXml31: [arrowArrow] :: Arrow -> ChxArrow
+ Fadno.MusicXml.MusicXml31: [arrowArrowhead] :: ChxArrow -> Maybe Empty
+ Fadno.MusicXml.MusicXml31: [arrowCircularArrow] :: ChxArrow -> CircularArrow
+ Fadno.MusicXml.MusicXml31: [arrowColor] :: Arrow -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [arrowDefaultX] :: Arrow -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [arrowDefaultY] :: Arrow -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [arrowFontFamily] :: Arrow -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [arrowFontSize] :: Arrow -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [arrowFontStyle] :: Arrow -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [arrowFontWeight] :: Arrow -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [arrowPlacement] :: Arrow -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [arrowRelativeX] :: Arrow -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [arrowRelativeY] :: Arrow -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [arrowSmufl] :: Arrow -> Maybe SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [articulationsAccent] :: ChxArticulations -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [articulationsArticulations] :: Articulations -> [ChxArticulations]
+ Fadno.MusicXml.MusicXml31: [articulationsBreathMark] :: ChxArticulations -> BreathMark
+ Fadno.MusicXml.MusicXml31: [articulationsCaesura] :: ChxArticulations -> Caesura
+ Fadno.MusicXml.MusicXml31: [articulationsDetachedLegato] :: ChxArticulations -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [articulationsDoit] :: ChxArticulations -> EmptyLine
+ Fadno.MusicXml.MusicXml31: [articulationsFalloff] :: ChxArticulations -> EmptyLine
+ Fadno.MusicXml.MusicXml31: [articulationsId] :: Articulations -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [articulationsOtherArticulation] :: ChxArticulations -> OtherPlacementText
+ Fadno.MusicXml.MusicXml31: [articulationsPlop] :: ChxArticulations -> EmptyLine
+ Fadno.MusicXml.MusicXml31: [articulationsScoop] :: ChxArticulations -> EmptyLine
+ Fadno.MusicXml.MusicXml31: [articulationsSoftAccent] :: ChxArticulations -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [articulationsSpiccato] :: ChxArticulations -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [articulationsStaccatissimo] :: ChxArticulations -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [articulationsStaccato] :: ChxArticulations -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [articulationsStress] :: ChxArticulations -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [articulationsStrongAccent] :: ChxArticulations -> StrongAccent
+ Fadno.MusicXml.MusicXml31: [articulationsTenuto] :: ChxArticulations -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [articulationsUnstress] :: ChxArticulations -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [attributesClef] :: Attributes -> [Clef]
+ Fadno.MusicXml.MusicXml31: [attributesDirective] :: Attributes -> [Directive]
+ Fadno.MusicXml.MusicXml31: [attributesDivisions] :: Attributes -> Maybe PositiveDivisions
+ Fadno.MusicXml.MusicXml31: [attributesEditorial] :: Attributes -> Editorial
+ Fadno.MusicXml.MusicXml31: [attributesInstruments] :: Attributes -> Maybe NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [attributesKey] :: Attributes -> [Key]
+ Fadno.MusicXml.MusicXml31: [attributesMeasureStyle] :: Attributes -> [MeasureStyle]
+ Fadno.MusicXml.MusicXml31: [attributesPartSymbol] :: Attributes -> Maybe PartSymbol
+ Fadno.MusicXml.MusicXml31: [attributesStaffDetails] :: Attributes -> [StaffDetails]
+ Fadno.MusicXml.MusicXml31: [attributesStaves] :: Attributes -> Maybe NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [attributesTime] :: Attributes -> [Time]
+ Fadno.MusicXml.MusicXml31: [attributesTranspose] :: Attributes -> [Transpose]
+ Fadno.MusicXml.MusicXml31: [backupDuration] :: Backup -> Duration
+ Fadno.MusicXml.MusicXml31: [backupEditorial] :: Backup -> Editorial
+ Fadno.MusicXml.MusicXml31: [barStyleColorBarStyle] :: BarStyleColor -> BarStyle
+ Fadno.MusicXml.MusicXml31: [barStyleColorColor] :: BarStyleColor -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [barlineBarStyle] :: Barline -> Maybe BarStyleColor
+ Fadno.MusicXml.MusicXml31: [barlineCoda1] :: Barline -> Maybe Coda
+ Fadno.MusicXml.MusicXml31: [barlineCoda] :: Barline -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [barlineDivisions] :: Barline -> Maybe Divisions
+ Fadno.MusicXml.MusicXml31: [barlineEditorial] :: Barline -> Editorial
+ Fadno.MusicXml.MusicXml31: [barlineEnding] :: Barline -> Maybe Ending
+ Fadno.MusicXml.MusicXml31: [barlineFermata] :: Barline -> [Fermata]
+ Fadno.MusicXml.MusicXml31: [barlineId] :: Barline -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [barlineLocation] :: Barline -> Maybe RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: [barlineRepeat] :: Barline -> Maybe Repeat
+ Fadno.MusicXml.MusicXml31: [barlineSegno1] :: Barline -> Maybe Segno
+ Fadno.MusicXml.MusicXml31: [barlineSegno] :: Barline -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [barlineWavyLine] :: Barline -> Maybe WavyLine
+ Fadno.MusicXml.MusicXml31: [barreColor] :: Barre -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [barreType] :: Barre -> StartStop
+ Fadno.MusicXml.MusicXml31: [bassAlterColor] :: BassAlter -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [bassAlterDefaultX] :: BassAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bassAlterDefaultY] :: BassAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bassAlterFontFamily] :: BassAlter -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [bassAlterFontSize] :: BassAlter -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [bassAlterFontStyle] :: BassAlter -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [bassAlterFontWeight] :: BassAlter -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [bassAlterLocation] :: BassAlter -> Maybe LeftRight
+ Fadno.MusicXml.MusicXml31: [bassAlterPrintObject] :: BassAlter -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [bassAlterRelativeX] :: BassAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bassAlterRelativeY] :: BassAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bassAlterSemitones] :: BassAlter -> Semitones
+ Fadno.MusicXml.MusicXml31: [bassBassAlter] :: Bass -> Maybe BassAlter
+ Fadno.MusicXml.MusicXml31: [bassBassStep] :: Bass -> BassStep
+ Fadno.MusicXml.MusicXml31: [bassStepColor] :: BassStep -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [bassStepDefaultX] :: BassStep -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bassStepDefaultY] :: BassStep -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bassStepFontFamily] :: BassStep -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [bassStepFontSize] :: BassStep -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [bassStepFontStyle] :: BassStep -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [bassStepFontWeight] :: BassStep -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [bassStepRelativeX] :: BassStep -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bassStepRelativeY] :: BassStep -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bassStepStep] :: BassStep -> Step
+ Fadno.MusicXml.MusicXml31: [bassStepText] :: BassStep -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [beamBeamValue] :: Beam -> BeamValue
+ Fadno.MusicXml.MusicXml31: [beamColor] :: Beam -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [beamFan] :: Beam -> Maybe Fan
+ Fadno.MusicXml.MusicXml31: [beamId] :: Beam -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [beamLevel] :: BeamLevel -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [beamNumber] :: Beam -> Maybe BeamLevel
+ Fadno.MusicXml.MusicXml31: [beamRepeater] :: Beam -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [beatRepeatSlash] :: BeatRepeat -> Maybe Slash
+ Fadno.MusicXml.MusicXml31: [beatRepeatSlashes] :: BeatRepeat -> Maybe PositiveInteger
+ Fadno.MusicXml.MusicXml31: [beatRepeatType] :: BeatRepeat -> StartStop
+ Fadno.MusicXml.MusicXml31: [beatRepeatUseDots] :: BeatRepeat -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [beatUnitBeatUnitDot] :: BeatUnit -> [Empty]
+ Fadno.MusicXml.MusicXml31: [beatUnitBeatUnit] :: BeatUnit -> NoteTypeValue
+ Fadno.MusicXml.MusicXml31: [beatUnitTiedBeatUnit] :: BeatUnitTied -> BeatUnit
+ Fadno.MusicXml.MusicXml31: [beaterBeaterValue] :: Beater -> BeaterValue
+ Fadno.MusicXml.MusicXml31: [beaterTip] :: Beater -> Maybe TipDirection
+ Fadno.MusicXml.MusicXml31: [bendAccelerate] :: Bend -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [bendBeats] :: Bend -> Maybe TrillBeats
+ Fadno.MusicXml.MusicXml31: [bendBendAlter] :: Bend -> Semitones
+ Fadno.MusicXml.MusicXml31: [bendBend] :: Bend -> Maybe ChxBend
+ Fadno.MusicXml.MusicXml31: [bendColor] :: Bend -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [bendDefaultX] :: Bend -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bendDefaultY] :: Bend -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bendFirstBeat] :: Bend -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [bendFontFamily] :: Bend -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [bendFontSize] :: Bend -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [bendFontStyle] :: Bend -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [bendFontWeight] :: Bend -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [bendLastBeat] :: Bend -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [bendPreBend] :: ChxBend -> Empty
+ Fadno.MusicXml.MusicXml31: [bendRelativeX] :: Bend -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bendRelativeY] :: Bend -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bendRelease] :: ChxBend -> Empty
+ Fadno.MusicXml.MusicXml31: [bendWithBar] :: Bend -> Maybe PlacementText
+ Fadno.MusicXml.MusicXml31: [bookmarkElement] :: Bookmark -> Maybe NMTOKEN
+ Fadno.MusicXml.MusicXml31: [bookmarkId] :: Bookmark -> ID
+ Fadno.MusicXml.MusicXml31: [bookmarkName] :: Bookmark -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [bookmarkPosition] :: Bookmark -> Maybe PositiveInteger
+ Fadno.MusicXml.MusicXml31: [bracketColor] :: Bracket -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [bracketDashLength] :: Bracket -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bracketDefaultX] :: Bracket -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bracketDefaultY] :: Bracket -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bracketEndLength] :: Bracket -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bracketId] :: Bracket -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [bracketLineEnd] :: Bracket -> LineEnd
+ Fadno.MusicXml.MusicXml31: [bracketLineType] :: Bracket -> Maybe LineType
+ Fadno.MusicXml.MusicXml31: [bracketNumber] :: Bracket -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [bracketRelativeX] :: Bracket -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bracketRelativeY] :: Bracket -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bracketSpaceLength] :: Bracket -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [bracketType] :: Bracket -> StartStopContinue
+ Fadno.MusicXml.MusicXml31: [breathMarkBreathMarkValue] :: BreathMark -> BreathMarkValue
+ Fadno.MusicXml.MusicXml31: [breathMarkColor] :: BreathMark -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [breathMarkDefaultX] :: BreathMark -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [breathMarkDefaultY] :: BreathMark -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [breathMarkFontFamily] :: BreathMark -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [breathMarkFontSize] :: BreathMark -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [breathMarkFontStyle] :: BreathMark -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [breathMarkFontWeight] :: BreathMark -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [breathMarkPlacement] :: BreathMark -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [breathMarkRelativeX] :: BreathMark -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [breathMarkRelativeY] :: BreathMark -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [caesuraCaesuraValue] :: Caesura -> CaesuraValue
+ Fadno.MusicXml.MusicXml31: [caesuraColor] :: Caesura -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [caesuraDefaultX] :: Caesura -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [caesuraDefaultY] :: Caesura -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [caesuraFontFamily] :: Caesura -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [caesuraFontSize] :: Caesura -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [caesuraFontStyle] :: Caesura -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [caesuraFontWeight] :: Caesura -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [caesuraPlacement] :: Caesura -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [caesuraRelativeX] :: Caesura -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [caesuraRelativeY] :: Caesura -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [cancelFifths] :: Cancel -> Fifths
+ Fadno.MusicXml.MusicXml31: [cancelLocation] :: Cancel -> Maybe CancelLocation
+ Fadno.MusicXml.MusicXml31: [chxcreditCreditSymbol] :: ChxCredit1 -> FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: [chxcreditCreditWords] :: ChxCredit1 -> FormattedTextId
+ Fadno.MusicXml.MusicXml31: [chxcreditCredit] :: ChxCredit -> ChxCredit0
+ Fadno.MusicXml.MusicXml31: [chxdirectionTypeDirectionType] :: ChxDirectionType -> [ChxDirectionType0]
+ Fadno.MusicXml.MusicXml31: [chxlyricLyric] :: ChxLyric -> [SeqLyric]
+ Fadno.MusicXml.MusicXml31: [chxmetronomeBeatUnitTied] :: ChxMetronome -> [BeatUnitTied]
+ Fadno.MusicXml.MusicXml31: [chxmetronomeBeatUnit] :: ChxMetronome -> BeatUnit
+ Fadno.MusicXml.MusicXml31: [chxmetronomeMetronome] :: ChxMetronome -> ChxMetronome0
+ Fadno.MusicXml.MusicXml31: [chxnoteCue] :: ChxNote -> Empty
+ Fadno.MusicXml.MusicXml31: [chxnoteFullNote1] :: ChxNote -> GrpFullNote
+ Fadno.MusicXml.MusicXml31: [chxnoteFullNote] :: ChxNote -> GrpFullNote
+ Fadno.MusicXml.MusicXml31: [chxnoteNote] :: ChxNote -> ChxNote0
+ Fadno.MusicXml.MusicXml31: [chxnoteTie] :: ChxNote -> [Tie]
+ Fadno.MusicXml.MusicXml31: [chxpartListPartGroup] :: ChxPartList -> GrpPartGroup
+ Fadno.MusicXml.MusicXml31: [chxpartListScorePart] :: ChxPartList -> ScorePart
+ Fadno.MusicXml.MusicXml31: [clefAdditional] :: Clef -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [clefAfterBarline] :: Clef -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [clefClefOctaveChange] :: Clef -> Maybe Int
+ Fadno.MusicXml.MusicXml31: [clefColor] :: Clef -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [clefDefaultX] :: Clef -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [clefDefaultY] :: Clef -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [clefFontFamily] :: Clef -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [clefFontSize] :: Clef -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [clefFontStyle] :: Clef -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [clefFontWeight] :: Clef -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [clefId] :: Clef -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [clefLine] :: Clef -> Maybe StaffLine
+ Fadno.MusicXml.MusicXml31: [clefNumber] :: Clef -> Maybe StaffNumber
+ Fadno.MusicXml.MusicXml31: [clefPrintObject] :: Clef -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [clefRelativeX] :: Clef -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [clefRelativeY] :: Clef -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [clefSign] :: Clef -> ClefSign
+ Fadno.MusicXml.MusicXml31: [clefSize] :: Clef -> Maybe SymbolSize
+ Fadno.MusicXml.MusicXml31: [cmpdistanceType] :: Distance -> DistanceType
+ Fadno.MusicXml.MusicXml31: [cmpendingNumber] :: Ending -> EndingNumber
+ Fadno.MusicXml.MusicXml31: [cmpglyphType] :: Glyph -> GlyphType
+ Fadno.MusicXml.MusicXml31: [cmplineWidthType] :: LineWidth -> LineWidthType
+ Fadno.MusicXml.MusicXml31: [cmpmeasureId] :: CmpMeasure -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [cmpmeasureImplicit] :: CmpMeasure -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [cmpmeasureNonControlling] :: CmpMeasure -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [cmpmeasureNumber] :: CmpMeasure -> Token
+ Fadno.MusicXml.MusicXml31: [cmpmeasureText1] :: CmpMeasure -> Maybe MeasureText
+ Fadno.MusicXml.MusicXml31: [cmpmeasureText] :: Measure -> Maybe MeasureText
+ Fadno.MusicXml.MusicXml31: [cmpmeasureWidth] :: CmpMeasure -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [cmppartId] :: Part -> IDREF
+ Fadno.MusicXml.MusicXml31: [codaColor] :: Coda -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [codaDefaultX] :: Coda -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [codaDefaultY] :: Coda -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [codaFontFamily] :: Coda -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [codaFontSize] :: Coda -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [codaFontStyle] :: Coda -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [codaFontWeight] :: Coda -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [codaHalign] :: Coda -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [codaId] :: Coda -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [codaRelativeX] :: Coda -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [codaRelativeY] :: Coda -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [codaSmufl] :: Coda -> Maybe SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: [codaValign] :: Coda -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [color] :: Color -> Token
+ Fadno.MusicXml.MusicXml31: [commaSeparatedText] :: CommaSeparatedText -> Token
+ Fadno.MusicXml.MusicXml31: [creditBookmark] :: Credit -> [Bookmark]
+ Fadno.MusicXml.MusicXml31: [creditCredit1] :: ChxCredit -> [SeqCredit]
+ Fadno.MusicXml.MusicXml31: [creditCreditImage] :: ChxCredit -> Image
+ Fadno.MusicXml.MusicXml31: [creditCreditSymbol] :: ChxCredit0 -> FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: [creditCreditType] :: Credit -> [String]
+ Fadno.MusicXml.MusicXml31: [creditCreditWords] :: ChxCredit0 -> FormattedTextId
+ Fadno.MusicXml.MusicXml31: [creditCredit] :: Credit -> ChxCredit
+ Fadno.MusicXml.MusicXml31: [creditId] :: Credit -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [creditLink] :: Credit -> [Link]
+ Fadno.MusicXml.MusicXml31: [creditPage] :: Credit -> Maybe PositiveInteger
+ Fadno.MusicXml.MusicXml31: [dashesColor] :: Dashes -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [dashesDashLength] :: Dashes -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [dashesDefaultX] :: Dashes -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [dashesDefaultY] :: Dashes -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [dashesId] :: Dashes -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [dashesNumber] :: Dashes -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [dashesRelativeX] :: Dashes -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [dashesRelativeY] :: Dashes -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [dashesSpaceLength] :: Dashes -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [dashesType] :: Dashes -> StartStopContinue
+ Fadno.MusicXml.MusicXml31: [defaultsAppearance] :: Defaults -> Maybe Appearance
+ Fadno.MusicXml.MusicXml31: [defaultsLayout] :: Defaults -> Layout
+ Fadno.MusicXml.MusicXml31: [defaultsLyricFont] :: Defaults -> [LyricFont]
+ Fadno.MusicXml.MusicXml31: [defaultsLyricLanguage] :: Defaults -> [LyricLanguage]
+ Fadno.MusicXml.MusicXml31: [defaultsMusicFont] :: Defaults -> Maybe EmptyFont
+ Fadno.MusicXml.MusicXml31: [defaultsScaling] :: Defaults -> Maybe Scaling
+ Fadno.MusicXml.MusicXml31: [defaultsWordFont] :: Defaults -> Maybe EmptyFont
+ Fadno.MusicXml.MusicXml31: [degreeAlterColor] :: DegreeAlter -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [degreeAlterDefaultX] :: DegreeAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeAlterDefaultY] :: DegreeAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeAlterFontFamily] :: DegreeAlter -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [degreeAlterFontSize] :: DegreeAlter -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [degreeAlterFontStyle] :: DegreeAlter -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [degreeAlterFontWeight] :: DegreeAlter -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [degreeAlterPlusMinus] :: DegreeAlter -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [degreeAlterRelativeX] :: DegreeAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeAlterRelativeY] :: DegreeAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeAlterSemitones] :: DegreeAlter -> Semitones
+ Fadno.MusicXml.MusicXml31: [degreeDegreeAlter] :: Degree -> DegreeAlter
+ Fadno.MusicXml.MusicXml31: [degreeDegreeType] :: Degree -> DegreeType
+ Fadno.MusicXml.MusicXml31: [degreeDegreeValue] :: Degree -> DegreeValue
+ Fadno.MusicXml.MusicXml31: [degreePrintObject] :: Degree -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [degreeTypeColor] :: DegreeType -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [degreeTypeDefaultX] :: DegreeType -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeTypeDefaultY] :: DegreeType -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeTypeDegreeTypeValue] :: DegreeType -> DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: [degreeTypeFontFamily] :: DegreeType -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [degreeTypeFontSize] :: DegreeType -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [degreeTypeFontStyle] :: DegreeType -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [degreeTypeFontWeight] :: DegreeType -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [degreeTypeRelativeX] :: DegreeType -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeTypeRelativeY] :: DegreeType -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeTypeText] :: DegreeType -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [degreeValueColor] :: DegreeValue -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [degreeValueDefaultX] :: DegreeValue -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeValueDefaultY] :: DegreeValue -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeValueFontFamily] :: DegreeValue -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [degreeValueFontSize] :: DegreeValue -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [degreeValueFontStyle] :: DegreeValue -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [degreeValueFontWeight] :: DegreeValue -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [degreeValuePositiveInteger] :: DegreeValue -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [degreeValueRelativeX] :: DegreeValue -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeValueRelativeY] :: DegreeValue -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [degreeValueSymbol] :: DegreeValue -> Maybe DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: [degreeValueText] :: DegreeValue -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [directionDirectionType] :: Direction -> [DirectionType]
+ Fadno.MusicXml.MusicXml31: [directionDirective] :: Direction -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [directionEditorialVoiceDirection] :: Direction -> EditorialVoiceDirection
+ Fadno.MusicXml.MusicXml31: [directionId] :: Direction -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [directionOffset] :: Direction -> Maybe Offset
+ Fadno.MusicXml.MusicXml31: [directionPlacement] :: Direction -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [directionSound] :: Direction -> Maybe Sound
+ Fadno.MusicXml.MusicXml31: [directionStaff] :: Direction -> Maybe Staff
+ Fadno.MusicXml.MusicXml31: [directionTypeAccordionRegistration] :: ChxDirectionType -> AccordionRegistration
+ Fadno.MusicXml.MusicXml31: [directionTypeBracket] :: ChxDirectionType -> Bracket
+ Fadno.MusicXml.MusicXml31: [directionTypeCoda] :: ChxDirectionType -> [Coda]
+ Fadno.MusicXml.MusicXml31: [directionTypeDampAll] :: ChxDirectionType -> EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: [directionTypeDamp] :: ChxDirectionType -> EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: [directionTypeDashes] :: ChxDirectionType -> Dashes
+ Fadno.MusicXml.MusicXml31: [directionTypeDirectionType] :: DirectionType -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: [directionTypeDynamics] :: ChxDirectionType -> [Dynamics]
+ Fadno.MusicXml.MusicXml31: [directionTypeEyeglasses] :: ChxDirectionType -> EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: [directionTypeHarpPedals] :: ChxDirectionType -> HarpPedals
+ Fadno.MusicXml.MusicXml31: [directionTypeId] :: DirectionType -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [directionTypeImage] :: ChxDirectionType -> Image
+ Fadno.MusicXml.MusicXml31: [directionTypeMetronome] :: ChxDirectionType -> Metronome
+ Fadno.MusicXml.MusicXml31: [directionTypeOctaveShift] :: ChxDirectionType -> OctaveShift
+ Fadno.MusicXml.MusicXml31: [directionTypeOtherDirection] :: ChxDirectionType -> OtherDirection
+ Fadno.MusicXml.MusicXml31: [directionTypePedal] :: ChxDirectionType -> Pedal
+ Fadno.MusicXml.MusicXml31: [directionTypePercussion] :: ChxDirectionType -> [Percussion]
+ Fadno.MusicXml.MusicXml31: [directionTypePrincipalVoice] :: ChxDirectionType -> PrincipalVoice
+ Fadno.MusicXml.MusicXml31: [directionTypeRehearsal] :: ChxDirectionType -> [FormattedTextId]
+ Fadno.MusicXml.MusicXml31: [directionTypeScordatura] :: ChxDirectionType -> Scordatura
+ Fadno.MusicXml.MusicXml31: [directionTypeSegno] :: ChxDirectionType -> [Segno]
+ Fadno.MusicXml.MusicXml31: [directionTypeStaffDivide] :: ChxDirectionType -> StaffDivide
+ Fadno.MusicXml.MusicXml31: [directionTypeStringMute] :: ChxDirectionType -> StringMute
+ Fadno.MusicXml.MusicXml31: [directionTypeSymbol] :: ChxDirectionType0 -> FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: [directionTypeWedge] :: ChxDirectionType -> Wedge
+ Fadno.MusicXml.MusicXml31: [directionTypeWords] :: ChxDirectionType0 -> FormattedTextId
+ Fadno.MusicXml.MusicXml31: [directiveColor] :: Directive -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [directiveDefaultX] :: Directive -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [directiveDefaultY] :: Directive -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [directiveFontFamily] :: Directive -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [directiveFontSize] :: Directive -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [directiveFontStyle] :: Directive -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [directiveFontWeight] :: Directive -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [directiveLang] :: Directive -> Maybe Lang
+ Fadno.MusicXml.MusicXml31: [directiveRelativeX] :: Directive -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [directiveRelativeY] :: Directive -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [directiveString] :: Directive -> String
+ Fadno.MusicXml.MusicXml31: [displayStepOctaveDisplayOctave] :: DisplayStepOctave -> Octave
+ Fadno.MusicXml.MusicXml31: [displayStepOctaveDisplayStep] :: DisplayStepOctave -> Step
+ Fadno.MusicXml.MusicXml31: [distanceTenths] :: Distance -> Tenths
+ Fadno.MusicXml.MusicXml31: [distanceType] :: DistanceType -> Token
+ Fadno.MusicXml.MusicXml31: [divisions] :: Divisions -> Decimal
+ Fadno.MusicXml.MusicXml31: [durationDuration] :: Duration -> PositiveDivisions
+ Fadno.MusicXml.MusicXml31: [dynamicsColor] :: Dynamics -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [dynamicsDefaultX] :: Dynamics -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [dynamicsDefaultY] :: Dynamics -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [dynamicsDynamics] :: Dynamics -> [ChxDynamics]
+ Fadno.MusicXml.MusicXml31: [dynamicsEnclosure] :: Dynamics -> Maybe EnclosureShape
+ Fadno.MusicXml.MusicXml31: [dynamicsF] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsFf] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsFff] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsFfff] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsFffff] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsFfffff] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsFontFamily] :: Dynamics -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [dynamicsFontSize] :: Dynamics -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [dynamicsFontStyle] :: Dynamics -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [dynamicsFontWeight] :: Dynamics -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [dynamicsFp] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsFz] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsHalign] :: Dynamics -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [dynamicsId] :: Dynamics -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [dynamicsLineThrough] :: Dynamics -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [dynamicsMf] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsMp] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsN] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsOtherDynamics] :: ChxDynamics -> OtherText
+ Fadno.MusicXml.MusicXml31: [dynamicsOverline] :: Dynamics -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [dynamicsP] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsPf] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsPlacement] :: Dynamics -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [dynamicsPp] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsPpp] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsPppp] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsPpppp] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsPppppp] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsRelativeX] :: Dynamics -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [dynamicsRelativeY] :: Dynamics -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [dynamicsRf] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsRfz] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsSf] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsSffz] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsSfp] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsSfpp] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsSfz] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsSfzp] :: ChxDynamics -> Empty
+ Fadno.MusicXml.MusicXml31: [dynamicsUnderline] :: Dynamics -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [dynamicsValign] :: Dynamics -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [editorialFootnote] :: Editorial -> Maybe Footnote
+ Fadno.MusicXml.MusicXml31: [editorialLevel] :: Editorial -> Maybe GrpLevel
+ Fadno.MusicXml.MusicXml31: [editorialVoiceDirectionFootnote] :: EditorialVoiceDirection -> Maybe Footnote
+ Fadno.MusicXml.MusicXml31: [editorialVoiceDirectionLevel] :: EditorialVoiceDirection -> Maybe GrpLevel
+ Fadno.MusicXml.MusicXml31: [editorialVoiceDirectionVoice] :: EditorialVoiceDirection -> Maybe Voice
+ Fadno.MusicXml.MusicXml31: [editorialVoiceFootnote] :: EditorialVoice -> Maybe Footnote
+ Fadno.MusicXml.MusicXml31: [editorialVoiceLevel] :: EditorialVoice -> Maybe GrpLevel
+ Fadno.MusicXml.MusicXml31: [editorialVoiceVoice] :: EditorialVoice -> Maybe Voice
+ Fadno.MusicXml.MusicXml31: [elisionColor] :: Elision -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [elisionFontFamily] :: Elision -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [elisionFontSize] :: Elision -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [elisionFontStyle] :: Elision -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [elisionFontWeight] :: Elision -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [elisionSmufl] :: Elision -> Maybe SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: [elisionString] :: Elision -> String
+ Fadno.MusicXml.MusicXml31: [emptyFontFontFamily] :: EmptyFont -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [emptyFontFontSize] :: EmptyFont -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [emptyFontFontStyle] :: EmptyFont -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [emptyFontFontWeight] :: EmptyFont -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [emptyLineColor] :: EmptyLine -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [emptyLineDashLength] :: EmptyLine -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyLineDefaultX] :: EmptyLine -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyLineDefaultY] :: EmptyLine -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyLineFontFamily] :: EmptyLine -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [emptyLineFontSize] :: EmptyLine -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [emptyLineFontStyle] :: EmptyLine -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [emptyLineFontWeight] :: EmptyLine -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [emptyLineLineLength] :: EmptyLine -> Maybe LineLength
+ Fadno.MusicXml.MusicXml31: [emptyLineLineShape] :: EmptyLine -> Maybe LineShape
+ Fadno.MusicXml.MusicXml31: [emptyLineLineType] :: EmptyLine -> Maybe LineType
+ Fadno.MusicXml.MusicXml31: [emptyLinePlacement] :: EmptyLine -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [emptyLineRelativeX] :: EmptyLine -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyLineRelativeY] :: EmptyLine -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyLineSpaceLength] :: EmptyLine -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPlacementColor] :: EmptyPlacement -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [emptyPlacementDefaultX] :: EmptyPlacement -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPlacementDefaultY] :: EmptyPlacement -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPlacementFontFamily] :: EmptyPlacement -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [emptyPlacementFontSize] :: EmptyPlacement -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [emptyPlacementFontStyle] :: EmptyPlacement -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [emptyPlacementFontWeight] :: EmptyPlacement -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [emptyPlacementPlacement] :: EmptyPlacement -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [emptyPlacementRelativeX] :: EmptyPlacement -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPlacementRelativeY] :: EmptyPlacement -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflColor] :: EmptyPlacementSmufl -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflDefaultX] :: EmptyPlacementSmufl -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflDefaultY] :: EmptyPlacementSmufl -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflFontFamily] :: EmptyPlacementSmufl -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflFontSize] :: EmptyPlacementSmufl -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflFontStyle] :: EmptyPlacementSmufl -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflFontWeight] :: EmptyPlacementSmufl -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflPlacement] :: EmptyPlacementSmufl -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflRelativeX] :: EmptyPlacementSmufl -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflRelativeY] :: EmptyPlacementSmufl -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPlacementSmuflSmufl] :: EmptyPlacementSmufl -> Maybe SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignColor] :: EmptyPrintObjectStyleAlign -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignDefaultX] :: EmptyPrintObjectStyleAlign -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignDefaultY] :: EmptyPrintObjectStyleAlign -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignFontFamily] :: EmptyPrintObjectStyleAlign -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignFontSize] :: EmptyPrintObjectStyleAlign -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignFontStyle] :: EmptyPrintObjectStyleAlign -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignFontWeight] :: EmptyPrintObjectStyleAlign -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignHalign] :: EmptyPrintObjectStyleAlign -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignPrintObject] :: EmptyPrintObjectStyleAlign -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignRelativeX] :: EmptyPrintObjectStyleAlign -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignRelativeY] :: EmptyPrintObjectStyleAlign -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPrintObjectStyleAlignValign] :: EmptyPrintObjectStyleAlign -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdColor] :: EmptyPrintStyleAlignId -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdDefaultX] :: EmptyPrintStyleAlignId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdDefaultY] :: EmptyPrintStyleAlignId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdFontFamily] :: EmptyPrintStyleAlignId -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdFontSize] :: EmptyPrintStyleAlignId -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdFontStyle] :: EmptyPrintStyleAlignId -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdFontWeight] :: EmptyPrintStyleAlignId -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdHalign] :: EmptyPrintStyleAlignId -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdId] :: EmptyPrintStyleAlignId -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdRelativeX] :: EmptyPrintStyleAlignId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdRelativeY] :: EmptyPrintStyleAlignId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyPrintStyleAlignIdValign] :: EmptyPrintStyleAlignId -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundAccelerate] :: EmptyTrillSound -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundBeats] :: EmptyTrillSound -> Maybe TrillBeats
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundColor] :: EmptyTrillSound -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundDefaultX] :: EmptyTrillSound -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundDefaultY] :: EmptyTrillSound -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundFontFamily] :: EmptyTrillSound -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundFontSize] :: EmptyTrillSound -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundFontStyle] :: EmptyTrillSound -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundFontWeight] :: EmptyTrillSound -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundLastBeat] :: EmptyTrillSound -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundPlacement] :: EmptyTrillSound -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundRelativeX] :: EmptyTrillSound -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundRelativeY] :: EmptyTrillSound -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundSecondBeat] :: EmptyTrillSound -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundStartNote] :: EmptyTrillSound -> Maybe StartNote
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundTrillStep] :: EmptyTrillSound -> Maybe TrillStep
+ Fadno.MusicXml.MusicXml31: [emptyTrillSoundTwoNoteTurn] :: EmptyTrillSound -> Maybe TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: [encodingEncoder] :: ChxEncoding -> TypedText
+ Fadno.MusicXml.MusicXml31: [encodingEncodingDate] :: ChxEncoding -> YyyyMmDd
+ Fadno.MusicXml.MusicXml31: [encodingEncodingDescription] :: ChxEncoding -> String
+ Fadno.MusicXml.MusicXml31: [encodingEncoding] :: Encoding -> [ChxEncoding]
+ Fadno.MusicXml.MusicXml31: [encodingSoftware] :: ChxEncoding -> String
+ Fadno.MusicXml.MusicXml31: [encodingSupports] :: ChxEncoding -> Supports
+ Fadno.MusicXml.MusicXml31: [endingColor] :: Ending -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [endingDefaultX] :: Ending -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [endingDefaultY] :: Ending -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [endingEndLength] :: Ending -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [endingFontFamily] :: Ending -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [endingFontSize] :: Ending -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [endingFontStyle] :: Ending -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [endingFontWeight] :: Ending -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [endingNumber] :: EndingNumber -> Token
+ Fadno.MusicXml.MusicXml31: [endingPrintObject] :: Ending -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [endingRelativeX] :: Ending -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [endingRelativeY] :: Ending -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [endingString] :: Ending -> String
+ Fadno.MusicXml.MusicXml31: [endingTextX] :: Ending -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [endingTextY] :: Ending -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [endingType] :: Ending -> StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: [extendColor] :: Extend -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [extendDefaultX] :: Extend -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [extendDefaultY] :: Extend -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [extendRelativeX] :: Extend -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [extendRelativeY] :: Extend -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [extendType] :: Extend -> Maybe StartStopContinue
+ Fadno.MusicXml.MusicXml31: [featureString] :: Feature -> String
+ Fadno.MusicXml.MusicXml31: [featureType] :: Feature -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [fermataColor] :: Fermata -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [fermataDefaultX] :: Fermata -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [fermataDefaultY] :: Fermata -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [fermataFermataShape] :: Fermata -> FermataShape
+ Fadno.MusicXml.MusicXml31: [fermataFontFamily] :: Fermata -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [fermataFontSize] :: Fermata -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [fermataFontStyle] :: Fermata -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [fermataFontWeight] :: Fermata -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [fermataId] :: Fermata -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [fermataRelativeX] :: Fermata -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [fermataRelativeY] :: Fermata -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [fermataType] :: Fermata -> Maybe UprightInverted
+ Fadno.MusicXml.MusicXml31: [fifths] :: Fifths -> Int
+ Fadno.MusicXml.MusicXml31: [figureEditorial] :: Figure -> Editorial
+ Fadno.MusicXml.MusicXml31: [figureExtend] :: Figure -> Maybe Extend
+ Fadno.MusicXml.MusicXml31: [figureFigureNumber] :: Figure -> Maybe StyleText
+ Fadno.MusicXml.MusicXml31: [figurePrefix] :: Figure -> Maybe StyleText
+ Fadno.MusicXml.MusicXml31: [figureSuffix] :: Figure -> Maybe StyleText
+ Fadno.MusicXml.MusicXml31: [figuredBassColor] :: FiguredBass -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [figuredBassDefaultX] :: FiguredBass -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [figuredBassDefaultY] :: FiguredBass -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [figuredBassDuration] :: FiguredBass -> Maybe Duration
+ Fadno.MusicXml.MusicXml31: [figuredBassEditorial] :: FiguredBass -> Editorial
+ Fadno.MusicXml.MusicXml31: [figuredBassFigure] :: FiguredBass -> [Figure]
+ Fadno.MusicXml.MusicXml31: [figuredBassFontFamily] :: FiguredBass -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [figuredBassFontSize] :: FiguredBass -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [figuredBassFontStyle] :: FiguredBass -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [figuredBassFontWeight] :: FiguredBass -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [figuredBassId] :: FiguredBass -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [figuredBassParentheses] :: FiguredBass -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [figuredBassPrintDot] :: FiguredBass -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [figuredBassPrintLyric] :: FiguredBass -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [figuredBassPrintObject] :: FiguredBass -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [figuredBassPrintSpacing] :: FiguredBass -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [figuredBassRelativeX] :: FiguredBass -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [figuredBassRelativeY] :: FiguredBass -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [fingeringAlternate] :: Fingering -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [fingeringColor] :: Fingering -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [fingeringDefaultX] :: Fingering -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [fingeringDefaultY] :: Fingering -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [fingeringFontFamily] :: Fingering -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [fingeringFontSize] :: Fingering -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [fingeringFontStyle] :: Fingering -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [fingeringFontWeight] :: Fingering -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [fingeringPlacement] :: Fingering -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [fingeringRelativeX] :: Fingering -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [fingeringRelativeY] :: Fingering -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [fingeringString] :: Fingering -> String
+ Fadno.MusicXml.MusicXml31: [fingeringSubstitution] :: Fingering -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [firstFretLocation] :: FirstFret -> Maybe LeftRight
+ Fadno.MusicXml.MusicXml31: [firstFretPositiveInteger] :: FirstFret -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [firstFretText] :: FirstFret -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [fontSize1] :: FontSize -> Decimal
+ Fadno.MusicXml.MusicXml31: [fontSize2] :: FontSize -> CssFontSize
+ Fadno.MusicXml.MusicXml31: [footnoteFootnote] :: Footnote -> FormattedText
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdColor] :: FormattedSymbolId -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdDefaultX] :: FormattedSymbolId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdDefaultY] :: FormattedSymbolId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdDir] :: FormattedSymbolId -> Maybe TextDirection
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdEnclosure] :: FormattedSymbolId -> Maybe EnclosureShape
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdFontFamily] :: FormattedSymbolId -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdFontSize] :: FormattedSymbolId -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdFontStyle] :: FormattedSymbolId -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdFontWeight] :: FormattedSymbolId -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdHalign] :: FormattedSymbolId -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdId] :: FormattedSymbolId -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdJustify] :: FormattedSymbolId -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdLetterSpacing] :: FormattedSymbolId -> Maybe NumberOrNormal
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdLineHeight] :: FormattedSymbolId -> Maybe NumberOrNormal
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdLineThrough] :: FormattedSymbolId -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdOverline] :: FormattedSymbolId -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdRelativeX] :: FormattedSymbolId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdRelativeY] :: FormattedSymbolId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdRotation] :: FormattedSymbolId -> Maybe RotationDegrees
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdSmuflGlyphName] :: FormattedSymbolId -> SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdUnderline] :: FormattedSymbolId -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [formattedSymbolIdValign] :: FormattedSymbolId -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [formattedTextColor] :: FormattedText -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [formattedTextDefaultX] :: FormattedText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedTextDefaultY] :: FormattedText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedTextDir] :: FormattedText -> Maybe TextDirection
+ Fadno.MusicXml.MusicXml31: [formattedTextEnclosure] :: FormattedText -> Maybe EnclosureShape
+ Fadno.MusicXml.MusicXml31: [formattedTextFontFamily] :: FormattedText -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [formattedTextFontSize] :: FormattedText -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [formattedTextFontStyle] :: FormattedText -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [formattedTextFontWeight] :: FormattedText -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [formattedTextHalign] :: FormattedText -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [formattedTextIdColor] :: FormattedTextId -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [formattedTextIdDefaultX] :: FormattedTextId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedTextIdDefaultY] :: FormattedTextId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedTextIdDir] :: FormattedTextId -> Maybe TextDirection
+ Fadno.MusicXml.MusicXml31: [formattedTextIdEnclosure] :: FormattedTextId -> Maybe EnclosureShape
+ Fadno.MusicXml.MusicXml31: [formattedTextIdFontFamily] :: FormattedTextId -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [formattedTextIdFontSize] :: FormattedTextId -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [formattedTextIdFontStyle] :: FormattedTextId -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [formattedTextIdFontWeight] :: FormattedTextId -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [formattedTextIdHalign] :: FormattedTextId -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [formattedTextIdId] :: FormattedTextId -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [formattedTextIdJustify] :: FormattedTextId -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [formattedTextIdLang] :: FormattedTextId -> Maybe Lang
+ Fadno.MusicXml.MusicXml31: [formattedTextIdLetterSpacing] :: FormattedTextId -> Maybe NumberOrNormal
+ Fadno.MusicXml.MusicXml31: [formattedTextIdLineHeight] :: FormattedTextId -> Maybe NumberOrNormal
+ Fadno.MusicXml.MusicXml31: [formattedTextIdLineThrough] :: FormattedTextId -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [formattedTextIdOverline] :: FormattedTextId -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [formattedTextIdRelativeX] :: FormattedTextId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedTextIdRelativeY] :: FormattedTextId -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedTextIdRotation] :: FormattedTextId -> Maybe RotationDegrees
+ Fadno.MusicXml.MusicXml31: [formattedTextIdSpace] :: FormattedTextId -> Maybe Space
+ Fadno.MusicXml.MusicXml31: [formattedTextIdString] :: FormattedTextId -> String
+ Fadno.MusicXml.MusicXml31: [formattedTextIdUnderline] :: FormattedTextId -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [formattedTextIdValign] :: FormattedTextId -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [formattedTextJustify] :: FormattedText -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [formattedTextLang] :: FormattedText -> Maybe Lang
+ Fadno.MusicXml.MusicXml31: [formattedTextLetterSpacing] :: FormattedText -> Maybe NumberOrNormal
+ Fadno.MusicXml.MusicXml31: [formattedTextLineHeight] :: FormattedText -> Maybe NumberOrNormal
+ Fadno.MusicXml.MusicXml31: [formattedTextLineThrough] :: FormattedText -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [formattedTextOverline] :: FormattedText -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [formattedTextRelativeX] :: FormattedText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedTextRelativeY] :: FormattedText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [formattedTextRotation] :: FormattedText -> Maybe RotationDegrees
+ Fadno.MusicXml.MusicXml31: [formattedTextSpace] :: FormattedText -> Maybe Space
+ Fadno.MusicXml.MusicXml31: [formattedTextString] :: FormattedText -> String
+ Fadno.MusicXml.MusicXml31: [formattedTextUnderline] :: FormattedText -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [formattedTextValign] :: FormattedText -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [forwardDuration] :: Forward -> Duration
+ Fadno.MusicXml.MusicXml31: [forwardEditorialVoice] :: Forward -> EditorialVoice
+ Fadno.MusicXml.MusicXml31: [forwardStaff] :: Forward -> Maybe Staff
+ Fadno.MusicXml.MusicXml31: [frameColor] :: Frame -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [frameDefaultX] :: Frame -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [frameDefaultY] :: Frame -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [frameFirstFret] :: Frame -> Maybe FirstFret
+ Fadno.MusicXml.MusicXml31: [frameFrameFrets] :: Frame -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [frameFrameNote] :: Frame -> [FrameNote]
+ Fadno.MusicXml.MusicXml31: [frameFrameStrings] :: Frame -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [frameHalign] :: Frame -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [frameHeight] :: Frame -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [frameId] :: Frame -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [frameNoteBarre] :: FrameNote -> Maybe Barre
+ Fadno.MusicXml.MusicXml31: [frameNoteFingering] :: FrameNote -> Maybe Fingering
+ Fadno.MusicXml.MusicXml31: [frameNoteFret] :: FrameNote -> Fret
+ Fadno.MusicXml.MusicXml31: [frameNoteString] :: FrameNote -> CmpString
+ Fadno.MusicXml.MusicXml31: [frameRelativeX] :: Frame -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [frameRelativeY] :: Frame -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [frameUnplayed] :: Frame -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [frameValign] :: Frame -> Maybe ValignImage
+ Fadno.MusicXml.MusicXml31: [frameWidth] :: Frame -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [fretColor] :: Fret -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [fretFontFamily] :: Fret -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [fretFontSize] :: Fret -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [fretFontStyle] :: Fret -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [fretFontWeight] :: Fret -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [fretNonNegativeInteger] :: Fret -> NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [fullNoteChord] :: GrpFullNote -> Maybe Empty
+ Fadno.MusicXml.MusicXml31: [fullNoteFullNote] :: GrpFullNote -> FullNote
+ Fadno.MusicXml.MusicXml31: [fullNotePitch] :: FullNote -> Pitch
+ Fadno.MusicXml.MusicXml31: [fullNoteRest] :: FullNote -> Rest
+ Fadno.MusicXml.MusicXml31: [fullNoteUnpitched] :: FullNote -> Unpitched
+ Fadno.MusicXml.MusicXml31: [glassGlassValue] :: Glass -> GlassValue
+ Fadno.MusicXml.MusicXml31: [glassSmufl] :: Glass -> Maybe SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: [glissandoColor] :: Glissando -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [glissandoDashLength] :: Glissando -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [glissandoDefaultX] :: Glissando -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [glissandoDefaultY] :: Glissando -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [glissandoFontFamily] :: Glissando -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [glissandoFontSize] :: Glissando -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [glissandoFontStyle] :: Glissando -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [glissandoFontWeight] :: Glissando -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [glissandoId] :: Glissando -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [glissandoLineType] :: Glissando -> Maybe LineType
+ Fadno.MusicXml.MusicXml31: [glissandoNumber] :: Glissando -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [glissandoRelativeX] :: Glissando -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [glissandoRelativeY] :: Glissando -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [glissandoSpaceLength] :: Glissando -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [glissandoString] :: Glissando -> String
+ Fadno.MusicXml.MusicXml31: [glissandoType] :: Glissando -> StartStop
+ Fadno.MusicXml.MusicXml31: [glyphSmuflGlyphName] :: Glyph -> SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [glyphType] :: GlyphType -> Token
+ Fadno.MusicXml.MusicXml31: [graceMakeTime] :: Grace -> Maybe Divisions
+ Fadno.MusicXml.MusicXml31: [graceSlash] :: Grace -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [graceStealTimeFollowing] :: Grace -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [graceStealTimePrevious] :: Grace -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [groupBarlineColor] :: GroupBarline -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [groupBarlineGroupBarlineValue] :: GroupBarline -> GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: [groupNameColor] :: GroupName -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [groupNameDefaultX] :: GroupName -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [groupNameDefaultY] :: GroupName -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [groupNameFontFamily] :: GroupName -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [groupNameFontSize] :: GroupName -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [groupNameFontStyle] :: GroupName -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [groupNameFontWeight] :: GroupName -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [groupNameJustify] :: GroupName -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [groupNameRelativeX] :: GroupName -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [groupNameRelativeY] :: GroupName -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [groupNameString] :: GroupName -> String
+ Fadno.MusicXml.MusicXml31: [groupSymbolColor] :: GroupSymbol -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [groupSymbolDefaultX] :: GroupSymbol -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [groupSymbolDefaultY] :: GroupSymbol -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [groupSymbolGroupSymbolValue] :: GroupSymbol -> GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: [groupSymbolRelativeX] :: GroupSymbol -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [groupSymbolRelativeY] :: GroupSymbol -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [groupingFeature] :: Grouping -> [Feature]
+ Fadno.MusicXml.MusicXml31: [groupingId] :: Grouping -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [groupingMemberOf] :: Grouping -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [groupingNumber] :: Grouping -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [groupingType] :: Grouping -> StartStopSingle
+ Fadno.MusicXml.MusicXml31: [grpscorePartScorePart] :: ScorePart -> CmpScorePart
+ Fadno.MusicXml.MusicXml31: [grpslashSlash] :: Slash -> Maybe SeqSlash
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffColor] :: HammerOnPullOff -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffDefaultX] :: HammerOnPullOff -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffDefaultY] :: HammerOnPullOff -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffFontFamily] :: HammerOnPullOff -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffFontSize] :: HammerOnPullOff -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffFontStyle] :: HammerOnPullOff -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffFontWeight] :: HammerOnPullOff -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffNumber] :: HammerOnPullOff -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffPlacement] :: HammerOnPullOff -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffRelativeX] :: HammerOnPullOff -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffRelativeY] :: HammerOnPullOff -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffString] :: HammerOnPullOff -> String
+ Fadno.MusicXml.MusicXml31: [hammerOnPullOffType] :: HammerOnPullOff -> StartStop
+ Fadno.MusicXml.MusicXml31: [handbellColor] :: Handbell -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [handbellDefaultX] :: Handbell -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [handbellDefaultY] :: Handbell -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [handbellFontFamily] :: Handbell -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [handbellFontSize] :: Handbell -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [handbellFontStyle] :: Handbell -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [handbellFontWeight] :: Handbell -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [handbellHandbellValue] :: Handbell -> HandbellValue
+ Fadno.MusicXml.MusicXml31: [handbellPlacement] :: Handbell -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [handbellRelativeX] :: Handbell -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [handbellRelativeY] :: Handbell -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonClosedHarmonClosedValue] :: HarmonClosed -> HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: [harmonClosedLocation] :: HarmonClosed -> Maybe HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: [harmonMuteColor] :: HarmonMute -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [harmonMuteDefaultX] :: HarmonMute -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonMuteDefaultY] :: HarmonMute -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonMuteFontFamily] :: HarmonMute -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [harmonMuteFontSize] :: HarmonMute -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [harmonMuteFontStyle] :: HarmonMute -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [harmonMuteFontWeight] :: HarmonMute -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [harmonMuteHarmonClosed] :: HarmonMute -> HarmonClosed
+ Fadno.MusicXml.MusicXml31: [harmonMutePlacement] :: HarmonMute -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [harmonMuteRelativeX] :: HarmonMute -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonMuteRelativeY] :: HarmonMute -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonicArtificial] :: ChxHarmonic -> Empty
+ Fadno.MusicXml.MusicXml31: [harmonicBasePitch] :: ChxHarmonic1 -> Empty
+ Fadno.MusicXml.MusicXml31: [harmonicColor] :: Harmonic -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [harmonicDefaultX] :: Harmonic -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonicDefaultY] :: Harmonic -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonicFontFamily] :: Harmonic -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [harmonicFontSize] :: Harmonic -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [harmonicFontStyle] :: Harmonic -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [harmonicFontWeight] :: Harmonic -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [harmonicHarmonic1] :: Harmonic -> Maybe ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: [harmonicHarmonic] :: Harmonic -> Maybe ChxHarmonic
+ Fadno.MusicXml.MusicXml31: [harmonicNatural] :: ChxHarmonic -> Empty
+ Fadno.MusicXml.MusicXml31: [harmonicPlacement] :: Harmonic -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [harmonicPrintObject] :: Harmonic -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [harmonicRelativeX] :: Harmonic -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonicRelativeY] :: Harmonic -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonicSoundingPitch] :: ChxHarmonic1 -> Empty
+ Fadno.MusicXml.MusicXml31: [harmonicTouchingPitch] :: ChxHarmonic1 -> Empty
+ Fadno.MusicXml.MusicXml31: [harmonyChordBass] :: HarmonyChord -> Maybe Bass
+ Fadno.MusicXml.MusicXml31: [harmonyChordDegree] :: HarmonyChord -> [Degree]
+ Fadno.MusicXml.MusicXml31: [harmonyChordFunction] :: ChxHarmonyChord -> StyleText
+ Fadno.MusicXml.MusicXml31: [harmonyChordHarmonyChord] :: HarmonyChord -> ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: [harmonyChordInversion] :: HarmonyChord -> Maybe Inversion
+ Fadno.MusicXml.MusicXml31: [harmonyChordKind] :: HarmonyChord -> Kind
+ Fadno.MusicXml.MusicXml31: [harmonyChordRoot] :: ChxHarmonyChord -> Root
+ Fadno.MusicXml.MusicXml31: [harmonyColor] :: Harmony -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [harmonyDefaultX] :: Harmony -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonyDefaultY] :: Harmony -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonyEditorial] :: Harmony -> Editorial
+ Fadno.MusicXml.MusicXml31: [harmonyFontFamily] :: Harmony -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [harmonyFontSize] :: Harmony -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [harmonyFontStyle] :: Harmony -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [harmonyFontWeight] :: Harmony -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [harmonyFrame] :: Harmony -> Maybe Frame
+ Fadno.MusicXml.MusicXml31: [harmonyHarmonyChord] :: Harmony -> [HarmonyChord]
+ Fadno.MusicXml.MusicXml31: [harmonyId] :: Harmony -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [harmonyOffset] :: Harmony -> Maybe Offset
+ Fadno.MusicXml.MusicXml31: [harmonyPlacement] :: Harmony -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [harmonyPrintFrame] :: Harmony -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [harmonyPrintObject] :: Harmony -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [harmonyRelativeX] :: Harmony -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonyRelativeY] :: Harmony -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harmonyStaff] :: Harmony -> Maybe Staff
+ Fadno.MusicXml.MusicXml31: [harmonyType] :: Harmony -> Maybe HarmonyType
+ Fadno.MusicXml.MusicXml31: [harpPedalsColor] :: HarpPedals -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [harpPedalsDefaultX] :: HarpPedals -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harpPedalsDefaultY] :: HarpPedals -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harpPedalsFontFamily] :: HarpPedals -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [harpPedalsFontSize] :: HarpPedals -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [harpPedalsFontStyle] :: HarpPedals -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [harpPedalsFontWeight] :: HarpPedals -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [harpPedalsHalign] :: HarpPedals -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [harpPedalsId] :: HarpPedals -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [harpPedalsPedalTuning] :: HarpPedals -> [PedalTuning]
+ Fadno.MusicXml.MusicXml31: [harpPedalsRelativeX] :: HarpPedals -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harpPedalsRelativeY] :: HarpPedals -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [harpPedalsValign] :: HarpPedals -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [heelToeEmptyPlacement] :: HeelToe -> HeelToe
+ Fadno.MusicXml.MusicXml31: [heelToeSubstitution] :: HeelToe -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [holeClosedHoleClosedValue] :: HoleClosed -> HoleClosedValue
+ Fadno.MusicXml.MusicXml31: [holeClosedLocation] :: HoleClosed -> Maybe HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: [holeColor] :: Hole -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [holeDefaultX] :: Hole -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [holeDefaultY] :: Hole -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [holeFontFamily] :: Hole -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [holeFontSize] :: Hole -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [holeFontStyle] :: Hole -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [holeFontWeight] :: Hole -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [holeHoleClosed] :: Hole -> HoleClosed
+ Fadno.MusicXml.MusicXml31: [holeHoleShape] :: Hole -> Maybe String
+ Fadno.MusicXml.MusicXml31: [holeHoleType] :: Hole -> Maybe String
+ Fadno.MusicXml.MusicXml31: [holePlacement] :: Hole -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [holeRelativeX] :: Hole -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [holeRelativeY] :: Hole -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [horizontalTurnAccelerate] :: HorizontalTurn -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [horizontalTurnBeats] :: HorizontalTurn -> Maybe TrillBeats
+ Fadno.MusicXml.MusicXml31: [horizontalTurnColor] :: HorizontalTurn -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [horizontalTurnDefaultX] :: HorizontalTurn -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [horizontalTurnDefaultY] :: HorizontalTurn -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [horizontalTurnFontFamily] :: HorizontalTurn -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [horizontalTurnFontSize] :: HorizontalTurn -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [horizontalTurnFontStyle] :: HorizontalTurn -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [horizontalTurnFontWeight] :: HorizontalTurn -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [horizontalTurnLastBeat] :: HorizontalTurn -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [horizontalTurnPlacement] :: HorizontalTurn -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [horizontalTurnRelativeX] :: HorizontalTurn -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [horizontalTurnRelativeY] :: HorizontalTurn -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [horizontalTurnSecondBeat] :: HorizontalTurn -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [horizontalTurnSlash] :: HorizontalTurn -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [horizontalTurnStartNote] :: HorizontalTurn -> Maybe StartNote
+ Fadno.MusicXml.MusicXml31: [horizontalTurnTrillStep] :: HorizontalTurn -> Maybe TrillStep
+ Fadno.MusicXml.MusicXml31: [horizontalTurnTwoNoteTurn] :: HorizontalTurn -> Maybe TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: [iDREF] :: IDREF -> NCName
+ Fadno.MusicXml.MusicXml31: [iD] :: ID -> NCName
+ Fadno.MusicXml.MusicXml31: [identificationCreator] :: Identification -> [TypedText]
+ Fadno.MusicXml.MusicXml31: [identificationEncoding] :: Identification -> Maybe Encoding
+ Fadno.MusicXml.MusicXml31: [identificationMiscellaneous] :: Identification -> Maybe Miscellaneous
+ Fadno.MusicXml.MusicXml31: [identificationRelation] :: Identification -> [TypedText]
+ Fadno.MusicXml.MusicXml31: [identificationRights] :: Identification -> [TypedText]
+ Fadno.MusicXml.MusicXml31: [identificationSource] :: Identification -> Maybe String
+ Fadno.MusicXml.MusicXml31: [imageDefaultX] :: Image -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [imageDefaultY] :: Image -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [imageHalign] :: Image -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [imageHeight] :: Image -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [imageId] :: Image -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [imageRelativeX] :: Image -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [imageRelativeY] :: Image -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [imageSource] :: Image -> String
+ Fadno.MusicXml.MusicXml31: [imageType] :: Image -> Token
+ Fadno.MusicXml.MusicXml31: [imageValign] :: Image -> Maybe ValignImage
+ Fadno.MusicXml.MusicXml31: [imageWidth] :: Image -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [instrumentId] :: Instrument -> IDREF
+ Fadno.MusicXml.MusicXml31: [interchangeableSeparator] :: Interchangeable -> Maybe TimeSeparator
+ Fadno.MusicXml.MusicXml31: [interchangeableSymbol] :: Interchangeable -> Maybe TimeSymbol
+ Fadno.MusicXml.MusicXml31: [interchangeableTimeRelation] :: Interchangeable -> Maybe TimeRelation
+ Fadno.MusicXml.MusicXml31: [interchangeableTimeSignature] :: Interchangeable -> [TimeSignature]
+ Fadno.MusicXml.MusicXml31: [inversionColor] :: Inversion -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [inversionDefaultX] :: Inversion -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [inversionDefaultY] :: Inversion -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [inversionFontFamily] :: Inversion -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [inversionFontSize] :: Inversion -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [inversionFontStyle] :: Inversion -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [inversionFontWeight] :: Inversion -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [inversionNonNegativeInteger] :: Inversion -> NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [inversionRelativeX] :: Inversion -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [inversionRelativeY] :: Inversion -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [keyAccidentalAccidentalValue] :: KeyAccidental -> AccidentalValue
+ Fadno.MusicXml.MusicXml31: [keyAccidentalSmufl] :: KeyAccidental -> Maybe SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: [keyColor] :: Key -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [keyDefaultX] :: Key -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [keyDefaultY] :: Key -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [keyFontFamily] :: Key -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [keyFontSize] :: Key -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [keyFontStyle] :: Key -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [keyFontWeight] :: Key -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [keyId] :: Key -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [keyKeyOctave] :: Key -> [KeyOctave]
+ Fadno.MusicXml.MusicXml31: [keyKey] :: Key -> ChxKey
+ Fadno.MusicXml.MusicXml31: [keyNonTraditionalKey] :: ChxKey -> [NonTraditionalKey]
+ Fadno.MusicXml.MusicXml31: [keyNumber] :: Key -> Maybe StaffNumber
+ Fadno.MusicXml.MusicXml31: [keyOctaveCancel] :: KeyOctave -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [keyOctaveNumber] :: KeyOctave -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [keyOctaveOctave] :: KeyOctave -> Octave
+ Fadno.MusicXml.MusicXml31: [keyPrintObject] :: Key -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [keyRelativeX] :: Key -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [keyRelativeY] :: Key -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [keyTraditionalKey] :: ChxKey -> TraditionalKey
+ Fadno.MusicXml.MusicXml31: [kindBracketDegrees] :: Kind -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [kindColor] :: Kind -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [kindDefaultX] :: Kind -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [kindDefaultY] :: Kind -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [kindFontFamily] :: Kind -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [kindFontSize] :: Kind -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [kindFontStyle] :: Kind -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [kindFontWeight] :: Kind -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [kindHalign] :: Kind -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [kindKindValue] :: Kind -> KindValue
+ Fadno.MusicXml.MusicXml31: [kindParenthesesDegrees] :: Kind -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [kindRelativeX] :: Kind -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [kindRelativeY] :: Kind -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [kindStackDegrees] :: Kind -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [kindText] :: Kind -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [kindUseSymbols] :: Kind -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [kindValign] :: Kind -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [lang1] :: Lang -> Language
+ Fadno.MusicXml.MusicXml31: [lang2] :: Lang -> SumLang
+ Fadno.MusicXml.MusicXml31: [language] :: Language -> Token
+ Fadno.MusicXml.MusicXml31: [layoutPageLayout] :: Layout -> Maybe PageLayout
+ Fadno.MusicXml.MusicXml31: [layoutStaffLayout] :: Layout -> [StaffLayout]
+ Fadno.MusicXml.MusicXml31: [layoutSystemLayout] :: Layout -> Maybe SystemLayout
+ Fadno.MusicXml.MusicXml31: [leftRightMarginsLeftMargin] :: LeftRightMargins -> Tenths
+ Fadno.MusicXml.MusicXml31: [leftRightMarginsRightMargin] :: LeftRightMargins -> Tenths
+ Fadno.MusicXml.MusicXml31: [levelBracket] :: Level -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [levelLevel] :: GrpLevel -> Level
+ Fadno.MusicXml.MusicXml31: [levelParentheses] :: Level -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [levelReference] :: Level -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [levelSize] :: Level -> Maybe SymbolSize
+ Fadno.MusicXml.MusicXml31: [levelString] :: Level -> String
+ Fadno.MusicXml.MusicXml31: [lineWidthTenths] :: LineWidth -> Tenths
+ Fadno.MusicXml.MusicXml31: [lineWidthType] :: LineWidthType -> Token
+ Fadno.MusicXml.MusicXml31: [linkActuate] :: Link -> Maybe Actuate
+ Fadno.MusicXml.MusicXml31: [linkDefaultX] :: Link -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [linkDefaultY] :: Link -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [linkElement] :: Link -> Maybe NMTOKEN
+ Fadno.MusicXml.MusicXml31: [linkHref] :: Link -> String
+ Fadno.MusicXml.MusicXml31: [linkName] :: Link -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [linkPosition] :: Link -> Maybe PositiveInteger
+ Fadno.MusicXml.MusicXml31: [linkRelativeX] :: Link -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [linkRelativeY] :: Link -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [linkRole] :: Link -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [linkShow] :: Link -> Maybe SmpShow
+ Fadno.MusicXml.MusicXml31: [linkTitle] :: Link -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [linkType] :: Link -> Maybe Type
+ Fadno.MusicXml.MusicXml31: [lyricColor] :: Lyric -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [lyricDefaultX] :: Lyric -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [lyricDefaultY] :: Lyric -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [lyricEditorial] :: Lyric -> Editorial
+ Fadno.MusicXml.MusicXml31: [lyricElision] :: SeqLyric0 -> Elision
+ Fadno.MusicXml.MusicXml31: [lyricEndLine] :: Lyric -> Maybe Empty
+ Fadno.MusicXml.MusicXml31: [lyricEndParagraph] :: Lyric -> Maybe Empty
+ Fadno.MusicXml.MusicXml31: [lyricExtend1] :: ChxLyric -> Extend
+ Fadno.MusicXml.MusicXml31: [lyricExtend] :: ChxLyric -> Maybe Extend
+ Fadno.MusicXml.MusicXml31: [lyricFontFontFamily] :: LyricFont -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [lyricFontFontSize] :: LyricFont -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [lyricFontFontStyle] :: LyricFont -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [lyricFontFontWeight] :: LyricFont -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [lyricFontName] :: LyricFont -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [lyricFontNumber] :: LyricFont -> Maybe NMTOKEN
+ Fadno.MusicXml.MusicXml31: [lyricHumming] :: ChxLyric -> Empty
+ Fadno.MusicXml.MusicXml31: [lyricId] :: Lyric -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [lyricJustify] :: Lyric -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [lyricLanguageLang] :: LyricLanguage -> Lang
+ Fadno.MusicXml.MusicXml31: [lyricLanguageName] :: LyricLanguage -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [lyricLanguageNumber] :: LyricLanguage -> Maybe NMTOKEN
+ Fadno.MusicXml.MusicXml31: [lyricLaughing] :: ChxLyric -> Empty
+ Fadno.MusicXml.MusicXml31: [lyricLyric] :: Lyric -> ChxLyric
+ Fadno.MusicXml.MusicXml31: [lyricName] :: Lyric -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [lyricNumber] :: Lyric -> Maybe NMTOKEN
+ Fadno.MusicXml.MusicXml31: [lyricPlacement] :: Lyric -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [lyricPrintObject] :: Lyric -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [lyricRelativeX] :: Lyric -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [lyricRelativeY] :: Lyric -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [lyricSyllabic] :: ChxLyric -> Maybe Syllabic
+ Fadno.MusicXml.MusicXml31: [lyricText] :: ChxLyric -> TextElementData
+ Fadno.MusicXml.MusicXml31: [lyricTimeOnly] :: Lyric -> Maybe TimeOnly
+ Fadno.MusicXml.MusicXml31: [measureId] :: Measure -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [measureImplicit] :: Measure -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [measureLayoutMeasureDistance] :: MeasureLayout -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [measureMusicData] :: Measure -> MusicData
+ Fadno.MusicXml.MusicXml31: [measureNonControlling] :: Measure -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [measureNumber] :: Measure -> Token
+ Fadno.MusicXml.MusicXml31: [measureNumberingColor] :: MeasureNumbering -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [measureNumberingDefaultX] :: MeasureNumbering -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [measureNumberingDefaultY] :: MeasureNumbering -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [measureNumberingFontFamily] :: MeasureNumbering -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [measureNumberingFontSize] :: MeasureNumbering -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [measureNumberingFontStyle] :: MeasureNumbering -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [measureNumberingFontWeight] :: MeasureNumbering -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [measureNumberingHalign] :: MeasureNumbering -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [measureNumberingMeasureNumberingValue] :: MeasureNumbering -> MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: [measureNumberingRelativeX] :: MeasureNumbering -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [measureNumberingRelativeY] :: MeasureNumbering -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [measureNumberingValign] :: MeasureNumbering -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [measurePart] :: CmpMeasure -> [Part]
+ Fadno.MusicXml.MusicXml31: [measureRepeatPositiveIntegerOrEmpty] :: MeasureRepeat -> PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: [measureRepeatSlashes] :: MeasureRepeat -> Maybe PositiveInteger
+ Fadno.MusicXml.MusicXml31: [measureRepeatType] :: MeasureRepeat -> StartStop
+ Fadno.MusicXml.MusicXml31: [measureStyleBeatRepeat] :: ChxMeasureStyle -> BeatRepeat
+ Fadno.MusicXml.MusicXml31: [measureStyleColor] :: MeasureStyle -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [measureStyleFontFamily] :: MeasureStyle -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [measureStyleFontSize] :: MeasureStyle -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [measureStyleFontStyle] :: MeasureStyle -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [measureStyleFontWeight] :: MeasureStyle -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [measureStyleId] :: MeasureStyle -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [measureStyleMeasureRepeat] :: ChxMeasureStyle -> MeasureRepeat
+ Fadno.MusicXml.MusicXml31: [measureStyleMeasureStyle] :: MeasureStyle -> ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: [measureStyleMultipleRest] :: ChxMeasureStyle -> MultipleRest
+ Fadno.MusicXml.MusicXml31: [measureStyleNumber] :: MeasureStyle -> Maybe StaffNumber
+ Fadno.MusicXml.MusicXml31: [measureStyleSlash] :: ChxMeasureStyle -> CmpSlash
+ Fadno.MusicXml.MusicXml31: [measureText] :: MeasureText -> Token
+ Fadno.MusicXml.MusicXml31: [measureWidth] :: Measure -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [metronomeBeamBeamValue] :: MetronomeBeam -> BeamValue
+ Fadno.MusicXml.MusicXml31: [metronomeBeamNumber] :: MetronomeBeam -> Maybe BeamLevel
+ Fadno.MusicXml.MusicXml31: [metronomeBeatUnitTied] :: ChxMetronome0 -> [BeatUnitTied]
+ Fadno.MusicXml.MusicXml31: [metronomeBeatUnit] :: ChxMetronome0 -> BeatUnit
+ Fadno.MusicXml.MusicXml31: [metronomeColor] :: Metronome -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [metronomeDefaultX] :: Metronome -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [metronomeDefaultY] :: Metronome -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [metronomeFontFamily] :: Metronome -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [metronomeFontSize] :: Metronome -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [metronomeFontStyle] :: Metronome -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [metronomeFontWeight] :: Metronome -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [metronomeHalign] :: Metronome -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [metronomeId] :: Metronome -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [metronomeJustify] :: Metronome -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [metronomeMetronome1] :: ChxMetronome -> Maybe SeqMetronome
+ Fadno.MusicXml.MusicXml31: [metronomeMetronomeArrows] :: ChxMetronome -> Maybe Empty
+ Fadno.MusicXml.MusicXml31: [metronomeMetronomeNote] :: ChxMetronome -> [MetronomeNote]
+ Fadno.MusicXml.MusicXml31: [metronomeMetronomeRelation] :: SeqMetronome -> String
+ Fadno.MusicXml.MusicXml31: [metronomeMetronome] :: Metronome -> ChxMetronome
+ Fadno.MusicXml.MusicXml31: [metronomeNoteMetronomeBeam] :: MetronomeNote -> [MetronomeBeam]
+ Fadno.MusicXml.MusicXml31: [metronomeNoteMetronomeDot] :: MetronomeNote -> [Empty]
+ Fadno.MusicXml.MusicXml31: [metronomeNoteMetronomeTied] :: MetronomeNote -> Maybe MetronomeTied
+ Fadno.MusicXml.MusicXml31: [metronomeNoteMetronomeTuplet] :: MetronomeNote -> Maybe MetronomeTuplet
+ Fadno.MusicXml.MusicXml31: [metronomeNoteMetronomeType] :: MetronomeNote -> NoteTypeValue
+ Fadno.MusicXml.MusicXml31: [metronomeParentheses] :: Metronome -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [metronomePerMinute] :: ChxMetronome0 -> PerMinute
+ Fadno.MusicXml.MusicXml31: [metronomeRelativeX] :: Metronome -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [metronomeRelativeY] :: Metronome -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [metronomeTiedType] :: MetronomeTied -> StartStop
+ Fadno.MusicXml.MusicXml31: [metronomeTupletBracket] :: MetronomeTuplet -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [metronomeTupletNormalDot] :: SeqMetronomeTuplet -> [Empty]
+ Fadno.MusicXml.MusicXml31: [metronomeTupletNormalType] :: SeqMetronomeTuplet -> NoteTypeValue
+ Fadno.MusicXml.MusicXml31: [metronomeTupletShowNumber] :: MetronomeTuplet -> Maybe ShowTuplet
+ Fadno.MusicXml.MusicXml31: [metronomeTupletTimeModification] :: MetronomeTuplet -> MetronomeTuplet
+ Fadno.MusicXml.MusicXml31: [metronomeTupletType] :: MetronomeTuplet -> StartStop
+ Fadno.MusicXml.MusicXml31: [metronomeValign] :: Metronome -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [midi128] :: Midi128 -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [midi16384] :: Midi16384 -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [midi16] :: Midi16 -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [midiDeviceId] :: MidiDevice -> Maybe IDREF
+ Fadno.MusicXml.MusicXml31: [midiDevicePort] :: MidiDevice -> Maybe Midi16
+ Fadno.MusicXml.MusicXml31: [midiDeviceString] :: MidiDevice -> String
+ Fadno.MusicXml.MusicXml31: [midiInstrumentElevation] :: MidiInstrument -> Maybe RotationDegrees
+ Fadno.MusicXml.MusicXml31: [midiInstrumentId] :: MidiInstrument -> IDREF
+ Fadno.MusicXml.MusicXml31: [midiInstrumentMidiBank] :: MidiInstrument -> Maybe Midi16384
+ Fadno.MusicXml.MusicXml31: [midiInstrumentMidiChannel] :: MidiInstrument -> Maybe Midi16
+ Fadno.MusicXml.MusicXml31: [midiInstrumentMidiName] :: MidiInstrument -> Maybe String
+ Fadno.MusicXml.MusicXml31: [midiInstrumentMidiProgram] :: MidiInstrument -> Maybe Midi128
+ Fadno.MusicXml.MusicXml31: [midiInstrumentMidiUnpitched] :: MidiInstrument -> Maybe Midi128
+ Fadno.MusicXml.MusicXml31: [midiInstrumentPan] :: MidiInstrument -> Maybe RotationDegrees
+ Fadno.MusicXml.MusicXml31: [midiInstrumentVolume] :: MidiInstrument -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [millimeters] :: Millimeters -> Decimal
+ Fadno.MusicXml.MusicXml31: [miscellaneousFieldName] :: MiscellaneousField -> Token
+ Fadno.MusicXml.MusicXml31: [miscellaneousFieldString] :: MiscellaneousField -> String
+ Fadno.MusicXml.MusicXml31: [miscellaneousMiscellaneousField] :: Miscellaneous -> [MiscellaneousField]
+ Fadno.MusicXml.MusicXml31: [mode] :: Mode -> String
+ Fadno.MusicXml.MusicXml31: [mordentApproach] :: Mordent -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [mordentDeparture] :: Mordent -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [mordentEmptyTrillSound] :: Mordent -> Mordent
+ Fadno.MusicXml.MusicXml31: [mordentLong] :: Mordent -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [multipleRestPositiveIntegerOrEmpty] :: MultipleRest -> PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: [multipleRestUseSymbols] :: MultipleRest -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [musicDataAttributes] :: ChxMusicData -> Attributes
+ Fadno.MusicXml.MusicXml31: [musicDataBackup] :: ChxMusicData -> Backup
+ Fadno.MusicXml.MusicXml31: [musicDataBarline] :: ChxMusicData -> Barline
+ Fadno.MusicXml.MusicXml31: [musicDataBookmark] :: ChxMusicData -> Bookmark
+ Fadno.MusicXml.MusicXml31: [musicDataDirection] :: ChxMusicData -> Direction
+ Fadno.MusicXml.MusicXml31: [musicDataFiguredBass] :: ChxMusicData -> FiguredBass
+ Fadno.MusicXml.MusicXml31: [musicDataForward] :: ChxMusicData -> Forward
+ Fadno.MusicXml.MusicXml31: [musicDataGrouping] :: ChxMusicData -> Grouping
+ Fadno.MusicXml.MusicXml31: [musicDataHarmony] :: ChxMusicData -> Harmony
+ Fadno.MusicXml.MusicXml31: [musicDataLink] :: ChxMusicData -> Link
+ Fadno.MusicXml.MusicXml31: [musicDataMusicData] :: MusicData -> [ChxMusicData]
+ Fadno.MusicXml.MusicXml31: [musicDataNote] :: ChxMusicData -> Note
+ Fadno.MusicXml.MusicXml31: [musicDataPrint] :: ChxMusicData -> Print
+ Fadno.MusicXml.MusicXml31: [musicDataSound] :: ChxMusicData -> Sound
+ Fadno.MusicXml.MusicXml31: [nCName] :: NCName -> Name
+ Fadno.MusicXml.MusicXml31: [nMTOKEN] :: NMTOKEN -> Token
+ Fadno.MusicXml.MusicXml31: [nameDisplayAccidentalText] :: ChxNameDisplay -> AccidentalText
+ Fadno.MusicXml.MusicXml31: [nameDisplayDisplayText] :: ChxNameDisplay -> FormattedText
+ Fadno.MusicXml.MusicXml31: [nameDisplayNameDisplay] :: NameDisplay -> [ChxNameDisplay]
+ Fadno.MusicXml.MusicXml31: [nameDisplayPrintObject] :: NameDisplay -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [name] :: Name -> Token
+ Fadno.MusicXml.MusicXml31: [nonArpeggiateColor] :: NonArpeggiate -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [nonArpeggiateDefaultX] :: NonArpeggiate -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [nonArpeggiateDefaultY] :: NonArpeggiate -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [nonArpeggiateId] :: NonArpeggiate -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [nonArpeggiateNumber] :: NonArpeggiate -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [nonArpeggiatePlacement] :: NonArpeggiate -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [nonArpeggiateRelativeX] :: NonArpeggiate -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [nonArpeggiateRelativeY] :: NonArpeggiate -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [nonArpeggiateType] :: NonArpeggiate -> TopBottom
+ Fadno.MusicXml.MusicXml31: [nonNegativeDecimal] :: NonNegativeDecimal -> Decimal
+ Fadno.MusicXml.MusicXml31: [nonNegativeInteger] :: NonNegativeInteger -> Int
+ Fadno.MusicXml.MusicXml31: [nonTraditionalKeyKeyAccidental] :: NonTraditionalKey -> Maybe KeyAccidental
+ Fadno.MusicXml.MusicXml31: [nonTraditionalKeyKeyAlter] :: NonTraditionalKey -> Semitones
+ Fadno.MusicXml.MusicXml31: [nonTraditionalKeyKeyStep] :: NonTraditionalKey -> Step
+ Fadno.MusicXml.MusicXml31: [normalizedString] :: NormalizedString -> String
+ Fadno.MusicXml.MusicXml31: [notationsAccidentalMark] :: ChxNotations -> AccidentalMark
+ Fadno.MusicXml.MusicXml31: [notationsArpeggiate] :: ChxNotations -> Arpeggiate
+ Fadno.MusicXml.MusicXml31: [notationsArticulations] :: ChxNotations -> Articulations
+ Fadno.MusicXml.MusicXml31: [notationsDynamics] :: ChxNotations -> Dynamics
+ Fadno.MusicXml.MusicXml31: [notationsEditorial] :: Notations -> Editorial
+ Fadno.MusicXml.MusicXml31: [notationsFermata] :: ChxNotations -> Fermata
+ Fadno.MusicXml.MusicXml31: [notationsGlissando] :: ChxNotations -> Glissando
+ Fadno.MusicXml.MusicXml31: [notationsId] :: Notations -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [notationsNonArpeggiate] :: ChxNotations -> NonArpeggiate
+ Fadno.MusicXml.MusicXml31: [notationsNotations] :: Notations -> [ChxNotations]
+ Fadno.MusicXml.MusicXml31: [notationsOrnaments] :: ChxNotations -> Ornaments
+ Fadno.MusicXml.MusicXml31: [notationsOtherNotation] :: ChxNotations -> OtherNotation
+ Fadno.MusicXml.MusicXml31: [notationsPrintObject] :: Notations -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [notationsSlide] :: ChxNotations -> Slide
+ Fadno.MusicXml.MusicXml31: [notationsSlur] :: ChxNotations -> Slur
+ Fadno.MusicXml.MusicXml31: [notationsTechnical] :: ChxNotations -> Technical
+ Fadno.MusicXml.MusicXml31: [notationsTied] :: ChxNotations -> Tied
+ Fadno.MusicXml.MusicXml31: [notationsTuplet] :: ChxNotations -> Tuplet
+ Fadno.MusicXml.MusicXml31: [noteAccidental] :: Note -> Maybe Accidental
+ Fadno.MusicXml.MusicXml31: [noteAttack] :: Note -> Maybe Divisions
+ Fadno.MusicXml.MusicXml31: [noteBeam] :: Note -> [Beam]
+ Fadno.MusicXml.MusicXml31: [noteColor] :: Note -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [noteCue] :: ChxNote0 -> Empty
+ Fadno.MusicXml.MusicXml31: [noteDefaultX] :: Note -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [noteDefaultY] :: Note -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [noteDot] :: Note -> [EmptyPlacement]
+ Fadno.MusicXml.MusicXml31: [noteDuration1] :: ChxNote -> Duration
+ Fadno.MusicXml.MusicXml31: [noteDuration] :: ChxNote -> Duration
+ Fadno.MusicXml.MusicXml31: [noteDynamics] :: Note -> Maybe NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: [noteEditorialVoice] :: Note -> EditorialVoice
+ Fadno.MusicXml.MusicXml31: [noteEndDynamics] :: Note -> Maybe NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: [noteFontFamily] :: Note -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [noteFontSize] :: Note -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [noteFontStyle] :: Note -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [noteFontWeight] :: Note -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [noteFullNote1] :: ChxNote0 -> GrpFullNote
+ Fadno.MusicXml.MusicXml31: [noteFullNote] :: ChxNote0 -> GrpFullNote
+ Fadno.MusicXml.MusicXml31: [noteGrace] :: ChxNote -> Grace
+ Fadno.MusicXml.MusicXml31: [noteId] :: Note -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [noteInstrument] :: Note -> Maybe Instrument
+ Fadno.MusicXml.MusicXml31: [noteLyric] :: Note -> [Lyric]
+ Fadno.MusicXml.MusicXml31: [noteNotations] :: Note -> [Notations]
+ Fadno.MusicXml.MusicXml31: [noteNote] :: Note -> ChxNote
+ Fadno.MusicXml.MusicXml31: [noteNoteheadText] :: Note -> Maybe NoteheadText
+ Fadno.MusicXml.MusicXml31: [noteNotehead] :: Note -> Maybe Notehead
+ Fadno.MusicXml.MusicXml31: [notePizzicato] :: Note -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [notePlay] :: Note -> Maybe Play
+ Fadno.MusicXml.MusicXml31: [notePrintDot] :: Note -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [notePrintLeger] :: Note -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [notePrintLyric] :: Note -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [notePrintObject] :: Note -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [notePrintSpacing] :: Note -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [noteRelativeX] :: Note -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [noteRelativeY] :: Note -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [noteRelease] :: Note -> Maybe Divisions
+ Fadno.MusicXml.MusicXml31: [noteSizeNonNegativeDecimal] :: NoteSize -> NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: [noteSizeType] :: NoteSize -> NoteSizeType
+ Fadno.MusicXml.MusicXml31: [noteStaff] :: Note -> Maybe Staff
+ Fadno.MusicXml.MusicXml31: [noteStem] :: Note -> Maybe Stem
+ Fadno.MusicXml.MusicXml31: [noteTie] :: ChxNote0 -> [Tie]
+ Fadno.MusicXml.MusicXml31: [noteTimeModification] :: Note -> Maybe TimeModification
+ Fadno.MusicXml.MusicXml31: [noteTimeOnly] :: Note -> Maybe TimeOnly
+ Fadno.MusicXml.MusicXml31: [noteTypeNoteTypeValue] :: NoteType -> NoteTypeValue
+ Fadno.MusicXml.MusicXml31: [noteTypeSize] :: NoteType -> Maybe SymbolSize
+ Fadno.MusicXml.MusicXml31: [noteType] :: Note -> Maybe NoteType
+ Fadno.MusicXml.MusicXml31: [noteheadColor] :: Notehead -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [noteheadFilled] :: Notehead -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [noteheadFontFamily] :: Notehead -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [noteheadFontSize] :: Notehead -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [noteheadFontStyle] :: Notehead -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [noteheadFontWeight] :: Notehead -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [noteheadNoteheadValue] :: Notehead -> NoteheadValue
+ Fadno.MusicXml.MusicXml31: [noteheadParentheses] :: Notehead -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [noteheadSmufl] :: Notehead -> Maybe SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [noteheadTextAccidentalText] :: ChxNoteheadText -> AccidentalText
+ Fadno.MusicXml.MusicXml31: [noteheadTextDisplayText] :: ChxNoteheadText -> FormattedText
+ Fadno.MusicXml.MusicXml31: [noteheadTextNoteheadText] :: NoteheadText -> [ChxNoteheadText]
+ Fadno.MusicXml.MusicXml31: [numberLevel] :: NumberLevel -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [numberOfLines] :: NumberOfLines -> NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [numberOrNormal1] :: NumberOrNormal -> Decimal
+ Fadno.MusicXml.MusicXml31: [numberOrNormal2] :: NumberOrNormal -> SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: [octaveShiftColor] :: OctaveShift -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [octaveShiftDashLength] :: OctaveShift -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [octaveShiftDefaultX] :: OctaveShift -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [octaveShiftDefaultY] :: OctaveShift -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [octaveShiftFontFamily] :: OctaveShift -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [octaveShiftFontSize] :: OctaveShift -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [octaveShiftFontStyle] :: OctaveShift -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [octaveShiftFontWeight] :: OctaveShift -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [octaveShiftId] :: OctaveShift -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [octaveShiftNumber] :: OctaveShift -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [octaveShiftRelativeX] :: OctaveShift -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [octaveShiftRelativeY] :: OctaveShift -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [octaveShiftSize] :: OctaveShift -> Maybe PositiveInteger
+ Fadno.MusicXml.MusicXml31: [octaveShiftSpaceLength] :: OctaveShift -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [octaveShiftType] :: OctaveShift -> UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: [octave] :: Octave -> Int
+ Fadno.MusicXml.MusicXml31: [offsetDivisions] :: Offset -> Divisions
+ Fadno.MusicXml.MusicXml31: [offsetSound] :: Offset -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [opusActuate] :: Opus -> Maybe Actuate
+ Fadno.MusicXml.MusicXml31: [opusHref] :: Opus -> String
+ Fadno.MusicXml.MusicXml31: [opusRole] :: Opus -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [opusShow] :: Opus -> Maybe SmpShow
+ Fadno.MusicXml.MusicXml31: [opusTitle] :: Opus -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [opusType] :: Opus -> Maybe Type
+ Fadno.MusicXml.MusicXml31: [ornamentsAccidentalMark] :: SeqOrnaments -> [AccidentalMark]
+ Fadno.MusicXml.MusicXml31: [ornamentsDelayedInvertedTurn] :: ChxOrnaments -> HorizontalTurn
+ Fadno.MusicXml.MusicXml31: [ornamentsDelayedTurn] :: ChxOrnaments -> HorizontalTurn
+ Fadno.MusicXml.MusicXml31: [ornamentsHaydn] :: ChxOrnaments -> EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: [ornamentsId] :: Ornaments -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [ornamentsInvertedMordent] :: ChxOrnaments -> Mordent
+ Fadno.MusicXml.MusicXml31: [ornamentsInvertedTurn] :: ChxOrnaments -> HorizontalTurn
+ Fadno.MusicXml.MusicXml31: [ornamentsInvertedVerticalTurn] :: ChxOrnaments -> EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: [ornamentsMordent] :: ChxOrnaments -> Mordent
+ Fadno.MusicXml.MusicXml31: [ornamentsOrnaments] :: Ornaments -> [SeqOrnaments]
+ Fadno.MusicXml.MusicXml31: [ornamentsOtherOrnament] :: ChxOrnaments -> OtherPlacementText
+ Fadno.MusicXml.MusicXml31: [ornamentsSchleifer] :: ChxOrnaments -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [ornamentsShake] :: ChxOrnaments -> EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: [ornamentsTremolo] :: ChxOrnaments -> Tremolo
+ Fadno.MusicXml.MusicXml31: [ornamentsTrillMark] :: ChxOrnaments -> EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: [ornamentsTurn] :: ChxOrnaments -> HorizontalTurn
+ Fadno.MusicXml.MusicXml31: [ornamentsVerticalTurn] :: ChxOrnaments -> EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: [ornamentsWavyLine] :: ChxOrnaments -> WavyLine
+ Fadno.MusicXml.MusicXml31: [otherAppearanceString] :: OtherAppearance -> String
+ Fadno.MusicXml.MusicXml31: [otherAppearanceType] :: OtherAppearance -> Token
+ Fadno.MusicXml.MusicXml31: [otherDirectionColor] :: OtherDirection -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [otherDirectionDefaultX] :: OtherDirection -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherDirectionDefaultY] :: OtherDirection -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherDirectionFontFamily] :: OtherDirection -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [otherDirectionFontSize] :: OtherDirection -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [otherDirectionFontStyle] :: OtherDirection -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [otherDirectionFontWeight] :: OtherDirection -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [otherDirectionHalign] :: OtherDirection -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [otherDirectionId] :: OtherDirection -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [otherDirectionPrintObject] :: OtherDirection -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [otherDirectionRelativeX] :: OtherDirection -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherDirectionRelativeY] :: OtherDirection -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherDirectionSmufl] :: OtherDirection -> Maybe SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [otherDirectionString] :: OtherDirection -> String
+ Fadno.MusicXml.MusicXml31: [otherDirectionValign] :: OtherDirection -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [otherNotationColor] :: OtherNotation -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [otherNotationDefaultX] :: OtherNotation -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherNotationDefaultY] :: OtherNotation -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherNotationFontFamily] :: OtherNotation -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [otherNotationFontSize] :: OtherNotation -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [otherNotationFontStyle] :: OtherNotation -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [otherNotationFontWeight] :: OtherNotation -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [otherNotationId] :: OtherNotation -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [otherNotationNumber] :: OtherNotation -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [otherNotationPlacement] :: OtherNotation -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [otherNotationPrintObject] :: OtherNotation -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [otherNotationRelativeX] :: OtherNotation -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherNotationRelativeY] :: OtherNotation -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherNotationSmufl] :: OtherNotation -> Maybe SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [otherNotationString] :: OtherNotation -> String
+ Fadno.MusicXml.MusicXml31: [otherNotationType] :: OtherNotation -> StartStopSingle
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextColor] :: OtherPlacementText -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextDefaultX] :: OtherPlacementText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextDefaultY] :: OtherPlacementText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextFontFamily] :: OtherPlacementText -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextFontSize] :: OtherPlacementText -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextFontStyle] :: OtherPlacementText -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextFontWeight] :: OtherPlacementText -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextPlacement] :: OtherPlacementText -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextRelativeX] :: OtherPlacementText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextRelativeY] :: OtherPlacementText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextSmufl] :: OtherPlacementText -> Maybe SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [otherPlacementTextString] :: OtherPlacementText -> String
+ Fadno.MusicXml.MusicXml31: [otherPlayString] :: OtherPlay -> String
+ Fadno.MusicXml.MusicXml31: [otherPlayType] :: OtherPlay -> Token
+ Fadno.MusicXml.MusicXml31: [otherTextSmufl] :: OtherText -> Maybe SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [otherTextString] :: OtherText -> String
+ Fadno.MusicXml.MusicXml31: [pageLayoutPageHeight] :: SeqPageLayout -> Tenths
+ Fadno.MusicXml.MusicXml31: [pageLayoutPageLayout] :: PageLayout -> Maybe SeqPageLayout
+ Fadno.MusicXml.MusicXml31: [pageLayoutPageMargins] :: PageLayout -> [PageMargins]
+ Fadno.MusicXml.MusicXml31: [pageLayoutPageWidth] :: SeqPageLayout -> Tenths
+ Fadno.MusicXml.MusicXml31: [pageMarginsAllMargins] :: PageMargins -> AllMargins
+ Fadno.MusicXml.MusicXml31: [pageMarginsType] :: PageMargins -> Maybe MarginType
+ Fadno.MusicXml.MusicXml31: [partGroupEditorial] :: PartGroup -> Editorial
+ Fadno.MusicXml.MusicXml31: [partGroupGroupAbbreviationDisplay] :: PartGroup -> Maybe NameDisplay
+ Fadno.MusicXml.MusicXml31: [partGroupGroupAbbreviation] :: PartGroup -> Maybe GroupName
+ Fadno.MusicXml.MusicXml31: [partGroupGroupBarline] :: PartGroup -> Maybe GroupBarline
+ Fadno.MusicXml.MusicXml31: [partGroupGroupNameDisplay] :: PartGroup -> Maybe NameDisplay
+ Fadno.MusicXml.MusicXml31: [partGroupGroupName] :: PartGroup -> Maybe GroupName
+ Fadno.MusicXml.MusicXml31: [partGroupGroupSymbol] :: PartGroup -> Maybe GroupSymbol
+ Fadno.MusicXml.MusicXml31: [partGroupGroupTime] :: PartGroup -> Maybe Empty
+ Fadno.MusicXml.MusicXml31: [partGroupNumber] :: PartGroup -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [partGroupPartGroup] :: GrpPartGroup -> PartGroup
+ Fadno.MusicXml.MusicXml31: [partGroupType] :: PartGroup -> StartStop
+ Fadno.MusicXml.MusicXml31: [partId] :: CmpPart -> IDREF
+ Fadno.MusicXml.MusicXml31: [partListPartGroup] :: PartList -> [GrpPartGroup]
+ Fadno.MusicXml.MusicXml31: [partListPartList] :: PartList -> [ChxPartList]
+ Fadno.MusicXml.MusicXml31: [partListScorePart] :: PartList -> ScorePart
+ Fadno.MusicXml.MusicXml31: [partMeasure] :: CmpPart -> [Measure]
+ Fadno.MusicXml.MusicXml31: [partMusicData] :: Part -> MusicData
+ Fadno.MusicXml.MusicXml31: [partNameColor] :: PartName -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [partNameDefaultX] :: PartName -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [partNameDefaultY] :: PartName -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [partNameFontFamily] :: PartName -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [partNameFontSize] :: PartName -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [partNameFontStyle] :: PartName -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [partNameFontWeight] :: PartName -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [partNameJustify] :: PartName -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [partNamePrintObject] :: PartName -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [partNameRelativeX] :: PartName -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [partNameRelativeY] :: PartName -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [partNameString] :: PartName -> String
+ Fadno.MusicXml.MusicXml31: [partSymbolBottomStaff] :: PartSymbol -> Maybe StaffNumber
+ Fadno.MusicXml.MusicXml31: [partSymbolColor] :: PartSymbol -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [partSymbolDefaultX] :: PartSymbol -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [partSymbolDefaultY] :: PartSymbol -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [partSymbolGroupSymbolValue] :: PartSymbol -> GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: [partSymbolRelativeX] :: PartSymbol -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [partSymbolRelativeY] :: PartSymbol -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [partSymbolTopStaff] :: PartSymbol -> Maybe StaffNumber
+ Fadno.MusicXml.MusicXml31: [pedalAbbreviated] :: Pedal -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [pedalColor] :: Pedal -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [pedalDefaultX] :: Pedal -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [pedalDefaultY] :: Pedal -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [pedalFontFamily] :: Pedal -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [pedalFontSize] :: Pedal -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [pedalFontStyle] :: Pedal -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [pedalFontWeight] :: Pedal -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [pedalHalign] :: Pedal -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [pedalId] :: Pedal -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [pedalLine] :: Pedal -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [pedalNumber] :: Pedal -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [pedalRelativeX] :: Pedal -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [pedalRelativeY] :: Pedal -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [pedalSign] :: Pedal -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [pedalTuningPedalAlter] :: PedalTuning -> Semitones
+ Fadno.MusicXml.MusicXml31: [pedalTuningPedalStep] :: PedalTuning -> Step
+ Fadno.MusicXml.MusicXml31: [pedalType] :: Pedal -> PedalType
+ Fadno.MusicXml.MusicXml31: [pedalValign] :: Pedal -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [perMinuteFontFamily] :: PerMinute -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [perMinuteFontSize] :: PerMinute -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [perMinuteFontStyle] :: PerMinute -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [perMinuteFontWeight] :: PerMinute -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [perMinuteString] :: PerMinute -> String
+ Fadno.MusicXml.MusicXml31: [percent] :: Percent -> Decimal
+ Fadno.MusicXml.MusicXml31: [percussionBeater] :: ChxPercussion -> Beater
+ Fadno.MusicXml.MusicXml31: [percussionColor] :: Percussion -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [percussionDefaultX] :: Percussion -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [percussionDefaultY] :: Percussion -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [percussionEffect] :: ChxPercussion -> Effect
+ Fadno.MusicXml.MusicXml31: [percussionEnclosure] :: Percussion -> Maybe EnclosureShape
+ Fadno.MusicXml.MusicXml31: [percussionFontFamily] :: Percussion -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [percussionFontSize] :: Percussion -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [percussionFontStyle] :: Percussion -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [percussionFontWeight] :: Percussion -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [percussionGlass] :: ChxPercussion -> Glass
+ Fadno.MusicXml.MusicXml31: [percussionHalign] :: Percussion -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [percussionId] :: Percussion -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [percussionMembrane] :: ChxPercussion -> Membrane
+ Fadno.MusicXml.MusicXml31: [percussionMetal] :: ChxPercussion -> Metal
+ Fadno.MusicXml.MusicXml31: [percussionOtherPercussion] :: ChxPercussion -> OtherText
+ Fadno.MusicXml.MusicXml31: [percussionPercussion] :: Percussion -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: [percussionPitched] :: ChxPercussion -> Pitched
+ Fadno.MusicXml.MusicXml31: [percussionRelativeX] :: Percussion -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [percussionRelativeY] :: Percussion -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [percussionStickLocation] :: ChxPercussion -> StickLocation
+ Fadno.MusicXml.MusicXml31: [percussionStick] :: ChxPercussion -> Stick
+ Fadno.MusicXml.MusicXml31: [percussionTimpani] :: ChxPercussion -> Empty
+ Fadno.MusicXml.MusicXml31: [percussionValign] :: Percussion -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [percussionWood] :: ChxPercussion -> Wood
+ Fadno.MusicXml.MusicXml31: [pitchAlter] :: Pitch -> Maybe Semitones
+ Fadno.MusicXml.MusicXml31: [pitchOctave] :: Pitch -> Octave
+ Fadno.MusicXml.MusicXml31: [pitchStep] :: Pitch -> Step
+ Fadno.MusicXml.MusicXml31: [pitchedPitchedValue] :: Pitched -> PitchedValue
+ Fadno.MusicXml.MusicXml31: [pitchedSmufl] :: Pitched -> Maybe SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: [placementTextColor] :: PlacementText -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [placementTextDefaultX] :: PlacementText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [placementTextDefaultY] :: PlacementText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [placementTextFontFamily] :: PlacementText -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [placementTextFontSize] :: PlacementText -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [placementTextFontStyle] :: PlacementText -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [placementTextFontWeight] :: PlacementText -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [placementTextPlacement] :: PlacementText -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [placementTextRelativeX] :: PlacementText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [placementTextRelativeY] :: PlacementText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [placementTextString] :: PlacementText -> String
+ Fadno.MusicXml.MusicXml31: [playId] :: Play -> Maybe IDREF
+ Fadno.MusicXml.MusicXml31: [playIpa] :: ChxPlay -> String
+ Fadno.MusicXml.MusicXml31: [playMute] :: ChxPlay -> Mute
+ Fadno.MusicXml.MusicXml31: [playOtherPlay] :: ChxPlay -> OtherPlay
+ Fadno.MusicXml.MusicXml31: [playPlay] :: Play -> [ChxPlay]
+ Fadno.MusicXml.MusicXml31: [playSemiPitched] :: ChxPlay -> SemiPitched
+ Fadno.MusicXml.MusicXml31: [positiveDivisions] :: PositiveDivisions -> Divisions
+ Fadno.MusicXml.MusicXml31: [positiveIntegerOrEmpty1] :: PositiveIntegerOrEmpty -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [positiveIntegerOrEmpty2] :: PositiveIntegerOrEmpty -> SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: [positiveInteger] :: PositiveInteger -> NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [principalVoiceColor] :: PrincipalVoice -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [principalVoiceDefaultX] :: PrincipalVoice -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [principalVoiceDefaultY] :: PrincipalVoice -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [principalVoiceFontFamily] :: PrincipalVoice -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [principalVoiceFontSize] :: PrincipalVoice -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [principalVoiceFontStyle] :: PrincipalVoice -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [principalVoiceFontWeight] :: PrincipalVoice -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [principalVoiceHalign] :: PrincipalVoice -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [principalVoiceId] :: PrincipalVoice -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [principalVoiceRelativeX] :: PrincipalVoice -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [principalVoiceRelativeY] :: PrincipalVoice -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [principalVoiceString] :: PrincipalVoice -> String
+ Fadno.MusicXml.MusicXml31: [principalVoiceSymbol] :: PrincipalVoice -> PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: [principalVoiceType] :: PrincipalVoice -> StartStop
+ Fadno.MusicXml.MusicXml31: [principalVoiceValign] :: PrincipalVoice -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [printBlankPage] :: Print -> Maybe PositiveInteger
+ Fadno.MusicXml.MusicXml31: [printId] :: Print -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [printLayout] :: Print -> Layout
+ Fadno.MusicXml.MusicXml31: [printMeasureLayout] :: Print -> Maybe MeasureLayout
+ Fadno.MusicXml.MusicXml31: [printMeasureNumbering] :: Print -> Maybe MeasureNumbering
+ Fadno.MusicXml.MusicXml31: [printNewPage] :: Print -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [printNewSystem] :: Print -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [printPageNumber] :: Print -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [printPartAbbreviationDisplay] :: Print -> Maybe NameDisplay
+ Fadno.MusicXml.MusicXml31: [printPartNameDisplay] :: Print -> Maybe NameDisplay
+ Fadno.MusicXml.MusicXml31: [printStaffSpacing] :: Print -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [repeatDirection] :: Repeat -> BackwardForward
+ Fadno.MusicXml.MusicXml31: [repeatTimes] :: Repeat -> Maybe NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [repeatWinged] :: Repeat -> Maybe Winged
+ Fadno.MusicXml.MusicXml31: [restDisplayStepOctave] :: Rest -> Maybe DisplayStepOctave
+ Fadno.MusicXml.MusicXml31: [restMeasure] :: Rest -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [rootAlterColor] :: RootAlter -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [rootAlterDefaultX] :: RootAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [rootAlterDefaultY] :: RootAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [rootAlterFontFamily] :: RootAlter -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [rootAlterFontSize] :: RootAlter -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [rootAlterFontStyle] :: RootAlter -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [rootAlterFontWeight] :: RootAlter -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [rootAlterLocation] :: RootAlter -> Maybe LeftRight
+ Fadno.MusicXml.MusicXml31: [rootAlterPrintObject] :: RootAlter -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [rootAlterRelativeX] :: RootAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [rootAlterRelativeY] :: RootAlter -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [rootAlterSemitones] :: RootAlter -> Semitones
+ Fadno.MusicXml.MusicXml31: [rootRootAlter] :: Root -> Maybe RootAlter
+ Fadno.MusicXml.MusicXml31: [rootRootStep] :: Root -> RootStep
+ Fadno.MusicXml.MusicXml31: [rootStepColor] :: RootStep -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [rootStepDefaultX] :: RootStep -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [rootStepDefaultY] :: RootStep -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [rootStepFontFamily] :: RootStep -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [rootStepFontSize] :: RootStep -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [rootStepFontStyle] :: RootStep -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [rootStepFontWeight] :: RootStep -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [rootStepRelativeX] :: RootStep -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [rootStepRelativeY] :: RootStep -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [rootStepStep] :: RootStep -> Step
+ Fadno.MusicXml.MusicXml31: [rootStepText] :: RootStep -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [rotationDegrees] :: RotationDegrees -> Decimal
+ Fadno.MusicXml.MusicXml31: [scalingMillimeters] :: Scaling -> Millimeters
+ Fadno.MusicXml.MusicXml31: [scalingTenths] :: Scaling -> Tenths
+ Fadno.MusicXml.MusicXml31: [scordaturaAccord] :: Scordatura -> [Accord]
+ Fadno.MusicXml.MusicXml31: [scordaturaId] :: Scordatura -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [scoreHeaderCredit] :: ScoreHeader -> [Credit]
+ Fadno.MusicXml.MusicXml31: [scoreHeaderDefaults] :: ScoreHeader -> Maybe Defaults
+ Fadno.MusicXml.MusicXml31: [scoreHeaderIdentification] :: ScoreHeader -> Maybe Identification
+ Fadno.MusicXml.MusicXml31: [scoreHeaderMovementNumber] :: ScoreHeader -> Maybe String
+ Fadno.MusicXml.MusicXml31: [scoreHeaderMovementTitle] :: ScoreHeader -> Maybe String
+ Fadno.MusicXml.MusicXml31: [scoreHeaderPartList] :: ScoreHeader -> PartList
+ Fadno.MusicXml.MusicXml31: [scoreHeaderWork] :: ScoreHeader -> Maybe Work
+ Fadno.MusicXml.MusicXml31: [scoreInstrumentEnsemble] :: ChxScoreInstrument -> PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: [scoreInstrumentId] :: ScoreInstrument -> ID
+ Fadno.MusicXml.MusicXml31: [scoreInstrumentInstrumentAbbreviation] :: ScoreInstrument -> Maybe String
+ Fadno.MusicXml.MusicXml31: [scoreInstrumentInstrumentName] :: ScoreInstrument -> String
+ Fadno.MusicXml.MusicXml31: [scoreInstrumentInstrumentSound] :: ScoreInstrument -> Maybe String
+ Fadno.MusicXml.MusicXml31: [scoreInstrumentScoreInstrument] :: ScoreInstrument -> Maybe ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: [scoreInstrumentSolo] :: ChxScoreInstrument -> Empty
+ Fadno.MusicXml.MusicXml31: [scoreInstrumentVirtualInstrument] :: ScoreInstrument -> Maybe VirtualInstrument
+ Fadno.MusicXml.MusicXml31: [scorePartGroup] :: CmpScorePart -> [String]
+ Fadno.MusicXml.MusicXml31: [scorePartId] :: CmpScorePart -> ID
+ Fadno.MusicXml.MusicXml31: [scorePartIdentification] :: CmpScorePart -> Maybe Identification
+ Fadno.MusicXml.MusicXml31: [scorePartMidiDevice] :: SeqScorePart -> Maybe MidiDevice
+ Fadno.MusicXml.MusicXml31: [scorePartMidiInstrument] :: SeqScorePart -> Maybe MidiInstrument
+ Fadno.MusicXml.MusicXml31: [scorePartPartAbbreviationDisplay] :: CmpScorePart -> Maybe NameDisplay
+ Fadno.MusicXml.MusicXml31: [scorePartPartAbbreviation] :: CmpScorePart -> Maybe PartName
+ Fadno.MusicXml.MusicXml31: [scorePartPartNameDisplay] :: CmpScorePart -> Maybe NameDisplay
+ Fadno.MusicXml.MusicXml31: [scorePartPartName] :: CmpScorePart -> PartName
+ Fadno.MusicXml.MusicXml31: [scorePartScoreInstrument] :: CmpScorePart -> [ScoreInstrument]
+ Fadno.MusicXml.MusicXml31: [scorePartScorePart] :: CmpScorePart -> [SeqScorePart]
+ Fadno.MusicXml.MusicXml31: [scorePartwisePart] :: ScorePartwise -> [CmpPart]
+ Fadno.MusicXml.MusicXml31: [scorePartwiseScoreHeader] :: ScorePartwise -> ScoreHeader
+ Fadno.MusicXml.MusicXml31: [scorePartwiseVersion] :: ScorePartwise -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [scoreTimewiseMeasure] :: ScoreTimewise -> [CmpMeasure]
+ Fadno.MusicXml.MusicXml31: [scoreTimewiseScoreHeader] :: ScoreTimewise -> ScoreHeader
+ Fadno.MusicXml.MusicXml31: [scoreTimewiseVersion] :: ScoreTimewise -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [segnoColor] :: Segno -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [segnoDefaultX] :: Segno -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [segnoDefaultY] :: Segno -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [segnoFontFamily] :: Segno -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [segnoFontSize] :: Segno -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [segnoFontStyle] :: Segno -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [segnoFontWeight] :: Segno -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [segnoHalign] :: Segno -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [segnoId] :: Segno -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [segnoRelativeX] :: Segno -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [segnoRelativeY] :: Segno -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [segnoSmufl] :: Segno -> Maybe SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: [segnoValign] :: Segno -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [semitones] :: Semitones -> Decimal
+ Fadno.MusicXml.MusicXml31: [seqcreditBookmark] :: SeqCredit -> [Bookmark]
+ Fadno.MusicXml.MusicXml31: [seqcreditCredit] :: SeqCredit -> ChxCredit1
+ Fadno.MusicXml.MusicXml31: [seqcreditLink] :: SeqCredit -> [Link]
+ Fadno.MusicXml.MusicXml31: [seqlyricLyric] :: SeqLyric -> Maybe SeqLyric0
+ Fadno.MusicXml.MusicXml31: [seqlyricSyllabic] :: SeqLyric0 -> Maybe Syllabic
+ Fadno.MusicXml.MusicXml31: [seqlyricText] :: SeqLyric -> TextElementData
+ Fadno.MusicXml.MusicXml31: [seqmetronomeMetronomeNote] :: SeqMetronome -> [MetronomeNote]
+ Fadno.MusicXml.MusicXml31: [seqornamentsOrnaments] :: SeqOrnaments -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: [slashExceptVoice] :: Slash -> [String]
+ Fadno.MusicXml.MusicXml31: [slashSlashDot] :: SeqSlash -> [Empty]
+ Fadno.MusicXml.MusicXml31: [slashSlashType] :: SeqSlash -> NoteTypeValue
+ Fadno.MusicXml.MusicXml31: [slashSlash] :: CmpSlash -> Maybe Slash
+ Fadno.MusicXml.MusicXml31: [slashType] :: CmpSlash -> StartStop
+ Fadno.MusicXml.MusicXml31: [slashUseDots] :: CmpSlash -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [slashUseStems] :: CmpSlash -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [slideAccelerate] :: Slide -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [slideBeats] :: Slide -> Maybe TrillBeats
+ Fadno.MusicXml.MusicXml31: [slideColor] :: Slide -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [slideDashLength] :: Slide -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slideDefaultX] :: Slide -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slideDefaultY] :: Slide -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slideFirstBeat] :: Slide -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [slideFontFamily] :: Slide -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [slideFontSize] :: Slide -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [slideFontStyle] :: Slide -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [slideFontWeight] :: Slide -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [slideId] :: Slide -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [slideLastBeat] :: Slide -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [slideLineType] :: Slide -> Maybe LineType
+ Fadno.MusicXml.MusicXml31: [slideNumber] :: Slide -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [slideRelativeX] :: Slide -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slideRelativeY] :: Slide -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slideSpaceLength] :: Slide -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slideString] :: Slide -> String
+ Fadno.MusicXml.MusicXml31: [slideType] :: Slide -> StartStop
+ Fadno.MusicXml.MusicXml31: [slurBezierOffset2] :: Slur -> Maybe Divisions
+ Fadno.MusicXml.MusicXml31: [slurBezierOffset] :: Slur -> Maybe Divisions
+ Fadno.MusicXml.MusicXml31: [slurBezierX2] :: Slur -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slurBezierX] :: Slur -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slurBezierY2] :: Slur -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slurBezierY] :: Slur -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slurColor] :: Slur -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [slurDashLength] :: Slur -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slurDefaultX] :: Slur -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slurDefaultY] :: Slur -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slurId] :: Slur -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [slurLineType] :: Slur -> Maybe LineType
+ Fadno.MusicXml.MusicXml31: [slurNumber] :: Slur -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [slurOrientation] :: Slur -> Maybe OverUnder
+ Fadno.MusicXml.MusicXml31: [slurPlacement] :: Slur -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [slurRelativeX] :: Slur -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slurRelativeY] :: Slur -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slurSpaceLength] :: Slur -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [slurType] :: Slur -> StartStopContinue
+ Fadno.MusicXml.MusicXml31: [smuflAccidentalGlyphName] :: SmuflAccidentalGlyphName -> SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [smuflCodaGlyphName] :: SmuflCodaGlyphName -> SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [smuflGlyphName] :: SmuflGlyphName -> NMTOKEN
+ Fadno.MusicXml.MusicXml31: [smuflLyricsGlyphName] :: SmuflLyricsGlyphName -> SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [smuflPictogramGlyphName] :: SmuflPictogramGlyphName -> SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [smuflSegnoGlyphName] :: SmuflSegnoGlyphName -> SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [soundCoda] :: Sound -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [soundDacapo] :: Sound -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [soundDalsegno] :: Sound -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [soundDamperPedal] :: Sound -> Maybe YesNoNumber
+ Fadno.MusicXml.MusicXml31: [soundDivisions] :: Sound -> Maybe Divisions
+ Fadno.MusicXml.MusicXml31: [soundDynamics] :: Sound -> Maybe NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: [soundElevation] :: Sound -> Maybe RotationDegrees
+ Fadno.MusicXml.MusicXml31: [soundFine] :: Sound -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [soundForwardRepeat] :: Sound -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [soundId] :: Sound -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [soundMidiDevice] :: SeqSound -> Maybe MidiDevice
+ Fadno.MusicXml.MusicXml31: [soundMidiInstrument] :: SeqSound -> Maybe MidiInstrument
+ Fadno.MusicXml.MusicXml31: [soundOffset] :: Sound -> Maybe Offset
+ Fadno.MusicXml.MusicXml31: [soundPan] :: Sound -> Maybe RotationDegrees
+ Fadno.MusicXml.MusicXml31: [soundPizzicato] :: Sound -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [soundPlay] :: SeqSound -> Maybe Play
+ Fadno.MusicXml.MusicXml31: [soundSegno] :: Sound -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [soundSoftPedal] :: Sound -> Maybe YesNoNumber
+ Fadno.MusicXml.MusicXml31: [soundSostenutoPedal] :: Sound -> Maybe YesNoNumber
+ Fadno.MusicXml.MusicXml31: [soundSound] :: Sound -> [SeqSound]
+ Fadno.MusicXml.MusicXml31: [soundTempo] :: Sound -> Maybe NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: [soundTimeOnly] :: Sound -> Maybe TimeOnly
+ Fadno.MusicXml.MusicXml31: [soundTocoda] :: Sound -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [staffDetailsCapo] :: StaffDetails -> Maybe NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [staffDetailsNumber] :: StaffDetails -> Maybe StaffNumber
+ Fadno.MusicXml.MusicXml31: [staffDetailsPrintObject] :: StaffDetails -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [staffDetailsPrintSpacing] :: StaffDetails -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [staffDetailsShowFrets] :: StaffDetails -> Maybe ShowFrets
+ Fadno.MusicXml.MusicXml31: [staffDetailsStaffLines] :: StaffDetails -> Maybe NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [staffDetailsStaffSize] :: StaffDetails -> Maybe NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: [staffDetailsStaffTuning] :: StaffDetails -> [StaffTuning]
+ Fadno.MusicXml.MusicXml31: [staffDetailsStaffType] :: StaffDetails -> Maybe StaffType
+ Fadno.MusicXml.MusicXml31: [staffDivideColor] :: StaffDivide -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [staffDivideDefaultX] :: StaffDivide -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [staffDivideDefaultY] :: StaffDivide -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [staffDivideFontFamily] :: StaffDivide -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [staffDivideFontSize] :: StaffDivide -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [staffDivideFontStyle] :: StaffDivide -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [staffDivideFontWeight] :: StaffDivide -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [staffDivideHalign] :: StaffDivide -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [staffDivideId] :: StaffDivide -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [staffDivideRelativeX] :: StaffDivide -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [staffDivideRelativeY] :: StaffDivide -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [staffDivideType] :: StaffDivide -> StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: [staffDivideValign] :: StaffDivide -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [staffLayoutNumber] :: StaffLayout -> Maybe StaffNumber
+ Fadno.MusicXml.MusicXml31: [staffLayoutStaffDistance] :: StaffLayout -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [staffLine] :: StaffLine -> Int
+ Fadno.MusicXml.MusicXml31: [staffNumber] :: StaffNumber -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [staffStaff] :: Staff -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [staffTuningLine] :: StaffTuning -> Maybe StaffLine
+ Fadno.MusicXml.MusicXml31: [staffTuningTuning] :: StaffTuning -> Tuning
+ Fadno.MusicXml.MusicXml31: [stemColor] :: Stem -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [stemDefaultX] :: Stem -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stemDefaultY] :: Stem -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stemRelativeX] :: Stem -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stemRelativeY] :: Stem -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stemStemValue] :: Stem -> StemValue
+ Fadno.MusicXml.MusicXml31: [stickDashedCircle] :: Stick -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [stickParentheses] :: Stick -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [stickStickMaterial] :: Stick -> StickMaterial
+ Fadno.MusicXml.MusicXml31: [stickStickType] :: Stick -> StickType
+ Fadno.MusicXml.MusicXml31: [stickTip] :: Stick -> Maybe TipDirection
+ Fadno.MusicXml.MusicXml31: [stringColor] :: CmpString -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [stringDefaultX] :: CmpString -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stringDefaultY] :: CmpString -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stringFontFamily] :: CmpString -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [stringFontSize] :: CmpString -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [stringFontStyle] :: CmpString -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [stringFontWeight] :: CmpString -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [stringMuteColor] :: StringMute -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [stringMuteDefaultX] :: StringMute -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stringMuteDefaultY] :: StringMute -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stringMuteFontFamily] :: StringMute -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [stringMuteFontSize] :: StringMute -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [stringMuteFontStyle] :: StringMute -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [stringMuteFontWeight] :: StringMute -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [stringMuteHalign] :: StringMute -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [stringMuteId] :: StringMute -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [stringMuteRelativeX] :: StringMute -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stringMuteRelativeY] :: StringMute -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stringMuteType] :: StringMute -> OnOff
+ Fadno.MusicXml.MusicXml31: [stringMuteValign] :: StringMute -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [stringNumber] :: StringNumber -> PositiveInteger
+ Fadno.MusicXml.MusicXml31: [stringPlacement] :: CmpString -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [stringRelativeX] :: CmpString -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stringRelativeY] :: CmpString -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [stringStringNumber] :: CmpString -> StringNumber
+ Fadno.MusicXml.MusicXml31: [strongAccentEmptyPlacement] :: StrongAccent -> StrongAccent
+ Fadno.MusicXml.MusicXml31: [strongAccentType] :: StrongAccent -> Maybe UpDown
+ Fadno.MusicXml.MusicXml31: [styleTextColor] :: StyleText -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [styleTextDefaultX] :: StyleText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [styleTextDefaultY] :: StyleText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [styleTextFontFamily] :: StyleText -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [styleTextFontSize] :: StyleText -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [styleTextFontStyle] :: StyleText -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [styleTextFontWeight] :: StyleText -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [styleTextRelativeX] :: StyleText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [styleTextRelativeY] :: StyleText -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [styleTextString] :: StyleText -> String
+ Fadno.MusicXml.MusicXml31: [supportsAttribute] :: Supports -> Maybe NMTOKEN
+ Fadno.MusicXml.MusicXml31: [supportsElement] :: Supports -> NMTOKEN
+ Fadno.MusicXml.MusicXml31: [supportsType] :: Supports -> YesNo
+ Fadno.MusicXml.MusicXml31: [supportsValue] :: Supports -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [systemDividersLeftDivider] :: SystemDividers -> EmptyPrintObjectStyleAlign
+ Fadno.MusicXml.MusicXml31: [systemDividersRightDivider] :: SystemDividers -> EmptyPrintObjectStyleAlign
+ Fadno.MusicXml.MusicXml31: [systemLayoutSystemDistance] :: SystemLayout -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [systemLayoutSystemDividers] :: SystemLayout -> Maybe SystemDividers
+ Fadno.MusicXml.MusicXml31: [systemLayoutSystemMargins] :: SystemLayout -> Maybe SystemMargins
+ Fadno.MusicXml.MusicXml31: [systemLayoutTopSystemDistance] :: SystemLayout -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [systemMarginsLeftRightMargins] :: SystemMargins -> LeftRightMargins
+ Fadno.MusicXml.MusicXml31: [tapColor] :: Tap -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [tapDefaultX] :: Tap -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tapDefaultY] :: Tap -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tapFontFamily] :: Tap -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [tapFontSize] :: Tap -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [tapFontStyle] :: Tap -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [tapFontWeight] :: Tap -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [tapHand] :: Tap -> Maybe TapHand
+ Fadno.MusicXml.MusicXml31: [tapPlacement] :: Tap -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [tapRelativeX] :: Tap -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tapRelativeY] :: Tap -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tapString] :: Tap -> String
+ Fadno.MusicXml.MusicXml31: [technicalArrow] :: ChxTechnical -> Arrow
+ Fadno.MusicXml.MusicXml31: [technicalBend] :: ChxTechnical -> Bend
+ Fadno.MusicXml.MusicXml31: [technicalBrassBend] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalDoubleTongue] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalDownBow] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalFingering] :: ChxTechnical -> Fingering
+ Fadno.MusicXml.MusicXml31: [technicalFingernails] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalFlip] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalFret] :: ChxTechnical -> Fret
+ Fadno.MusicXml.MusicXml31: [technicalGolpe] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalHalfMuted] :: ChxTechnical -> EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: [technicalHammerOn] :: ChxTechnical -> HammerOnPullOff
+ Fadno.MusicXml.MusicXml31: [technicalHandbell] :: ChxTechnical -> Handbell
+ Fadno.MusicXml.MusicXml31: [technicalHarmonMute] :: ChxTechnical -> HarmonMute
+ Fadno.MusicXml.MusicXml31: [technicalHarmonic] :: ChxTechnical -> Harmonic
+ Fadno.MusicXml.MusicXml31: [technicalHeel] :: ChxTechnical -> HeelToe
+ Fadno.MusicXml.MusicXml31: [technicalHole] :: ChxTechnical -> Hole
+ Fadno.MusicXml.MusicXml31: [technicalId] :: Technical -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [technicalOpenString] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalOpen] :: ChxTechnical -> EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: [technicalOtherTechnical] :: ChxTechnical -> OtherPlacementText
+ Fadno.MusicXml.MusicXml31: [technicalPluck] :: ChxTechnical -> PlacementText
+ Fadno.MusicXml.MusicXml31: [technicalPullOff] :: ChxTechnical -> HammerOnPullOff
+ Fadno.MusicXml.MusicXml31: [technicalSmear] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalSnapPizzicato] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalStopped] :: ChxTechnical -> EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: [technicalString] :: ChxTechnical -> CmpString
+ Fadno.MusicXml.MusicXml31: [technicalTap] :: ChxTechnical -> Tap
+ Fadno.MusicXml.MusicXml31: [technicalTechnical] :: Technical -> [ChxTechnical]
+ Fadno.MusicXml.MusicXml31: [technicalThumbPosition] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalToe] :: ChxTechnical -> HeelToe
+ Fadno.MusicXml.MusicXml31: [technicalTripleTongue] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [technicalUpBow] :: ChxTechnical -> EmptyPlacement
+ Fadno.MusicXml.MusicXml31: [tenths] :: Tenths -> Decimal
+ Fadno.MusicXml.MusicXml31: [textElementDataColor] :: TextElementData -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [textElementDataDir] :: TextElementData -> Maybe TextDirection
+ Fadno.MusicXml.MusicXml31: [textElementDataFontFamily] :: TextElementData -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [textElementDataFontSize] :: TextElementData -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [textElementDataFontStyle] :: TextElementData -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [textElementDataFontWeight] :: TextElementData -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [textElementDataLang] :: TextElementData -> Maybe Lang
+ Fadno.MusicXml.MusicXml31: [textElementDataLetterSpacing] :: TextElementData -> Maybe NumberOrNormal
+ Fadno.MusicXml.MusicXml31: [textElementDataLineThrough] :: TextElementData -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [textElementDataOverline] :: TextElementData -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [textElementDataRotation] :: TextElementData -> Maybe RotationDegrees
+ Fadno.MusicXml.MusicXml31: [textElementDataString] :: TextElementData -> String
+ Fadno.MusicXml.MusicXml31: [textElementDataUnderline] :: TextElementData -> Maybe NumberOfLines
+ Fadno.MusicXml.MusicXml31: [tieTimeOnly] :: Tie -> Maybe TimeOnly
+ Fadno.MusicXml.MusicXml31: [tieType] :: Tie -> StartStop
+ Fadno.MusicXml.MusicXml31: [tiedBezierOffset2] :: Tied -> Maybe Divisions
+ Fadno.MusicXml.MusicXml31: [tiedBezierOffset] :: Tied -> Maybe Divisions
+ Fadno.MusicXml.MusicXml31: [tiedBezierX2] :: Tied -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tiedBezierX] :: Tied -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tiedBezierY2] :: Tied -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tiedBezierY] :: Tied -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tiedColor] :: Tied -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [tiedDashLength] :: Tied -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tiedDefaultX] :: Tied -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tiedDefaultY] :: Tied -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tiedId] :: Tied -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [tiedLineType] :: Tied -> Maybe LineType
+ Fadno.MusicXml.MusicXml31: [tiedNumber] :: Tied -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [tiedOrientation] :: Tied -> Maybe OverUnder
+ Fadno.MusicXml.MusicXml31: [tiedPlacement] :: Tied -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [tiedRelativeX] :: Tied -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tiedRelativeY] :: Tied -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tiedSpaceLength] :: Tied -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tiedType] :: Tied -> TiedType
+ Fadno.MusicXml.MusicXml31: [timeColor] :: Time -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [timeDefaultX] :: Time -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [timeDefaultY] :: Time -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [timeFontFamily] :: Time -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [timeFontSize] :: Time -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [timeFontStyle] :: Time -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [timeFontWeight] :: Time -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [timeHalign] :: Time -> Maybe LeftCenterRight
+ Fadno.MusicXml.MusicXml31: [timeId] :: Time -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [timeInterchangeable] :: ChxTime -> Maybe Interchangeable
+ Fadno.MusicXml.MusicXml31: [timeModificationActualNotes] :: TimeModification -> NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [timeModificationNormalDot] :: SeqTimeModification -> [Empty]
+ Fadno.MusicXml.MusicXml31: [timeModificationNormalNotes] :: TimeModification -> NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [timeModificationNormalType] :: SeqTimeModification -> NoteTypeValue
+ Fadno.MusicXml.MusicXml31: [timeModificationTimeModification] :: TimeModification -> Maybe SeqTimeModification
+ Fadno.MusicXml.MusicXml31: [timeNumber] :: Time -> Maybe StaffNumber
+ Fadno.MusicXml.MusicXml31: [timeOnly] :: TimeOnly -> Token
+ Fadno.MusicXml.MusicXml31: [timePrintObject] :: Time -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [timeRelativeX] :: Time -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [timeRelativeY] :: Time -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [timeSenzaMisura] :: ChxTime -> String
+ Fadno.MusicXml.MusicXml31: [timeSeparator] :: Time -> Maybe TimeSeparator
+ Fadno.MusicXml.MusicXml31: [timeSignatureBeatType] :: TimeSignature -> String
+ Fadno.MusicXml.MusicXml31: [timeSignatureBeats] :: TimeSignature -> String
+ Fadno.MusicXml.MusicXml31: [timeSymbol] :: Time -> Maybe TimeSymbol
+ Fadno.MusicXml.MusicXml31: [timeTimeSignature] :: ChxTime -> [TimeSignature]
+ Fadno.MusicXml.MusicXml31: [timeTime] :: Time -> ChxTime
+ Fadno.MusicXml.MusicXml31: [timeValign] :: Time -> Maybe Valign
+ Fadno.MusicXml.MusicXml31: [token] :: Token -> NormalizedString
+ Fadno.MusicXml.MusicXml31: [traditionalKeyCancel] :: TraditionalKey -> Maybe Cancel
+ Fadno.MusicXml.MusicXml31: [traditionalKeyFifths] :: TraditionalKey -> Fifths
+ Fadno.MusicXml.MusicXml31: [traditionalKeyMode] :: TraditionalKey -> Maybe Mode
+ Fadno.MusicXml.MusicXml31: [transposeChromatic] :: Transpose -> Semitones
+ Fadno.MusicXml.MusicXml31: [transposeDiatonic] :: Transpose -> Maybe Int
+ Fadno.MusicXml.MusicXml31: [transposeDouble] :: Transpose -> Maybe Empty
+ Fadno.MusicXml.MusicXml31: [transposeId] :: Transpose -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [transposeNumber] :: Transpose -> Maybe StaffNumber
+ Fadno.MusicXml.MusicXml31: [transposeOctaveChange] :: Transpose -> Maybe Int
+ Fadno.MusicXml.MusicXml31: [tremoloColor] :: Tremolo -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [tremoloDefaultX] :: Tremolo -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tremoloDefaultY] :: Tremolo -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tremoloFontFamily] :: Tremolo -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [tremoloFontSize] :: Tremolo -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [tremoloFontStyle] :: Tremolo -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [tremoloFontWeight] :: Tremolo -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [tremoloMarks] :: TremoloMarks -> Int
+ Fadno.MusicXml.MusicXml31: [tremoloPlacement] :: Tremolo -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [tremoloRelativeX] :: Tremolo -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tremoloRelativeY] :: Tremolo -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tremoloSmufl] :: Tremolo -> Maybe SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: [tremoloTremoloMarks] :: Tremolo -> TremoloMarks
+ Fadno.MusicXml.MusicXml31: [tremoloType] :: Tremolo -> Maybe TremoloType
+ Fadno.MusicXml.MusicXml31: [trillBeats] :: TrillBeats -> Decimal
+ Fadno.MusicXml.MusicXml31: [tuningTuningAlter] :: Tuning -> Maybe Semitones
+ Fadno.MusicXml.MusicXml31: [tuningTuningOctave] :: Tuning -> Octave
+ Fadno.MusicXml.MusicXml31: [tuningTuningStep] :: Tuning -> Step
+ Fadno.MusicXml.MusicXml31: [tupletBracket] :: Tuplet -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [tupletDefaultX] :: Tuplet -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tupletDefaultY] :: Tuplet -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tupletDotColor] :: TupletDot -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [tupletDotFontFamily] :: TupletDot -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [tupletDotFontSize] :: TupletDot -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [tupletDotFontStyle] :: TupletDot -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [tupletDotFontWeight] :: TupletDot -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [tupletId] :: Tuplet -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [tupletLineShape] :: Tuplet -> Maybe LineShape
+ Fadno.MusicXml.MusicXml31: [tupletNumberColor] :: TupletNumber -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [tupletNumberFontFamily] :: TupletNumber -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [tupletNumberFontSize] :: TupletNumber -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [tupletNumberFontStyle] :: TupletNumber -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [tupletNumberFontWeight] :: TupletNumber -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [tupletNumberNonNegativeInteger] :: TupletNumber -> NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: [tupletNumber] :: Tuplet -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [tupletPlacement] :: Tuplet -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [tupletPortionTupletDot] :: TupletPortion -> [TupletDot]
+ Fadno.MusicXml.MusicXml31: [tupletPortionTupletNumber] :: TupletPortion -> Maybe TupletNumber
+ Fadno.MusicXml.MusicXml31: [tupletPortionTupletType] :: TupletPortion -> Maybe TupletType
+ Fadno.MusicXml.MusicXml31: [tupletRelativeX] :: Tuplet -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tupletRelativeY] :: Tuplet -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [tupletShowNumber] :: Tuplet -> Maybe ShowTuplet
+ Fadno.MusicXml.MusicXml31: [tupletShowType] :: Tuplet -> Maybe ShowTuplet
+ Fadno.MusicXml.MusicXml31: [tupletTupletActual] :: Tuplet -> Maybe TupletPortion
+ Fadno.MusicXml.MusicXml31: [tupletTupletNormal] :: Tuplet -> Maybe TupletPortion
+ Fadno.MusicXml.MusicXml31: [tupletTypeColor] :: TupletType -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [tupletTypeFontFamily] :: TupletType -> Maybe CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: [tupletTypeFontSize] :: TupletType -> Maybe FontSize
+ Fadno.MusicXml.MusicXml31: [tupletTypeFontStyle] :: TupletType -> Maybe FontStyle
+ Fadno.MusicXml.MusicXml31: [tupletTypeFontWeight] :: TupletType -> Maybe FontWeight
+ Fadno.MusicXml.MusicXml31: [tupletTypeNoteTypeValue] :: TupletType -> NoteTypeValue
+ Fadno.MusicXml.MusicXml31: [tupletType] :: Tuplet -> StartStop
+ Fadno.MusicXml.MusicXml31: [typedTextString] :: TypedText -> String
+ Fadno.MusicXml.MusicXml31: [typedTextType] :: TypedText -> Maybe Token
+ Fadno.MusicXml.MusicXml31: [unpitchedDisplayStepOctave] :: Unpitched -> Maybe DisplayStepOctave
+ Fadno.MusicXml.MusicXml31: [virtualInstrumentVirtualLibrary] :: VirtualInstrument -> Maybe String
+ Fadno.MusicXml.MusicXml31: [virtualInstrumentVirtualName] :: VirtualInstrument -> Maybe String
+ Fadno.MusicXml.MusicXml31: [voiceVoice] :: Voice -> String
+ Fadno.MusicXml.MusicXml31: [wavyLineAccelerate] :: WavyLine -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [wavyLineBeats] :: WavyLine -> Maybe TrillBeats
+ Fadno.MusicXml.MusicXml31: [wavyLineColor] :: WavyLine -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [wavyLineDefaultX] :: WavyLine -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wavyLineDefaultY] :: WavyLine -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wavyLineLastBeat] :: WavyLine -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [wavyLineNumber] :: WavyLine -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [wavyLinePlacement] :: WavyLine -> Maybe AboveBelow
+ Fadno.MusicXml.MusicXml31: [wavyLineRelativeX] :: WavyLine -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wavyLineRelativeY] :: WavyLine -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wavyLineSecondBeat] :: WavyLine -> Maybe Percent
+ Fadno.MusicXml.MusicXml31: [wavyLineStartNote] :: WavyLine -> Maybe StartNote
+ Fadno.MusicXml.MusicXml31: [wavyLineTrillStep] :: WavyLine -> Maybe TrillStep
+ Fadno.MusicXml.MusicXml31: [wavyLineTwoNoteTurn] :: WavyLine -> Maybe TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: [wavyLineType] :: WavyLine -> StartStopContinue
+ Fadno.MusicXml.MusicXml31: [wedgeColor] :: Wedge -> Maybe Color
+ Fadno.MusicXml.MusicXml31: [wedgeDashLength] :: Wedge -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wedgeDefaultX] :: Wedge -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wedgeDefaultY] :: Wedge -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wedgeId] :: Wedge -> Maybe ID
+ Fadno.MusicXml.MusicXml31: [wedgeLineType] :: Wedge -> Maybe LineType
+ Fadno.MusicXml.MusicXml31: [wedgeNiente] :: Wedge -> Maybe YesNo
+ Fadno.MusicXml.MusicXml31: [wedgeNumber] :: Wedge -> Maybe NumberLevel
+ Fadno.MusicXml.MusicXml31: [wedgeRelativeX] :: Wedge -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wedgeRelativeY] :: Wedge -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wedgeSpaceLength] :: Wedge -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wedgeSpread] :: Wedge -> Maybe Tenths
+ Fadno.MusicXml.MusicXml31: [wedgeType] :: Wedge -> WedgeType
+ Fadno.MusicXml.MusicXml31: [workOpus] :: Work -> Maybe Opus
+ Fadno.MusicXml.MusicXml31: [workWorkNumber] :: Work -> Maybe String
+ Fadno.MusicXml.MusicXml31: [workWorkTitle] :: Work -> Maybe String
+ Fadno.MusicXml.MusicXml31: [yesNoNumber1] :: YesNoNumber -> YesNo
+ Fadno.MusicXml.MusicXml31: [yesNoNumber2] :: YesNoNumber -> Decimal
+ Fadno.MusicXml.MusicXml31: [yyyyMmDd] :: YyyyMmDd -> String
+ Fadno.MusicXml.MusicXml31: data AboveBelow
+ Fadno.MusicXml.MusicXml31: data Accidental
+ Fadno.MusicXml.MusicXml31: data AccidentalMark
+ Fadno.MusicXml.MusicXml31: data AccidentalText
+ Fadno.MusicXml.MusicXml31: data AccidentalValue
+ Fadno.MusicXml.MusicXml31: data Accord
+ Fadno.MusicXml.MusicXml31: data AccordionRegistration
+ Fadno.MusicXml.MusicXml31: data Actuate
+ Fadno.MusicXml.MusicXml31: data AllMargins
+ Fadno.MusicXml.MusicXml31: data Appearance
+ Fadno.MusicXml.MusicXml31: data Arpeggiate
+ Fadno.MusicXml.MusicXml31: data Arrow
+ Fadno.MusicXml.MusicXml31: data ArrowDirection
+ Fadno.MusicXml.MusicXml31: data ArrowStyle
+ Fadno.MusicXml.MusicXml31: data Articulations
+ Fadno.MusicXml.MusicXml31: data Attributes
+ Fadno.MusicXml.MusicXml31: data Backup
+ Fadno.MusicXml.MusicXml31: data BackwardForward
+ Fadno.MusicXml.MusicXml31: data BarStyle
+ Fadno.MusicXml.MusicXml31: data BarStyleColor
+ Fadno.MusicXml.MusicXml31: data Barline
+ Fadno.MusicXml.MusicXml31: data Barre
+ Fadno.MusicXml.MusicXml31: data Bass
+ Fadno.MusicXml.MusicXml31: data BassAlter
+ Fadno.MusicXml.MusicXml31: data BassStep
+ Fadno.MusicXml.MusicXml31: data Beam
+ Fadno.MusicXml.MusicXml31: data BeamValue
+ Fadno.MusicXml.MusicXml31: data BeatRepeat
+ Fadno.MusicXml.MusicXml31: data BeatUnit
+ Fadno.MusicXml.MusicXml31: data BeatUnitTied
+ Fadno.MusicXml.MusicXml31: data Beater
+ Fadno.MusicXml.MusicXml31: data BeaterValue
+ Fadno.MusicXml.MusicXml31: data Bend
+ Fadno.MusicXml.MusicXml31: data Bookmark
+ Fadno.MusicXml.MusicXml31: data Bracket
+ Fadno.MusicXml.MusicXml31: data BreathMark
+ Fadno.MusicXml.MusicXml31: data BreathMarkValue
+ Fadno.MusicXml.MusicXml31: data Caesura
+ Fadno.MusicXml.MusicXml31: data CaesuraValue
+ Fadno.MusicXml.MusicXml31: data Cancel
+ Fadno.MusicXml.MusicXml31: data CancelLocation
+ Fadno.MusicXml.MusicXml31: data ChxArrow
+ Fadno.MusicXml.MusicXml31: data ChxArticulations
+ Fadno.MusicXml.MusicXml31: data ChxBend
+ Fadno.MusicXml.MusicXml31: data ChxCredit
+ Fadno.MusicXml.MusicXml31: data ChxCredit0
+ Fadno.MusicXml.MusicXml31: data ChxCredit1
+ Fadno.MusicXml.MusicXml31: data ChxDirectionType
+ Fadno.MusicXml.MusicXml31: data ChxDirectionType0
+ Fadno.MusicXml.MusicXml31: data ChxDynamics
+ Fadno.MusicXml.MusicXml31: data ChxEncoding
+ Fadno.MusicXml.MusicXml31: data ChxHarmonic
+ Fadno.MusicXml.MusicXml31: data ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: data ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: data ChxKey
+ Fadno.MusicXml.MusicXml31: data ChxLyric
+ Fadno.MusicXml.MusicXml31: data ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: data ChxMetronome
+ Fadno.MusicXml.MusicXml31: data ChxMetronome0
+ Fadno.MusicXml.MusicXml31: data ChxMusicData
+ Fadno.MusicXml.MusicXml31: data ChxNameDisplay
+ Fadno.MusicXml.MusicXml31: data ChxNotations
+ Fadno.MusicXml.MusicXml31: data ChxNote
+ Fadno.MusicXml.MusicXml31: data ChxNote0
+ Fadno.MusicXml.MusicXml31: data ChxNoteheadText
+ Fadno.MusicXml.MusicXml31: data ChxOrnaments
+ Fadno.MusicXml.MusicXml31: data ChxPartList
+ Fadno.MusicXml.MusicXml31: data ChxPercussion
+ Fadno.MusicXml.MusicXml31: data ChxPlay
+ Fadno.MusicXml.MusicXml31: data ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: data ChxTechnical
+ Fadno.MusicXml.MusicXml31: data ChxTime
+ Fadno.MusicXml.MusicXml31: data CircularArrow
+ Fadno.MusicXml.MusicXml31: data Clef
+ Fadno.MusicXml.MusicXml31: data ClefSign
+ Fadno.MusicXml.MusicXml31: data CmpMeasure
+ Fadno.MusicXml.MusicXml31: data CmpPart
+ Fadno.MusicXml.MusicXml31: data CmpScorePart
+ Fadno.MusicXml.MusicXml31: data CmpSlash
+ Fadno.MusicXml.MusicXml31: data CmpString
+ Fadno.MusicXml.MusicXml31: data Coda
+ Fadno.MusicXml.MusicXml31: data Credit
+ Fadno.MusicXml.MusicXml31: data CssFontSize
+ Fadno.MusicXml.MusicXml31: data Dashes
+ Fadno.MusicXml.MusicXml31: data Defaults
+ Fadno.MusicXml.MusicXml31: data Degree
+ Fadno.MusicXml.MusicXml31: data DegreeAlter
+ Fadno.MusicXml.MusicXml31: data DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: data DegreeType
+ Fadno.MusicXml.MusicXml31: data DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: data DegreeValue
+ Fadno.MusicXml.MusicXml31: data Direction
+ Fadno.MusicXml.MusicXml31: data DirectionType
+ Fadno.MusicXml.MusicXml31: data Directive
+ Fadno.MusicXml.MusicXml31: data DisplayStepOctave
+ Fadno.MusicXml.MusicXml31: data Distance
+ Fadno.MusicXml.MusicXml31: data Duration
+ Fadno.MusicXml.MusicXml31: data Dynamics
+ Fadno.MusicXml.MusicXml31: data Editorial
+ Fadno.MusicXml.MusicXml31: data EditorialVoice
+ Fadno.MusicXml.MusicXml31: data EditorialVoiceDirection
+ Fadno.MusicXml.MusicXml31: data Effect
+ Fadno.MusicXml.MusicXml31: data Elision
+ Fadno.MusicXml.MusicXml31: data Empty
+ Fadno.MusicXml.MusicXml31: data EmptyFont
+ Fadno.MusicXml.MusicXml31: data EmptyLine
+ Fadno.MusicXml.MusicXml31: data EmptyPlacement
+ Fadno.MusicXml.MusicXml31: data EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: data EmptyPrintObjectStyleAlign
+ Fadno.MusicXml.MusicXml31: data EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: data EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: data EnclosureShape
+ Fadno.MusicXml.MusicXml31: data Encoding
+ Fadno.MusicXml.MusicXml31: data Ending
+ Fadno.MusicXml.MusicXml31: data Extend
+ Fadno.MusicXml.MusicXml31: data Fan
+ Fadno.MusicXml.MusicXml31: data Feature
+ Fadno.MusicXml.MusicXml31: data Fermata
+ Fadno.MusicXml.MusicXml31: data FermataShape
+ Fadno.MusicXml.MusicXml31: data Figure
+ Fadno.MusicXml.MusicXml31: data FiguredBass
+ Fadno.MusicXml.MusicXml31: data Fingering
+ Fadno.MusicXml.MusicXml31: data FirstFret
+ Fadno.MusicXml.MusicXml31: data FontSize
+ Fadno.MusicXml.MusicXml31: data FontStyle
+ Fadno.MusicXml.MusicXml31: data FontWeight
+ Fadno.MusicXml.MusicXml31: data Footnote
+ Fadno.MusicXml.MusicXml31: data FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: data FormattedText
+ Fadno.MusicXml.MusicXml31: data FormattedTextId
+ Fadno.MusicXml.MusicXml31: data Forward
+ Fadno.MusicXml.MusicXml31: data Frame
+ Fadno.MusicXml.MusicXml31: data FrameNote
+ Fadno.MusicXml.MusicXml31: data Fret
+ Fadno.MusicXml.MusicXml31: data FullNote
+ Fadno.MusicXml.MusicXml31: data Glass
+ Fadno.MusicXml.MusicXml31: data GlassValue
+ Fadno.MusicXml.MusicXml31: data Glissando
+ Fadno.MusicXml.MusicXml31: data Glyph
+ Fadno.MusicXml.MusicXml31: data Grace
+ Fadno.MusicXml.MusicXml31: data GroupBarline
+ Fadno.MusicXml.MusicXml31: data GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: data GroupName
+ Fadno.MusicXml.MusicXml31: data GroupSymbol
+ Fadno.MusicXml.MusicXml31: data GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: data Grouping
+ Fadno.MusicXml.MusicXml31: data GrpFullNote
+ Fadno.MusicXml.MusicXml31: data GrpLevel
+ Fadno.MusicXml.MusicXml31: data GrpPartGroup
+ Fadno.MusicXml.MusicXml31: data HammerOnPullOff
+ Fadno.MusicXml.MusicXml31: data Handbell
+ Fadno.MusicXml.MusicXml31: data HandbellValue
+ Fadno.MusicXml.MusicXml31: data HarmonClosed
+ Fadno.MusicXml.MusicXml31: data HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: data HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: data HarmonMute
+ Fadno.MusicXml.MusicXml31: data Harmonic
+ Fadno.MusicXml.MusicXml31: data Harmony
+ Fadno.MusicXml.MusicXml31: data HarmonyChord
+ Fadno.MusicXml.MusicXml31: data HarmonyType
+ Fadno.MusicXml.MusicXml31: data HarpPedals
+ Fadno.MusicXml.MusicXml31: data HeelToe
+ Fadno.MusicXml.MusicXml31: data Hole
+ Fadno.MusicXml.MusicXml31: data HoleClosed
+ Fadno.MusicXml.MusicXml31: data HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: data HoleClosedValue
+ Fadno.MusicXml.MusicXml31: data HorizontalTurn
+ Fadno.MusicXml.MusicXml31: data Identification
+ Fadno.MusicXml.MusicXml31: data Image
+ Fadno.MusicXml.MusicXml31: data Instrument
+ Fadno.MusicXml.MusicXml31: data Interchangeable
+ Fadno.MusicXml.MusicXml31: data Inversion
+ Fadno.MusicXml.MusicXml31: data Key
+ Fadno.MusicXml.MusicXml31: data KeyAccidental
+ Fadno.MusicXml.MusicXml31: data KeyOctave
+ Fadno.MusicXml.MusicXml31: data Kind
+ Fadno.MusicXml.MusicXml31: data KindValue
+ Fadno.MusicXml.MusicXml31: data Lang
+ Fadno.MusicXml.MusicXml31: data Layout
+ Fadno.MusicXml.MusicXml31: data LeftCenterRight
+ Fadno.MusicXml.MusicXml31: data LeftRight
+ Fadno.MusicXml.MusicXml31: data LeftRightMargins
+ Fadno.MusicXml.MusicXml31: data Level
+ Fadno.MusicXml.MusicXml31: data LineEnd
+ Fadno.MusicXml.MusicXml31: data LineLength
+ Fadno.MusicXml.MusicXml31: data LineShape
+ Fadno.MusicXml.MusicXml31: data LineType
+ Fadno.MusicXml.MusicXml31: data LineWidth
+ Fadno.MusicXml.MusicXml31: data Link
+ Fadno.MusicXml.MusicXml31: data Lyric
+ Fadno.MusicXml.MusicXml31: data LyricFont
+ Fadno.MusicXml.MusicXml31: data LyricLanguage
+ Fadno.MusicXml.MusicXml31: data MarginType
+ Fadno.MusicXml.MusicXml31: data Measure
+ Fadno.MusicXml.MusicXml31: data MeasureLayout
+ Fadno.MusicXml.MusicXml31: data MeasureNumbering
+ Fadno.MusicXml.MusicXml31: data MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: data MeasureRepeat
+ Fadno.MusicXml.MusicXml31: data MeasureStyle
+ Fadno.MusicXml.MusicXml31: data Membrane
+ Fadno.MusicXml.MusicXml31: data Metal
+ Fadno.MusicXml.MusicXml31: data Metronome
+ Fadno.MusicXml.MusicXml31: data MetronomeBeam
+ Fadno.MusicXml.MusicXml31: data MetronomeNote
+ Fadno.MusicXml.MusicXml31: data MetronomeTied
+ Fadno.MusicXml.MusicXml31: data MetronomeTuplet
+ Fadno.MusicXml.MusicXml31: data MidiDevice
+ Fadno.MusicXml.MusicXml31: data MidiInstrument
+ Fadno.MusicXml.MusicXml31: data Miscellaneous
+ Fadno.MusicXml.MusicXml31: data MiscellaneousField
+ Fadno.MusicXml.MusicXml31: data Mordent
+ Fadno.MusicXml.MusicXml31: data MultipleRest
+ Fadno.MusicXml.MusicXml31: data MusicData
+ Fadno.MusicXml.MusicXml31: data Mute
+ Fadno.MusicXml.MusicXml31: data NameDisplay
+ Fadno.MusicXml.MusicXml31: data NonArpeggiate
+ Fadno.MusicXml.MusicXml31: data NonTraditionalKey
+ Fadno.MusicXml.MusicXml31: data Notations
+ Fadno.MusicXml.MusicXml31: data Note
+ Fadno.MusicXml.MusicXml31: data NoteSize
+ Fadno.MusicXml.MusicXml31: data NoteSizeType
+ Fadno.MusicXml.MusicXml31: data NoteType
+ Fadno.MusicXml.MusicXml31: data NoteTypeValue
+ Fadno.MusicXml.MusicXml31: data Notehead
+ Fadno.MusicXml.MusicXml31: data NoteheadText
+ Fadno.MusicXml.MusicXml31: data NoteheadValue
+ Fadno.MusicXml.MusicXml31: data NumberOrNormal
+ Fadno.MusicXml.MusicXml31: data OctaveShift
+ Fadno.MusicXml.MusicXml31: data Offset
+ Fadno.MusicXml.MusicXml31: data OnOff
+ Fadno.MusicXml.MusicXml31: data Opus
+ Fadno.MusicXml.MusicXml31: data Ornaments
+ Fadno.MusicXml.MusicXml31: data OtherAppearance
+ Fadno.MusicXml.MusicXml31: data OtherDirection
+ Fadno.MusicXml.MusicXml31: data OtherNotation
+ Fadno.MusicXml.MusicXml31: data OtherPlacementText
+ Fadno.MusicXml.MusicXml31: data OtherPlay
+ Fadno.MusicXml.MusicXml31: data OtherText
+ Fadno.MusicXml.MusicXml31: data OverUnder
+ Fadno.MusicXml.MusicXml31: data PageLayout
+ Fadno.MusicXml.MusicXml31: data PageMargins
+ Fadno.MusicXml.MusicXml31: data Part
+ Fadno.MusicXml.MusicXml31: data PartGroup
+ Fadno.MusicXml.MusicXml31: data PartList
+ Fadno.MusicXml.MusicXml31: data PartName
+ Fadno.MusicXml.MusicXml31: data PartSymbol
+ Fadno.MusicXml.MusicXml31: data Pedal
+ Fadno.MusicXml.MusicXml31: data PedalTuning
+ Fadno.MusicXml.MusicXml31: data PedalType
+ Fadno.MusicXml.MusicXml31: data PerMinute
+ Fadno.MusicXml.MusicXml31: data Percussion
+ Fadno.MusicXml.MusicXml31: data Pitch
+ Fadno.MusicXml.MusicXml31: data Pitched
+ Fadno.MusicXml.MusicXml31: data PitchedValue
+ Fadno.MusicXml.MusicXml31: data PlacementText
+ Fadno.MusicXml.MusicXml31: data Play
+ Fadno.MusicXml.MusicXml31: data PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: data PrincipalVoice
+ Fadno.MusicXml.MusicXml31: data PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: data Print
+ Fadno.MusicXml.MusicXml31: data Repeat
+ Fadno.MusicXml.MusicXml31: data Rest
+ Fadno.MusicXml.MusicXml31: data RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: data Root
+ Fadno.MusicXml.MusicXml31: data RootAlter
+ Fadno.MusicXml.MusicXml31: data RootStep
+ Fadno.MusicXml.MusicXml31: data Scaling
+ Fadno.MusicXml.MusicXml31: data Scordatura
+ Fadno.MusicXml.MusicXml31: data ScoreHeader
+ Fadno.MusicXml.MusicXml31: data ScoreInstrument
+ Fadno.MusicXml.MusicXml31: data ScorePart
+ Fadno.MusicXml.MusicXml31: data ScorePartwise
+ Fadno.MusicXml.MusicXml31: data ScoreTimewise
+ Fadno.MusicXml.MusicXml31: data Segno
+ Fadno.MusicXml.MusicXml31: data SemiPitched
+ Fadno.MusicXml.MusicXml31: data SeqCredit
+ Fadno.MusicXml.MusicXml31: data SeqLyric
+ Fadno.MusicXml.MusicXml31: data SeqLyric0
+ Fadno.MusicXml.MusicXml31: data SeqMetronome
+ Fadno.MusicXml.MusicXml31: data SeqMetronomeTuplet
+ Fadno.MusicXml.MusicXml31: data SeqOrnaments
+ Fadno.MusicXml.MusicXml31: data SeqPageLayout
+ Fadno.MusicXml.MusicXml31: data SeqScorePart
+ Fadno.MusicXml.MusicXml31: data SeqSlash
+ Fadno.MusicXml.MusicXml31: data SeqSound
+ Fadno.MusicXml.MusicXml31: data SeqTimeModification
+ Fadno.MusicXml.MusicXml31: data ShowFrets
+ Fadno.MusicXml.MusicXml31: data ShowTuplet
+ Fadno.MusicXml.MusicXml31: data Slash
+ Fadno.MusicXml.MusicXml31: data Slide
+ Fadno.MusicXml.MusicXml31: data Slur
+ Fadno.MusicXml.MusicXml31: data SmpShow
+ Fadno.MusicXml.MusicXml31: data Sound
+ Fadno.MusicXml.MusicXml31: data Space
+ Fadno.MusicXml.MusicXml31: data Staff
+ Fadno.MusicXml.MusicXml31: data StaffDetails
+ Fadno.MusicXml.MusicXml31: data StaffDivide
+ Fadno.MusicXml.MusicXml31: data StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: data StaffLayout
+ Fadno.MusicXml.MusicXml31: data StaffTuning
+ Fadno.MusicXml.MusicXml31: data StaffType
+ Fadno.MusicXml.MusicXml31: data StartNote
+ Fadno.MusicXml.MusicXml31: data StartStop
+ Fadno.MusicXml.MusicXml31: data StartStopContinue
+ Fadno.MusicXml.MusicXml31: data StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: data StartStopSingle
+ Fadno.MusicXml.MusicXml31: data Stem
+ Fadno.MusicXml.MusicXml31: data StemValue
+ Fadno.MusicXml.MusicXml31: data Step
+ Fadno.MusicXml.MusicXml31: data Stick
+ Fadno.MusicXml.MusicXml31: data StickLocation
+ Fadno.MusicXml.MusicXml31: data StickMaterial
+ Fadno.MusicXml.MusicXml31: data StickType
+ Fadno.MusicXml.MusicXml31: data StringMute
+ Fadno.MusicXml.MusicXml31: data StrongAccent
+ Fadno.MusicXml.MusicXml31: data StyleText
+ Fadno.MusicXml.MusicXml31: data SumLang
+ Fadno.MusicXml.MusicXml31: data SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: data SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: data Supports
+ Fadno.MusicXml.MusicXml31: data Syllabic
+ Fadno.MusicXml.MusicXml31: data SymbolSize
+ Fadno.MusicXml.MusicXml31: data SystemDividers
+ Fadno.MusicXml.MusicXml31: data SystemLayout
+ Fadno.MusicXml.MusicXml31: data SystemMargins
+ Fadno.MusicXml.MusicXml31: data Tap
+ Fadno.MusicXml.MusicXml31: data TapHand
+ Fadno.MusicXml.MusicXml31: data Technical
+ Fadno.MusicXml.MusicXml31: data TextDirection
+ Fadno.MusicXml.MusicXml31: data TextElementData
+ Fadno.MusicXml.MusicXml31: data Tie
+ Fadno.MusicXml.MusicXml31: data Tied
+ Fadno.MusicXml.MusicXml31: data TiedType
+ Fadno.MusicXml.MusicXml31: data Time
+ Fadno.MusicXml.MusicXml31: data TimeModification
+ Fadno.MusicXml.MusicXml31: data TimeRelation
+ Fadno.MusicXml.MusicXml31: data TimeSeparator
+ Fadno.MusicXml.MusicXml31: data TimeSignature
+ Fadno.MusicXml.MusicXml31: data TimeSymbol
+ Fadno.MusicXml.MusicXml31: data TipDirection
+ Fadno.MusicXml.MusicXml31: data TopBottom
+ Fadno.MusicXml.MusicXml31: data TraditionalKey
+ Fadno.MusicXml.MusicXml31: data Transpose
+ Fadno.MusicXml.MusicXml31: data Tremolo
+ Fadno.MusicXml.MusicXml31: data TremoloType
+ Fadno.MusicXml.MusicXml31: data TrillStep
+ Fadno.MusicXml.MusicXml31: data Tuning
+ Fadno.MusicXml.MusicXml31: data Tuplet
+ Fadno.MusicXml.MusicXml31: data TupletDot
+ Fadno.MusicXml.MusicXml31: data TupletNumber
+ Fadno.MusicXml.MusicXml31: data TupletPortion
+ Fadno.MusicXml.MusicXml31: data TupletType
+ Fadno.MusicXml.MusicXml31: data TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: data Type
+ Fadno.MusicXml.MusicXml31: data TypedText
+ Fadno.MusicXml.MusicXml31: data Unpitched
+ Fadno.MusicXml.MusicXml31: data UpDown
+ Fadno.MusicXml.MusicXml31: data UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: data UprightInverted
+ Fadno.MusicXml.MusicXml31: data Valign
+ Fadno.MusicXml.MusicXml31: data ValignImage
+ Fadno.MusicXml.MusicXml31: data VirtualInstrument
+ Fadno.MusicXml.MusicXml31: data Voice
+ Fadno.MusicXml.MusicXml31: data WavyLine
+ Fadno.MusicXml.MusicXml31: data Wedge
+ Fadno.MusicXml.MusicXml31: data WedgeType
+ Fadno.MusicXml.MusicXml31: data Winged
+ Fadno.MusicXml.MusicXml31: data Wood
+ Fadno.MusicXml.MusicXml31: data Work
+ Fadno.MusicXml.MusicXml31: data YesNo
+ Fadno.MusicXml.MusicXml31: data YesNoNumber
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.Color
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.DistanceType
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.EndingNumber
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.GlyphType
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.ID
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.IDREF
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.Language
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.LineWidthType
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.MeasureText
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.Mode
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.NCName
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.NMTOKEN
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.Name
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.NormalizedString
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.TimeOnly
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.Token
+ Fadno.MusicXml.MusicXml31: instance Data.String.IsString Fadno.MusicXml.MusicXml31.YyyyMmDd
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.AboveBelow
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Accidental
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.AccidentalMark
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.AccidentalText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.AccidentalValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Accord
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.AccordionRegistration
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Actuate
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.AllMargins
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Appearance
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Arpeggiate
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Arrow
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ArrowDirection
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ArrowStyle
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Articulations
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Attributes
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Backup
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BackwardForward
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BarStyle
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BarStyleColor
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Barline
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Barre
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Bass
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BassAlter
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BassStep
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Beam
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BeamValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BeatRepeat
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BeatUnit
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BeatUnitTied
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Beater
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BeaterValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Bend
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Bookmark
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Bracket
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BreathMark
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.BreathMarkValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Caesura
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.CaesuraValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Cancel
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.CancelLocation
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxArrow
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxArticulations
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxBend
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxCredit
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxCredit0
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxCredit1
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxDirectionType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxDirectionType0
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxDynamics
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxEncoding
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxHarmonic
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxKey
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxLyric
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxMetronome
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxMetronome0
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxMusicData
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxNameDisplay
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxNotations
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxNote
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxNote0
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxNoteheadText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxOrnaments
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxPartList
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxPercussion
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxPlay
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxTechnical
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ChxTime
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.CircularArrow
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Clef
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ClefSign
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.CmpMeasure
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.CmpPart
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.CmpScorePart
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.CmpSlash
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.CmpString
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Coda
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Color
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Credit
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.CssFontSize
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Dashes
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Defaults
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Degree
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.DegreeAlter
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.DegreeType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.DegreeValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Direction
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.DirectionType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Directive
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.DisplayStepOctave
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Distance
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.DistanceType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Divisions
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Duration
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Dynamics
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Editorial
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EditorialVoice
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EditorialVoiceDirection
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Effect
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Elision
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Empty
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EmptyFont
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EmptyLine
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EmptyPlacement
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EmptyPrintObjectStyleAlign
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EnclosureShape
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Encoding
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Ending
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.EndingNumber
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Extend
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Fan
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Feature
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Fermata
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FermataShape
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Figure
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FiguredBass
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Fingering
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FirstFret
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FontSize
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FontStyle
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FontWeight
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Footnote
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FormattedText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FormattedTextId
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Forward
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Frame
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FrameNote
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Fret
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.FullNote
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Glass
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.GlassValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Glissando
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Glyph
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.GlyphType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Grace
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.GroupBarline
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.GroupName
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.GroupSymbol
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Grouping
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.GrpFullNote
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.GrpLevel
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.GrpPartGroup
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HammerOnPullOff
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Handbell
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HandbellValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HarmonClosed
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HarmonMute
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Harmonic
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Harmony
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HarmonyChord
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HarmonyType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HarpPedals
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HeelToe
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Hole
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HoleClosed
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HoleClosedValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.HorizontalTurn
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ID
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.IDREF
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Identification
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Image
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Instrument
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Interchangeable
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Inversion
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Key
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.KeyAccidental
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.KeyOctave
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Kind
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.KindValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Lang
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Language
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Layout
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LeftCenterRight
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LeftRight
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LeftRightMargins
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Level
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LineEnd
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LineLength
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LineShape
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LineType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LineWidth
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LineWidthType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Link
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Lyric
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LyricFont
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.LyricLanguage
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MarginType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Measure
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MeasureLayout
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MeasureNumbering
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MeasureRepeat
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MeasureStyle
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MeasureText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Membrane
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Metal
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Metronome
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MetronomeBeam
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MetronomeNote
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MetronomeTied
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MetronomeTuplet
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MidiDevice
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MidiInstrument
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Millimeters
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Miscellaneous
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MiscellaneousField
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Mode
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Mordent
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MultipleRest
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.MusicData
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Mute
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NCName
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NMTOKEN
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Name
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NameDisplay
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NonArpeggiate
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NonTraditionalKey
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NormalizedString
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Notations
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Note
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NoteSize
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NoteSizeType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NoteType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NoteTypeValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Notehead
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NoteheadText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NoteheadValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.NumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.OctaveShift
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Offset
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.OnOff
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Opus
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Ornaments
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.OtherAppearance
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.OtherDirection
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.OtherNotation
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.OtherPlacementText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.OtherPlay
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.OtherText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.OverUnder
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PageLayout
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PageMargins
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Part
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PartGroup
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PartList
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PartName
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PartSymbol
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Pedal
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PedalTuning
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PedalType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PerMinute
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Percent
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Percussion
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Pitch
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Pitched
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PitchedValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PlacementText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Play
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PositiveDivisions
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PrincipalVoice
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Print
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Repeat
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Rest
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Root
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.RootAlter
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.RootStep
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.RotationDegrees
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Scaling
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Scordatura
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ScoreHeader
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ScoreInstrument
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ScorePart
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ScorePartwise
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ScoreTimewise
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Segno
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SemiPitched
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Semitones
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqCredit
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqLyric
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqLyric0
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqMetronome
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqMetronomeTuplet
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqOrnaments
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqPageLayout
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqScorePart
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqSlash
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqSound
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SeqTimeModification
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ShowFrets
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ShowTuplet
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Slash
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Slide
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Slur
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SmpShow
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Sound
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Space
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Staff
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StaffDetails
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StaffDivide
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StaffLayout
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StaffTuning
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StaffType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StartNote
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StartStop
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StartStopContinue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StartStopSingle
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Stem
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StemValue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Step
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Stick
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StickLocation
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StickMaterial
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StickType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StringMute
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StrongAccent
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.StyleText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SumLang
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Supports
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Syllabic
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SymbolSize
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SystemDividers
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SystemLayout
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.SystemMargins
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Tap
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TapHand
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Technical
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Tenths
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TextDirection
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TextElementData
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Tie
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Tied
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TiedType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Time
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TimeModification
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TimeOnly
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TimeRelation
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TimeSeparator
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TimeSignature
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TimeSymbol
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TipDirection
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Token
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TopBottom
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TraditionalKey
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Transpose
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Tremolo
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TremoloType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TrillBeats
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TrillStep
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Tuning
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Tuplet
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TupletDot
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TupletNumber
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TupletPortion
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TupletType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Type
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.TypedText
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Unpitched
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.UpDown
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.UprightInverted
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Valign
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.ValignImage
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.VirtualInstrument
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Voice
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.WavyLine
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Wedge
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.WedgeType
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Winged
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Wood
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.Work
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.YesNo
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.YesNoNumber
+ Fadno.MusicXml.MusicXml31: instance Fadno.Xml.EmitXml.EmitXml Fadno.MusicXml.MusicXml31.YyyyMmDd
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.AboveBelow
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Accidental
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.AccidentalMark
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.AccidentalText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.AccidentalValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Accord
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.AccordionRegistration
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Actuate
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.AllMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Appearance
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Arpeggiate
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Arrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ArrowDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ArrowStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Articulations
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Attributes
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Backup
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BackwardForward
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BarStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BarStyleColor
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Barline
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Barre
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Bass
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BassAlter
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BassStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Beam
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BeamValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BeatRepeat
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BeatUnit
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BeatUnitTied
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Beater
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BeaterValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Bend
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Bookmark
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Bracket
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BreathMark
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.BreathMarkValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Caesura
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.CaesuraValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Cancel
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.CancelLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxArrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxArticulations
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxBend
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxCredit
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxCredit0
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxCredit1
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxDirectionType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxDirectionType0
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxDynamics
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxEncoding
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxHarmonic
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxKey
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxLyric
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxMetronome
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxMetronome0
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxMusicData
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxNameDisplay
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxNotations
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxNote0
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxNoteheadText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxOrnaments
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxPartList
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxPercussion
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxPlay
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxTechnical
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ChxTime
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.CircularArrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Clef
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ClefSign
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.CmpMeasure
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.CmpPart
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.CmpScorePart
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.CmpSlash
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.CmpString
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Coda
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Color
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Credit
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.CssFontSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Dashes
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Defaults
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Degree
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.DegreeAlter
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.DegreeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.DegreeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Direction
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.DirectionType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Directive
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.DisplayStepOctave
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Distance
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.DistanceType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Divisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Duration
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Dynamics
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Editorial
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EditorialVoice
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EditorialVoiceDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Effect
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Elision
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Empty
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EmptyFont
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EmptyLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EmptyPlacement
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EmptyPrintObjectStyleAlign
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EnclosureShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Encoding
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Ending
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.EndingNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Extend
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Fan
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Feature
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Fermata
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FermataShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Figure
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FiguredBass
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Fingering
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FirstFret
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FontSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FontStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FontWeight
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Footnote
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FormattedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FormattedTextId
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Forward
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Frame
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FrameNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Fret
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.FullNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Glass
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.GlassValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Glissando
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Glyph
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.GlyphType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Grace
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.GroupBarline
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.GroupName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.GroupSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Grouping
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.GrpFullNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.GrpLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.GrpPartGroup
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HammerOnPullOff
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Handbell
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HandbellValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HarmonClosed
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HarmonMute
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Harmonic
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Harmony
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HarmonyChord
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HarmonyType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HarpPedals
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HeelToe
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Hole
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HoleClosed
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HoleClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.HorizontalTurn
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ID
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.IDREF
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Identification
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Image
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Instrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Interchangeable
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Inversion
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Key
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.KeyAccidental
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.KeyOctave
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Kind
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.KindValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Lang
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Language
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Layout
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LeftCenterRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LeftRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LeftRightMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Level
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LineEnd
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LineLength
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LineShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LineType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LineWidth
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LineWidthType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Link
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Lyric
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LyricFont
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.LyricLanguage
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MarginType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Measure
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MeasureLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MeasureNumbering
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MeasureRepeat
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MeasureStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MeasureText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Membrane
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Metal
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Metronome
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MetronomeBeam
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MetronomeNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MetronomeTied
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MetronomeTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MidiDevice
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MidiInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Millimeters
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Miscellaneous
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MiscellaneousField
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Mode
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Mordent
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MultipleRest
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.MusicData
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Mute
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NCName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NMTOKEN
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Name
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NameDisplay
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NonArpeggiate
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NonTraditionalKey
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NormalizedString
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Notations
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Note
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NoteSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NoteSizeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NoteType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NoteTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Notehead
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NoteheadText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NoteheadValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.NumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.OctaveShift
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Offset
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.OnOff
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Opus
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Ornaments
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.OtherAppearance
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.OtherDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.OtherNotation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.OtherPlacementText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.OtherPlay
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.OtherText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.OverUnder
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PageLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PageMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Part
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PartGroup
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PartList
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PartName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PartSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Pedal
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PedalTuning
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PedalType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PerMinute
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Percent
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Percussion
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Pitch
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Pitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PitchedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PlacementText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Play
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PositiveDivisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PrincipalVoice
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Print
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Repeat
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Rest
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Root
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.RootAlter
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.RootStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.RotationDegrees
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Scaling
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Scordatura
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ScoreHeader
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ScoreInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ScorePart
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ScorePartwise
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ScoreTimewise
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Segno
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SemiPitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Semitones
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqCredit
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqLyric
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqLyric0
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqMetronome
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqMetronomeTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqOrnaments
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqPageLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqScorePart
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqSlash
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqSound
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SeqTimeModification
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ShowFrets
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ShowTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Slash
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Slide
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Slur
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SmpShow
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Sound
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Space
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Staff
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StaffDetails
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StaffDivide
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StaffLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StaffTuning
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StaffType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StartNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StartStop
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StartStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StartStopSingle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Stem
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StemValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Step
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Stick
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StickLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StickMaterial
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StickType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StringMute
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StrongAccent
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.StyleText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SumLang
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Supports
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Syllabic
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SymbolSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SystemDividers
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SystemLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.SystemMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Tap
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TapHand
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Technical
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Tenths
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TextDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TextElementData
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Tie
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Tied
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TiedType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Time
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TimeModification
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TimeOnly
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TimeRelation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TimeSeparator
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TimeSignature
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TimeSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TipDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Token
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TopBottom
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TraditionalKey
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Transpose
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Tremolo
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TremoloType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TrillBeats
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TrillStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Tuning
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Tuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TupletDot
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TupletNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TupletPortion
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TupletType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Type
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.TypedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Unpitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.UpDown
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.UprightInverted
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Valign
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.ValignImage
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.VirtualInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Voice
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.WavyLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Wedge
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.WedgeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Winged
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Wood
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.Work
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.YesNo
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.YesNoNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Eq Fadno.MusicXml.MusicXml31.YyyyMmDd
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.AboveBelow
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.AccidentalValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Actuate
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.ArrowDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.ArrowStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.BackwardForward
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.BarStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.BeamValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.BeaterValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.BreathMarkValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.CaesuraValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.CancelLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.CircularArrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.ClefSign
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Color
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.CssFontSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.DistanceType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Divisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Effect
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.EnclosureShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.EndingNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Fan
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.FermataShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.FontStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.FontWeight
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.GlassValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.GlyphType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.HandbellValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.HarmonyType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.HoleClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.ID
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.IDREF
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.KindValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Language
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.LeftCenterRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.LeftRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.LineEnd
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.LineLength
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.LineShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.LineType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.LineWidthType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.MarginType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.MeasureText
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Membrane
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Metal
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Millimeters
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Mode
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Mute
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.NCName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.NMTOKEN
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Name
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.NormalizedString
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.NoteSizeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.NoteTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.NoteheadValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.OnOff
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.OverUnder
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.PedalType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Percent
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.PitchedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.PositiveDivisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.RotationDegrees
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SemiPitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Semitones
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.ShowFrets
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.ShowTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SmpShow
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Space
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StaffType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StartNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StartStop
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StartStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StartStopSingle
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StemValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Step
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StickLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StickMaterial
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StickType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SumLang
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Syllabic
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.SymbolSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TapHand
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Tenths
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TextDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TiedType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TimeOnly
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TimeRelation
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TimeSeparator
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TimeSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TipDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Token
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TopBottom
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TremoloType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TrillBeats
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TrillStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Type
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.UpDown
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.UprightInverted
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Valign
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.ValignImage
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.WedgeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Winged
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.Wood
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.YesNo
+ Fadno.MusicXml.MusicXml31: instance GHC.Classes.Ord Fadno.MusicXml.MusicXml31.YyyyMmDd
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.AboveBelow
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.AccidentalValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Actuate
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.ArrowDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.ArrowStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.BackwardForward
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.BarStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.BeamValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.BeaterValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.BreathMarkValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.CaesuraValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.CancelLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.CircularArrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.ClefSign
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.CssFontSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Effect
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.EnclosureShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Fan
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.FermataShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.FontStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.FontWeight
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.GlassValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.HandbellValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.HarmonyType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.HoleClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.KindValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.LeftCenterRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.LeftRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.LineEnd
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.LineLength
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.LineShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.LineType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.MarginType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Membrane
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Metal
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Mute
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.NoteSizeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.NoteTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.NoteheadValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.OnOff
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.OverUnder
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.PedalType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.PitchedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.SemiPitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.ShowFrets
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.ShowTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.SmpShow
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Space
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StaffType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StartNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StartStop
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StartStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StartStopSingle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StemValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Step
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StickLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StickMaterial
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StickType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.SumLang
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Syllabic
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.SymbolSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TapHand
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TextDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TiedType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TimeRelation
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TimeSeparator
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TimeSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TipDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TopBottom
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TremoloType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TrillStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Type
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.UpDown
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.UprightInverted
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Valign
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.ValignImage
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.WedgeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Winged
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.Wood
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Bounded Fadno.MusicXml.MusicXml31.YesNo
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.AboveBelow
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.AccidentalValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Actuate
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.ArrowDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.ArrowStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.BackwardForward
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.BarStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.BeamValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.BeaterValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.BreathMarkValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.CaesuraValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.CancelLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.CircularArrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.ClefSign
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.CssFontSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Effect
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.EnclosureShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Fan
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.FermataShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.FontStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.FontWeight
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.GlassValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.HandbellValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.HarmonyType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.HoleClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.KindValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.LeftCenterRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.LeftRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.LineEnd
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.LineLength
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.LineShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.LineType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.MarginType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Membrane
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Metal
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Mute
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.NoteSizeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.NoteTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.NoteheadValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.OnOff
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.OverUnder
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.PedalType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.PitchedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.SemiPitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.ShowFrets
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.ShowTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.SmpShow
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Space
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StaffType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StartNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StartStop
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StartStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StartStopSingle
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StemValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Step
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StickLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StickMaterial
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StickType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.SumLang
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Syllabic
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.SymbolSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TapHand
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TextDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TiedType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TimeRelation
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TimeSeparator
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TimeSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TipDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TopBottom
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TremoloType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TrillStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Type
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.UpDown
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.UprightInverted
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Valign
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.ValignImage
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.WedgeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Winged
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.Wood
+ Fadno.MusicXml.MusicXml31: instance GHC.Enum.Enum Fadno.MusicXml.MusicXml31.YesNo
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.AboveBelow
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Accidental
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.AccidentalMark
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.AccidentalText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.AccidentalValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Accord
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.AccordionRegistration
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Actuate
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.AllMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Appearance
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Arpeggiate
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Arrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ArrowDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ArrowStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Articulations
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Attributes
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Backup
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BackwardForward
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BarStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BarStyleColor
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Barline
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Barre
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Bass
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BassAlter
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BassStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Beam
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BeamValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BeatRepeat
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BeatUnit
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BeatUnitTied
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Beater
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BeaterValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Bend
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Bookmark
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Bracket
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BreathMark
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.BreathMarkValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Caesura
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.CaesuraValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Cancel
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.CancelLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxArrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxArticulations
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxBend
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxCredit
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxCredit0
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxCredit1
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxDirectionType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxDirectionType0
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxDynamics
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxEncoding
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxHarmonic
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxKey
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxLyric
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxMetronome
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxMetronome0
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxMusicData
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxNameDisplay
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxNotations
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxNote0
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxNoteheadText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxOrnaments
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxPartList
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxPercussion
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxPlay
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxTechnical
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ChxTime
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.CircularArrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Clef
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ClefSign
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.CmpMeasure
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.CmpPart
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.CmpScorePart
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.CmpSlash
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.CmpString
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Coda
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Color
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Credit
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.CssFontSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Dashes
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Defaults
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Degree
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.DegreeAlter
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.DegreeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.DegreeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Direction
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.DirectionType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Directive
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.DisplayStepOctave
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Distance
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.DistanceType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Divisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Duration
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Dynamics
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Editorial
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EditorialVoice
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EditorialVoiceDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Effect
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Elision
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Empty
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EmptyFont
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EmptyLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EmptyPlacement
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EmptyPrintObjectStyleAlign
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EnclosureShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Encoding
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Ending
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.EndingNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Extend
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Fan
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Feature
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Fermata
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FermataShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Figure
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FiguredBass
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Fingering
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FirstFret
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FontSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FontStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FontWeight
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Footnote
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FormattedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FormattedTextId
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Forward
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Frame
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FrameNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Fret
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.FullNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Glass
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.GlassValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Glissando
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Glyph
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.GlyphType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Grace
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.GroupBarline
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.GroupName
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.GroupSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Grouping
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.GrpFullNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.GrpLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.GrpPartGroup
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HammerOnPullOff
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Handbell
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HandbellValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HarmonClosed
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HarmonMute
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Harmonic
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Harmony
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HarmonyChord
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HarmonyType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HarpPedals
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HeelToe
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Hole
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HoleClosed
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HoleClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.HorizontalTurn
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ID
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.IDREF
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Identification
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Image
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Instrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Interchangeable
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Inversion
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Key
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.KeyAccidental
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.KeyOctave
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Kind
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.KindValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Lang
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Language
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Layout
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LeftCenterRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LeftRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LeftRightMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Level
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LineEnd
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LineLength
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LineShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LineType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LineWidth
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LineWidthType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Link
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Lyric
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LyricFont
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.LyricLanguage
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MarginType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Measure
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MeasureLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MeasureNumbering
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MeasureRepeat
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MeasureStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MeasureText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Membrane
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Metal
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Metronome
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MetronomeBeam
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MetronomeNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MetronomeTied
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MetronomeTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MidiDevice
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MidiInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Millimeters
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Miscellaneous
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MiscellaneousField
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Mode
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Mordent
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MultipleRest
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.MusicData
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Mute
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NCName
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NMTOKEN
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Name
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NameDisplay
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NonArpeggiate
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NonTraditionalKey
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NormalizedString
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Notations
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Note
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NoteSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NoteSizeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NoteType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NoteTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Notehead
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NoteheadText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NoteheadValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.NumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.OctaveShift
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Offset
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.OnOff
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Opus
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Ornaments
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.OtherAppearance
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.OtherDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.OtherNotation
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.OtherPlacementText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.OtherPlay
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.OtherText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.OverUnder
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PageLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PageMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Part
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PartGroup
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PartList
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PartName
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PartSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Pedal
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PedalTuning
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PedalType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PerMinute
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Percent
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Percussion
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Pitch
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Pitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PitchedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PlacementText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Play
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PositiveDivisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PrincipalVoice
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Print
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Repeat
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Rest
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Root
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.RootAlter
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.RootStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.RotationDegrees
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Scaling
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Scordatura
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ScoreHeader
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ScoreInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ScorePart
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ScorePartwise
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ScoreTimewise
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Segno
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SemiPitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Semitones
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqCredit
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqLyric
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqLyric0
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqMetronome
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqMetronomeTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqOrnaments
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqPageLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqScorePart
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqSlash
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqSound
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SeqTimeModification
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ShowFrets
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ShowTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Slash
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Slide
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Slur
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SmpShow
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Sound
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Space
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Staff
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StaffDetails
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StaffDivide
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StaffLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StaffTuning
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StaffType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StartNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StartStop
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StartStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StartStopSingle
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Stem
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StemValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Step
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Stick
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StickLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StickMaterial
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StickType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StringMute
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StrongAccent
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.StyleText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SumLang
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Supports
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Syllabic
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SymbolSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SystemDividers
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SystemLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.SystemMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Tap
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TapHand
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Technical
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Tenths
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TextDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TextElementData
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Tie
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Tied
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TiedType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Time
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TimeModification
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TimeOnly
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TimeRelation
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TimeSeparator
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TimeSignature
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TimeSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TipDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Token
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TopBottom
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TraditionalKey
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Transpose
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Tremolo
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TremoloType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TrillBeats
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TrillStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Tuning
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Tuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TupletDot
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TupletNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TupletPortion
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TupletType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Type
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.TypedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Unpitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.UpDown
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.UprightInverted
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Valign
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.ValignImage
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.VirtualInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Voice
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.WavyLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Wedge
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.WedgeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Winged
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Wood
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.Work
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.YesNo
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.YesNoNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Generics.Generic Fadno.MusicXml.MusicXml31.YyyyMmDd
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.Divisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.Millimeters
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.Percent
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.PositiveDivisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.RotationDegrees
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.Semitones
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.Tenths
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance GHC.Num.Num Fadno.MusicXml.MusicXml31.TrillBeats
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Color
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.DistanceType
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Divisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.EndingNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.GlyphType
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.ID
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.IDREF
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Language
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.LineWidthType
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.MeasureText
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Millimeters
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Mode
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.NCName
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.NMTOKEN
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Name
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.NormalizedString
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Percent
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.PositiveDivisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.RotationDegrees
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Semitones
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Tenths
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.TimeOnly
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.Token
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.TrillBeats
+ Fadno.MusicXml.MusicXml31: instance GHC.Read.Read Fadno.MusicXml.MusicXml31.YyyyMmDd
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml31.Divisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml31.Millimeters
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml31.NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml31.Percent
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml31.PositiveDivisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml31.RotationDegrees
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml31.Semitones
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml31.Tenths
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Fractional Fadno.MusicXml.MusicXml31.TrillBeats
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Integral Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.Divisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.Millimeters
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.Percent
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.PositiveDivisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.RotationDegrees
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.Semitones
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.Tenths
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.Real Fadno.MusicXml.MusicXml31.TrillBeats
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml31.Divisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml31.Millimeters
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml31.NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml31.Percent
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml31.PositiveDivisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml31.RotationDegrees
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml31.Semitones
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml31.Tenths
+ Fadno.MusicXml.MusicXml31: instance GHC.Real.RealFrac Fadno.MusicXml.MusicXml31.TrillBeats
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.AboveBelow
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Accidental
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.AccidentalMark
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.AccidentalText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.AccidentalValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Accord
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.AccordionMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.AccordionRegistration
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Actuate
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.AllMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Appearance
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Arpeggiate
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Arrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ArrowDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ArrowStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Articulations
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Attributes
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Backup
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BackwardForward
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BarStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BarStyleColor
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Barline
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Barre
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Bass
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BassAlter
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BassStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Beam
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BeamLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BeamValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BeatRepeat
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BeatUnit
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BeatUnitTied
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Beater
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BeaterValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Bend
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Bookmark
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Bracket
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BreathMark
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.BreathMarkValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Caesura
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.CaesuraValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Cancel
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.CancelLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxArrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxArticulations
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxBend
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxCredit
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxCredit0
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxCredit1
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxDirectionType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxDirectionType0
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxDynamics
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxEncoding
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxHarmonic
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxKey
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxLyric
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxMetronome
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxMetronome0
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxMusicData
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxNameDisplay
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxNotations
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxNote0
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxNoteheadText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxOrnaments
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxPartList
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxPercussion
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxPlay
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxTechnical
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ChxTime
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.CircularArrow
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Clef
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ClefSign
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.CmpMeasure
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.CmpPart
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.CmpScorePart
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.CmpSlash
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.CmpString
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Coda
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Color
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Credit
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.CssFontSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Dashes
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Defaults
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Degree
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.DegreeAlter
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.DegreeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.DegreeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Direction
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.DirectionType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Directive
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.DisplayStepOctave
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Distance
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.DistanceType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Divisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Duration
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Dynamics
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Editorial
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EditorialVoice
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EditorialVoiceDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Effect
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Elision
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Empty
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EmptyFont
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EmptyLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EmptyPlacement
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EmptyPrintObjectStyleAlign
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EnclosureShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Encoding
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Ending
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.EndingNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Extend
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Fan
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Feature
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Fermata
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FermataShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Fifths
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Figure
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FiguredBass
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Fingering
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FirstFret
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FontSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FontStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FontWeight
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Footnote
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FormattedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FormattedTextId
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Forward
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Frame
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FrameNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Fret
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.FullNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Glass
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.GlassValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Glissando
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Glyph
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.GlyphType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Grace
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.GroupBarline
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.GroupName
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.GroupSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Grouping
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.GrpFullNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.GrpLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.GrpPartGroup
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HammerOnPullOff
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Handbell
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HandbellValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HarmonClosed
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HarmonMute
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Harmonic
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Harmony
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HarmonyChord
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HarmonyType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HarpPedals
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HeelToe
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Hole
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HoleClosed
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HoleClosedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.HorizontalTurn
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ID
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.IDREF
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Identification
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Image
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Instrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Interchangeable
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Inversion
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Key
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.KeyAccidental
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.KeyOctave
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Kind
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.KindValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Lang
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Language
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Layout
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LeftCenterRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LeftRight
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LeftRightMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Level
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LineEnd
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LineLength
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LineShape
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LineType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LineWidth
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LineWidthType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Link
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Lyric
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LyricFont
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.LyricLanguage
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MarginType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Measure
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MeasureLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MeasureNumbering
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MeasureRepeat
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MeasureStyle
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MeasureText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Membrane
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Metal
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Metronome
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MetronomeBeam
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MetronomeNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MetronomeTied
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MetronomeTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Midi128
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Midi16
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Midi16384
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MidiDevice
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MidiInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Millimeters
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Miscellaneous
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MiscellaneousField
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Mode
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Mordent
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MultipleRest
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.MusicData
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Mute
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NCName
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NMTOKEN
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Name
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NameDisplay
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NonArpeggiate
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NonTraditionalKey
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NormalizedString
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Notations
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Note
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NoteSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NoteSizeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NoteType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NoteTypeValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Notehead
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NoteheadText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NoteheadValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NumberLevel
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NumberOfLines
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.NumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Octave
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.OctaveShift
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Offset
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.OnOff
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Opus
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Ornaments
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.OtherAppearance
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.OtherDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.OtherNotation
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.OtherPlacementText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.OtherPlay
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.OtherText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.OverUnder
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PageLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PageMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Part
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PartGroup
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PartList
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PartName
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PartSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Pedal
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PedalTuning
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PedalType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PerMinute
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Percent
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Percussion
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Pitch
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Pitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PitchedValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PlacementText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Play
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PositiveDivisions
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PositiveInteger
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PrincipalVoice
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Print
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Repeat
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Rest
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Root
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.RootAlter
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.RootStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.RotationDegrees
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Scaling
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Scordatura
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ScoreHeader
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ScoreInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ScorePart
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ScorePartwise
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ScoreTimewise
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Segno
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SemiPitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Semitones
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqCredit
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqLyric
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqLyric0
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqMetronome
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqMetronomeTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqOrnaments
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqPageLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqScorePart
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqSlash
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqSound
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SeqTimeModification
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ShowFrets
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ShowTuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Slash
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Slide
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Slur
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SmpShow
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Sound
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Space
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Staff
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StaffDetails
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StaffDivide
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StaffLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StaffLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StaffNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StaffTuning
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StaffType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StartNote
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StartStop
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StartStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StartStopSingle
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Stem
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StemValue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Step
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Stick
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StickLocation
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StickMaterial
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StickType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StringMute
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StringNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StrongAccent
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.StyleText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SumLang
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Supports
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Syllabic
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SymbolSize
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SystemDividers
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SystemLayout
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.SystemMargins
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Tap
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TapHand
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Technical
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Tenths
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TextDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TextElementData
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Tie
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Tied
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TiedType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Time
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TimeModification
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TimeOnly
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TimeRelation
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TimeSeparator
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TimeSignature
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TimeSymbol
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TipDirection
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Token
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TopBottom
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TraditionalKey
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Transpose
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Tremolo
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TremoloMarks
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TremoloType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TrillBeats
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TrillStep
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Tuning
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Tuplet
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TupletDot
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TupletNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TupletPortion
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TupletType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Type
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.TypedText
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Unpitched
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.UpDown
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.UprightInverted
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Valign
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.ValignImage
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.VirtualInstrument
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Voice
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.WavyLine
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Wedge
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.WedgeType
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Winged
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Wood
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.Work
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.YesNo
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.YesNoNumber
+ Fadno.MusicXml.MusicXml31: instance GHC.Show.Show Fadno.MusicXml.MusicXml31.YyyyMmDd
+ Fadno.MusicXml.MusicXml31: mkAccidental :: AccidentalValue -> Accidental
+ Fadno.MusicXml.MusicXml31: mkAccidentalMark :: AccidentalValue -> AccidentalMark
+ Fadno.MusicXml.MusicXml31: mkAccidentalText :: AccidentalValue -> AccidentalText
+ Fadno.MusicXml.MusicXml31: mkAccord :: Tuning -> Accord
+ Fadno.MusicXml.MusicXml31: mkAccordionRegistration :: AccordionRegistration
+ Fadno.MusicXml.MusicXml31: mkAllMargins :: LeftRightMargins -> Tenths -> Tenths -> AllMargins
+ Fadno.MusicXml.MusicXml31: mkAppearance :: Appearance
+ Fadno.MusicXml.MusicXml31: mkArpeggiate :: Arpeggiate
+ Fadno.MusicXml.MusicXml31: mkArrow :: ChxArrow -> Arrow
+ Fadno.MusicXml.MusicXml31: mkArrowArrowDirection :: ArrowDirection -> ChxArrow
+ Fadno.MusicXml.MusicXml31: mkArrowCircularArrow :: CircularArrow -> ChxArrow
+ Fadno.MusicXml.MusicXml31: mkArticulations :: Articulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsAccent :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsBreathMark :: BreathMark -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsCaesura :: Caesura -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsDetachedLegato :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsDoit :: EmptyLine -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsFalloff :: EmptyLine -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsOtherArticulation :: OtherPlacementText -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsPlop :: EmptyLine -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsScoop :: EmptyLine -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsSoftAccent :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsSpiccato :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsStaccatissimo :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsStaccato :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsStress :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsStrongAccent :: StrongAccent -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsTenuto :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkArticulationsUnstress :: EmptyPlacement -> ChxArticulations
+ Fadno.MusicXml.MusicXml31: mkAttributes :: Editorial -> Attributes
+ Fadno.MusicXml.MusicXml31: mkBackup :: Duration -> Editorial -> Backup
+ Fadno.MusicXml.MusicXml31: mkBarStyleColor :: BarStyle -> BarStyleColor
+ Fadno.MusicXml.MusicXml31: mkBarline :: Editorial -> Barline
+ Fadno.MusicXml.MusicXml31: mkBarre :: StartStop -> Barre
+ Fadno.MusicXml.MusicXml31: mkBass :: BassStep -> Bass
+ Fadno.MusicXml.MusicXml31: mkBassAlter :: Semitones -> BassAlter
+ Fadno.MusicXml.MusicXml31: mkBassStep :: Step -> BassStep
+ Fadno.MusicXml.MusicXml31: mkBeam :: BeamValue -> Beam
+ Fadno.MusicXml.MusicXml31: mkBeatRepeat :: StartStop -> BeatRepeat
+ Fadno.MusicXml.MusicXml31: mkBeatUnit :: NoteTypeValue -> BeatUnit
+ Fadno.MusicXml.MusicXml31: mkBeatUnitTied :: BeatUnit -> BeatUnitTied
+ Fadno.MusicXml.MusicXml31: mkBeater :: BeaterValue -> Beater
+ Fadno.MusicXml.MusicXml31: mkBend :: Semitones -> Bend
+ Fadno.MusicXml.MusicXml31: mkBendPreBend :: Empty -> ChxBend
+ Fadno.MusicXml.MusicXml31: mkBendRelease :: Empty -> ChxBend
+ Fadno.MusicXml.MusicXml31: mkBookmark :: ID -> Bookmark
+ Fadno.MusicXml.MusicXml31: mkBracket :: StartStopContinue -> LineEnd -> Bracket
+ Fadno.MusicXml.MusicXml31: mkBreathMark :: BreathMarkValue -> BreathMark
+ Fadno.MusicXml.MusicXml31: mkCaesura :: CaesuraValue -> Caesura
+ Fadno.MusicXml.MusicXml31: mkCancel :: Fifths -> Cancel
+ Fadno.MusicXml.MusicXml31: mkChxCreditCreditSymbol :: FormattedSymbolId -> ChxCredit1
+ Fadno.MusicXml.MusicXml31: mkChxCreditCreditWords :: FormattedTextId -> ChxCredit1
+ Fadno.MusicXml.MusicXml31: mkChxMetronomeBeatUnit :: BeatUnit -> ChxMetronome0 -> ChxMetronome
+ Fadno.MusicXml.MusicXml31: mkChxNoteCue :: Empty -> GrpFullNote -> Duration -> ChxNote
+ Fadno.MusicXml.MusicXml31: mkChxNoteFullNote :: GrpFullNote -> Duration -> ChxNote
+ Fadno.MusicXml.MusicXml31: mkClef :: ClefSign -> Clef
+ Fadno.MusicXml.MusicXml31: mkCmpMeasure :: Token -> CmpMeasure
+ Fadno.MusicXml.MusicXml31: mkCmpPart :: IDREF -> CmpPart
+ Fadno.MusicXml.MusicXml31: mkCmpScorePart :: ID -> PartName -> CmpScorePart
+ Fadno.MusicXml.MusicXml31: mkCmpSlash :: StartStop -> CmpSlash
+ Fadno.MusicXml.MusicXml31: mkCmpString :: StringNumber -> CmpString
+ Fadno.MusicXml.MusicXml31: mkCoda :: Coda
+ Fadno.MusicXml.MusicXml31: mkCredit :: ChxCredit -> Credit
+ Fadno.MusicXml.MusicXml31: mkCreditCredit :: ChxCredit0 -> ChxCredit
+ Fadno.MusicXml.MusicXml31: mkCreditCreditImage :: Image -> ChxCredit
+ Fadno.MusicXml.MusicXml31: mkCreditCreditSymbol :: FormattedSymbolId -> ChxCredit0
+ Fadno.MusicXml.MusicXml31: mkCreditCreditWords :: FormattedTextId -> ChxCredit0
+ Fadno.MusicXml.MusicXml31: mkDashes :: StartStopContinue -> Dashes
+ Fadno.MusicXml.MusicXml31: mkDefaults :: Layout -> Defaults
+ Fadno.MusicXml.MusicXml31: mkDegree :: DegreeValue -> DegreeAlter -> DegreeType -> Degree
+ Fadno.MusicXml.MusicXml31: mkDegreeAlter :: Semitones -> DegreeAlter
+ Fadno.MusicXml.MusicXml31: mkDegreeType :: DegreeTypeValue -> DegreeType
+ Fadno.MusicXml.MusicXml31: mkDegreeValue :: PositiveInteger -> DegreeValue
+ Fadno.MusicXml.MusicXml31: mkDirection :: EditorialVoiceDirection -> Direction
+ Fadno.MusicXml.MusicXml31: mkDirectionType :: ChxDirectionType -> DirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeAccordionRegistration :: AccordionRegistration -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeBracket :: Bracket -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeCoda :: ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeDamp :: EmptyPrintStyleAlignId -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeDampAll :: EmptyPrintStyleAlignId -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeDashes :: Dashes -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeDirectionType :: ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeDynamics :: ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeEyeglasses :: EmptyPrintStyleAlignId -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeHarpPedals :: HarpPedals -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeImage :: Image -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeMetronome :: Metronome -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeOctaveShift :: OctaveShift -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeOtherDirection :: OtherDirection -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypePedal :: Pedal -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypePercussion :: ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypePrincipalVoice :: PrincipalVoice -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeRehearsal :: ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeScordatura :: Scordatura -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeSegno :: ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeStaffDivide :: StaffDivide -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeStringMute :: StringMute -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeSymbol :: FormattedSymbolId -> ChxDirectionType0
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeWedge :: Wedge -> ChxDirectionType
+ Fadno.MusicXml.MusicXml31: mkDirectionTypeWords :: FormattedTextId -> ChxDirectionType0
+ Fadno.MusicXml.MusicXml31: mkDirective :: String -> Directive
+ Fadno.MusicXml.MusicXml31: mkDisplayStepOctave :: Step -> Octave -> DisplayStepOctave
+ Fadno.MusicXml.MusicXml31: mkDistance :: Tenths -> DistanceType -> Distance
+ Fadno.MusicXml.MusicXml31: mkDuration :: PositiveDivisions -> Duration
+ Fadno.MusicXml.MusicXml31: mkDynamics :: Dynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsF :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsFf :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsFff :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsFfff :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsFffff :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsFfffff :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsFp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsFz :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsMf :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsMp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsN :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsOtherDynamics :: OtherText -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsP :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsPf :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsPp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsPpp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsPppp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsPpppp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsPppppp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsRf :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsRfz :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsSf :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsSffz :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsSfp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsSfpp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsSfz :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkDynamicsSfzp :: Empty -> ChxDynamics
+ Fadno.MusicXml.MusicXml31: mkEditorial :: Editorial
+ Fadno.MusicXml.MusicXml31: mkEditorialVoice :: EditorialVoice
+ Fadno.MusicXml.MusicXml31: mkEditorialVoiceDirection :: EditorialVoiceDirection
+ Fadno.MusicXml.MusicXml31: mkElision :: String -> Elision
+ Fadno.MusicXml.MusicXml31: mkEmpty :: Empty
+ Fadno.MusicXml.MusicXml31: mkEmptyFont :: EmptyFont
+ Fadno.MusicXml.MusicXml31: mkEmptyLine :: EmptyLine
+ Fadno.MusicXml.MusicXml31: mkEmptyPlacement :: EmptyPlacement
+ Fadno.MusicXml.MusicXml31: mkEmptyPlacementSmufl :: EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: mkEmptyPrintObjectStyleAlign :: EmptyPrintObjectStyleAlign
+ Fadno.MusicXml.MusicXml31: mkEmptyPrintStyleAlignId :: EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: mkEmptyTrillSound :: EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: mkEncoding :: Encoding
+ Fadno.MusicXml.MusicXml31: mkEncodingEncoder :: TypedText -> ChxEncoding
+ Fadno.MusicXml.MusicXml31: mkEncodingEncodingDate :: YyyyMmDd -> ChxEncoding
+ Fadno.MusicXml.MusicXml31: mkEncodingEncodingDescription :: String -> ChxEncoding
+ Fadno.MusicXml.MusicXml31: mkEncodingSoftware :: String -> ChxEncoding
+ Fadno.MusicXml.MusicXml31: mkEncodingSupports :: Supports -> ChxEncoding
+ Fadno.MusicXml.MusicXml31: mkEnding :: String -> EndingNumber -> StartStopDiscontinue -> Ending
+ Fadno.MusicXml.MusicXml31: mkExtend :: Extend
+ Fadno.MusicXml.MusicXml31: mkFeature :: String -> Feature
+ Fadno.MusicXml.MusicXml31: mkFermata :: FermataShape -> Fermata
+ Fadno.MusicXml.MusicXml31: mkFigure :: Editorial -> Figure
+ Fadno.MusicXml.MusicXml31: mkFiguredBass :: Editorial -> FiguredBass
+ Fadno.MusicXml.MusicXml31: mkFingering :: String -> Fingering
+ Fadno.MusicXml.MusicXml31: mkFirstFret :: PositiveInteger -> FirstFret
+ Fadno.MusicXml.MusicXml31: mkFootnote :: FormattedText -> Footnote
+ Fadno.MusicXml.MusicXml31: mkFormattedSymbolId :: SmuflGlyphName -> FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: mkFormattedText :: String -> FormattedText
+ Fadno.MusicXml.MusicXml31: mkFormattedTextId :: String -> FormattedTextId
+ Fadno.MusicXml.MusicXml31: mkForward :: Duration -> EditorialVoice -> Forward
+ Fadno.MusicXml.MusicXml31: mkFrame :: PositiveInteger -> PositiveInteger -> Frame
+ Fadno.MusicXml.MusicXml31: mkFrameNote :: CmpString -> Fret -> FrameNote
+ Fadno.MusicXml.MusicXml31: mkFret :: NonNegativeInteger -> Fret
+ Fadno.MusicXml.MusicXml31: mkFullNotePitch :: Pitch -> FullNote
+ Fadno.MusicXml.MusicXml31: mkFullNoteRest :: Rest -> FullNote
+ Fadno.MusicXml.MusicXml31: mkFullNoteUnpitched :: Unpitched -> FullNote
+ Fadno.MusicXml.MusicXml31: mkGlass :: GlassValue -> Glass
+ Fadno.MusicXml.MusicXml31: mkGlissando :: String -> StartStop -> Glissando
+ Fadno.MusicXml.MusicXml31: mkGlyph :: SmuflGlyphName -> GlyphType -> Glyph
+ Fadno.MusicXml.MusicXml31: mkGrace :: Grace
+ Fadno.MusicXml.MusicXml31: mkGroupBarline :: GroupBarlineValue -> GroupBarline
+ Fadno.MusicXml.MusicXml31: mkGroupName :: String -> GroupName
+ Fadno.MusicXml.MusicXml31: mkGroupSymbol :: GroupSymbolValue -> GroupSymbol
+ Fadno.MusicXml.MusicXml31: mkGrouping :: StartStopSingle -> Grouping
+ Fadno.MusicXml.MusicXml31: mkGrpFullNote :: FullNote -> GrpFullNote
+ Fadno.MusicXml.MusicXml31: mkGrpLevel :: Level -> GrpLevel
+ Fadno.MusicXml.MusicXml31: mkGrpPartGroup :: PartGroup -> GrpPartGroup
+ Fadno.MusicXml.MusicXml31: mkHammerOnPullOff :: String -> StartStop -> HammerOnPullOff
+ Fadno.MusicXml.MusicXml31: mkHandbell :: HandbellValue -> Handbell
+ Fadno.MusicXml.MusicXml31: mkHarmonClosed :: HarmonClosedValue -> HarmonClosed
+ Fadno.MusicXml.MusicXml31: mkHarmonMute :: HarmonClosed -> HarmonMute
+ Fadno.MusicXml.MusicXml31: mkHarmonic :: Harmonic
+ Fadno.MusicXml.MusicXml31: mkHarmonicArtificial :: Empty -> ChxHarmonic
+ Fadno.MusicXml.MusicXml31: mkHarmonicBasePitch :: Empty -> ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: mkHarmonicNatural :: Empty -> ChxHarmonic
+ Fadno.MusicXml.MusicXml31: mkHarmonicSoundingPitch :: Empty -> ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: mkHarmonicTouchingPitch :: Empty -> ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: mkHarmony :: Editorial -> Harmony
+ Fadno.MusicXml.MusicXml31: mkHarmonyChord :: ChxHarmonyChord -> Kind -> HarmonyChord
+ Fadno.MusicXml.MusicXml31: mkHarmonyChordFunction :: StyleText -> ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: mkHarmonyChordRoot :: Root -> ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: mkHarpPedals :: HarpPedals
+ Fadno.MusicXml.MusicXml31: mkHeelToe :: HeelToe -> HeelToe
+ Fadno.MusicXml.MusicXml31: mkHole :: HoleClosed -> Hole
+ Fadno.MusicXml.MusicXml31: mkHoleClosed :: HoleClosedValue -> HoleClosed
+ Fadno.MusicXml.MusicXml31: mkHorizontalTurn :: HorizontalTurn
+ Fadno.MusicXml.MusicXml31: mkIdentification :: Identification
+ Fadno.MusicXml.MusicXml31: mkImage :: String -> Token -> Image
+ Fadno.MusicXml.MusicXml31: mkInstrument :: IDREF -> Instrument
+ Fadno.MusicXml.MusicXml31: mkInterchangeable :: Interchangeable
+ Fadno.MusicXml.MusicXml31: mkInversion :: NonNegativeInteger -> Inversion
+ Fadno.MusicXml.MusicXml31: mkKey :: ChxKey -> Key
+ Fadno.MusicXml.MusicXml31: mkKeyAccidental :: AccidentalValue -> KeyAccidental
+ Fadno.MusicXml.MusicXml31: mkKeyNonTraditionalKey :: ChxKey
+ Fadno.MusicXml.MusicXml31: mkKeyOctave :: Octave -> PositiveInteger -> KeyOctave
+ Fadno.MusicXml.MusicXml31: mkKeyTraditionalKey :: TraditionalKey -> ChxKey
+ Fadno.MusicXml.MusicXml31: mkKind :: KindValue -> Kind
+ Fadno.MusicXml.MusicXml31: mkLayout :: Layout
+ Fadno.MusicXml.MusicXml31: mkLeftRightMargins :: Tenths -> Tenths -> LeftRightMargins
+ Fadno.MusicXml.MusicXml31: mkLevel :: String -> Level
+ Fadno.MusicXml.MusicXml31: mkLineWidth :: Tenths -> LineWidthType -> LineWidth
+ Fadno.MusicXml.MusicXml31: mkLink :: String -> Link
+ Fadno.MusicXml.MusicXml31: mkLyric :: ChxLyric -> Editorial -> Lyric
+ Fadno.MusicXml.MusicXml31: mkLyricExtend :: Extend -> ChxLyric
+ Fadno.MusicXml.MusicXml31: mkLyricFont :: LyricFont
+ Fadno.MusicXml.MusicXml31: mkLyricHumming :: Empty -> ChxLyric
+ Fadno.MusicXml.MusicXml31: mkLyricLanguage :: Lang -> LyricLanguage
+ Fadno.MusicXml.MusicXml31: mkLyricLaughing :: Empty -> ChxLyric
+ Fadno.MusicXml.MusicXml31: mkLyricSyllabic :: TextElementData -> ChxLyric
+ Fadno.MusicXml.MusicXml31: mkMeasure :: Token -> MusicData -> Measure
+ Fadno.MusicXml.MusicXml31: mkMeasureLayout :: MeasureLayout
+ Fadno.MusicXml.MusicXml31: mkMeasureNumbering :: MeasureNumberingValue -> MeasureNumbering
+ Fadno.MusicXml.MusicXml31: mkMeasureRepeat :: PositiveIntegerOrEmpty -> StartStop -> MeasureRepeat
+ Fadno.MusicXml.MusicXml31: mkMeasureStyle :: ChxMeasureStyle -> MeasureStyle
+ Fadno.MusicXml.MusicXml31: mkMeasureStyleBeatRepeat :: BeatRepeat -> ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: mkMeasureStyleMeasureRepeat :: MeasureRepeat -> ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: mkMeasureStyleMultipleRest :: MultipleRest -> ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: mkMeasureStyleSlash :: CmpSlash -> ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: mkMetronome :: ChxMetronome -> Metronome
+ Fadno.MusicXml.MusicXml31: mkMetronomeBeam :: BeamValue -> MetronomeBeam
+ Fadno.MusicXml.MusicXml31: mkMetronomeBeatUnit :: BeatUnit -> ChxMetronome0
+ Fadno.MusicXml.MusicXml31: mkMetronomeMetronomeArrows :: ChxMetronome
+ Fadno.MusicXml.MusicXml31: mkMetronomeNote :: NoteTypeValue -> MetronomeNote
+ Fadno.MusicXml.MusicXml31: mkMetronomePerMinute :: PerMinute -> ChxMetronome0
+ Fadno.MusicXml.MusicXml31: mkMetronomeTied :: StartStop -> MetronomeTied
+ Fadno.MusicXml.MusicXml31: mkMetronomeTuplet :: MetronomeTuplet -> StartStop -> MetronomeTuplet
+ Fadno.MusicXml.MusicXml31: mkMidiDevice :: String -> MidiDevice
+ Fadno.MusicXml.MusicXml31: mkMidiInstrument :: IDREF -> MidiInstrument
+ Fadno.MusicXml.MusicXml31: mkMiscellaneous :: Miscellaneous
+ Fadno.MusicXml.MusicXml31: mkMiscellaneousField :: String -> Token -> MiscellaneousField
+ Fadno.MusicXml.MusicXml31: mkMordent :: Mordent -> Mordent
+ Fadno.MusicXml.MusicXml31: mkMultipleRest :: PositiveIntegerOrEmpty -> MultipleRest
+ Fadno.MusicXml.MusicXml31: mkMusicData :: MusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataAttributes :: Attributes -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataBackup :: Backup -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataBarline :: Barline -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataBookmark :: Bookmark -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataDirection :: Direction -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataFiguredBass :: FiguredBass -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataForward :: Forward -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataGrouping :: Grouping -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataHarmony :: Harmony -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataLink :: Link -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataNote :: Note -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataPrint :: Print -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkMusicDataSound :: Sound -> ChxMusicData
+ Fadno.MusicXml.MusicXml31: mkNameDisplay :: NameDisplay
+ Fadno.MusicXml.MusicXml31: mkNameDisplayAccidentalText :: AccidentalText -> ChxNameDisplay
+ Fadno.MusicXml.MusicXml31: mkNameDisplayDisplayText :: FormattedText -> ChxNameDisplay
+ Fadno.MusicXml.MusicXml31: mkNonArpeggiate :: TopBottom -> NonArpeggiate
+ Fadno.MusicXml.MusicXml31: mkNonTraditionalKey :: Step -> Semitones -> NonTraditionalKey
+ Fadno.MusicXml.MusicXml31: mkNotations :: Editorial -> Notations
+ Fadno.MusicXml.MusicXml31: mkNotationsAccidentalMark :: AccidentalMark -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsArpeggiate :: Arpeggiate -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsArticulations :: Articulations -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsDynamics :: Dynamics -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsFermata :: Fermata -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsGlissando :: Glissando -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsNonArpeggiate :: NonArpeggiate -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsOrnaments :: Ornaments -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsOtherNotation :: OtherNotation -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsSlide :: Slide -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsSlur :: Slur -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsTechnical :: Technical -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsTied :: Tied -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNotationsTuplet :: Tuplet -> ChxNotations
+ Fadno.MusicXml.MusicXml31: mkNote :: ChxNote -> EditorialVoice -> Note
+ Fadno.MusicXml.MusicXml31: mkNoteCue :: Empty -> GrpFullNote -> ChxNote0
+ Fadno.MusicXml.MusicXml31: mkNoteFullNote :: GrpFullNote -> ChxNote0
+ Fadno.MusicXml.MusicXml31: mkNoteGrace :: Grace -> ChxNote0 -> ChxNote
+ Fadno.MusicXml.MusicXml31: mkNoteSize :: NonNegativeDecimal -> NoteSizeType -> NoteSize
+ Fadno.MusicXml.MusicXml31: mkNoteType :: NoteTypeValue -> NoteType
+ Fadno.MusicXml.MusicXml31: mkNotehead :: NoteheadValue -> Notehead
+ Fadno.MusicXml.MusicXml31: mkNoteheadText :: NoteheadText
+ Fadno.MusicXml.MusicXml31: mkNoteheadTextAccidentalText :: AccidentalText -> ChxNoteheadText
+ Fadno.MusicXml.MusicXml31: mkNoteheadTextDisplayText :: FormattedText -> ChxNoteheadText
+ Fadno.MusicXml.MusicXml31: mkOctaveShift :: UpDownStopContinue -> OctaveShift
+ Fadno.MusicXml.MusicXml31: mkOffset :: Divisions -> Offset
+ Fadno.MusicXml.MusicXml31: mkOpus :: String -> Opus
+ Fadno.MusicXml.MusicXml31: mkOrnaments :: Ornaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsDelayedInvertedTurn :: HorizontalTurn -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsDelayedTurn :: HorizontalTurn -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsHaydn :: EmptyTrillSound -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsInvertedMordent :: Mordent -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsInvertedTurn :: HorizontalTurn -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsInvertedVerticalTurn :: EmptyTrillSound -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsMordent :: Mordent -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsOtherOrnament :: OtherPlacementText -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsSchleifer :: EmptyPlacement -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsShake :: EmptyTrillSound -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsTremolo :: Tremolo -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsTrillMark :: EmptyTrillSound -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsTurn :: HorizontalTurn -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsVerticalTurn :: EmptyTrillSound -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOrnamentsWavyLine :: WavyLine -> ChxOrnaments
+ Fadno.MusicXml.MusicXml31: mkOtherAppearance :: String -> Token -> OtherAppearance
+ Fadno.MusicXml.MusicXml31: mkOtherDirection :: String -> OtherDirection
+ Fadno.MusicXml.MusicXml31: mkOtherNotation :: String -> StartStopSingle -> OtherNotation
+ Fadno.MusicXml.MusicXml31: mkOtherPlacementText :: String -> OtherPlacementText
+ Fadno.MusicXml.MusicXml31: mkOtherPlay :: String -> Token -> OtherPlay
+ Fadno.MusicXml.MusicXml31: mkOtherText :: String -> OtherText
+ Fadno.MusicXml.MusicXml31: mkPageLayout :: PageLayout
+ Fadno.MusicXml.MusicXml31: mkPageMargins :: AllMargins -> PageMargins
+ Fadno.MusicXml.MusicXml31: mkPart :: IDREF -> MusicData -> Part
+ Fadno.MusicXml.MusicXml31: mkPartGroup :: StartStop -> Editorial -> PartGroup
+ Fadno.MusicXml.MusicXml31: mkPartList :: ScorePart -> PartList
+ Fadno.MusicXml.MusicXml31: mkPartListPartGroup :: GrpPartGroup -> ChxPartList
+ Fadno.MusicXml.MusicXml31: mkPartListScorePart :: ScorePart -> ChxPartList
+ Fadno.MusicXml.MusicXml31: mkPartName :: String -> PartName
+ Fadno.MusicXml.MusicXml31: mkPartSymbol :: GroupSymbolValue -> PartSymbol
+ Fadno.MusicXml.MusicXml31: mkPedal :: PedalType -> Pedal
+ Fadno.MusicXml.MusicXml31: mkPedalTuning :: Step -> Semitones -> PedalTuning
+ Fadno.MusicXml.MusicXml31: mkPerMinute :: String -> PerMinute
+ Fadno.MusicXml.MusicXml31: mkPercussion :: ChxPercussion -> Percussion
+ Fadno.MusicXml.MusicXml31: mkPercussionBeater :: Beater -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPercussionEffect :: Effect -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPercussionGlass :: Glass -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPercussionMembrane :: Membrane -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPercussionMetal :: Metal -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPercussionOtherPercussion :: OtherText -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPercussionPitched :: Pitched -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPercussionStick :: Stick -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPercussionStickLocation :: StickLocation -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPercussionTimpani :: Empty -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPercussionWood :: Wood -> ChxPercussion
+ Fadno.MusicXml.MusicXml31: mkPitch :: Step -> Octave -> Pitch
+ Fadno.MusicXml.MusicXml31: mkPitched :: PitchedValue -> Pitched
+ Fadno.MusicXml.MusicXml31: mkPlacementText :: String -> PlacementText
+ Fadno.MusicXml.MusicXml31: mkPlay :: Play
+ Fadno.MusicXml.MusicXml31: mkPlayIpa :: String -> ChxPlay
+ Fadno.MusicXml.MusicXml31: mkPlayMute :: Mute -> ChxPlay
+ Fadno.MusicXml.MusicXml31: mkPlayOtherPlay :: OtherPlay -> ChxPlay
+ Fadno.MusicXml.MusicXml31: mkPlaySemiPitched :: SemiPitched -> ChxPlay
+ Fadno.MusicXml.MusicXml31: mkPrincipalVoice :: String -> StartStop -> PrincipalVoiceSymbol -> PrincipalVoice
+ Fadno.MusicXml.MusicXml31: mkPrint :: Layout -> Print
+ Fadno.MusicXml.MusicXml31: mkRepeat :: BackwardForward -> Repeat
+ Fadno.MusicXml.MusicXml31: mkRest :: Rest
+ Fadno.MusicXml.MusicXml31: mkRoot :: RootStep -> Root
+ Fadno.MusicXml.MusicXml31: mkRootAlter :: Semitones -> RootAlter
+ Fadno.MusicXml.MusicXml31: mkRootStep :: Step -> RootStep
+ Fadno.MusicXml.MusicXml31: mkScaling :: Millimeters -> Tenths -> Scaling
+ Fadno.MusicXml.MusicXml31: mkScordatura :: Scordatura
+ Fadno.MusicXml.MusicXml31: mkScoreHeader :: PartList -> ScoreHeader
+ Fadno.MusicXml.MusicXml31: mkScoreInstrument :: ID -> String -> ScoreInstrument
+ Fadno.MusicXml.MusicXml31: mkScoreInstrumentEnsemble :: PositiveIntegerOrEmpty -> ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: mkScoreInstrumentSolo :: Empty -> ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: mkScorePart :: CmpScorePart -> ScorePart
+ Fadno.MusicXml.MusicXml31: mkScorePartwise :: ScoreHeader -> ScorePartwise
+ Fadno.MusicXml.MusicXml31: mkScoreTimewise :: ScoreHeader -> ScoreTimewise
+ Fadno.MusicXml.MusicXml31: mkSegno :: Segno
+ Fadno.MusicXml.MusicXml31: mkSeqCredit :: ChxCredit1 -> SeqCredit
+ Fadno.MusicXml.MusicXml31: mkSeqLyric :: TextElementData -> SeqLyric
+ Fadno.MusicXml.MusicXml31: mkSeqLyric0 :: Elision -> SeqLyric0
+ Fadno.MusicXml.MusicXml31: mkSeqMetronome :: String -> SeqMetronome
+ Fadno.MusicXml.MusicXml31: mkSeqMetronomeTuplet :: NoteTypeValue -> SeqMetronomeTuplet
+ Fadno.MusicXml.MusicXml31: mkSeqOrnaments :: ChxOrnaments -> SeqOrnaments
+ Fadno.MusicXml.MusicXml31: mkSeqPageLayout :: Tenths -> Tenths -> SeqPageLayout
+ Fadno.MusicXml.MusicXml31: mkSeqScorePart :: SeqScorePart
+ Fadno.MusicXml.MusicXml31: mkSeqSlash :: NoteTypeValue -> SeqSlash
+ Fadno.MusicXml.MusicXml31: mkSeqSound :: SeqSound
+ Fadno.MusicXml.MusicXml31: mkSeqTimeModification :: NoteTypeValue -> SeqTimeModification
+ Fadno.MusicXml.MusicXml31: mkSlash :: Slash
+ Fadno.MusicXml.MusicXml31: mkSlide :: String -> StartStop -> Slide
+ Fadno.MusicXml.MusicXml31: mkSlur :: StartStopContinue -> Slur
+ Fadno.MusicXml.MusicXml31: mkSound :: Sound
+ Fadno.MusicXml.MusicXml31: mkStaff :: PositiveInteger -> Staff
+ Fadno.MusicXml.MusicXml31: mkStaffDetails :: StaffDetails
+ Fadno.MusicXml.MusicXml31: mkStaffDivide :: StaffDivideSymbol -> StaffDivide
+ Fadno.MusicXml.MusicXml31: mkStaffLayout :: StaffLayout
+ Fadno.MusicXml.MusicXml31: mkStaffTuning :: Tuning -> StaffTuning
+ Fadno.MusicXml.MusicXml31: mkStem :: StemValue -> Stem
+ Fadno.MusicXml.MusicXml31: mkStick :: StickType -> StickMaterial -> Stick
+ Fadno.MusicXml.MusicXml31: mkStringMute :: OnOff -> StringMute
+ Fadno.MusicXml.MusicXml31: mkStrongAccent :: StrongAccent -> StrongAccent
+ Fadno.MusicXml.MusicXml31: mkStyleText :: String -> StyleText
+ Fadno.MusicXml.MusicXml31: mkSupports :: YesNo -> NMTOKEN -> Supports
+ Fadno.MusicXml.MusicXml31: mkSystemDividers :: EmptyPrintObjectStyleAlign -> EmptyPrintObjectStyleAlign -> SystemDividers
+ Fadno.MusicXml.MusicXml31: mkSystemLayout :: SystemLayout
+ Fadno.MusicXml.MusicXml31: mkSystemMargins :: LeftRightMargins -> SystemMargins
+ Fadno.MusicXml.MusicXml31: mkTap :: String -> Tap
+ Fadno.MusicXml.MusicXml31: mkTechnical :: Technical
+ Fadno.MusicXml.MusicXml31: mkTechnicalArrow :: Arrow -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalBend :: Bend -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalBrassBend :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalDoubleTongue :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalDownBow :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalFingering :: Fingering -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalFingernails :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalFlip :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalFret :: Fret -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalGolpe :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalHalfMuted :: EmptyPlacementSmufl -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalHammerOn :: HammerOnPullOff -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalHandbell :: Handbell -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalHarmonMute :: HarmonMute -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalHarmonic :: Harmonic -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalHeel :: HeelToe -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalHole :: Hole -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalOpen :: EmptyPlacementSmufl -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalOpenString :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalOtherTechnical :: OtherPlacementText -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalPluck :: PlacementText -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalPullOff :: HammerOnPullOff -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalSmear :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalSnapPizzicato :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalStopped :: EmptyPlacementSmufl -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalString :: CmpString -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalTap :: Tap -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalThumbPosition :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalToe :: HeelToe -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalTripleTongue :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTechnicalUpBow :: EmptyPlacement -> ChxTechnical
+ Fadno.MusicXml.MusicXml31: mkTextElementData :: String -> TextElementData
+ Fadno.MusicXml.MusicXml31: mkTie :: StartStop -> Tie
+ Fadno.MusicXml.MusicXml31: mkTied :: TiedType -> Tied
+ Fadno.MusicXml.MusicXml31: mkTime :: ChxTime -> Time
+ Fadno.MusicXml.MusicXml31: mkTimeModification :: NonNegativeInteger -> NonNegativeInteger -> TimeModification
+ Fadno.MusicXml.MusicXml31: mkTimeSenzaMisura :: String -> ChxTime
+ Fadno.MusicXml.MusicXml31: mkTimeSignature :: String -> String -> TimeSignature
+ Fadno.MusicXml.MusicXml31: mkTimeTimeSignature :: ChxTime
+ Fadno.MusicXml.MusicXml31: mkTraditionalKey :: Fifths -> TraditionalKey
+ Fadno.MusicXml.MusicXml31: mkTranspose :: Semitones -> Transpose
+ Fadno.MusicXml.MusicXml31: mkTremolo :: TremoloMarks -> Tremolo
+ Fadno.MusicXml.MusicXml31: mkTuning :: Step -> Octave -> Tuning
+ Fadno.MusicXml.MusicXml31: mkTuplet :: StartStop -> Tuplet
+ Fadno.MusicXml.MusicXml31: mkTupletDot :: TupletDot
+ Fadno.MusicXml.MusicXml31: mkTupletNumber :: NonNegativeInteger -> TupletNumber
+ Fadno.MusicXml.MusicXml31: mkTupletPortion :: TupletPortion
+ Fadno.MusicXml.MusicXml31: mkTupletType :: NoteTypeValue -> TupletType
+ Fadno.MusicXml.MusicXml31: mkTypedText :: String -> TypedText
+ Fadno.MusicXml.MusicXml31: mkUnpitched :: Unpitched
+ Fadno.MusicXml.MusicXml31: mkVirtualInstrument :: VirtualInstrument
+ Fadno.MusicXml.MusicXml31: mkVoice :: String -> Voice
+ Fadno.MusicXml.MusicXml31: mkWavyLine :: StartStopContinue -> WavyLine
+ Fadno.MusicXml.MusicXml31: mkWedge :: WedgeType -> Wedge
+ Fadno.MusicXml.MusicXml31: mkWork :: Work
+ Fadno.MusicXml.MusicXml31: newtype AccordionMiddle
+ Fadno.MusicXml.MusicXml31: newtype BeamLevel
+ Fadno.MusicXml.MusicXml31: newtype Color
+ Fadno.MusicXml.MusicXml31: newtype CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: newtype DistanceType
+ Fadno.MusicXml.MusicXml31: newtype Divisions
+ Fadno.MusicXml.MusicXml31: newtype EndingNumber
+ Fadno.MusicXml.MusicXml31: newtype Fifths
+ Fadno.MusicXml.MusicXml31: newtype GlyphType
+ Fadno.MusicXml.MusicXml31: newtype ID
+ Fadno.MusicXml.MusicXml31: newtype IDREF
+ Fadno.MusicXml.MusicXml31: newtype Language
+ Fadno.MusicXml.MusicXml31: newtype LineWidthType
+ Fadno.MusicXml.MusicXml31: newtype MeasureText
+ Fadno.MusicXml.MusicXml31: newtype Midi128
+ Fadno.MusicXml.MusicXml31: newtype Midi16
+ Fadno.MusicXml.MusicXml31: newtype Midi16384
+ Fadno.MusicXml.MusicXml31: newtype Millimeters
+ Fadno.MusicXml.MusicXml31: newtype Mode
+ Fadno.MusicXml.MusicXml31: newtype NCName
+ Fadno.MusicXml.MusicXml31: newtype NMTOKEN
+ Fadno.MusicXml.MusicXml31: newtype Name
+ Fadno.MusicXml.MusicXml31: newtype NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: newtype NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: newtype NormalizedString
+ Fadno.MusicXml.MusicXml31: newtype NumberLevel
+ Fadno.MusicXml.MusicXml31: newtype NumberOfLines
+ Fadno.MusicXml.MusicXml31: newtype Octave
+ Fadno.MusicXml.MusicXml31: newtype Percent
+ Fadno.MusicXml.MusicXml31: newtype PositiveDivisions
+ Fadno.MusicXml.MusicXml31: newtype PositiveInteger
+ Fadno.MusicXml.MusicXml31: newtype RotationDegrees
+ Fadno.MusicXml.MusicXml31: newtype Semitones
+ Fadno.MusicXml.MusicXml31: newtype SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: newtype SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: newtype SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: newtype SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: newtype SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: newtype SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: newtype StaffLine
+ Fadno.MusicXml.MusicXml31: newtype StaffNumber
+ Fadno.MusicXml.MusicXml31: newtype StringNumber
+ Fadno.MusicXml.MusicXml31: newtype Tenths
+ Fadno.MusicXml.MusicXml31: newtype TimeOnly
+ Fadno.MusicXml.MusicXml31: newtype Token
+ Fadno.MusicXml.MusicXml31: newtype TremoloMarks
+ Fadno.MusicXml.MusicXml31: newtype TrillBeats
+ Fadno.MusicXml.MusicXml31: newtype YyyyMmDd
+ Fadno.MusicXml.MusicXml31: parseAboveBelow :: String -> XParse AboveBelow
+ Fadno.MusicXml.MusicXml31: parseAccidental :: XParse Accidental
+ Fadno.MusicXml.MusicXml31: parseAccidentalMark :: XParse AccidentalMark
+ Fadno.MusicXml.MusicXml31: parseAccidentalText :: XParse AccidentalText
+ Fadno.MusicXml.MusicXml31: parseAccidentalValue :: String -> XParse AccidentalValue
+ Fadno.MusicXml.MusicXml31: parseAccord :: XParse Accord
+ Fadno.MusicXml.MusicXml31: parseAccordionMiddle :: String -> XParse AccordionMiddle
+ Fadno.MusicXml.MusicXml31: parseAccordionRegistration :: XParse AccordionRegistration
+ Fadno.MusicXml.MusicXml31: parseActuate :: String -> XParse Actuate
+ Fadno.MusicXml.MusicXml31: parseAllMargins :: XParse AllMargins
+ Fadno.MusicXml.MusicXml31: parseAppearance :: XParse Appearance
+ Fadno.MusicXml.MusicXml31: parseArpeggiate :: XParse Arpeggiate
+ Fadno.MusicXml.MusicXml31: parseArrow :: XParse Arrow
+ Fadno.MusicXml.MusicXml31: parseArrowDirection :: String -> XParse ArrowDirection
+ Fadno.MusicXml.MusicXml31: parseArrowStyle :: String -> XParse ArrowStyle
+ Fadno.MusicXml.MusicXml31: parseArticulations :: XParse Articulations
+ Fadno.MusicXml.MusicXml31: parseAttributes :: XParse Attributes
+ Fadno.MusicXml.MusicXml31: parseBackup :: XParse Backup
+ Fadno.MusicXml.MusicXml31: parseBackwardForward :: String -> XParse BackwardForward
+ Fadno.MusicXml.MusicXml31: parseBarStyle :: String -> XParse BarStyle
+ Fadno.MusicXml.MusicXml31: parseBarStyleColor :: XParse BarStyleColor
+ Fadno.MusicXml.MusicXml31: parseBarline :: XParse Barline
+ Fadno.MusicXml.MusicXml31: parseBarre :: XParse Barre
+ Fadno.MusicXml.MusicXml31: parseBass :: XParse Bass
+ Fadno.MusicXml.MusicXml31: parseBassAlter :: XParse BassAlter
+ Fadno.MusicXml.MusicXml31: parseBassStep :: XParse BassStep
+ Fadno.MusicXml.MusicXml31: parseBeam :: XParse Beam
+ Fadno.MusicXml.MusicXml31: parseBeamLevel :: String -> XParse BeamLevel
+ Fadno.MusicXml.MusicXml31: parseBeamValue :: String -> XParse BeamValue
+ Fadno.MusicXml.MusicXml31: parseBeatRepeat :: XParse BeatRepeat
+ Fadno.MusicXml.MusicXml31: parseBeatUnit :: XParse BeatUnit
+ Fadno.MusicXml.MusicXml31: parseBeatUnitTied :: XParse BeatUnitTied
+ Fadno.MusicXml.MusicXml31: parseBeater :: XParse Beater
+ Fadno.MusicXml.MusicXml31: parseBeaterValue :: String -> XParse BeaterValue
+ Fadno.MusicXml.MusicXml31: parseBend :: XParse Bend
+ Fadno.MusicXml.MusicXml31: parseBookmark :: XParse Bookmark
+ Fadno.MusicXml.MusicXml31: parseBracket :: XParse Bracket
+ Fadno.MusicXml.MusicXml31: parseBreathMark :: XParse BreathMark
+ Fadno.MusicXml.MusicXml31: parseBreathMarkValue :: String -> XParse BreathMarkValue
+ Fadno.MusicXml.MusicXml31: parseCaesura :: XParse Caesura
+ Fadno.MusicXml.MusicXml31: parseCaesuraValue :: String -> XParse CaesuraValue
+ Fadno.MusicXml.MusicXml31: parseCancel :: XParse Cancel
+ Fadno.MusicXml.MusicXml31: parseCancelLocation :: String -> XParse CancelLocation
+ Fadno.MusicXml.MusicXml31: parseChxArrow :: XParse ChxArrow
+ Fadno.MusicXml.MusicXml31: parseChxArticulations :: XParse ChxArticulations
+ Fadno.MusicXml.MusicXml31: parseChxBend :: XParse ChxBend
+ Fadno.MusicXml.MusicXml31: parseChxCredit :: XParse ChxCredit
+ Fadno.MusicXml.MusicXml31: parseChxCredit0 :: XParse ChxCredit0
+ Fadno.MusicXml.MusicXml31: parseChxCredit1 :: XParse ChxCredit1
+ Fadno.MusicXml.MusicXml31: parseChxDirectionType :: XParse ChxDirectionType
+ Fadno.MusicXml.MusicXml31: parseChxDirectionType0 :: XParse ChxDirectionType0
+ Fadno.MusicXml.MusicXml31: parseChxDynamics :: XParse ChxDynamics
+ Fadno.MusicXml.MusicXml31: parseChxEncoding :: XParse ChxEncoding
+ Fadno.MusicXml.MusicXml31: parseChxHarmonic :: XParse ChxHarmonic
+ Fadno.MusicXml.MusicXml31: parseChxHarmonic1 :: XParse ChxHarmonic1
+ Fadno.MusicXml.MusicXml31: parseChxHarmonyChord :: XParse ChxHarmonyChord
+ Fadno.MusicXml.MusicXml31: parseChxKey :: XParse ChxKey
+ Fadno.MusicXml.MusicXml31: parseChxLyric :: XParse ChxLyric
+ Fadno.MusicXml.MusicXml31: parseChxMeasureStyle :: XParse ChxMeasureStyle
+ Fadno.MusicXml.MusicXml31: parseChxMetronome :: XParse ChxMetronome
+ Fadno.MusicXml.MusicXml31: parseChxMetronome0 :: XParse ChxMetronome0
+ Fadno.MusicXml.MusicXml31: parseChxMusicData :: XParse ChxMusicData
+ Fadno.MusicXml.MusicXml31: parseChxNameDisplay :: XParse ChxNameDisplay
+ Fadno.MusicXml.MusicXml31: parseChxNotations :: XParse ChxNotations
+ Fadno.MusicXml.MusicXml31: parseChxNote :: XParse ChxNote
+ Fadno.MusicXml.MusicXml31: parseChxNote0 :: XParse ChxNote0
+ Fadno.MusicXml.MusicXml31: parseChxNoteheadText :: XParse ChxNoteheadText
+ Fadno.MusicXml.MusicXml31: parseChxOrnaments :: XParse ChxOrnaments
+ Fadno.MusicXml.MusicXml31: parseChxPartList :: XParse ChxPartList
+ Fadno.MusicXml.MusicXml31: parseChxPercussion :: XParse ChxPercussion
+ Fadno.MusicXml.MusicXml31: parseChxPlay :: XParse ChxPlay
+ Fadno.MusicXml.MusicXml31: parseChxScoreInstrument :: XParse ChxScoreInstrument
+ Fadno.MusicXml.MusicXml31: parseChxTechnical :: XParse ChxTechnical
+ Fadno.MusicXml.MusicXml31: parseChxTime :: XParse ChxTime
+ Fadno.MusicXml.MusicXml31: parseCircularArrow :: String -> XParse CircularArrow
+ Fadno.MusicXml.MusicXml31: parseClef :: XParse Clef
+ Fadno.MusicXml.MusicXml31: parseClefSign :: String -> XParse ClefSign
+ Fadno.MusicXml.MusicXml31: parseCmpMeasure :: XParse CmpMeasure
+ Fadno.MusicXml.MusicXml31: parseCmpPart :: XParse CmpPart
+ Fadno.MusicXml.MusicXml31: parseCmpScorePart :: XParse CmpScorePart
+ Fadno.MusicXml.MusicXml31: parseCmpSlash :: XParse CmpSlash
+ Fadno.MusicXml.MusicXml31: parseCmpString :: XParse CmpString
+ Fadno.MusicXml.MusicXml31: parseCoda :: XParse Coda
+ Fadno.MusicXml.MusicXml31: parseColor :: String -> XParse Color
+ Fadno.MusicXml.MusicXml31: parseCommaSeparatedText :: String -> XParse CommaSeparatedText
+ Fadno.MusicXml.MusicXml31: parseCredit :: XParse Credit
+ Fadno.MusicXml.MusicXml31: parseCssFontSize :: String -> XParse CssFontSize
+ Fadno.MusicXml.MusicXml31: parseDashes :: XParse Dashes
+ Fadno.MusicXml.MusicXml31: parseDefaults :: XParse Defaults
+ Fadno.MusicXml.MusicXml31: parseDegree :: XParse Degree
+ Fadno.MusicXml.MusicXml31: parseDegreeAlter :: XParse DegreeAlter
+ Fadno.MusicXml.MusicXml31: parseDegreeSymbolValue :: String -> XParse DegreeSymbolValue
+ Fadno.MusicXml.MusicXml31: parseDegreeType :: XParse DegreeType
+ Fadno.MusicXml.MusicXml31: parseDegreeTypeValue :: String -> XParse DegreeTypeValue
+ Fadno.MusicXml.MusicXml31: parseDegreeValue :: XParse DegreeValue
+ Fadno.MusicXml.MusicXml31: parseDirection :: XParse Direction
+ Fadno.MusicXml.MusicXml31: parseDirectionType :: XParse DirectionType
+ Fadno.MusicXml.MusicXml31: parseDirective :: XParse Directive
+ Fadno.MusicXml.MusicXml31: parseDisplayStepOctave :: XParse DisplayStepOctave
+ Fadno.MusicXml.MusicXml31: parseDistance :: XParse Distance
+ Fadno.MusicXml.MusicXml31: parseDistanceType :: String -> XParse DistanceType
+ Fadno.MusicXml.MusicXml31: parseDivisions :: String -> XParse Divisions
+ Fadno.MusicXml.MusicXml31: parseDuration :: XParse Duration
+ Fadno.MusicXml.MusicXml31: parseDynamics :: XParse Dynamics
+ Fadno.MusicXml.MusicXml31: parseEditorial :: XParse Editorial
+ Fadno.MusicXml.MusicXml31: parseEditorialVoice :: XParse EditorialVoice
+ Fadno.MusicXml.MusicXml31: parseEditorialVoiceDirection :: XParse EditorialVoiceDirection
+ Fadno.MusicXml.MusicXml31: parseEffect :: String -> XParse Effect
+ Fadno.MusicXml.MusicXml31: parseElision :: XParse Elision
+ Fadno.MusicXml.MusicXml31: parseEmpty :: XParse Empty
+ Fadno.MusicXml.MusicXml31: parseEmptyFont :: XParse EmptyFont
+ Fadno.MusicXml.MusicXml31: parseEmptyLine :: XParse EmptyLine
+ Fadno.MusicXml.MusicXml31: parseEmptyPlacement :: XParse EmptyPlacement
+ Fadno.MusicXml.MusicXml31: parseEmptyPlacementSmufl :: XParse EmptyPlacementSmufl
+ Fadno.MusicXml.MusicXml31: parseEmptyPrintObjectStyleAlign :: XParse EmptyPrintObjectStyleAlign
+ Fadno.MusicXml.MusicXml31: parseEmptyPrintStyleAlignId :: XParse EmptyPrintStyleAlignId
+ Fadno.MusicXml.MusicXml31: parseEmptyTrillSound :: XParse EmptyTrillSound
+ Fadno.MusicXml.MusicXml31: parseEnclosureShape :: String -> XParse EnclosureShape
+ Fadno.MusicXml.MusicXml31: parseEncoding :: XParse Encoding
+ Fadno.MusicXml.MusicXml31: parseEnding :: XParse Ending
+ Fadno.MusicXml.MusicXml31: parseEndingNumber :: String -> XParse EndingNumber
+ Fadno.MusicXml.MusicXml31: parseExtend :: XParse Extend
+ Fadno.MusicXml.MusicXml31: parseFan :: String -> XParse Fan
+ Fadno.MusicXml.MusicXml31: parseFeature :: XParse Feature
+ Fadno.MusicXml.MusicXml31: parseFermata :: XParse Fermata
+ Fadno.MusicXml.MusicXml31: parseFermataShape :: String -> XParse FermataShape
+ Fadno.MusicXml.MusicXml31: parseFifths :: String -> XParse Fifths
+ Fadno.MusicXml.MusicXml31: parseFigure :: XParse Figure
+ Fadno.MusicXml.MusicXml31: parseFiguredBass :: XParse FiguredBass
+ Fadno.MusicXml.MusicXml31: parseFingering :: XParse Fingering
+ Fadno.MusicXml.MusicXml31: parseFirstFret :: XParse FirstFret
+ Fadno.MusicXml.MusicXml31: parseFontSize :: String -> XParse FontSize
+ Fadno.MusicXml.MusicXml31: parseFontStyle :: String -> XParse FontStyle
+ Fadno.MusicXml.MusicXml31: parseFontWeight :: String -> XParse FontWeight
+ Fadno.MusicXml.MusicXml31: parseFootnote :: XParse Footnote
+ Fadno.MusicXml.MusicXml31: parseFormattedSymbolId :: XParse FormattedSymbolId
+ Fadno.MusicXml.MusicXml31: parseFormattedText :: XParse FormattedText
+ Fadno.MusicXml.MusicXml31: parseFormattedTextId :: XParse FormattedTextId
+ Fadno.MusicXml.MusicXml31: parseForward :: XParse Forward
+ Fadno.MusicXml.MusicXml31: parseFrame :: XParse Frame
+ Fadno.MusicXml.MusicXml31: parseFrameNote :: XParse FrameNote
+ Fadno.MusicXml.MusicXml31: parseFret :: XParse Fret
+ Fadno.MusicXml.MusicXml31: parseFullNote :: XParse FullNote
+ Fadno.MusicXml.MusicXml31: parseGlass :: XParse Glass
+ Fadno.MusicXml.MusicXml31: parseGlassValue :: String -> XParse GlassValue
+ Fadno.MusicXml.MusicXml31: parseGlissando :: XParse Glissando
+ Fadno.MusicXml.MusicXml31: parseGlyph :: XParse Glyph
+ Fadno.MusicXml.MusicXml31: parseGlyphType :: String -> XParse GlyphType
+ Fadno.MusicXml.MusicXml31: parseGrace :: XParse Grace
+ Fadno.MusicXml.MusicXml31: parseGroupBarline :: XParse GroupBarline
+ Fadno.MusicXml.MusicXml31: parseGroupBarlineValue :: String -> XParse GroupBarlineValue
+ Fadno.MusicXml.MusicXml31: parseGroupName :: XParse GroupName
+ Fadno.MusicXml.MusicXml31: parseGroupSymbol :: XParse GroupSymbol
+ Fadno.MusicXml.MusicXml31: parseGroupSymbolValue :: String -> XParse GroupSymbolValue
+ Fadno.MusicXml.MusicXml31: parseGrouping :: XParse Grouping
+ Fadno.MusicXml.MusicXml31: parseGrpFullNote :: XParse GrpFullNote
+ Fadno.MusicXml.MusicXml31: parseGrpLevel :: XParse GrpLevel
+ Fadno.MusicXml.MusicXml31: parseGrpPartGroup :: XParse GrpPartGroup
+ Fadno.MusicXml.MusicXml31: parseHammerOnPullOff :: XParse HammerOnPullOff
+ Fadno.MusicXml.MusicXml31: parseHandbell :: XParse Handbell
+ Fadno.MusicXml.MusicXml31: parseHandbellValue :: String -> XParse HandbellValue
+ Fadno.MusicXml.MusicXml31: parseHarmonClosed :: XParse HarmonClosed
+ Fadno.MusicXml.MusicXml31: parseHarmonClosedLocation :: String -> XParse HarmonClosedLocation
+ Fadno.MusicXml.MusicXml31: parseHarmonClosedValue :: String -> XParse HarmonClosedValue
+ Fadno.MusicXml.MusicXml31: parseHarmonMute :: XParse HarmonMute
+ Fadno.MusicXml.MusicXml31: parseHarmonic :: XParse Harmonic
+ Fadno.MusicXml.MusicXml31: parseHarmony :: XParse Harmony
+ Fadno.MusicXml.MusicXml31: parseHarmonyChord :: XParse HarmonyChord
+ Fadno.MusicXml.MusicXml31: parseHarmonyType :: String -> XParse HarmonyType
+ Fadno.MusicXml.MusicXml31: parseHarpPedals :: XParse HarpPedals
+ Fadno.MusicXml.MusicXml31: parseHeelToe :: XParse HeelToe
+ Fadno.MusicXml.MusicXml31: parseHole :: XParse Hole
+ Fadno.MusicXml.MusicXml31: parseHoleClosed :: XParse HoleClosed
+ Fadno.MusicXml.MusicXml31: parseHoleClosedLocation :: String -> XParse HoleClosedLocation
+ Fadno.MusicXml.MusicXml31: parseHoleClosedValue :: String -> XParse HoleClosedValue
+ Fadno.MusicXml.MusicXml31: parseHorizontalTurn :: XParse HorizontalTurn
+ Fadno.MusicXml.MusicXml31: parseID :: String -> XParse ID
+ Fadno.MusicXml.MusicXml31: parseIDREF :: String -> XParse IDREF
+ Fadno.MusicXml.MusicXml31: parseIdentification :: XParse Identification
+ Fadno.MusicXml.MusicXml31: parseImage :: XParse Image
+ Fadno.MusicXml.MusicXml31: parseInstrument :: XParse Instrument
+ Fadno.MusicXml.MusicXml31: parseInterchangeable :: XParse Interchangeable
+ Fadno.MusicXml.MusicXml31: parseInversion :: XParse Inversion
+ Fadno.MusicXml.MusicXml31: parseKey :: XParse Key
+ Fadno.MusicXml.MusicXml31: parseKeyAccidental :: XParse KeyAccidental
+ Fadno.MusicXml.MusicXml31: parseKeyOctave :: XParse KeyOctave
+ Fadno.MusicXml.MusicXml31: parseKind :: XParse Kind
+ Fadno.MusicXml.MusicXml31: parseKindValue :: String -> XParse KindValue
+ Fadno.MusicXml.MusicXml31: parseLang :: String -> XParse Lang
+ Fadno.MusicXml.MusicXml31: parseLanguage :: String -> XParse Language
+ Fadno.MusicXml.MusicXml31: parseLayout :: XParse Layout
+ Fadno.MusicXml.MusicXml31: parseLeftCenterRight :: String -> XParse LeftCenterRight
+ Fadno.MusicXml.MusicXml31: parseLeftRight :: String -> XParse LeftRight
+ Fadno.MusicXml.MusicXml31: parseLeftRightMargins :: XParse LeftRightMargins
+ Fadno.MusicXml.MusicXml31: parseLevel :: XParse Level
+ Fadno.MusicXml.MusicXml31: parseLineEnd :: String -> XParse LineEnd
+ Fadno.MusicXml.MusicXml31: parseLineLength :: String -> XParse LineLength
+ Fadno.MusicXml.MusicXml31: parseLineShape :: String -> XParse LineShape
+ Fadno.MusicXml.MusicXml31: parseLineType :: String -> XParse LineType
+ Fadno.MusicXml.MusicXml31: parseLineWidth :: XParse LineWidth
+ Fadno.MusicXml.MusicXml31: parseLineWidthType :: String -> XParse LineWidthType
+ Fadno.MusicXml.MusicXml31: parseLink :: XParse Link
+ Fadno.MusicXml.MusicXml31: parseLyric :: XParse Lyric
+ Fadno.MusicXml.MusicXml31: parseLyricFont :: XParse LyricFont
+ Fadno.MusicXml.MusicXml31: parseLyricLanguage :: XParse LyricLanguage
+ Fadno.MusicXml.MusicXml31: parseMarginType :: String -> XParse MarginType
+ Fadno.MusicXml.MusicXml31: parseMeasure :: XParse Measure
+ Fadno.MusicXml.MusicXml31: parseMeasureLayout :: XParse MeasureLayout
+ Fadno.MusicXml.MusicXml31: parseMeasureNumbering :: XParse MeasureNumbering
+ Fadno.MusicXml.MusicXml31: parseMeasureNumberingValue :: String -> XParse MeasureNumberingValue
+ Fadno.MusicXml.MusicXml31: parseMeasureRepeat :: XParse MeasureRepeat
+ Fadno.MusicXml.MusicXml31: parseMeasureStyle :: XParse MeasureStyle
+ Fadno.MusicXml.MusicXml31: parseMeasureText :: String -> XParse MeasureText
+ Fadno.MusicXml.MusicXml31: parseMembrane :: String -> XParse Membrane
+ Fadno.MusicXml.MusicXml31: parseMetal :: String -> XParse Metal
+ Fadno.MusicXml.MusicXml31: parseMetronome :: XParse Metronome
+ Fadno.MusicXml.MusicXml31: parseMetronomeBeam :: XParse MetronomeBeam
+ Fadno.MusicXml.MusicXml31: parseMetronomeNote :: XParse MetronomeNote
+ Fadno.MusicXml.MusicXml31: parseMetronomeTied :: XParse MetronomeTied
+ Fadno.MusicXml.MusicXml31: parseMetronomeTuplet :: XParse MetronomeTuplet
+ Fadno.MusicXml.MusicXml31: parseMidi128 :: String -> XParse Midi128
+ Fadno.MusicXml.MusicXml31: parseMidi16 :: String -> XParse Midi16
+ Fadno.MusicXml.MusicXml31: parseMidi16384 :: String -> XParse Midi16384
+ Fadno.MusicXml.MusicXml31: parseMidiDevice :: XParse MidiDevice
+ Fadno.MusicXml.MusicXml31: parseMidiInstrument :: XParse MidiInstrument
+ Fadno.MusicXml.MusicXml31: parseMillimeters :: String -> XParse Millimeters
+ Fadno.MusicXml.MusicXml31: parseMiscellaneous :: XParse Miscellaneous
+ Fadno.MusicXml.MusicXml31: parseMiscellaneousField :: XParse MiscellaneousField
+ Fadno.MusicXml.MusicXml31: parseMode :: String -> XParse Mode
+ Fadno.MusicXml.MusicXml31: parseMordent :: XParse Mordent
+ Fadno.MusicXml.MusicXml31: parseMultipleRest :: XParse MultipleRest
+ Fadno.MusicXml.MusicXml31: parseMusicData :: XParse MusicData
+ Fadno.MusicXml.MusicXml31: parseMute :: String -> XParse Mute
+ Fadno.MusicXml.MusicXml31: parseNCName :: String -> XParse NCName
+ Fadno.MusicXml.MusicXml31: parseNMTOKEN :: String -> XParse NMTOKEN
+ Fadno.MusicXml.MusicXml31: parseName :: String -> XParse Name
+ Fadno.MusicXml.MusicXml31: parseNameDisplay :: XParse NameDisplay
+ Fadno.MusicXml.MusicXml31: parseNonArpeggiate :: XParse NonArpeggiate
+ Fadno.MusicXml.MusicXml31: parseNonNegativeDecimal :: String -> XParse NonNegativeDecimal
+ Fadno.MusicXml.MusicXml31: parseNonNegativeInteger :: String -> XParse NonNegativeInteger
+ Fadno.MusicXml.MusicXml31: parseNonTraditionalKey :: XParse NonTraditionalKey
+ Fadno.MusicXml.MusicXml31: parseNormalizedString :: String -> XParse NormalizedString
+ Fadno.MusicXml.MusicXml31: parseNotations :: XParse Notations
+ Fadno.MusicXml.MusicXml31: parseNote :: XParse Note
+ Fadno.MusicXml.MusicXml31: parseNoteSize :: XParse NoteSize
+ Fadno.MusicXml.MusicXml31: parseNoteSizeType :: String -> XParse NoteSizeType
+ Fadno.MusicXml.MusicXml31: parseNoteType :: XParse NoteType
+ Fadno.MusicXml.MusicXml31: parseNoteTypeValue :: String -> XParse NoteTypeValue
+ Fadno.MusicXml.MusicXml31: parseNotehead :: XParse Notehead
+ Fadno.MusicXml.MusicXml31: parseNoteheadText :: XParse NoteheadText
+ Fadno.MusicXml.MusicXml31: parseNoteheadValue :: String -> XParse NoteheadValue
+ Fadno.MusicXml.MusicXml31: parseNumberLevel :: String -> XParse NumberLevel
+ Fadno.MusicXml.MusicXml31: parseNumberOfLines :: String -> XParse NumberOfLines
+ Fadno.MusicXml.MusicXml31: parseNumberOrNormal :: String -> XParse NumberOrNormal
+ Fadno.MusicXml.MusicXml31: parseOctave :: String -> XParse Octave
+ Fadno.MusicXml.MusicXml31: parseOctaveShift :: XParse OctaveShift
+ Fadno.MusicXml.MusicXml31: parseOffset :: XParse Offset
+ Fadno.MusicXml.MusicXml31: parseOnOff :: String -> XParse OnOff
+ Fadno.MusicXml.MusicXml31: parseOpus :: XParse Opus
+ Fadno.MusicXml.MusicXml31: parseOrnaments :: XParse Ornaments
+ Fadno.MusicXml.MusicXml31: parseOtherAppearance :: XParse OtherAppearance
+ Fadno.MusicXml.MusicXml31: parseOtherDirection :: XParse OtherDirection
+ Fadno.MusicXml.MusicXml31: parseOtherNotation :: XParse OtherNotation
+ Fadno.MusicXml.MusicXml31: parseOtherPlacementText :: XParse OtherPlacementText
+ Fadno.MusicXml.MusicXml31: parseOtherPlay :: XParse OtherPlay
+ Fadno.MusicXml.MusicXml31: parseOtherText :: XParse OtherText
+ Fadno.MusicXml.MusicXml31: parseOverUnder :: String -> XParse OverUnder
+ Fadno.MusicXml.MusicXml31: parsePageLayout :: XParse PageLayout
+ Fadno.MusicXml.MusicXml31: parsePageMargins :: XParse PageMargins
+ Fadno.MusicXml.MusicXml31: parsePart :: XParse Part
+ Fadno.MusicXml.MusicXml31: parsePartGroup :: XParse PartGroup
+ Fadno.MusicXml.MusicXml31: parsePartList :: XParse PartList
+ Fadno.MusicXml.MusicXml31: parsePartName :: XParse PartName
+ Fadno.MusicXml.MusicXml31: parsePartSymbol :: XParse PartSymbol
+ Fadno.MusicXml.MusicXml31: parsePedal :: XParse Pedal
+ Fadno.MusicXml.MusicXml31: parsePedalTuning :: XParse PedalTuning
+ Fadno.MusicXml.MusicXml31: parsePedalType :: String -> XParse PedalType
+ Fadno.MusicXml.MusicXml31: parsePerMinute :: XParse PerMinute
+ Fadno.MusicXml.MusicXml31: parsePercent :: String -> XParse Percent
+ Fadno.MusicXml.MusicXml31: parsePercussion :: XParse Percussion
+ Fadno.MusicXml.MusicXml31: parsePitch :: XParse Pitch
+ Fadno.MusicXml.MusicXml31: parsePitched :: XParse Pitched
+ Fadno.MusicXml.MusicXml31: parsePitchedValue :: String -> XParse PitchedValue
+ Fadno.MusicXml.MusicXml31: parsePlacementText :: XParse PlacementText
+ Fadno.MusicXml.MusicXml31: parsePlay :: XParse Play
+ Fadno.MusicXml.MusicXml31: parsePositiveDivisions :: String -> XParse PositiveDivisions
+ Fadno.MusicXml.MusicXml31: parsePositiveInteger :: String -> XParse PositiveInteger
+ Fadno.MusicXml.MusicXml31: parsePositiveIntegerOrEmpty :: String -> XParse PositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: parsePrincipalVoice :: XParse PrincipalVoice
+ Fadno.MusicXml.MusicXml31: parsePrincipalVoiceSymbol :: String -> XParse PrincipalVoiceSymbol
+ Fadno.MusicXml.MusicXml31: parsePrint :: XParse Print
+ Fadno.MusicXml.MusicXml31: parseRepeat :: XParse Repeat
+ Fadno.MusicXml.MusicXml31: parseRest :: XParse Rest
+ Fadno.MusicXml.MusicXml31: parseRightLeftMiddle :: String -> XParse RightLeftMiddle
+ Fadno.MusicXml.MusicXml31: parseRoot :: XParse Root
+ Fadno.MusicXml.MusicXml31: parseRootAlter :: XParse RootAlter
+ Fadno.MusicXml.MusicXml31: parseRootStep :: XParse RootStep
+ Fadno.MusicXml.MusicXml31: parseRotationDegrees :: String -> XParse RotationDegrees
+ Fadno.MusicXml.MusicXml31: parseScaling :: XParse Scaling
+ Fadno.MusicXml.MusicXml31: parseScordatura :: XParse Scordatura
+ Fadno.MusicXml.MusicXml31: parseScoreHeader :: XParse ScoreHeader
+ Fadno.MusicXml.MusicXml31: parseScoreInstrument :: XParse ScoreInstrument
+ Fadno.MusicXml.MusicXml31: parseScorePart :: XParse ScorePart
+ Fadno.MusicXml.MusicXml31: parseScorePartwise :: XParse ScorePartwise
+ Fadno.MusicXml.MusicXml31: parseScoreTimewise :: XParse ScoreTimewise
+ Fadno.MusicXml.MusicXml31: parseSegno :: XParse Segno
+ Fadno.MusicXml.MusicXml31: parseSemiPitched :: String -> XParse SemiPitched
+ Fadno.MusicXml.MusicXml31: parseSemitones :: String -> XParse Semitones
+ Fadno.MusicXml.MusicXml31: parseSeqCredit :: XParse SeqCredit
+ Fadno.MusicXml.MusicXml31: parseSeqLyric :: XParse SeqLyric
+ Fadno.MusicXml.MusicXml31: parseSeqLyric0 :: XParse SeqLyric0
+ Fadno.MusicXml.MusicXml31: parseSeqMetronome :: XParse SeqMetronome
+ Fadno.MusicXml.MusicXml31: parseSeqMetronomeTuplet :: XParse SeqMetronomeTuplet
+ Fadno.MusicXml.MusicXml31: parseSeqOrnaments :: XParse SeqOrnaments
+ Fadno.MusicXml.MusicXml31: parseSeqPageLayout :: XParse SeqPageLayout
+ Fadno.MusicXml.MusicXml31: parseSeqScorePart :: XParse SeqScorePart
+ Fadno.MusicXml.MusicXml31: parseSeqSlash :: XParse SeqSlash
+ Fadno.MusicXml.MusicXml31: parseSeqSound :: XParse SeqSound
+ Fadno.MusicXml.MusicXml31: parseSeqTimeModification :: XParse SeqTimeModification
+ Fadno.MusicXml.MusicXml31: parseShowFrets :: String -> XParse ShowFrets
+ Fadno.MusicXml.MusicXml31: parseShowTuplet :: String -> XParse ShowTuplet
+ Fadno.MusicXml.MusicXml31: parseSlash :: XParse Slash
+ Fadno.MusicXml.MusicXml31: parseSlide :: XParse Slide
+ Fadno.MusicXml.MusicXml31: parseSlur :: XParse Slur
+ Fadno.MusicXml.MusicXml31: parseSmpShow :: String -> XParse SmpShow
+ Fadno.MusicXml.MusicXml31: parseSmuflAccidentalGlyphName :: String -> XParse SmuflAccidentalGlyphName
+ Fadno.MusicXml.MusicXml31: parseSmuflCodaGlyphName :: String -> XParse SmuflCodaGlyphName
+ Fadno.MusicXml.MusicXml31: parseSmuflGlyphName :: String -> XParse SmuflGlyphName
+ Fadno.MusicXml.MusicXml31: parseSmuflLyricsGlyphName :: String -> XParse SmuflLyricsGlyphName
+ Fadno.MusicXml.MusicXml31: parseSmuflPictogramGlyphName :: String -> XParse SmuflPictogramGlyphName
+ Fadno.MusicXml.MusicXml31: parseSmuflSegnoGlyphName :: String -> XParse SmuflSegnoGlyphName
+ Fadno.MusicXml.MusicXml31: parseSound :: XParse Sound
+ Fadno.MusicXml.MusicXml31: parseSpace :: String -> XParse Space
+ Fadno.MusicXml.MusicXml31: parseStaff :: XParse Staff
+ Fadno.MusicXml.MusicXml31: parseStaffDetails :: XParse StaffDetails
+ Fadno.MusicXml.MusicXml31: parseStaffDivide :: XParse StaffDivide
+ Fadno.MusicXml.MusicXml31: parseStaffDivideSymbol :: String -> XParse StaffDivideSymbol
+ Fadno.MusicXml.MusicXml31: parseStaffLayout :: XParse StaffLayout
+ Fadno.MusicXml.MusicXml31: parseStaffLine :: String -> XParse StaffLine
+ Fadno.MusicXml.MusicXml31: parseStaffNumber :: String -> XParse StaffNumber
+ Fadno.MusicXml.MusicXml31: parseStaffTuning :: XParse StaffTuning
+ Fadno.MusicXml.MusicXml31: parseStaffType :: String -> XParse StaffType
+ Fadno.MusicXml.MusicXml31: parseStartNote :: String -> XParse StartNote
+ Fadno.MusicXml.MusicXml31: parseStartStop :: String -> XParse StartStop
+ Fadno.MusicXml.MusicXml31: parseStartStopContinue :: String -> XParse StartStopContinue
+ Fadno.MusicXml.MusicXml31: parseStartStopDiscontinue :: String -> XParse StartStopDiscontinue
+ Fadno.MusicXml.MusicXml31: parseStartStopSingle :: String -> XParse StartStopSingle
+ Fadno.MusicXml.MusicXml31: parseStem :: XParse Stem
+ Fadno.MusicXml.MusicXml31: parseStemValue :: String -> XParse StemValue
+ Fadno.MusicXml.MusicXml31: parseStep :: String -> XParse Step
+ Fadno.MusicXml.MusicXml31: parseStick :: XParse Stick
+ Fadno.MusicXml.MusicXml31: parseStickLocation :: String -> XParse StickLocation
+ Fadno.MusicXml.MusicXml31: parseStickMaterial :: String -> XParse StickMaterial
+ Fadno.MusicXml.MusicXml31: parseStickType :: String -> XParse StickType
+ Fadno.MusicXml.MusicXml31: parseStringMute :: XParse StringMute
+ Fadno.MusicXml.MusicXml31: parseStringNumber :: String -> XParse StringNumber
+ Fadno.MusicXml.MusicXml31: parseStrongAccent :: XParse StrongAccent
+ Fadno.MusicXml.MusicXml31: parseStyleText :: XParse StyleText
+ Fadno.MusicXml.MusicXml31: parseSumLang :: String -> XParse SumLang
+ Fadno.MusicXml.MusicXml31: parseSumNumberOrNormal :: String -> XParse SumNumberOrNormal
+ Fadno.MusicXml.MusicXml31: parseSumPositiveIntegerOrEmpty :: String -> XParse SumPositiveIntegerOrEmpty
+ Fadno.MusicXml.MusicXml31: parseSupports :: XParse Supports
+ Fadno.MusicXml.MusicXml31: parseSyllabic :: String -> XParse Syllabic
+ Fadno.MusicXml.MusicXml31: parseSymbolSize :: String -> XParse SymbolSize
+ Fadno.MusicXml.MusicXml31: parseSystemDividers :: XParse SystemDividers
+ Fadno.MusicXml.MusicXml31: parseSystemLayout :: XParse SystemLayout
+ Fadno.MusicXml.MusicXml31: parseSystemMargins :: XParse SystemMargins
+ Fadno.MusicXml.MusicXml31: parseTap :: XParse Tap
+ Fadno.MusicXml.MusicXml31: parseTapHand :: String -> XParse TapHand
+ Fadno.MusicXml.MusicXml31: parseTechnical :: XParse Technical
+ Fadno.MusicXml.MusicXml31: parseTenths :: String -> XParse Tenths
+ Fadno.MusicXml.MusicXml31: parseTextDirection :: String -> XParse TextDirection
+ Fadno.MusicXml.MusicXml31: parseTextElementData :: XParse TextElementData
+ Fadno.MusicXml.MusicXml31: parseTie :: XParse Tie
+ Fadno.MusicXml.MusicXml31: parseTied :: XParse Tied
+ Fadno.MusicXml.MusicXml31: parseTiedType :: String -> XParse TiedType
+ Fadno.MusicXml.MusicXml31: parseTime :: XParse Time
+ Fadno.MusicXml.MusicXml31: parseTimeModification :: XParse TimeModification
+ Fadno.MusicXml.MusicXml31: parseTimeOnly :: String -> XParse TimeOnly
+ Fadno.MusicXml.MusicXml31: parseTimeRelation :: String -> XParse TimeRelation
+ Fadno.MusicXml.MusicXml31: parseTimeSeparator :: String -> XParse TimeSeparator
+ Fadno.MusicXml.MusicXml31: parseTimeSignature :: XParse TimeSignature
+ Fadno.MusicXml.MusicXml31: parseTimeSymbol :: String -> XParse TimeSymbol
+ Fadno.MusicXml.MusicXml31: parseTipDirection :: String -> XParse TipDirection
+ Fadno.MusicXml.MusicXml31: parseToken :: String -> XParse Token
+ Fadno.MusicXml.MusicXml31: parseTopBottom :: String -> XParse TopBottom
+ Fadno.MusicXml.MusicXml31: parseTraditionalKey :: XParse TraditionalKey
+ Fadno.MusicXml.MusicXml31: parseTranspose :: XParse Transpose
+ Fadno.MusicXml.MusicXml31: parseTremolo :: XParse Tremolo
+ Fadno.MusicXml.MusicXml31: parseTremoloMarks :: String -> XParse TremoloMarks
+ Fadno.MusicXml.MusicXml31: parseTremoloType :: String -> XParse TremoloType
+ Fadno.MusicXml.MusicXml31: parseTrillBeats :: String -> XParse TrillBeats
+ Fadno.MusicXml.MusicXml31: parseTrillStep :: String -> XParse TrillStep
+ Fadno.MusicXml.MusicXml31: parseTuning :: XParse Tuning
+ Fadno.MusicXml.MusicXml31: parseTuplet :: XParse Tuplet
+ Fadno.MusicXml.MusicXml31: parseTupletDot :: XParse TupletDot
+ Fadno.MusicXml.MusicXml31: parseTupletNumber :: XParse TupletNumber
+ Fadno.MusicXml.MusicXml31: parseTupletPortion :: XParse TupletPortion
+ Fadno.MusicXml.MusicXml31: parseTupletType :: XParse TupletType
+ Fadno.MusicXml.MusicXml31: parseTwoNoteTurn :: String -> XParse TwoNoteTurn
+ Fadno.MusicXml.MusicXml31: parseType :: String -> XParse Type
+ Fadno.MusicXml.MusicXml31: parseTypedText :: XParse TypedText
+ Fadno.MusicXml.MusicXml31: parseUnpitched :: XParse Unpitched
+ Fadno.MusicXml.MusicXml31: parseUpDown :: String -> XParse UpDown
+ Fadno.MusicXml.MusicXml31: parseUpDownStopContinue :: String -> XParse UpDownStopContinue
+ Fadno.MusicXml.MusicXml31: parseUprightInverted :: String -> XParse UprightInverted
+ Fadno.MusicXml.MusicXml31: parseValign :: String -> XParse Valign
+ Fadno.MusicXml.MusicXml31: parseValignImage :: String -> XParse ValignImage
+ Fadno.MusicXml.MusicXml31: parseVirtualInstrument :: XParse VirtualInstrument
+ Fadno.MusicXml.MusicXml31: parseVoice :: XParse Voice
+ Fadno.MusicXml.MusicXml31: parseWavyLine :: XParse WavyLine
+ Fadno.MusicXml.MusicXml31: parseWedge :: XParse Wedge
+ Fadno.MusicXml.MusicXml31: parseWedgeType :: String -> XParse WedgeType
+ Fadno.MusicXml.MusicXml31: parseWinged :: String -> XParse Winged
+ Fadno.MusicXml.MusicXml31: parseWood :: String -> XParse Wood
+ Fadno.MusicXml.MusicXml31: parseWork :: XParse Work
+ Fadno.MusicXml.MusicXml31: parseYesNo :: String -> XParse YesNo
+ Fadno.MusicXml.MusicXml31: parseYesNoNumber :: String -> XParse YesNoNumber
+ Fadno.MusicXml.MusicXml31: parseYyyyMmDd :: String -> XParse YyyyMmDd
- Fadno.Xml.ParseXsd: refvalue :: forall a_a7CFD a_a7H1w. Traversal (Ref a_a7CFD) (Ref a_a7H1w) a_a7CFD a_a7H1w
+ Fadno.Xml.ParseXsd: refvalue :: forall a_aanO5 a_aarmc. Traversal (Ref a_aanO5) (Ref a_aarmc) a_aanO5 a_aarmc
- Fadno.Xml.ParseXsd: resolved :: forall a_a7CFD. Traversal' (Ref a_a7CFD) QN
+ Fadno.Xml.ParseXsd: resolved :: forall a_aanO5. Traversal' (Ref a_aanO5) QN
- Fadno.Xml.ParseXsd: unresolved :: forall a_a7CFD. Traversal' (Ref a_a7CFD) QN
+ Fadno.Xml.ParseXsd: unresolved :: forall a_aanO5. Traversal' (Ref a_aanO5) QN
Files
- fadno-xml.cabal +13/−3
- src/Fadno/MusicXml/MusicXml20.hs +1/−1
- src/Fadno/MusicXml/MusicXml30.hs +14031/−0
- src/Fadno/MusicXml/MusicXml31.hs +15852/−0
- src/Fadno/Xml/Codegen.hs +1/−1
fadno-xml.cabal view
@@ -1,9 +1,10 @@ name: fadno-xml-version: 1.1.3+version: 1.2 synopsis: XML/XSD combinators/schemas/codegen description: Library for generating code from XML schema files, with- MusicXml 2.0 schema library included. Includes+ MusicXml 3.1 schema library included. (2.0 and 3.0 can be+ also built with the 'build-old' cabal flag). Includes XML "combinator library" XParser for consuming xml, a type model for XSD productions, a type model for codegen, and the code generator.@@ -19,6 +20,11 @@ -- extra-source-files: cabal-version: >=1.10 +flag build-old+ description: Expose/build old MusicXML (2.0,3.0) modules with 3.1.+ default: False+ manual: True+ library exposed-modules: Fadno.Xml.Codegen Fadno.Xml.EmitTypes@@ -26,11 +32,15 @@ Fadno.Xml.XParser Fadno.Xml.XParse Fadno.Xml.EmitXml+ Fadno.MusicXml.MusicXml31+ if flag(build-old)+ exposed-modules: Fadno.MusicXml.MusicXml20+ Fadno.MusicXml.MusicXml30 -- other-modules: -- other-extensions: build-depends: Decimal >= 0.4- , base >= 4.9 && < 4.13+ , base >= 4.9 && < 4.15 , containers >= 0.5 , lens >= 4.15 , mtl >= 2.2
src/Fadno/MusicXml/MusicXml20.hs view
@@ -18,7 +18,7 @@ import qualified Fadno.Xml.XParse as P import qualified Control.Applicative as P import Control.Applicative ((<|>))-import Control.Arrow as A+import qualified Control.Arrow as A -- | @xs:ID@ /(simple)/ newtype ID = ID { iD :: NCName }
+ src/Fadno/MusicXml/MusicXml30.hs view
@@ -0,0 +1,14031 @@+{-# LANGUAGE TupleSections #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE FlexibleContexts #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE MultiParamTypeClasses #-}++module Fadno.MusicXml.MusicXml30 where++import GHC.Generics+import Data.Data+import Data.Decimal+import Data.String+import Fadno.Xml.EmitXml+import qualified Fadno.Xml.XParse as P+import qualified Control.Applicative as P+import Control.Applicative ((<|>))+import qualified Control.Arrow as A++-- | @xs:ID@ /(simple)/+newtype ID = ID { iD :: NCName }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show ID where show (ID a) = show a+instance Read ID where readsPrec i = map (A.first ID) . readsPrec i+instance EmitXml ID where+ emitXml = emitXml . iD+parseID :: String -> P.XParse ID+parseID = return . fromString++-- | @xs:IDREF@ /(simple)/+newtype IDREF = IDREF { iDREF :: NCName }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show IDREF where show (IDREF a) = show a+instance Read IDREF where readsPrec i = map (A.first IDREF) . readsPrec i+instance EmitXml IDREF where+ emitXml = emitXml . iDREF+parseIDREF :: String -> P.XParse IDREF+parseIDREF = return . fromString++-- | @xs:NCName@ /(simple)/+newtype NCName = NCName { nCName :: Name }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show NCName where show (NCName a) = show a+instance Read NCName where readsPrec i = map (A.first NCName) . readsPrec i+instance EmitXml NCName where+ emitXml = emitXml . nCName+parseNCName :: String -> P.XParse NCName+parseNCName = return . fromString++-- | @xs:NMTOKEN@ /(simple)/+newtype NMTOKEN = NMTOKEN { nMTOKEN :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show NMTOKEN where show (NMTOKEN a) = show a+instance Read NMTOKEN where readsPrec i = map (A.first NMTOKEN) . readsPrec i+instance EmitXml NMTOKEN where+ emitXml = emitXml . nMTOKEN+parseNMTOKEN :: String -> P.XParse NMTOKEN+parseNMTOKEN = return . fromString++-- | @xs:Name@ /(simple)/+newtype Name = Name { name :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show Name where show (Name a) = show a+instance Read Name where readsPrec i = map (A.first Name) . readsPrec i+instance EmitXml Name where+ emitXml = emitXml . name+parseName :: String -> P.XParse Name+parseName = return . fromString++-- | @above-below@ /(simple)/+--+-- The above-below type is used to indicate whether one element appears above or below another element.+data AboveBelow = + AboveBelowAbove -- ^ /above/+ | AboveBelowBelow -- ^ /below/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml AboveBelow where+ emitXml AboveBelowAbove = XLit "above"+ emitXml AboveBelowBelow = XLit "below"+parseAboveBelow :: String -> P.XParse AboveBelow+parseAboveBelow s+ | s == "above" = return $ AboveBelowAbove+ | s == "below" = return $ AboveBelowBelow+ | otherwise = P.xfail $ "AboveBelow: " ++ s++-- | @accidental-value@ /(simple)/+--+-- The accidental-value type represents notated accidentals supported by MusicXML. In the MusicXML 2.0 DTD this was a string with values that could be included. The XSD strengthens the data typing to an enumerated list. The quarter- and three-quarters- accidentals are Tartini-style quarter-tone accidentals. The -down and -up accidentals are quarter-tone accidentals that include arrows pointing down or up. The slash- accidentals are used in Turkish classical music. The numbered sharp and flat accidentals are superscripted versions of the accidental signs, used in Turkish folk music. The sori and koron accidentals are microtonal sharp and flat accidentals used in Iranian and Persian music.+data AccidentalValue = + AccidentalValueSharp -- ^ /sharp/+ | AccidentalValueNatural -- ^ /natural/+ | AccidentalValueFlat -- ^ /flat/+ | AccidentalValueDoubleSharp -- ^ /double-sharp/+ | AccidentalValueSharpSharp -- ^ /sharp-sharp/+ | AccidentalValueFlatFlat -- ^ /flat-flat/+ | AccidentalValueNaturalSharp -- ^ /natural-sharp/+ | AccidentalValueNaturalFlat -- ^ /natural-flat/+ | AccidentalValueQuarterFlat -- ^ /quarter-flat/+ | AccidentalValueQuarterSharp -- ^ /quarter-sharp/+ | AccidentalValueThreeQuartersFlat -- ^ /three-quarters-flat/+ | AccidentalValueThreeQuartersSharp -- ^ /three-quarters-sharp/+ | AccidentalValueSharpDown -- ^ /sharp-down/+ | AccidentalValueSharpUp -- ^ /sharp-up/+ | AccidentalValueNaturalDown -- ^ /natural-down/+ | AccidentalValueNaturalUp -- ^ /natural-up/+ | AccidentalValueFlatDown -- ^ /flat-down/+ | AccidentalValueFlatUp -- ^ /flat-up/+ | AccidentalValueTripleSharp -- ^ /triple-sharp/+ | AccidentalValueTripleFlat -- ^ /triple-flat/+ | AccidentalValueSlashQuarterSharp -- ^ /slash-quarter-sharp/+ | AccidentalValueSlashSharp -- ^ /slash-sharp/+ | AccidentalValueSlashFlat -- ^ /slash-flat/+ | AccidentalValueDoubleSlashFlat -- ^ /double-slash-flat/+ | AccidentalValueSharp1 -- ^ /sharp-1/+ | AccidentalValueSharp2 -- ^ /sharp-2/+ | AccidentalValueSharp3 -- ^ /sharp-3/+ | AccidentalValueSharp5 -- ^ /sharp-5/+ | AccidentalValueFlat1 -- ^ /flat-1/+ | AccidentalValueFlat2 -- ^ /flat-2/+ | AccidentalValueFlat3 -- ^ /flat-3/+ | AccidentalValueFlat4 -- ^ /flat-4/+ | AccidentalValueSori -- ^ /sori/+ | AccidentalValueKoron -- ^ /koron/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml AccidentalValue where+ emitXml AccidentalValueSharp = XLit "sharp"+ emitXml AccidentalValueNatural = XLit "natural"+ emitXml AccidentalValueFlat = XLit "flat"+ emitXml AccidentalValueDoubleSharp = XLit "double-sharp"+ emitXml AccidentalValueSharpSharp = XLit "sharp-sharp"+ emitXml AccidentalValueFlatFlat = XLit "flat-flat"+ emitXml AccidentalValueNaturalSharp = XLit "natural-sharp"+ emitXml AccidentalValueNaturalFlat = XLit "natural-flat"+ emitXml AccidentalValueQuarterFlat = XLit "quarter-flat"+ emitXml AccidentalValueQuarterSharp = XLit "quarter-sharp"+ emitXml AccidentalValueThreeQuartersFlat = XLit "three-quarters-flat"+ emitXml AccidentalValueThreeQuartersSharp = XLit "three-quarters-sharp"+ emitXml AccidentalValueSharpDown = XLit "sharp-down"+ emitXml AccidentalValueSharpUp = XLit "sharp-up"+ emitXml AccidentalValueNaturalDown = XLit "natural-down"+ emitXml AccidentalValueNaturalUp = XLit "natural-up"+ emitXml AccidentalValueFlatDown = XLit "flat-down"+ emitXml AccidentalValueFlatUp = XLit "flat-up"+ emitXml AccidentalValueTripleSharp = XLit "triple-sharp"+ emitXml AccidentalValueTripleFlat = XLit "triple-flat"+ emitXml AccidentalValueSlashQuarterSharp = XLit "slash-quarter-sharp"+ emitXml AccidentalValueSlashSharp = XLit "slash-sharp"+ emitXml AccidentalValueSlashFlat = XLit "slash-flat"+ emitXml AccidentalValueDoubleSlashFlat = XLit "double-slash-flat"+ emitXml AccidentalValueSharp1 = XLit "sharp-1"+ emitXml AccidentalValueSharp2 = XLit "sharp-2"+ emitXml AccidentalValueSharp3 = XLit "sharp-3"+ emitXml AccidentalValueSharp5 = XLit "sharp-5"+ emitXml AccidentalValueFlat1 = XLit "flat-1"+ emitXml AccidentalValueFlat2 = XLit "flat-2"+ emitXml AccidentalValueFlat3 = XLit "flat-3"+ emitXml AccidentalValueFlat4 = XLit "flat-4"+ emitXml AccidentalValueSori = XLit "sori"+ emitXml AccidentalValueKoron = XLit "koron"+parseAccidentalValue :: String -> P.XParse AccidentalValue+parseAccidentalValue s+ | s == "sharp" = return $ AccidentalValueSharp+ | s == "natural" = return $ AccidentalValueNatural+ | s == "flat" = return $ AccidentalValueFlat+ | s == "double-sharp" = return $ AccidentalValueDoubleSharp+ | s == "sharp-sharp" = return $ AccidentalValueSharpSharp+ | s == "flat-flat" = return $ AccidentalValueFlatFlat+ | s == "natural-sharp" = return $ AccidentalValueNaturalSharp+ | s == "natural-flat" = return $ AccidentalValueNaturalFlat+ | s == "quarter-flat" = return $ AccidentalValueQuarterFlat+ | s == "quarter-sharp" = return $ AccidentalValueQuarterSharp+ | s == "three-quarters-flat" = return $ AccidentalValueThreeQuartersFlat+ | s == "three-quarters-sharp" = return $ AccidentalValueThreeQuartersSharp+ | s == "sharp-down" = return $ AccidentalValueSharpDown+ | s == "sharp-up" = return $ AccidentalValueSharpUp+ | s == "natural-down" = return $ AccidentalValueNaturalDown+ | s == "natural-up" = return $ AccidentalValueNaturalUp+ | s == "flat-down" = return $ AccidentalValueFlatDown+ | s == "flat-up" = return $ AccidentalValueFlatUp+ | s == "triple-sharp" = return $ AccidentalValueTripleSharp+ | s == "triple-flat" = return $ AccidentalValueTripleFlat+ | s == "slash-quarter-sharp" = return $ AccidentalValueSlashQuarterSharp+ | s == "slash-sharp" = return $ AccidentalValueSlashSharp+ | s == "slash-flat" = return $ AccidentalValueSlashFlat+ | s == "double-slash-flat" = return $ AccidentalValueDoubleSlashFlat+ | s == "sharp-1" = return $ AccidentalValueSharp1+ | s == "sharp-2" = return $ AccidentalValueSharp2+ | s == "sharp-3" = return $ AccidentalValueSharp3+ | s == "sharp-5" = return $ AccidentalValueSharp5+ | s == "flat-1" = return $ AccidentalValueFlat1+ | s == "flat-2" = return $ AccidentalValueFlat2+ | s == "flat-3" = return $ AccidentalValueFlat3+ | s == "flat-4" = return $ AccidentalValueFlat4+ | s == "sori" = return $ AccidentalValueSori+ | s == "koron" = return $ AccidentalValueKoron+ | otherwise = P.xfail $ "AccidentalValue: " ++ s++-- | @accordion-middle@ /(simple)/+--+-- The accordion-middle type may have values of 1, 2, or 3, corresponding to having 1 to 3 dots in the middle section of the accordion registration symbol.+newtype AccordionMiddle = AccordionMiddle { accordionMiddle :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show AccordionMiddle where show (AccordionMiddle a) = show a+instance Read AccordionMiddle where readsPrec i = map (A.first AccordionMiddle) . readsPrec i+instance EmitXml AccordionMiddle where+ emitXml = emitXml . accordionMiddle+parseAccordionMiddle :: String -> P.XParse AccordionMiddle+parseAccordionMiddle = P.xread "AccordionMiddle"++-- | @xlink:actuate@ /(simple)/+data Actuate = + ActuateOnRequest -- ^ /onRequest/+ | ActuateOnLoad -- ^ /onLoad/+ | ActuateOther -- ^ /other/+ | ActuateNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Actuate where+ emitXml ActuateOnRequest = XLit "onRequest"+ emitXml ActuateOnLoad = XLit "onLoad"+ emitXml ActuateOther = XLit "other"+ emitXml ActuateNone = XLit "none"+parseActuate :: String -> P.XParse Actuate+parseActuate s+ | s == "onRequest" = return $ ActuateOnRequest+ | s == "onLoad" = return $ ActuateOnLoad+ | s == "other" = return $ ActuateOther+ | s == "none" = return $ ActuateNone+ | otherwise = P.xfail $ "Actuate: " ++ s++-- | @arrow-direction@ /(simple)/+--+-- The arrow-direction type represents the direction in which an arrow points, using Unicode arrow terminology.+data ArrowDirection = + ArrowDirectionLeft -- ^ /left/+ | ArrowDirectionUp -- ^ /up/+ | ArrowDirectionRight -- ^ /right/+ | ArrowDirectionDown -- ^ /down/+ | ArrowDirectionNorthwest -- ^ /northwest/+ | ArrowDirectionNortheast -- ^ /northeast/+ | ArrowDirectionSoutheast -- ^ /southeast/+ | ArrowDirectionSouthwest -- ^ /southwest/+ | ArrowDirectionLeftRight -- ^ /left right/+ | ArrowDirectionUpDown -- ^ /up down/+ | ArrowDirectionNorthwestSoutheast -- ^ /northwest southeast/+ | ArrowDirectionNortheastSouthwest -- ^ /northeast southwest/+ | ArrowDirectionOther -- ^ /other/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ArrowDirection where+ emitXml ArrowDirectionLeft = XLit "left"+ emitXml ArrowDirectionUp = XLit "up"+ emitXml ArrowDirectionRight = XLit "right"+ emitXml ArrowDirectionDown = XLit "down"+ emitXml ArrowDirectionNorthwest = XLit "northwest"+ emitXml ArrowDirectionNortheast = XLit "northeast"+ emitXml ArrowDirectionSoutheast = XLit "southeast"+ emitXml ArrowDirectionSouthwest = XLit "southwest"+ emitXml ArrowDirectionLeftRight = XLit "left right"+ emitXml ArrowDirectionUpDown = XLit "up down"+ emitXml ArrowDirectionNorthwestSoutheast = XLit "northwest southeast"+ emitXml ArrowDirectionNortheastSouthwest = XLit "northeast southwest"+ emitXml ArrowDirectionOther = XLit "other"+parseArrowDirection :: String -> P.XParse ArrowDirection+parseArrowDirection s+ | s == "left" = return $ ArrowDirectionLeft+ | s == "up" = return $ ArrowDirectionUp+ | s == "right" = return $ ArrowDirectionRight+ | s == "down" = return $ ArrowDirectionDown+ | s == "northwest" = return $ ArrowDirectionNorthwest+ | s == "northeast" = return $ ArrowDirectionNortheast+ | s == "southeast" = return $ ArrowDirectionSoutheast+ | s == "southwest" = return $ ArrowDirectionSouthwest+ | s == "left right" = return $ ArrowDirectionLeftRight+ | s == "up down" = return $ ArrowDirectionUpDown+ | s == "northwest southeast" = return $ ArrowDirectionNorthwestSoutheast+ | s == "northeast southwest" = return $ ArrowDirectionNortheastSouthwest+ | s == "other" = return $ ArrowDirectionOther+ | otherwise = P.xfail $ "ArrowDirection: " ++ s++-- | @arrow-style@ /(simple)/+--+-- The arrow-style type represents the style of an arrow, using Unicode arrow terminology. Filled and hollow arrows indicate polygonal single arrows. Paired arrows are duplicate single arrows in the same direction. Combined arrows apply to double direction arrows like left right, indicating that an arrow in one direction should be combined with an arrow in the other direction.+data ArrowStyle = + ArrowStyleSingle -- ^ /single/+ | ArrowStyleDouble -- ^ /double/+ | ArrowStyleFilled -- ^ /filled/+ | ArrowStyleHollow -- ^ /hollow/+ | ArrowStylePaired -- ^ /paired/+ | ArrowStyleCombined -- ^ /combined/+ | ArrowStyleOther -- ^ /other/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ArrowStyle where+ emitXml ArrowStyleSingle = XLit "single"+ emitXml ArrowStyleDouble = XLit "double"+ emitXml ArrowStyleFilled = XLit "filled"+ emitXml ArrowStyleHollow = XLit "hollow"+ emitXml ArrowStylePaired = XLit "paired"+ emitXml ArrowStyleCombined = XLit "combined"+ emitXml ArrowStyleOther = XLit "other"+parseArrowStyle :: String -> P.XParse ArrowStyle+parseArrowStyle s+ | s == "single" = return $ ArrowStyleSingle+ | s == "double" = return $ ArrowStyleDouble+ | s == "filled" = return $ ArrowStyleFilled+ | s == "hollow" = return $ ArrowStyleHollow+ | s == "paired" = return $ ArrowStylePaired+ | s == "combined" = return $ ArrowStyleCombined+ | s == "other" = return $ ArrowStyleOther+ | otherwise = P.xfail $ "ArrowStyle: " ++ s++-- | @backward-forward@ /(simple)/+--+-- The backward-forward type is used to specify repeat directions. The start of the repeat has a forward direction while the end of the repeat has a backward direction.+data BackwardForward = + BackwardForwardBackward -- ^ /backward/+ | BackwardForwardForward -- ^ /forward/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml BackwardForward where+ emitXml BackwardForwardBackward = XLit "backward"+ emitXml BackwardForwardForward = XLit "forward"+parseBackwardForward :: String -> P.XParse BackwardForward+parseBackwardForward s+ | s == "backward" = return $ BackwardForwardBackward+ | s == "forward" = return $ BackwardForwardForward+ | otherwise = P.xfail $ "BackwardForward: " ++ s++-- | @bar-style@ /(simple)/+--+-- The bar-style type represents barline style information. Choices are regular, dotted, dashed, heavy, light-light, light-heavy, heavy-light, heavy-heavy, tick (a short stroke through the top line), short (a partial barline between the 2nd and 4th lines), and none.+data BarStyle = + BarStyleRegular -- ^ /regular/+ | BarStyleDotted -- ^ /dotted/+ | BarStyleDashed -- ^ /dashed/+ | BarStyleHeavy -- ^ /heavy/+ | BarStyleLightLight -- ^ /light-light/+ | BarStyleLightHeavy -- ^ /light-heavy/+ | BarStyleHeavyLight -- ^ /heavy-light/+ | BarStyleHeavyHeavy -- ^ /heavy-heavy/+ | BarStyleTick -- ^ /tick/+ | BarStyleShort -- ^ /short/+ | BarStyleNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml BarStyle where+ emitXml BarStyleRegular = XLit "regular"+ emitXml BarStyleDotted = XLit "dotted"+ emitXml BarStyleDashed = XLit "dashed"+ emitXml BarStyleHeavy = XLit "heavy"+ emitXml BarStyleLightLight = XLit "light-light"+ emitXml BarStyleLightHeavy = XLit "light-heavy"+ emitXml BarStyleHeavyLight = XLit "heavy-light"+ emitXml BarStyleHeavyHeavy = XLit "heavy-heavy"+ emitXml BarStyleTick = XLit "tick"+ emitXml BarStyleShort = XLit "short"+ emitXml BarStyleNone = XLit "none"+parseBarStyle :: String -> P.XParse BarStyle+parseBarStyle s+ | s == "regular" = return $ BarStyleRegular+ | s == "dotted" = return $ BarStyleDotted+ | s == "dashed" = return $ BarStyleDashed+ | s == "heavy" = return $ BarStyleHeavy+ | s == "light-light" = return $ BarStyleLightLight+ | s == "light-heavy" = return $ BarStyleLightHeavy+ | s == "heavy-light" = return $ BarStyleHeavyLight+ | s == "heavy-heavy" = return $ BarStyleHeavyHeavy+ | s == "tick" = return $ BarStyleTick+ | s == "short" = return $ BarStyleShort+ | s == "none" = return $ BarStyleNone+ | otherwise = P.xfail $ "BarStyle: " ++ s++-- | @beam-level@ /(simple)/+--+-- The MusicXML format supports six levels of beaming, up to 1024th notes. Unlike the number-level type, the beam-level type identifies concurrent beams in a beam group. It does not distinguish overlapping beams such as grace notes within regular notes, or beams used in different voices.+newtype BeamLevel = BeamLevel { beamLevel :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show BeamLevel where show (BeamLevel a) = show a+instance Read BeamLevel where readsPrec i = map (A.first BeamLevel) . readsPrec i+instance EmitXml BeamLevel where+ emitXml = emitXml . beamLevel+parseBeamLevel :: String -> P.XParse BeamLevel+parseBeamLevel = P.xread "BeamLevel"++-- | @beam-value@ /(simple)/+--+-- The beam-value type represents the type of beam associated with each of 8 beam levels (up to 1024th notes) available for each note.+data BeamValue = + BeamValueBegin -- ^ /begin/+ | BeamValueContinue -- ^ /continue/+ | BeamValueEnd -- ^ /end/+ | BeamValueForwardHook -- ^ /forward hook/+ | BeamValueBackwardHook -- ^ /backward hook/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml BeamValue where+ emitXml BeamValueBegin = XLit "begin"+ emitXml BeamValueContinue = XLit "continue"+ emitXml BeamValueEnd = XLit "end"+ emitXml BeamValueForwardHook = XLit "forward hook"+ emitXml BeamValueBackwardHook = XLit "backward hook"+parseBeamValue :: String -> P.XParse BeamValue+parseBeamValue s+ | s == "begin" = return $ BeamValueBegin+ | s == "continue" = return $ BeamValueContinue+ | s == "end" = return $ BeamValueEnd+ | s == "forward hook" = return $ BeamValueForwardHook+ | s == "backward hook" = return $ BeamValueBackwardHook+ | otherwise = P.xfail $ "BeamValue: " ++ s++-- | @beater-value@ /(simple)/+--+-- The beater-value type represents pictograms for beaters, mallets, and sticks that do not have different materials represented in the pictogram. The finger and hammer values are in addition to Stone's list.+data BeaterValue = + BeaterValueBow -- ^ /bow/+ | BeaterValueChimeHammer -- ^ /chime hammer/+ | BeaterValueCoin -- ^ /coin/+ | BeaterValueFinger -- ^ /finger/+ | BeaterValueFingernail -- ^ /fingernail/+ | BeaterValueFist -- ^ /fist/+ | BeaterValueGuiroScraper -- ^ /guiro scraper/+ | BeaterValueHammer -- ^ /hammer/+ | BeaterValueHand -- ^ /hand/+ | BeaterValueJazzStick -- ^ /jazz stick/+ | BeaterValueKnittingNeedle -- ^ /knitting needle/+ | BeaterValueMetalHammer -- ^ /metal hammer/+ | BeaterValueSnareStick -- ^ /snare stick/+ | BeaterValueSpoonMallet -- ^ /spoon mallet/+ | BeaterValueTriangleBeater -- ^ /triangle beater/+ | BeaterValueTriangleBeaterPlain -- ^ /triangle beater plain/+ | BeaterValueWireBrush -- ^ /wire brush/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml BeaterValue where+ emitXml BeaterValueBow = XLit "bow"+ emitXml BeaterValueChimeHammer = XLit "chime hammer"+ emitXml BeaterValueCoin = XLit "coin"+ emitXml BeaterValueFinger = XLit "finger"+ emitXml BeaterValueFingernail = XLit "fingernail"+ emitXml BeaterValueFist = XLit "fist"+ emitXml BeaterValueGuiroScraper = XLit "guiro scraper"+ emitXml BeaterValueHammer = XLit "hammer"+ emitXml BeaterValueHand = XLit "hand"+ emitXml BeaterValueJazzStick = XLit "jazz stick"+ emitXml BeaterValueKnittingNeedle = XLit "knitting needle"+ emitXml BeaterValueMetalHammer = XLit "metal hammer"+ emitXml BeaterValueSnareStick = XLit "snare stick"+ emitXml BeaterValueSpoonMallet = XLit "spoon mallet"+ emitXml BeaterValueTriangleBeater = XLit "triangle beater"+ emitXml BeaterValueTriangleBeaterPlain = XLit "triangle beater plain"+ emitXml BeaterValueWireBrush = XLit "wire brush"+parseBeaterValue :: String -> P.XParse BeaterValue+parseBeaterValue s+ | s == "bow" = return $ BeaterValueBow+ | s == "chime hammer" = return $ BeaterValueChimeHammer+ | s == "coin" = return $ BeaterValueCoin+ | s == "finger" = return $ BeaterValueFinger+ | s == "fingernail" = return $ BeaterValueFingernail+ | s == "fist" = return $ BeaterValueFist+ | s == "guiro scraper" = return $ BeaterValueGuiroScraper+ | s == "hammer" = return $ BeaterValueHammer+ | s == "hand" = return $ BeaterValueHand+ | s == "jazz stick" = return $ BeaterValueJazzStick+ | s == "knitting needle" = return $ BeaterValueKnittingNeedle+ | s == "metal hammer" = return $ BeaterValueMetalHammer+ | s == "snare stick" = return $ BeaterValueSnareStick+ | s == "spoon mallet" = return $ BeaterValueSpoonMallet+ | s == "triangle beater" = return $ BeaterValueTriangleBeater+ | s == "triangle beater plain" = return $ BeaterValueTriangleBeaterPlain+ | s == "wire brush" = return $ BeaterValueWireBrush+ | otherwise = P.xfail $ "BeaterValue: " ++ s++-- | @breath-mark-value@ /(simple)/+--+-- The breath-mark-value type represents the symbol used for a breath mark.+data BreathMarkValue = + BreathMarkValue -- ^ //+ | BreathMarkValueComma -- ^ /comma/+ | BreathMarkValueTick -- ^ /tick/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml BreathMarkValue where+ emitXml BreathMarkValue = XLit ""+ emitXml BreathMarkValueComma = XLit "comma"+ emitXml BreathMarkValueTick = XLit "tick"+parseBreathMarkValue :: String -> P.XParse BreathMarkValue+parseBreathMarkValue s+ | s == "" = return $ BreathMarkValue+ | s == "comma" = return $ BreathMarkValueComma+ | s == "tick" = return $ BreathMarkValueTick+ | otherwise = P.xfail $ "BreathMarkValue: " ++ s++-- | @cancel-location@ /(simple)/+--+-- The cancel-location type is used to indicate where a key signature cancellation appears relative to a new key signature: to the left, to the right, or before the barline and to the left. It is left by default. For mid-measure key elements, a cancel-location of before-barline should be treated like a cancel-location of left.+data CancelLocation = + CancelLocationLeft -- ^ /left/+ | CancelLocationRight -- ^ /right/+ | CancelLocationBeforeBarline -- ^ /before-barline/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml CancelLocation where+ emitXml CancelLocationLeft = XLit "left"+ emitXml CancelLocationRight = XLit "right"+ emitXml CancelLocationBeforeBarline = XLit "before-barline"+parseCancelLocation :: String -> P.XParse CancelLocation+parseCancelLocation s+ | s == "left" = return $ CancelLocationLeft+ | s == "right" = return $ CancelLocationRight+ | s == "before-barline" = return $ CancelLocationBeforeBarline+ | otherwise = P.xfail $ "CancelLocation: " ++ s++-- | @circular-arrow@ /(simple)/+--+-- The circular-arrow type represents the direction in which a circular arrow points, using Unicode arrow terminology.+data CircularArrow = + CircularArrowClockwise -- ^ /clockwise/+ | CircularArrowAnticlockwise -- ^ /anticlockwise/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml CircularArrow where+ emitXml CircularArrowClockwise = XLit "clockwise"+ emitXml CircularArrowAnticlockwise = XLit "anticlockwise"+parseCircularArrow :: String -> P.XParse CircularArrow+parseCircularArrow s+ | s == "clockwise" = return $ CircularArrowClockwise+ | s == "anticlockwise" = return $ CircularArrowAnticlockwise+ | otherwise = P.xfail $ "CircularArrow: " ++ s++-- | @clef-sign@ /(simple)/+--+-- The clef-sign element represents the different clef symbols. The jianpu sign indicates that the music that follows should be in jianpu numbered notation, just as the TAB sign indicates that the music that follows should be in tablature notation. Unlike TAB, a jianpu sign does not correspond to a visual clef notation.+data ClefSign = + ClefSignG -- ^ /G/+ | ClefSignF -- ^ /F/+ | ClefSignC -- ^ /C/+ | ClefSignPercussion -- ^ /percussion/+ | ClefSignTAB -- ^ /TAB/+ | ClefSignJianpu -- ^ /jianpu/+ | ClefSignNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ClefSign where+ emitXml ClefSignG = XLit "G"+ emitXml ClefSignF = XLit "F"+ emitXml ClefSignC = XLit "C"+ emitXml ClefSignPercussion = XLit "percussion"+ emitXml ClefSignTAB = XLit "TAB"+ emitXml ClefSignJianpu = XLit "jianpu"+ emitXml ClefSignNone = XLit "none"+parseClefSign :: String -> P.XParse ClefSign+parseClefSign s+ | s == "G" = return $ ClefSignG+ | s == "F" = return $ ClefSignF+ | s == "C" = return $ ClefSignC+ | s == "percussion" = return $ ClefSignPercussion+ | s == "TAB" = return $ ClefSignTAB+ | s == "jianpu" = return $ ClefSignJianpu+ | s == "none" = return $ ClefSignNone+ | otherwise = P.xfail $ "ClefSign: " ++ s++-- | @color@ /(simple)/+--+-- The color type indicates the color of an element. Color may be represented as hexadecimal RGB triples, as in HTML, or as hexadecimal ARGB tuples, with the A indicating alpha of transparency. An alpha value of 00 is totally transparent; FF is totally opaque. If RGB is used, the A value is assumed to be FF. +-- +-- For instance, the RGB value "#800080" represents purple. An ARGB value of "#40800080" would be a transparent purple.+-- +-- As in SVG 1.1, colors are defined in terms of the sRGB color space (IEC 61966).+newtype Color = Color { color :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show Color where show (Color a) = show a+instance Read Color where readsPrec i = map (A.first Color) . readsPrec i+instance EmitXml Color where+ emitXml = emitXml . color+parseColor :: String -> P.XParse Color+parseColor = return . fromString++-- | @comma-separated-text@ /(simple)/+--+-- The comma-separated-text type is used to specify a comma-separated list of text elements, as is used by the font-family attribute.+newtype CommaSeparatedText = CommaSeparatedText { commaSeparatedText :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show CommaSeparatedText where show (CommaSeparatedText a) = show a+instance Read CommaSeparatedText where readsPrec i = map (A.first CommaSeparatedText) . readsPrec i+instance EmitXml CommaSeparatedText where+ emitXml = emitXml . commaSeparatedText+parseCommaSeparatedText :: String -> P.XParse CommaSeparatedText+parseCommaSeparatedText = return . fromString++-- | @css-font-size@ /(simple)/+--+-- The css-font-size type includes the CSS font sizes used as an alternative to a numeric point size.+data CssFontSize = + CssFontSizeXxSmall -- ^ /xx-small/+ | CssFontSizeXSmall -- ^ /x-small/+ | CssFontSizeSmall -- ^ /small/+ | CssFontSizeMedium -- ^ /medium/+ | CssFontSizeLarge -- ^ /large/+ | CssFontSizeXLarge -- ^ /x-large/+ | CssFontSizeXxLarge -- ^ /xx-large/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml CssFontSize where+ emitXml CssFontSizeXxSmall = XLit "xx-small"+ emitXml CssFontSizeXSmall = XLit "x-small"+ emitXml CssFontSizeSmall = XLit "small"+ emitXml CssFontSizeMedium = XLit "medium"+ emitXml CssFontSizeLarge = XLit "large"+ emitXml CssFontSizeXLarge = XLit "x-large"+ emitXml CssFontSizeXxLarge = XLit "xx-large"+parseCssFontSize :: String -> P.XParse CssFontSize+parseCssFontSize s+ | s == "xx-small" = return $ CssFontSizeXxSmall+ | s == "x-small" = return $ CssFontSizeXSmall+ | s == "small" = return $ CssFontSizeSmall+ | s == "medium" = return $ CssFontSizeMedium+ | s == "large" = return $ CssFontSizeLarge+ | s == "x-large" = return $ CssFontSizeXLarge+ | s == "xx-large" = return $ CssFontSizeXxLarge+ | otherwise = P.xfail $ "CssFontSize: " ++ s++-- | @degree-symbol-value@ /(simple)/+--+-- The degree-symbol-value type indicates indicates that a symbol should be used in specifying the degree.+data DegreeSymbolValue = + DegreeSymbolValueMajor -- ^ /major/+ | DegreeSymbolValueMinor -- ^ /minor/+ | DegreeSymbolValueAugmented -- ^ /augmented/+ | DegreeSymbolValueDiminished -- ^ /diminished/+ | DegreeSymbolValueHalfDiminished -- ^ /half-diminished/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml DegreeSymbolValue where+ emitXml DegreeSymbolValueMajor = XLit "major"+ emitXml DegreeSymbolValueMinor = XLit "minor"+ emitXml DegreeSymbolValueAugmented = XLit "augmented"+ emitXml DegreeSymbolValueDiminished = XLit "diminished"+ emitXml DegreeSymbolValueHalfDiminished = XLit "half-diminished"+parseDegreeSymbolValue :: String -> P.XParse DegreeSymbolValue+parseDegreeSymbolValue s+ | s == "major" = return $ DegreeSymbolValueMajor+ | s == "minor" = return $ DegreeSymbolValueMinor+ | s == "augmented" = return $ DegreeSymbolValueAugmented+ | s == "diminished" = return $ DegreeSymbolValueDiminished+ | s == "half-diminished" = return $ DegreeSymbolValueHalfDiminished+ | otherwise = P.xfail $ "DegreeSymbolValue: " ++ s++-- | @degree-type-value@ /(simple)/+--+-- The degree-type-value type indicates whether the current degree element is an addition, alteration, or subtraction to the kind of the current chord in the harmony element.+data DegreeTypeValue = + DegreeTypeValueAdd -- ^ /add/+ | DegreeTypeValueAlter -- ^ /alter/+ | DegreeTypeValueSubtract -- ^ /subtract/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml DegreeTypeValue where+ emitXml DegreeTypeValueAdd = XLit "add"+ emitXml DegreeTypeValueAlter = XLit "alter"+ emitXml DegreeTypeValueSubtract = XLit "subtract"+parseDegreeTypeValue :: String -> P.XParse DegreeTypeValue+parseDegreeTypeValue s+ | s == "add" = return $ DegreeTypeValueAdd+ | s == "alter" = return $ DegreeTypeValueAlter+ | s == "subtract" = return $ DegreeTypeValueSubtract+ | otherwise = P.xfail $ "DegreeTypeValue: " ++ s++-- | @distance-type@ /(simple)/+--+-- The distance-type defines what type of distance is being defined in a distance element. Values include beam and hyphen. This is left as a string so that other application-specific types can be defined, but it is made a separate type so that it can be redefined more strictly.+newtype DistanceType = DistanceType { distanceType :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show DistanceType where show (DistanceType a) = show a+instance Read DistanceType where readsPrec i = map (A.first DistanceType) . readsPrec i+instance EmitXml DistanceType where+ emitXml = emitXml . distanceType+parseDistanceType :: String -> P.XParse DistanceType+parseDistanceType = return . fromString++-- | @divisions@ /(simple)/+--+-- The divisions type is used to express values in terms of the musical divisions defined by the divisions element. It is preferred that these be integer values both for MIDI interoperability and to avoid roundoff errors.+newtype Divisions = Divisions { divisions :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show Divisions where show (Divisions a) = show a+instance Read Divisions where readsPrec i = map (A.first Divisions) . readsPrec i+instance EmitXml Divisions where+ emitXml = emitXml . divisions+parseDivisions :: String -> P.XParse Divisions+parseDivisions = P.xread "Divisions"++-- | @effect@ /(simple)/+--+-- The effect type represents pictograms for sound effect percussion instruments. The cannon value is in addition to Stone's list.+data Effect = + EffectAnvil -- ^ /anvil/+ | EffectAutoHorn -- ^ /auto horn/+ | EffectBirdWhistle -- ^ /bird whistle/+ | EffectCannon -- ^ /cannon/+ | EffectDuckCall -- ^ /duck call/+ | EffectGunShot -- ^ /gun shot/+ | EffectKlaxonHorn -- ^ /klaxon horn/+ | EffectLionsRoar -- ^ /lions roar/+ | EffectPoliceWhistle -- ^ /police whistle/+ | EffectSiren -- ^ /siren/+ | EffectSlideWhistle -- ^ /slide whistle/+ | EffectThunderSheet -- ^ /thunder sheet/+ | EffectWindMachine -- ^ /wind machine/+ | EffectWindWhistle -- ^ /wind whistle/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Effect where+ emitXml EffectAnvil = XLit "anvil"+ emitXml EffectAutoHorn = XLit "auto horn"+ emitXml EffectBirdWhistle = XLit "bird whistle"+ emitXml EffectCannon = XLit "cannon"+ emitXml EffectDuckCall = XLit "duck call"+ emitXml EffectGunShot = XLit "gun shot"+ emitXml EffectKlaxonHorn = XLit "klaxon horn"+ emitXml EffectLionsRoar = XLit "lions roar"+ emitXml EffectPoliceWhistle = XLit "police whistle"+ emitXml EffectSiren = XLit "siren"+ emitXml EffectSlideWhistle = XLit "slide whistle"+ emitXml EffectThunderSheet = XLit "thunder sheet"+ emitXml EffectWindMachine = XLit "wind machine"+ emitXml EffectWindWhistle = XLit "wind whistle"+parseEffect :: String -> P.XParse Effect+parseEffect s+ | s == "anvil" = return $ EffectAnvil+ | s == "auto horn" = return $ EffectAutoHorn+ | s == "bird whistle" = return $ EffectBirdWhistle+ | s == "cannon" = return $ EffectCannon+ | s == "duck call" = return $ EffectDuckCall+ | s == "gun shot" = return $ EffectGunShot+ | s == "klaxon horn" = return $ EffectKlaxonHorn+ | s == "lions roar" = return $ EffectLionsRoar+ | s == "police whistle" = return $ EffectPoliceWhistle+ | s == "siren" = return $ EffectSiren+ | s == "slide whistle" = return $ EffectSlideWhistle+ | s == "thunder sheet" = return $ EffectThunderSheet+ | s == "wind machine" = return $ EffectWindMachine+ | s == "wind whistle" = return $ EffectWindWhistle+ | otherwise = P.xfail $ "Effect: " ++ s++-- | @enclosure-shape@ /(simple)/+--+-- The enclosure-shape type describes the shape and presence / absence of an enclosure around text or symbols. A bracket enclosure is similar to a rectangle with the bottom line missing, as is common in jazz notation.+data EnclosureShape = + EnclosureShapeRectangle -- ^ /rectangle/+ | EnclosureShapeSquare -- ^ /square/+ | EnclosureShapeOval -- ^ /oval/+ | EnclosureShapeCircle -- ^ /circle/+ | EnclosureShapeBracket -- ^ /bracket/+ | EnclosureShapeTriangle -- ^ /triangle/+ | EnclosureShapeDiamond -- ^ /diamond/+ | EnclosureShapeNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml EnclosureShape where+ emitXml EnclosureShapeRectangle = XLit "rectangle"+ emitXml EnclosureShapeSquare = XLit "square"+ emitXml EnclosureShapeOval = XLit "oval"+ emitXml EnclosureShapeCircle = XLit "circle"+ emitXml EnclosureShapeBracket = XLit "bracket"+ emitXml EnclosureShapeTriangle = XLit "triangle"+ emitXml EnclosureShapeDiamond = XLit "diamond"+ emitXml EnclosureShapeNone = XLit "none"+parseEnclosureShape :: String -> P.XParse EnclosureShape+parseEnclosureShape s+ | s == "rectangle" = return $ EnclosureShapeRectangle+ | s == "square" = return $ EnclosureShapeSquare+ | s == "oval" = return $ EnclosureShapeOval+ | s == "circle" = return $ EnclosureShapeCircle+ | s == "bracket" = return $ EnclosureShapeBracket+ | s == "triangle" = return $ EnclosureShapeTriangle+ | s == "diamond" = return $ EnclosureShapeDiamond+ | s == "none" = return $ EnclosureShapeNone+ | otherwise = P.xfail $ "EnclosureShape: " ++ s++-- | @ending-number@ /(simple)/+--+-- The ending-number type is used to specify either a comma-separated list of positive integers without leading zeros, or a string of zero or more spaces. It is used for the number attribute of the ending element. The zero or more spaces version is used when software knows that an ending is present, but cannot determine the type of the ending.+newtype EndingNumber = EndingNumber { endingNumber :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show EndingNumber where show (EndingNumber a) = show a+instance Read EndingNumber where readsPrec i = map (A.first EndingNumber) . readsPrec i+instance EmitXml EndingNumber where+ emitXml = emitXml . endingNumber+parseEndingNumber :: String -> P.XParse EndingNumber+parseEndingNumber = return . fromString++-- | @fan@ /(simple)/+--+-- The fan type represents the type of beam fanning present on a note, used to represent accelerandos and ritardandos.+data Fan = + FanAccel -- ^ /accel/+ | FanRit -- ^ /rit/+ | FanNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Fan where+ emitXml FanAccel = XLit "accel"+ emitXml FanRit = XLit "rit"+ emitXml FanNone = XLit "none"+parseFan :: String -> P.XParse Fan+parseFan s+ | s == "accel" = return $ FanAccel+ | s == "rit" = return $ FanRit+ | s == "none" = return $ FanNone+ | otherwise = P.xfail $ "Fan: " ++ s++-- | @fermata-shape@ /(simple)/+--+-- The fermata-shape type represents the shape of the fermata sign. The empty value is equivalent to the normal value.+data FermataShape = + FermataShapeNormal -- ^ /normal/+ | FermataShapeAngled -- ^ /angled/+ | FermataShapeSquare -- ^ /square/+ | FermataShape -- ^ //+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml FermataShape where+ emitXml FermataShapeNormal = XLit "normal"+ emitXml FermataShapeAngled = XLit "angled"+ emitXml FermataShapeSquare = XLit "square"+ emitXml FermataShape = XLit ""+parseFermataShape :: String -> P.XParse FermataShape+parseFermataShape s+ | s == "normal" = return $ FermataShapeNormal+ | s == "angled" = return $ FermataShapeAngled+ | s == "square" = return $ FermataShapeSquare+ | s == "" = return $ FermataShape+ | otherwise = P.xfail $ "FermataShape: " ++ s++-- | @fifths@ /(simple)/+--+-- The fifths type represents the number of flats or sharps in a traditional key signature. Negative numbers are used for flats and positive numbers for sharps, reflecting the key's placement within the circle of fifths (hence the type name).+newtype Fifths = Fifths { fifths :: Int }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show Fifths where show (Fifths a) = show a+instance Read Fifths where readsPrec i = map (A.first Fifths) . readsPrec i+instance EmitXml Fifths where+ emitXml = emitXml . fifths+parseFifths :: String -> P.XParse Fifths+parseFifths = P.xread "Fifths"++-- | @font-size@ /(simple)/+--+-- The font-size can be one of the CSS font sizes or a numeric point size.+data FontSize = + FontSizeDecimal {+ fontSize1 :: Decimal+ }+ | FontSizeCssFontSize {+ fontSize2 :: CssFontSize+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FontSize where+ emitXml (FontSizeDecimal a) = emitXml a+ emitXml (FontSizeCssFontSize a) = emitXml a+parseFontSize :: String -> P.XParse FontSize+parseFontSize s = + FontSizeDecimal+ <$> (P.xread "Decimal") s+ <|> FontSizeCssFontSize+ <$> parseCssFontSize s+++-- | @font-style@ /(simple)/+--+-- The font-style type represents a simplified version of the CSS font-style property.+data FontStyle = + FontStyleNormal -- ^ /normal/+ | FontStyleItalic -- ^ /italic/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml FontStyle where+ emitXml FontStyleNormal = XLit "normal"+ emitXml FontStyleItalic = XLit "italic"+parseFontStyle :: String -> P.XParse FontStyle+parseFontStyle s+ | s == "normal" = return $ FontStyleNormal+ | s == "italic" = return $ FontStyleItalic+ | otherwise = P.xfail $ "FontStyle: " ++ s++-- | @font-weight@ /(simple)/+--+-- The font-weight type represents a simplified version of the CSS font-weight property.+data FontWeight = + FontWeightNormal -- ^ /normal/+ | FontWeightBold -- ^ /bold/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml FontWeight where+ emitXml FontWeightNormal = XLit "normal"+ emitXml FontWeightBold = XLit "bold"+parseFontWeight :: String -> P.XParse FontWeight+parseFontWeight s+ | s == "normal" = return $ FontWeightNormal+ | s == "bold" = return $ FontWeightBold+ | otherwise = P.xfail $ "FontWeight: " ++ s++-- | @glass@ /(simple)/+--+-- The glass type represents pictograms for glass percussion instruments.+data Glass = + GlassWindChimes -- ^ /wind chimes/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Glass where+ emitXml GlassWindChimes = XLit "wind chimes"+parseGlass :: String -> P.XParse Glass+parseGlass s+ | s == "wind chimes" = return $ GlassWindChimes+ | otherwise = P.xfail $ "Glass: " ++ s++-- | @group-barline-value@ /(simple)/+--+-- The group-barline-value type indicates if the group should have common barlines.+data GroupBarlineValue = + GroupBarlineValueYes -- ^ /yes/+ | GroupBarlineValueNo -- ^ /no/+ | GroupBarlineValueMensurstrich -- ^ /Mensurstrich/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml GroupBarlineValue where+ emitXml GroupBarlineValueYes = XLit "yes"+ emitXml GroupBarlineValueNo = XLit "no"+ emitXml GroupBarlineValueMensurstrich = XLit "Mensurstrich"+parseGroupBarlineValue :: String -> P.XParse GroupBarlineValue+parseGroupBarlineValue s+ | s == "yes" = return $ GroupBarlineValueYes+ | s == "no" = return $ GroupBarlineValueNo+ | s == "Mensurstrich" = return $ GroupBarlineValueMensurstrich+ | otherwise = P.xfail $ "GroupBarlineValue: " ++ s++-- | @group-symbol-value@ /(simple)/+--+-- The group-symbol-value type indicates how the symbol for a group is indicated in the score. The default value is none.+data GroupSymbolValue = + GroupSymbolValueNone -- ^ /none/+ | GroupSymbolValueBrace -- ^ /brace/+ | GroupSymbolValueLine -- ^ /line/+ | GroupSymbolValueBracket -- ^ /bracket/+ | GroupSymbolValueSquare -- ^ /square/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml GroupSymbolValue where+ emitXml GroupSymbolValueNone = XLit "none"+ emitXml GroupSymbolValueBrace = XLit "brace"+ emitXml GroupSymbolValueLine = XLit "line"+ emitXml GroupSymbolValueBracket = XLit "bracket"+ emitXml GroupSymbolValueSquare = XLit "square"+parseGroupSymbolValue :: String -> P.XParse GroupSymbolValue+parseGroupSymbolValue s+ | s == "none" = return $ GroupSymbolValueNone+ | s == "brace" = return $ GroupSymbolValueBrace+ | s == "line" = return $ GroupSymbolValueLine+ | s == "bracket" = return $ GroupSymbolValueBracket+ | s == "square" = return $ GroupSymbolValueSquare+ | otherwise = P.xfail $ "GroupSymbolValue: " ++ s++-- | @handbell-value@ /(simple)/+--+-- The handbell-value type represents the type of handbell technique being notated.+data HandbellValue = + HandbellValueDamp -- ^ /damp/+ | HandbellValueEcho -- ^ /echo/+ | HandbellValueGyro -- ^ /gyro/+ | HandbellValueHandMartellato -- ^ /hand martellato/+ | HandbellValueMalletLift -- ^ /mallet lift/+ | HandbellValueMalletTable -- ^ /mallet table/+ | HandbellValueMartellato -- ^ /martellato/+ | HandbellValueMartellatoLift -- ^ /martellato lift/+ | HandbellValueMutedMartellato -- ^ /muted martellato/+ | HandbellValuePluckLift -- ^ /pluck lift/+ | HandbellValueSwing -- ^ /swing/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml HandbellValue where+ emitXml HandbellValueDamp = XLit "damp"+ emitXml HandbellValueEcho = XLit "echo"+ emitXml HandbellValueGyro = XLit "gyro"+ emitXml HandbellValueHandMartellato = XLit "hand martellato"+ emitXml HandbellValueMalletLift = XLit "mallet lift"+ emitXml HandbellValueMalletTable = XLit "mallet table"+ emitXml HandbellValueMartellato = XLit "martellato"+ emitXml HandbellValueMartellatoLift = XLit "martellato lift"+ emitXml HandbellValueMutedMartellato = XLit "muted martellato"+ emitXml HandbellValuePluckLift = XLit "pluck lift"+ emitXml HandbellValueSwing = XLit "swing"+parseHandbellValue :: String -> P.XParse HandbellValue+parseHandbellValue s+ | s == "damp" = return $ HandbellValueDamp+ | s == "echo" = return $ HandbellValueEcho+ | s == "gyro" = return $ HandbellValueGyro+ | s == "hand martellato" = return $ HandbellValueHandMartellato+ | s == "mallet lift" = return $ HandbellValueMalletLift+ | s == "mallet table" = return $ HandbellValueMalletTable+ | s == "martellato" = return $ HandbellValueMartellato+ | s == "martellato lift" = return $ HandbellValueMartellatoLift+ | s == "muted martellato" = return $ HandbellValueMutedMartellato+ | s == "pluck lift" = return $ HandbellValuePluckLift+ | s == "swing" = return $ HandbellValueSwing+ | otherwise = P.xfail $ "HandbellValue: " ++ s++-- | @harmony-type@ /(simple)/+--+-- The harmony-type type differentiates different types of harmonies when alternate harmonies are possible. Explicit harmonies have all note present in the music; implied have some notes missing but implied; alternate represents alternate analyses.+data HarmonyType = + HarmonyTypeExplicit -- ^ /explicit/+ | HarmonyTypeImplied -- ^ /implied/+ | HarmonyTypeAlternate -- ^ /alternate/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml HarmonyType where+ emitXml HarmonyTypeExplicit = XLit "explicit"+ emitXml HarmonyTypeImplied = XLit "implied"+ emitXml HarmonyTypeAlternate = XLit "alternate"+parseHarmonyType :: String -> P.XParse HarmonyType+parseHarmonyType s+ | s == "explicit" = return $ HarmonyTypeExplicit+ | s == "implied" = return $ HarmonyTypeImplied+ | s == "alternate" = return $ HarmonyTypeAlternate+ | otherwise = P.xfail $ "HarmonyType: " ++ s++-- | @hole-closed-location@ /(simple)/+--+-- The hole-closed-location type indicates which portion of the hole is filled in when the corresponding hole-closed-value is half.+data HoleClosedLocation = + HoleClosedLocationRight -- ^ /right/+ | HoleClosedLocationBottom -- ^ /bottom/+ | HoleClosedLocationLeft -- ^ /left/+ | HoleClosedLocationTop -- ^ /top/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml HoleClosedLocation where+ emitXml HoleClosedLocationRight = XLit "right"+ emitXml HoleClosedLocationBottom = XLit "bottom"+ emitXml HoleClosedLocationLeft = XLit "left"+ emitXml HoleClosedLocationTop = XLit "top"+parseHoleClosedLocation :: String -> P.XParse HoleClosedLocation+parseHoleClosedLocation s+ | s == "right" = return $ HoleClosedLocationRight+ | s == "bottom" = return $ HoleClosedLocationBottom+ | s == "left" = return $ HoleClosedLocationLeft+ | s == "top" = return $ HoleClosedLocationTop+ | otherwise = P.xfail $ "HoleClosedLocation: " ++ s++-- | @hole-closed-value@ /(simple)/+--+-- The hole-closed-value type represents whether the hole is closed, open, or half-open.+data HoleClosedValue = + HoleClosedValueYes -- ^ /yes/+ | HoleClosedValueNo -- ^ /no/+ | HoleClosedValueHalf -- ^ /half/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml HoleClosedValue where+ emitXml HoleClosedValueYes = XLit "yes"+ emitXml HoleClosedValueNo = XLit "no"+ emitXml HoleClosedValueHalf = XLit "half"+parseHoleClosedValue :: String -> P.XParse HoleClosedValue+parseHoleClosedValue s+ | s == "yes" = return $ HoleClosedValueYes+ | s == "no" = return $ HoleClosedValueNo+ | s == "half" = return $ HoleClosedValueHalf+ | otherwise = P.xfail $ "HoleClosedValue: " ++ s++-- | @kind-value@ /(simple)/+--+-- A kind-value indicates the type of chord. Degree elements can then add, subtract, or alter from these starting points. Values include:+--+-- @+-- +-- Triads:+-- major (major third, perfect fifth)+-- minor (minor third, perfect fifth)+-- augmented (major third, augmented fifth)+-- diminished (minor third, diminished fifth)+-- Sevenths:+-- dominant (major triad, minor seventh)+-- major-seventh (major triad, major seventh)+-- minor-seventh (minor triad, minor seventh)+-- diminished-seventh (diminished triad, diminished seventh)+-- augmented-seventh (augmented triad, minor seventh)+-- half-diminished (diminished triad, minor seventh)+-- major-minor (minor triad, major seventh)+-- Sixths:+-- major-sixth (major triad, added sixth)+-- minor-sixth (minor triad, added sixth)+-- Ninths:+-- dominant-ninth (dominant-seventh, major ninth)+-- major-ninth (major-seventh, major ninth)+-- minor-ninth (minor-seventh, major ninth)+-- 11ths (usually as the basis for alteration):+-- dominant-11th (dominant-ninth, perfect 11th)+-- major-11th (major-ninth, perfect 11th)+-- minor-11th (minor-ninth, perfect 11th)+-- 13ths (usually as the basis for alteration):+-- dominant-13th (dominant-11th, major 13th)+-- major-13th (major-11th, major 13th)+-- minor-13th (minor-11th, major 13th)+-- Suspended:+-- suspended-second (major second, perfect fifth)+-- suspended-fourth (perfect fourth, perfect fifth)+-- Functional sixths:+-- Neapolitan+-- Italian+-- French+-- German+-- Other:+-- pedal (pedal-point bass)+-- power (perfect fifth)+-- Tristan+-- +-- The "other" kind is used when the harmony is entirely composed of add elements. The "none" kind is used to explicitly encode absence of chords or functional harmony.+-- @+data KindValue = + KindValueMajor -- ^ /major/+ | KindValueMinor -- ^ /minor/+ | KindValueAugmented -- ^ /augmented/+ | KindValueDiminished -- ^ /diminished/+ | KindValueDominant -- ^ /dominant/+ | KindValueMajorSeventh -- ^ /major-seventh/+ | KindValueMinorSeventh -- ^ /minor-seventh/+ | KindValueDiminishedSeventh -- ^ /diminished-seventh/+ | KindValueAugmentedSeventh -- ^ /augmented-seventh/+ | KindValueHalfDiminished -- ^ /half-diminished/+ | KindValueMajorMinor -- ^ /major-minor/+ | KindValueMajorSixth -- ^ /major-sixth/+ | KindValueMinorSixth -- ^ /minor-sixth/+ | KindValueDominantNinth -- ^ /dominant-ninth/+ | KindValueMajorNinth -- ^ /major-ninth/+ | KindValueMinorNinth -- ^ /minor-ninth/+ | KindValueDominant11th -- ^ /dominant-11th/+ | KindValueMajor11th -- ^ /major-11th/+ | KindValueMinor11th -- ^ /minor-11th/+ | KindValueDominant13th -- ^ /dominant-13th/+ | KindValueMajor13th -- ^ /major-13th/+ | KindValueMinor13th -- ^ /minor-13th/+ | KindValueSuspendedSecond -- ^ /suspended-second/+ | KindValueSuspendedFourth -- ^ /suspended-fourth/+ | KindValueNeapolitan -- ^ /Neapolitan/+ | KindValueItalian -- ^ /Italian/+ | KindValueFrench -- ^ /French/+ | KindValueGerman -- ^ /German/+ | KindValuePedal -- ^ /pedal/+ | KindValuePower -- ^ /power/+ | KindValueTristan -- ^ /Tristan/+ | KindValueOther -- ^ /other/+ | KindValueNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml KindValue where+ emitXml KindValueMajor = XLit "major"+ emitXml KindValueMinor = XLit "minor"+ emitXml KindValueAugmented = XLit "augmented"+ emitXml KindValueDiminished = XLit "diminished"+ emitXml KindValueDominant = XLit "dominant"+ emitXml KindValueMajorSeventh = XLit "major-seventh"+ emitXml KindValueMinorSeventh = XLit "minor-seventh"+ emitXml KindValueDiminishedSeventh = XLit "diminished-seventh"+ emitXml KindValueAugmentedSeventh = XLit "augmented-seventh"+ emitXml KindValueHalfDiminished = XLit "half-diminished"+ emitXml KindValueMajorMinor = XLit "major-minor"+ emitXml KindValueMajorSixth = XLit "major-sixth"+ emitXml KindValueMinorSixth = XLit "minor-sixth"+ emitXml KindValueDominantNinth = XLit "dominant-ninth"+ emitXml KindValueMajorNinth = XLit "major-ninth"+ emitXml KindValueMinorNinth = XLit "minor-ninth"+ emitXml KindValueDominant11th = XLit "dominant-11th"+ emitXml KindValueMajor11th = XLit "major-11th"+ emitXml KindValueMinor11th = XLit "minor-11th"+ emitXml KindValueDominant13th = XLit "dominant-13th"+ emitXml KindValueMajor13th = XLit "major-13th"+ emitXml KindValueMinor13th = XLit "minor-13th"+ emitXml KindValueSuspendedSecond = XLit "suspended-second"+ emitXml KindValueSuspendedFourth = XLit "suspended-fourth"+ emitXml KindValueNeapolitan = XLit "Neapolitan"+ emitXml KindValueItalian = XLit "Italian"+ emitXml KindValueFrench = XLit "French"+ emitXml KindValueGerman = XLit "German"+ emitXml KindValuePedal = XLit "pedal"+ emitXml KindValuePower = XLit "power"+ emitXml KindValueTristan = XLit "Tristan"+ emitXml KindValueOther = XLit "other"+ emitXml KindValueNone = XLit "none"+parseKindValue :: String -> P.XParse KindValue+parseKindValue s+ | s == "major" = return $ KindValueMajor+ | s == "minor" = return $ KindValueMinor+ | s == "augmented" = return $ KindValueAugmented+ | s == "diminished" = return $ KindValueDiminished+ | s == "dominant" = return $ KindValueDominant+ | s == "major-seventh" = return $ KindValueMajorSeventh+ | s == "minor-seventh" = return $ KindValueMinorSeventh+ | s == "diminished-seventh" = return $ KindValueDiminishedSeventh+ | s == "augmented-seventh" = return $ KindValueAugmentedSeventh+ | s == "half-diminished" = return $ KindValueHalfDiminished+ | s == "major-minor" = return $ KindValueMajorMinor+ | s == "major-sixth" = return $ KindValueMajorSixth+ | s == "minor-sixth" = return $ KindValueMinorSixth+ | s == "dominant-ninth" = return $ KindValueDominantNinth+ | s == "major-ninth" = return $ KindValueMajorNinth+ | s == "minor-ninth" = return $ KindValueMinorNinth+ | s == "dominant-11th" = return $ KindValueDominant11th+ | s == "major-11th" = return $ KindValueMajor11th+ | s == "minor-11th" = return $ KindValueMinor11th+ | s == "dominant-13th" = return $ KindValueDominant13th+ | s == "major-13th" = return $ KindValueMajor13th+ | s == "minor-13th" = return $ KindValueMinor13th+ | s == "suspended-second" = return $ KindValueSuspendedSecond+ | s == "suspended-fourth" = return $ KindValueSuspendedFourth+ | s == "Neapolitan" = return $ KindValueNeapolitan+ | s == "Italian" = return $ KindValueItalian+ | s == "French" = return $ KindValueFrench+ | s == "German" = return $ KindValueGerman+ | s == "pedal" = return $ KindValuePedal+ | s == "power" = return $ KindValuePower+ | s == "Tristan" = return $ KindValueTristan+ | s == "other" = return $ KindValueOther+ | s == "none" = return $ KindValueNone+ | otherwise = P.xfail $ "KindValue: " ++ s++-- | @xml:lang@ /(simple)/+data Lang = + LangLanguage {+ lang1 :: Language+ }+ | LangLang {+ lang2 :: SumLang+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Lang where+ emitXml (LangLanguage a) = emitXml a+ emitXml (LangLang a) = emitXml a+parseLang :: String -> P.XParse Lang+parseLang s = + LangLanguage+ <$> parseLanguage s+ <|> LangLang+ <$> parseSumLang s+++-- | @xs:language@ /(simple)/+newtype Language = Language { language :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show Language where show (Language a) = show a+instance Read Language where readsPrec i = map (A.first Language) . readsPrec i+instance EmitXml Language where+ emitXml = emitXml . language+parseLanguage :: String -> P.XParse Language+parseLanguage = return . fromString++-- | @left-center-right@ /(simple)/+--+-- The left-center-right type is used to define horizontal alignment and text justification.+data LeftCenterRight = + LeftCenterRightLeft -- ^ /left/+ | LeftCenterRightCenter -- ^ /center/+ | LeftCenterRightRight -- ^ /right/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LeftCenterRight where+ emitXml LeftCenterRightLeft = XLit "left"+ emitXml LeftCenterRightCenter = XLit "center"+ emitXml LeftCenterRightRight = XLit "right"+parseLeftCenterRight :: String -> P.XParse LeftCenterRight+parseLeftCenterRight s+ | s == "left" = return $ LeftCenterRightLeft+ | s == "center" = return $ LeftCenterRightCenter+ | s == "right" = return $ LeftCenterRightRight+ | otherwise = P.xfail $ "LeftCenterRight: " ++ s++-- | @left-right@ /(simple)/+--+-- The left-right type is used to indicate whether one element appears to the left or the right of another element.+data LeftRight = + LeftRightLeft -- ^ /left/+ | LeftRightRight -- ^ /right/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LeftRight where+ emitXml LeftRightLeft = XLit "left"+ emitXml LeftRightRight = XLit "right"+parseLeftRight :: String -> P.XParse LeftRight+parseLeftRight s+ | s == "left" = return $ LeftRightLeft+ | s == "right" = return $ LeftRightRight+ | otherwise = P.xfail $ "LeftRight: " ++ s++-- | @line-end@ /(simple)/+--+-- The line-end type specifies if there is a jog up or down (or both), an arrow, or nothing at the start or end of a bracket.+data LineEnd = + LineEndUp -- ^ /up/+ | LineEndDown -- ^ /down/+ | LineEndBoth -- ^ /both/+ | LineEndArrow -- ^ /arrow/+ | LineEndNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LineEnd where+ emitXml LineEndUp = XLit "up"+ emitXml LineEndDown = XLit "down"+ emitXml LineEndBoth = XLit "both"+ emitXml LineEndArrow = XLit "arrow"+ emitXml LineEndNone = XLit "none"+parseLineEnd :: String -> P.XParse LineEnd+parseLineEnd s+ | s == "up" = return $ LineEndUp+ | s == "down" = return $ LineEndDown+ | s == "both" = return $ LineEndBoth+ | s == "arrow" = return $ LineEndArrow+ | s == "none" = return $ LineEndNone+ | otherwise = P.xfail $ "LineEnd: " ++ s++-- | @line-shape@ /(simple)/+--+-- The line-shape type distinguishes between straight and curved lines.+data LineShape = + LineShapeStraight -- ^ /straight/+ | LineShapeCurved -- ^ /curved/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LineShape where+ emitXml LineShapeStraight = XLit "straight"+ emitXml LineShapeCurved = XLit "curved"+parseLineShape :: String -> P.XParse LineShape+parseLineShape s+ | s == "straight" = return $ LineShapeStraight+ | s == "curved" = return $ LineShapeCurved+ | otherwise = P.xfail $ "LineShape: " ++ s++-- | @line-type@ /(simple)/+--+-- The line-type type distinguishes between solid, dashed, dotted, and wavy lines.+data LineType = + LineTypeSolid -- ^ /solid/+ | LineTypeDashed -- ^ /dashed/+ | LineTypeDotted -- ^ /dotted/+ | LineTypeWavy -- ^ /wavy/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LineType where+ emitXml LineTypeSolid = XLit "solid"+ emitXml LineTypeDashed = XLit "dashed"+ emitXml LineTypeDotted = XLit "dotted"+ emitXml LineTypeWavy = XLit "wavy"+parseLineType :: String -> P.XParse LineType+parseLineType s+ | s == "solid" = return $ LineTypeSolid+ | s == "dashed" = return $ LineTypeDashed+ | s == "dotted" = return $ LineTypeDotted+ | s == "wavy" = return $ LineTypeWavy+ | otherwise = P.xfail $ "LineType: " ++ s++-- | @line-width-type@ /(simple)/+--+-- The line-width-type defines what type of line is being defined in a line-width element. Values include beam, bracket, dashes, enclosure, ending, extend, heavy barline, leger, light barline, octave shift, pedal, slur middle, slur tip, staff, stem, tie middle, tie tip, tuplet bracket, and wedge. This is left as a string so that other application-specific types can be defined, but it is made a separate type so that it can be redefined more strictly.+newtype LineWidthType = LineWidthType { lineWidthType :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show LineWidthType where show (LineWidthType a) = show a+instance Read LineWidthType where readsPrec i = map (A.first LineWidthType) . readsPrec i+instance EmitXml LineWidthType where+ emitXml = emitXml . lineWidthType+parseLineWidthType :: String -> P.XParse LineWidthType+parseLineWidthType = return . fromString++-- | @margin-type@ /(simple)/+--+-- The margin-type type specifies whether margins apply to even page, odd pages, or both.+data MarginType = + MarginTypeOdd -- ^ /odd/+ | MarginTypeEven -- ^ /even/+ | MarginTypeBoth -- ^ /both/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml MarginType where+ emitXml MarginTypeOdd = XLit "odd"+ emitXml MarginTypeEven = XLit "even"+ emitXml MarginTypeBoth = XLit "both"+parseMarginType :: String -> P.XParse MarginType+parseMarginType s+ | s == "odd" = return $ MarginTypeOdd+ | s == "even" = return $ MarginTypeEven+ | s == "both" = return $ MarginTypeBoth+ | otherwise = P.xfail $ "MarginType: " ++ s++-- | @measure-numbering-value@ /(simple)/+--+-- The measure-numbering-value type describes how measure numbers are displayed on this part: no numbers, numbers every measure, or numbers every system.+data MeasureNumberingValue = + MeasureNumberingValueNone -- ^ /none/+ | MeasureNumberingValueMeasure -- ^ /measure/+ | MeasureNumberingValueSystem -- ^ /system/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml MeasureNumberingValue where+ emitXml MeasureNumberingValueNone = XLit "none"+ emitXml MeasureNumberingValueMeasure = XLit "measure"+ emitXml MeasureNumberingValueSystem = XLit "system"+parseMeasureNumberingValue :: String -> P.XParse MeasureNumberingValue+parseMeasureNumberingValue s+ | s == "none" = return $ MeasureNumberingValueNone+ | s == "measure" = return $ MeasureNumberingValueMeasure+ | s == "system" = return $ MeasureNumberingValueSystem+ | otherwise = P.xfail $ "MeasureNumberingValue: " ++ s++-- | @membrane@ /(simple)/+--+-- The membrane type represents pictograms for membrane percussion instruments. The goblet drum value is in addition to Stone's list.+data Membrane = + MembraneBassDrum -- ^ /bass drum/+ | MembraneBassDrumOnSide -- ^ /bass drum on side/+ | MembraneBongos -- ^ /bongos/+ | MembraneCongaDrum -- ^ /conga drum/+ | MembraneGobletDrum -- ^ /goblet drum/+ | MembraneMilitaryDrum -- ^ /military drum/+ | MembraneSnareDrum -- ^ /snare drum/+ | MembraneSnareDrumSnaresOff -- ^ /snare drum snares off/+ | MembraneTambourine -- ^ /tambourine/+ | MembraneTenorDrum -- ^ /tenor drum/+ | MembraneTimbales -- ^ /timbales/+ | MembraneTomtom -- ^ /tomtom/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Membrane where+ emitXml MembraneBassDrum = XLit "bass drum"+ emitXml MembraneBassDrumOnSide = XLit "bass drum on side"+ emitXml MembraneBongos = XLit "bongos"+ emitXml MembraneCongaDrum = XLit "conga drum"+ emitXml MembraneGobletDrum = XLit "goblet drum"+ emitXml MembraneMilitaryDrum = XLit "military drum"+ emitXml MembraneSnareDrum = XLit "snare drum"+ emitXml MembraneSnareDrumSnaresOff = XLit "snare drum snares off"+ emitXml MembraneTambourine = XLit "tambourine"+ emitXml MembraneTenorDrum = XLit "tenor drum"+ emitXml MembraneTimbales = XLit "timbales"+ emitXml MembraneTomtom = XLit "tomtom"+parseMembrane :: String -> P.XParse Membrane+parseMembrane s+ | s == "bass drum" = return $ MembraneBassDrum+ | s == "bass drum on side" = return $ MembraneBassDrumOnSide+ | s == "bongos" = return $ MembraneBongos+ | s == "conga drum" = return $ MembraneCongaDrum+ | s == "goblet drum" = return $ MembraneGobletDrum+ | s == "military drum" = return $ MembraneMilitaryDrum+ | s == "snare drum" = return $ MembraneSnareDrum+ | s == "snare drum snares off" = return $ MembraneSnareDrumSnaresOff+ | s == "tambourine" = return $ MembraneTambourine+ | s == "tenor drum" = return $ MembraneTenorDrum+ | s == "timbales" = return $ MembraneTimbales+ | s == "tomtom" = return $ MembraneTomtom+ | otherwise = P.xfail $ "Membrane: " ++ s++-- | @metal@ /(simple)/+--+-- The metal type represents pictograms for metal percussion instruments. The hi-hat value refers to a pictogram like Stone's high-hat cymbals but without the long vertical line at the bottom.+data Metal = + MetalAlmglocken -- ^ /almglocken/+ | MetalBell -- ^ /bell/+ | MetalBellPlate -- ^ /bell plate/+ | MetalBrakeDrum -- ^ /brake drum/+ | MetalChineseCymbal -- ^ /Chinese cymbal/+ | MetalCowbell -- ^ /cowbell/+ | MetalCrashCymbals -- ^ /crash cymbals/+ | MetalCrotale -- ^ /crotale/+ | MetalCymbalTongs -- ^ /cymbal tongs/+ | MetalDomedGong -- ^ /domed gong/+ | MetalFingerCymbals -- ^ /finger cymbals/+ | MetalFlexatone -- ^ /flexatone/+ | MetalGong -- ^ /gong/+ | MetalHiHat -- ^ /hi-hat/+ | MetalHighHatCymbals -- ^ /high-hat cymbals/+ | MetalHandbell -- ^ /handbell/+ | MetalSistrum -- ^ /sistrum/+ | MetalSizzleCymbal -- ^ /sizzle cymbal/+ | MetalSleighBells -- ^ /sleigh bells/+ | MetalSuspendedCymbal -- ^ /suspended cymbal/+ | MetalTamTam -- ^ /tam tam/+ | MetalTriangle -- ^ /triangle/+ | MetalVietnameseHat -- ^ /Vietnamese hat/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Metal where+ emitXml MetalAlmglocken = XLit "almglocken"+ emitXml MetalBell = XLit "bell"+ emitXml MetalBellPlate = XLit "bell plate"+ emitXml MetalBrakeDrum = XLit "brake drum"+ emitXml MetalChineseCymbal = XLit "Chinese cymbal"+ emitXml MetalCowbell = XLit "cowbell"+ emitXml MetalCrashCymbals = XLit "crash cymbals"+ emitXml MetalCrotale = XLit "crotale"+ emitXml MetalCymbalTongs = XLit "cymbal tongs"+ emitXml MetalDomedGong = XLit "domed gong"+ emitXml MetalFingerCymbals = XLit "finger cymbals"+ emitXml MetalFlexatone = XLit "flexatone"+ emitXml MetalGong = XLit "gong"+ emitXml MetalHiHat = XLit "hi-hat"+ emitXml MetalHighHatCymbals = XLit "high-hat cymbals"+ emitXml MetalHandbell = XLit "handbell"+ emitXml MetalSistrum = XLit "sistrum"+ emitXml MetalSizzleCymbal = XLit "sizzle cymbal"+ emitXml MetalSleighBells = XLit "sleigh bells"+ emitXml MetalSuspendedCymbal = XLit "suspended cymbal"+ emitXml MetalTamTam = XLit "tam tam"+ emitXml MetalTriangle = XLit "triangle"+ emitXml MetalVietnameseHat = XLit "Vietnamese hat"+parseMetal :: String -> P.XParse Metal+parseMetal s+ | s == "almglocken" = return $ MetalAlmglocken+ | s == "bell" = return $ MetalBell+ | s == "bell plate" = return $ MetalBellPlate+ | s == "brake drum" = return $ MetalBrakeDrum+ | s == "Chinese cymbal" = return $ MetalChineseCymbal+ | s == "cowbell" = return $ MetalCowbell+ | s == "crash cymbals" = return $ MetalCrashCymbals+ | s == "crotale" = return $ MetalCrotale+ | s == "cymbal tongs" = return $ MetalCymbalTongs+ | s == "domed gong" = return $ MetalDomedGong+ | s == "finger cymbals" = return $ MetalFingerCymbals+ | s == "flexatone" = return $ MetalFlexatone+ | s == "gong" = return $ MetalGong+ | s == "hi-hat" = return $ MetalHiHat+ | s == "high-hat cymbals" = return $ MetalHighHatCymbals+ | s == "handbell" = return $ MetalHandbell+ | s == "sistrum" = return $ MetalSistrum+ | s == "sizzle cymbal" = return $ MetalSizzleCymbal+ | s == "sleigh bells" = return $ MetalSleighBells+ | s == "suspended cymbal" = return $ MetalSuspendedCymbal+ | s == "tam tam" = return $ MetalTamTam+ | s == "triangle" = return $ MetalTriangle+ | s == "Vietnamese hat" = return $ MetalVietnameseHat+ | otherwise = P.xfail $ "Metal: " ++ s++-- | @midi-128@ /(simple)/+--+-- The midi-16 type is used to express MIDI 1.0 values that range from 1 to 128.+newtype Midi128 = Midi128 { midi128 :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show Midi128 where show (Midi128 a) = show a+instance Read Midi128 where readsPrec i = map (A.first Midi128) . readsPrec i+instance EmitXml Midi128 where+ emitXml = emitXml . midi128+parseMidi128 :: String -> P.XParse Midi128+parseMidi128 = P.xread "Midi128"++-- | @midi-16@ /(simple)/+--+-- The midi-16 type is used to express MIDI 1.0 values that range from 1 to 16.+newtype Midi16 = Midi16 { midi16 :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show Midi16 where show (Midi16 a) = show a+instance Read Midi16 where readsPrec i = map (A.first Midi16) . readsPrec i+instance EmitXml Midi16 where+ emitXml = emitXml . midi16+parseMidi16 :: String -> P.XParse Midi16+parseMidi16 = P.xread "Midi16"++-- | @midi-16384@ /(simple)/+--+-- The midi-16 type is used to express MIDI 1.0 values that range from 1 to 16,384.+newtype Midi16384 = Midi16384 { midi16384 :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show Midi16384 where show (Midi16384 a) = show a+instance Read Midi16384 where readsPrec i = map (A.first Midi16384) . readsPrec i+instance EmitXml Midi16384 where+ emitXml = emitXml . midi16384+parseMidi16384 :: String -> P.XParse Midi16384+parseMidi16384 = P.xread "Midi16384"++-- | @millimeters@ /(simple)/+--+-- The millimeters type is a number representing millimeters. This is used in the scaling element to provide a default scaling from tenths to physical units.+newtype Millimeters = Millimeters { millimeters :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show Millimeters where show (Millimeters a) = show a+instance Read Millimeters where readsPrec i = map (A.first Millimeters) . readsPrec i+instance EmitXml Millimeters where+ emitXml = emitXml . millimeters+parseMillimeters :: String -> P.XParse Millimeters+parseMillimeters = P.xread "Millimeters"++-- | @mode@ /(simple)/+--+-- The mode type is used to specify major/minor and other mode distinctions. Valid mode values include major, minor, dorian, phrygian, lydian, mixolydian, aeolian, ionian, locrian, and none.+newtype Mode = Mode { mode :: String }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show Mode where show (Mode a) = show a+instance Read Mode where readsPrec i = map (A.first Mode) . readsPrec i+instance EmitXml Mode where+ emitXml = emitXml . mode+parseMode :: String -> P.XParse Mode+parseMode = return . fromString++-- | @mute@ /(simple)/+--+-- The mute type represents muting for different instruments, including brass, winds, and strings. The on and off values are used for undifferentiated mutes. The remaining values represent specific mutes.+data Mute = + MuteOn -- ^ /on/+ | MuteOff -- ^ /off/+ | MuteStraight -- ^ /straight/+ | MuteCup -- ^ /cup/+ | MuteHarmonNoStem -- ^ /harmon-no-stem/+ | MuteHarmonStem -- ^ /harmon-stem/+ | MuteBucket -- ^ /bucket/+ | MutePlunger -- ^ /plunger/+ | MuteHat -- ^ /hat/+ | MuteSolotone -- ^ /solotone/+ | MutePractice -- ^ /practice/+ | MuteStopMute -- ^ /stop-mute/+ | MuteStopHand -- ^ /stop-hand/+ | MuteEcho -- ^ /echo/+ | MutePalm -- ^ /palm/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Mute where+ emitXml MuteOn = XLit "on"+ emitXml MuteOff = XLit "off"+ emitXml MuteStraight = XLit "straight"+ emitXml MuteCup = XLit "cup"+ emitXml MuteHarmonNoStem = XLit "harmon-no-stem"+ emitXml MuteHarmonStem = XLit "harmon-stem"+ emitXml MuteBucket = XLit "bucket"+ emitXml MutePlunger = XLit "plunger"+ emitXml MuteHat = XLit "hat"+ emitXml MuteSolotone = XLit "solotone"+ emitXml MutePractice = XLit "practice"+ emitXml MuteStopMute = XLit "stop-mute"+ emitXml MuteStopHand = XLit "stop-hand"+ emitXml MuteEcho = XLit "echo"+ emitXml MutePalm = XLit "palm"+parseMute :: String -> P.XParse Mute+parseMute s+ | s == "on" = return $ MuteOn+ | s == "off" = return $ MuteOff+ | s == "straight" = return $ MuteStraight+ | s == "cup" = return $ MuteCup+ | s == "harmon-no-stem" = return $ MuteHarmonNoStem+ | s == "harmon-stem" = return $ MuteHarmonStem+ | s == "bucket" = return $ MuteBucket+ | s == "plunger" = return $ MutePlunger+ | s == "hat" = return $ MuteHat+ | s == "solotone" = return $ MuteSolotone+ | s == "practice" = return $ MutePractice+ | s == "stop-mute" = return $ MuteStopMute+ | s == "stop-hand" = return $ MuteStopHand+ | s == "echo" = return $ MuteEcho+ | s == "palm" = return $ MutePalm+ | otherwise = P.xfail $ "Mute: " ++ s++-- | @non-negative-decimal@ /(simple)/+--+-- The non-negative-decimal type specifies a non-negative decimal value.+newtype NonNegativeDecimal = NonNegativeDecimal { nonNegativeDecimal :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show NonNegativeDecimal where show (NonNegativeDecimal a) = show a+instance Read NonNegativeDecimal where readsPrec i = map (A.first NonNegativeDecimal) . readsPrec i+instance EmitXml NonNegativeDecimal where+ emitXml = emitXml . nonNegativeDecimal+parseNonNegativeDecimal :: String -> P.XParse NonNegativeDecimal+parseNonNegativeDecimal = P.xread "NonNegativeDecimal"++-- | @xs:nonNegativeInteger@ /(simple)/+newtype NonNegativeInteger = NonNegativeInteger { nonNegativeInteger :: Int }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show NonNegativeInteger where show (NonNegativeInteger a) = show a+instance Read NonNegativeInteger where readsPrec i = map (A.first NonNegativeInteger) . readsPrec i+instance EmitXml NonNegativeInteger where+ emitXml = emitXml . nonNegativeInteger+parseNonNegativeInteger :: String -> P.XParse NonNegativeInteger+parseNonNegativeInteger = P.xread "NonNegativeInteger"++-- | @xs:normalizedString@ /(simple)/+newtype NormalizedString = NormalizedString { normalizedString :: String }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show NormalizedString where show (NormalizedString a) = show a+instance Read NormalizedString where readsPrec i = map (A.first NormalizedString) . readsPrec i+instance EmitXml NormalizedString where+ emitXml = emitXml . normalizedString+parseNormalizedString :: String -> P.XParse NormalizedString+parseNormalizedString = return . fromString++-- | @note-size-type@ /(simple)/+--+-- The note-size-type type indicates the type of note being defined by a note-size element. The grace type is used for notes of cue size that that include a grace element. The cue type is used for all other notes with cue size, whether defined explicitly or implicitly via a cue element. The large type is used for notes of large size.+data NoteSizeType = + NoteSizeTypeCue -- ^ /cue/+ | NoteSizeTypeGrace -- ^ /grace/+ | NoteSizeTypeLarge -- ^ /large/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml NoteSizeType where+ emitXml NoteSizeTypeCue = XLit "cue"+ emitXml NoteSizeTypeGrace = XLit "grace"+ emitXml NoteSizeTypeLarge = XLit "large"+parseNoteSizeType :: String -> P.XParse NoteSizeType+parseNoteSizeType s+ | s == "cue" = return $ NoteSizeTypeCue+ | s == "grace" = return $ NoteSizeTypeGrace+ | s == "large" = return $ NoteSizeTypeLarge+ | otherwise = P.xfail $ "NoteSizeType: " ++ s++-- | @note-type-value@ /(simple)/+--+-- The note-type type is used for the MusicXML type element and represents the graphic note type, from 1024th (shortest) to maxima (longest).+data NoteTypeValue = + NoteTypeValue1024th -- ^ /1024th/+ | NoteTypeValue512th -- ^ /512th/+ | NoteTypeValue256th -- ^ /256th/+ | NoteTypeValue128th -- ^ /128th/+ | NoteTypeValue64th -- ^ /64th/+ | NoteTypeValue32nd -- ^ /32nd/+ | NoteTypeValue16th -- ^ /16th/+ | NoteTypeValueEighth -- ^ /eighth/+ | NoteTypeValueQuarter -- ^ /quarter/+ | NoteTypeValueHalf -- ^ /half/+ | NoteTypeValueWhole -- ^ /whole/+ | NoteTypeValueBreve -- ^ /breve/+ | NoteTypeValueLong -- ^ /long/+ | NoteTypeValueMaxima -- ^ /maxima/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml NoteTypeValue where+ emitXml NoteTypeValue1024th = XLit "1024th"+ emitXml NoteTypeValue512th = XLit "512th"+ emitXml NoteTypeValue256th = XLit "256th"+ emitXml NoteTypeValue128th = XLit "128th"+ emitXml NoteTypeValue64th = XLit "64th"+ emitXml NoteTypeValue32nd = XLit "32nd"+ emitXml NoteTypeValue16th = XLit "16th"+ emitXml NoteTypeValueEighth = XLit "eighth"+ emitXml NoteTypeValueQuarter = XLit "quarter"+ emitXml NoteTypeValueHalf = XLit "half"+ emitXml NoteTypeValueWhole = XLit "whole"+ emitXml NoteTypeValueBreve = XLit "breve"+ emitXml NoteTypeValueLong = XLit "long"+ emitXml NoteTypeValueMaxima = XLit "maxima"+parseNoteTypeValue :: String -> P.XParse NoteTypeValue+parseNoteTypeValue s+ | s == "1024th" = return $ NoteTypeValue1024th+ | s == "512th" = return $ NoteTypeValue512th+ | s == "256th" = return $ NoteTypeValue256th+ | s == "128th" = return $ NoteTypeValue128th+ | s == "64th" = return $ NoteTypeValue64th+ | s == "32nd" = return $ NoteTypeValue32nd+ | s == "16th" = return $ NoteTypeValue16th+ | s == "eighth" = return $ NoteTypeValueEighth+ | s == "quarter" = return $ NoteTypeValueQuarter+ | s == "half" = return $ NoteTypeValueHalf+ | s == "whole" = return $ NoteTypeValueWhole+ | s == "breve" = return $ NoteTypeValueBreve+ | s == "long" = return $ NoteTypeValueLong+ | s == "maxima" = return $ NoteTypeValueMaxima+ | otherwise = P.xfail $ "NoteTypeValue: " ++ s++-- | @notehead-value@ /(simple)/+--+-- +-- The notehead type indicates shapes other than the open and closed ovals associated with note durations. The values do, re, mi, fa, fa up, so, la, and ti correspond to Aikin's 7-shape system. The fa up shape is typically used with upstems; the fa shape is typically used with downstems or no stems.+-- +-- The arrow shapes differ from triangle and inverted triangle by being centered on the stem. Slashed and back slashed notes include both the normal notehead and a slash. The triangle shape has the tip of the triangle pointing up; the inverted triangle shape has the tip of the triangle pointing down. The left triangle shape is a right triangle with the hypotenuse facing up and to the left.+data NoteheadValue = + NoteheadValueSlash -- ^ /slash/+ | NoteheadValueTriangle -- ^ /triangle/+ | NoteheadValueDiamond -- ^ /diamond/+ | NoteheadValueSquare -- ^ /square/+ | NoteheadValueCross -- ^ /cross/+ | NoteheadValueX -- ^ /x/+ | NoteheadValueCircleX -- ^ /circle-x/+ | NoteheadValueInvertedTriangle -- ^ /inverted triangle/+ | NoteheadValueArrowDown -- ^ /arrow down/+ | NoteheadValueArrowUp -- ^ /arrow up/+ | NoteheadValueSlashed -- ^ /slashed/+ | NoteheadValueBackSlashed -- ^ /back slashed/+ | NoteheadValueNormal -- ^ /normal/+ | NoteheadValueCluster -- ^ /cluster/+ | NoteheadValueCircleDot -- ^ /circle dot/+ | NoteheadValueLeftTriangle -- ^ /left triangle/+ | NoteheadValueRectangle -- ^ /rectangle/+ | NoteheadValueNone -- ^ /none/+ | NoteheadValueDo -- ^ /do/+ | NoteheadValueRe -- ^ /re/+ | NoteheadValueMi -- ^ /mi/+ | NoteheadValueFa -- ^ /fa/+ | NoteheadValueFaUp -- ^ /fa up/+ | NoteheadValueSo -- ^ /so/+ | NoteheadValueLa -- ^ /la/+ | NoteheadValueTi -- ^ /ti/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml NoteheadValue where+ emitXml NoteheadValueSlash = XLit "slash"+ emitXml NoteheadValueTriangle = XLit "triangle"+ emitXml NoteheadValueDiamond = XLit "diamond"+ emitXml NoteheadValueSquare = XLit "square"+ emitXml NoteheadValueCross = XLit "cross"+ emitXml NoteheadValueX = XLit "x"+ emitXml NoteheadValueCircleX = XLit "circle-x"+ emitXml NoteheadValueInvertedTriangle = XLit "inverted triangle"+ emitXml NoteheadValueArrowDown = XLit "arrow down"+ emitXml NoteheadValueArrowUp = XLit "arrow up"+ emitXml NoteheadValueSlashed = XLit "slashed"+ emitXml NoteheadValueBackSlashed = XLit "back slashed"+ emitXml NoteheadValueNormal = XLit "normal"+ emitXml NoteheadValueCluster = XLit "cluster"+ emitXml NoteheadValueCircleDot = XLit "circle dot"+ emitXml NoteheadValueLeftTriangle = XLit "left triangle"+ emitXml NoteheadValueRectangle = XLit "rectangle"+ emitXml NoteheadValueNone = XLit "none"+ emitXml NoteheadValueDo = XLit "do"+ emitXml NoteheadValueRe = XLit "re"+ emitXml NoteheadValueMi = XLit "mi"+ emitXml NoteheadValueFa = XLit "fa"+ emitXml NoteheadValueFaUp = XLit "fa up"+ emitXml NoteheadValueSo = XLit "so"+ emitXml NoteheadValueLa = XLit "la"+ emitXml NoteheadValueTi = XLit "ti"+parseNoteheadValue :: String -> P.XParse NoteheadValue+parseNoteheadValue s+ | s == "slash" = return $ NoteheadValueSlash+ | s == "triangle" = return $ NoteheadValueTriangle+ | s == "diamond" = return $ NoteheadValueDiamond+ | s == "square" = return $ NoteheadValueSquare+ | s == "cross" = return $ NoteheadValueCross+ | s == "x" = return $ NoteheadValueX+ | s == "circle-x" = return $ NoteheadValueCircleX+ | s == "inverted triangle" = return $ NoteheadValueInvertedTriangle+ | s == "arrow down" = return $ NoteheadValueArrowDown+ | s == "arrow up" = return $ NoteheadValueArrowUp+ | s == "slashed" = return $ NoteheadValueSlashed+ | s == "back slashed" = return $ NoteheadValueBackSlashed+ | s == "normal" = return $ NoteheadValueNormal+ | s == "cluster" = return $ NoteheadValueCluster+ | s == "circle dot" = return $ NoteheadValueCircleDot+ | s == "left triangle" = return $ NoteheadValueLeftTriangle+ | s == "rectangle" = return $ NoteheadValueRectangle+ | s == "none" = return $ NoteheadValueNone+ | s == "do" = return $ NoteheadValueDo+ | s == "re" = return $ NoteheadValueRe+ | s == "mi" = return $ NoteheadValueMi+ | s == "fa" = return $ NoteheadValueFa+ | s == "fa up" = return $ NoteheadValueFaUp+ | s == "so" = return $ NoteheadValueSo+ | s == "la" = return $ NoteheadValueLa+ | s == "ti" = return $ NoteheadValueTi+ | otherwise = P.xfail $ "NoteheadValue: " ++ s++-- | @number-level@ /(simple)/+--+-- Slurs, tuplets, and many other features can be concurrent and overlapping within a single musical part. The number-level type distinguishes up to six concurrent objects of the same type. A reading program should be prepared to handle cases where the number-levels stop in an arbitrary order. Different numbers are needed when the features overlap in MusicXML document order. When a number-level value is implied, the value is 1 by default.+newtype NumberLevel = NumberLevel { numberLevel :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show NumberLevel where show (NumberLevel a) = show a+instance Read NumberLevel where readsPrec i = map (A.first NumberLevel) . readsPrec i+instance EmitXml NumberLevel where+ emitXml = emitXml . numberLevel+parseNumberLevel :: String -> P.XParse NumberLevel+parseNumberLevel = P.xread "NumberLevel"++-- | @number-of-lines@ /(simple)/+--+-- The number-of-lines type is used to specify the number of lines in text decoration attributes.+newtype NumberOfLines = NumberOfLines { numberOfLines :: NonNegativeInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show NumberOfLines where show (NumberOfLines a) = show a+instance Read NumberOfLines where readsPrec i = map (A.first NumberOfLines) . readsPrec i+instance EmitXml NumberOfLines where+ emitXml = emitXml . numberOfLines+parseNumberOfLines :: String -> P.XParse NumberOfLines+parseNumberOfLines = P.xread "NumberOfLines"++-- | @number-or-normal@ /(simple)/+--+-- The number-or-normal values can be either a decimal number or the string "normal". This is used by the line-height and letter-spacing attributes.+data NumberOrNormal = + NumberOrNormalDecimal {+ numberOrNormal1 :: Decimal+ }+ | NumberOrNormalNumberOrNormal {+ numberOrNormal2 :: SumNumberOrNormal+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NumberOrNormal where+ emitXml (NumberOrNormalDecimal a) = emitXml a+ emitXml (NumberOrNormalNumberOrNormal a) = emitXml a+parseNumberOrNormal :: String -> P.XParse NumberOrNormal+parseNumberOrNormal s = + NumberOrNormalDecimal+ <$> (P.xread "Decimal") s+ <|> NumberOrNormalNumberOrNormal+ <$> parseSumNumberOrNormal s+++-- | @octave@ /(simple)/+--+-- Octaves are represented by the numbers 0 to 9, where 4 indicates the octave started by middle C.+newtype Octave = Octave { octave :: Int }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show Octave where show (Octave a) = show a+instance Read Octave where readsPrec i = map (A.first Octave) . readsPrec i+instance EmitXml Octave where+ emitXml = emitXml . octave+parseOctave :: String -> P.XParse Octave+parseOctave = P.xread "Octave"++-- | @on-off@ /(simple)/+--+-- The on-off type is used for notation elements such as string mutes.+data OnOff = + OnOffOn -- ^ /on/+ | OnOffOff -- ^ /off/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml OnOff where+ emitXml OnOffOn = XLit "on"+ emitXml OnOffOff = XLit "off"+parseOnOff :: String -> P.XParse OnOff+parseOnOff s+ | s == "on" = return $ OnOffOn+ | s == "off" = return $ OnOffOff+ | otherwise = P.xfail $ "OnOff: " ++ s++-- | @over-under@ /(simple)/+--+-- The over-under type is used to indicate whether the tips of curved lines such as slurs and ties are overhand (tips down) or underhand (tips up).+data OverUnder = + OverUnderOver -- ^ /over/+ | OverUnderUnder -- ^ /under/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml OverUnder where+ emitXml OverUnderOver = XLit "over"+ emitXml OverUnderUnder = XLit "under"+parseOverUnder :: String -> P.XParse OverUnder+parseOverUnder s+ | s == "over" = return $ OverUnderOver+ | s == "under" = return $ OverUnderUnder+ | otherwise = P.xfail $ "OverUnder: " ++ s++-- | @percent@ /(simple)/+--+-- The percent type specifies a percentage from 0 to 100.+newtype Percent = Percent { percent :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show Percent where show (Percent a) = show a+instance Read Percent where readsPrec i = map (A.first Percent) . readsPrec i+instance EmitXml Percent where+ emitXml = emitXml . percent+parsePercent :: String -> P.XParse Percent+parsePercent = P.xread "Percent"++-- | @pitched@ /(simple)/+--+-- The pitched type represents pictograms for pitched percussion instruments. The chimes and tubular chimes values distinguish the single-line and double-line versions of the pictogram. The mallet value is in addition to Stone's list.+data Pitched = + PitchedChimes -- ^ /chimes/+ | PitchedGlockenspiel -- ^ /glockenspiel/+ | PitchedMallet -- ^ /mallet/+ | PitchedMarimba -- ^ /marimba/+ | PitchedTubularChimes -- ^ /tubular chimes/+ | PitchedVibraphone -- ^ /vibraphone/+ | PitchedXylophone -- ^ /xylophone/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Pitched where+ emitXml PitchedChimes = XLit "chimes"+ emitXml PitchedGlockenspiel = XLit "glockenspiel"+ emitXml PitchedMallet = XLit "mallet"+ emitXml PitchedMarimba = XLit "marimba"+ emitXml PitchedTubularChimes = XLit "tubular chimes"+ emitXml PitchedVibraphone = XLit "vibraphone"+ emitXml PitchedXylophone = XLit "xylophone"+parsePitched :: String -> P.XParse Pitched+parsePitched s+ | s == "chimes" = return $ PitchedChimes+ | s == "glockenspiel" = return $ PitchedGlockenspiel+ | s == "mallet" = return $ PitchedMallet+ | s == "marimba" = return $ PitchedMarimba+ | s == "tubular chimes" = return $ PitchedTubularChimes+ | s == "vibraphone" = return $ PitchedVibraphone+ | s == "xylophone" = return $ PitchedXylophone+ | otherwise = P.xfail $ "Pitched: " ++ s++-- | @positive-divisions@ /(simple)/+--+-- The positive-divisions type restricts divisions values to positive numbers.+newtype PositiveDivisions = PositiveDivisions { positiveDivisions :: Divisions }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show PositiveDivisions where show (PositiveDivisions a) = show a+instance Read PositiveDivisions where readsPrec i = map (A.first PositiveDivisions) . readsPrec i+instance EmitXml PositiveDivisions where+ emitXml = emitXml . positiveDivisions+parsePositiveDivisions :: String -> P.XParse PositiveDivisions+parsePositiveDivisions = P.xread "PositiveDivisions"++-- | @positive-integer-or-empty@ /(simple)/+--+-- The positive-integer-or-empty values can be either a positive integer or an empty string.+data PositiveIntegerOrEmpty = + PositiveIntegerOrEmptyPositiveInteger {+ positiveIntegerOrEmpty1 :: PositiveInteger+ }+ | PositiveIntegerOrEmptyPositiveIntegerOrEmpty {+ positiveIntegerOrEmpty2 :: SumPositiveIntegerOrEmpty+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PositiveIntegerOrEmpty where+ emitXml (PositiveIntegerOrEmptyPositiveInteger a) = emitXml a+ emitXml (PositiveIntegerOrEmptyPositiveIntegerOrEmpty a) = emitXml a+parsePositiveIntegerOrEmpty :: String -> P.XParse PositiveIntegerOrEmpty+parsePositiveIntegerOrEmpty s = + PositiveIntegerOrEmptyPositiveInteger+ <$> parsePositiveInteger s+ <|> PositiveIntegerOrEmptyPositiveIntegerOrEmpty+ <$> parseSumPositiveIntegerOrEmpty s+++-- | @xs:positiveInteger@ /(simple)/+newtype PositiveInteger = PositiveInteger { positiveInteger :: NonNegativeInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show PositiveInteger where show (PositiveInteger a) = show a+instance Read PositiveInteger where readsPrec i = map (A.first PositiveInteger) . readsPrec i+instance EmitXml PositiveInteger where+ emitXml = emitXml . positiveInteger+parsePositiveInteger :: String -> P.XParse PositiveInteger+parsePositiveInteger = P.xread "PositiveInteger"++-- | @principal-voice-symbol@ /(simple)/+--+-- The principal-voice-symbol type represents the type of symbol used to indicate the start of a principal or secondary voice. The "plain" value represents a plain square bracket. The value of "none" is used for analysis markup when the principal-voice element does not have a corresponding appearance in the score.+data PrincipalVoiceSymbol = + PrincipalVoiceSymbolHauptstimme -- ^ /Hauptstimme/+ | PrincipalVoiceSymbolNebenstimme -- ^ /Nebenstimme/+ | PrincipalVoiceSymbolPlain -- ^ /plain/+ | PrincipalVoiceSymbolNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml PrincipalVoiceSymbol where+ emitXml PrincipalVoiceSymbolHauptstimme = XLit "Hauptstimme"+ emitXml PrincipalVoiceSymbolNebenstimme = XLit "Nebenstimme"+ emitXml PrincipalVoiceSymbolPlain = XLit "plain"+ emitXml PrincipalVoiceSymbolNone = XLit "none"+parsePrincipalVoiceSymbol :: String -> P.XParse PrincipalVoiceSymbol+parsePrincipalVoiceSymbol s+ | s == "Hauptstimme" = return $ PrincipalVoiceSymbolHauptstimme+ | s == "Nebenstimme" = return $ PrincipalVoiceSymbolNebenstimme+ | s == "plain" = return $ PrincipalVoiceSymbolPlain+ | s == "none" = return $ PrincipalVoiceSymbolNone+ | otherwise = P.xfail $ "PrincipalVoiceSymbol: " ++ s++-- | @right-left-middle@ /(simple)/+--+-- The right-left-middle type is used to specify barline location.+data RightLeftMiddle = + RightLeftMiddleRight -- ^ /right/+ | RightLeftMiddleLeft -- ^ /left/+ | RightLeftMiddleMiddle -- ^ /middle/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml RightLeftMiddle where+ emitXml RightLeftMiddleRight = XLit "right"+ emitXml RightLeftMiddleLeft = XLit "left"+ emitXml RightLeftMiddleMiddle = XLit "middle"+parseRightLeftMiddle :: String -> P.XParse RightLeftMiddle+parseRightLeftMiddle s+ | s == "right" = return $ RightLeftMiddleRight+ | s == "left" = return $ RightLeftMiddleLeft+ | s == "middle" = return $ RightLeftMiddleMiddle+ | otherwise = P.xfail $ "RightLeftMiddle: " ++ s++-- | @rotation-degrees@ /(simple)/+--+-- The rotation-degrees type specifies rotation, pan, and elevation values in degrees. Values range from -180 to 180.+newtype RotationDegrees = RotationDegrees { rotationDegrees :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show RotationDegrees where show (RotationDegrees a) = show a+instance Read RotationDegrees where readsPrec i = map (A.first RotationDegrees) . readsPrec i+instance EmitXml RotationDegrees where+ emitXml = emitXml . rotationDegrees+parseRotationDegrees :: String -> P.XParse RotationDegrees+parseRotationDegrees = P.xread "RotationDegrees"++-- | @semi-pitched@ /(simple)/+--+-- The semi-pitched type represents categories of indefinite pitch for percussion instruments.+data SemiPitched = + SemiPitchedHigh -- ^ /high/+ | SemiPitchedMediumHigh -- ^ /medium-high/+ | SemiPitchedMedium -- ^ /medium/+ | SemiPitchedMediumLow -- ^ /medium-low/+ | SemiPitchedLow -- ^ /low/+ | SemiPitchedVeryLow -- ^ /very-low/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SemiPitched where+ emitXml SemiPitchedHigh = XLit "high"+ emitXml SemiPitchedMediumHigh = XLit "medium-high"+ emitXml SemiPitchedMedium = XLit "medium"+ emitXml SemiPitchedMediumLow = XLit "medium-low"+ emitXml SemiPitchedLow = XLit "low"+ emitXml SemiPitchedVeryLow = XLit "very-low"+parseSemiPitched :: String -> P.XParse SemiPitched+parseSemiPitched s+ | s == "high" = return $ SemiPitchedHigh+ | s == "medium-high" = return $ SemiPitchedMediumHigh+ | s == "medium" = return $ SemiPitchedMedium+ | s == "medium-low" = return $ SemiPitchedMediumLow+ | s == "low" = return $ SemiPitchedLow+ | s == "very-low" = return $ SemiPitchedVeryLow+ | otherwise = P.xfail $ "SemiPitched: " ++ s++-- | @semitones@ /(simple)/+--+-- The semitones type is a number representing semitones, used for chromatic alteration. A value of -1 corresponds to a flat and a value of 1 to a sharp. Decimal values like 0.5 (quarter tone sharp) are used for microtones.+newtype Semitones = Semitones { semitones :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show Semitones where show (Semitones a) = show a+instance Read Semitones where readsPrec i = map (A.first Semitones) . readsPrec i+instance EmitXml Semitones where+ emitXml = emitXml . semitones+parseSemitones :: String -> P.XParse Semitones+parseSemitones = P.xread "Semitones"++-- | @xlink:show@ /(simple)/+data SmpShow = + ShowNew -- ^ /new/+ | ShowReplace -- ^ /replace/+ | ShowEmbed -- ^ /embed/+ | ShowOther -- ^ /other/+ | ShowNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SmpShow where+ emitXml ShowNew = XLit "new"+ emitXml ShowReplace = XLit "replace"+ emitXml ShowEmbed = XLit "embed"+ emitXml ShowOther = XLit "other"+ emitXml ShowNone = XLit "none"+parseSmpShow :: String -> P.XParse SmpShow+parseSmpShow s+ | s == "new" = return $ ShowNew+ | s == "replace" = return $ ShowReplace+ | s == "embed" = return $ ShowEmbed+ | s == "other" = return $ ShowOther+ | s == "none" = return $ ShowNone+ | otherwise = P.xfail $ "SmpShow: " ++ s++-- | @show-frets@ /(simple)/+--+-- The show-frets type indicates whether to show tablature frets as numbers (0, 1, 2) or letters (a, b, c). The default choice is numbers.+data ShowFrets = + ShowFretsNumbers -- ^ /numbers/+ | ShowFretsLetters -- ^ /letters/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ShowFrets where+ emitXml ShowFretsNumbers = XLit "numbers"+ emitXml ShowFretsLetters = XLit "letters"+parseShowFrets :: String -> P.XParse ShowFrets+parseShowFrets s+ | s == "numbers" = return $ ShowFretsNumbers+ | s == "letters" = return $ ShowFretsLetters+ | otherwise = P.xfail $ "ShowFrets: " ++ s++-- | @show-tuplet@ /(simple)/+--+-- The show-tuplet type indicates whether to show a part of a tuplet relating to the tuplet-actual element, both the tuplet-actual and tuplet-normal elements, or neither.+data ShowTuplet = + ShowTupletActual -- ^ /actual/+ | ShowTupletBoth -- ^ /both/+ | ShowTupletNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ShowTuplet where+ emitXml ShowTupletActual = XLit "actual"+ emitXml ShowTupletBoth = XLit "both"+ emitXml ShowTupletNone = XLit "none"+parseShowTuplet :: String -> P.XParse ShowTuplet+parseShowTuplet s+ | s == "actual" = return $ ShowTupletActual+ | s == "both" = return $ ShowTupletBoth+ | s == "none" = return $ ShowTupletNone+ | otherwise = P.xfail $ "ShowTuplet: " ++ s++-- | @xml:space@ /(simple)/+data Space = + SpaceDefault -- ^ /default/+ | SpacePreserve -- ^ /preserve/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Space where+ emitXml SpaceDefault = XLit "default"+ emitXml SpacePreserve = XLit "preserve"+parseSpace :: String -> P.XParse Space+parseSpace s+ | s == "default" = return $ SpaceDefault+ | s == "preserve" = return $ SpacePreserve+ | otherwise = P.xfail $ "Space: " ++ s++-- | @staff-line@ /(simple)/+--+-- The staff-line type indicates the line on a given staff. Staff lines are numbered from bottom to top, with 1 being the bottom line on a staff. Staff line values can be used to specify positions outside the staff, such as a C clef positioned in the middle of a grand staff.+newtype StaffLine = StaffLine { staffLine :: Int }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show StaffLine where show (StaffLine a) = show a+instance Read StaffLine where readsPrec i = map (A.first StaffLine) . readsPrec i+instance EmitXml StaffLine where+ emitXml = emitXml . staffLine+parseStaffLine :: String -> P.XParse StaffLine+parseStaffLine = P.xread "StaffLine"++-- | @staff-number@ /(simple)/+--+-- The staff-number type indicates staff numbers within a multi-staff part. Staves are numbered from top to bottom, with 1 being the top staff on a part.+newtype StaffNumber = StaffNumber { staffNumber :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show StaffNumber where show (StaffNumber a) = show a+instance Read StaffNumber where readsPrec i = map (A.first StaffNumber) . readsPrec i+instance EmitXml StaffNumber where+ emitXml = emitXml . staffNumber+parseStaffNumber :: String -> P.XParse StaffNumber+parseStaffNumber = P.xread "StaffNumber"++-- | @staff-type@ /(simple)/+--+-- The staff-type value can be ossia, cue, editorial, regular, or alternate. An alternate staff indicates one that shares the same musical data as the prior staff, but displayed differently (e.g., treble and bass clef, standard notation and tab).+data StaffType = + StaffTypeOssia -- ^ /ossia/+ | StaffTypeCue -- ^ /cue/+ | StaffTypeEditorial -- ^ /editorial/+ | StaffTypeRegular -- ^ /regular/+ | StaffTypeAlternate -- ^ /alternate/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StaffType where+ emitXml StaffTypeOssia = XLit "ossia"+ emitXml StaffTypeCue = XLit "cue"+ emitXml StaffTypeEditorial = XLit "editorial"+ emitXml StaffTypeRegular = XLit "regular"+ emitXml StaffTypeAlternate = XLit "alternate"+parseStaffType :: String -> P.XParse StaffType+parseStaffType s+ | s == "ossia" = return $ StaffTypeOssia+ | s == "cue" = return $ StaffTypeCue+ | s == "editorial" = return $ StaffTypeEditorial+ | s == "regular" = return $ StaffTypeRegular+ | s == "alternate" = return $ StaffTypeAlternate+ | otherwise = P.xfail $ "StaffType: " ++ s++-- | @start-note@ /(simple)/+--+-- The start-note type describes the starting note of trills and mordents for playback, relative to the current note.+data StartNote = + StartNoteUpper -- ^ /upper/+ | StartNoteMain -- ^ /main/+ | StartNoteBelow -- ^ /below/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartNote where+ emitXml StartNoteUpper = XLit "upper"+ emitXml StartNoteMain = XLit "main"+ emitXml StartNoteBelow = XLit "below"+parseStartNote :: String -> P.XParse StartNote+parseStartNote s+ | s == "upper" = return $ StartNoteUpper+ | s == "main" = return $ StartNoteMain+ | s == "below" = return $ StartNoteBelow+ | otherwise = P.xfail $ "StartNote: " ++ s++-- | @start-stop@ /(simple)/+--+-- The start-stop type is used for an attribute of musical elements that can either start or stop, such as tuplets.+-- +-- The values of start and stop refer to how an element appears in musical score order, not in MusicXML document order. An element with a stop attribute may precede the corresponding element with a start attribute within a MusicXML document. This is particularly common in multi-staff music. For example, the stopping point for a tuplet may appear in staff 1 before the starting point for the tuplet appears in staff 2 later in the document.+data StartStop = + StartStopStart -- ^ /start/+ | StartStopStop -- ^ /stop/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartStop where+ emitXml StartStopStart = XLit "start"+ emitXml StartStopStop = XLit "stop"+parseStartStop :: String -> P.XParse StartStop+parseStartStop s+ | s == "start" = return $ StartStopStart+ | s == "stop" = return $ StartStopStop+ | otherwise = P.xfail $ "StartStop: " ++ s++-- | @start-stop-change-continue@ /(simple)/+--+-- The start-stop-change-continue type is used to distinguish types of pedal directions.+data StartStopChangeContinue = + StartStopChangeContinueStart -- ^ /start/+ | StartStopChangeContinueStop -- ^ /stop/+ | StartStopChangeContinueChange -- ^ /change/+ | StartStopChangeContinueContinue -- ^ /continue/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartStopChangeContinue where+ emitXml StartStopChangeContinueStart = XLit "start"+ emitXml StartStopChangeContinueStop = XLit "stop"+ emitXml StartStopChangeContinueChange = XLit "change"+ emitXml StartStopChangeContinueContinue = XLit "continue"+parseStartStopChangeContinue :: String -> P.XParse StartStopChangeContinue+parseStartStopChangeContinue s+ | s == "start" = return $ StartStopChangeContinueStart+ | s == "stop" = return $ StartStopChangeContinueStop+ | s == "change" = return $ StartStopChangeContinueChange+ | s == "continue" = return $ StartStopChangeContinueContinue+ | otherwise = P.xfail $ "StartStopChangeContinue: " ++ s++-- | @start-stop-continue@ /(simple)/+--+-- The start-stop-continue type is used for an attribute of musical elements that can either start or stop, but also need to refer to an intermediate point in the symbol, as for complex slurs or for formatting of symbols across system breaks.+-- +-- The values of start, stop, and continue refer to how an element appears in musical score order, not in MusicXML document order. An element with a stop attribute may precede the corresponding element with a start attribute within a MusicXML document. This is particularly common in multi-staff music. For example, the stopping point for a slur may appear in staff 1 before the starting point for the slur appears in staff 2 later in the document.+data StartStopContinue = + StartStopContinueStart -- ^ /start/+ | StartStopContinueStop -- ^ /stop/+ | StartStopContinueContinue -- ^ /continue/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartStopContinue where+ emitXml StartStopContinueStart = XLit "start"+ emitXml StartStopContinueStop = XLit "stop"+ emitXml StartStopContinueContinue = XLit "continue"+parseStartStopContinue :: String -> P.XParse StartStopContinue+parseStartStopContinue s+ | s == "start" = return $ StartStopContinueStart+ | s == "stop" = return $ StartStopContinueStop+ | s == "continue" = return $ StartStopContinueContinue+ | otherwise = P.xfail $ "StartStopContinue: " ++ s++-- | @start-stop-discontinue@ /(simple)/+--+-- The start-stop-discontinue type is used to specify ending types. Typically, the start type is associated with the left barline of the first measure in an ending. The stop and discontinue types are associated with the right barline of the last measure in an ending. Stop is used when the ending mark concludes with a downward jog, as is typical for first endings. Discontinue is used when there is no downward jog, as is typical for second endings that do not conclude a piece.+data StartStopDiscontinue = + StartStopDiscontinueStart -- ^ /start/+ | StartStopDiscontinueStop -- ^ /stop/+ | StartStopDiscontinueDiscontinue -- ^ /discontinue/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartStopDiscontinue where+ emitXml StartStopDiscontinueStart = XLit "start"+ emitXml StartStopDiscontinueStop = XLit "stop"+ emitXml StartStopDiscontinueDiscontinue = XLit "discontinue"+parseStartStopDiscontinue :: String -> P.XParse StartStopDiscontinue+parseStartStopDiscontinue s+ | s == "start" = return $ StartStopDiscontinueStart+ | s == "stop" = return $ StartStopDiscontinueStop+ | s == "discontinue" = return $ StartStopDiscontinueDiscontinue+ | otherwise = P.xfail $ "StartStopDiscontinue: " ++ s++-- | @start-stop-single@ /(simple)/+--+-- The start-stop-single type is used for an attribute of musical elements that can be used for either multi-note or single-note musical elements, as for tremolos.+data StartStopSingle = + StartStopSingleStart -- ^ /start/+ | StartStopSingleStop -- ^ /stop/+ | StartStopSingleSingle -- ^ /single/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartStopSingle where+ emitXml StartStopSingleStart = XLit "start"+ emitXml StartStopSingleStop = XLit "stop"+ emitXml StartStopSingleSingle = XLit "single"+parseStartStopSingle :: String -> P.XParse StartStopSingle+parseStartStopSingle s+ | s == "start" = return $ StartStopSingleStart+ | s == "stop" = return $ StartStopSingleStop+ | s == "single" = return $ StartStopSingleSingle+ | otherwise = P.xfail $ "StartStopSingle: " ++ s++-- | @stem-value@ /(simple)/+--+-- The stem type represents the notated stem direction.+data StemValue = + StemValueDown -- ^ /down/+ | StemValueUp -- ^ /up/+ | StemValueDouble -- ^ /double/+ | StemValueNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StemValue where+ emitXml StemValueDown = XLit "down"+ emitXml StemValueUp = XLit "up"+ emitXml StemValueDouble = XLit "double"+ emitXml StemValueNone = XLit "none"+parseStemValue :: String -> P.XParse StemValue+parseStemValue s+ | s == "down" = return $ StemValueDown+ | s == "up" = return $ StemValueUp+ | s == "double" = return $ StemValueDouble+ | s == "none" = return $ StemValueNone+ | otherwise = P.xfail $ "StemValue: " ++ s++-- | @step@ /(simple)/+--+-- The step type represents a step of the diatonic scale, represented using the English letters A through G.+data Step = + StepA -- ^ /A/+ | StepB -- ^ /B/+ | StepC -- ^ /C/+ | StepD -- ^ /D/+ | StepE -- ^ /E/+ | StepF -- ^ /F/+ | StepG -- ^ /G/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Step where+ emitXml StepA = XLit "A"+ emitXml StepB = XLit "B"+ emitXml StepC = XLit "C"+ emitXml StepD = XLit "D"+ emitXml StepE = XLit "E"+ emitXml StepF = XLit "F"+ emitXml StepG = XLit "G"+parseStep :: String -> P.XParse Step+parseStep s+ | s == "A" = return $ StepA+ | s == "B" = return $ StepB+ | s == "C" = return $ StepC+ | s == "D" = return $ StepD+ | s == "E" = return $ StepE+ | s == "F" = return $ StepF+ | s == "G" = return $ StepG+ | otherwise = P.xfail $ "Step: " ++ s++-- | @stick-location@ /(simple)/+--+-- The stick-location type represents pictograms for the location of sticks, beaters, or mallets on cymbals, gongs, drums, and other instruments.+data StickLocation = + StickLocationCenter -- ^ /center/+ | StickLocationRim -- ^ /rim/+ | StickLocationCymbalBell -- ^ /cymbal bell/+ | StickLocationCymbalEdge -- ^ /cymbal edge/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StickLocation where+ emitXml StickLocationCenter = XLit "center"+ emitXml StickLocationRim = XLit "rim"+ emitXml StickLocationCymbalBell = XLit "cymbal bell"+ emitXml StickLocationCymbalEdge = XLit "cymbal edge"+parseStickLocation :: String -> P.XParse StickLocation+parseStickLocation s+ | s == "center" = return $ StickLocationCenter+ | s == "rim" = return $ StickLocationRim+ | s == "cymbal bell" = return $ StickLocationCymbalBell+ | s == "cymbal edge" = return $ StickLocationCymbalEdge+ | otherwise = P.xfail $ "StickLocation: " ++ s++-- | @stick-material@ /(simple)/+--+-- The stick-material type represents the material being displayed in a stick pictogram.+data StickMaterial = + StickMaterialSoft -- ^ /soft/+ | StickMaterialMedium -- ^ /medium/+ | StickMaterialHard -- ^ /hard/+ | StickMaterialShaded -- ^ /shaded/+ | StickMaterialX -- ^ /x/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StickMaterial where+ emitXml StickMaterialSoft = XLit "soft"+ emitXml StickMaterialMedium = XLit "medium"+ emitXml StickMaterialHard = XLit "hard"+ emitXml StickMaterialShaded = XLit "shaded"+ emitXml StickMaterialX = XLit "x"+parseStickMaterial :: String -> P.XParse StickMaterial+parseStickMaterial s+ | s == "soft" = return $ StickMaterialSoft+ | s == "medium" = return $ StickMaterialMedium+ | s == "hard" = return $ StickMaterialHard+ | s == "shaded" = return $ StickMaterialShaded+ | s == "x" = return $ StickMaterialX+ | otherwise = P.xfail $ "StickMaterial: " ++ s++-- | @stick-type@ /(simple)/+--+-- The stick-type type represents the shape of pictograms where the material+-- in the stick, mallet, or beater is represented in the pictogram.+data StickType = + StickTypeBassDrum -- ^ /bass drum/+ | StickTypeDoubleBassDrum -- ^ /double bass drum/+ | StickTypeTimpani -- ^ /timpani/+ | StickTypeXylophone -- ^ /xylophone/+ | StickTypeYarn -- ^ /yarn/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StickType where+ emitXml StickTypeBassDrum = XLit "bass drum"+ emitXml StickTypeDoubleBassDrum = XLit "double bass drum"+ emitXml StickTypeTimpani = XLit "timpani"+ emitXml StickTypeXylophone = XLit "xylophone"+ emitXml StickTypeYarn = XLit "yarn"+parseStickType :: String -> P.XParse StickType+parseStickType s+ | s == "bass drum" = return $ StickTypeBassDrum+ | s == "double bass drum" = return $ StickTypeDoubleBassDrum+ | s == "timpani" = return $ StickTypeTimpani+ | s == "xylophone" = return $ StickTypeXylophone+ | s == "yarn" = return $ StickTypeYarn+ | otherwise = P.xfail $ "StickType: " ++ s++-- | @string-number@ /(simple)/+--+-- The string-number type indicates a string number. Strings are numbered from high to low, with 1 being the highest pitched string.+newtype StringNumber = StringNumber { stringNumber :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show StringNumber where show (StringNumber a) = show a+instance Read StringNumber where readsPrec i = map (A.first StringNumber) . readsPrec i+instance EmitXml StringNumber where+ emitXml = emitXml . stringNumber+parseStringNumber :: String -> P.XParse StringNumber+parseStringNumber = P.xread "StringNumber"++-- | @syllabic@ /(simple)/+--+-- Lyric hyphenation is indicated by the syllabic type. The single, begin, end, and middle values represent single-syllable words, word-beginning syllables, word-ending syllables, and mid-word syllables, respectively.+data Syllabic = + SyllabicSingle -- ^ /single/+ | SyllabicBegin -- ^ /begin/+ | SyllabicEnd -- ^ /end/+ | SyllabicMiddle -- ^ /middle/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Syllabic where+ emitXml SyllabicSingle = XLit "single"+ emitXml SyllabicBegin = XLit "begin"+ emitXml SyllabicEnd = XLit "end"+ emitXml SyllabicMiddle = XLit "middle"+parseSyllabic :: String -> P.XParse Syllabic+parseSyllabic s+ | s == "single" = return $ SyllabicSingle+ | s == "begin" = return $ SyllabicBegin+ | s == "end" = return $ SyllabicEnd+ | s == "middle" = return $ SyllabicMiddle+ | otherwise = P.xfail $ "Syllabic: " ++ s++-- | @symbol-size@ /(simple)/+--+-- The symbol-size type is used to indicate full vs. cue-sized vs. oversized symbols. The large value for oversized symbols was added in version 1.1.+data SymbolSize = + SymbolSizeFull -- ^ /full/+ | SymbolSizeCue -- ^ /cue/+ | SymbolSizeLarge -- ^ /large/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SymbolSize where+ emitXml SymbolSizeFull = XLit "full"+ emitXml SymbolSizeCue = XLit "cue"+ emitXml SymbolSizeLarge = XLit "large"+parseSymbolSize :: String -> P.XParse SymbolSize+parseSymbolSize s+ | s == "full" = return $ SymbolSizeFull+ | s == "cue" = return $ SymbolSizeCue+ | s == "large" = return $ SymbolSizeLarge+ | otherwise = P.xfail $ "SymbolSize: " ++ s++-- | @tenths@ /(simple)/+--+-- The tenths type is a number representing tenths of interline staff space (positive or negative). Both integer and decimal values are allowed, such as 5 for a half space and 2.5 for a quarter space. Interline space is measured from the middle of a staff line.+-- +-- Distances in a MusicXML file are measured in tenths of staff space. Tenths are then scaled to millimeters within the scaling element, used in the defaults element at the start of a score. Individual staves can apply a scaling factor to adjust staff size. When a MusicXML element or attribute refers to tenths, it means the global tenths defined by the scaling element, not the local tenths as adjusted by the staff-size element.+newtype Tenths = Tenths { tenths :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show Tenths where show (Tenths a) = show a+instance Read Tenths where readsPrec i = map (A.first Tenths) . readsPrec i+instance EmitXml Tenths where+ emitXml = emitXml . tenths+parseTenths :: String -> P.XParse Tenths+parseTenths = P.xread "Tenths"++-- | @text-direction@ /(simple)/+--+-- The text-direction type is used to adjust and override the Unicode bidirectional text algorithm, similar to the W3C Internationalization Tag Set recommendation. Values are ltr (left-to-right embed), rtl (right-to-left embed), lro (left-to-right bidi-override), and rlo (right-to-left bidi-override). The default value is ltr. This type is typically used by applications that store text in left-to-right visual order rather than logical order. Such applications can use the lro value to better communicate with other applications that more fully support bidirectional text.+data TextDirection = + TextDirectionLtr -- ^ /ltr/+ | TextDirectionRtl -- ^ /rtl/+ | TextDirectionLro -- ^ /lro/+ | TextDirectionRlo -- ^ /rlo/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TextDirection where+ emitXml TextDirectionLtr = XLit "ltr"+ emitXml TextDirectionRtl = XLit "rtl"+ emitXml TextDirectionLro = XLit "lro"+ emitXml TextDirectionRlo = XLit "rlo"+parseTextDirection :: String -> P.XParse TextDirection+parseTextDirection s+ | s == "ltr" = return $ TextDirectionLtr+ | s == "rtl" = return $ TextDirectionRtl+ | s == "lro" = return $ TextDirectionLro+ | s == "rlo" = return $ TextDirectionRlo+ | otherwise = P.xfail $ "TextDirection: " ++ s++-- | @time-only@ /(simple)/+--+-- The time-only type is used to indicate that a particular playback-related element only applies particular times through a repeated section. The value is a comma-separated list of positive integers arranged in ascending order, indicating which times through the repeated section that the element applies.+newtype TimeOnly = TimeOnly { timeOnly :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show TimeOnly where show (TimeOnly a) = show a+instance Read TimeOnly where readsPrec i = map (A.first TimeOnly) . readsPrec i+instance EmitXml TimeOnly where+ emitXml = emitXml . timeOnly+parseTimeOnly :: String -> P.XParse TimeOnly+parseTimeOnly = return . fromString++-- | @time-relation@ /(simple)/+--+-- The time-relation type indicates the symbol used to represent the interchangeable aspect of dual time signatures.+data TimeRelation = + TimeRelationParentheses -- ^ /parentheses/+ | TimeRelationBracket -- ^ /bracket/+ | TimeRelationEquals -- ^ /equals/+ | TimeRelationSlash -- ^ /slash/+ | TimeRelationSpace -- ^ /space/+ | TimeRelationHyphen -- ^ /hyphen/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TimeRelation where+ emitXml TimeRelationParentheses = XLit "parentheses"+ emitXml TimeRelationBracket = XLit "bracket"+ emitXml TimeRelationEquals = XLit "equals"+ emitXml TimeRelationSlash = XLit "slash"+ emitXml TimeRelationSpace = XLit "space"+ emitXml TimeRelationHyphen = XLit "hyphen"+parseTimeRelation :: String -> P.XParse TimeRelation+parseTimeRelation s+ | s == "parentheses" = return $ TimeRelationParentheses+ | s == "bracket" = return $ TimeRelationBracket+ | s == "equals" = return $ TimeRelationEquals+ | s == "slash" = return $ TimeRelationSlash+ | s == "space" = return $ TimeRelationSpace+ | s == "hyphen" = return $ TimeRelationHyphen+ | otherwise = P.xfail $ "TimeRelation: " ++ s++-- | @time-separator@ /(simple)/+--+-- The time-separator type indicates how to display the arrangement between the beats and beat-type values in a time signature. The default value is none. The horizontal, diagonal, and vertical values represent horizontal, diagonal lower-left to upper-right, and vertical lines respectively. For these values, the beats and beat-type values are arranged on either side of the separator line. The none value represents no separator with the beats and beat-type arranged vertically. The adjacent value represents no separator with the beats and beat-type arranged horizontally.+data TimeSeparator = + TimeSeparatorNone -- ^ /none/+ | TimeSeparatorHorizontal -- ^ /horizontal/+ | TimeSeparatorDiagonal -- ^ /diagonal/+ | TimeSeparatorVertical -- ^ /vertical/+ | TimeSeparatorAdjacent -- ^ /adjacent/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TimeSeparator where+ emitXml TimeSeparatorNone = XLit "none"+ emitXml TimeSeparatorHorizontal = XLit "horizontal"+ emitXml TimeSeparatorDiagonal = XLit "diagonal"+ emitXml TimeSeparatorVertical = XLit "vertical"+ emitXml TimeSeparatorAdjacent = XLit "adjacent"+parseTimeSeparator :: String -> P.XParse TimeSeparator+parseTimeSeparator s+ | s == "none" = return $ TimeSeparatorNone+ | s == "horizontal" = return $ TimeSeparatorHorizontal+ | s == "diagonal" = return $ TimeSeparatorDiagonal+ | s == "vertical" = return $ TimeSeparatorVertical+ | s == "adjacent" = return $ TimeSeparatorAdjacent+ | otherwise = P.xfail $ "TimeSeparator: " ++ s++-- | @time-symbol@ /(simple)/+--+-- The time-symbol type indicates how to display a time signature. The normal value is the usual fractional display, and is the implied symbol type if none is specified. Other options are the common and cut time symbols, as well as a single number with an implied denominator. The note symbol indicates that the beat-type should be represented with the corresponding downstem note rather than a number. The dotted-note symbol indicates that the beat-type should be represented with a dotted downstem note that corresponds to three times the beat-type value, and a numerator that is one third the beats value.+data TimeSymbol = + TimeSymbolCommon -- ^ /common/+ | TimeSymbolCut -- ^ /cut/+ | TimeSymbolSingleNumber -- ^ /single-number/+ | TimeSymbolNote -- ^ /note/+ | TimeSymbolDottedNote -- ^ /dotted-note/+ | TimeSymbolNormal -- ^ /normal/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TimeSymbol where+ emitXml TimeSymbolCommon = XLit "common"+ emitXml TimeSymbolCut = XLit "cut"+ emitXml TimeSymbolSingleNumber = XLit "single-number"+ emitXml TimeSymbolNote = XLit "note"+ emitXml TimeSymbolDottedNote = XLit "dotted-note"+ emitXml TimeSymbolNormal = XLit "normal"+parseTimeSymbol :: String -> P.XParse TimeSymbol+parseTimeSymbol s+ | s == "common" = return $ TimeSymbolCommon+ | s == "cut" = return $ TimeSymbolCut+ | s == "single-number" = return $ TimeSymbolSingleNumber+ | s == "note" = return $ TimeSymbolNote+ | s == "dotted-note" = return $ TimeSymbolDottedNote+ | s == "normal" = return $ TimeSymbolNormal+ | otherwise = P.xfail $ "TimeSymbol: " ++ s++-- | @tip-direction@ /(simple)/+--+-- The tip-direction type represents the direction in which the tip of a stick or beater points, using Unicode arrow terminology.+data TipDirection = + TipDirectionUp -- ^ /up/+ | TipDirectionDown -- ^ /down/+ | TipDirectionLeft -- ^ /left/+ | TipDirectionRight -- ^ /right/+ | TipDirectionNorthwest -- ^ /northwest/+ | TipDirectionNortheast -- ^ /northeast/+ | TipDirectionSoutheast -- ^ /southeast/+ | TipDirectionSouthwest -- ^ /southwest/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TipDirection where+ emitXml TipDirectionUp = XLit "up"+ emitXml TipDirectionDown = XLit "down"+ emitXml TipDirectionLeft = XLit "left"+ emitXml TipDirectionRight = XLit "right"+ emitXml TipDirectionNorthwest = XLit "northwest"+ emitXml TipDirectionNortheast = XLit "northeast"+ emitXml TipDirectionSoutheast = XLit "southeast"+ emitXml TipDirectionSouthwest = XLit "southwest"+parseTipDirection :: String -> P.XParse TipDirection+parseTipDirection s+ | s == "up" = return $ TipDirectionUp+ | s == "down" = return $ TipDirectionDown+ | s == "left" = return $ TipDirectionLeft+ | s == "right" = return $ TipDirectionRight+ | s == "northwest" = return $ TipDirectionNorthwest+ | s == "northeast" = return $ TipDirectionNortheast+ | s == "southeast" = return $ TipDirectionSoutheast+ | s == "southwest" = return $ TipDirectionSouthwest+ | otherwise = P.xfail $ "TipDirection: " ++ s++-- | @xs:token@ /(simple)/+newtype Token = Token { token :: NormalizedString }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show Token where show (Token a) = show a+instance Read Token where readsPrec i = map (A.first Token) . readsPrec i+instance EmitXml Token where+ emitXml = emitXml . token+parseToken :: String -> P.XParse Token+parseToken = return . fromString++-- | @top-bottom@ /(simple)/+--+-- The top-bottom type is used to indicate the top or bottom part of a vertical shape like non-arpeggiate.+data TopBottom = + TopBottomTop -- ^ /top/+ | TopBottomBottom -- ^ /bottom/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TopBottom where+ emitXml TopBottomTop = XLit "top"+ emitXml TopBottomBottom = XLit "bottom"+parseTopBottom :: String -> P.XParse TopBottom+parseTopBottom s+ | s == "top" = return $ TopBottomTop+ | s == "bottom" = return $ TopBottomBottom+ | otherwise = P.xfail $ "TopBottom: " ++ s++-- | @tremolo-marks@ /(simple)/+--+-- The number of tremolo marks is represented by a number from 0 to 8: the same as beam-level with 0 added.+newtype TremoloMarks = TremoloMarks { tremoloMarks :: Int }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show TremoloMarks where show (TremoloMarks a) = show a+instance Read TremoloMarks where readsPrec i = map (A.first TremoloMarks) . readsPrec i+instance EmitXml TremoloMarks where+ emitXml = emitXml . tremoloMarks+parseTremoloMarks :: String -> P.XParse TremoloMarks+parseTremoloMarks = P.xread "TremoloMarks"++-- | @trill-beats@ /(simple)/+--+-- The trill-beats type specifies the beats used in a trill-sound or bend-sound attribute group. It is a decimal value with a minimum value of 2.+newtype TrillBeats = TrillBeats { trillBeats :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show TrillBeats where show (TrillBeats a) = show a+instance Read TrillBeats where readsPrec i = map (A.first TrillBeats) . readsPrec i+instance EmitXml TrillBeats where+ emitXml = emitXml . trillBeats+parseTrillBeats :: String -> P.XParse TrillBeats+parseTrillBeats = P.xread "TrillBeats"++-- | @trill-step@ /(simple)/+--+-- The trill-step type describes the alternating note of trills and mordents for playback, relative to the current note.+data TrillStep = + TrillStepWhole -- ^ /whole/+ | TrillStepHalf -- ^ /half/+ | TrillStepUnison -- ^ /unison/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TrillStep where+ emitXml TrillStepWhole = XLit "whole"+ emitXml TrillStepHalf = XLit "half"+ emitXml TrillStepUnison = XLit "unison"+parseTrillStep :: String -> P.XParse TrillStep+parseTrillStep s+ | s == "whole" = return $ TrillStepWhole+ | s == "half" = return $ TrillStepHalf+ | s == "unison" = return $ TrillStepUnison+ | otherwise = P.xfail $ "TrillStep: " ++ s++-- | @two-note-turn@ /(simple)/+--+-- The two-note-turn type describes the ending notes of trills and mordents for playback, relative to the current note.+data TwoNoteTurn = + TwoNoteTurnWhole -- ^ /whole/+ | TwoNoteTurnHalf -- ^ /half/+ | TwoNoteTurnNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TwoNoteTurn where+ emitXml TwoNoteTurnWhole = XLit "whole"+ emitXml TwoNoteTurnHalf = XLit "half"+ emitXml TwoNoteTurnNone = XLit "none"+parseTwoNoteTurn :: String -> P.XParse TwoNoteTurn+parseTwoNoteTurn s+ | s == "whole" = return $ TwoNoteTurnWhole+ | s == "half" = return $ TwoNoteTurnHalf+ | s == "none" = return $ TwoNoteTurnNone+ | otherwise = P.xfail $ "TwoNoteTurn: " ++ s++-- | @xlink:type@ /(simple)/+data Type = + TypeSimple -- ^ /simple/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Type where+ emitXml TypeSimple = XLit "simple"+parseType :: String -> P.XParse Type+parseType s+ | s == "simple" = return $ TypeSimple+ | otherwise = P.xfail $ "Type: " ++ s++-- | @up-down@ /(simple)/+--+-- The up-down type is used for the direction of arrows and other pointed symbols like vertical accents, indicating which way the tip is pointing.+data UpDown = + UpDownUp -- ^ /up/+ | UpDownDown -- ^ /down/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml UpDown where+ emitXml UpDownUp = XLit "up"+ emitXml UpDownDown = XLit "down"+parseUpDown :: String -> P.XParse UpDown+parseUpDown s+ | s == "up" = return $ UpDownUp+ | s == "down" = return $ UpDownDown+ | otherwise = P.xfail $ "UpDown: " ++ s++-- | @up-down-stop-continue@ /(simple)/+--+-- The up-down-stop-continue type is used for octave-shift elements, indicating the direction of the shift from their true pitched values because of printing difficulty.+data UpDownStopContinue = + UpDownStopContinueUp -- ^ /up/+ | UpDownStopContinueDown -- ^ /down/+ | UpDownStopContinueStop -- ^ /stop/+ | UpDownStopContinueContinue -- ^ /continue/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml UpDownStopContinue where+ emitXml UpDownStopContinueUp = XLit "up"+ emitXml UpDownStopContinueDown = XLit "down"+ emitXml UpDownStopContinueStop = XLit "stop"+ emitXml UpDownStopContinueContinue = XLit "continue"+parseUpDownStopContinue :: String -> P.XParse UpDownStopContinue+parseUpDownStopContinue s+ | s == "up" = return $ UpDownStopContinueUp+ | s == "down" = return $ UpDownStopContinueDown+ | s == "stop" = return $ UpDownStopContinueStop+ | s == "continue" = return $ UpDownStopContinueContinue+ | otherwise = P.xfail $ "UpDownStopContinue: " ++ s++-- | @upright-inverted@ /(simple)/+--+-- The upright-inverted type describes the appearance of a fermata element. The value is upright if not specified.+data UprightInverted = + UprightInvertedUpright -- ^ /upright/+ | UprightInvertedInverted -- ^ /inverted/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml UprightInverted where+ emitXml UprightInvertedUpright = XLit "upright"+ emitXml UprightInvertedInverted = XLit "inverted"+parseUprightInverted :: String -> P.XParse UprightInverted+parseUprightInverted s+ | s == "upright" = return $ UprightInvertedUpright+ | s == "inverted" = return $ UprightInvertedInverted+ | otherwise = P.xfail $ "UprightInverted: " ++ s++-- | @valign@ /(simple)/+--+-- The valign type is used to indicate vertical alignment to the top, middle, bottom, or baseline of the text. Defaults are implementation-dependent.+data Valign = + ValignTop -- ^ /top/+ | ValignMiddle -- ^ /middle/+ | ValignBottom -- ^ /bottom/+ | ValignBaseline -- ^ /baseline/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Valign where+ emitXml ValignTop = XLit "top"+ emitXml ValignMiddle = XLit "middle"+ emitXml ValignBottom = XLit "bottom"+ emitXml ValignBaseline = XLit "baseline"+parseValign :: String -> P.XParse Valign+parseValign s+ | s == "top" = return $ ValignTop+ | s == "middle" = return $ ValignMiddle+ | s == "bottom" = return $ ValignBottom+ | s == "baseline" = return $ ValignBaseline+ | otherwise = P.xfail $ "Valign: " ++ s++-- | @valign-image@ /(simple)/+--+-- The valign-image type is used to indicate vertical alignment for images and graphics, so it does not include a baseline value. Defaults are implementation-dependent.+data ValignImage = + ValignImageTop -- ^ /top/+ | ValignImageMiddle -- ^ /middle/+ | ValignImageBottom -- ^ /bottom/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ValignImage where+ emitXml ValignImageTop = XLit "top"+ emitXml ValignImageMiddle = XLit "middle"+ emitXml ValignImageBottom = XLit "bottom"+parseValignImage :: String -> P.XParse ValignImage+parseValignImage s+ | s == "top" = return $ ValignImageTop+ | s == "middle" = return $ ValignImageMiddle+ | s == "bottom" = return $ ValignImageBottom+ | otherwise = P.xfail $ "ValignImage: " ++ s++-- | @wedge-type@ /(simple)/+--+-- The wedge type is crescendo for the start of a wedge that is closed at the left side, diminuendo for the start of a wedge that is closed on the right side, and stop for the end of a wedge. The continue type is used for formatting wedges over a system break, or for other situations where a single wedge is divided into multiple segments.+data WedgeType = + WedgeTypeCrescendo -- ^ /crescendo/+ | WedgeTypeDiminuendo -- ^ /diminuendo/+ | WedgeTypeStop -- ^ /stop/+ | WedgeTypeContinue -- ^ /continue/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml WedgeType where+ emitXml WedgeTypeCrescendo = XLit "crescendo"+ emitXml WedgeTypeDiminuendo = XLit "diminuendo"+ emitXml WedgeTypeStop = XLit "stop"+ emitXml WedgeTypeContinue = XLit "continue"+parseWedgeType :: String -> P.XParse WedgeType+parseWedgeType s+ | s == "crescendo" = return $ WedgeTypeCrescendo+ | s == "diminuendo" = return $ WedgeTypeDiminuendo+ | s == "stop" = return $ WedgeTypeStop+ | s == "continue" = return $ WedgeTypeContinue+ | otherwise = P.xfail $ "WedgeType: " ++ s++-- | @winged@ /(simple)/+--+-- The winged attribute indicates whether the repeat has winged extensions that appear above and below the barline. The straight and curved values represent single wings, while the double-straight and double-curved values represent double wings. The none value indicates no wings and is the default.+data Winged = + WingedNone -- ^ /none/+ | WingedStraight -- ^ /straight/+ | WingedCurved -- ^ /curved/+ | WingedDoubleStraight -- ^ /double-straight/+ | WingedDoubleCurved -- ^ /double-curved/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Winged where+ emitXml WingedNone = XLit "none"+ emitXml WingedStraight = XLit "straight"+ emitXml WingedCurved = XLit "curved"+ emitXml WingedDoubleStraight = XLit "double-straight"+ emitXml WingedDoubleCurved = XLit "double-curved"+parseWinged :: String -> P.XParse Winged+parseWinged s+ | s == "none" = return $ WingedNone+ | s == "straight" = return $ WingedStraight+ | s == "curved" = return $ WingedCurved+ | s == "double-straight" = return $ WingedDoubleStraight+ | s == "double-curved" = return $ WingedDoubleCurved+ | otherwise = P.xfail $ "Winged: " ++ s++-- | @wood@ /(simple)/+--+-- The wood type represents pictograms for wood percussion instruments. The maraca and maracas values distinguish the one- and two-maraca versions of the pictogram. The vibraslap and castanets values are in addition to Stone's list.+data Wood = + WoodBoardClapper -- ^ /board clapper/+ | WoodCabasa -- ^ /cabasa/+ | WoodCastanets -- ^ /castanets/+ | WoodClaves -- ^ /claves/+ | WoodGuiro -- ^ /guiro/+ | WoodLogDrum -- ^ /log drum/+ | WoodMaraca -- ^ /maraca/+ | WoodMaracas -- ^ /maracas/+ | WoodRatchet -- ^ /ratchet/+ | WoodSandpaperBlocks -- ^ /sandpaper blocks/+ | WoodSlitDrum -- ^ /slit drum/+ | WoodTempleBlock -- ^ /temple block/+ | WoodVibraslap -- ^ /vibraslap/+ | WoodWoodBlock -- ^ /wood block/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Wood where+ emitXml WoodBoardClapper = XLit "board clapper"+ emitXml WoodCabasa = XLit "cabasa"+ emitXml WoodCastanets = XLit "castanets"+ emitXml WoodClaves = XLit "claves"+ emitXml WoodGuiro = XLit "guiro"+ emitXml WoodLogDrum = XLit "log drum"+ emitXml WoodMaraca = XLit "maraca"+ emitXml WoodMaracas = XLit "maracas"+ emitXml WoodRatchet = XLit "ratchet"+ emitXml WoodSandpaperBlocks = XLit "sandpaper blocks"+ emitXml WoodSlitDrum = XLit "slit drum"+ emitXml WoodTempleBlock = XLit "temple block"+ emitXml WoodVibraslap = XLit "vibraslap"+ emitXml WoodWoodBlock = XLit "wood block"+parseWood :: String -> P.XParse Wood+parseWood s+ | s == "board clapper" = return $ WoodBoardClapper+ | s == "cabasa" = return $ WoodCabasa+ | s == "castanets" = return $ WoodCastanets+ | s == "claves" = return $ WoodClaves+ | s == "guiro" = return $ WoodGuiro+ | s == "log drum" = return $ WoodLogDrum+ | s == "maraca" = return $ WoodMaraca+ | s == "maracas" = return $ WoodMaracas+ | s == "ratchet" = return $ WoodRatchet+ | s == "sandpaper blocks" = return $ WoodSandpaperBlocks+ | s == "slit drum" = return $ WoodSlitDrum+ | s == "temple block" = return $ WoodTempleBlock+ | s == "vibraslap" = return $ WoodVibraslap+ | s == "wood block" = return $ WoodWoodBlock+ | otherwise = P.xfail $ "Wood: " ++ s++-- | @yes-no@ /(simple)/+--+-- The yes-no type is used for boolean-like attributes. We cannot use W3C XML Schema booleans due to their restrictions on expression of boolean values.+data YesNo = + YesNoYes -- ^ /yes/+ | YesNoNo -- ^ /no/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml YesNo where+ emitXml YesNoYes = XLit "yes"+ emitXml YesNoNo = XLit "no"+parseYesNo :: String -> P.XParse YesNo+parseYesNo s+ | s == "yes" = return $ YesNoYes+ | s == "no" = return $ YesNoNo+ | otherwise = P.xfail $ "YesNo: " ++ s++-- | @yes-no-number@ /(simple)/+--+-- The yes-no-number type is used for attributes that can be either boolean or numeric values.+data YesNoNumber = + YesNoNumberYesNo {+ yesNoNumber1 :: YesNo+ }+ | YesNoNumberDecimal {+ yesNoNumber2 :: Decimal+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml YesNoNumber where+ emitXml (YesNoNumberYesNo a) = emitXml a+ emitXml (YesNoNumberDecimal a) = emitXml a+parseYesNoNumber :: String -> P.XParse YesNoNumber+parseYesNoNumber s = + YesNoNumberYesNo+ <$> parseYesNo s+ <|> YesNoNumberDecimal+ <$> (P.xread "Decimal") s+++-- | @yyyy-mm-dd@ /(simple)/+--+-- Calendar dates are represented yyyy-mm-dd format, following ISO 8601. This is a W3C XML Schema date type, but without the optional timezone data.+newtype YyyyMmDd = YyyyMmDd { yyyyMmDd :: String }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show YyyyMmDd where show (YyyyMmDd a) = show a+instance Read YyyyMmDd where readsPrec i = map (A.first YyyyMmDd) . readsPrec i+instance EmitXml YyyyMmDd where+ emitXml = emitXml . yyyyMmDd+parseYyyyMmDd :: String -> P.XParse YyyyMmDd+parseYyyyMmDd = return . fromString++-- | @xml:lang@ /(union)/+data SumLang = + SumLang -- ^ //+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SumLang where+ emitXml SumLang = XLit ""+parseSumLang :: String -> P.XParse SumLang+parseSumLang s+ | s == "" = return $ SumLang+ | otherwise = P.xfail $ "SumLang: " ++ s++-- | @number-or-normal@ /(union)/+data SumNumberOrNormal = + NumberOrNormalNormal -- ^ /normal/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SumNumberOrNormal where+ emitXml NumberOrNormalNormal = XLit "normal"+parseSumNumberOrNormal :: String -> P.XParse SumNumberOrNormal+parseSumNumberOrNormal s+ | s == "normal" = return $ NumberOrNormalNormal+ | otherwise = P.xfail $ "SumNumberOrNormal: " ++ s++-- | @positive-integer-or-empty@ /(union)/+data SumPositiveIntegerOrEmpty = + SumPositiveIntegerOrEmpty -- ^ //+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SumPositiveIntegerOrEmpty where+ emitXml SumPositiveIntegerOrEmpty = XLit ""+parseSumPositiveIntegerOrEmpty :: String -> P.XParse SumPositiveIntegerOrEmpty+parseSumPositiveIntegerOrEmpty s+ | s == "" = return $ SumPositiveIntegerOrEmpty+ | otherwise = P.xfail $ "SumPositiveIntegerOrEmpty: " ++ s++-- | @accidental@ /(complex)/+--+-- The accidental type represents actual notated accidentals. Editorial and cautionary indications are indicated by attributes. Values for these attributes are "no" if not present. Specific graphic display such as parentheses, brackets, and size are controlled by the level-display attribute group.+data Accidental = + Accidental {+ accidentalAccidentalValue :: AccidentalValue -- ^ text content+ , accidentalCautionary :: (Maybe YesNo) -- ^ /cautionary/ attribute+ , accidentalEditorial :: (Maybe YesNo) -- ^ /editorial/ attribute+ , accidentalParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , accidentalBracket :: (Maybe YesNo) -- ^ /bracket/ attribute+ , accidentalSize :: (Maybe SymbolSize) -- ^ /size/ attribute+ , accidentalDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , accidentalDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , accidentalRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , accidentalRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , accidentalFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , accidentalFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , accidentalFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , accidentalFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , accidentalColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Accidental where+ emitXml (Accidental a b c d e f g h i j k l m n o) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "cautionary" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "editorial" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "bracket" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "size" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) o])+ []+parseAccidental :: P.XParse Accidental+parseAccidental = + Accidental+ <$> (P.xtext >>= parseAccidentalValue)+ <*> P.optional (P.xattr (P.name "cautionary") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "editorial") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "bracket") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "size") >>= parseSymbolSize)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Accidental'+mkAccidental :: AccidentalValue -> Accidental+mkAccidental a = Accidental a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @accidental-mark@ /(complex)/+--+-- An accidental-mark can be used as a separate notation or as part of an ornament. When used in an ornament, position and placement are relative to the ornament, not relative to the note.+data AccidentalMark = + AccidentalMark {+ accidentalMarkAccidentalValue :: AccidentalValue -- ^ text content+ , accidentalMarkDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , accidentalMarkDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , accidentalMarkRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , accidentalMarkRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , accidentalMarkFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , accidentalMarkFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , accidentalMarkFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , accidentalMarkFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , accidentalMarkColor :: (Maybe Color) -- ^ /color/ attribute+ , accidentalMarkPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml AccidentalMark where+ emitXml (AccidentalMark a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ []+parseAccidentalMark :: P.XParse AccidentalMark+parseAccidentalMark = + AccidentalMark+ <$> (P.xtext >>= parseAccidentalValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'AccidentalMark'+mkAccidentalMark :: AccidentalValue -> AccidentalMark+mkAccidentalMark a = AccidentalMark a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @accidental-text@ /(complex)/+--+-- The accidental-text type represents an element with an accidental value and text-formatting attributes.+data AccidentalText = + AccidentalText {+ accidentalTextAccidentalValue :: AccidentalValue -- ^ text content+ , accidentalTextLang :: (Maybe Lang) -- ^ /xml:lang/ attribute+ , accidentalTextSpace :: (Maybe Space) -- ^ /xml:space/ attribute+ , accidentalTextJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ , accidentalTextDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , accidentalTextDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , accidentalTextRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , accidentalTextRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , accidentalTextFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , accidentalTextFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , accidentalTextFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , accidentalTextFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , accidentalTextColor :: (Maybe Color) -- ^ /color/ attribute+ , accidentalTextHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , accidentalTextValign :: (Maybe Valign) -- ^ /valign/ attribute+ , accidentalTextUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , accidentalTextOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , accidentalTextLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , accidentalTextRotation :: (Maybe RotationDegrees) -- ^ /rotation/ attribute+ , accidentalTextLetterSpacing :: (Maybe NumberOrNormal) -- ^ /letter-spacing/ attribute+ , accidentalTextLineHeight :: (Maybe NumberOrNormal) -- ^ /line-height/ attribute+ , accidentalTextDir :: (Maybe TextDirection) -- ^ /dir/ attribute+ , accidentalTextEnclosure :: (Maybe EnclosureShape) -- ^ /enclosure/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml AccidentalText where+ emitXml (AccidentalText a b c d e f g h i j k l m n o p q r s t u v w) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "lang" (Just "xml")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "space" (Just "xml")).emitXml) c] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "rotation" Nothing).emitXml) s] +++ [maybe XEmpty (XAttr (QN "letter-spacing" Nothing).emitXml) t] +++ [maybe XEmpty (XAttr (QN "line-height" Nothing).emitXml) u] +++ [maybe XEmpty (XAttr (QN "dir" Nothing).emitXml) v] +++ [maybe XEmpty (XAttr (QN "enclosure" Nothing).emitXml) w])+ []+parseAccidentalText :: P.XParse AccidentalText+parseAccidentalText = + AccidentalText+ <$> (P.xtext >>= parseAccidentalValue)+ <*> P.optional (P.xattr (P.name "xml:lang") >>= parseLang)+ <*> P.optional (P.xattr (P.name "xml:space") >>= parseSpace)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "rotation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "letter-spacing") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "line-height") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "dir") >>= parseTextDirection)+ <*> P.optional (P.xattr (P.name "enclosure") >>= parseEnclosureShape)++-- | Smart constructor for 'AccidentalText'+mkAccidentalText :: AccidentalValue -> AccidentalText+mkAccidentalText a = AccidentalText a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @accord@ /(complex)/+--+-- The accord type represents the tuning of a single string in the scordatura element. It uses the same group of elements as the staff-tuning element. Strings are numbered from high to low.+data Accord = + Accord {+ accordString :: (Maybe StringNumber) -- ^ /string/ attribute+ , accordTuning :: Tuning+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Accord where+ emitXml (Accord a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "string" Nothing).emitXml) a])+ ([emitXml b])+parseAccord :: P.XParse Accord+parseAccord = + Accord+ <$> P.optional (P.xattr (P.name "string") >>= parseStringNumber)+ <*> parseTuning++-- | Smart constructor for 'Accord'+mkAccord :: Tuning -> Accord+mkAccord b = Accord Nothing b++-- | @accordion-registration@ /(complex)/+--+-- The accordion-registration type is use for accordion registration symbols. These are circular symbols divided horizontally into high, middle, and low sections that correspond to 4', 8', and 16' pipes. Each accordion-high, accordion-middle, and accordion-low element represents the presence of one or more dots in the registration diagram. An accordion-registration element needs to have at least one of the child elements present.+data AccordionRegistration = + AccordionRegistration {+ accordionRegistrationDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , accordionRegistrationDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , accordionRegistrationRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , accordionRegistrationRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , accordionRegistrationFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , accordionRegistrationFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , accordionRegistrationFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , accordionRegistrationFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , accordionRegistrationColor :: (Maybe Color) -- ^ /color/ attribute+ , accordionRegistrationHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , accordionRegistrationValign :: (Maybe Valign) -- ^ /valign/ attribute+ , accordionRegistrationAccordionHigh :: (Maybe Empty) -- ^ /accordion-high/ child element+ , accordionRegistrationAccordionMiddle :: (Maybe AccordionMiddle) -- ^ /accordion-middle/ child element+ , accordionRegistrationAccordionLow :: (Maybe Empty) -- ^ /accordion-low/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml AccordionRegistration where+ emitXml (AccordionRegistration a b c d e f g h i j k l m n) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) k])+ ([maybe XEmpty (XElement (QN "accordion-high" Nothing).emitXml) l] +++ [maybe XEmpty (XElement (QN "accordion-middle" Nothing).emitXml) m] +++ [maybe XEmpty (XElement (QN "accordion-low" Nothing).emitXml) n])+parseAccordionRegistration :: P.XParse AccordionRegistration+parseAccordionRegistration = + AccordionRegistration+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xchild (P.name "accordion-high") (parseEmpty))+ <*> P.optional (P.xchild (P.name "accordion-middle") (P.xtext >>= parseAccordionMiddle))+ <*> P.optional (P.xchild (P.name "accordion-low") (parseEmpty))++-- | Smart constructor for 'AccordionRegistration'+mkAccordionRegistration :: AccordionRegistration+mkAccordionRegistration = AccordionRegistration Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @appearance@ /(complex)/+--+-- The appearance type controls general graphical settings for the music's final form appearance on a printed page of display. This includes support for line widths, definitions for note sizes, and standard distances between notation elements, plus an extension element for other aspects of appearance.+data Appearance = + Appearance {+ appearanceLineWidth :: [LineWidth] -- ^ /line-width/ child element+ , appearanceNoteSize :: [NoteSize] -- ^ /note-size/ child element+ , appearanceDistance :: [Distance] -- ^ /distance/ child element+ , appearanceOtherAppearance :: [OtherAppearance] -- ^ /other-appearance/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Appearance where+ emitXml (Appearance a b c d) =+ XContent XEmpty+ []+ (map (XElement (QN "line-width" Nothing).emitXml) a +++ map (XElement (QN "note-size" Nothing).emitXml) b +++ map (XElement (QN "distance" Nothing).emitXml) c +++ map (XElement (QN "other-appearance" Nothing).emitXml) d)+parseAppearance :: P.XParse Appearance+parseAppearance = + Appearance+ <$> P.many (P.xchild (P.name "line-width") (parseLineWidth))+ <*> P.many (P.xchild (P.name "note-size") (parseNoteSize))+ <*> P.many (P.xchild (P.name "distance") (parseDistance))+ <*> P.many (P.xchild (P.name "other-appearance") (parseOtherAppearance))++-- | Smart constructor for 'Appearance'+mkAppearance :: Appearance+mkAppearance = Appearance [] [] [] []++-- | @arpeggiate@ /(complex)/+--+-- The arpeggiate type indicates that this note is part of an arpeggiated chord. The number attribute can be used to distinguish between two simultaneous chords arpeggiated separately (different numbers) or together (same number). The up-down attribute is used if there is an arrow on the arpeggio sign. By default, arpeggios go from the lowest to highest note.+data Arpeggiate = + Arpeggiate {+ arpeggiateNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , arpeggiateDirection :: (Maybe UpDown) -- ^ /direction/ attribute+ , arpeggiateDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , arpeggiateDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , arpeggiateRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , arpeggiateRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , arpeggiatePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , arpeggiateColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Arpeggiate where+ emitXml (Arpeggiate a b c d e f g h) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "direction" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h])+ []+parseArpeggiate :: P.XParse Arpeggiate+parseArpeggiate = + Arpeggiate+ <$> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "direction") >>= parseUpDown)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Arpeggiate'+mkArpeggiate :: Arpeggiate+mkArpeggiate = Arpeggiate Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @arrow@ /(complex)/+--+-- The arrow element represents an arrow used for a musical technical indication..+data Arrow = + Arrow {+ arrowDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , arrowDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , arrowRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , arrowRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , arrowFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , arrowFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , arrowFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , arrowFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , arrowColor :: (Maybe Color) -- ^ /color/ attribute+ , arrowPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , arrowArrow :: ChxArrow+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Arrow where+ emitXml (Arrow a b c d e f g h i j k) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j])+ ([emitXml k])+parseArrow :: P.XParse Arrow+parseArrow = + Arrow+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> parseChxArrow++-- | Smart constructor for 'Arrow'+mkArrow :: ChxArrow -> Arrow+mkArrow k = Arrow Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing k++-- | @articulations@ /(complex)/+--+-- Articulations and accents are grouped together here.+data Articulations = + Articulations {+ articulationsArticulations :: [ChxArticulations]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Articulations where+ emitXml (Articulations a) =+ XReps [emitXml a]+parseArticulations :: P.XParse Articulations+parseArticulations = + Articulations+ <$> P.many (parseChxArticulations)++-- | Smart constructor for 'Articulations'+mkArticulations :: Articulations+mkArticulations = Articulations []++-- | @attributes@ /(complex)/+--+-- The attributes element contains musical information that typically changes on measure boundaries. This includes key and time signatures, clefs, transpositions, and staving. When attributes are changed mid-measure, it affects the music in score order, not in MusicXML document order.+data Attributes = + Attributes {+ attributesEditorial :: Editorial+ , attributesDivisions :: (Maybe PositiveDivisions) -- ^ /divisions/ child element+ , attributesKey :: [Key] -- ^ /key/ child element+ , attributesTime :: [Time] -- ^ /time/ child element+ , attributesStaves :: (Maybe NonNegativeInteger) -- ^ /staves/ child element+ , attributesPartSymbol :: (Maybe PartSymbol) -- ^ /part-symbol/ child element+ , attributesInstruments :: (Maybe NonNegativeInteger) -- ^ /instruments/ child element+ , attributesClef :: [Clef] -- ^ /clef/ child element+ , attributesStaffDetails :: [StaffDetails] -- ^ /staff-details/ child element+ , attributesTranspose :: [Transpose] -- ^ /transpose/ child element+ , attributesDirective :: [Directive] -- ^ /directive/ child element+ , attributesMeasureStyle :: [MeasureStyle] -- ^ /measure-style/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Attributes where+ emitXml (Attributes a b c d e f g h i j k l) =+ XContent XEmpty+ []+ ([emitXml a] +++ [maybe XEmpty (XElement (QN "divisions" Nothing).emitXml) b] +++ map (XElement (QN "key" Nothing).emitXml) c +++ map (XElement (QN "time" Nothing).emitXml) d +++ [maybe XEmpty (XElement (QN "staves" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "part-symbol" Nothing).emitXml) f] +++ [maybe XEmpty (XElement (QN "instruments" Nothing).emitXml) g] +++ map (XElement (QN "clef" Nothing).emitXml) h +++ map (XElement (QN "staff-details" Nothing).emitXml) i +++ map (XElement (QN "transpose" Nothing).emitXml) j +++ map (XElement (QN "directive" Nothing).emitXml) k +++ map (XElement (QN "measure-style" Nothing).emitXml) l)+parseAttributes :: P.XParse Attributes+parseAttributes = + Attributes+ <$> parseEditorial+ <*> P.optional (P.xchild (P.name "divisions") (P.xtext >>= parsePositiveDivisions))+ <*> P.many (P.xchild (P.name "key") (parseKey))+ <*> P.many (P.xchild (P.name "time") (parseTime))+ <*> P.optional (P.xchild (P.name "staves") (P.xtext >>= parseNonNegativeInteger))+ <*> P.optional (P.xchild (P.name "part-symbol") (parsePartSymbol))+ <*> P.optional (P.xchild (P.name "instruments") (P.xtext >>= parseNonNegativeInteger))+ <*> P.many (P.xchild (P.name "clef") (parseClef))+ <*> P.many (P.xchild (P.name "staff-details") (parseStaffDetails))+ <*> P.many (P.xchild (P.name "transpose") (parseTranspose))+ <*> P.many (P.xchild (P.name "directive") (parseDirective))+ <*> P.many (P.xchild (P.name "measure-style") (parseMeasureStyle))++-- | Smart constructor for 'Attributes'+mkAttributes :: Editorial -> Attributes+mkAttributes a = Attributes a Nothing [] [] Nothing Nothing Nothing [] [] [] [] []++-- | @backup@ /(complex)/+--+-- The backup and forward elements are required to coordinate multiple voices in one part, including music on multiple staves. The backup type is generally used to move between voices and staves. Thus the backup element does not include voice or staff elements. Duration values should always be positive, and should not cross measure boundaries or mid-measure changes in the divisions value.+data Backup = + Backup {+ backupDuration :: Duration+ , backupEditorial :: Editorial+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Backup where+ emitXml (Backup a b) =+ XReps [emitXml a,emitXml b]+parseBackup :: P.XParse Backup+parseBackup = + Backup+ <$> parseDuration+ <*> parseEditorial++-- | Smart constructor for 'Backup'+mkBackup :: Duration -> Editorial -> Backup+mkBackup a b = Backup a b++-- | @bar-style-color@ /(complex)/+--+-- The bar-style-color type contains barline style and color information.+data BarStyleColor = + BarStyleColor {+ barStyleColorBarStyle :: BarStyle -- ^ text content+ , barStyleColorColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BarStyleColor where+ emitXml (BarStyleColor a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "color" Nothing).emitXml) b])+ []+parseBarStyleColor :: P.XParse BarStyleColor+parseBarStyleColor = + BarStyleColor+ <$> (P.xtext >>= parseBarStyle)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'BarStyleColor'+mkBarStyleColor :: BarStyle -> BarStyleColor+mkBarStyleColor a = BarStyleColor a Nothing++-- | @barline@ /(complex)/+--+-- If a barline is other than a normal single barline, it should be represented by a barline type that describes it. This includes information about repeats and multiple endings, as well as line style. Barline data is on the same level as the other musical data in a score - a child of a measure in a partwise score, or a part in a timewise score. This allows for barlines within measures, as in dotted barlines that subdivide measures in complex meters. The two fermata elements allow for fermatas on both sides of the barline (the lower one inverted).+-- +-- Barlines have a location attribute to make it easier to process barlines independently of the other musical data in a score. It is often easier to set up measures separately from entering notes. The location attribute must match where the barline element occurs within the rest of the musical data in the score. If location is left, it should be the first element in the measure, aside from the print, bookmark, and link elements. If location is right, it should be the last element, again with the possible exception of the print, bookmark, and link elements. If no location is specified, the right barline is the default. The segno, coda, and divisions attributes work the same way as in the sound element. They are used for playback when barline elements contain segno or coda child elements.+data Barline = + Barline {+ barlineLocation :: (Maybe RightLeftMiddle) -- ^ /location/ attribute+ , barlineSegno :: (Maybe Token) -- ^ /segno/ attribute+ , barlineCoda :: (Maybe Token) -- ^ /coda/ attribute+ , barlineDivisions :: (Maybe Divisions) -- ^ /divisions/ attribute+ , barlineBarStyle :: (Maybe BarStyleColor) -- ^ /bar-style/ child element+ , barlineEditorial :: Editorial+ , barlineWavyLine :: (Maybe WavyLine) -- ^ /wavy-line/ child element+ , barlineSegno1 :: (Maybe EmptyPrintStyleAlign) -- ^ /segno/ child element+ , barlineCoda1 :: (Maybe EmptyPrintStyleAlign) -- ^ /coda/ child element+ , barlineFermata :: [Fermata] -- ^ /fermata/ child element+ , barlineEnding :: (Maybe Ending) -- ^ /ending/ child element+ , barlineRepeat :: (Maybe Repeat) -- ^ /repeat/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Barline where+ emitXml (Barline a b c d e f g h i j k l) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "segno" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "coda" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "divisions" Nothing).emitXml) d])+ ([maybe XEmpty (XElement (QN "bar-style" Nothing).emitXml) e] +++ [emitXml f] +++ [maybe XEmpty (XElement (QN "wavy-line" Nothing).emitXml) g] +++ [maybe XEmpty (XElement (QN "segno" Nothing).emitXml) h] +++ [maybe XEmpty (XElement (QN "coda" Nothing).emitXml) i] +++ map (XElement (QN "fermata" Nothing).emitXml) j +++ [maybe XEmpty (XElement (QN "ending" Nothing).emitXml) k] +++ [maybe XEmpty (XElement (QN "repeat" Nothing).emitXml) l])+parseBarline :: P.XParse Barline+parseBarline = + Barline+ <$> P.optional (P.xattr (P.name "location") >>= parseRightLeftMiddle)+ <*> P.optional (P.xattr (P.name "segno") >>= parseToken)+ <*> P.optional (P.xattr (P.name "coda") >>= parseToken)+ <*> P.optional (P.xattr (P.name "divisions") >>= parseDivisions)+ <*> P.optional (P.xchild (P.name "bar-style") (parseBarStyleColor))+ <*> parseEditorial+ <*> P.optional (P.xchild (P.name "wavy-line") (parseWavyLine))+ <*> P.optional (P.xchild (P.name "segno") (parseEmptyPrintStyleAlign))+ <*> P.optional (P.xchild (P.name "coda") (parseEmptyPrintStyleAlign))+ <*> P.many (P.xchild (P.name "fermata") (parseFermata))+ <*> P.optional (P.xchild (P.name "ending") (parseEnding))+ <*> P.optional (P.xchild (P.name "repeat") (parseRepeat))++-- | Smart constructor for 'Barline'+mkBarline :: Editorial -> Barline+mkBarline f = Barline Nothing Nothing Nothing Nothing Nothing f Nothing Nothing Nothing [] Nothing Nothing++-- | @barre@ /(complex)/+--+-- The barre element indicates placing a finger over multiple strings on a single fret. The type is "start" for the lowest pitched string (e.g., the string with the highest MusicXML number) and is "stop" for the highest pitched string.+data Barre = + Barre {+ barreType :: StartStop -- ^ /type/ attribute+ , barreColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Barre where+ emitXml (Barre a b) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) b])+ []+parseBarre :: P.XParse Barre+parseBarre = + Barre+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Barre'+mkBarre :: StartStop -> Barre+mkBarre a = Barre a Nothing++-- | @bass@ /(complex)/+--+-- The bass type is used to indicate a bass note in popular music chord symbols, e.g. G/C. It is generally not used in functional harmony, as inversion is generally not used in pop chord symbols. As with root, it is divided into step and alter elements, similar to pitches.+data Bass = + Bass {+ bassBassStep :: BassStep -- ^ /bass-step/ child element+ , bassBassAlter :: (Maybe BassAlter) -- ^ /bass-alter/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Bass where+ emitXml (Bass a b) =+ XContent XEmpty+ []+ ([XElement (QN "bass-step" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "bass-alter" Nothing).emitXml) b])+parseBass :: P.XParse Bass+parseBass = + Bass+ <$> (P.xchild (P.name "bass-step") (parseBassStep))+ <*> P.optional (P.xchild (P.name "bass-alter") (parseBassAlter))++-- | Smart constructor for 'Bass'+mkBass :: BassStep -> Bass+mkBass a = Bass a Nothing++-- | @bass-alter@ /(complex)/+--+-- The bass-alter type represents the chromatic alteration of the bass of the current chord within the harmony element. In some chord styles, the text for the bass-step element may include bass-alter information. In that case, the print-object attribute of the bass-alter element can be set to no. The location attribute indicates whether the alteration should appear to the left or the right of the bass-step; it is right by default.+data BassAlter = + BassAlter {+ bassAlterSemitones :: Semitones -- ^ text content+ , bassAlterLocation :: (Maybe LeftRight) -- ^ /location/ attribute+ , bassAlterPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , bassAlterDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , bassAlterDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , bassAlterRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , bassAlterRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , bassAlterFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , bassAlterFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , bassAlterFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , bassAlterFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , bassAlterColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BassAlter where+ emitXml (BassAlter a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l])+ []+parseBassAlter :: P.XParse BassAlter+parseBassAlter = + BassAlter+ <$> (P.xtext >>= parseSemitones)+ <*> P.optional (P.xattr (P.name "location") >>= parseLeftRight)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'BassAlter'+mkBassAlter :: Semitones -> BassAlter+mkBassAlter a = BassAlter a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @bass-step@ /(complex)/+--+-- The bass-step type represents the pitch step of the bass of the current chord within the harmony element. The text attribute indicates how the bass should appear in a score if not using the element contents.+data BassStep = + BassStep {+ bassStepStep :: Step -- ^ text content+ , bassStepText :: (Maybe Token) -- ^ /text/ attribute+ , bassStepDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , bassStepDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , bassStepRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , bassStepRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , bassStepFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , bassStepFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , bassStepFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , bassStepFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , bassStepColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BassStep where+ emitXml (BassStep a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "text" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseBassStep :: P.XParse BassStep+parseBassStep = + BassStep+ <$> (P.xtext >>= parseStep)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'BassStep'+mkBassStep :: Step -> BassStep+mkBassStep a = BassStep a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @beam@ /(complex)/+--+-- Beam values include begin, continue, end, forward hook, and backward hook. Up to eight concurrent beams are available to cover up to 1024th notes. Each beam in a note is represented with a separate beam element, starting with the eighth note beam using a number attribute of 1.+-- +-- Note that the beam number does not distinguish sets of beams that overlap, as it does for slur and other elements. Beaming groups are distinguished by being in different voices and/or the presence or absence of grace and cue elements.+-- +-- Beams that have a begin value can also have a fan attribute to indicate accelerandos and ritardandos using fanned beams. The fan attribute may also be used with a continue value if the fanning direction changes on that note. The value is "none" if not specified.+-- +-- The repeater attribute has been deprecated in MusicXML 3.0. Formerly used for tremolos, it needs to be specified with a "yes" value for each beam using it.+data Beam = + Beam {+ beamBeamValue :: BeamValue -- ^ text content+ , beamNumber :: (Maybe BeamLevel) -- ^ /number/ attribute+ , beamRepeater :: (Maybe YesNo) -- ^ /repeater/ attribute+ , beamFan :: (Maybe Fan) -- ^ /fan/ attribute+ , beamColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Beam where+ emitXml (Beam a b c d e) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "repeater" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "fan" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) e])+ []+parseBeam :: P.XParse Beam+parseBeam = + Beam+ <$> (P.xtext >>= parseBeamValue)+ <*> P.optional (P.xattr (P.name "number") >>= parseBeamLevel)+ <*> P.optional (P.xattr (P.name "repeater") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "fan") >>= parseFan)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Beam'+mkBeam :: BeamValue -> Beam+mkBeam a = Beam a Nothing Nothing Nothing Nothing++-- | @beat-repeat@ /(complex)/+--+-- The beat-repeat type is used to indicate that a single beat (but possibly many notes) is repeated. Both the start and stop of the beat being repeated should be specified. The slashes attribute specifies the number of slashes to use in the symbol. The use-dots attribute indicates whether or not to use dots as well (for instance, with mixed rhythm patterns). By default, the value for slashes is 1 and the value for use-dots is no.+-- +-- The beat-repeat element specifies a notation style for repetitions. The actual music being repeated needs to be repeated within the MusicXML file. This element specifies the notation that indicates the repeat.+data BeatRepeat = + BeatRepeat {+ beatRepeatType :: StartStop -- ^ /type/ attribute+ , beatRepeatSlashes :: (Maybe PositiveInteger) -- ^ /slashes/ attribute+ , beatRepeatUseDots :: (Maybe YesNo) -- ^ /use-dots/ attribute+ , beatRepeatSlash :: (Maybe Slash)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BeatRepeat where+ emitXml (BeatRepeat a b c d) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "slashes" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "use-dots" Nothing).emitXml) c])+ ([emitXml d])+parseBeatRepeat :: P.XParse BeatRepeat+parseBeatRepeat = + BeatRepeat+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "slashes") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "use-dots") >>= parseYesNo)+ <*> P.optional (parseSlash)++-- | Smart constructor for 'BeatRepeat'+mkBeatRepeat :: StartStop -> BeatRepeat+mkBeatRepeat a = BeatRepeat a Nothing Nothing Nothing++-- | @beater@ /(complex)/+--+-- The beater type represents pictograms for beaters, mallets, and sticks that do not have different materials represented in the pictogram.+data Beater = + Beater {+ beaterBeaterValue :: BeaterValue -- ^ text content+ , beaterTip :: (Maybe TipDirection) -- ^ /tip/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Beater where+ emitXml (Beater a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "tip" Nothing).emitXml) b])+ []+parseBeater :: P.XParse Beater+parseBeater = + Beater+ <$> (P.xtext >>= parseBeaterValue)+ <*> P.optional (P.xattr (P.name "tip") >>= parseTipDirection)++-- | Smart constructor for 'Beater'+mkBeater :: BeaterValue -> Beater+mkBeater a = Beater a Nothing++-- | @bend@ /(complex)/+--+-- The bend type is used in guitar and tablature. The bend-alter element indicates the number of steps in the bend, similar to the alter element. As with the alter element, numbers like 0.5 can be used to indicate microtones. Negative numbers indicate pre-bends or releases; the pre-bend and release elements are used to distinguish what is intended. A with-bar element indicates that the bend is to be done at the bridge with a whammy or vibrato bar. The content of the element indicates how this should be notated.+data Bend = + Bend {+ bendDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , bendDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , bendRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , bendRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , bendFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , bendFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , bendFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , bendFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , bendColor :: (Maybe Color) -- ^ /color/ attribute+ , bendAccelerate :: (Maybe YesNo) -- ^ /accelerate/ attribute+ , bendBeats :: (Maybe TrillBeats) -- ^ /beats/ attribute+ , bendFirstBeat :: (Maybe Percent) -- ^ /first-beat/ attribute+ , bendLastBeat :: (Maybe Percent) -- ^ /last-beat/ attribute+ , bendBendAlter :: Semitones -- ^ /bend-alter/ child element+ , bendBend :: (Maybe ChxBend)+ , bendWithBar :: (Maybe PlacementText) -- ^ /with-bar/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Bend where+ emitXml (Bend a b c d e f g h i j k l m n o p) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "accelerate" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "beats" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "first-beat" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "last-beat" Nothing).emitXml) m])+ ([XElement (QN "bend-alter" Nothing) (emitXml n)] +++ [emitXml o] +++ [maybe XEmpty (XElement (QN "with-bar" Nothing).emitXml) p])+parseBend :: P.XParse Bend+parseBend = + Bend+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "accelerate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "beats") >>= parseTrillBeats)+ <*> P.optional (P.xattr (P.name "first-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "last-beat") >>= parsePercent)+ <*> (P.xchild (P.name "bend-alter") (P.xtext >>= parseSemitones))+ <*> P.optional (parseChxBend)+ <*> P.optional (P.xchild (P.name "with-bar") (parsePlacementText))++-- | Smart constructor for 'Bend'+mkBend :: Semitones -> Bend+mkBend n = Bend Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing n Nothing Nothing++-- | @bookmark@ /(complex)/+--+-- The bookmark type serves as a well-defined target for an incoming simple XLink.+data Bookmark = + Bookmark {+ bookmarkId :: ID -- ^ /id/ attribute+ , bookmarkName :: (Maybe Token) -- ^ /name/ attribute+ , bookmarkElement :: (Maybe NMTOKEN) -- ^ /element/ attribute+ , bookmarkPosition :: (Maybe PositiveInteger) -- ^ /position/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Bookmark where+ emitXml (Bookmark a b c d) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "name" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "element" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "position" Nothing).emitXml) d])+ []+parseBookmark :: P.XParse Bookmark+parseBookmark = + Bookmark+ <$> (P.xattr (P.name "id") >>= parseID)+ <*> P.optional (P.xattr (P.name "name") >>= parseToken)+ <*> P.optional (P.xattr (P.name "element") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "position") >>= parsePositiveInteger)++-- | Smart constructor for 'Bookmark'+mkBookmark :: ID -> Bookmark+mkBookmark a = Bookmark a Nothing Nothing Nothing++-- | @bracket@ /(complex)/+--+-- Brackets are combined with words in a variety of modern directions. The line-end attribute specifies if there is a jog up or down (or both), an arrow, or nothing at the start or end of the bracket. If the line-end is up or down, the length of the jog can be specified using the end-length attribute. The line-type is solid by default.+data Bracket = + Bracket {+ bracketType :: StartStopContinue -- ^ /type/ attribute+ , bracketNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , bracketLineEnd :: LineEnd -- ^ /line-end/ attribute+ , bracketEndLength :: (Maybe Tenths) -- ^ /end-length/ attribute+ , bracketLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , bracketDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , bracketSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , bracketDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , bracketDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , bracketRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , bracketRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , bracketColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Bracket where+ emitXml (Bracket a b c d e f g h i j k l) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [XAttr (QN "line-end" Nothing) (emitXml c)] +++ [maybe XEmpty (XAttr (QN "end-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l])+ []+parseBracket :: P.XParse Bracket+parseBracket = + Bracket+ <$> (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> (P.xattr (P.name "line-end") >>= parseLineEnd)+ <*> P.optional (P.xattr (P.name "end-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Bracket'+mkBracket :: StartStopContinue -> LineEnd -> Bracket+mkBracket a c = Bracket a Nothing c Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @breath-mark@ /(complex)/+--+-- The breath-mark element indicates a place to take a breath.+data BreathMark = + BreathMark {+ breathMarkBreathMarkValue :: BreathMarkValue -- ^ text content+ , breathMarkDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , breathMarkDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , breathMarkRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , breathMarkRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , breathMarkFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , breathMarkFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , breathMarkFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , breathMarkFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , breathMarkColor :: (Maybe Color) -- ^ /color/ attribute+ , breathMarkPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BreathMark where+ emitXml (BreathMark a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ []+parseBreathMark :: P.XParse BreathMark+parseBreathMark = + BreathMark+ <$> (P.xtext >>= parseBreathMarkValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'BreathMark'+mkBreathMark :: BreathMarkValue -> BreathMark+mkBreathMark a = BreathMark a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @cancel@ /(complex)/+--+-- A cancel element indicates that the old key signature should be cancelled before the new one appears. This will always happen when changing to C major or A minor and need not be specified then. The cancel value matches the fifths value of the cancelled key signature (e.g., a cancel of -2 will provide an explicit cancellation for changing from B flat major to F major). The optional location attribute indicates whether the cancellation appears relative to the new key signature.+data Cancel = + Cancel {+ cancelFifths :: Fifths -- ^ text content+ , cancelLocation :: (Maybe CancelLocation) -- ^ /location/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Cancel where+ emitXml (Cancel a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) b])+ []+parseCancel :: P.XParse Cancel+parseCancel = + Cancel+ <$> (P.xtext >>= parseFifths)+ <*> P.optional (P.xattr (P.name "location") >>= parseCancelLocation)++-- | Smart constructor for 'Cancel'+mkCancel :: Fifths -> Cancel+mkCancel a = Cancel a Nothing++-- | @clef@ /(complex)/+--+-- Clefs are represented by a combination of sign, line, and clef-octave-change elements. The optional number attribute refers to staff numbers within the part. A value of 1 is assumed if not present.+-- +-- Sometimes clefs are added to the staff in non-standard line positions, either to indicate cue passages, or when there are multiple clefs present simultaneously on one staff. In this situation, the additional attribute is set to "yes" and the line value is ignored. The size attribute is used for clefs where the additional attribute is "yes". It is typically used to indicate cue clefs.+-- +-- Sometimes clefs at the start of a measure need to appear after the barline rather than before, as for cues or for use after a repeated section. The after-barline attribute is set to "yes" in this situation. The attribute is ignored for mid-measure clefs.+-- +-- Clefs appear at the start of each system unless the print-object attribute has been set to "no" or the additional attribute has been set to "yes".+data Clef = + Clef {+ clefNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , clefAdditional :: (Maybe YesNo) -- ^ /additional/ attribute+ , clefSize :: (Maybe SymbolSize) -- ^ /size/ attribute+ , clefAfterBarline :: (Maybe YesNo) -- ^ /after-barline/ attribute+ , clefDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , clefDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , clefRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , clefRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , clefFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , clefFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , clefFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , clefFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , clefColor :: (Maybe Color) -- ^ /color/ attribute+ , clefPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , clefSign :: ClefSign -- ^ /sign/ child element+ , clefLine :: (Maybe StaffLine) -- ^ /line/ child element+ , clefClefOctaveChange :: (Maybe Int) -- ^ /clef-octave-change/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Clef where+ emitXml (Clef a b c d e f g h i j k l m n o p q) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "additional" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "size" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "after-barline" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) n])+ ([XElement (QN "sign" Nothing) (emitXml o)] +++ [maybe XEmpty (XElement (QN "line" Nothing).emitXml) p] +++ [maybe XEmpty (XElement (QN "clef-octave-change" Nothing).emitXml) q])+parseClef :: P.XParse Clef+parseClef = + Clef+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "additional") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "size") >>= parseSymbolSize)+ <*> P.optional (P.xattr (P.name "after-barline") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> (P.xchild (P.name "sign") (P.xtext >>= parseClefSign))+ <*> P.optional (P.xchild (P.name "line") (P.xtext >>= parseStaffLine))+ <*> P.optional (P.xchild (P.name "clef-octave-change") (P.xtext >>= (P.xread "Integer")))++-- | Smart constructor for 'Clef'+mkClef :: ClefSign -> Clef+mkClef o = Clef Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing o Nothing Nothing++-- | @credit@ /(complex)/+--+-- The credit type represents the appearance of the title, composer, arranger, lyricist, copyright, dedication, and other text and graphics that commonly appears on the first page of a score. The credit-words and credit-image elements are similar to the words and image elements for directions. However, since the credit is not part of a measure, the default-x and default-y attributes adjust the origin relative to the bottom left-hand corner of the first page. The enclosure for credit-words is none by default.+-- +-- By default, a series of credit-words elements within a single credit element follow one another in sequence visually. Non-positional formatting attributes are carried over from the previous element by default.+-- +-- The page attribute for the credit element, new in Version 2.0, specifies the page number where the credit should appear. This is an integer value that starts with 1 for the first page. Its value is 1 by default. Since credits occur before the music, these page numbers do not refer to the page numbering specified by the print element's page-number attribute.+-- +-- The credit-type element, new in Version 3.0, indicates the purpose behind a credit. Multiple types of data may be combined in a single credit, so multiple elements may be used. Standard values include page number, title, subtitle, composer, arranger, lyricist, and rights.+data Credit = + Credit {+ creditPage :: (Maybe PositiveInteger) -- ^ /page/ attribute+ , creditCreditType :: [String] -- ^ /credit-type/ child element+ , creditLink :: [Link] -- ^ /link/ child element+ , creditBookmark :: [Bookmark] -- ^ /bookmark/ child element+ , creditCredit :: ChxCredit+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Credit where+ emitXml (Credit a b c d e) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "page" Nothing).emitXml) a])+ (map (XElement (QN "credit-type" Nothing).emitXml) b +++ map (XElement (QN "link" Nothing).emitXml) c +++ map (XElement (QN "bookmark" Nothing).emitXml) d +++ [emitXml e])+parseCredit :: P.XParse Credit+parseCredit = + Credit+ <$> P.optional (P.xattr (P.name "page") >>= parsePositiveInteger)+ <*> P.many (P.xchild (P.name "credit-type") (P.xtext >>= return))+ <*> P.many (P.xchild (P.name "link") (parseLink))+ <*> P.many (P.xchild (P.name "bookmark") (parseBookmark))+ <*> parseChxCredit++-- | Smart constructor for 'Credit'+mkCredit :: ChxCredit -> Credit+mkCredit e = Credit Nothing [] [] [] e++-- | @dashes@ /(complex)/+--+-- The dashes type represents dashes, used for instance with cresc. and dim. marks.+data Dashes = + Dashes {+ dashesType :: StartStopContinue -- ^ /type/ attribute+ , dashesNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , dashesDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , dashesSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , dashesDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , dashesDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , dashesRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , dashesRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , dashesColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Dashes where+ emitXml (Dashes a b c d e f g h i) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i])+ []+parseDashes :: P.XParse Dashes+parseDashes = + Dashes+ <$> (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Dashes'+mkDashes :: StartStopContinue -> Dashes+mkDashes a = Dashes a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @defaults@ /(complex)/+--+-- The defaults type specifies score-wide defaults for scaling, layout, and appearance.+data Defaults = + Defaults {+ defaultsScaling :: (Maybe Scaling) -- ^ /scaling/ child element+ , defaultsLayout :: Layout+ , defaultsAppearance :: (Maybe Appearance) -- ^ /appearance/ child element+ , defaultsMusicFont :: (Maybe EmptyFont) -- ^ /music-font/ child element+ , defaultsWordFont :: (Maybe EmptyFont) -- ^ /word-font/ child element+ , defaultsLyricFont :: [LyricFont] -- ^ /lyric-font/ child element+ , defaultsLyricLanguage :: [LyricLanguage] -- ^ /lyric-language/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Defaults where+ emitXml (Defaults a b c d e f g) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "scaling" Nothing).emitXml) a] +++ [emitXml b] +++ [maybe XEmpty (XElement (QN "appearance" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "music-font" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "word-font" Nothing).emitXml) e] +++ map (XElement (QN "lyric-font" Nothing).emitXml) f +++ map (XElement (QN "lyric-language" Nothing).emitXml) g)+parseDefaults :: P.XParse Defaults+parseDefaults = + Defaults+ <$> P.optional (P.xchild (P.name "scaling") (parseScaling))+ <*> parseLayout+ <*> P.optional (P.xchild (P.name "appearance") (parseAppearance))+ <*> P.optional (P.xchild (P.name "music-font") (parseEmptyFont))+ <*> P.optional (P.xchild (P.name "word-font") (parseEmptyFont))+ <*> P.many (P.xchild (P.name "lyric-font") (parseLyricFont))+ <*> P.many (P.xchild (P.name "lyric-language") (parseLyricLanguage))++-- | Smart constructor for 'Defaults'+mkDefaults :: Layout -> Defaults+mkDefaults b = Defaults Nothing b Nothing Nothing Nothing [] []++-- | @degree@ /(complex)/+--+-- The degree type is used to add, alter, or subtract individual notes in the chord. The print-object attribute can be used to keep the degree from printing separately when it has already taken into account in the text attribute of the kind element. The degree-value and degree-type text attributes specify how the value and type of the degree should be displayed.+-- +-- A harmony of kind "other" can be spelled explicitly by using a series of degree elements together with a root.+data Degree = + Degree {+ degreePrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , degreeDegreeValue :: DegreeValue -- ^ /degree-value/ child element+ , degreeDegreeAlter :: DegreeAlter -- ^ /degree-alter/ child element+ , degreeDegreeType :: DegreeType -- ^ /degree-type/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Degree where+ emitXml (Degree a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) a])+ ([XElement (QN "degree-value" Nothing) (emitXml b)] +++ [XElement (QN "degree-alter" Nothing) (emitXml c)] +++ [XElement (QN "degree-type" Nothing) (emitXml d)])+parseDegree :: P.XParse Degree+parseDegree = + Degree+ <$> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> (P.xchild (P.name "degree-value") (parseDegreeValue))+ <*> (P.xchild (P.name "degree-alter") (parseDegreeAlter))+ <*> (P.xchild (P.name "degree-type") (parseDegreeType))++-- | Smart constructor for 'Degree'+mkDegree :: DegreeValue -> DegreeAlter -> DegreeType -> Degree+mkDegree b c d = Degree Nothing b c d++-- | @degree-alter@ /(complex)/+--+-- The degree-alter type represents the chromatic alteration for the current degree. If the degree-type value is alter or subtract, the degree-alter value is relative to the degree already in the chord based on its kind element. If the degree-type value is add, the degree-alter is relative to a dominant chord (major and perfect intervals except for a minor seventh). The plus-minus attribute is used to indicate if plus and minus symbols should be used instead of sharp and flat symbols to display the degree alteration; it is no by default.+data DegreeAlter = + DegreeAlter {+ degreeAlterSemitones :: Semitones -- ^ text content+ , degreeAlterPlusMinus :: (Maybe YesNo) -- ^ /plus-minus/ attribute+ , degreeAlterDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , degreeAlterDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , degreeAlterRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , degreeAlterRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , degreeAlterFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , degreeAlterFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , degreeAlterFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , degreeAlterFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , degreeAlterColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml DegreeAlter where+ emitXml (DegreeAlter a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "plus-minus" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseDegreeAlter :: P.XParse DegreeAlter+parseDegreeAlter = + DegreeAlter+ <$> (P.xtext >>= parseSemitones)+ <*> P.optional (P.xattr (P.name "plus-minus") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'DegreeAlter'+mkDegreeAlter :: Semitones -> DegreeAlter+mkDegreeAlter a = DegreeAlter a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @degree-type@ /(complex)/+--+-- The degree-type type indicates if this degree is an addition, alteration, or subtraction relative to the kind of the current chord. The value of the degree-type element affects the interpretation of the value of the degree-alter element. The text attribute specifies how the type of the degree should be displayed in a score.+data DegreeType = + DegreeType {+ degreeTypeDegreeTypeValue :: DegreeTypeValue -- ^ text content+ , degreeTypeText :: (Maybe Token) -- ^ /text/ attribute+ , degreeTypeDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , degreeTypeDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , degreeTypeRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , degreeTypeRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , degreeTypeFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , degreeTypeFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , degreeTypeFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , degreeTypeFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , degreeTypeColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml DegreeType where+ emitXml (DegreeType a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "text" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseDegreeType :: P.XParse DegreeType+parseDegreeType = + DegreeType+ <$> (P.xtext >>= parseDegreeTypeValue)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'DegreeType'+mkDegreeType :: DegreeTypeValue -> DegreeType+mkDegreeType a = DegreeType a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @degree-value@ /(complex)/+--+-- The content of the degree-value type is a number indicating the degree of the chord (1 for the root, 3 for third, etc). The text attribute specifies how the type of the degree should be displayed in a score. The degree-value symbol attribute indicates that a symbol should be used in specifying the degree. If the symbol attribute is present, the value of the text attribute follows the symbol.+data DegreeValue = + DegreeValue {+ degreeValuePositiveInteger :: PositiveInteger -- ^ text content+ , degreeValueSymbol :: (Maybe DegreeSymbolValue) -- ^ /symbol/ attribute+ , degreeValueText :: (Maybe Token) -- ^ /text/ attribute+ , degreeValueDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , degreeValueDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , degreeValueRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , degreeValueRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , degreeValueFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , degreeValueFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , degreeValueFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , degreeValueFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , degreeValueColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml DegreeValue where+ emitXml (DegreeValue a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "symbol" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "text" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l])+ []+parseDegreeValue :: P.XParse DegreeValue+parseDegreeValue = + DegreeValue+ <$> (P.xtext >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "symbol") >>= parseDegreeSymbolValue)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'DegreeValue'+mkDegreeValue :: PositiveInteger -> DegreeValue+mkDegreeValue a = DegreeValue a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @direction@ /(complex)/+--+-- A direction is a musical indication that is not attached to a specific note. Two or more may be combined to indicate starts and stops of wedges, dashes, etc.+-- +-- By default, a series of direction-type elements and a series of child elements of a direction-type within a single direction element follow one another in sequence visually. For a series of direction-type children, non-positional formatting attributes are carried over from the previous element by default.+data Direction = + Direction {+ directionPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , directionDirective :: (Maybe YesNo) -- ^ /directive/ attribute+ , directionDirectionType :: [DirectionType] -- ^ /direction-type/ child element+ , directionOffset :: (Maybe Offset) -- ^ /offset/ child element+ , directionEditorialVoiceDirection :: EditorialVoiceDirection+ , directionStaff :: (Maybe Staff)+ , directionSound :: (Maybe Sound) -- ^ /sound/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Direction where+ emitXml (Direction a b c d e f g) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "directive" Nothing).emitXml) b])+ (map (XElement (QN "direction-type" Nothing).emitXml) c +++ [maybe XEmpty (XElement (QN "offset" Nothing).emitXml) d] +++ [emitXml e] +++ [emitXml f] +++ [maybe XEmpty (XElement (QN "sound" Nothing).emitXml) g])+parseDirection :: P.XParse Direction+parseDirection = + Direction+ <$> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "directive") >>= parseYesNo)+ <*> P.many (P.xchild (P.name "direction-type") (parseDirectionType))+ <*> P.optional (P.xchild (P.name "offset") (parseOffset))+ <*> parseEditorialVoiceDirection+ <*> P.optional (parseStaff)+ <*> P.optional (P.xchild (P.name "sound") (parseSound))++-- | Smart constructor for 'Direction'+mkDirection :: EditorialVoiceDirection -> Direction+mkDirection e = Direction Nothing Nothing [] Nothing e Nothing Nothing++-- | @direction-type@ /(complex)/+--+-- Textual direction types may have more than 1 component due to multiple fonts. The dynamics element may also be used in the notations element. Attribute groups related to print suggestions apply to the individual direction-type, not to the overall direction.+data DirectionType = + DirectionType {+ directionTypeDirectionType :: ChxDirectionType+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml DirectionType where+ emitXml (DirectionType a) =+ XReps [emitXml a]+parseDirectionType :: P.XParse DirectionType+parseDirectionType = + DirectionType+ <$> parseChxDirectionType++-- | Smart constructor for 'DirectionType'+mkDirectionType :: ChxDirectionType -> DirectionType+mkDirectionType a = DirectionType a++-- | @directive@ /(complex)/+data Directive = + Directive {+ directiveString :: String -- ^ text content+ , directiveLang :: (Maybe Lang) -- ^ /xml:lang/ attribute+ , directiveDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , directiveDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , directiveRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , directiveRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , directiveFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , directiveFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , directiveFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , directiveFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , directiveColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Directive where+ emitXml (Directive a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "lang" (Just "xml")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseDirective :: P.XParse Directive+parseDirective = + Directive+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "xml:lang") >>= parseLang)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Directive'+mkDirective :: String -> Directive+mkDirective a = Directive a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @distance@ /(complex)/+--+-- The distance element represents standard distances between notation elements in tenths. The type attribute defines what type of distance is being defined. Valid values include hyphen (for hyphens in lyrics) and beam.+data Distance = + Distance {+ distanceTenths :: Tenths -- ^ text content+ , cmpdistanceType :: DistanceType -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Distance where+ emitXml (Distance a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseDistance :: P.XParse Distance+parseDistance = + Distance+ <$> (P.xtext >>= parseTenths)+ <*> (P.xattr (P.name "type") >>= parseDistanceType)++-- | Smart constructor for 'Distance'+mkDistance :: Tenths -> DistanceType -> Distance+mkDistance a b = Distance a b++-- | @dynamics@ /(complex)/+--+-- Dynamics can be associated either with a note or a general musical direction. To avoid inconsistencies between and amongst the letter abbreviations for dynamics (what is sf vs. sfz, standing alone or with a trailing dynamic that is not always piano), we use the actual letters as the names of these dynamic elements. The other-dynamics element allows other dynamic marks that are not covered here, but many of those should perhaps be included in a more general musical direction element. Dynamics elements may also be combined to create marks not covered by a single element, such as sfmp.+-- +-- These letter dynamic symbols are separated from crescendo, decrescendo, and wedge indications. Dynamic representation is inconsistent in scores. Many things are assumed by the composer and left out, such as returns to original dynamics. Systematic representations are quite complex: for example, Humdrum has at least 3 representation formats related to dynamics. The MusicXML format captures what is in the score, but does not try to be optimal for analysis or synthesis of dynamics.+data Dynamics = + Dynamics {+ dynamicsDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , dynamicsDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , dynamicsRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , dynamicsRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , dynamicsFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , dynamicsFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , dynamicsFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , dynamicsFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , dynamicsColor :: (Maybe Color) -- ^ /color/ attribute+ , dynamicsHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , dynamicsValign :: (Maybe Valign) -- ^ /valign/ attribute+ , dynamicsPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , dynamicsUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , dynamicsOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , dynamicsLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , dynamicsEnclosure :: (Maybe EnclosureShape) -- ^ /enclosure/ attribute+ , dynamicsDynamics :: [ChxDynamics]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Dynamics where+ emitXml (Dynamics a b c d e f g h i j k l m n o p q) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "enclosure" Nothing).emitXml) p])+ ([emitXml q])+parseDynamics :: P.XParse Dynamics+parseDynamics = + Dynamics+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "enclosure") >>= parseEnclosureShape)+ <*> P.many (parseChxDynamics)++-- | Smart constructor for 'Dynamics'+mkDynamics :: Dynamics+mkDynamics = Dynamics Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing []++-- | @empty@ /(complex)/+--+-- The empty type represents an empty element with no attributes.+data Empty = + Empty+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Empty where+ emitXml (Empty) =+ XReps []+parseEmpty :: P.XParse Empty+parseEmpty = + return Empty++-- | Smart constructor for 'Empty'+mkEmpty :: Empty+mkEmpty = Empty ++-- | @empty-font@ /(complex)/+--+-- The empty-font type represents an empty element with font attributes.+data EmptyFont = + EmptyFont {+ emptyFontFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyFontFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyFontFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyFontFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyFont where+ emitXml (EmptyFont a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) d])+ []+parseEmptyFont :: P.XParse EmptyFont+parseEmptyFont = + EmptyFont+ <$> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)++-- | Smart constructor for 'EmptyFont'+mkEmptyFont :: EmptyFont+mkEmptyFont = EmptyFont Nothing Nothing Nothing Nothing++-- | @empty-line@ /(complex)/+--+-- The empty-line type represents an empty element with line-shape, line-type, dashed-formatting, print-style and placement attributes.+data EmptyLine = + EmptyLine {+ emptyLineLineShape :: (Maybe LineShape) -- ^ /line-shape/ attribute+ , emptyLineLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , emptyLineDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , emptyLineSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , emptyLineDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyLineDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyLineRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyLineRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyLineFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyLineFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyLineFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyLineFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyLineColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyLinePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyLine where+ emitXml (EmptyLine a b c d e f g h i j k l m n) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "line-shape" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) n])+ []+parseEmptyLine :: P.XParse EmptyLine+parseEmptyLine = + EmptyLine+ <$> P.optional (P.xattr (P.name "line-shape") >>= parseLineShape)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'EmptyLine'+mkEmptyLine :: EmptyLine+mkEmptyLine = EmptyLine Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @empty-placement@ /(complex)/+--+-- The empty-placement type represents an empty element with print-style and placement attributes.+data EmptyPlacement = + EmptyPlacement {+ emptyPlacementDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyPlacementDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyPlacementRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyPlacementRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyPlacementFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyPlacementFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyPlacementFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyPlacementFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyPlacementColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyPlacementPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyPlacement where+ emitXml (EmptyPlacement a b c d e f g h i j) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j])+ []+parseEmptyPlacement :: P.XParse EmptyPlacement+parseEmptyPlacement = + EmptyPlacement+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'EmptyPlacement'+mkEmptyPlacement :: EmptyPlacement+mkEmptyPlacement = EmptyPlacement Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @empty-print-object-style-align@ /(complex)/+--+-- The empty-print-style-align-object type represents an empty element with print-object and print-style-align attribute groups.+data EmptyPrintObjectStyleAlign = + EmptyPrintObjectStyleAlign {+ emptyPrintObjectStyleAlignPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , emptyPrintObjectStyleAlignDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyPrintObjectStyleAlignDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyPrintObjectStyleAlignRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyPrintObjectStyleAlignRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyPrintObjectStyleAlignFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyPrintObjectStyleAlignFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyPrintObjectStyleAlignFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyPrintObjectStyleAlignFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyPrintObjectStyleAlignColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyPrintObjectStyleAlignHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , emptyPrintObjectStyleAlignValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyPrintObjectStyleAlign where+ emitXml (EmptyPrintObjectStyleAlign a b c d e f g h i j k l) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l])+ []+parseEmptyPrintObjectStyleAlign :: P.XParse EmptyPrintObjectStyleAlign+parseEmptyPrintObjectStyleAlign = + EmptyPrintObjectStyleAlign+ <$> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'EmptyPrintObjectStyleAlign'+mkEmptyPrintObjectStyleAlign :: EmptyPrintObjectStyleAlign+mkEmptyPrintObjectStyleAlign = EmptyPrintObjectStyleAlign Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @empty-print-style-align@ /(complex)/+--+-- The empty-print-style-align type represents an empty element with print-style-align attribute group.+data EmptyPrintStyleAlign = + EmptyPrintStyleAlign {+ emptyPrintStyleAlignDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyPrintStyleAlignDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyPrintStyleAlignRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyPrintStyleAlignRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyPrintStyleAlignFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyPrintStyleAlignFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyPrintStyleAlignFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyPrintStyleAlignFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyPrintStyleAlignColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyPrintStyleAlignHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , emptyPrintStyleAlignValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyPrintStyleAlign where+ emitXml (EmptyPrintStyleAlign a b c d e f g h i j k) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) k])+ []+parseEmptyPrintStyleAlign :: P.XParse EmptyPrintStyleAlign+parseEmptyPrintStyleAlign = + EmptyPrintStyleAlign+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'EmptyPrintStyleAlign'+mkEmptyPrintStyleAlign :: EmptyPrintStyleAlign+mkEmptyPrintStyleAlign = EmptyPrintStyleAlign Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @empty-trill-sound@ /(complex)/+--+-- The empty-trill-sound type represents an empty element with print-style, placement, and trill-sound attributes.+data EmptyTrillSound = + EmptyTrillSound {+ emptyTrillSoundDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyTrillSoundDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyTrillSoundRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyTrillSoundRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyTrillSoundFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyTrillSoundFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyTrillSoundFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyTrillSoundFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyTrillSoundColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyTrillSoundPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , emptyTrillSoundStartNote :: (Maybe StartNote) -- ^ /start-note/ attribute+ , emptyTrillSoundTrillStep :: (Maybe TrillStep) -- ^ /trill-step/ attribute+ , emptyTrillSoundTwoNoteTurn :: (Maybe TwoNoteTurn) -- ^ /two-note-turn/ attribute+ , emptyTrillSoundAccelerate :: (Maybe YesNo) -- ^ /accelerate/ attribute+ , emptyTrillSoundBeats :: (Maybe TrillBeats) -- ^ /beats/ attribute+ , emptyTrillSoundSecondBeat :: (Maybe Percent) -- ^ /second-beat/ attribute+ , emptyTrillSoundLastBeat :: (Maybe Percent) -- ^ /last-beat/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyTrillSound where+ emitXml (EmptyTrillSound a b c d e f g h i j k l m n o p q) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "start-note" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "trill-step" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "two-note-turn" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "accelerate" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "beats" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "second-beat" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "last-beat" Nothing).emitXml) q])+ []+parseEmptyTrillSound :: P.XParse EmptyTrillSound+parseEmptyTrillSound = + EmptyTrillSound+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "start-note") >>= parseStartNote)+ <*> P.optional (P.xattr (P.name "trill-step") >>= parseTrillStep)+ <*> P.optional (P.xattr (P.name "two-note-turn") >>= parseTwoNoteTurn)+ <*> P.optional (P.xattr (P.name "accelerate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "beats") >>= parseTrillBeats)+ <*> P.optional (P.xattr (P.name "second-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "last-beat") >>= parsePercent)++-- | Smart constructor for 'EmptyTrillSound'+mkEmptyTrillSound :: EmptyTrillSound+mkEmptyTrillSound = EmptyTrillSound Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @encoding@ /(complex)/+--+-- The encoding element contains information about who did the digital encoding, when, with what software, and in what aspects. Standard type values for the encoder element are music, words, and arrangement, but other types may be used. The type attribute is only needed when there are multiple encoder elements.+data Encoding = + Encoding {+ encodingEncoding :: [ChxEncoding]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Encoding where+ emitXml (Encoding a) =+ XReps [emitXml a]+parseEncoding :: P.XParse Encoding+parseEncoding = + Encoding+ <$> P.many (parseChxEncoding)++-- | Smart constructor for 'Encoding'+mkEncoding :: Encoding+mkEncoding = Encoding []++-- | @ending@ /(complex)/+--+-- The ending type represents multiple (e.g. first and second) endings. Typically, the start type is associated with the left barline of the first measure in an ending. The stop and discontinue types are associated with the right barline of the last measure in an ending. Stop is used when the ending mark concludes with a downward jog, as is typical for first endings. Discontinue is used when there is no downward jog, as is typical for second endings that do not conclude a piece. The length of the jog can be specified using the end-length attribute. The text-x and text-y attributes are offsets that specify where the baseline of the start of the ending text appears, relative to the start of the ending line.+-- +-- The number attribute reflects the numeric values of what is under the ending line. Single endings such as "1" or comma-separated multiple endings such as "1,2" may be used. The ending element text is used when the text displayed in the ending is different than what appears in the number attribute. The print-object element is used to indicate when an ending is present but not printed, as is often the case for many parts in a full score.+data Ending = + Ending {+ endingString :: String -- ^ text content+ , cmpendingNumber :: EndingNumber -- ^ /number/ attribute+ , endingType :: StartStopDiscontinue -- ^ /type/ attribute+ , endingEndLength :: (Maybe Tenths) -- ^ /end-length/ attribute+ , endingTextX :: (Maybe Tenths) -- ^ /text-x/ attribute+ , endingTextY :: (Maybe Tenths) -- ^ /text-y/ attribute+ , endingPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , endingDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , endingDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , endingRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , endingRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , endingFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , endingFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , endingFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , endingFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , endingColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Ending where+ emitXml (Ending a b c d e f g h i j k l m n o p) =+ XContent (emitXml a)+ ([XAttr (QN "number" Nothing) (emitXml b)] +++ [XAttr (QN "type" Nothing) (emitXml c)] +++ [maybe XEmpty (XAttr (QN "end-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "text-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "text-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) p])+ []+parseEnding :: P.XParse Ending+parseEnding = + Ending+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "number") >>= parseEndingNumber)+ <*> (P.xattr (P.name "type") >>= parseStartStopDiscontinue)+ <*> P.optional (P.xattr (P.name "end-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "text-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "text-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Ending'+mkEnding :: String -> EndingNumber -> StartStopDiscontinue -> Ending+mkEnding a b c = Ending a b c Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @extend@ /(complex)/+--+-- The extend type represents lyric word extension / melisma lines as well as figured bass extensions. The optional type and position attributes are added in Version 3.0 to provide better formatting control.+data Extend = + Extend {+ extendType :: (Maybe StartStopContinue) -- ^ /type/ attribute+ , extendDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , extendDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , extendRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , extendRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , extendFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , extendFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , extendFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , extendFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , extendColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Extend where+ emitXml (Extend a b c d e f g h i j) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j])+ []+parseExtend :: P.XParse Extend+parseExtend = + Extend+ <$> P.optional (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Extend'+mkExtend :: Extend+mkExtend = Extend Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @feature@ /(complex)/+--+-- The feature type is a part of the grouping element used for musical analysis. The type attribute represents the type of the feature and the element content represents its value. This type is flexible to allow for different analyses.+data Feature = + Feature {+ featureString :: String -- ^ text content+ , featureType :: (Maybe Token) -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Feature where+ emitXml (Feature a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) b])+ []+parseFeature :: P.XParse Feature+parseFeature = + Feature+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "type") >>= parseToken)++-- | Smart constructor for 'Feature'+mkFeature :: String -> Feature+mkFeature a = Feature a Nothing++-- | @fermata@ /(complex)/+--+-- The fermata text content represents the shape of the fermata sign. An empty fermata element represents a normal fermata. The fermata type is upright if not specified.+data Fermata = + Fermata {+ fermataFermataShape :: FermataShape -- ^ text content+ , fermataType :: (Maybe UprightInverted) -- ^ /type/ attribute+ , fermataDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , fermataDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , fermataRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , fermataRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , fermataFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , fermataFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , fermataFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , fermataFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , fermataColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Fermata where+ emitXml (Fermata a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseFermata :: P.XParse Fermata+parseFermata = + Fermata+ <$> (P.xtext >>= parseFermataShape)+ <*> P.optional (P.xattr (P.name "type") >>= parseUprightInverted)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Fermata'+mkFermata :: FermataShape -> Fermata+mkFermata a = Fermata a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @figure@ /(complex)/+--+-- The figure type represents a single figure within a figured-bass element.+data Figure = + Figure {+ figurePrefix :: (Maybe StyleText) -- ^ /prefix/ child element+ , figureFigureNumber :: (Maybe StyleText) -- ^ /figure-number/ child element+ , figureSuffix :: (Maybe StyleText) -- ^ /suffix/ child element+ , figureExtend :: (Maybe Extend) -- ^ /extend/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Figure where+ emitXml (Figure a b c d) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "prefix" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "figure-number" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "suffix" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "extend" Nothing).emitXml) d])+parseFigure :: P.XParse Figure+parseFigure = + Figure+ <$> P.optional (P.xchild (P.name "prefix") (parseStyleText))+ <*> P.optional (P.xchild (P.name "figure-number") (parseStyleText))+ <*> P.optional (P.xchild (P.name "suffix") (parseStyleText))+ <*> P.optional (P.xchild (P.name "extend") (parseExtend))++-- | Smart constructor for 'Figure'+mkFigure :: Figure+mkFigure = Figure Nothing Nothing Nothing Nothing++-- | @figured-bass@ /(complex)/+--+-- The figured-bass element represents figured bass notation. Figured bass elements take their position from the first regular note (not a grace note or chord note) that follows in score order. The optional duration element is used to indicate changes of figures under a note.+-- +-- Figures are ordered from top to bottom. The value of parentheses is "no" if not present.+data FiguredBass = + FiguredBass {+ figuredBassParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , figuredBassDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , figuredBassDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , figuredBassRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , figuredBassRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , figuredBassFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , figuredBassFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , figuredBassFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , figuredBassFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , figuredBassColor :: (Maybe Color) -- ^ /color/ attribute+ , figuredBassPrintDot :: (Maybe YesNo) -- ^ /print-dot/ attribute+ , figuredBassPrintLyric :: (Maybe YesNo) -- ^ /print-lyric/ attribute+ , figuredBassPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , figuredBassPrintSpacing :: (Maybe YesNo) -- ^ /print-spacing/ attribute+ , figuredBassFigure :: [Figure] -- ^ /figure/ child element+ , figuredBassDuration :: (Maybe Duration)+ , figuredBassEditorial :: Editorial+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FiguredBass where+ emitXml (FiguredBass a b c d e f g h i j k l m n o p q) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "print-dot" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "print-lyric" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "print-spacing" Nothing).emitXml) n])+ (map (XElement (QN "figure" Nothing).emitXml) o +++ [emitXml p] +++ [emitXml q])+parseFiguredBass :: P.XParse FiguredBass+parseFiguredBass = + FiguredBass+ <$> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-dot") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-lyric") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-spacing") >>= parseYesNo)+ <*> P.many (P.xchild (P.name "figure") (parseFigure))+ <*> P.optional (parseDuration)+ <*> parseEditorial++-- | Smart constructor for 'FiguredBass'+mkFiguredBass :: Editorial -> FiguredBass+mkFiguredBass q = FiguredBass Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing [] Nothing q++-- | @fingering@ /(complex)/+--+-- Fingering is typically indicated 1,2,3,4,5. Multiple fingerings may be given, typically to substitute fingerings in the middle of a note. The substitution and alternate values are "no" if the attribute is not present. For guitar and other fretted instruments, the fingering element represents the fretting finger; the pluck element represents the plucking finger.+data Fingering = + Fingering {+ fingeringString :: String -- ^ text content+ , fingeringSubstitution :: (Maybe YesNo) -- ^ /substitution/ attribute+ , fingeringAlternate :: (Maybe YesNo) -- ^ /alternate/ attribute+ , fingeringDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , fingeringDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , fingeringRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , fingeringRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , fingeringFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , fingeringFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , fingeringFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , fingeringFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , fingeringColor :: (Maybe Color) -- ^ /color/ attribute+ , fingeringPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Fingering where+ emitXml (Fingering a b c d e f g h i j k l m) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "substitution" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "alternate" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) m])+ []+parseFingering :: P.XParse Fingering+parseFingering = + Fingering+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "substitution") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "alternate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'Fingering'+mkFingering :: String -> Fingering+mkFingering a = Fingering a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @first-fret@ /(complex)/+--+-- The first-fret type indicates which fret is shown in the top space of the frame; it is fret 1 if the element is not present. The optional text attribute indicates how this is represented in the fret diagram, while the location attribute indicates whether the text appears to the left or right of the frame.+data FirstFret = + FirstFret {+ firstFretPositiveInteger :: PositiveInteger -- ^ text content+ , firstFretText :: (Maybe Token) -- ^ /text/ attribute+ , firstFretLocation :: (Maybe LeftRight) -- ^ /location/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FirstFret where+ emitXml (FirstFret a b c) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "text" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "location" Nothing).emitXml) c])+ []+parseFirstFret :: P.XParse FirstFret+parseFirstFret = + FirstFret+ <$> (P.xtext >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "location") >>= parseLeftRight)++-- | Smart constructor for 'FirstFret'+mkFirstFret :: PositiveInteger -> FirstFret+mkFirstFret a = FirstFret a Nothing Nothing++-- | @formatted-text@ /(complex)/+--+-- The formatted-text type represents a text element with text-formatting attributes.+data FormattedText = + FormattedText {+ formattedTextString :: String -- ^ text content+ , formattedTextLang :: (Maybe Lang) -- ^ /xml:lang/ attribute+ , formattedTextSpace :: (Maybe Space) -- ^ /xml:space/ attribute+ , formattedTextJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ , formattedTextDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , formattedTextDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , formattedTextRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , formattedTextRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , formattedTextFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , formattedTextFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , formattedTextFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , formattedTextFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , formattedTextColor :: (Maybe Color) -- ^ /color/ attribute+ , formattedTextHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , formattedTextValign :: (Maybe Valign) -- ^ /valign/ attribute+ , formattedTextUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , formattedTextOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , formattedTextLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , formattedTextRotation :: (Maybe RotationDegrees) -- ^ /rotation/ attribute+ , formattedTextLetterSpacing :: (Maybe NumberOrNormal) -- ^ /letter-spacing/ attribute+ , formattedTextLineHeight :: (Maybe NumberOrNormal) -- ^ /line-height/ attribute+ , formattedTextDir :: (Maybe TextDirection) -- ^ /dir/ attribute+ , formattedTextEnclosure :: (Maybe EnclosureShape) -- ^ /enclosure/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FormattedText where+ emitXml (FormattedText a b c d e f g h i j k l m n o p q r s t u v w) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "lang" (Just "xml")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "space" (Just "xml")).emitXml) c] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "rotation" Nothing).emitXml) s] +++ [maybe XEmpty (XAttr (QN "letter-spacing" Nothing).emitXml) t] +++ [maybe XEmpty (XAttr (QN "line-height" Nothing).emitXml) u] +++ [maybe XEmpty (XAttr (QN "dir" Nothing).emitXml) v] +++ [maybe XEmpty (XAttr (QN "enclosure" Nothing).emitXml) w])+ []+parseFormattedText :: P.XParse FormattedText+parseFormattedText = + FormattedText+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "xml:lang") >>= parseLang)+ <*> P.optional (P.xattr (P.name "xml:space") >>= parseSpace)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "rotation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "letter-spacing") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "line-height") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "dir") >>= parseTextDirection)+ <*> P.optional (P.xattr (P.name "enclosure") >>= parseEnclosureShape)++-- | Smart constructor for 'FormattedText'+mkFormattedText :: String -> FormattedText+mkFormattedText a = FormattedText a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @forward@ /(complex)/+--+-- The backup and forward elements are required to coordinate multiple voices in one part, including music on multiple staves. The forward element is generally used within voices and staves. Duration values should always be positive, and should not cross measure boundaries or mid-measure changes in the divisions value.+data Forward = + Forward {+ forwardDuration :: Duration+ , forwardEditorialVoice :: EditorialVoice+ , forwardStaff :: (Maybe Staff)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Forward where+ emitXml (Forward a b c) =+ XReps [emitXml a,emitXml b,emitXml c]+parseForward :: P.XParse Forward+parseForward = + Forward+ <$> parseDuration+ <*> parseEditorialVoice+ <*> P.optional (parseStaff)++-- | Smart constructor for 'Forward'+mkForward :: Duration -> EditorialVoice -> Forward+mkForward a b = Forward a b Nothing++-- | @frame@ /(complex)/+--+-- The frame type represents a frame or fretboard diagram used together with a chord symbol. The representation is based on the NIFF guitar grid with additional information. The frame type's unplayed attribute indicates what to display above a string that has no associated frame-note element. Typical values are x and the empty string. If the attribute is not present, the display of the unplayed string is application-defined.+data Frame = + Frame {+ frameHeight :: (Maybe Tenths) -- ^ /height/ attribute+ , frameWidth :: (Maybe Tenths) -- ^ /width/ attribute+ , frameUnplayed :: (Maybe Token) -- ^ /unplayed/ attribute+ , frameDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , frameDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , frameRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , frameRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , frameColor :: (Maybe Color) -- ^ /color/ attribute+ , frameHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , frameValign :: (Maybe ValignImage) -- ^ /valign/ attribute+ , frameFrameStrings :: PositiveInteger -- ^ /frame-strings/ child element+ , frameFrameFrets :: PositiveInteger -- ^ /frame-frets/ child element+ , frameFirstFret :: (Maybe FirstFret) -- ^ /first-fret/ child element+ , frameFrameNote :: [FrameNote] -- ^ /frame-note/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Frame where+ emitXml (Frame a b c d e f g h i j k l m n) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "height" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "width" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "unplayed" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) j])+ ([XElement (QN "frame-strings" Nothing) (emitXml k)] +++ [XElement (QN "frame-frets" Nothing) (emitXml l)] +++ [maybe XEmpty (XElement (QN "first-fret" Nothing).emitXml) m] +++ map (XElement (QN "frame-note" Nothing).emitXml) n)+parseFrame :: P.XParse Frame+parseFrame = + Frame+ <$> P.optional (P.xattr (P.name "height") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "width") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "unplayed") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValignImage)+ <*> (P.xchild (P.name "frame-strings") (P.xtext >>= parsePositiveInteger))+ <*> (P.xchild (P.name "frame-frets") (P.xtext >>= parsePositiveInteger))+ <*> P.optional (P.xchild (P.name "first-fret") (parseFirstFret))+ <*> P.many (P.xchild (P.name "frame-note") (parseFrameNote))++-- | Smart constructor for 'Frame'+mkFrame :: PositiveInteger -> PositiveInteger -> Frame+mkFrame k l = Frame Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing k l Nothing []++-- | @frame-note@ /(complex)/+--+-- The frame-note type represents each note included in the frame. An open string will have a fret value of 0, while a muted string will not be associated with a frame-note element.+data FrameNote = + FrameNote {+ frameNoteString :: CmpString -- ^ /string/ child element+ , frameNoteFret :: Fret -- ^ /fret/ child element+ , frameNoteFingering :: (Maybe Fingering) -- ^ /fingering/ child element+ , frameNoteBarre :: (Maybe Barre) -- ^ /barre/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FrameNote where+ emitXml (FrameNote a b c d) =+ XContent XEmpty+ []+ ([XElement (QN "string" Nothing) (emitXml a)] +++ [XElement (QN "fret" Nothing) (emitXml b)] +++ [maybe XEmpty (XElement (QN "fingering" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "barre" Nothing).emitXml) d])+parseFrameNote :: P.XParse FrameNote+parseFrameNote = + FrameNote+ <$> (P.xchild (P.name "string") (parseCmpString))+ <*> (P.xchild (P.name "fret") (parseFret))+ <*> P.optional (P.xchild (P.name "fingering") (parseFingering))+ <*> P.optional (P.xchild (P.name "barre") (parseBarre))++-- | Smart constructor for 'FrameNote'+mkFrameNote :: CmpString -> Fret -> FrameNote+mkFrameNote a b = FrameNote a b Nothing Nothing++-- | @fret@ /(complex)/+--+-- The fret element is used with tablature notation and chord diagrams. Fret numbers start with 0 for an open string and 1 for the first fret.+data Fret = + Fret {+ fretNonNegativeInteger :: NonNegativeInteger -- ^ text content+ , fretFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , fretFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , fretFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , fretFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , fretColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Fret where+ emitXml (Fret a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseFret :: P.XParse Fret+parseFret = + Fret+ <$> (P.xtext >>= parseNonNegativeInteger)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Fret'+mkFret :: NonNegativeInteger -> Fret+mkFret a = Fret a Nothing Nothing Nothing Nothing Nothing++-- | @glissando@ /(complex)/+--+-- Glissando and slide types both indicate rapidly moving from one pitch to the other so that individual notes are not discerned. The distinction is similar to that between NIFF's glissando and portamento elements. A glissando sounds the half notes in between the slide and defaults to a wavy line. The optional text is printed alongside the line.+data Glissando = + Glissando {+ glissandoString :: String -- ^ text content+ , glissandoType :: StartStop -- ^ /type/ attribute+ , glissandoNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , glissandoLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , glissandoDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , glissandoSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , glissandoDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , glissandoDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , glissandoRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , glissandoRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , glissandoFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , glissandoFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , glissandoFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , glissandoFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , glissandoColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Glissando where+ emitXml (Glissando a b c d e f g h i j k l m n o) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) o])+ []+parseGlissando :: P.XParse Glissando+parseGlissando = + Glissando+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Glissando'+mkGlissando :: String -> StartStop -> Glissando+mkGlissando a b = Glissando a b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @grace@ /(complex)/+--+-- The grace type indicates the presence of a grace note. The slash attribute for a grace note is yes for slashed eighth notes. The other grace note attributes come from MuseData sound suggestions. The steal-time-previous attribute indicates the percentage of time to steal from the previous note for the grace note. The steal-time-following attribute indicates the percentage of time to steal from the following note for the grace note, as for appoggiaturas. The make-time attribute indicates to make time, not steal time; the units are in real-time divisions for the grace note.+data Grace = + Grace {+ graceStealTimePrevious :: (Maybe Percent) -- ^ /steal-time-previous/ attribute+ , graceStealTimeFollowing :: (Maybe Percent) -- ^ /steal-time-following/ attribute+ , graceMakeTime :: (Maybe Divisions) -- ^ /make-time/ attribute+ , graceSlash :: (Maybe YesNo) -- ^ /slash/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Grace where+ emitXml (Grace a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "steal-time-previous" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "steal-time-following" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "make-time" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "slash" Nothing).emitXml) d])+ []+parseGrace :: P.XParse Grace+parseGrace = + Grace+ <$> P.optional (P.xattr (P.name "steal-time-previous") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "steal-time-following") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "make-time") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "slash") >>= parseYesNo)++-- | Smart constructor for 'Grace'+mkGrace :: Grace+mkGrace = Grace Nothing Nothing Nothing Nothing++-- | @group-barline@ /(complex)/+--+-- The group-barline type indicates if the group should have common barlines.+data GroupBarline = + GroupBarline {+ groupBarlineGroupBarlineValue :: GroupBarlineValue -- ^ text content+ , groupBarlineColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GroupBarline where+ emitXml (GroupBarline a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "color" Nothing).emitXml) b])+ []+parseGroupBarline :: P.XParse GroupBarline+parseGroupBarline = + GroupBarline+ <$> (P.xtext >>= parseGroupBarlineValue)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'GroupBarline'+mkGroupBarline :: GroupBarlineValue -> GroupBarline+mkGroupBarline a = GroupBarline a Nothing++-- | @group-name@ /(complex)/+--+-- The group-name type describes the name or abbreviation of a part-group element. Formatting attributes in the group-name type are deprecated in Version 2.0 in favor of the new group-name-display and group-abbreviation-display elements.+data GroupName = + GroupName {+ groupNameString :: String -- ^ text content+ , groupNameDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , groupNameDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , groupNameRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , groupNameRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , groupNameFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , groupNameFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , groupNameFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , groupNameFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , groupNameColor :: (Maybe Color) -- ^ /color/ attribute+ , groupNameJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GroupName where+ emitXml (GroupName a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) k])+ []+parseGroupName :: P.XParse GroupName+parseGroupName = + GroupName+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)++-- | Smart constructor for 'GroupName'+mkGroupName :: String -> GroupName+mkGroupName a = GroupName a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @group-symbol@ /(complex)/+--+-- The group-symbol type indicates how the symbol for a group is indicated in the score.+data GroupSymbol = + GroupSymbol {+ groupSymbolGroupSymbolValue :: GroupSymbolValue -- ^ text content+ , groupSymbolDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , groupSymbolDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , groupSymbolRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , groupSymbolRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , groupSymbolColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GroupSymbol where+ emitXml (GroupSymbol a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseGroupSymbol :: P.XParse GroupSymbol+parseGroupSymbol = + GroupSymbol+ <$> (P.xtext >>= parseGroupSymbolValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'GroupSymbol'+mkGroupSymbol :: GroupSymbolValue -> GroupSymbol+mkGroupSymbol a = GroupSymbol a Nothing Nothing Nothing Nothing Nothing++-- | @grouping@ /(complex)/+--+-- The grouping type is used for musical analysis. When the type attribute is "start" or "single", it usually contains one or more feature elements. The number attribute is used for distinguishing between overlapping and hierarchical groupings. The member-of attribute allows for easy distinguishing of what grouping elements are in what hierarchy. Feature elements contained within a "stop" type of grouping may be ignored.+-- +-- This element is flexible to allow for different types of analyses. Future versions of the MusicXML format may add elements that can represent more standardized categories of analysis data, allowing for easier data sharing.+data Grouping = + Grouping {+ groupingType :: StartStopSingle -- ^ /type/ attribute+ , groupingNumber :: (Maybe Token) -- ^ /number/ attribute+ , groupingMemberOf :: (Maybe Token) -- ^ /member-of/ attribute+ , groupingFeature :: [Feature] -- ^ /feature/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Grouping where+ emitXml (Grouping a b c d) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "member-of" Nothing).emitXml) c])+ (map (XElement (QN "feature" Nothing).emitXml) d)+parseGrouping :: P.XParse Grouping+parseGrouping = + Grouping+ <$> (P.xattr (P.name "type") >>= parseStartStopSingle)+ <*> P.optional (P.xattr (P.name "number") >>= parseToken)+ <*> P.optional (P.xattr (P.name "member-of") >>= parseToken)+ <*> P.many (P.xchild (P.name "feature") (parseFeature))++-- | Smart constructor for 'Grouping'+mkGrouping :: StartStopSingle -> Grouping+mkGrouping a = Grouping a Nothing Nothing []++-- | @hammer-on-pull-off@ /(complex)/+--+-- The hammer-on and pull-off elements are used in guitar and fretted instrument notation. Since a single slur can be marked over many notes, the hammer-on and pull-off elements are separate so the individual pair of notes can be specified. The element content can be used to specify how the hammer-on or pull-off should be notated. An empty element leaves this choice up to the application.+data HammerOnPullOff = + HammerOnPullOff {+ hammerOnPullOffString :: String -- ^ text content+ , hammerOnPullOffType :: StartStop -- ^ /type/ attribute+ , hammerOnPullOffNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , hammerOnPullOffDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , hammerOnPullOffDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , hammerOnPullOffRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , hammerOnPullOffRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , hammerOnPullOffFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , hammerOnPullOffFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , hammerOnPullOffFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , hammerOnPullOffFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , hammerOnPullOffColor :: (Maybe Color) -- ^ /color/ attribute+ , hammerOnPullOffPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HammerOnPullOff where+ emitXml (HammerOnPullOff a b c d e f g h i j k l m) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) m])+ []+parseHammerOnPullOff :: P.XParse HammerOnPullOff+parseHammerOnPullOff = + HammerOnPullOff+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'HammerOnPullOff'+mkHammerOnPullOff :: String -> StartStop -> HammerOnPullOff+mkHammerOnPullOff a b = HammerOnPullOff a b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @handbell@ /(complex)/+--+-- The handbell element represents notation for various techniques used in handbell and handchime music.+data Handbell = + Handbell {+ handbellHandbellValue :: HandbellValue -- ^ text content+ , handbellDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , handbellDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , handbellRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , handbellRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , handbellFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , handbellFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , handbellFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , handbellFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , handbellColor :: (Maybe Color) -- ^ /color/ attribute+ , handbellPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Handbell where+ emitXml (Handbell a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ []+parseHandbell :: P.XParse Handbell+parseHandbell = + Handbell+ <$> (P.xtext >>= parseHandbellValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'Handbell'+mkHandbell :: HandbellValue -> Handbell+mkHandbell a = Handbell a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @harmonic@ /(complex)/+--+-- The harmonic type indicates natural and artificial harmonics. Allowing the type of pitch to be specified, combined with controls for appearance/playback differences, allows both the notation and the sound to be represented. Artificial harmonics can add a notated touching-pitch; artificial pinch harmonics will usually not notate a touching pitch. The attributes for the harmonic element refer to the use of the circular harmonic symbol, typically but not always used with natural harmonics.+data Harmonic = + Harmonic {+ harmonicPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , harmonicDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , harmonicDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , harmonicRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , harmonicRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , harmonicFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , harmonicFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , harmonicFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , harmonicFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , harmonicColor :: (Maybe Color) -- ^ /color/ attribute+ , harmonicPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , harmonicHarmonic :: (Maybe ChxHarmonic)+ , harmonicHarmonic1 :: (Maybe ChxHarmonic1)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Harmonic where+ emitXml (Harmonic a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ ([emitXml l] +++ [emitXml m])+parseHarmonic :: P.XParse Harmonic+parseHarmonic = + Harmonic+ <$> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (parseChxHarmonic)+ <*> P.optional (parseChxHarmonic1)++-- | Smart constructor for 'Harmonic'+mkHarmonic :: Harmonic+mkHarmonic = Harmonic Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @harmony@ /(complex)/+--+-- The harmony type is based on Humdrum's **harm encoding, extended to support chord symbols in popular music as well as functional harmony analysis in classical music.+-- +-- If there are alternate harmonies possible, this can be specified using multiple harmony elements differentiated by type. Explicit harmonies have all note present in the music; implied have some notes missing but implied; alternate represents alternate analyses. +-- +-- The harmony object may be used for analysis or for chord symbols. The print-object attribute controls whether or not anything is printed due to the harmony element. The print-frame attribute controls printing of a frame or fretboard diagram. The print-style attribute group sets the default for the harmony, but individual elements can override this with their own print-style values.+data Harmony = + Harmony {+ harmonyType :: (Maybe HarmonyType) -- ^ /type/ attribute+ , harmonyPrintFrame :: (Maybe YesNo) -- ^ /print-frame/ attribute+ , harmonyPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , harmonyDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , harmonyDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , harmonyRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , harmonyRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , harmonyFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , harmonyFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , harmonyFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , harmonyFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , harmonyColor :: (Maybe Color) -- ^ /color/ attribute+ , harmonyPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , harmonyHarmonyChord :: [HarmonyChord]+ , harmonyFrame :: (Maybe Frame) -- ^ /frame/ child element+ , harmonyOffset :: (Maybe Offset) -- ^ /offset/ child element+ , harmonyEditorial :: Editorial+ , harmonyStaff :: (Maybe Staff)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Harmony where+ emitXml (Harmony a b c d e f g h i j k l m n o p q r) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "print-frame" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) m])+ ([emitXml n] +++ [maybe XEmpty (XElement (QN "frame" Nothing).emitXml) o] +++ [maybe XEmpty (XElement (QN "offset" Nothing).emitXml) p] +++ [emitXml q] +++ [emitXml r])+parseHarmony :: P.XParse Harmony+parseHarmony = + Harmony+ <$> P.optional (P.xattr (P.name "type") >>= parseHarmonyType)+ <*> P.optional (P.xattr (P.name "print-frame") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.many (parseHarmonyChord)+ <*> P.optional (P.xchild (P.name "frame") (parseFrame))+ <*> P.optional (P.xchild (P.name "offset") (parseOffset))+ <*> parseEditorial+ <*> P.optional (parseStaff)++-- | Smart constructor for 'Harmony'+mkHarmony :: Editorial -> Harmony+mkHarmony q = Harmony Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing [] Nothing Nothing q Nothing++-- | @harp-pedals@ /(complex)/+--+-- The harp-pedals type is used to create harp pedal diagrams. The pedal-step and pedal-alter elements use the same values as the step and alter elements. For easiest reading, the pedal-tuning elements should follow standard harp pedal order, with pedal-step values of D, C, B, E, F, G, and A.+data HarpPedals = + HarpPedals {+ harpPedalsDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , harpPedalsDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , harpPedalsRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , harpPedalsRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , harpPedalsFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , harpPedalsFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , harpPedalsFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , harpPedalsFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , harpPedalsColor :: (Maybe Color) -- ^ /color/ attribute+ , harpPedalsHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , harpPedalsValign :: (Maybe Valign) -- ^ /valign/ attribute+ , harpPedalsPedalTuning :: [PedalTuning] -- ^ /pedal-tuning/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HarpPedals where+ emitXml (HarpPedals a b c d e f g h i j k l) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) k])+ (map (XElement (QN "pedal-tuning" Nothing).emitXml) l)+parseHarpPedals :: P.XParse HarpPedals+parseHarpPedals = + HarpPedals+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.many (P.xchild (P.name "pedal-tuning") (parsePedalTuning))++-- | Smart constructor for 'HarpPedals'+mkHarpPedals :: HarpPedals+mkHarpPedals = HarpPedals Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing []++-- | @heel-toe@ /(complex)/+--+-- The heel and toe elements are used with organ pedals. The substitution value is "no" if the attribute is not present.+data HeelToe = + HeelToe {+ heelToeEmptyPlacement :: HeelToe+ , heelToeSubstitution :: (Maybe YesNo) -- ^ /substitution/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HeelToe where+ emitXml (HeelToe a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "substitution" Nothing).emitXml) b])+ ([emitXml a])+parseHeelToe :: P.XParse HeelToe+parseHeelToe = + HeelToe+ <$> parseHeelToe+ <*> P.optional (P.xattr (P.name "substitution") >>= parseYesNo)++-- | Smart constructor for 'HeelToe'+mkHeelToe :: HeelToe -> HeelToe+mkHeelToe a = HeelToe a Nothing++-- | @hole@ /(complex)/+--+-- The hole type represents the symbols used for woodwind and brass fingerings as well as other notations.+data Hole = + Hole {+ holeDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , holeDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , holeRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , holeRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , holeFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , holeFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , holeFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , holeFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , holeColor :: (Maybe Color) -- ^ /color/ attribute+ , holePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , holeHoleType :: (Maybe String) -- ^ /hole-type/ child element+ , holeHoleClosed :: HoleClosed -- ^ /hole-closed/ child element+ , holeHoleShape :: (Maybe String) -- ^ /hole-shape/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Hole where+ emitXml (Hole a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j])+ ([maybe XEmpty (XElement (QN "hole-type" Nothing).emitXml) k] +++ [XElement (QN "hole-closed" Nothing) (emitXml l)] +++ [maybe XEmpty (XElement (QN "hole-shape" Nothing).emitXml) m])+parseHole :: P.XParse Hole+parseHole = + Hole+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xchild (P.name "hole-type") (P.xtext >>= return))+ <*> (P.xchild (P.name "hole-closed") (parseHoleClosed))+ <*> P.optional (P.xchild (P.name "hole-shape") (P.xtext >>= return))++-- | Smart constructor for 'Hole'+mkHole :: HoleClosed -> Hole+mkHole l = Hole Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing l Nothing++-- | @hole-closed@ /(complex)/+--+-- The hole-closed type represents whether the hole is closed, open, or half-open. The optional location attribute indicates which portion of the hole is filled in when the element value is half.+data HoleClosed = + HoleClosed {+ holeClosedHoleClosedValue :: HoleClosedValue -- ^ text content+ , holeClosedLocation :: (Maybe HoleClosedLocation) -- ^ /location/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HoleClosed where+ emitXml (HoleClosed a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) b])+ []+parseHoleClosed :: P.XParse HoleClosed+parseHoleClosed = + HoleClosed+ <$> (P.xtext >>= parseHoleClosedValue)+ <*> P.optional (P.xattr (P.name "location") >>= parseHoleClosedLocation)++-- | Smart constructor for 'HoleClosed'+mkHoleClosed :: HoleClosedValue -> HoleClosed+mkHoleClosed a = HoleClosed a Nothing++-- | @horizontal-turn@ /(complex)/+--+-- The horizontal-turn type represents turn elements that are horizontal rather than vertical. These are empty elements with print-style, placement, trill-sound, and slash attributes. If the slash attribute is yes, then a vertical line is used to slash the turn; it is no by default.+data HorizontalTurn = + HorizontalTurn {+ horizontalTurnSlash :: (Maybe YesNo) -- ^ /slash/ attribute+ , horizontalTurnDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , horizontalTurnDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , horizontalTurnRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , horizontalTurnRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , horizontalTurnFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , horizontalTurnFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , horizontalTurnFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , horizontalTurnFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , horizontalTurnColor :: (Maybe Color) -- ^ /color/ attribute+ , horizontalTurnPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , horizontalTurnStartNote :: (Maybe StartNote) -- ^ /start-note/ attribute+ , horizontalTurnTrillStep :: (Maybe TrillStep) -- ^ /trill-step/ attribute+ , horizontalTurnTwoNoteTurn :: (Maybe TwoNoteTurn) -- ^ /two-note-turn/ attribute+ , horizontalTurnAccelerate :: (Maybe YesNo) -- ^ /accelerate/ attribute+ , horizontalTurnBeats :: (Maybe TrillBeats) -- ^ /beats/ attribute+ , horizontalTurnSecondBeat :: (Maybe Percent) -- ^ /second-beat/ attribute+ , horizontalTurnLastBeat :: (Maybe Percent) -- ^ /last-beat/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HorizontalTurn where+ emitXml (HorizontalTurn a b c d e f g h i j k l m n o p q r) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "slash" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "start-note" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "trill-step" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "two-note-turn" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "accelerate" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "beats" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "second-beat" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "last-beat" Nothing).emitXml) r])+ []+parseHorizontalTurn :: P.XParse HorizontalTurn+parseHorizontalTurn = + HorizontalTurn+ <$> P.optional (P.xattr (P.name "slash") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "start-note") >>= parseStartNote)+ <*> P.optional (P.xattr (P.name "trill-step") >>= parseTrillStep)+ <*> P.optional (P.xattr (P.name "two-note-turn") >>= parseTwoNoteTurn)+ <*> P.optional (P.xattr (P.name "accelerate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "beats") >>= parseTrillBeats)+ <*> P.optional (P.xattr (P.name "second-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "last-beat") >>= parsePercent)++-- | Smart constructor for 'HorizontalTurn'+mkHorizontalTurn :: HorizontalTurn+mkHorizontalTurn = HorizontalTurn Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @identification@ /(complex)/+--+-- Identification contains basic metadata about the score. It includes the information in MuseData headers that may apply at a score-wide, movement-wide, or part-wide level. The creator, rights, source, and relation elements are based on Dublin Core.+data Identification = + Identification {+ identificationCreator :: [TypedText] -- ^ /creator/ child element+ , identificationRights :: [TypedText] -- ^ /rights/ child element+ , identificationEncoding :: (Maybe Encoding) -- ^ /encoding/ child element+ , identificationSource :: (Maybe String) -- ^ /source/ child element+ , identificationRelation :: [TypedText] -- ^ /relation/ child element+ , identificationMiscellaneous :: (Maybe Miscellaneous) -- ^ /miscellaneous/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Identification where+ emitXml (Identification a b c d e f) =+ XContent XEmpty+ []+ (map (XElement (QN "creator" Nothing).emitXml) a +++ map (XElement (QN "rights" Nothing).emitXml) b +++ [maybe XEmpty (XElement (QN "encoding" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "source" Nothing).emitXml) d] +++ map (XElement (QN "relation" Nothing).emitXml) e +++ [maybe XEmpty (XElement (QN "miscellaneous" Nothing).emitXml) f])+parseIdentification :: P.XParse Identification+parseIdentification = + Identification+ <$> P.many (P.xchild (P.name "creator") (parseTypedText))+ <*> P.many (P.xchild (P.name "rights") (parseTypedText))+ <*> P.optional (P.xchild (P.name "encoding") (parseEncoding))+ <*> P.optional (P.xchild (P.name "source") (P.xtext >>= return))+ <*> P.many (P.xchild (P.name "relation") (parseTypedText))+ <*> P.optional (P.xchild (P.name "miscellaneous") (parseMiscellaneous))++-- | Smart constructor for 'Identification'+mkIdentification :: Identification+mkIdentification = Identification [] [] Nothing Nothing [] Nothing++-- | @image@ /(complex)/+--+-- The image type is used to include graphical images in a score.+data Image = + Image {+ imageSource :: String -- ^ /source/ attribute+ , imageType :: Token -- ^ /type/ attribute+ , imageDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , imageDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , imageRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , imageRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , imageHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , imageValign :: (Maybe ValignImage) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Image where+ emitXml (Image a b c d e f g h) =+ XContent XEmpty+ ([XAttr (QN "source" Nothing) (emitXml a)] +++ [XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) h])+ []+parseImage :: P.XParse Image+parseImage = + Image+ <$> (P.xattr (P.name "source") >>= return)+ <*> (P.xattr (P.name "type") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValignImage)++-- | Smart constructor for 'Image'+mkImage :: String -> Token -> Image+mkImage a b = Image a b Nothing Nothing Nothing Nothing Nothing Nothing++-- | @instrument@ /(complex)/+--+-- The instrument type distinguishes between score-instrument elements in a score-part. The id attribute is an IDREF back to the score-instrument ID. If multiple score-instruments are specified on a score-part, there should be an instrument element for each note in the part.+data Instrument = + Instrument {+ instrumentId :: IDREF -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Instrument where+ emitXml (Instrument a) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ []+parseInstrument :: P.XParse Instrument+parseInstrument = + Instrument+ <$> (P.xattr (P.name "id") >>= parseIDREF)++-- | Smart constructor for 'Instrument'+mkInstrument :: IDREF -> Instrument+mkInstrument a = Instrument a++-- | @interchangeable@ /(complex)/+--+-- The interchangeable type is used to represent the second in a pair of interchangeable dual time signatures, such as the 6/8 in 3/4 (6/8). A separate symbol attribute value is available compared to the time element's symbol attribute, which applies to the first of the dual time signatures. The parentheses attribute value is yes by default.+data Interchangeable = + Interchangeable {+ interchangeableSymbol :: (Maybe TimeSymbol) -- ^ /symbol/ attribute+ , interchangeableSeparator :: (Maybe TimeSeparator) -- ^ /separator/ attribute+ , interchangeableTimeRelation :: (Maybe TimeRelation) -- ^ /time-relation/ child element+ , interchangeableTimeSignature :: [TimeSignature]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Interchangeable where+ emitXml (Interchangeable a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "symbol" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "separator" Nothing).emitXml) b])+ ([maybe XEmpty (XElement (QN "time-relation" Nothing).emitXml) c] +++ [emitXml d])+parseInterchangeable :: P.XParse Interchangeable+parseInterchangeable = + Interchangeable+ <$> P.optional (P.xattr (P.name "symbol") >>= parseTimeSymbol)+ <*> P.optional (P.xattr (P.name "separator") >>= parseTimeSeparator)+ <*> P.optional (P.xchild (P.name "time-relation") (P.xtext >>= parseTimeRelation))+ <*> P.many (parseTimeSignature)++-- | Smart constructor for 'Interchangeable'+mkInterchangeable :: Interchangeable+mkInterchangeable = Interchangeable Nothing Nothing Nothing []++-- | @inversion@ /(complex)/+--+-- The inversion type represents harmony inversions. The value is a number indicating which inversion is used: 0 for root position, 1 for first inversion, etc.+data Inversion = + Inversion {+ inversionNonNegativeInteger :: NonNegativeInteger -- ^ text content+ , inversionDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , inversionDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , inversionRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , inversionRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , inversionFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , inversionFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , inversionFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , inversionFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , inversionColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Inversion where+ emitXml (Inversion a b c d e f g h i j) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j])+ []+parseInversion :: P.XParse Inversion+parseInversion = + Inversion+ <$> (P.xtext >>= parseNonNegativeInteger)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Inversion'+mkInversion :: NonNegativeInteger -> Inversion+mkInversion a = Inversion a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @key@ /(complex)/+--+-- The key type represents a key signature. Both traditional and non-traditional key signatures are supported. The optional number attribute refers to staff numbers. If absent, the key signature applies to all staves in the part. Key signatures appear at the start of each system unless the print-object attribute has been set to "no".+data Key = + Key {+ keyNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , keyDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , keyDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , keyRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , keyRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , keyFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , keyFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , keyFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , keyFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , keyColor :: (Maybe Color) -- ^ /color/ attribute+ , keyPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , keyKey :: ChxKey+ , keyKeyOctave :: [KeyOctave] -- ^ /key-octave/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Key where+ emitXml (Key a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) k])+ ([emitXml l] +++ map (XElement (QN "key-octave" Nothing).emitXml) m)+parseKey :: P.XParse Key+parseKey = + Key+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> parseChxKey+ <*> P.many (P.xchild (P.name "key-octave") (parseKeyOctave))++-- | Smart constructor for 'Key'+mkKey :: ChxKey -> Key+mkKey l = Key Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing l []++-- | @key-octave@ /(complex)/+--+-- The key-octave element specifies in which octave an element of a key signature appears. The content specifies the octave value using the same values as the display-octave element. The number attribute is a positive integer that refers to the key signature element in left-to-right order. If the cancel attribute is set to yes, then this number refers to an element specified by the cancel element. It is no by default.+data KeyOctave = + KeyOctave {+ keyOctaveOctave :: Octave -- ^ text content+ , keyOctaveNumber :: PositiveInteger -- ^ /number/ attribute+ , keyOctaveCancel :: (Maybe YesNo) -- ^ /cancel/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml KeyOctave where+ emitXml (KeyOctave a b c) =+ XContent (emitXml a)+ ([XAttr (QN "number" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "cancel" Nothing).emitXml) c])+ []+parseKeyOctave :: P.XParse KeyOctave+parseKeyOctave = + KeyOctave+ <$> (P.xtext >>= parseOctave)+ <*> (P.xattr (P.name "number") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "cancel") >>= parseYesNo)++-- | Smart constructor for 'KeyOctave'+mkKeyOctave :: Octave -> PositiveInteger -> KeyOctave+mkKeyOctave a b = KeyOctave a b Nothing++-- | @kind@ /(complex)/+--+-- Kind indicates the type of chord. Degree elements can then add, subtract, or alter from these starting points+--+-- @+-- +-- The attributes are used to indicate the formatting of the symbol. Since the kind element is the constant in all the harmony-chord groups that can make up a polychord, many formatting attributes are here.+-- +-- The use-symbols attribute is yes if the kind should be represented when possible with harmony symbols rather than letters and numbers. These symbols include:+-- +-- major: a triangle, like Unicode 25B3+-- minor: -, like Unicode 002D+-- augmented: +, like Unicode 002B+-- diminished: °, like Unicode 00B0+-- half-diminished: ø, like Unicode 00F8+-- +-- For the major-minor kind, only the minor symbol is used when use-symbols is yes. The major symbol is set using the symbol attribute in the degree-value element. The corresponding degree-alter value will usually be 0 in this case.+-- +-- The text attribute describes how the kind should be spelled in a score. If use-symbols is yes, the value of the text attribute follows the symbol. The stack-degrees attribute is yes if the degree elements should be stacked above each other. The parentheses-degrees attribute is yes if all the degrees should be in parentheses. The bracket-degrees attribute is yes if all the degrees should be in a bracket. If not specified, these values are implementation-specific. The alignment attributes are for the entire harmony-chord group of which this kind element is a part.+-- @+data Kind = + Kind {+ kindKindValue :: KindValue -- ^ text content+ , kindUseSymbols :: (Maybe YesNo) -- ^ /use-symbols/ attribute+ , kindText :: (Maybe Token) -- ^ /text/ attribute+ , kindStackDegrees :: (Maybe YesNo) -- ^ /stack-degrees/ attribute+ , kindParenthesesDegrees :: (Maybe YesNo) -- ^ /parentheses-degrees/ attribute+ , kindBracketDegrees :: (Maybe YesNo) -- ^ /bracket-degrees/ attribute+ , kindDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , kindDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , kindRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , kindRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , kindFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , kindFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , kindFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , kindFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , kindColor :: (Maybe Color) -- ^ /color/ attribute+ , kindHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , kindValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Kind where+ emitXml (Kind a b c d e f g h i j k l m n o p q) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "use-symbols" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "text" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "stack-degrees" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "parentheses-degrees" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "bracket-degrees" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) q])+ []+parseKind :: P.XParse Kind+parseKind = + Kind+ <$> (P.xtext >>= parseKindValue)+ <*> P.optional (P.xattr (P.name "use-symbols") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "stack-degrees") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "parentheses-degrees") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "bracket-degrees") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'Kind'+mkKind :: KindValue -> Kind+mkKind a = Kind a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @level@ /(complex)/+--+-- The level type is used to specify editorial information for different MusicXML elements. If the reference attribute for the level element is yes, this indicates editorial information that is for display only and should not affect playback. For instance, a modern edition of older music may set reference="yes" on the attributes containing the music's original clef, key, and time signature. It is no by default.+data Level = + Level {+ levelString :: String -- ^ text content+ , levelReference :: (Maybe YesNo) -- ^ /reference/ attribute+ , levelParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , levelBracket :: (Maybe YesNo) -- ^ /bracket/ attribute+ , levelSize :: (Maybe SymbolSize) -- ^ /size/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Level where+ emitXml (Level a b c d e) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "reference" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "bracket" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "size" Nothing).emitXml) e])+ []+parseLevel :: P.XParse Level+parseLevel = + Level+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "reference") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "bracket") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "size") >>= parseSymbolSize)++-- | Smart constructor for 'Level'+mkLevel :: String -> Level+mkLevel a = Level a Nothing Nothing Nothing Nothing++-- | @line-width@ /(complex)/+--+-- The line-width type indicates the width of a line type in tenths. The type attribute defines what type of line is being defined. Values include beam, bracket, dashes, enclosure, ending, extend, heavy barline, leger, light barline, octave shift, pedal, slur middle, slur tip, staff, stem, tie middle, tie tip, tuplet bracket, and wedge. The text content is expressed in tenths.+data LineWidth = + LineWidth {+ lineWidthTenths :: Tenths -- ^ text content+ , cmplineWidthType :: LineWidthType -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml LineWidth where+ emitXml (LineWidth a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseLineWidth :: P.XParse LineWidth+parseLineWidth = + LineWidth+ <$> (P.xtext >>= parseTenths)+ <*> (P.xattr (P.name "type") >>= parseLineWidthType)++-- | Smart constructor for 'LineWidth'+mkLineWidth :: Tenths -> LineWidthType -> LineWidth+mkLineWidth a b = LineWidth a b++-- | @link@ /(complex)/+--+-- The link type serves as an outgoing simple XLink. It is also used to connect a MusicXML score with a MusicXML opus. If a relative link is used within a document that is part of a compressed MusicXML file, the link is relative to the root folder of the zip file.+data Link = + Link {+ linkName :: (Maybe Token) -- ^ /name/ attribute+ , linkHref :: String -- ^ /xlink:href/ attribute+ , linkType :: (Maybe Type) -- ^ /xlink:type/ attribute+ , linkRole :: (Maybe Token) -- ^ /xlink:role/ attribute+ , linkTitle :: (Maybe Token) -- ^ /xlink:title/ attribute+ , linkShow :: (Maybe SmpShow) -- ^ /xlink:show/ attribute+ , linkActuate :: (Maybe Actuate) -- ^ /xlink:actuate/ attribute+ , linkElement :: (Maybe NMTOKEN) -- ^ /element/ attribute+ , linkPosition :: (Maybe PositiveInteger) -- ^ /position/ attribute+ , linkDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , linkDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , linkRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , linkRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Link where+ emitXml (Link a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "name" Nothing).emitXml) a] +++ [XAttr (QN "href" (Just "xlink")) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "type" (Just "xlink")).emitXml) c] +++ [maybe XEmpty (XAttr (QN "role" (Just "xlink")).emitXml) d] +++ [maybe XEmpty (XAttr (QN "title" (Just "xlink")).emitXml) e] +++ [maybe XEmpty (XAttr (QN "show" (Just "xlink")).emitXml) f] +++ [maybe XEmpty (XAttr (QN "actuate" (Just "xlink")).emitXml) g] +++ [maybe XEmpty (XAttr (QN "element" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "position" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) m])+ []+parseLink :: P.XParse Link+parseLink = + Link+ <$> P.optional (P.xattr (P.name "name") >>= parseToken)+ <*> (P.xattr (P.name "xlink:href") >>= return)+ <*> P.optional (P.xattr (P.name "xlink:type") >>= parseType)+ <*> P.optional (P.xattr (P.name "xlink:role") >>= parseToken)+ <*> P.optional (P.xattr (P.name "xlink:title") >>= parseToken)+ <*> P.optional (P.xattr (P.name "xlink:show") >>= parseSmpShow)+ <*> P.optional (P.xattr (P.name "xlink:actuate") >>= parseActuate)+ <*> P.optional (P.xattr (P.name "element") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "position") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)++-- | Smart constructor for 'Link'+mkLink :: String -> Link+mkLink b = Link Nothing b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @lyric@ /(complex)/+--+-- The lyric type represents text underlays for lyrics, based on Humdrum with support for other formats. Two text elements that are not separated by an elision element are part of the same syllable, but may have different text formatting. The MusicXML 2.0 XSD is more strict than the 2.0 DTD in enforcing this by disallowing a second syllabic element unless preceded by an elision element. The lyric number indicates multiple lines, though a name can be used as well (as in Finale's verse / chorus / section specification). Justification is center by default; placement is below by default. The content of the elision type is used to specify the symbol used to display the elision. Common values are a no-break space (Unicode 00A0), an underscore (Unicode 005F), or an undertie (Unicode 203F).+data Lyric = + Lyric {+ lyricNumber :: (Maybe NMTOKEN) -- ^ /number/ attribute+ , lyricName :: (Maybe Token) -- ^ /name/ attribute+ , lyricJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ , lyricDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , lyricDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , lyricRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , lyricRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , lyricPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , lyricColor :: (Maybe Color) -- ^ /color/ attribute+ , lyricPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , lyricLyric :: ChxLyric+ , lyricEndLine :: (Maybe Empty) -- ^ /end-line/ child element+ , lyricEndParagraph :: (Maybe Empty) -- ^ /end-paragraph/ child element+ , lyricEditorial :: Editorial+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Lyric where+ emitXml (Lyric a b c d e f g h i j k l m n) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "name" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) j])+ ([emitXml k] +++ [maybe XEmpty (XElement (QN "end-line" Nothing).emitXml) l] +++ [maybe XEmpty (XElement (QN "end-paragraph" Nothing).emitXml) m] +++ [emitXml n])+parseLyric :: P.XParse Lyric+parseLyric = + Lyric+ <$> P.optional (P.xattr (P.name "number") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "name") >>= parseToken)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> parseChxLyric+ <*> P.optional (P.xchild (P.name "end-line") (parseEmpty))+ <*> P.optional (P.xchild (P.name "end-paragraph") (parseEmpty))+ <*> parseEditorial++-- | Smart constructor for 'Lyric'+mkLyric :: ChxLyric -> Editorial -> Lyric+mkLyric k n = Lyric Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing k Nothing Nothing n++-- | @lyric-font@ /(complex)/+--+-- The lyric-font type specifies the default font for a particular name and number of lyric.+data LyricFont = + LyricFont {+ lyricFontNumber :: (Maybe NMTOKEN) -- ^ /number/ attribute+ , lyricFontName :: (Maybe Token) -- ^ /name/ attribute+ , lyricFontFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , lyricFontFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , lyricFontFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , lyricFontFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml LyricFont where+ emitXml (LyricFont a b c d e f) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "name" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) f])+ []+parseLyricFont :: P.XParse LyricFont+parseLyricFont = + LyricFont+ <$> P.optional (P.xattr (P.name "number") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "name") >>= parseToken)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)++-- | Smart constructor for 'LyricFont'+mkLyricFont :: LyricFont+mkLyricFont = LyricFont Nothing Nothing Nothing Nothing Nothing Nothing++-- | @lyric-language@ /(complex)/+--+-- The lyric-language type specifies the default language for a particular name and number of lyric.+data LyricLanguage = + LyricLanguage {+ lyricLanguageNumber :: (Maybe NMTOKEN) -- ^ /number/ attribute+ , lyricLanguageName :: (Maybe Token) -- ^ /name/ attribute+ , lyricLanguageLang :: Lang -- ^ /xml:lang/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml LyricLanguage where+ emitXml (LyricLanguage a b c) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "name" Nothing).emitXml) b] +++ [XAttr (QN "lang" (Just "xml")) (emitXml c)])+ []+parseLyricLanguage :: P.XParse LyricLanguage+parseLyricLanguage = + LyricLanguage+ <$> P.optional (P.xattr (P.name "number") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "name") >>= parseToken)+ <*> (P.xattr (P.name "xml:lang") >>= parseLang)++-- | Smart constructor for 'LyricLanguage'+mkLyricLanguage :: Lang -> LyricLanguage+mkLyricLanguage c = LyricLanguage Nothing Nothing c++-- | @measure@ /(complex)/+data Measure = + Measure {+ measureNumber :: Token -- ^ /number/ attribute+ , measureImplicit :: (Maybe YesNo) -- ^ /implicit/ attribute+ , measureNonControlling :: (Maybe YesNo) -- ^ /non-controlling/ attribute+ , measureWidth :: (Maybe Tenths) -- ^ /width/ attribute+ , measureMusicData :: MusicData+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Measure where+ emitXml (Measure a b c d e) =+ XContent XEmpty+ ([XAttr (QN "number" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "implicit" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "non-controlling" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "width" Nothing).emitXml) d])+ ([emitXml e])+parseMeasure :: P.XParse Measure+parseMeasure = + Measure+ <$> (P.xattr (P.name "number") >>= parseToken)+ <*> P.optional (P.xattr (P.name "implicit") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "non-controlling") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "width") >>= parseTenths)+ <*> parseMusicData++-- | Smart constructor for 'Measure'+mkMeasure :: Token -> MusicData -> Measure+mkMeasure a e = Measure a Nothing Nothing Nothing e++-- | @measure@ /(complex)/++-- mangled: 1+data CmpMeasure = + CmpMeasure {+ cmpmeasureNumber :: Token -- ^ /number/ attribute+ , cmpmeasureImplicit :: (Maybe YesNo) -- ^ /implicit/ attribute+ , cmpmeasureNonControlling :: (Maybe YesNo) -- ^ /non-controlling/ attribute+ , cmpmeasureWidth :: (Maybe Tenths) -- ^ /width/ attribute+ , measurePart :: [Part] -- ^ /part/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml CmpMeasure where+ emitXml (CmpMeasure a b c d e) =+ XContent XEmpty+ ([XAttr (QN "number" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "implicit" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "non-controlling" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "width" Nothing).emitXml) d])+ (map (XElement (QN "part" Nothing).emitXml) e)+parseCmpMeasure :: P.XParse CmpMeasure+parseCmpMeasure = + CmpMeasure+ <$> (P.xattr (P.name "number") >>= parseToken)+ <*> P.optional (P.xattr (P.name "implicit") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "non-controlling") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "width") >>= parseTenths)+ <*> P.many (P.xchild (P.name "part") (parsePart))++-- | Smart constructor for 'CmpMeasure'+mkCmpMeasure :: Token -> CmpMeasure+mkCmpMeasure a = CmpMeasure a Nothing Nothing Nothing []++-- | @measure-layout@ /(complex)/+--+-- The measure-layout type includes the horizontal distance from the previous measure.+data MeasureLayout = + MeasureLayout {+ measureLayoutMeasureDistance :: (Maybe Tenths) -- ^ /measure-distance/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MeasureLayout where+ emitXml (MeasureLayout a) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "measure-distance" Nothing).emitXml) a])+parseMeasureLayout :: P.XParse MeasureLayout+parseMeasureLayout = + MeasureLayout+ <$> P.optional (P.xchild (P.name "measure-distance") (P.xtext >>= parseTenths))++-- | Smart constructor for 'MeasureLayout'+mkMeasureLayout :: MeasureLayout+mkMeasureLayout = MeasureLayout Nothing++-- | @measure-numbering@ /(complex)/+--+-- The measure-numbering type describes how frequently measure numbers are displayed on this part. The number attribute from the measure element is used for printing. Measures with an implicit attribute set to "yes" never display a measure number, regardless of the measure-numbering setting.+data MeasureNumbering = + MeasureNumbering {+ measureNumberingMeasureNumberingValue :: MeasureNumberingValue -- ^ text content+ , measureNumberingDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , measureNumberingDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , measureNumberingRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , measureNumberingRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , measureNumberingFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , measureNumberingFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , measureNumberingFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , measureNumberingFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , measureNumberingColor :: (Maybe Color) -- ^ /color/ attribute+ , measureNumberingHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , measureNumberingValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MeasureNumbering where+ emitXml (MeasureNumbering a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l])+ []+parseMeasureNumbering :: P.XParse MeasureNumbering+parseMeasureNumbering = + MeasureNumbering+ <$> (P.xtext >>= parseMeasureNumberingValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'MeasureNumbering'+mkMeasureNumbering :: MeasureNumberingValue -> MeasureNumbering+mkMeasureNumbering a = MeasureNumbering a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @measure-repeat@ /(complex)/+--+-- The measure-repeat type is used for both single and multiple measure repeats. The text of the element indicates the number of measures to be repeated in a single pattern. The slashes attribute specifies the number of slashes to use in the repeat sign. It is 1 if not specified. Both the start and the stop of the measure-repeat must be specified. The text of the element is ignored when the type is stop.+-- +-- The measure-repeat element specifies a notation style for repetitions. The actual music being repeated needs to be repeated within the MusicXML file. This element specifies the notation that indicates the repeat.+data MeasureRepeat = + MeasureRepeat {+ measureRepeatPositiveIntegerOrEmpty :: PositiveIntegerOrEmpty -- ^ text content+ , measureRepeatType :: StartStop -- ^ /type/ attribute+ , measureRepeatSlashes :: (Maybe PositiveInteger) -- ^ /slashes/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MeasureRepeat where+ emitXml (MeasureRepeat a b c) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "slashes" Nothing).emitXml) c])+ []+parseMeasureRepeat :: P.XParse MeasureRepeat+parseMeasureRepeat = + MeasureRepeat+ <$> (P.xtext >>= parsePositiveIntegerOrEmpty)+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "slashes") >>= parsePositiveInteger)++-- | Smart constructor for 'MeasureRepeat'+mkMeasureRepeat :: PositiveIntegerOrEmpty -> StartStop -> MeasureRepeat+mkMeasureRepeat a b = MeasureRepeat a b Nothing++-- | @measure-style@ /(complex)/+--+-- A measure-style indicates a special way to print partial to multiple measures within a part. This includes multiple rests over several measures, repeats of beats, single, or multiple measures, and use of slash notation.+-- +-- The multiple-rest and measure-repeat symbols indicate the number of measures covered in the element content. The beat-repeat and slash elements can cover partial measures. All but the multiple-rest element use a type attribute to indicate starting and stopping the use of the style. The optional number attribute specifies the staff number from top to bottom on the system, as with clef.+data MeasureStyle = + MeasureStyle {+ measureStyleNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , measureStyleFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , measureStyleFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , measureStyleFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , measureStyleFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , measureStyleColor :: (Maybe Color) -- ^ /color/ attribute+ , measureStyleMeasureStyle :: ChxMeasureStyle+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MeasureStyle where+ emitXml (MeasureStyle a b c d e f g) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ ([emitXml g])+parseMeasureStyle :: P.XParse MeasureStyle+parseMeasureStyle = + MeasureStyle+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> parseChxMeasureStyle++-- | Smart constructor for 'MeasureStyle'+mkMeasureStyle :: ChxMeasureStyle -> MeasureStyle+mkMeasureStyle g = MeasureStyle Nothing Nothing Nothing Nothing Nothing Nothing g++-- | @metronome@ /(complex)/+--+-- The metronome type represents metronome marks and other metric relationships. The beat-unit group and per-minute element specify regular metronome marks. The metronome-note and metronome-relation elements allow for the specification of more complicated metric relationships, such as swing tempo marks where two eighths are equated to a quarter note / eighth note triplet. The parentheses attribute indicates whether or not to put the metronome mark in parentheses; its value is no if not specified.+data Metronome = + Metronome {+ metronomeParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , metronomeDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , metronomeDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , metronomeRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , metronomeRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , metronomeFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , metronomeFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , metronomeFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , metronomeFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , metronomeColor :: (Maybe Color) -- ^ /color/ attribute+ , metronomeHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , metronomeValign :: (Maybe Valign) -- ^ /valign/ attribute+ , metronomeJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ , metronomeMetronome :: ChxMetronome+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Metronome where+ emitXml (Metronome a b c d e f g h i j k l m n) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) m])+ ([emitXml n])+parseMetronome :: P.XParse Metronome+parseMetronome = + Metronome+ <$> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)+ <*> parseChxMetronome++-- | Smart constructor for 'Metronome'+mkMetronome :: ChxMetronome -> Metronome+mkMetronome n = Metronome Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing n++-- | @metronome-beam@ /(complex)/+--+-- The metronome-beam type works like the beam type in defining metric relationships, but does not include all the attributes available in the beam type.+data MetronomeBeam = + MetronomeBeam {+ metronomeBeamBeamValue :: BeamValue -- ^ text content+ , metronomeBeamNumber :: (Maybe BeamLevel) -- ^ /number/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MetronomeBeam where+ emitXml (MetronomeBeam a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b])+ []+parseMetronomeBeam :: P.XParse MetronomeBeam+parseMetronomeBeam = + MetronomeBeam+ <$> (P.xtext >>= parseBeamValue)+ <*> P.optional (P.xattr (P.name "number") >>= parseBeamLevel)++-- | Smart constructor for 'MetronomeBeam'+mkMetronomeBeam :: BeamValue -> MetronomeBeam+mkMetronomeBeam a = MetronomeBeam a Nothing++-- | @metronome-note@ /(complex)/+--+-- The metronome-note type defines the appearance of a note within a metric relationship mark.+data MetronomeNote = + MetronomeNote {+ metronomeNoteMetronomeType :: NoteTypeValue -- ^ /metronome-type/ child element+ , metronomeNoteMetronomeDot :: [Empty] -- ^ /metronome-dot/ child element+ , metronomeNoteMetronomeBeam :: [MetronomeBeam] -- ^ /metronome-beam/ child element+ , metronomeNoteMetronomeTuplet :: (Maybe MetronomeTuplet) -- ^ /metronome-tuplet/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MetronomeNote where+ emitXml (MetronomeNote a b c d) =+ XContent XEmpty+ []+ ([XElement (QN "metronome-type" Nothing) (emitXml a)] +++ map (XElement (QN "metronome-dot" Nothing).emitXml) b +++ map (XElement (QN "metronome-beam" Nothing).emitXml) c +++ [maybe XEmpty (XElement (QN "metronome-tuplet" Nothing).emitXml) d])+parseMetronomeNote :: P.XParse MetronomeNote+parseMetronomeNote = + MetronomeNote+ <$> (P.xchild (P.name "metronome-type") (P.xtext >>= parseNoteTypeValue))+ <*> P.many (P.xchild (P.name "metronome-dot") (parseEmpty))+ <*> P.many (P.xchild (P.name "metronome-beam") (parseMetronomeBeam))+ <*> P.optional (P.xchild (P.name "metronome-tuplet") (parseMetronomeTuplet))++-- | Smart constructor for 'MetronomeNote'+mkMetronomeNote :: NoteTypeValue -> MetronomeNote+mkMetronomeNote a = MetronomeNote a [] [] Nothing++-- | @metronome-tuplet@ /(complex)/+--+-- The metronome-tuplet type uses the same element structure as the time-modification element along with some attributes from the tuplet element.+data MetronomeTuplet = + MetronomeTuplet {+ metronomeTupletTimeModification :: MetronomeTuplet+ , metronomeTupletType :: StartStop -- ^ /type/ attribute+ , metronomeTupletBracket :: (Maybe YesNo) -- ^ /bracket/ attribute+ , metronomeTupletShowNumber :: (Maybe ShowTuplet) -- ^ /show-number/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MetronomeTuplet where+ emitXml (MetronomeTuplet a b c d) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "bracket" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "show-number" Nothing).emitXml) d])+ ([emitXml a])+parseMetronomeTuplet :: P.XParse MetronomeTuplet+parseMetronomeTuplet = + MetronomeTuplet+ <$> parseMetronomeTuplet+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "bracket") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "show-number") >>= parseShowTuplet)++-- | Smart constructor for 'MetronomeTuplet'+mkMetronomeTuplet :: MetronomeTuplet -> StartStop -> MetronomeTuplet+mkMetronomeTuplet a b = MetronomeTuplet a b Nothing Nothing++-- | @midi-device@ /(complex)/+--+-- The midi-device type corresponds to the DeviceName meta event in Standard MIDI Files. The optional port attribute is a number from 1 to 16 that can be used with the unofficial MIDI port (or cable) meta event. Unlike the DeviceName meta event, there can be multiple midi-device elements per MusicXML part starting in MusicXML 3.0. The optional id attribute refers to the score-instrument assigned to this device. If missing, the device assignment affects all score-instrument elements in the score-part.+data MidiDevice = + MidiDevice {+ midiDeviceString :: String -- ^ text content+ , midiDevicePort :: (Maybe Midi16) -- ^ /port/ attribute+ , midiDeviceId :: (Maybe IDREF) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MidiDevice where+ emitXml (MidiDevice a b c) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "port" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) c])+ []+parseMidiDevice :: P.XParse MidiDevice+parseMidiDevice = + MidiDevice+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "port") >>= parseMidi16)+ <*> P.optional (P.xattr (P.name "id") >>= parseIDREF)++-- | Smart constructor for 'MidiDevice'+mkMidiDevice :: String -> MidiDevice+mkMidiDevice a = MidiDevice a Nothing Nothing++-- | @midi-instrument@ /(complex)/+--+-- The midi-instrument type defines MIDI 1.0 instrument playback. The midi-instrument element can be a part of either the score-instrument element at the start of a part, or the sound element within a part. The id attribute refers to the score-instrument affected by the change.+data MidiInstrument = + MidiInstrument {+ midiInstrumentId :: IDREF -- ^ /id/ attribute+ , midiInstrumentMidiChannel :: (Maybe Midi16) -- ^ /midi-channel/ child element+ , midiInstrumentMidiName :: (Maybe String) -- ^ /midi-name/ child element+ , midiInstrumentMidiBank :: (Maybe Midi16384) -- ^ /midi-bank/ child element+ , midiInstrumentMidiProgram :: (Maybe Midi128) -- ^ /midi-program/ child element+ , midiInstrumentMidiUnpitched :: (Maybe Midi128) -- ^ /midi-unpitched/ child element+ , midiInstrumentVolume :: (Maybe Percent) -- ^ /volume/ child element+ , midiInstrumentPan :: (Maybe RotationDegrees) -- ^ /pan/ child element+ , midiInstrumentElevation :: (Maybe RotationDegrees) -- ^ /elevation/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MidiInstrument where+ emitXml (MidiInstrument a b c d e f g h i) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ ([maybe XEmpty (XElement (QN "midi-channel" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "midi-name" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "midi-bank" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "midi-program" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "midi-unpitched" Nothing).emitXml) f] +++ [maybe XEmpty (XElement (QN "volume" Nothing).emitXml) g] +++ [maybe XEmpty (XElement (QN "pan" Nothing).emitXml) h] +++ [maybe XEmpty (XElement (QN "elevation" Nothing).emitXml) i])+parseMidiInstrument :: P.XParse MidiInstrument+parseMidiInstrument = + MidiInstrument+ <$> (P.xattr (P.name "id") >>= parseIDREF)+ <*> P.optional (P.xchild (P.name "midi-channel") (P.xtext >>= parseMidi16))+ <*> P.optional (P.xchild (P.name "midi-name") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "midi-bank") (P.xtext >>= parseMidi16384))+ <*> P.optional (P.xchild (P.name "midi-program") (P.xtext >>= parseMidi128))+ <*> P.optional (P.xchild (P.name "midi-unpitched") (P.xtext >>= parseMidi128))+ <*> P.optional (P.xchild (P.name "volume") (P.xtext >>= parsePercent))+ <*> P.optional (P.xchild (P.name "pan") (P.xtext >>= parseRotationDegrees))+ <*> P.optional (P.xchild (P.name "elevation") (P.xtext >>= parseRotationDegrees))++-- | Smart constructor for 'MidiInstrument'+mkMidiInstrument :: IDREF -> MidiInstrument+mkMidiInstrument a = MidiInstrument a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @miscellaneous@ /(complex)/+--+-- If a program has other metadata not yet supported in the MusicXML format, it can go in the miscellaneous element. The miscellaneous type puts each separate part of metadata into its own miscellaneous-field type.+data Miscellaneous = + Miscellaneous {+ miscellaneousMiscellaneousField :: [MiscellaneousField] -- ^ /miscellaneous-field/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Miscellaneous where+ emitXml (Miscellaneous a) =+ XContent XEmpty+ []+ (map (XElement (QN "miscellaneous-field" Nothing).emitXml) a)+parseMiscellaneous :: P.XParse Miscellaneous+parseMiscellaneous = + Miscellaneous+ <$> P.many (P.xchild (P.name "miscellaneous-field") (parseMiscellaneousField))++-- | Smart constructor for 'Miscellaneous'+mkMiscellaneous :: Miscellaneous+mkMiscellaneous = Miscellaneous []++-- | @miscellaneous-field@ /(complex)/+--+-- If a program has other metadata not yet supported in the MusicXML format, each type of metadata can go in a miscellaneous-field element. The required name attribute indicates the type of metadata the element content represents.+data MiscellaneousField = + MiscellaneousField {+ miscellaneousFieldString :: String -- ^ text content+ , miscellaneousFieldName :: Token -- ^ /name/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MiscellaneousField where+ emitXml (MiscellaneousField a b) =+ XContent (emitXml a)+ ([XAttr (QN "name" Nothing) (emitXml b)])+ []+parseMiscellaneousField :: P.XParse MiscellaneousField+parseMiscellaneousField = + MiscellaneousField+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "name") >>= parseToken)++-- | Smart constructor for 'MiscellaneousField'+mkMiscellaneousField :: String -> Token -> MiscellaneousField+mkMiscellaneousField a b = MiscellaneousField a b++-- | @mordent@ /(complex)/+--+-- The mordent type is used for both represents the mordent sign with the vertical line and the inverted-mordent sign without the line. The long attribute is "no" by default. The approach and departure attributes are used for compound ornaments, indicating how the beginning and ending of the ornament look relative to the main part of the mordent.+data Mordent = + Mordent {+ mordentEmptyTrillSound :: Mordent+ , mordentLong :: (Maybe YesNo) -- ^ /long/ attribute+ , mordentApproach :: (Maybe AboveBelow) -- ^ /approach/ attribute+ , mordentDeparture :: (Maybe AboveBelow) -- ^ /departure/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Mordent where+ emitXml (Mordent a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "long" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "approach" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "departure" Nothing).emitXml) d])+ ([emitXml a])+parseMordent :: P.XParse Mordent+parseMordent = + Mordent+ <$> parseMordent+ <*> P.optional (P.xattr (P.name "long") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "approach") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "departure") >>= parseAboveBelow)++-- | Smart constructor for 'Mordent'+mkMordent :: Mordent -> Mordent+mkMordent a = Mordent a Nothing Nothing Nothing++-- | @multiple-rest@ /(complex)/+--+-- The text of the multiple-rest type indicates the number of measures in the multiple rest. Multiple rests may use the 1-bar / 2-bar / 4-bar rest symbols, or a single shape. The use-symbols attribute indicates which to use; it is no if not specified. The element text is ignored when the type is stop.+data MultipleRest = + MultipleRest {+ multipleRestPositiveIntegerOrEmpty :: PositiveIntegerOrEmpty -- ^ text content+ , multipleRestUseSymbols :: (Maybe YesNo) -- ^ /use-symbols/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MultipleRest where+ emitXml (MultipleRest a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "use-symbols" Nothing).emitXml) b])+ []+parseMultipleRest :: P.XParse MultipleRest+parseMultipleRest = + MultipleRest+ <$> (P.xtext >>= parsePositiveIntegerOrEmpty)+ <*> P.optional (P.xattr (P.name "use-symbols") >>= parseYesNo)++-- | Smart constructor for 'MultipleRest'+mkMultipleRest :: PositiveIntegerOrEmpty -> MultipleRest+mkMultipleRest a = MultipleRest a Nothing++-- | @name-display@ /(complex)/+--+-- The name-display type is used for exact formatting of multi-font text in part and group names to the left of the system. The print-object attribute can be used to determine what, if anything, is printed at the start of each system. Enclosure for the display-text element is none by default. Language for the display-text element is Italian ("it") by default.+data NameDisplay = + NameDisplay {+ nameDisplayPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , nameDisplayNameDisplay :: [ChxNameDisplay]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NameDisplay where+ emitXml (NameDisplay a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) a])+ ([emitXml b])+parseNameDisplay :: P.XParse NameDisplay+parseNameDisplay = + NameDisplay+ <$> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.many (parseChxNameDisplay)++-- | Smart constructor for 'NameDisplay'+mkNameDisplay :: NameDisplay+mkNameDisplay = NameDisplay Nothing []++-- | @non-arpeggiate@ /(complex)/+--+-- The non-arpeggiate type indicates that this note is at the top or bottom of a bracket indicating to not arpeggiate these notes. Since this does not involve playback, it is only used on the top or bottom notes, not on each note as for the arpeggiate type.+data NonArpeggiate = + NonArpeggiate {+ nonArpeggiateType :: TopBottom -- ^ /type/ attribute+ , nonArpeggiateNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , nonArpeggiateDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , nonArpeggiateDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , nonArpeggiateRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , nonArpeggiateRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , nonArpeggiatePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , nonArpeggiateColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NonArpeggiate where+ emitXml (NonArpeggiate a b c d e f g h) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h])+ []+parseNonArpeggiate :: P.XParse NonArpeggiate+parseNonArpeggiate = + NonArpeggiate+ <$> (P.xattr (P.name "type") >>= parseTopBottom)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'NonArpeggiate'+mkNonArpeggiate :: TopBottom -> NonArpeggiate+mkNonArpeggiate a = NonArpeggiate a Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @notations@ /(complex)/+--+-- Notations refer to musical notations, not XML notations. Multiple notations are allowed in order to represent multiple editorial levels. The print-object attribute, added in Version 3.0, allows notations to represent details of performance technique, such as fingerings, without having them appear in the score.+data Notations = + Notations {+ notationsPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , notationsEditorial :: Editorial+ , notationsNotations :: [ChxNotations]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Notations where+ emitXml (Notations a b c) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) a])+ ([emitXml b] +++ [emitXml c])+parseNotations :: P.XParse Notations+parseNotations = + Notations+ <$> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> parseEditorial+ <*> P.many (parseChxNotations)++-- | Smart constructor for 'Notations'+mkNotations :: Editorial -> Notations+mkNotations b = Notations Nothing b []++-- | @note@ /(complex)/+--+-- Notes are the most common type of MusicXML data. The MusicXML format keeps the MuseData distinction between elements used for sound information and elements used for notation information (e.g., tie is used for sound, tied for notation). Thus grace notes do not have a duration element. Cue notes have a duration element, as do forward elements, but no tie elements. Having these two types of information available can make interchange considerably easier, as some programs handle one type of information much more readily than the other. +-- +-- The dynamics and end-dynamics attributes correspond to MIDI 1.0's Note On and Note Off velocities, respectively. They are expressed in terms of percentages of the default forte value (90 for MIDI 1.0). The attack and release attributes are used to alter the starting and stopping time of the note from when it would otherwise occur based on the flow of durations - information that is specific to a performance. They are expressed in terms of divisions, either positive or negative. A note that starts a tie should not have a release attribute, and a note that stops a tie should not have an attack attribute. If a note is played only particular times through a repeat, the time-only attribute shows which times to play the note. The pizzicato attribute is used when just this note is sounded pizzicato, vs. the pizzicato element which changes overall playback between pizzicato and arco.+data Note = + Note {+ noteDynamics :: (Maybe NonNegativeDecimal) -- ^ /dynamics/ attribute+ , noteEndDynamics :: (Maybe NonNegativeDecimal) -- ^ /end-dynamics/ attribute+ , noteAttack :: (Maybe Divisions) -- ^ /attack/ attribute+ , noteRelease :: (Maybe Divisions) -- ^ /release/ attribute+ , noteTimeOnly :: (Maybe TimeOnly) -- ^ /time-only/ attribute+ , notePizzicato :: (Maybe YesNo) -- ^ /pizzicato/ attribute+ , noteDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , noteDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , noteRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , noteRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , noteFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , noteFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , noteFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , noteFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , noteColor :: (Maybe Color) -- ^ /color/ attribute+ , notePrintDot :: (Maybe YesNo) -- ^ /print-dot/ attribute+ , notePrintLyric :: (Maybe YesNo) -- ^ /print-lyric/ attribute+ , notePrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , notePrintSpacing :: (Maybe YesNo) -- ^ /print-spacing/ attribute+ , noteNote :: ChxNote+ , noteInstrument :: (Maybe Instrument) -- ^ /instrument/ child element+ , noteEditorialVoice :: EditorialVoice+ , noteType :: (Maybe NoteType) -- ^ /type/ child element+ , noteDot :: [EmptyPlacement] -- ^ /dot/ child element+ , noteAccidental :: (Maybe Accidental) -- ^ /accidental/ child element+ , noteTimeModification :: (Maybe TimeModification) -- ^ /time-modification/ child element+ , noteStem :: (Maybe Stem) -- ^ /stem/ child element+ , noteNotehead :: (Maybe Notehead) -- ^ /notehead/ child element+ , noteNoteheadText :: (Maybe NoteheadText) -- ^ /notehead-text/ child element+ , noteStaff :: (Maybe Staff)+ , noteBeam :: [Beam] -- ^ /beam/ child element+ , noteNotations :: [Notations] -- ^ /notations/ child element+ , noteLyric :: [Lyric] -- ^ /lyric/ child element+ , notePlay :: (Maybe Play) -- ^ /play/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Note where+ emitXml (Note a b c d e f g h i j k l m n o p q r s t u v w x y z a1 b1 c1 d1 e1 f1 g1 h1) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "dynamics" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "end-dynamics" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "attack" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "release" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "time-only" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "pizzicato" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "print-dot" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "print-lyric" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "print-spacing" Nothing).emitXml) s])+ ([emitXml t] +++ [maybe XEmpty (XElement (QN "instrument" Nothing).emitXml) u] +++ [emitXml v] +++ [maybe XEmpty (XElement (QN "type" Nothing).emitXml) w] +++ map (XElement (QN "dot" Nothing).emitXml) x +++ [maybe XEmpty (XElement (QN "accidental" Nothing).emitXml) y] +++ [maybe XEmpty (XElement (QN "time-modification" Nothing).emitXml) z] +++ [maybe XEmpty (XElement (QN "stem" Nothing).emitXml) a1] +++ [maybe XEmpty (XElement (QN "notehead" Nothing).emitXml) b1] +++ [maybe XEmpty (XElement (QN "notehead-text" Nothing).emitXml) c1] +++ [emitXml d1] +++ map (XElement (QN "beam" Nothing).emitXml) e1 +++ map (XElement (QN "notations" Nothing).emitXml) f1 +++ map (XElement (QN "lyric" Nothing).emitXml) g1 +++ [maybe XEmpty (XElement (QN "play" Nothing).emitXml) h1])+parseNote :: P.XParse Note+parseNote = + Note+ <$> P.optional (P.xattr (P.name "dynamics") >>= parseNonNegativeDecimal)+ <*> P.optional (P.xattr (P.name "end-dynamics") >>= parseNonNegativeDecimal)+ <*> P.optional (P.xattr (P.name "attack") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "release") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "time-only") >>= parseTimeOnly)+ <*> P.optional (P.xattr (P.name "pizzicato") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-dot") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-lyric") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-spacing") >>= parseYesNo)+ <*> parseChxNote+ <*> P.optional (P.xchild (P.name "instrument") (parseInstrument))+ <*> parseEditorialVoice+ <*> P.optional (P.xchild (P.name "type") (parseNoteType))+ <*> P.many (P.xchild (P.name "dot") (parseEmptyPlacement))+ <*> P.optional (P.xchild (P.name "accidental") (parseAccidental))+ <*> P.optional (P.xchild (P.name "time-modification") (parseTimeModification))+ <*> P.optional (P.xchild (P.name "stem") (parseStem))+ <*> P.optional (P.xchild (P.name "notehead") (parseNotehead))+ <*> P.optional (P.xchild (P.name "notehead-text") (parseNoteheadText))+ <*> P.optional (parseStaff)+ <*> P.many (P.xchild (P.name "beam") (parseBeam))+ <*> P.many (P.xchild (P.name "notations") (parseNotations))+ <*> P.many (P.xchild (P.name "lyric") (parseLyric))+ <*> P.optional (P.xchild (P.name "play") (parsePlay))++-- | Smart constructor for 'Note'+mkNote :: ChxNote -> EditorialVoice -> Note+mkNote t v = Note Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing t Nothing v Nothing [] Nothing Nothing Nothing Nothing Nothing Nothing [] [] [] Nothing++-- | @note-size@ /(complex)/+--+-- The note-size type indicates the percentage of the regular note size to use for notes with a cue and large size as defined in the type element. The grace type is used for notes of cue size that that include a grace element. The cue type is used for all other notes with cue size, whether defined explicitly or implicitly via a cue element. The large type is used for notes of large size. The text content represent the numeric percentage. A value of 100 would be identical to the size of a regular note as defined by the music font.+data NoteSize = + NoteSize {+ noteSizeNonNegativeDecimal :: NonNegativeDecimal -- ^ text content+ , noteSizeType :: NoteSizeType -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NoteSize where+ emitXml (NoteSize a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseNoteSize :: P.XParse NoteSize+parseNoteSize = + NoteSize+ <$> (P.xtext >>= parseNonNegativeDecimal)+ <*> (P.xattr (P.name "type") >>= parseNoteSizeType)++-- | Smart constructor for 'NoteSize'+mkNoteSize :: NonNegativeDecimal -> NoteSizeType -> NoteSize+mkNoteSize a b = NoteSize a b++-- | @note-type@ /(complex)/+--+-- The note-type type indicates the graphic note type. Values range from 256th to long. The size attribute indicates full, cue, or large size, with full the default for regular notes and cue the default for cue and grace notes.+data NoteType = + NoteType {+ noteTypeNoteTypeValue :: NoteTypeValue -- ^ text content+ , noteTypeSize :: (Maybe SymbolSize) -- ^ /size/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NoteType where+ emitXml (NoteType a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "size" Nothing).emitXml) b])+ []+parseNoteType :: P.XParse NoteType+parseNoteType = + NoteType+ <$> (P.xtext >>= parseNoteTypeValue)+ <*> P.optional (P.xattr (P.name "size") >>= parseSymbolSize)++-- | Smart constructor for 'NoteType'+mkNoteType :: NoteTypeValue -> NoteType+mkNoteType a = NoteType a Nothing++-- | @notehead@ /(complex)/+--+-- The notehead element indicates shapes other than the open and closed ovals associated with note durations.+-- +-- For the enclosed shapes, the default is to be hollow for half notes and longer, and filled otherwise. The filled attribute can be set to change this if needed.+-- +-- If the parentheses attribute is set to yes, the notehead is parenthesized. It is no by default.+data Notehead = + Notehead {+ noteheadNoteheadValue :: NoteheadValue -- ^ text content+ , noteheadFilled :: (Maybe YesNo) -- ^ /filled/ attribute+ , noteheadParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , noteheadFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , noteheadFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , noteheadFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , noteheadFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , noteheadColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Notehead where+ emitXml (Notehead a b c d e f g h) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "filled" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h])+ []+parseNotehead :: P.XParse Notehead+parseNotehead = + Notehead+ <$> (P.xtext >>= parseNoteheadValue)+ <*> P.optional (P.xattr (P.name "filled") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Notehead'+mkNotehead :: NoteheadValue -> Notehead+mkNotehead a = Notehead a Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @notehead-text@ /(complex)/+--+-- The notehead-text type represents text that is displayed inside a notehead, as is done in some educational music. It is not needed for the numbers used in tablature or jianpu notation. The presence of a TAB or jianpu clefs is sufficient to indicate that numbers are used. The display-text and accidental-text elements allow display of fully formatted text and accidentals.+data NoteheadText = + NoteheadText {+ noteheadTextNoteheadText :: [ChxNoteheadText]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NoteheadText where+ emitXml (NoteheadText a) =+ XReps [emitXml a]+parseNoteheadText :: P.XParse NoteheadText+parseNoteheadText = + NoteheadText+ <$> P.many (parseChxNoteheadText)++-- | Smart constructor for 'NoteheadText'+mkNoteheadText :: NoteheadText+mkNoteheadText = NoteheadText []++-- | @octave-shift@ /(complex)/+--+-- The octave shift type indicates where notes are shifted up or down from their true pitched values because of printing difficulty. Thus a treble clef line noted with 8va will be indicated with an octave-shift down from the pitch data indicated in the notes. A size of 8 indicates one octave; a size of 15 indicates two octaves.+data OctaveShift = + OctaveShift {+ octaveShiftType :: UpDownStopContinue -- ^ /type/ attribute+ , octaveShiftNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , octaveShiftSize :: (Maybe PositiveInteger) -- ^ /size/ attribute+ , octaveShiftDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , octaveShiftSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , octaveShiftDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , octaveShiftDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , octaveShiftRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , octaveShiftRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , octaveShiftFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , octaveShiftFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , octaveShiftFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , octaveShiftFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , octaveShiftColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OctaveShift where+ emitXml (OctaveShift a b c d e f g h i j k l m n) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "size" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) n])+ []+parseOctaveShift :: P.XParse OctaveShift+parseOctaveShift = + OctaveShift+ <$> (P.xattr (P.name "type") >>= parseUpDownStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "size") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'OctaveShift'+mkOctaveShift :: UpDownStopContinue -> OctaveShift+mkOctaveShift a = OctaveShift a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @offset@ /(complex)/+--+-- An offset is represented in terms of divisions, and indicates where the direction will appear relative to the current musical location. This affects the visual appearance of the direction. If the sound attribute is "yes", then the offset affects playback too. If the sound attribute is "no", then any sound associated with the direction takes effect at the current location. The sound attribute is "no" by default for compatibility with earlier versions of the MusicXML format. If an element within a direction includes a default-x attribute, the offset value will be ignored when determining the appearance of that element.+data Offset = + Offset {+ offsetDivisions :: Divisions -- ^ text content+ , offsetSound :: (Maybe YesNo) -- ^ /sound/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Offset where+ emitXml (Offset a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "sound" Nothing).emitXml) b])+ []+parseOffset :: P.XParse Offset+parseOffset = + Offset+ <$> (P.xtext >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "sound") >>= parseYesNo)++-- | Smart constructor for 'Offset'+mkOffset :: Divisions -> Offset+mkOffset a = Offset a Nothing++-- | @opus@ /(complex)/+--+-- The opus type represents a link to a MusicXML opus document that composes multiple MusicXML scores into a collection.+data Opus = + Opus {+ opusHref :: String -- ^ /xlink:href/ attribute+ , opusType :: (Maybe Type) -- ^ /xlink:type/ attribute+ , opusRole :: (Maybe Token) -- ^ /xlink:role/ attribute+ , opusTitle :: (Maybe Token) -- ^ /xlink:title/ attribute+ , opusShow :: (Maybe SmpShow) -- ^ /xlink:show/ attribute+ , opusActuate :: (Maybe Actuate) -- ^ /xlink:actuate/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Opus where+ emitXml (Opus a b c d e f) =+ XContent XEmpty+ ([XAttr (QN "href" (Just "xlink")) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "type" (Just "xlink")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "role" (Just "xlink")).emitXml) c] +++ [maybe XEmpty (XAttr (QN "title" (Just "xlink")).emitXml) d] +++ [maybe XEmpty (XAttr (QN "show" (Just "xlink")).emitXml) e] +++ [maybe XEmpty (XAttr (QN "actuate" (Just "xlink")).emitXml) f])+ []+parseOpus :: P.XParse Opus+parseOpus = + Opus+ <$> (P.xattr (P.name "xlink:href") >>= return)+ <*> P.optional (P.xattr (P.name "xlink:type") >>= parseType)+ <*> P.optional (P.xattr (P.name "xlink:role") >>= parseToken)+ <*> P.optional (P.xattr (P.name "xlink:title") >>= parseToken)+ <*> P.optional (P.xattr (P.name "xlink:show") >>= parseSmpShow)+ <*> P.optional (P.xattr (P.name "xlink:actuate") >>= parseActuate)++-- | Smart constructor for 'Opus'+mkOpus :: String -> Opus+mkOpus a = Opus a Nothing Nothing Nothing Nothing Nothing++-- | @ornaments@ /(complex)/+--+-- Ornaments can be any of several types, followed optionally by accidentals. The accidental-mark element's content is represented the same as an accidental element, but with a different name to reflect the different musical meaning.+data Ornaments = + Ornaments {+ ornamentsOrnaments :: [SeqOrnaments]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Ornaments where+ emitXml (Ornaments a) =+ XReps [emitXml a]+parseOrnaments :: P.XParse Ornaments+parseOrnaments = + Ornaments+ <$> P.many (parseSeqOrnaments)++-- | Smart constructor for 'Ornaments'+mkOrnaments :: Ornaments+mkOrnaments = Ornaments []++-- | @other-appearance@ /(complex)/+--+-- The other-appearance type is used to define any graphical settings not yet in the current version of the MusicXML format. This allows extended representation, though without application interoperability.+data OtherAppearance = + OtherAppearance {+ otherAppearanceString :: String -- ^ text content+ , otherAppearanceType :: Token -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OtherAppearance where+ emitXml (OtherAppearance a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseOtherAppearance :: P.XParse OtherAppearance+parseOtherAppearance = + OtherAppearance+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseToken)++-- | Smart constructor for 'OtherAppearance'+mkOtherAppearance :: String -> Token -> OtherAppearance+mkOtherAppearance a b = OtherAppearance a b++-- | @other-direction@ /(complex)/+--+-- The other-direction type is used to define any direction symbols not yet in the current version of the MusicXML format. This allows extended representation, though without application interoperability.+data OtherDirection = + OtherDirection {+ otherDirectionString :: String -- ^ text content+ , otherDirectionPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , otherDirectionDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , otherDirectionDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , otherDirectionRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , otherDirectionRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , otherDirectionFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , otherDirectionFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , otherDirectionFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , otherDirectionFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , otherDirectionColor :: (Maybe Color) -- ^ /color/ attribute+ , otherDirectionHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , otherDirectionValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OtherDirection where+ emitXml (OtherDirection a b c d e f g h i j k l m) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) m])+ []+parseOtherDirection :: P.XParse OtherDirection+parseOtherDirection = + OtherDirection+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'OtherDirection'+mkOtherDirection :: String -> OtherDirection+mkOtherDirection a = OtherDirection a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @other-notation@ /(complex)/+--+-- The other-notation type is used to define any notations not yet in the MusicXML format. This allows extended representation, though without application interoperability. It handles notations where more specific extension elements such as other-dynamics and other-technical are not appropriate.+data OtherNotation = + OtherNotation {+ otherNotationString :: String -- ^ text content+ , otherNotationType :: StartStopSingle -- ^ /type/ attribute+ , otherNotationNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , otherNotationPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , otherNotationDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , otherNotationDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , otherNotationRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , otherNotationRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , otherNotationFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , otherNotationFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , otherNotationFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , otherNotationFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , otherNotationColor :: (Maybe Color) -- ^ /color/ attribute+ , otherNotationPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OtherNotation where+ emitXml (OtherNotation a b c d e f g h i j k l m n) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) n])+ []+parseOtherNotation :: P.XParse OtherNotation+parseOtherNotation = + OtherNotation+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseStartStopSingle)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'OtherNotation'+mkOtherNotation :: String -> StartStopSingle -> OtherNotation+mkOtherNotation a b = OtherNotation a b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @other-play@ /(complex)/+--+-- The other-play element represents other types of playback. The required type attribute indicates the type of playback to which the element content applies.+data OtherPlay = + OtherPlay {+ otherPlayString :: String -- ^ text content+ , otherPlayType :: Token -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OtherPlay where+ emitXml (OtherPlay a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseOtherPlay :: P.XParse OtherPlay+parseOtherPlay = + OtherPlay+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseToken)++-- | Smart constructor for 'OtherPlay'+mkOtherPlay :: String -> Token -> OtherPlay+mkOtherPlay a b = OtherPlay a b++-- | @page-layout@ /(complex)/+--+-- Page layout can be defined both in score-wide defaults and in the print element. Page margins are specified either for both even and odd pages, or via separate odd and even page number values. The type is not needed when used as part of a print element. If omitted when used in the defaults element, "both" is the default.+data PageLayout = + PageLayout {+ pageLayoutPageLayout :: (Maybe SeqPageLayout)+ , pageLayoutPageMargins :: [PageMargins] -- ^ /page-margins/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PageLayout where+ emitXml (PageLayout a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ map (XElement (QN "page-margins" Nothing).emitXml) b)+parsePageLayout :: P.XParse PageLayout+parsePageLayout = + PageLayout+ <$> P.optional (parseSeqPageLayout)+ <*> P.many (P.xchild (P.name "page-margins") (parsePageMargins))++-- | Smart constructor for 'PageLayout'+mkPageLayout :: PageLayout+mkPageLayout = PageLayout Nothing []++-- | @page-margins@ /(complex)/+--+-- Page margins are specified either for both even and odd pages, or via separate odd and even page number values. The type attribute is not needed when used as part of a print element. If omitted when the page-margins type is used in the defaults element, "both" is the default value.+data PageMargins = + PageMargins {+ pageMarginsType :: (Maybe MarginType) -- ^ /type/ attribute+ , pageMarginsAllMargins :: AllMargins+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PageMargins where+ emitXml (PageMargins a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) a])+ ([emitXml b])+parsePageMargins :: P.XParse PageMargins+parsePageMargins = + PageMargins+ <$> P.optional (P.xattr (P.name "type") >>= parseMarginType)+ <*> parseAllMargins++-- | Smart constructor for 'PageMargins'+mkPageMargins :: AllMargins -> PageMargins+mkPageMargins b = PageMargins Nothing b++-- | @part@ /(complex)/+data CmpPart = + CmpPart {+ partId :: IDREF -- ^ /id/ attribute+ , partMeasure :: [Measure] -- ^ /measure/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml CmpPart where+ emitXml (CmpPart a b) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ (map (XElement (QN "measure" Nothing).emitXml) b)+parseCmpPart :: P.XParse CmpPart+parseCmpPart = + CmpPart+ <$> (P.xattr (P.name "id") >>= parseIDREF)+ <*> P.many (P.xchild (P.name "measure") (parseMeasure))++-- | Smart constructor for 'CmpPart'+mkCmpPart :: IDREF -> CmpPart+mkCmpPart a = CmpPart a []++-- | @part@ /(complex)/++-- mangled: 1+data Part = + Part {+ cmppartId :: IDREF -- ^ /id/ attribute+ , partMusicData :: MusicData+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Part where+ emitXml (Part a b) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ ([emitXml b])+parsePart :: P.XParse Part+parsePart = + Part+ <$> (P.xattr (P.name "id") >>= parseIDREF)+ <*> parseMusicData++-- | Smart constructor for 'Part'+mkPart :: IDREF -> MusicData -> Part+mkPart a b = Part a b++-- | @part-group@ /(complex)/+--+-- The part-group element indicates groupings of parts in the score, usually indicated by braces and brackets. Braces that are used for multi-staff parts should be defined in the attributes element for that part. The part-group start element appears before the first score-part in the group. The part-group stop element appears after the last score-part in the group.+-- +-- The number attribute is used to distinguish overlapping and nested part-groups, not the sequence of groups. As with parts, groups can have a name and abbreviation. Values for the child elements are ignored at the stop of a group. +-- +-- A part-group element is not needed for a single multi-staff part. By default, multi-staff parts include a brace symbol and (if appropriate given the bar-style) common barlines. The symbol formatting for a multi-staff part can be more fully specified using the part-symbol element.+data PartGroup = + PartGroup {+ partGroupType :: StartStop -- ^ /type/ attribute+ , partGroupNumber :: (Maybe Token) -- ^ /number/ attribute+ , partGroupGroupName :: (Maybe GroupName) -- ^ /group-name/ child element+ , partGroupGroupNameDisplay :: (Maybe NameDisplay) -- ^ /group-name-display/ child element+ , partGroupGroupAbbreviation :: (Maybe GroupName) -- ^ /group-abbreviation/ child element+ , partGroupGroupAbbreviationDisplay :: (Maybe NameDisplay) -- ^ /group-abbreviation-display/ child element+ , partGroupGroupSymbol :: (Maybe GroupSymbol) -- ^ /group-symbol/ child element+ , partGroupGroupBarline :: (Maybe GroupBarline) -- ^ /group-barline/ child element+ , partGroupGroupTime :: (Maybe Empty) -- ^ /group-time/ child element+ , partGroupEditorial :: Editorial+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PartGroup where+ emitXml (PartGroup a b c d e f g h i j) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b])+ ([maybe XEmpty (XElement (QN "group-name" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "group-name-display" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "group-abbreviation" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "group-abbreviation-display" Nothing).emitXml) f] +++ [maybe XEmpty (XElement (QN "group-symbol" Nothing).emitXml) g] +++ [maybe XEmpty (XElement (QN "group-barline" Nothing).emitXml) h] +++ [maybe XEmpty (XElement (QN "group-time" Nothing).emitXml) i] +++ [emitXml j])+parsePartGroup :: P.XParse PartGroup+parsePartGroup = + PartGroup+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "number") >>= parseToken)+ <*> P.optional (P.xchild (P.name "group-name") (parseGroupName))+ <*> P.optional (P.xchild (P.name "group-name-display") (parseNameDisplay))+ <*> P.optional (P.xchild (P.name "group-abbreviation") (parseGroupName))+ <*> P.optional (P.xchild (P.name "group-abbreviation-display") (parseNameDisplay))+ <*> P.optional (P.xchild (P.name "group-symbol") (parseGroupSymbol))+ <*> P.optional (P.xchild (P.name "group-barline") (parseGroupBarline))+ <*> P.optional (P.xchild (P.name "group-time") (parseEmpty))+ <*> parseEditorial++-- | Smart constructor for 'PartGroup'+mkPartGroup :: StartStop -> Editorial -> PartGroup+mkPartGroup a j = PartGroup a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing j++-- | @part-list@ /(complex)/+--+-- The part-list identifies the different musical parts in this movement. Each part has an ID that is used later within the musical data. Since parts may be encoded separately and combined later, identification elements are present at both the score and score-part levels. There must be at least one score-part, combined as desired with part-group elements that indicate braces and brackets. Parts are ordered from top to bottom in a score based on the order in which they appear in the part-list.+data PartList = + PartList {+ partListPartGroup :: [GrpPartGroup]+ , partListScorePart :: ScorePart+ , partListPartList :: [ChxPartList]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PartList where+ emitXml (PartList a b c) =+ XReps [emitXml a,emitXml b,emitXml c]+parsePartList :: P.XParse PartList+parsePartList = + PartList+ <$> P.many (parseGrpPartGroup)+ <*> parseScorePart+ <*> P.many (parseChxPartList)++-- | Smart constructor for 'PartList'+mkPartList :: ScorePart -> PartList+mkPartList b = PartList [] b []++-- | @part-name@ /(complex)/+--+-- The part-name type describes the name or abbreviation of a score-part element. Formatting attributes for the part-name element are deprecated in Version 2.0 in favor of the new part-name-display and part-abbreviation-display elements.+data PartName = + PartName {+ partNameString :: String -- ^ text content+ , partNameDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , partNameDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , partNameRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , partNameRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , partNameFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , partNameFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , partNameFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , partNameFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , partNameColor :: (Maybe Color) -- ^ /color/ attribute+ , partNamePrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , partNameJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PartName where+ emitXml (PartName a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) l])+ []+parsePartName :: P.XParse PartName+parsePartName = + PartName+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)++-- | Smart constructor for 'PartName'+mkPartName :: String -> PartName+mkPartName a = PartName a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @part-symbol@ /(complex)/+--+-- The part-symbol type indicates how a symbol for a multi-staff part is indicated in the score; brace is the default value. The top-staff and bottom-staff elements are used when the brace does not extend across the entire part. For example, in a 3-staff organ part, the top-staff will typically be 1 for the right hand, while the bottom-staff will typically be 2 for the left hand. Staff 3 for the pedals is usually outside the brace.+data PartSymbol = + PartSymbol {+ partSymbolGroupSymbolValue :: GroupSymbolValue -- ^ text content+ , partSymbolTopStaff :: (Maybe StaffNumber) -- ^ /top-staff/ attribute+ , partSymbolBottomStaff :: (Maybe StaffNumber) -- ^ /bottom-staff/ attribute+ , partSymbolDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , partSymbolDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , partSymbolRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , partSymbolRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , partSymbolColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PartSymbol where+ emitXml (PartSymbol a b c d e f g h) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "top-staff" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "bottom-staff" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h])+ []+parsePartSymbol :: P.XParse PartSymbol+parsePartSymbol = + PartSymbol+ <$> (P.xtext >>= parseGroupSymbolValue)+ <*> P.optional (P.xattr (P.name "top-staff") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "bottom-staff") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'PartSymbol'+mkPartSymbol :: GroupSymbolValue -> PartSymbol+mkPartSymbol a = PartSymbol a Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @pedal@ /(complex)/+--+-- The pedal type represents piano pedal marks. The line attribute is yes if pedal lines are used. The sign attribute is yes if Ped and * signs are used. For MusicXML 2.0 compatibility, the sign attribute is yes by default if the line attribute is no, and is no by default if the line attribute is yes. The change and continue types are used when the line attribute is yes. The change type indicates a pedal lift and retake indicated with an inverted V marking. The continue type allows more precise formatting across system breaks and for more complex pedaling lines. The alignment attributes are ignored if the line attribute is yes.+data Pedal = + Pedal {+ pedalType :: StartStopChangeContinue -- ^ /type/ attribute+ , pedalLine :: (Maybe YesNo) -- ^ /line/ attribute+ , pedalSign :: (Maybe YesNo) -- ^ /sign/ attribute+ , pedalDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , pedalDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , pedalRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , pedalRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , pedalFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , pedalFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , pedalFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , pedalFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , pedalColor :: (Maybe Color) -- ^ /color/ attribute+ , pedalHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , pedalValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Pedal where+ emitXml (Pedal a b c d e f g h i j k l m n) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "line" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "sign" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) n])+ []+parsePedal :: P.XParse Pedal+parsePedal = + Pedal+ <$> (P.xattr (P.name "type") >>= parseStartStopChangeContinue)+ <*> P.optional (P.xattr (P.name "line") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "sign") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'Pedal'+mkPedal :: StartStopChangeContinue -> Pedal+mkPedal a = Pedal a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @pedal-tuning@ /(complex)/+--+-- The pedal-tuning type specifies the tuning of a single harp pedal.+data PedalTuning = + PedalTuning {+ pedalTuningPedalStep :: Step -- ^ /pedal-step/ child element+ , pedalTuningPedalAlter :: Semitones -- ^ /pedal-alter/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PedalTuning where+ emitXml (PedalTuning a b) =+ XContent XEmpty+ []+ ([XElement (QN "pedal-step" Nothing) (emitXml a)] +++ [XElement (QN "pedal-alter" Nothing) (emitXml b)])+parsePedalTuning :: P.XParse PedalTuning+parsePedalTuning = + PedalTuning+ <$> (P.xchild (P.name "pedal-step") (P.xtext >>= parseStep))+ <*> (P.xchild (P.name "pedal-alter") (P.xtext >>= parseSemitones))++-- | Smart constructor for 'PedalTuning'+mkPedalTuning :: Step -> Semitones -> PedalTuning+mkPedalTuning a b = PedalTuning a b++-- | @per-minute@ /(complex)/+--+-- The per-minute type can be a number, or a text description including numbers. If a font is specified, it overrides the font specified for the overall metronome element. This allows separate specification of a music font for the beat-unit and a text font for the numeric value, in cases where a single metronome font is not used.+data PerMinute = + PerMinute {+ perMinuteString :: String -- ^ text content+ , perMinuteFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , perMinuteFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , perMinuteFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , perMinuteFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PerMinute where+ emitXml (PerMinute a b c d e) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) e])+ []+parsePerMinute :: P.XParse PerMinute+parsePerMinute = + PerMinute+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)++-- | Smart constructor for 'PerMinute'+mkPerMinute :: String -> PerMinute+mkPerMinute a = PerMinute a Nothing Nothing Nothing Nothing++-- | @percussion@ /(complex)/+--+-- The percussion element is used to define percussion pictogram symbols. Definitions for these symbols can be found in Kurt Stone's "Music Notation in the Twentieth Century" on pages 206-212 and 223. Some values are added to these based on how usage has evolved in the 30 years since Stone's book was published.+data Percussion = + Percussion {+ percussionDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , percussionDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , percussionRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , percussionRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , percussionFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , percussionFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , percussionFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , percussionFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , percussionColor :: (Maybe Color) -- ^ /color/ attribute+ , percussionHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , percussionValign :: (Maybe Valign) -- ^ /valign/ attribute+ , percussionEnclosure :: (Maybe EnclosureShape) -- ^ /enclosure/ attribute+ , percussionPercussion :: ChxPercussion+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Percussion where+ emitXml (Percussion a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "enclosure" Nothing).emitXml) l])+ ([emitXml m])+parsePercussion :: P.XParse Percussion+parsePercussion = + Percussion+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "enclosure") >>= parseEnclosureShape)+ <*> parseChxPercussion++-- | Smart constructor for 'Percussion'+mkPercussion :: ChxPercussion -> Percussion+mkPercussion m = Percussion Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing m++-- | @pitch@ /(complex)/+--+-- Pitch is represented as a combination of the step of the diatonic scale, the chromatic alteration, and the octave.+data Pitch = + Pitch {+ pitchStep :: Step -- ^ /step/ child element+ , pitchAlter :: (Maybe Semitones) -- ^ /alter/ child element+ , pitchOctave :: Octave -- ^ /octave/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Pitch where+ emitXml (Pitch a b c) =+ XContent XEmpty+ []+ ([XElement (QN "step" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "alter" Nothing).emitXml) b] +++ [XElement (QN "octave" Nothing) (emitXml c)])+parsePitch :: P.XParse Pitch+parsePitch = + Pitch+ <$> (P.xchild (P.name "step") (P.xtext >>= parseStep))+ <*> P.optional (P.xchild (P.name "alter") (P.xtext >>= parseSemitones))+ <*> (P.xchild (P.name "octave") (P.xtext >>= parseOctave))++-- | Smart constructor for 'Pitch'+mkPitch :: Step -> Octave -> Pitch+mkPitch a c = Pitch a Nothing c++-- | @placement-text@ /(complex)/+--+-- The placement-text type represents a text element with print-style and placement attribute groups.+data PlacementText = + PlacementText {+ placementTextString :: String -- ^ text content+ , placementTextDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , placementTextDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , placementTextRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , placementTextRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , placementTextFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , placementTextFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , placementTextFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , placementTextFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , placementTextColor :: (Maybe Color) -- ^ /color/ attribute+ , placementTextPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PlacementText where+ emitXml (PlacementText a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ []+parsePlacementText :: P.XParse PlacementText+parsePlacementText = + PlacementText+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'PlacementText'+mkPlacementText :: String -> PlacementText+mkPlacementText a = PlacementText a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @play@ /(complex)/+--+-- The play type, new in Version 3.0, specifies playback techniques to be used in conjunction with the instrument-sound element. When used as part of a sound element, it applies to all notes going forward in score order. In multi-instrument parts, the affected instrument should be specified using the id attribute. When used as part of a note element, it applies to the current note only.+data Play = + Play {+ playId :: (Maybe IDREF) -- ^ /id/ attribute+ , playPlay :: [ChxPlay]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Play where+ emitXml (Play a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "id" Nothing).emitXml) a])+ ([emitXml b])+parsePlay :: P.XParse Play+parsePlay = + Play+ <$> P.optional (P.xattr (P.name "id") >>= parseIDREF)+ <*> P.many (parseChxPlay)++-- | Smart constructor for 'Play'+mkPlay :: Play+mkPlay = Play Nothing []++-- | @principal-voice@ /(complex)/+--+-- The principal-voice element represents principal and secondary voices in a score, either for analysis or for square bracket symbols that appear in a score. The symbol attribute indicates the type of symbol used at the start of the principal-voice. The content of the principal-voice element is used for analysis and may be any text value. When used for analysis separate from any printed score markings, the symbol attribute should be set to "none".+data PrincipalVoice = + PrincipalVoice {+ principalVoiceString :: String -- ^ text content+ , principalVoiceType :: StartStop -- ^ /type/ attribute+ , principalVoiceSymbol :: PrincipalVoiceSymbol -- ^ /symbol/ attribute+ , principalVoiceDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , principalVoiceDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , principalVoiceRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , principalVoiceRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , principalVoiceFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , principalVoiceFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , principalVoiceFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , principalVoiceFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , principalVoiceColor :: (Maybe Color) -- ^ /color/ attribute+ , principalVoiceHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , principalVoiceValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PrincipalVoice where+ emitXml (PrincipalVoice a b c d e f g h i j k l m n) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [XAttr (QN "symbol" Nothing) (emitXml c)] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) n])+ []+parsePrincipalVoice :: P.XParse PrincipalVoice+parsePrincipalVoice = + PrincipalVoice+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> (P.xattr (P.name "symbol") >>= parsePrincipalVoiceSymbol)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'PrincipalVoice'+mkPrincipalVoice :: String -> StartStop -> PrincipalVoiceSymbol -> PrincipalVoice+mkPrincipalVoice a b c = PrincipalVoice a b c Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @print@ /(complex)/+--+-- The print type contains general printing parameters, including the layout elements defined in the layout.mod file. The part-name-display and part-abbreviation-display elements used in the score.mod file may also be used here to change how a part name or abbreviation is displayed over the course of a piece. They take effect when the current measure or a succeeding measure starts a new system.+-- +-- Layout elements in a print statement only apply to the current page, system, staff, or measure. Music that follows continues to take the default values from the layout included in the defaults element.+data Print = + Print {+ printStaffSpacing :: (Maybe Tenths) -- ^ /staff-spacing/ attribute+ , printNewSystem :: (Maybe YesNo) -- ^ /new-system/ attribute+ , printNewPage :: (Maybe YesNo) -- ^ /new-page/ attribute+ , printBlankPage :: (Maybe PositiveInteger) -- ^ /blank-page/ attribute+ , printPageNumber :: (Maybe Token) -- ^ /page-number/ attribute+ , printLayout :: Layout+ , printMeasureLayout :: (Maybe MeasureLayout) -- ^ /measure-layout/ child element+ , printMeasureNumbering :: (Maybe MeasureNumbering) -- ^ /measure-numbering/ child element+ , printPartNameDisplay :: (Maybe NameDisplay) -- ^ /part-name-display/ child element+ , printPartAbbreviationDisplay :: (Maybe NameDisplay) -- ^ /part-abbreviation-display/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Print where+ emitXml (Print a b c d e f g h i j) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "staff-spacing" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "new-system" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "new-page" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "blank-page" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "page-number" Nothing).emitXml) e])+ ([emitXml f] +++ [maybe XEmpty (XElement (QN "measure-layout" Nothing).emitXml) g] +++ [maybe XEmpty (XElement (QN "measure-numbering" Nothing).emitXml) h] +++ [maybe XEmpty (XElement (QN "part-name-display" Nothing).emitXml) i] +++ [maybe XEmpty (XElement (QN "part-abbreviation-display" Nothing).emitXml) j])+parsePrint :: P.XParse Print+parsePrint = + Print+ <$> P.optional (P.xattr (P.name "staff-spacing") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "new-system") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "new-page") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "blank-page") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "page-number") >>= parseToken)+ <*> parseLayout+ <*> P.optional (P.xchild (P.name "measure-layout") (parseMeasureLayout))+ <*> P.optional (P.xchild (P.name "measure-numbering") (parseMeasureNumbering))+ <*> P.optional (P.xchild (P.name "part-name-display") (parseNameDisplay))+ <*> P.optional (P.xchild (P.name "part-abbreviation-display") (parseNameDisplay))++-- | Smart constructor for 'Print'+mkPrint :: Layout -> Print+mkPrint f = Print Nothing Nothing Nothing Nothing Nothing f Nothing Nothing Nothing Nothing++-- | @repeat@ /(complex)/+--+-- The repeat type represents repeat marks. The start of the repeat has a forward direction while the end of the repeat has a backward direction. Backward repeats that are not part of an ending can use the times attribute to indicate the number of times the repeated section is played.+data Repeat = + Repeat {+ repeatDirection :: BackwardForward -- ^ /direction/ attribute+ , repeatTimes :: (Maybe NonNegativeInteger) -- ^ /times/ attribute+ , repeatWinged :: (Maybe Winged) -- ^ /winged/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Repeat where+ emitXml (Repeat a b c) =+ XContent XEmpty+ ([XAttr (QN "direction" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "times" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "winged" Nothing).emitXml) c])+ []+parseRepeat :: P.XParse Repeat+parseRepeat = + Repeat+ <$> (P.xattr (P.name "direction") >>= parseBackwardForward)+ <*> P.optional (P.xattr (P.name "times") >>= parseNonNegativeInteger)+ <*> P.optional (P.xattr (P.name "winged") >>= parseWinged)++-- | Smart constructor for 'Repeat'+mkRepeat :: BackwardForward -> Repeat+mkRepeat a = Repeat a Nothing Nothing++-- | @rest@ /(complex)/+--+-- The rest element indicates notated rests or silences. Rest elements are usually empty, but placement on the staff can be specified using display-step and display-octave elements. If the measure attribute is set to yes, this indicates this is a complete measure rest.+data Rest = + Rest {+ restMeasure :: (Maybe YesNo) -- ^ /measure/ attribute+ , restDisplayStepOctave :: (Maybe DisplayStepOctave)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Rest where+ emitXml (Rest a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "measure" Nothing).emitXml) a])+ ([emitXml b])+parseRest :: P.XParse Rest+parseRest = + Rest+ <$> P.optional (P.xattr (P.name "measure") >>= parseYesNo)+ <*> P.optional (parseDisplayStepOctave)++-- | Smart constructor for 'Rest'+mkRest :: Rest+mkRest = Rest Nothing Nothing++-- | @root@ /(complex)/+--+-- The root type indicates a pitch like C, D, E vs. a function indication like I, II, III. It is used with chord symbols in popular music. The root element has a root-step and optional root-alter element similar to the step and alter elements, but renamed to distinguish the different musical meanings.+data Root = + Root {+ rootRootStep :: RootStep -- ^ /root-step/ child element+ , rootRootAlter :: (Maybe RootAlter) -- ^ /root-alter/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Root where+ emitXml (Root a b) =+ XContent XEmpty+ []+ ([XElement (QN "root-step" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "root-alter" Nothing).emitXml) b])+parseRoot :: P.XParse Root+parseRoot = + Root+ <$> (P.xchild (P.name "root-step") (parseRootStep))+ <*> P.optional (P.xchild (P.name "root-alter") (parseRootAlter))++-- | Smart constructor for 'Root'+mkRoot :: RootStep -> Root+mkRoot a = Root a Nothing++-- | @root-alter@ /(complex)/+--+-- The root-alter type represents the chromatic alteration of the root of the current chord within the harmony element. In some chord styles, the text for the root-step element may include root-alter information. In that case, the print-object attribute of the root-alter element can be set to no. The location attribute indicates whether the alteration should appear to the left or the right of the root-step; it is right by default.+data RootAlter = + RootAlter {+ rootAlterSemitones :: Semitones -- ^ text content+ , rootAlterLocation :: (Maybe LeftRight) -- ^ /location/ attribute+ , rootAlterPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , rootAlterDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , rootAlterDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , rootAlterRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , rootAlterRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , rootAlterFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , rootAlterFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , rootAlterFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , rootAlterFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , rootAlterColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml RootAlter where+ emitXml (RootAlter a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l])+ []+parseRootAlter :: P.XParse RootAlter+parseRootAlter = + RootAlter+ <$> (P.xtext >>= parseSemitones)+ <*> P.optional (P.xattr (P.name "location") >>= parseLeftRight)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'RootAlter'+mkRootAlter :: Semitones -> RootAlter+mkRootAlter a = RootAlter a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @root-step@ /(complex)/+--+-- The root-step type represents the pitch step of the root of the current chord within the harmony element. The text attribute indicates how the root should appear in a score if not using the element contents.+data RootStep = + RootStep {+ rootStepStep :: Step -- ^ text content+ , rootStepText :: (Maybe Token) -- ^ /text/ attribute+ , rootStepDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , rootStepDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , rootStepRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , rootStepRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , rootStepFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , rootStepFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , rootStepFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , rootStepFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , rootStepColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml RootStep where+ emitXml (RootStep a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "text" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseRootStep :: P.XParse RootStep+parseRootStep = + RootStep+ <$> (P.xtext >>= parseStep)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'RootStep'+mkRootStep :: Step -> RootStep+mkRootStep a = RootStep a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @scaling@ /(complex)/+--+-- Margins, page sizes, and distances are all measured in tenths to keep MusicXML data in a consistent coordinate system as much as possible. The translation to absolute units is done with the scaling type, which specifies how many millimeters are equal to how many tenths. For a staff height of 7 mm, millimeters would be set to 7 while tenths is set to 40. The ability to set a formula rather than a single scaling factor helps avoid roundoff errors.+data Scaling = + Scaling {+ scalingMillimeters :: Millimeters -- ^ /millimeters/ child element+ , scalingTenths :: Tenths -- ^ /tenths/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Scaling where+ emitXml (Scaling a b) =+ XContent XEmpty+ []+ ([XElement (QN "millimeters" Nothing) (emitXml a)] +++ [XElement (QN "tenths" Nothing) (emitXml b)])+parseScaling :: P.XParse Scaling+parseScaling = + Scaling+ <$> (P.xchild (P.name "millimeters") (P.xtext >>= parseMillimeters))+ <*> (P.xchild (P.name "tenths") (P.xtext >>= parseTenths))++-- | Smart constructor for 'Scaling'+mkScaling :: Millimeters -> Tenths -> Scaling+mkScaling a b = Scaling a b++-- | @scordatura@ /(complex)/+--+-- Scordatura string tunings are represented by a series of accord elements, similar to the staff-tuning elements. Strings are numbered from high to low.+data Scordatura = + Scordatura {+ scordaturaAccord :: [Accord] -- ^ /accord/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Scordatura where+ emitXml (Scordatura a) =+ XContent XEmpty+ []+ (map (XElement (QN "accord" Nothing).emitXml) a)+parseScordatura :: P.XParse Scordatura+parseScordatura = + Scordatura+ <$> P.many (P.xchild (P.name "accord") (parseAccord))++-- | Smart constructor for 'Scordatura'+mkScordatura :: Scordatura+mkScordatura = Scordatura []++-- | @score-instrument@ /(complex)/+--+-- The score-instrument type represents a single instrument within a score-part. As with the score-part type, each score-instrument has a required ID attribute, a name, and an optional abbreviation.+-- +-- A score-instrument type is also required if the score specifies MIDI 1.0 channels, banks, or programs. An initial midi-instrument assignment can also be made here. MusicXML software should be able to automatically assign reasonable channels and instruments without these elements in simple cases, such as where part names match General MIDI instrument names.+data ScoreInstrument = + ScoreInstrument {+ scoreInstrumentId :: ID -- ^ /id/ attribute+ , scoreInstrumentInstrumentName :: String -- ^ /instrument-name/ child element+ , scoreInstrumentInstrumentAbbreviation :: (Maybe String) -- ^ /instrument-abbreviation/ child element+ , scoreInstrumentInstrumentSound :: (Maybe String) -- ^ /instrument-sound/ child element+ , scoreInstrumentScoreInstrument :: (Maybe ChxScoreInstrument)+ , scoreInstrumentVirtualInstrument :: (Maybe VirtualInstrument) -- ^ /virtual-instrument/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ScoreInstrument where+ emitXml (ScoreInstrument a b c d e f) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ ([XElement (QN "instrument-name" Nothing) (emitXml b)] +++ [maybe XEmpty (XElement (QN "instrument-abbreviation" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "instrument-sound" Nothing).emitXml) d] +++ [emitXml e] +++ [maybe XEmpty (XElement (QN "virtual-instrument" Nothing).emitXml) f])+parseScoreInstrument :: P.XParse ScoreInstrument+parseScoreInstrument = + ScoreInstrument+ <$> (P.xattr (P.name "id") >>= parseID)+ <*> (P.xchild (P.name "instrument-name") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "instrument-abbreviation") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "instrument-sound") (P.xtext >>= return))+ <*> P.optional (parseChxScoreInstrument)+ <*> P.optional (P.xchild (P.name "virtual-instrument") (parseVirtualInstrument))++-- | Smart constructor for 'ScoreInstrument'+mkScoreInstrument :: ID -> String -> ScoreInstrument+mkScoreInstrument a b = ScoreInstrument a b Nothing Nothing Nothing Nothing++-- | @score-part@ /(complex)/+--+-- Each MusicXML part corresponds to a track in a Standard MIDI Format 1 file. The score-instrument elements are used when there are multiple instruments per track. The midi-device element is used to make a MIDI device or port assignment for the given track or specific MIDI instruments. Initial midi-instrument assignments may be made here as well.+data CmpScorePart = + CmpScorePart {+ scorePartId :: ID -- ^ /id/ attribute+ , scorePartIdentification :: (Maybe Identification) -- ^ /identification/ child element+ , scorePartPartName :: PartName -- ^ /part-name/ child element+ , scorePartPartNameDisplay :: (Maybe NameDisplay) -- ^ /part-name-display/ child element+ , scorePartPartAbbreviation :: (Maybe PartName) -- ^ /part-abbreviation/ child element+ , scorePartPartAbbreviationDisplay :: (Maybe NameDisplay) -- ^ /part-abbreviation-display/ child element+ , scorePartGroup :: [String] -- ^ /group/ child element+ , scorePartScoreInstrument :: [ScoreInstrument] -- ^ /score-instrument/ child element+ , scorePartScorePart :: [SeqScorePart]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml CmpScorePart where+ emitXml (CmpScorePart a b c d e f g h i) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ ([maybe XEmpty (XElement (QN "identification" Nothing).emitXml) b] +++ [XElement (QN "part-name" Nothing) (emitXml c)] +++ [maybe XEmpty (XElement (QN "part-name-display" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "part-abbreviation" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "part-abbreviation-display" Nothing).emitXml) f] +++ map (XElement (QN "group" Nothing).emitXml) g +++ map (XElement (QN "score-instrument" Nothing).emitXml) h +++ [emitXml i])+parseCmpScorePart :: P.XParse CmpScorePart+parseCmpScorePart = + CmpScorePart+ <$> (P.xattr (P.name "id") >>= parseID)+ <*> P.optional (P.xchild (P.name "identification") (parseIdentification))+ <*> (P.xchild (P.name "part-name") (parsePartName))+ <*> P.optional (P.xchild (P.name "part-name-display") (parseNameDisplay))+ <*> P.optional (P.xchild (P.name "part-abbreviation") (parsePartName))+ <*> P.optional (P.xchild (P.name "part-abbreviation-display") (parseNameDisplay))+ <*> P.many (P.xchild (P.name "group") (P.xtext >>= return))+ <*> P.many (P.xchild (P.name "score-instrument") (parseScoreInstrument))+ <*> P.many (parseSeqScorePart)++-- | Smart constructor for 'CmpScorePart'+mkCmpScorePart :: ID -> PartName -> CmpScorePart+mkCmpScorePart a c = CmpScorePart a Nothing c Nothing Nothing Nothing [] [] []++-- | @score-partwise@ /(complex)/+data ScorePartwise = + ScorePartwise {+ scorePartwiseVersion :: (Maybe Token) -- ^ /version/ attribute+ , scorePartwiseScoreHeader :: ScoreHeader+ , scorePartwisePart :: [CmpPart] -- ^ /part/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ScorePartwise where+ emitXml (ScorePartwise a b c) =+ XElement (QN "score-partwise" Nothing) $ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "version" Nothing).emitXml) a])+ ([emitXml b] +++ map (XElement (QN "part" Nothing).emitXml) c)+parseScorePartwise :: P.XParse ScorePartwise+parseScorePartwise = + ScorePartwise+ <$> P.optional (P.xattr (P.name "version") >>= parseToken)+ <*> parseScoreHeader+ <*> P.many (P.xchild (P.name "part") (parseCmpPart))++-- | Smart constructor for 'ScorePartwise'+mkScorePartwise :: ScoreHeader -> ScorePartwise+mkScorePartwise b = ScorePartwise Nothing b []++-- | @score-timewise@ /(complex)/+data ScoreTimewise = + ScoreTimewise {+ scoreTimewiseVersion :: (Maybe Token) -- ^ /version/ attribute+ , scoreTimewiseScoreHeader :: ScoreHeader+ , scoreTimewiseMeasure :: [CmpMeasure] -- ^ /measure/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ScoreTimewise where+ emitXml (ScoreTimewise a b c) =+ XElement (QN "score-timewise" Nothing) $ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "version" Nothing).emitXml) a])+ ([emitXml b] +++ map (XElement (QN "measure" Nothing).emitXml) c)+parseScoreTimewise :: P.XParse ScoreTimewise+parseScoreTimewise = + ScoreTimewise+ <$> P.optional (P.xattr (P.name "version") >>= parseToken)+ <*> parseScoreHeader+ <*> P.many (P.xchild (P.name "measure") (parseCmpMeasure))++-- | Smart constructor for 'ScoreTimewise'+mkScoreTimewise :: ScoreHeader -> ScoreTimewise+mkScoreTimewise b = ScoreTimewise Nothing b []++-- | @slash@ /(complex)/+--+-- The slash type is used to indicate that slash notation is to be used. If the slash is on every beat, use-stems is no (the default). To indicate rhythms but not pitches, use-stems is set to yes. The type attribute indicates whether this is the start or stop of a slash notation style. The use-dots attribute works as for the beat-repeat element, and only has effect if use-stems is no.+data CmpSlash = + CmpSlash {+ slashType :: StartStop -- ^ /type/ attribute+ , slashUseDots :: (Maybe YesNo) -- ^ /use-dots/ attribute+ , slashUseStems :: (Maybe YesNo) -- ^ /use-stems/ attribute+ , slashSlash :: (Maybe Slash)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml CmpSlash where+ emitXml (CmpSlash a b c d) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "use-dots" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "use-stems" Nothing).emitXml) c])+ ([emitXml d])+parseCmpSlash :: P.XParse CmpSlash+parseCmpSlash = + CmpSlash+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "use-dots") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "use-stems") >>= parseYesNo)+ <*> P.optional (parseSlash)++-- | Smart constructor for 'CmpSlash'+mkCmpSlash :: StartStop -> CmpSlash+mkCmpSlash a = CmpSlash a Nothing Nothing Nothing++-- | @slide@ /(complex)/+--+-- Glissando and slide types both indicate rapidly moving from one pitch to the other so that individual notes are not discerned. The distinction is similar to that between NIFF's glissando and portamento elements. A slide is continuous between two notes and defaults to a solid line. The optional text for a is printed alongside the line.+data Slide = + Slide {+ slideString :: String -- ^ text content+ , slideType :: StartStop -- ^ /type/ attribute+ , slideNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , slideLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , slideDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , slideSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , slideDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , slideDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , slideRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , slideRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , slideFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , slideFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , slideFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , slideFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , slideColor :: (Maybe Color) -- ^ /color/ attribute+ , slideAccelerate :: (Maybe YesNo) -- ^ /accelerate/ attribute+ , slideBeats :: (Maybe TrillBeats) -- ^ /beats/ attribute+ , slideFirstBeat :: (Maybe Percent) -- ^ /first-beat/ attribute+ , slideLastBeat :: (Maybe Percent) -- ^ /last-beat/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Slide where+ emitXml (Slide a b c d e f g h i j k l m n o p q r s) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "accelerate" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "beats" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "first-beat" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "last-beat" Nothing).emitXml) s])+ []+parseSlide :: P.XParse Slide+parseSlide = + Slide+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "accelerate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "beats") >>= parseTrillBeats)+ <*> P.optional (P.xattr (P.name "first-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "last-beat") >>= parsePercent)++-- | Smart constructor for 'Slide'+mkSlide :: String -> StartStop -> Slide+mkSlide a b = Slide a b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @slur@ /(complex)/+--+-- Slur types are empty. Most slurs are represented with two elements: one with a start type, and one with a stop type. Slurs can add more elements using a continue type. This is typically used to specify the formatting of cross-system slurs, or to specify the shape of very complex slurs.+data Slur = + Slur {+ slurType :: StartStopContinue -- ^ /type/ attribute+ , slurNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , slurLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , slurDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , slurSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , slurDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , slurDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , slurRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , slurRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , slurPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , slurOrientation :: (Maybe OverUnder) -- ^ /orientation/ attribute+ , slurBezierOffset :: (Maybe Divisions) -- ^ /bezier-offset/ attribute+ , slurBezierOffset2 :: (Maybe Divisions) -- ^ /bezier-offset2/ attribute+ , slurBezierX :: (Maybe Tenths) -- ^ /bezier-x/ attribute+ , slurBezierY :: (Maybe Tenths) -- ^ /bezier-y/ attribute+ , slurBezierX2 :: (Maybe Tenths) -- ^ /bezier-x2/ attribute+ , slurBezierY2 :: (Maybe Tenths) -- ^ /bezier-y2/ attribute+ , slurColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Slur where+ emitXml (Slur a b c d e f g h i j k l m n o p q r) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "orientation" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "bezier-offset" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "bezier-offset2" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "bezier-x" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "bezier-y" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "bezier-x2" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "bezier-y2" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) r])+ []+parseSlur :: P.XParse Slur+parseSlur = + Slur+ <$> (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "orientation") >>= parseOverUnder)+ <*> P.optional (P.xattr (P.name "bezier-offset") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "bezier-offset2") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "bezier-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-x2") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-y2") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Slur'+mkSlur :: StartStopContinue -> Slur+mkSlur a = Slur a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @sound@ /(complex)/+--+-- The sound element contains general playback parameters. They can stand alone within a part/measure, or be a component element within a direction.+--+-- @+-- +-- Tempo is expressed in quarter notes per minute. If 0, the sound-generating program should prompt the user at the time of compiling a sound (MIDI) file.+-- +-- Dynamics (or MIDI velocity) are expressed as a percentage of the default forte value (90 for MIDI 1.0).+-- +-- Dacapo indicates to go back to the beginning of the movement. When used it always has the value "yes".+-- +-- Segno and dalsegno are used for backwards jumps to a segno sign; coda and tocoda are used for forward jumps to a coda sign. If there are multiple jumps, the value of these parameters can be used to name and distinguish them. If segno or coda is used, the divisions attribute can also be used to indicate the number of divisions per quarter note. Otherwise sound and MIDI generating programs may have to recompute this.+-- +-- By default, a dalsegno or dacapo attribute indicates that the jump should occur the first time through, while a tocoda attribute indicates the jump should occur the second time through. The time that jumps occur can be changed by using the time-only attribute.+-- +-- Forward-repeat is used when a forward repeat sign is implied, and usually follows a bar line. When used it always has the value of "yes".+-- +-- The fine attribute follows the final note or rest in a movement with a da capo or dal segno direction. If numeric, the value represents the actual duration of the final note or rest, which can be ambiguous in written notation and different among parts and voices. The value may also be "yes" to indicate no change to the final duration.+-- +-- If the sound element applies only particular times through a repeat, the time-only attribute indicates which times to apply the sound element.+-- +-- Pizzicato in a sound element effects all following notes. Yes indicates pizzicato, no indicates arco.+-- +-- The pan and elevation attributes are deprecated in Version 2.0. The pan and elevation elements in the midi-instrument element should be used instead. The meaning of the pan and elevation attributes is the same as for the pan and elevation elements. If both are present, the mid-instrument elements take priority.+-- +-- The damper-pedal, soft-pedal, and sostenuto-pedal attributes effect playback of the three common piano pedals and their MIDI controller equivalents. The yes value indicates the pedal is depressed; no indicates the pedal is released. A numeric value from 0 to 100 may also be used for half pedaling. This value is the percentage that the pedal is depressed. A value of 0 is equivalent to no, and a value of 100 is equivalent to yes.+-- +-- MIDI devices, MIDI instruments, and playback techniques are changed using the midi-device, midi-instrument, and play elements. When there are multiple instances of these elements, they should be grouped together by instrument using the id attribute values.+-- +-- The offset element is used to indicate that the sound takes place offset from the current score position. If the sound element is a child of a direction element, the sound offset element overrides the direction offset element if both elements are present. Note that the offset reflects the intended musical position for the change in sound. It should not be used to compensate for latency issues in particular hardware configurations.+-- @+data Sound = + Sound {+ soundTempo :: (Maybe NonNegativeDecimal) -- ^ /tempo/ attribute+ , soundDynamics :: (Maybe NonNegativeDecimal) -- ^ /dynamics/ attribute+ , soundDacapo :: (Maybe YesNo) -- ^ /dacapo/ attribute+ , soundSegno :: (Maybe Token) -- ^ /segno/ attribute+ , soundDalsegno :: (Maybe Token) -- ^ /dalsegno/ attribute+ , soundCoda :: (Maybe Token) -- ^ /coda/ attribute+ , soundTocoda :: (Maybe Token) -- ^ /tocoda/ attribute+ , soundDivisions :: (Maybe Divisions) -- ^ /divisions/ attribute+ , soundForwardRepeat :: (Maybe YesNo) -- ^ /forward-repeat/ attribute+ , soundFine :: (Maybe Token) -- ^ /fine/ attribute+ , soundTimeOnly :: (Maybe TimeOnly) -- ^ /time-only/ attribute+ , soundPizzicato :: (Maybe YesNo) -- ^ /pizzicato/ attribute+ , soundPan :: (Maybe RotationDegrees) -- ^ /pan/ attribute+ , soundElevation :: (Maybe RotationDegrees) -- ^ /elevation/ attribute+ , soundDamperPedal :: (Maybe YesNoNumber) -- ^ /damper-pedal/ attribute+ , soundSoftPedal :: (Maybe YesNoNumber) -- ^ /soft-pedal/ attribute+ , soundSostenutoPedal :: (Maybe YesNoNumber) -- ^ /sostenuto-pedal/ attribute+ , soundSound :: [SeqSound]+ , soundOffset :: (Maybe Offset) -- ^ /offset/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Sound where+ emitXml (Sound a b c d e f g h i j k l m n o p q r s) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "tempo" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "dynamics" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "dacapo" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "segno" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "dalsegno" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "coda" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "tocoda" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "divisions" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "forward-repeat" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "fine" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "time-only" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "pizzicato" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "pan" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "elevation" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "damper-pedal" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "soft-pedal" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "sostenuto-pedal" Nothing).emitXml) q])+ ([emitXml r] +++ [maybe XEmpty (XElement (QN "offset" Nothing).emitXml) s])+parseSound :: P.XParse Sound+parseSound = + Sound+ <$> P.optional (P.xattr (P.name "tempo") >>= parseNonNegativeDecimal)+ <*> P.optional (P.xattr (P.name "dynamics") >>= parseNonNegativeDecimal)+ <*> P.optional (P.xattr (P.name "dacapo") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "segno") >>= parseToken)+ <*> P.optional (P.xattr (P.name "dalsegno") >>= parseToken)+ <*> P.optional (P.xattr (P.name "coda") >>= parseToken)+ <*> P.optional (P.xattr (P.name "tocoda") >>= parseToken)+ <*> P.optional (P.xattr (P.name "divisions") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "forward-repeat") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "fine") >>= parseToken)+ <*> P.optional (P.xattr (P.name "time-only") >>= parseTimeOnly)+ <*> P.optional (P.xattr (P.name "pizzicato") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "pan") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "elevation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "damper-pedal") >>= parseYesNoNumber)+ <*> P.optional (P.xattr (P.name "soft-pedal") >>= parseYesNoNumber)+ <*> P.optional (P.xattr (P.name "sostenuto-pedal") >>= parseYesNoNumber)+ <*> P.many (parseSeqSound)+ <*> P.optional (P.xchild (P.name "offset") (parseOffset))++-- | Smart constructor for 'Sound'+mkSound :: Sound+mkSound = Sound Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing [] Nothing++-- | @staff-details@ /(complex)/+--+-- The staff-details element is used to indicate different types of staves. The optional number attribute specifies the staff number from top to bottom on the system, as with clef. The print-object attribute is used to indicate when a staff is not printed in a part, usually in large scores where empty parts are omitted. It is yes by default. If print-spacing is yes while print-object is no, the score is printed in cutaway format where vertical space is left for the empty part.+data StaffDetails = + StaffDetails {+ staffDetailsNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , staffDetailsShowFrets :: (Maybe ShowFrets) -- ^ /show-frets/ attribute+ , staffDetailsPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , staffDetailsPrintSpacing :: (Maybe YesNo) -- ^ /print-spacing/ attribute+ , staffDetailsStaffType :: (Maybe StaffType) -- ^ /staff-type/ child element+ , staffDetailsStaffLines :: (Maybe NonNegativeInteger) -- ^ /staff-lines/ child element+ , staffDetailsStaffTuning :: [StaffTuning] -- ^ /staff-tuning/ child element+ , staffDetailsCapo :: (Maybe NonNegativeInteger) -- ^ /capo/ child element+ , staffDetailsStaffSize :: (Maybe NonNegativeDecimal) -- ^ /staff-size/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StaffDetails where+ emitXml (StaffDetails a b c d e f g h i) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "show-frets" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "print-spacing" Nothing).emitXml) d])+ ([maybe XEmpty (XElement (QN "staff-type" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "staff-lines" Nothing).emitXml) f] +++ map (XElement (QN "staff-tuning" Nothing).emitXml) g +++ [maybe XEmpty (XElement (QN "capo" Nothing).emitXml) h] +++ [maybe XEmpty (XElement (QN "staff-size" Nothing).emitXml) i])+parseStaffDetails :: P.XParse StaffDetails+parseStaffDetails = + StaffDetails+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "show-frets") >>= parseShowFrets)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-spacing") >>= parseYesNo)+ <*> P.optional (P.xchild (P.name "staff-type") (P.xtext >>= parseStaffType))+ <*> P.optional (P.xchild (P.name "staff-lines") (P.xtext >>= parseNonNegativeInteger))+ <*> P.many (P.xchild (P.name "staff-tuning") (parseStaffTuning))+ <*> P.optional (P.xchild (P.name "capo") (P.xtext >>= parseNonNegativeInteger))+ <*> P.optional (P.xchild (P.name "staff-size") (P.xtext >>= parseNonNegativeDecimal))++-- | Smart constructor for 'StaffDetails'+mkStaffDetails :: StaffDetails+mkStaffDetails = StaffDetails Nothing Nothing Nothing Nothing Nothing Nothing [] Nothing Nothing++-- | @staff-layout@ /(complex)/+--+-- Staff layout includes the vertical distance from the bottom line of the previous staff in this system to the top line of the staff specified by the number attribute. The optional number attribute refers to staff numbers within the part, from top to bottom on the system. A value of 1 is assumed if not present. When used in the defaults element, the values apply to all parts. This value is ignored for the first staff in a system.+data StaffLayout = + StaffLayout {+ staffLayoutNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , staffLayoutStaffDistance :: (Maybe Tenths) -- ^ /staff-distance/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StaffLayout where+ emitXml (StaffLayout a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a])+ ([maybe XEmpty (XElement (QN "staff-distance" Nothing).emitXml) b])+parseStaffLayout :: P.XParse StaffLayout+parseStaffLayout = + StaffLayout+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xchild (P.name "staff-distance") (P.xtext >>= parseTenths))++-- | Smart constructor for 'StaffLayout'+mkStaffLayout :: StaffLayout+mkStaffLayout = StaffLayout Nothing Nothing++-- | @staff-tuning@ /(complex)/+--+-- The staff-tuning type specifies the open, non-capo tuning of the lines on a tablature staff.+data StaffTuning = + StaffTuning {+ staffTuningLine :: (Maybe StaffLine) -- ^ /line/ attribute+ , staffTuningTuning :: Tuning+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StaffTuning where+ emitXml (StaffTuning a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "line" Nothing).emitXml) a])+ ([emitXml b])+parseStaffTuning :: P.XParse StaffTuning+parseStaffTuning = + StaffTuning+ <$> P.optional (P.xattr (P.name "line") >>= parseStaffLine)+ <*> parseTuning++-- | Smart constructor for 'StaffTuning'+mkStaffTuning :: Tuning -> StaffTuning+mkStaffTuning b = StaffTuning Nothing b++-- | @stem@ /(complex)/+--+-- Stems can be down, up, none, or double. For down and up stems, the position attributes can be used to specify stem length. The relative values specify the end of the stem relative to the program default. Default values specify an absolute end stem position. Negative values of relative-y that would flip a stem instead of shortening it are ignored. A stem element associated with a rest refers to a stemlet.+data Stem = + Stem {+ stemStemValue :: StemValue -- ^ text content+ , stemDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , stemDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , stemRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , stemRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , stemColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Stem where+ emitXml (Stem a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseStem :: P.XParse Stem+parseStem = + Stem+ <$> (P.xtext >>= parseStemValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Stem'+mkStem :: StemValue -> Stem+mkStem a = Stem a Nothing Nothing Nothing Nothing Nothing++-- | @stick@ /(complex)/+--+-- The stick type represents pictograms where the material of the stick, mallet, or beater is included.+data Stick = + Stick {+ stickTip :: (Maybe TipDirection) -- ^ /tip/ attribute+ , stickStickType :: StickType -- ^ /stick-type/ child element+ , stickStickMaterial :: StickMaterial -- ^ /stick-material/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Stick where+ emitXml (Stick a b c) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "tip" Nothing).emitXml) a])+ ([XElement (QN "stick-type" Nothing) (emitXml b)] +++ [XElement (QN "stick-material" Nothing) (emitXml c)])+parseStick :: P.XParse Stick+parseStick = + Stick+ <$> P.optional (P.xattr (P.name "tip") >>= parseTipDirection)+ <*> (P.xchild (P.name "stick-type") (P.xtext >>= parseStickType))+ <*> (P.xchild (P.name "stick-material") (P.xtext >>= parseStickMaterial))++-- | Smart constructor for 'Stick'+mkStick :: StickType -> StickMaterial -> Stick+mkStick b c = Stick Nothing b c++-- | @string@ /(complex)/+--+-- The string type is used with tablature notation, regular notation (where it is often circled), and chord diagrams. String numbers start with 1 for the highest string.+data CmpString = + CmpString {+ stringStringNumber :: StringNumber -- ^ text content+ , stringDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , stringDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , stringRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , stringRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , stringFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , stringFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , stringFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , stringFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , stringColor :: (Maybe Color) -- ^ /color/ attribute+ , stringPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml CmpString where+ emitXml (CmpString a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ []+parseCmpString :: P.XParse CmpString+parseCmpString = + CmpString+ <$> (P.xtext >>= parseStringNumber)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'CmpString'+mkCmpString :: StringNumber -> CmpString+mkCmpString a = CmpString a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @string-mute@ /(complex)/+--+-- The string-mute type represents string mute on and mute off symbols.+data StringMute = + StringMute {+ stringMuteType :: OnOff -- ^ /type/ attribute+ , stringMuteDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , stringMuteDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , stringMuteRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , stringMuteRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , stringMuteFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , stringMuteFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , stringMuteFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , stringMuteFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , stringMuteColor :: (Maybe Color) -- ^ /color/ attribute+ , stringMuteHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , stringMuteValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StringMute where+ emitXml (StringMute a b c d e f g h i j k l) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l])+ []+parseStringMute :: P.XParse StringMute+parseStringMute = + StringMute+ <$> (P.xattr (P.name "type") >>= parseOnOff)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'StringMute'+mkStringMute :: OnOff -> StringMute+mkStringMute a = StringMute a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @strong-accent@ /(complex)/+--+-- The strong-accent type indicates a vertical accent mark. The type attribute indicates if the point of the accent is down or up.+data StrongAccent = + StrongAccent {+ strongAccentEmptyPlacement :: StrongAccent+ , strongAccentType :: (Maybe UpDown) -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StrongAccent where+ emitXml (StrongAccent a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) b])+ ([emitXml a])+parseStrongAccent :: P.XParse StrongAccent+parseStrongAccent = + StrongAccent+ <$> parseStrongAccent+ <*> P.optional (P.xattr (P.name "type") >>= parseUpDown)++-- | Smart constructor for 'StrongAccent'+mkStrongAccent :: StrongAccent -> StrongAccent+mkStrongAccent a = StrongAccent a Nothing++-- | @style-text@ /(complex)/+--+-- The style-text type represents a text element with a print-style attribute group.+data StyleText = + StyleText {+ styleTextString :: String -- ^ text content+ , styleTextDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , styleTextDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , styleTextRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , styleTextRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , styleTextFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , styleTextFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , styleTextFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , styleTextFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , styleTextColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StyleText where+ emitXml (StyleText a b c d e f g h i j) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j])+ []+parseStyleText :: P.XParse StyleText+parseStyleText = + StyleText+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'StyleText'+mkStyleText :: String -> StyleText+mkStyleText a = StyleText a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @supports@ /(complex)/+--+-- The supports type indicates if a MusicXML encoding supports a particular MusicXML element. This is recommended for elements like beam, stem, and accidental, where the absence of an element is ambiguous if you do not know if the encoding supports that element. For Version 2.0, the supports element is expanded to allow programs to indicate support for particular attributes or particular values. This lets applications communicate, for example, that all system and/or page breaks are contained in the MusicXML file.+data Supports = + Supports {+ supportsType :: YesNo -- ^ /type/ attribute+ , supportsElement :: NMTOKEN -- ^ /element/ attribute+ , supportsAttribute :: (Maybe NMTOKEN) -- ^ /attribute/ attribute+ , supportsValue :: (Maybe Token) -- ^ /value/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Supports where+ emitXml (Supports a b c d) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [XAttr (QN "element" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "attribute" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "value" Nothing).emitXml) d])+ []+parseSupports :: P.XParse Supports+parseSupports = + Supports+ <$> (P.xattr (P.name "type") >>= parseYesNo)+ <*> (P.xattr (P.name "element") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "attribute") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "value") >>= parseToken)++-- | Smart constructor for 'Supports'+mkSupports :: YesNo -> NMTOKEN -> Supports+mkSupports a b = Supports a b Nothing Nothing++-- | @system-dividers@ /(complex)/+--+-- The system-dividers element indicates the presence or absence of system dividers (also known as system separation marks) between systems displayed on the same page. Dividers on the left and right side of the page are controlled by the left-divider and right-divider elements respectively. The default vertical position is half the system-distance value from the top of the system that is below the divider. The default horizontal position is the left and right system margin, respectively.+-- +-- When used in the print element, the system-dividers element affects the dividers that would appear between the current system and the previous system.+data SystemDividers = + SystemDividers {+ systemDividersLeftDivider :: EmptyPrintObjectStyleAlign -- ^ /left-divider/ child element+ , systemDividersRightDivider :: EmptyPrintObjectStyleAlign -- ^ /right-divider/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SystemDividers where+ emitXml (SystemDividers a b) =+ XContent XEmpty+ []+ ([XElement (QN "left-divider" Nothing) (emitXml a)] +++ [XElement (QN "right-divider" Nothing) (emitXml b)])+parseSystemDividers :: P.XParse SystemDividers+parseSystemDividers = + SystemDividers+ <$> (P.xchild (P.name "left-divider") (parseEmptyPrintObjectStyleAlign))+ <*> (P.xchild (P.name "right-divider") (parseEmptyPrintObjectStyleAlign))++-- | Smart constructor for 'SystemDividers'+mkSystemDividers :: EmptyPrintObjectStyleAlign -> EmptyPrintObjectStyleAlign -> SystemDividers+mkSystemDividers a b = SystemDividers a b++-- | @system-layout@ /(complex)/+--+-- A system is a group of staves that are read and played simultaneously. System layout includes left and right margins and the vertical distance from the previous system. The system distance is measured from the bottom line of the previous system to the top line of the current system. It is ignored for the first system on a page. The top system distance is measured from the page's top margin to the top line of the first system. It is ignored for all but the first system on a page.+-- +-- Sometimes the sum of measure widths in a system may not equal the system width specified by the layout elements due to roundoff or other errors. The behavior when reading MusicXML files in these cases is application-dependent. For instance, applications may find that the system layout data is more reliable than the sum of the measure widths, and adjust the measure widths accordingly.+data SystemLayout = + SystemLayout {+ systemLayoutSystemMargins :: (Maybe SystemMargins) -- ^ /system-margins/ child element+ , systemLayoutSystemDistance :: (Maybe Tenths) -- ^ /system-distance/ child element+ , systemLayoutTopSystemDistance :: (Maybe Tenths) -- ^ /top-system-distance/ child element+ , systemLayoutSystemDividers :: (Maybe SystemDividers) -- ^ /system-dividers/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SystemLayout where+ emitXml (SystemLayout a b c d) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "system-margins" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "system-distance" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "top-system-distance" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "system-dividers" Nothing).emitXml) d])+parseSystemLayout :: P.XParse SystemLayout+parseSystemLayout = + SystemLayout+ <$> P.optional (P.xchild (P.name "system-margins") (parseSystemMargins))+ <*> P.optional (P.xchild (P.name "system-distance") (P.xtext >>= parseTenths))+ <*> P.optional (P.xchild (P.name "top-system-distance") (P.xtext >>= parseTenths))+ <*> P.optional (P.xchild (P.name "system-dividers") (parseSystemDividers))++-- | Smart constructor for 'SystemLayout'+mkSystemLayout :: SystemLayout+mkSystemLayout = SystemLayout Nothing Nothing Nothing Nothing++-- | @system-margins@ /(complex)/+--+-- System margins are relative to the page margins. Positive values indent and negative values reduce the margin size.+data SystemMargins = + SystemMargins {+ systemMarginsLeftRightMargins :: LeftRightMargins+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SystemMargins where+ emitXml (SystemMargins a) =+ XReps [emitXml a]+parseSystemMargins :: P.XParse SystemMargins+parseSystemMargins = + SystemMargins+ <$> parseLeftRightMargins++-- | Smart constructor for 'SystemMargins'+mkSystemMargins :: LeftRightMargins -> SystemMargins+mkSystemMargins a = SystemMargins a++-- | @technical@ /(complex)/+--+-- Technical indications give performance information for individual instruments.+data Technical = + Technical {+ technicalTechnical :: [ChxTechnical]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Technical where+ emitXml (Technical a) =+ XReps [emitXml a]+parseTechnical :: P.XParse Technical+parseTechnical = + Technical+ <$> P.many (parseChxTechnical)++-- | Smart constructor for 'Technical'+mkTechnical :: Technical+mkTechnical = Technical []++-- | @text-element-data@ /(complex)/+--+-- The text-element-data type represents a syllable or portion of a syllable for lyric text underlay. A hyphen in the string content should only be used for an actual hyphenated word. Language names for text elements come from ISO 639, with optional country subcodes from ISO 3166.+data TextElementData = + TextElementData {+ textElementDataString :: String -- ^ text content+ , textElementDataLang :: (Maybe Lang) -- ^ /xml:lang/ attribute+ , textElementDataFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , textElementDataFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , textElementDataFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , textElementDataFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , textElementDataColor :: (Maybe Color) -- ^ /color/ attribute+ , textElementDataUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , textElementDataOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , textElementDataLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , textElementDataRotation :: (Maybe RotationDegrees) -- ^ /rotation/ attribute+ , textElementDataLetterSpacing :: (Maybe NumberOrNormal) -- ^ /letter-spacing/ attribute+ , textElementDataDir :: (Maybe TextDirection) -- ^ /dir/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TextElementData where+ emitXml (TextElementData a b c d e f g h i j k l m) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "lang" (Just "xml")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "rotation" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "letter-spacing" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "dir" Nothing).emitXml) m])+ []+parseTextElementData :: P.XParse TextElementData+parseTextElementData = + TextElementData+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "xml:lang") >>= parseLang)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "rotation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "letter-spacing") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "dir") >>= parseTextDirection)++-- | Smart constructor for 'TextElementData'+mkTextElementData :: String -> TextElementData+mkTextElementData a = TextElementData a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @text-font-color@ /(complex)/+--+-- The text-font-color type represents text with optional font and color information. It is used for the elision element.+data TextFontColor = + TextFontColor {+ textFontColorString :: String -- ^ text content+ , textFontColorLang :: (Maybe Lang) -- ^ /xml:lang/ attribute+ , textFontColorFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , textFontColorFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , textFontColorFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , textFontColorFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , textFontColorColor :: (Maybe Color) -- ^ /color/ attribute+ , textFontColorUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , textFontColorOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , textFontColorLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , textFontColorRotation :: (Maybe RotationDegrees) -- ^ /rotation/ attribute+ , textFontColorLetterSpacing :: (Maybe NumberOrNormal) -- ^ /letter-spacing/ attribute+ , textFontColorDir :: (Maybe TextDirection) -- ^ /dir/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TextFontColor where+ emitXml (TextFontColor a b c d e f g h i j k l m) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "lang" (Just "xml")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "rotation" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "letter-spacing" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "dir" Nothing).emitXml) m])+ []+parseTextFontColor :: P.XParse TextFontColor+parseTextFontColor = + TextFontColor+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "xml:lang") >>= parseLang)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "rotation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "letter-spacing") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "dir") >>= parseTextDirection)++-- | Smart constructor for 'TextFontColor'+mkTextFontColor :: String -> TextFontColor+mkTextFontColor a = TextFontColor a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @tie@ /(complex)/+--+-- The tie element indicates that a tie begins or ends with this note. If the tie element applies only particular times through a repeat, the time-only attribute indicates which times to apply it. The tie element indicates sound; the tied element indicates notation.+data Tie = + Tie {+ tieType :: StartStop -- ^ /type/ attribute+ , tieTimeOnly :: (Maybe TimeOnly) -- ^ /time-only/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tie where+ emitXml (Tie a b) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "time-only" Nothing).emitXml) b])+ []+parseTie :: P.XParse Tie+parseTie = + Tie+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "time-only") >>= parseTimeOnly)++-- | Smart constructor for 'Tie'+mkTie :: StartStop -> Tie+mkTie a = Tie a Nothing++-- | @tied@ /(complex)/+--+-- The tied type represents the notated tie. The tie element represents the tie sound.+-- +-- The number attribute is rarely needed to disambiguate ties, since note pitches will usually suffice. The attribute is implied rather than defaulting to 1 as with most elements. It is available for use in more complex tied notation situations.+data Tied = + Tied {+ tiedType :: StartStopContinue -- ^ /type/ attribute+ , tiedNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , tiedLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , tiedDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , tiedSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , tiedDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , tiedDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , tiedRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , tiedRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , tiedPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , tiedOrientation :: (Maybe OverUnder) -- ^ /orientation/ attribute+ , tiedBezierOffset :: (Maybe Divisions) -- ^ /bezier-offset/ attribute+ , tiedBezierOffset2 :: (Maybe Divisions) -- ^ /bezier-offset2/ attribute+ , tiedBezierX :: (Maybe Tenths) -- ^ /bezier-x/ attribute+ , tiedBezierY :: (Maybe Tenths) -- ^ /bezier-y/ attribute+ , tiedBezierX2 :: (Maybe Tenths) -- ^ /bezier-x2/ attribute+ , tiedBezierY2 :: (Maybe Tenths) -- ^ /bezier-y2/ attribute+ , tiedColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tied where+ emitXml (Tied a b c d e f g h i j k l m n o p q r) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "orientation" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "bezier-offset" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "bezier-offset2" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "bezier-x" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "bezier-y" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "bezier-x2" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "bezier-y2" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) r])+ []+parseTied :: P.XParse Tied+parseTied = + Tied+ <$> (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "orientation") >>= parseOverUnder)+ <*> P.optional (P.xattr (P.name "bezier-offset") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "bezier-offset2") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "bezier-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-x2") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-y2") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Tied'+mkTied :: StartStopContinue -> Tied+mkTied a = Tied a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @time@ /(complex)/+--+-- Time signatures are represented by the beats element for the numerator and the beat-type element for the denominator. The symbol attribute is used indicate common and cut time symbols as well as a single number display. Multiple pairs of beat and beat-type elements are used for composite time signatures with multiple denominators, such as 2/4 + 3/8. A composite such as 3+2/8 requires only one beat/beat-type pair.+-- +-- The print-object attribute allows a time signature to be specified but not printed, as is the case for excerpts from the middle of a score. The value is "yes" if not present. The optional number attribute refers to staff numbers within the part. If absent, the time signature applies to all staves in the part.+data Time = + Time {+ timeNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , timeSymbol :: (Maybe TimeSymbol) -- ^ /symbol/ attribute+ , timeSeparator :: (Maybe TimeSeparator) -- ^ /separator/ attribute+ , timeDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , timeDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , timeRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , timeRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , timeFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , timeFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , timeFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , timeFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , timeColor :: (Maybe Color) -- ^ /color/ attribute+ , timeHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , timeValign :: (Maybe Valign) -- ^ /valign/ attribute+ , timePrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , timeTime :: ChxTime+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Time where+ emitXml (Time a b c d e f g h i j k l m n o p) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "symbol" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "separator" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) o])+ ([emitXml p])+parseTime :: P.XParse Time+parseTime = + Time+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "symbol") >>= parseTimeSymbol)+ <*> P.optional (P.xattr (P.name "separator") >>= parseTimeSeparator)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> parseChxTime++-- | Smart constructor for 'Time'+mkTime :: ChxTime -> Time+mkTime p = Time Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing p++-- | @time-modification@ /(complex)/+--+-- Time modification indicates tuplets, double-note tremolos, and other durational changes. A time-modification element shows how the cumulative, sounding effect of tuplets and double-note tremolos compare to the written note type represented by the type and dot elements. Nested tuplets and other notations that use more detailed information need both the time-modification and tuplet elements to be represented accurately.+data TimeModification = + TimeModification {+ timeModificationActualNotes :: NonNegativeInteger -- ^ /actual-notes/ child element+ , timeModificationNormalNotes :: NonNegativeInteger -- ^ /normal-notes/ child element+ , timeModificationTimeModification :: (Maybe SeqTimeModification)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TimeModification where+ emitXml (TimeModification a b c) =+ XContent XEmpty+ []+ ([XElement (QN "actual-notes" Nothing) (emitXml a)] +++ [XElement (QN "normal-notes" Nothing) (emitXml b)] +++ [emitXml c])+parseTimeModification :: P.XParse TimeModification+parseTimeModification = + TimeModification+ <$> (P.xchild (P.name "actual-notes") (P.xtext >>= parseNonNegativeInteger))+ <*> (P.xchild (P.name "normal-notes") (P.xtext >>= parseNonNegativeInteger))+ <*> P.optional (parseSeqTimeModification)++-- | Smart constructor for 'TimeModification'+mkTimeModification :: NonNegativeInteger -> NonNegativeInteger -> TimeModification+mkTimeModification a b = TimeModification a b Nothing++-- | @transpose@ /(complex)/+--+-- The transpose type represents what must be added to a written pitch to get a correct sounding pitch. The optional number attribute refers to staff numbers, from top to bottom on the system. If absent, the transposition applies to all staves in the part. Per-staff transposition is most often used in parts that represent multiple instruments.+data Transpose = + Transpose {+ transposeNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , transposeDiatonic :: (Maybe Int) -- ^ /diatonic/ child element+ , transposeChromatic :: Semitones -- ^ /chromatic/ child element+ , transposeOctaveChange :: (Maybe Int) -- ^ /octave-change/ child element+ , transposeDouble :: (Maybe Empty) -- ^ /double/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Transpose where+ emitXml (Transpose a b c d e) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a])+ ([maybe XEmpty (XElement (QN "diatonic" Nothing).emitXml) b] +++ [XElement (QN "chromatic" Nothing) (emitXml c)] +++ [maybe XEmpty (XElement (QN "octave-change" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "double" Nothing).emitXml) e])+parseTranspose :: P.XParse Transpose+parseTranspose = + Transpose+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xchild (P.name "diatonic") (P.xtext >>= (P.xread "Integer")))+ <*> (P.xchild (P.name "chromatic") (P.xtext >>= parseSemitones))+ <*> P.optional (P.xchild (P.name "octave-change") (P.xtext >>= (P.xread "Integer")))+ <*> P.optional (P.xchild (P.name "double") (parseEmpty))++-- | Smart constructor for 'Transpose'+mkTranspose :: Semitones -> Transpose+mkTranspose c = Transpose Nothing Nothing c Nothing Nothing++-- | @tremolo@ /(complex)/+--+-- The tremolo ornament can be used to indicate either single-note or double-note tremolos. Single-note tremolos use the single type, while double-note tremolos use the start and stop types. The default is "single" for compatibility with Version 1.1. The text of the element indicates the number of tremolo marks and is an integer from 0 to 8. Note that the number of attached beams is not included in this value, but is represented separately using the beam element.+-- +-- When using double-note tremolos, the duration of each note in the tremolo should correspond to half of the notated type value. A time-modification element should also be added with an actual-notes value of 2 and a normal-notes value of 1. If used within a tuplet, this 2/1 ratio should be multiplied by the existing tuplet ratio.+-- +-- Using repeater beams for indicating tremolos is deprecated as of MusicXML 3.0.+data Tremolo = + Tremolo {+ tremoloTremoloMarks :: TremoloMarks -- ^ text content+ , tremoloType :: (Maybe StartStopSingle) -- ^ /type/ attribute+ , tremoloDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , tremoloDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , tremoloRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , tremoloRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , tremoloFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , tremoloFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , tremoloFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , tremoloFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , tremoloColor :: (Maybe Color) -- ^ /color/ attribute+ , tremoloPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tremolo where+ emitXml (Tremolo a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) l])+ []+parseTremolo :: P.XParse Tremolo+parseTremolo = + Tremolo+ <$> (P.xtext >>= parseTremoloMarks)+ <*> P.optional (P.xattr (P.name "type") >>= parseStartStopSingle)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'Tremolo'+mkTremolo :: TremoloMarks -> Tremolo+mkTremolo a = Tremolo a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @tuplet@ /(complex)/+--+-- A tuplet element is present when a tuplet is to be displayed graphically, in addition to the sound data provided by the time-modification elements. The number attribute is used to distinguish nested tuplets. The bracket attribute is used to indicate the presence of a bracket. If unspecified, the results are implementation-dependent. The line-shape attribute is used to specify whether the bracket is straight or in the older curved or slurred style. It is straight by default.+-- +-- Whereas a time-modification element shows how the cumulative, sounding effect of tuplets and double-note tremolos compare to the written note type, the tuplet element describes how this is displayed. The tuplet element also provides more detailed representation information than the time-modification element, and is needed to represent nested tuplets and other complex tuplets accurately. +-- +-- The show-number attribute is used to display either the number of actual notes, the number of both actual and normal notes, or neither. It is actual by default. The show-type attribute is used to display either the actual type, both the actual and normal types, or neither. It is none by default.+data Tuplet = + Tuplet {+ tupletType :: StartStop -- ^ /type/ attribute+ , tupletNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , tupletBracket :: (Maybe YesNo) -- ^ /bracket/ attribute+ , tupletShowNumber :: (Maybe ShowTuplet) -- ^ /show-number/ attribute+ , tupletShowType :: (Maybe ShowTuplet) -- ^ /show-type/ attribute+ , tupletLineShape :: (Maybe LineShape) -- ^ /line-shape/ attribute+ , tupletDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , tupletDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , tupletRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , tupletRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , tupletPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , tupletTupletActual :: (Maybe TupletPortion) -- ^ /tuplet-actual/ child element+ , tupletTupletNormal :: (Maybe TupletPortion) -- ^ /tuplet-normal/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tuplet where+ emitXml (Tuplet a b c d e f g h i j k l m) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "bracket" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "show-number" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "show-type" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "line-shape" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ ([maybe XEmpty (XElement (QN "tuplet-actual" Nothing).emitXml) l] +++ [maybe XEmpty (XElement (QN "tuplet-normal" Nothing).emitXml) m])+parseTuplet :: P.XParse Tuplet+parseTuplet = + Tuplet+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "bracket") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "show-number") >>= parseShowTuplet)+ <*> P.optional (P.xattr (P.name "show-type") >>= parseShowTuplet)+ <*> P.optional (P.xattr (P.name "line-shape") >>= parseLineShape)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xchild (P.name "tuplet-actual") (parseTupletPortion))+ <*> P.optional (P.xchild (P.name "tuplet-normal") (parseTupletPortion))++-- | Smart constructor for 'Tuplet'+mkTuplet :: StartStop -> Tuplet+mkTuplet a = Tuplet a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @tuplet-dot@ /(complex)/+--+-- The tuplet-dot type is used to specify dotted normal tuplet types.+data TupletDot = + TupletDot {+ tupletDotFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , tupletDotFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , tupletDotFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , tupletDotFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , tupletDotColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TupletDot where+ emitXml (TupletDot a b c d e) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) e])+ []+parseTupletDot :: P.XParse TupletDot+parseTupletDot = + TupletDot+ <$> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'TupletDot'+mkTupletDot :: TupletDot+mkTupletDot = TupletDot Nothing Nothing Nothing Nothing Nothing++-- | @tuplet-number@ /(complex)/+--+-- The tuplet-number type indicates the number of notes for this portion of the tuplet.+data TupletNumber = + TupletNumber {+ tupletNumberNonNegativeInteger :: NonNegativeInteger -- ^ text content+ , tupletNumberFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , tupletNumberFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , tupletNumberFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , tupletNumberFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , tupletNumberColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TupletNumber where+ emitXml (TupletNumber a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseTupletNumber :: P.XParse TupletNumber+parseTupletNumber = + TupletNumber+ <$> (P.xtext >>= parseNonNegativeInteger)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'TupletNumber'+mkTupletNumber :: NonNegativeInteger -> TupletNumber+mkTupletNumber a = TupletNumber a Nothing Nothing Nothing Nothing Nothing++-- | @tuplet-portion@ /(complex)/+--+-- The tuplet-portion type provides optional full control over tuplet specifications. It allows the number and note type (including dots) to be set for the actual and normal portions of a single tuplet. If any of these elements are absent, their values are based on the time-modification element.+data TupletPortion = + TupletPortion {+ tupletPortionTupletNumber :: (Maybe TupletNumber) -- ^ /tuplet-number/ child element+ , tupletPortionTupletType :: (Maybe TupletType) -- ^ /tuplet-type/ child element+ , tupletPortionTupletDot :: [TupletDot] -- ^ /tuplet-dot/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TupletPortion where+ emitXml (TupletPortion a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "tuplet-number" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "tuplet-type" Nothing).emitXml) b] +++ map (XElement (QN "tuplet-dot" Nothing).emitXml) c)+parseTupletPortion :: P.XParse TupletPortion+parseTupletPortion = + TupletPortion+ <$> P.optional (P.xchild (P.name "tuplet-number") (parseTupletNumber))+ <*> P.optional (P.xchild (P.name "tuplet-type") (parseTupletType))+ <*> P.many (P.xchild (P.name "tuplet-dot") (parseTupletDot))++-- | Smart constructor for 'TupletPortion'+mkTupletPortion :: TupletPortion+mkTupletPortion = TupletPortion Nothing Nothing []++-- | @tuplet-type@ /(complex)/+--+-- The tuplet-type type indicates the graphical note type of the notes for this portion of the tuplet.+data TupletType = + TupletType {+ tupletTypeNoteTypeValue :: NoteTypeValue -- ^ text content+ , tupletTypeFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , tupletTypeFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , tupletTypeFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , tupletTypeFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , tupletTypeColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TupletType where+ emitXml (TupletType a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseTupletType :: P.XParse TupletType+parseTupletType = + TupletType+ <$> (P.xtext >>= parseNoteTypeValue)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'TupletType'+mkTupletType :: NoteTypeValue -> TupletType+mkTupletType a = TupletType a Nothing Nothing Nothing Nothing Nothing++-- | @typed-text@ /(complex)/+--+-- The typed-text type represents a text element with a type attributes.+data TypedText = + TypedText {+ typedTextString :: String -- ^ text content+ , typedTextType :: (Maybe Token) -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TypedText where+ emitXml (TypedText a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) b])+ []+parseTypedText :: P.XParse TypedText+parseTypedText = + TypedText+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "type") >>= parseToken)++-- | Smart constructor for 'TypedText'+mkTypedText :: String -> TypedText+mkTypedText a = TypedText a Nothing++-- | @unpitched@ /(complex)/+--+-- The unpitched type represents musical elements that are notated on the staff but lack definite pitch, such as unpitched percussion and speaking voice.+data Unpitched = + Unpitched {+ unpitchedDisplayStepOctave :: (Maybe DisplayStepOctave)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Unpitched where+ emitXml (Unpitched a) =+ XReps [emitXml a]+parseUnpitched :: P.XParse Unpitched+parseUnpitched = + Unpitched+ <$> P.optional (parseDisplayStepOctave)++-- | Smart constructor for 'Unpitched'+mkUnpitched :: Unpitched+mkUnpitched = Unpitched Nothing++-- | @virtual-instrument@ /(complex)/+--+-- The virtual-instrument element defines a specific virtual instrument used for an instrument sound.+data VirtualInstrument = + VirtualInstrument {+ virtualInstrumentVirtualLibrary :: (Maybe String) -- ^ /virtual-library/ child element+ , virtualInstrumentVirtualName :: (Maybe String) -- ^ /virtual-name/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml VirtualInstrument where+ emitXml (VirtualInstrument a b) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "virtual-library" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "virtual-name" Nothing).emitXml) b])+parseVirtualInstrument :: P.XParse VirtualInstrument+parseVirtualInstrument = + VirtualInstrument+ <$> P.optional (P.xchild (P.name "virtual-library") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "virtual-name") (P.xtext >>= return))++-- | Smart constructor for 'VirtualInstrument'+mkVirtualInstrument :: VirtualInstrument+mkVirtualInstrument = VirtualInstrument Nothing Nothing++-- | @wavy-line@ /(complex)/+--+-- Wavy lines are one way to indicate trills. When used with a measure element, they should always have type="continue" set.+data WavyLine = + WavyLine {+ wavyLineType :: StartStopContinue -- ^ /type/ attribute+ , wavyLineNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , wavyLineDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , wavyLineDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , wavyLineRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , wavyLineRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , wavyLinePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , wavyLineColor :: (Maybe Color) -- ^ /color/ attribute+ , wavyLineStartNote :: (Maybe StartNote) -- ^ /start-note/ attribute+ , wavyLineTrillStep :: (Maybe TrillStep) -- ^ /trill-step/ attribute+ , wavyLineTwoNoteTurn :: (Maybe TwoNoteTurn) -- ^ /two-note-turn/ attribute+ , wavyLineAccelerate :: (Maybe YesNo) -- ^ /accelerate/ attribute+ , wavyLineBeats :: (Maybe TrillBeats) -- ^ /beats/ attribute+ , wavyLineSecondBeat :: (Maybe Percent) -- ^ /second-beat/ attribute+ , wavyLineLastBeat :: (Maybe Percent) -- ^ /last-beat/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml WavyLine where+ emitXml (WavyLine a b c d e f g h i j k l m n o) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "start-note" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "trill-step" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "two-note-turn" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "accelerate" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "beats" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "second-beat" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "last-beat" Nothing).emitXml) o])+ []+parseWavyLine :: P.XParse WavyLine+parseWavyLine = + WavyLine+ <$> (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "start-note") >>= parseStartNote)+ <*> P.optional (P.xattr (P.name "trill-step") >>= parseTrillStep)+ <*> P.optional (P.xattr (P.name "two-note-turn") >>= parseTwoNoteTurn)+ <*> P.optional (P.xattr (P.name "accelerate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "beats") >>= parseTrillBeats)+ <*> P.optional (P.xattr (P.name "second-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "last-beat") >>= parsePercent)++-- | Smart constructor for 'WavyLine'+mkWavyLine :: StartStopContinue -> WavyLine+mkWavyLine a = WavyLine a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @wedge@ /(complex)/+--+-- The wedge type represents crescendo and diminuendo wedge symbols. The type attribute is crescendo for the start of a wedge that is closed at the left side, and diminuendo for the start of a wedge that is closed on the right side. Spread values are measured in tenths; those at the start of a crescendo wedge or end of a diminuendo wedge are ignored. The niente attribute is yes if a circle appears at the point of the wedge, indicating a crescendo from nothing or diminuendo to nothing. It is no by default, and used only when the type is crescendo, or the type is stop for a wedge that began with a diminuendo type. The line-type is solid by default.+data Wedge = + Wedge {+ wedgeType :: WedgeType -- ^ /type/ attribute+ , wedgeNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , wedgeSpread :: (Maybe Tenths) -- ^ /spread/ attribute+ , wedgeNiente :: (Maybe YesNo) -- ^ /niente/ attribute+ , wedgeLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , wedgeDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , wedgeSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , wedgeDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , wedgeDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , wedgeRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , wedgeRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , wedgeColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Wedge where+ emitXml (Wedge a b c d e f g h i j k l) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "spread" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "niente" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l])+ []+parseWedge :: P.XParse Wedge+parseWedge = + Wedge+ <$> (P.xattr (P.name "type") >>= parseWedgeType)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "spread") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "niente") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Wedge'+mkWedge :: WedgeType -> Wedge+mkWedge a = Wedge a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @work@ /(complex)/+--+-- Works are optionally identified by number and title. The work type also may indicate a link to the opus document that composes multiple scores into a collection.+data Work = + Work {+ workWorkNumber :: (Maybe String) -- ^ /work-number/ child element+ , workWorkTitle :: (Maybe String) -- ^ /work-title/ child element+ , workOpus :: (Maybe Opus) -- ^ /opus/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Work where+ emitXml (Work a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "work-number" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "work-title" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "opus" Nothing).emitXml) c])+parseWork :: P.XParse Work+parseWork = + Work+ <$> P.optional (P.xchild (P.name "work-number") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "work-title") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "opus") (parseOpus))++-- | Smart constructor for 'Work'+mkWork :: Work+mkWork = Work Nothing Nothing Nothing++-- | @arrow@ /(choice)/+data ChxArrow = + ArrowArrowDirection {+ arrowArrowDirection :: ArrowDirection -- ^ /arrow-direction/ child element+ , arrowArrowStyle :: (Maybe ArrowStyle) -- ^ /arrow-style/ child element+ }+ | ArrowCircularArrow {+ arrowCircularArrow :: CircularArrow -- ^ /circular-arrow/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxArrow where+ emitXml (ArrowArrowDirection a b) =+ XContent XEmpty+ []+ ([XElement (QN "arrow-direction" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "arrow-style" Nothing).emitXml) b])+ emitXml (ArrowCircularArrow a) =+ XContent XEmpty+ []+ ([XElement (QN "circular-arrow" Nothing) (emitXml a)])+parseChxArrow :: P.XParse ChxArrow+parseChxArrow = + ArrowArrowDirection+ <$> (P.xchild (P.name "arrow-direction") (P.xtext >>= parseArrowDirection))+ <*> P.optional (P.xchild (P.name "arrow-style") (P.xtext >>= parseArrowStyle))+ <|> ArrowCircularArrow+ <$> (P.xchild (P.name "circular-arrow") (P.xtext >>= parseCircularArrow))++-- | Smart constructor for 'ArrowArrowDirection'+mkArrowArrowDirection :: ArrowDirection -> ChxArrow+mkArrowArrowDirection a = ArrowArrowDirection a Nothing+-- | Smart constructor for 'ArrowCircularArrow'+mkArrowCircularArrow :: CircularArrow -> ChxArrow+mkArrowCircularArrow a = ArrowCircularArrow a++-- | @articulations@ /(choice)/+data ChxArticulations = + ArticulationsAccent {+ articulationsAccent :: EmptyPlacement -- ^ /accent/ child element+ }+ | ArticulationsStrongAccent {+ articulationsStrongAccent :: StrongAccent -- ^ /strong-accent/ child element+ }+ | ArticulationsStaccato {+ articulationsStaccato :: EmptyPlacement -- ^ /staccato/ child element+ }+ | ArticulationsTenuto {+ articulationsTenuto :: EmptyPlacement -- ^ /tenuto/ child element+ }+ | ArticulationsDetachedLegato {+ articulationsDetachedLegato :: EmptyPlacement -- ^ /detached-legato/ child element+ }+ | ArticulationsStaccatissimo {+ articulationsStaccatissimo :: EmptyPlacement -- ^ /staccatissimo/ child element+ }+ | ArticulationsSpiccato {+ articulationsSpiccato :: EmptyPlacement -- ^ /spiccato/ child element+ }+ | ArticulationsScoop {+ articulationsScoop :: EmptyLine -- ^ /scoop/ child element+ }+ | ArticulationsPlop {+ articulationsPlop :: EmptyLine -- ^ /plop/ child element+ }+ | ArticulationsDoit {+ articulationsDoit :: EmptyLine -- ^ /doit/ child element+ }+ | ArticulationsFalloff {+ articulationsFalloff :: EmptyLine -- ^ /falloff/ child element+ }+ | ArticulationsBreathMark {+ articulationsBreathMark :: BreathMark -- ^ /breath-mark/ child element+ }+ | ArticulationsCaesura {+ articulationsCaesura :: EmptyPlacement -- ^ /caesura/ child element+ }+ | ArticulationsStress {+ articulationsStress :: EmptyPlacement -- ^ /stress/ child element+ }+ | ArticulationsUnstress {+ articulationsUnstress :: EmptyPlacement -- ^ /unstress/ child element+ }+ | ArticulationsOtherArticulation {+ articulationsOtherArticulation :: PlacementText -- ^ /other-articulation/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxArticulations where+ emitXml (ArticulationsAccent a) =+ XContent XEmpty+ []+ ([XElement (QN "accent" Nothing) (emitXml a)])+ emitXml (ArticulationsStrongAccent a) =+ XContent XEmpty+ []+ ([XElement (QN "strong-accent" Nothing) (emitXml a)])+ emitXml (ArticulationsStaccato a) =+ XContent XEmpty+ []+ ([XElement (QN "staccato" Nothing) (emitXml a)])+ emitXml (ArticulationsTenuto a) =+ XContent XEmpty+ []+ ([XElement (QN "tenuto" Nothing) (emitXml a)])+ emitXml (ArticulationsDetachedLegato a) =+ XContent XEmpty+ []+ ([XElement (QN "detached-legato" Nothing) (emitXml a)])+ emitXml (ArticulationsStaccatissimo a) =+ XContent XEmpty+ []+ ([XElement (QN "staccatissimo" Nothing) (emitXml a)])+ emitXml (ArticulationsSpiccato a) =+ XContent XEmpty+ []+ ([XElement (QN "spiccato" Nothing) (emitXml a)])+ emitXml (ArticulationsScoop a) =+ XContent XEmpty+ []+ ([XElement (QN "scoop" Nothing) (emitXml a)])+ emitXml (ArticulationsPlop a) =+ XContent XEmpty+ []+ ([XElement (QN "plop" Nothing) (emitXml a)])+ emitXml (ArticulationsDoit a) =+ XContent XEmpty+ []+ ([XElement (QN "doit" Nothing) (emitXml a)])+ emitXml (ArticulationsFalloff a) =+ XContent XEmpty+ []+ ([XElement (QN "falloff" Nothing) (emitXml a)])+ emitXml (ArticulationsBreathMark a) =+ XContent XEmpty+ []+ ([XElement (QN "breath-mark" Nothing) (emitXml a)])+ emitXml (ArticulationsCaesura a) =+ XContent XEmpty+ []+ ([XElement (QN "caesura" Nothing) (emitXml a)])+ emitXml (ArticulationsStress a) =+ XContent XEmpty+ []+ ([XElement (QN "stress" Nothing) (emitXml a)])+ emitXml (ArticulationsUnstress a) =+ XContent XEmpty+ []+ ([XElement (QN "unstress" Nothing) (emitXml a)])+ emitXml (ArticulationsOtherArticulation a) =+ XContent XEmpty+ []+ ([XElement (QN "other-articulation" Nothing) (emitXml a)])+parseChxArticulations :: P.XParse ChxArticulations+parseChxArticulations = + ArticulationsAccent+ <$> (P.xchild (P.name "accent") (parseEmptyPlacement))+ <|> ArticulationsStrongAccent+ <$> (P.xchild (P.name "strong-accent") (parseStrongAccent))+ <|> ArticulationsStaccato+ <$> (P.xchild (P.name "staccato") (parseEmptyPlacement))+ <|> ArticulationsTenuto+ <$> (P.xchild (P.name "tenuto") (parseEmptyPlacement))+ <|> ArticulationsDetachedLegato+ <$> (P.xchild (P.name "detached-legato") (parseEmptyPlacement))+ <|> ArticulationsStaccatissimo+ <$> (P.xchild (P.name "staccatissimo") (parseEmptyPlacement))+ <|> ArticulationsSpiccato+ <$> (P.xchild (P.name "spiccato") (parseEmptyPlacement))+ <|> ArticulationsScoop+ <$> (P.xchild (P.name "scoop") (parseEmptyLine))+ <|> ArticulationsPlop+ <$> (P.xchild (P.name "plop") (parseEmptyLine))+ <|> ArticulationsDoit+ <$> (P.xchild (P.name "doit") (parseEmptyLine))+ <|> ArticulationsFalloff+ <$> (P.xchild (P.name "falloff") (parseEmptyLine))+ <|> ArticulationsBreathMark+ <$> (P.xchild (P.name "breath-mark") (parseBreathMark))+ <|> ArticulationsCaesura+ <$> (P.xchild (P.name "caesura") (parseEmptyPlacement))+ <|> ArticulationsStress+ <$> (P.xchild (P.name "stress") (parseEmptyPlacement))+ <|> ArticulationsUnstress+ <$> (P.xchild (P.name "unstress") (parseEmptyPlacement))+ <|> ArticulationsOtherArticulation+ <$> (P.xchild (P.name "other-articulation") (parsePlacementText))++-- | Smart constructor for 'ArticulationsAccent'+mkArticulationsAccent :: EmptyPlacement -> ChxArticulations+mkArticulationsAccent a = ArticulationsAccent a+-- | Smart constructor for 'ArticulationsStrongAccent'+mkArticulationsStrongAccent :: StrongAccent -> ChxArticulations+mkArticulationsStrongAccent a = ArticulationsStrongAccent a+-- | Smart constructor for 'ArticulationsStaccato'+mkArticulationsStaccato :: EmptyPlacement -> ChxArticulations+mkArticulationsStaccato a = ArticulationsStaccato a+-- | Smart constructor for 'ArticulationsTenuto'+mkArticulationsTenuto :: EmptyPlacement -> ChxArticulations+mkArticulationsTenuto a = ArticulationsTenuto a+-- | Smart constructor for 'ArticulationsDetachedLegato'+mkArticulationsDetachedLegato :: EmptyPlacement -> ChxArticulations+mkArticulationsDetachedLegato a = ArticulationsDetachedLegato a+-- | Smart constructor for 'ArticulationsStaccatissimo'+mkArticulationsStaccatissimo :: EmptyPlacement -> ChxArticulations+mkArticulationsStaccatissimo a = ArticulationsStaccatissimo a+-- | Smart constructor for 'ArticulationsSpiccato'+mkArticulationsSpiccato :: EmptyPlacement -> ChxArticulations+mkArticulationsSpiccato a = ArticulationsSpiccato a+-- | Smart constructor for 'ArticulationsScoop'+mkArticulationsScoop :: EmptyLine -> ChxArticulations+mkArticulationsScoop a = ArticulationsScoop a+-- | Smart constructor for 'ArticulationsPlop'+mkArticulationsPlop :: EmptyLine -> ChxArticulations+mkArticulationsPlop a = ArticulationsPlop a+-- | Smart constructor for 'ArticulationsDoit'+mkArticulationsDoit :: EmptyLine -> ChxArticulations+mkArticulationsDoit a = ArticulationsDoit a+-- | Smart constructor for 'ArticulationsFalloff'+mkArticulationsFalloff :: EmptyLine -> ChxArticulations+mkArticulationsFalloff a = ArticulationsFalloff a+-- | Smart constructor for 'ArticulationsBreathMark'+mkArticulationsBreathMark :: BreathMark -> ChxArticulations+mkArticulationsBreathMark a = ArticulationsBreathMark a+-- | Smart constructor for 'ArticulationsCaesura'+mkArticulationsCaesura :: EmptyPlacement -> ChxArticulations+mkArticulationsCaesura a = ArticulationsCaesura a+-- | Smart constructor for 'ArticulationsStress'+mkArticulationsStress :: EmptyPlacement -> ChxArticulations+mkArticulationsStress a = ArticulationsStress a+-- | Smart constructor for 'ArticulationsUnstress'+mkArticulationsUnstress :: EmptyPlacement -> ChxArticulations+mkArticulationsUnstress a = ArticulationsUnstress a+-- | Smart constructor for 'ArticulationsOtherArticulation'+mkArticulationsOtherArticulation :: PlacementText -> ChxArticulations+mkArticulationsOtherArticulation a = ArticulationsOtherArticulation a++-- | @bend@ /(choice)/+data ChxBend = + BendPreBend {+ bendPreBend :: Empty -- ^ /pre-bend/ child element+ }+ | BendRelease {+ bendRelease :: Empty -- ^ /release/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxBend where+ emitXml (BendPreBend a) =+ XContent XEmpty+ []+ ([XElement (QN "pre-bend" Nothing) (emitXml a)])+ emitXml (BendRelease a) =+ XContent XEmpty+ []+ ([XElement (QN "release" Nothing) (emitXml a)])+parseChxBend :: P.XParse ChxBend+parseChxBend = + BendPreBend+ <$> (P.xchild (P.name "pre-bend") (parseEmpty))+ <|> BendRelease+ <$> (P.xchild (P.name "release") (parseEmpty))++-- | Smart constructor for 'BendPreBend'+mkBendPreBend :: Empty -> ChxBend+mkBendPreBend a = BendPreBend a+-- | Smart constructor for 'BendRelease'+mkBendRelease :: Empty -> ChxBend+mkBendRelease a = BendRelease a++-- | @credit@ /(choice)/+data ChxCredit = + CreditCreditImage {+ creditCreditImage :: Image -- ^ /credit-image/ child element+ }+ | CreditCreditWords {+ creditCreditWords :: FormattedText -- ^ /credit-words/ child element+ , chxcreditCredit :: [SeqCredit]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxCredit where+ emitXml (CreditCreditImage a) =+ XContent XEmpty+ []+ ([XElement (QN "credit-image" Nothing) (emitXml a)])+ emitXml (CreditCreditWords a b) =+ XContent XEmpty+ []+ ([XElement (QN "credit-words" Nothing) (emitXml a)] +++ [emitXml b])+parseChxCredit :: P.XParse ChxCredit+parseChxCredit = + CreditCreditImage+ <$> (P.xchild (P.name "credit-image") (parseImage))+ <|> CreditCreditWords+ <$> (P.xchild (P.name "credit-words") (parseFormattedText))+ <*> P.many (parseSeqCredit)++-- | Smart constructor for 'CreditCreditImage'+mkCreditCreditImage :: Image -> ChxCredit+mkCreditCreditImage a = CreditCreditImage a+-- | Smart constructor for 'CreditCreditWords'+mkCreditCreditWords :: FormattedText -> ChxCredit+mkCreditCreditWords a = CreditCreditWords a []++-- | @direction-type@ /(choice)/+data ChxDirectionType = + DirectionTypeRehearsal {+ directionTypeRehearsal :: [FormattedText] -- ^ /rehearsal/ child element+ }+ | DirectionTypeSegno {+ directionTypeSegno :: [EmptyPrintStyleAlign] -- ^ /segno/ child element+ }+ | DirectionTypeWords {+ directionTypeWords :: [FormattedText] -- ^ /words/ child element+ }+ | DirectionTypeCoda {+ directionTypeCoda :: [EmptyPrintStyleAlign] -- ^ /coda/ child element+ }+ | DirectionTypeWedge {+ directionTypeWedge :: Wedge -- ^ /wedge/ child element+ }+ | DirectionTypeDynamics {+ directionTypeDynamics :: [Dynamics] -- ^ /dynamics/ child element+ }+ | DirectionTypeDashes {+ directionTypeDashes :: Dashes -- ^ /dashes/ child element+ }+ | DirectionTypeBracket {+ directionTypeBracket :: Bracket -- ^ /bracket/ child element+ }+ | DirectionTypePedal {+ directionTypePedal :: Pedal -- ^ /pedal/ child element+ }+ | DirectionTypeMetronome {+ directionTypeMetronome :: Metronome -- ^ /metronome/ child element+ }+ | DirectionTypeOctaveShift {+ directionTypeOctaveShift :: OctaveShift -- ^ /octave-shift/ child element+ }+ | DirectionTypeHarpPedals {+ directionTypeHarpPedals :: HarpPedals -- ^ /harp-pedals/ child element+ }+ | DirectionTypeDamp {+ directionTypeDamp :: EmptyPrintStyleAlign -- ^ /damp/ child element+ }+ | DirectionTypeDampAll {+ directionTypeDampAll :: EmptyPrintStyleAlign -- ^ /damp-all/ child element+ }+ | DirectionTypeEyeglasses {+ directionTypeEyeglasses :: EmptyPrintStyleAlign -- ^ /eyeglasses/ child element+ }+ | DirectionTypeStringMute {+ directionTypeStringMute :: StringMute -- ^ /string-mute/ child element+ }+ | DirectionTypeScordatura {+ directionTypeScordatura :: Scordatura -- ^ /scordatura/ child element+ }+ | DirectionTypeImage {+ directionTypeImage :: Image -- ^ /image/ child element+ }+ | DirectionTypePrincipalVoice {+ directionTypePrincipalVoice :: PrincipalVoice -- ^ /principal-voice/ child element+ }+ | DirectionTypeAccordionRegistration {+ directionTypeAccordionRegistration :: AccordionRegistration -- ^ /accordion-registration/ child element+ }+ | DirectionTypePercussion {+ directionTypePercussion :: [Percussion] -- ^ /percussion/ child element+ }+ | DirectionTypeOtherDirection {+ directionTypeOtherDirection :: OtherDirection -- ^ /other-direction/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxDirectionType where+ emitXml (DirectionTypeRehearsal a) =+ XContent XEmpty+ []+ (map (XElement (QN "rehearsal" Nothing).emitXml) a)+ emitXml (DirectionTypeSegno a) =+ XContent XEmpty+ []+ (map (XElement (QN "segno" Nothing).emitXml) a)+ emitXml (DirectionTypeWords a) =+ XContent XEmpty+ []+ (map (XElement (QN "words" Nothing).emitXml) a)+ emitXml (DirectionTypeCoda a) =+ XContent XEmpty+ []+ (map (XElement (QN "coda" Nothing).emitXml) a)+ emitXml (DirectionTypeWedge a) =+ XContent XEmpty+ []+ ([XElement (QN "wedge" Nothing) (emitXml a)])+ emitXml (DirectionTypeDynamics a) =+ XContent XEmpty+ []+ (map (XElement (QN "dynamics" Nothing).emitXml) a)+ emitXml (DirectionTypeDashes a) =+ XContent XEmpty+ []+ ([XElement (QN "dashes" Nothing) (emitXml a)])+ emitXml (DirectionTypeBracket a) =+ XContent XEmpty+ []+ ([XElement (QN "bracket" Nothing) (emitXml a)])+ emitXml (DirectionTypePedal a) =+ XContent XEmpty+ []+ ([XElement (QN "pedal" Nothing) (emitXml a)])+ emitXml (DirectionTypeMetronome a) =+ XContent XEmpty+ []+ ([XElement (QN "metronome" Nothing) (emitXml a)])+ emitXml (DirectionTypeOctaveShift a) =+ XContent XEmpty+ []+ ([XElement (QN "octave-shift" Nothing) (emitXml a)])+ emitXml (DirectionTypeHarpPedals a) =+ XContent XEmpty+ []+ ([XElement (QN "harp-pedals" Nothing) (emitXml a)])+ emitXml (DirectionTypeDamp a) =+ XContent XEmpty+ []+ ([XElement (QN "damp" Nothing) (emitXml a)])+ emitXml (DirectionTypeDampAll a) =+ XContent XEmpty+ []+ ([XElement (QN "damp-all" Nothing) (emitXml a)])+ emitXml (DirectionTypeEyeglasses a) =+ XContent XEmpty+ []+ ([XElement (QN "eyeglasses" Nothing) (emitXml a)])+ emitXml (DirectionTypeStringMute a) =+ XContent XEmpty+ []+ ([XElement (QN "string-mute" Nothing) (emitXml a)])+ emitXml (DirectionTypeScordatura a) =+ XContent XEmpty+ []+ ([XElement (QN "scordatura" Nothing) (emitXml a)])+ emitXml (DirectionTypeImage a) =+ XContent XEmpty+ []+ ([XElement (QN "image" Nothing) (emitXml a)])+ emitXml (DirectionTypePrincipalVoice a) =+ XContent XEmpty+ []+ ([XElement (QN "principal-voice" Nothing) (emitXml a)])+ emitXml (DirectionTypeAccordionRegistration a) =+ XContent XEmpty+ []+ ([XElement (QN "accordion-registration" Nothing) (emitXml a)])+ emitXml (DirectionTypePercussion a) =+ XContent XEmpty+ []+ (map (XElement (QN "percussion" Nothing).emitXml) a)+ emitXml (DirectionTypeOtherDirection a) =+ XContent XEmpty+ []+ ([XElement (QN "other-direction" Nothing) (emitXml a)])+parseChxDirectionType :: P.XParse ChxDirectionType+parseChxDirectionType = + DirectionTypeRehearsal+ <$> P.some (P.xchild (P.name "rehearsal") (parseFormattedText))+ <|> DirectionTypeSegno+ <$> P.some (P.xchild (P.name "segno") (parseEmptyPrintStyleAlign))+ <|> DirectionTypeWords+ <$> P.some (P.xchild (P.name "words") (parseFormattedText))+ <|> DirectionTypeCoda+ <$> P.some (P.xchild (P.name "coda") (parseEmptyPrintStyleAlign))+ <|> DirectionTypeWedge+ <$> (P.xchild (P.name "wedge") (parseWedge))+ <|> DirectionTypeDynamics+ <$> P.some (P.xchild (P.name "dynamics") (parseDynamics))+ <|> DirectionTypeDashes+ <$> (P.xchild (P.name "dashes") (parseDashes))+ <|> DirectionTypeBracket+ <$> (P.xchild (P.name "bracket") (parseBracket))+ <|> DirectionTypePedal+ <$> (P.xchild (P.name "pedal") (parsePedal))+ <|> DirectionTypeMetronome+ <$> (P.xchild (P.name "metronome") (parseMetronome))+ <|> DirectionTypeOctaveShift+ <$> (P.xchild (P.name "octave-shift") (parseOctaveShift))+ <|> DirectionTypeHarpPedals+ <$> (P.xchild (P.name "harp-pedals") (parseHarpPedals))+ <|> DirectionTypeDamp+ <$> (P.xchild (P.name "damp") (parseEmptyPrintStyleAlign))+ <|> DirectionTypeDampAll+ <$> (P.xchild (P.name "damp-all") (parseEmptyPrintStyleAlign))+ <|> DirectionTypeEyeglasses+ <$> (P.xchild (P.name "eyeglasses") (parseEmptyPrintStyleAlign))+ <|> DirectionTypeStringMute+ <$> (P.xchild (P.name "string-mute") (parseStringMute))+ <|> DirectionTypeScordatura+ <$> (P.xchild (P.name "scordatura") (parseScordatura))+ <|> DirectionTypeImage+ <$> (P.xchild (P.name "image") (parseImage))+ <|> DirectionTypePrincipalVoice+ <$> (P.xchild (P.name "principal-voice") (parsePrincipalVoice))+ <|> DirectionTypeAccordionRegistration+ <$> (P.xchild (P.name "accordion-registration") (parseAccordionRegistration))+ <|> DirectionTypePercussion+ <$> P.some (P.xchild (P.name "percussion") (parsePercussion))+ <|> DirectionTypeOtherDirection+ <$> (P.xchild (P.name "other-direction") (parseOtherDirection))++-- | Smart constructor for 'DirectionTypeRehearsal'+mkDirectionTypeRehearsal :: ChxDirectionType+mkDirectionTypeRehearsal = DirectionTypeRehearsal []+-- | Smart constructor for 'DirectionTypeSegno'+mkDirectionTypeSegno :: ChxDirectionType+mkDirectionTypeSegno = DirectionTypeSegno []+-- | Smart constructor for 'DirectionTypeWords'+mkDirectionTypeWords :: ChxDirectionType+mkDirectionTypeWords = DirectionTypeWords []+-- | Smart constructor for 'DirectionTypeCoda'+mkDirectionTypeCoda :: ChxDirectionType+mkDirectionTypeCoda = DirectionTypeCoda []+-- | Smart constructor for 'DirectionTypeWedge'+mkDirectionTypeWedge :: Wedge -> ChxDirectionType+mkDirectionTypeWedge a = DirectionTypeWedge a+-- | Smart constructor for 'DirectionTypeDynamics'+mkDirectionTypeDynamics :: ChxDirectionType+mkDirectionTypeDynamics = DirectionTypeDynamics []+-- | Smart constructor for 'DirectionTypeDashes'+mkDirectionTypeDashes :: Dashes -> ChxDirectionType+mkDirectionTypeDashes a = DirectionTypeDashes a+-- | Smart constructor for 'DirectionTypeBracket'+mkDirectionTypeBracket :: Bracket -> ChxDirectionType+mkDirectionTypeBracket a = DirectionTypeBracket a+-- | Smart constructor for 'DirectionTypePedal'+mkDirectionTypePedal :: Pedal -> ChxDirectionType+mkDirectionTypePedal a = DirectionTypePedal a+-- | Smart constructor for 'DirectionTypeMetronome'+mkDirectionTypeMetronome :: Metronome -> ChxDirectionType+mkDirectionTypeMetronome a = DirectionTypeMetronome a+-- | Smart constructor for 'DirectionTypeOctaveShift'+mkDirectionTypeOctaveShift :: OctaveShift -> ChxDirectionType+mkDirectionTypeOctaveShift a = DirectionTypeOctaveShift a+-- | Smart constructor for 'DirectionTypeHarpPedals'+mkDirectionTypeHarpPedals :: HarpPedals -> ChxDirectionType+mkDirectionTypeHarpPedals a = DirectionTypeHarpPedals a+-- | Smart constructor for 'DirectionTypeDamp'+mkDirectionTypeDamp :: EmptyPrintStyleAlign -> ChxDirectionType+mkDirectionTypeDamp a = DirectionTypeDamp a+-- | Smart constructor for 'DirectionTypeDampAll'+mkDirectionTypeDampAll :: EmptyPrintStyleAlign -> ChxDirectionType+mkDirectionTypeDampAll a = DirectionTypeDampAll a+-- | Smart constructor for 'DirectionTypeEyeglasses'+mkDirectionTypeEyeglasses :: EmptyPrintStyleAlign -> ChxDirectionType+mkDirectionTypeEyeglasses a = DirectionTypeEyeglasses a+-- | Smart constructor for 'DirectionTypeStringMute'+mkDirectionTypeStringMute :: StringMute -> ChxDirectionType+mkDirectionTypeStringMute a = DirectionTypeStringMute a+-- | Smart constructor for 'DirectionTypeScordatura'+mkDirectionTypeScordatura :: Scordatura -> ChxDirectionType+mkDirectionTypeScordatura a = DirectionTypeScordatura a+-- | Smart constructor for 'DirectionTypeImage'+mkDirectionTypeImage :: Image -> ChxDirectionType+mkDirectionTypeImage a = DirectionTypeImage a+-- | Smart constructor for 'DirectionTypePrincipalVoice'+mkDirectionTypePrincipalVoice :: PrincipalVoice -> ChxDirectionType+mkDirectionTypePrincipalVoice a = DirectionTypePrincipalVoice a+-- | Smart constructor for 'DirectionTypeAccordionRegistration'+mkDirectionTypeAccordionRegistration :: AccordionRegistration -> ChxDirectionType+mkDirectionTypeAccordionRegistration a = DirectionTypeAccordionRegistration a+-- | Smart constructor for 'DirectionTypePercussion'+mkDirectionTypePercussion :: ChxDirectionType+mkDirectionTypePercussion = DirectionTypePercussion []+-- | Smart constructor for 'DirectionTypeOtherDirection'+mkDirectionTypeOtherDirection :: OtherDirection -> ChxDirectionType+mkDirectionTypeOtherDirection a = DirectionTypeOtherDirection a++-- | @dynamics@ /(choice)/+data ChxDynamics = + DynamicsP {+ dynamicsP :: Empty -- ^ /p/ child element+ }+ | DynamicsPp {+ dynamicsPp :: Empty -- ^ /pp/ child element+ }+ | DynamicsPpp {+ dynamicsPpp :: Empty -- ^ /ppp/ child element+ }+ | DynamicsPppp {+ dynamicsPppp :: Empty -- ^ /pppp/ child element+ }+ | DynamicsPpppp {+ dynamicsPpppp :: Empty -- ^ /ppppp/ child element+ }+ | DynamicsPppppp {+ dynamicsPppppp :: Empty -- ^ /pppppp/ child element+ }+ | DynamicsF {+ dynamicsF :: Empty -- ^ /f/ child element+ }+ | DynamicsFf {+ dynamicsFf :: Empty -- ^ /ff/ child element+ }+ | DynamicsFff {+ dynamicsFff :: Empty -- ^ /fff/ child element+ }+ | DynamicsFfff {+ dynamicsFfff :: Empty -- ^ /ffff/ child element+ }+ | DynamicsFffff {+ dynamicsFffff :: Empty -- ^ /fffff/ child element+ }+ | DynamicsFfffff {+ dynamicsFfffff :: Empty -- ^ /ffffff/ child element+ }+ | DynamicsMp {+ dynamicsMp :: Empty -- ^ /mp/ child element+ }+ | DynamicsMf {+ dynamicsMf :: Empty -- ^ /mf/ child element+ }+ | DynamicsSf {+ dynamicsSf :: Empty -- ^ /sf/ child element+ }+ | DynamicsSfp {+ dynamicsSfp :: Empty -- ^ /sfp/ child element+ }+ | DynamicsSfpp {+ dynamicsSfpp :: Empty -- ^ /sfpp/ child element+ }+ | DynamicsFp {+ dynamicsFp :: Empty -- ^ /fp/ child element+ }+ | DynamicsRf {+ dynamicsRf :: Empty -- ^ /rf/ child element+ }+ | DynamicsRfz {+ dynamicsRfz :: Empty -- ^ /rfz/ child element+ }+ | DynamicsSfz {+ dynamicsSfz :: Empty -- ^ /sfz/ child element+ }+ | DynamicsSffz {+ dynamicsSffz :: Empty -- ^ /sffz/ child element+ }+ | DynamicsFz {+ dynamicsFz :: Empty -- ^ /fz/ child element+ }+ | DynamicsOtherDynamics {+ dynamicsOtherDynamics :: String -- ^ /other-dynamics/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxDynamics where+ emitXml (DynamicsP a) =+ XContent XEmpty+ []+ ([XElement (QN "p" Nothing) (emitXml a)])+ emitXml (DynamicsPp a) =+ XContent XEmpty+ []+ ([XElement (QN "pp" Nothing) (emitXml a)])+ emitXml (DynamicsPpp a) =+ XContent XEmpty+ []+ ([XElement (QN "ppp" Nothing) (emitXml a)])+ emitXml (DynamicsPppp a) =+ XContent XEmpty+ []+ ([XElement (QN "pppp" Nothing) (emitXml a)])+ emitXml (DynamicsPpppp a) =+ XContent XEmpty+ []+ ([XElement (QN "ppppp" Nothing) (emitXml a)])+ emitXml (DynamicsPppppp a) =+ XContent XEmpty+ []+ ([XElement (QN "pppppp" Nothing) (emitXml a)])+ emitXml (DynamicsF a) =+ XContent XEmpty+ []+ ([XElement (QN "f" Nothing) (emitXml a)])+ emitXml (DynamicsFf a) =+ XContent XEmpty+ []+ ([XElement (QN "ff" Nothing) (emitXml a)])+ emitXml (DynamicsFff a) =+ XContent XEmpty+ []+ ([XElement (QN "fff" Nothing) (emitXml a)])+ emitXml (DynamicsFfff a) =+ XContent XEmpty+ []+ ([XElement (QN "ffff" Nothing) (emitXml a)])+ emitXml (DynamicsFffff a) =+ XContent XEmpty+ []+ ([XElement (QN "fffff" Nothing) (emitXml a)])+ emitXml (DynamicsFfffff a) =+ XContent XEmpty+ []+ ([XElement (QN "ffffff" Nothing) (emitXml a)])+ emitXml (DynamicsMp a) =+ XContent XEmpty+ []+ ([XElement (QN "mp" Nothing) (emitXml a)])+ emitXml (DynamicsMf a) =+ XContent XEmpty+ []+ ([XElement (QN "mf" Nothing) (emitXml a)])+ emitXml (DynamicsSf a) =+ XContent XEmpty+ []+ ([XElement (QN "sf" Nothing) (emitXml a)])+ emitXml (DynamicsSfp a) =+ XContent XEmpty+ []+ ([XElement (QN "sfp" Nothing) (emitXml a)])+ emitXml (DynamicsSfpp a) =+ XContent XEmpty+ []+ ([XElement (QN "sfpp" Nothing) (emitXml a)])+ emitXml (DynamicsFp a) =+ XContent XEmpty+ []+ ([XElement (QN "fp" Nothing) (emitXml a)])+ emitXml (DynamicsRf a) =+ XContent XEmpty+ []+ ([XElement (QN "rf" Nothing) (emitXml a)])+ emitXml (DynamicsRfz a) =+ XContent XEmpty+ []+ ([XElement (QN "rfz" Nothing) (emitXml a)])+ emitXml (DynamicsSfz a) =+ XContent XEmpty+ []+ ([XElement (QN "sfz" Nothing) (emitXml a)])+ emitXml (DynamicsSffz a) =+ XContent XEmpty+ []+ ([XElement (QN "sffz" Nothing) (emitXml a)])+ emitXml (DynamicsFz a) =+ XContent XEmpty+ []+ ([XElement (QN "fz" Nothing) (emitXml a)])+ emitXml (DynamicsOtherDynamics a) =+ XContent XEmpty+ []+ ([XElement (QN "other-dynamics" Nothing) (emitXml a)])+parseChxDynamics :: P.XParse ChxDynamics+parseChxDynamics = + DynamicsP+ <$> (P.xchild (P.name "p") (parseEmpty))+ <|> DynamicsPp+ <$> (P.xchild (P.name "pp") (parseEmpty))+ <|> DynamicsPpp+ <$> (P.xchild (P.name "ppp") (parseEmpty))+ <|> DynamicsPppp+ <$> (P.xchild (P.name "pppp") (parseEmpty))+ <|> DynamicsPpppp+ <$> (P.xchild (P.name "ppppp") (parseEmpty))+ <|> DynamicsPppppp+ <$> (P.xchild (P.name "pppppp") (parseEmpty))+ <|> DynamicsF+ <$> (P.xchild (P.name "f") (parseEmpty))+ <|> DynamicsFf+ <$> (P.xchild (P.name "ff") (parseEmpty))+ <|> DynamicsFff+ <$> (P.xchild (P.name "fff") (parseEmpty))+ <|> DynamicsFfff+ <$> (P.xchild (P.name "ffff") (parseEmpty))+ <|> DynamicsFffff+ <$> (P.xchild (P.name "fffff") (parseEmpty))+ <|> DynamicsFfffff+ <$> (P.xchild (P.name "ffffff") (parseEmpty))+ <|> DynamicsMp+ <$> (P.xchild (P.name "mp") (parseEmpty))+ <|> DynamicsMf+ <$> (P.xchild (P.name "mf") (parseEmpty))+ <|> DynamicsSf+ <$> (P.xchild (P.name "sf") (parseEmpty))+ <|> DynamicsSfp+ <$> (P.xchild (P.name "sfp") (parseEmpty))+ <|> DynamicsSfpp+ <$> (P.xchild (P.name "sfpp") (parseEmpty))+ <|> DynamicsFp+ <$> (P.xchild (P.name "fp") (parseEmpty))+ <|> DynamicsRf+ <$> (P.xchild (P.name "rf") (parseEmpty))+ <|> DynamicsRfz+ <$> (P.xchild (P.name "rfz") (parseEmpty))+ <|> DynamicsSfz+ <$> (P.xchild (P.name "sfz") (parseEmpty))+ <|> DynamicsSffz+ <$> (P.xchild (P.name "sffz") (parseEmpty))+ <|> DynamicsFz+ <$> (P.xchild (P.name "fz") (parseEmpty))+ <|> DynamicsOtherDynamics+ <$> (P.xchild (P.name "other-dynamics") (P.xtext >>= return))++-- | Smart constructor for 'DynamicsP'+mkDynamicsP :: Empty -> ChxDynamics+mkDynamicsP a = DynamicsP a+-- | Smart constructor for 'DynamicsPp'+mkDynamicsPp :: Empty -> ChxDynamics+mkDynamicsPp a = DynamicsPp a+-- | Smart constructor for 'DynamicsPpp'+mkDynamicsPpp :: Empty -> ChxDynamics+mkDynamicsPpp a = DynamicsPpp a+-- | Smart constructor for 'DynamicsPppp'+mkDynamicsPppp :: Empty -> ChxDynamics+mkDynamicsPppp a = DynamicsPppp a+-- | Smart constructor for 'DynamicsPpppp'+mkDynamicsPpppp :: Empty -> ChxDynamics+mkDynamicsPpppp a = DynamicsPpppp a+-- | Smart constructor for 'DynamicsPppppp'+mkDynamicsPppppp :: Empty -> ChxDynamics+mkDynamicsPppppp a = DynamicsPppppp a+-- | Smart constructor for 'DynamicsF'+mkDynamicsF :: Empty -> ChxDynamics+mkDynamicsF a = DynamicsF a+-- | Smart constructor for 'DynamicsFf'+mkDynamicsFf :: Empty -> ChxDynamics+mkDynamicsFf a = DynamicsFf a+-- | Smart constructor for 'DynamicsFff'+mkDynamicsFff :: Empty -> ChxDynamics+mkDynamicsFff a = DynamicsFff a+-- | Smart constructor for 'DynamicsFfff'+mkDynamicsFfff :: Empty -> ChxDynamics+mkDynamicsFfff a = DynamicsFfff a+-- | Smart constructor for 'DynamicsFffff'+mkDynamicsFffff :: Empty -> ChxDynamics+mkDynamicsFffff a = DynamicsFffff a+-- | Smart constructor for 'DynamicsFfffff'+mkDynamicsFfffff :: Empty -> ChxDynamics+mkDynamicsFfffff a = DynamicsFfffff a+-- | Smart constructor for 'DynamicsMp'+mkDynamicsMp :: Empty -> ChxDynamics+mkDynamicsMp a = DynamicsMp a+-- | Smart constructor for 'DynamicsMf'+mkDynamicsMf :: Empty -> ChxDynamics+mkDynamicsMf a = DynamicsMf a+-- | Smart constructor for 'DynamicsSf'+mkDynamicsSf :: Empty -> ChxDynamics+mkDynamicsSf a = DynamicsSf a+-- | Smart constructor for 'DynamicsSfp'+mkDynamicsSfp :: Empty -> ChxDynamics+mkDynamicsSfp a = DynamicsSfp a+-- | Smart constructor for 'DynamicsSfpp'+mkDynamicsSfpp :: Empty -> ChxDynamics+mkDynamicsSfpp a = DynamicsSfpp a+-- | Smart constructor for 'DynamicsFp'+mkDynamicsFp :: Empty -> ChxDynamics+mkDynamicsFp a = DynamicsFp a+-- | Smart constructor for 'DynamicsRf'+mkDynamicsRf :: Empty -> ChxDynamics+mkDynamicsRf a = DynamicsRf a+-- | Smart constructor for 'DynamicsRfz'+mkDynamicsRfz :: Empty -> ChxDynamics+mkDynamicsRfz a = DynamicsRfz a+-- | Smart constructor for 'DynamicsSfz'+mkDynamicsSfz :: Empty -> ChxDynamics+mkDynamicsSfz a = DynamicsSfz a+-- | Smart constructor for 'DynamicsSffz'+mkDynamicsSffz :: Empty -> ChxDynamics+mkDynamicsSffz a = DynamicsSffz a+-- | Smart constructor for 'DynamicsFz'+mkDynamicsFz :: Empty -> ChxDynamics+mkDynamicsFz a = DynamicsFz a+-- | Smart constructor for 'DynamicsOtherDynamics'+mkDynamicsOtherDynamics :: String -> ChxDynamics+mkDynamicsOtherDynamics a = DynamicsOtherDynamics a++-- | @encoding@ /(choice)/+data ChxEncoding = + EncodingEncodingDate {+ encodingEncodingDate :: YyyyMmDd -- ^ /encoding-date/ child element+ }+ | EncodingEncoder {+ encodingEncoder :: TypedText -- ^ /encoder/ child element+ }+ | EncodingSoftware {+ encodingSoftware :: String -- ^ /software/ child element+ }+ | EncodingEncodingDescription {+ encodingEncodingDescription :: String -- ^ /encoding-description/ child element+ }+ | EncodingSupports {+ encodingSupports :: Supports -- ^ /supports/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxEncoding where+ emitXml (EncodingEncodingDate a) =+ XContent XEmpty+ []+ ([XElement (QN "encoding-date" Nothing) (emitXml a)])+ emitXml (EncodingEncoder a) =+ XContent XEmpty+ []+ ([XElement (QN "encoder" Nothing) (emitXml a)])+ emitXml (EncodingSoftware a) =+ XContent XEmpty+ []+ ([XElement (QN "software" Nothing) (emitXml a)])+ emitXml (EncodingEncodingDescription a) =+ XContent XEmpty+ []+ ([XElement (QN "encoding-description" Nothing) (emitXml a)])+ emitXml (EncodingSupports a) =+ XContent XEmpty+ []+ ([XElement (QN "supports" Nothing) (emitXml a)])+parseChxEncoding :: P.XParse ChxEncoding+parseChxEncoding = + EncodingEncodingDate+ <$> (P.xchild (P.name "encoding-date") (P.xtext >>= parseYyyyMmDd))+ <|> EncodingEncoder+ <$> (P.xchild (P.name "encoder") (parseTypedText))+ <|> EncodingSoftware+ <$> (P.xchild (P.name "software") (P.xtext >>= return))+ <|> EncodingEncodingDescription+ <$> (P.xchild (P.name "encoding-description") (P.xtext >>= return))+ <|> EncodingSupports+ <$> (P.xchild (P.name "supports") (parseSupports))++-- | Smart constructor for 'EncodingEncodingDate'+mkEncodingEncodingDate :: YyyyMmDd -> ChxEncoding+mkEncodingEncodingDate a = EncodingEncodingDate a+-- | Smart constructor for 'EncodingEncoder'+mkEncodingEncoder :: TypedText -> ChxEncoding+mkEncodingEncoder a = EncodingEncoder a+-- | Smart constructor for 'EncodingSoftware'+mkEncodingSoftware :: String -> ChxEncoding+mkEncodingSoftware a = EncodingSoftware a+-- | Smart constructor for 'EncodingEncodingDescription'+mkEncodingEncodingDescription :: String -> ChxEncoding+mkEncodingEncodingDescription a = EncodingEncodingDescription a+-- | Smart constructor for 'EncodingSupports'+mkEncodingSupports :: Supports -> ChxEncoding+mkEncodingSupports a = EncodingSupports a++-- | @full-note@ /(choice)/+data FullNote = + FullNotePitch {+ fullNotePitch :: Pitch -- ^ /pitch/ child element+ }+ | FullNoteUnpitched {+ fullNoteUnpitched :: Unpitched -- ^ /unpitched/ child element+ }+ | FullNoteRest {+ fullNoteRest :: Rest -- ^ /rest/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FullNote where+ emitXml (FullNotePitch a) =+ XContent XEmpty+ []+ ([XElement (QN "pitch" Nothing) (emitXml a)])+ emitXml (FullNoteUnpitched a) =+ XContent XEmpty+ []+ ([XElement (QN "unpitched" Nothing) (emitXml a)])+ emitXml (FullNoteRest a) =+ XContent XEmpty+ []+ ([XElement (QN "rest" Nothing) (emitXml a)])+parseFullNote :: P.XParse FullNote+parseFullNote = + FullNotePitch+ <$> (P.xchild (P.name "pitch") (parsePitch))+ <|> FullNoteUnpitched+ <$> (P.xchild (P.name "unpitched") (parseUnpitched))+ <|> FullNoteRest+ <$> (P.xchild (P.name "rest") (parseRest))++-- | Smart constructor for 'FullNotePitch'+mkFullNotePitch :: Pitch -> FullNote+mkFullNotePitch a = FullNotePitch a+-- | Smart constructor for 'FullNoteUnpitched'+mkFullNoteUnpitched :: Unpitched -> FullNote+mkFullNoteUnpitched a = FullNoteUnpitched a+-- | Smart constructor for 'FullNoteRest'+mkFullNoteRest :: Rest -> FullNote+mkFullNoteRest a = FullNoteRest a++-- | @harmonic@ /(choice)/+data ChxHarmonic = + HarmonicNatural {+ harmonicNatural :: Empty -- ^ /natural/ child element+ }+ | HarmonicArtificial {+ harmonicArtificial :: Empty -- ^ /artificial/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxHarmonic where+ emitXml (HarmonicNatural a) =+ XContent XEmpty+ []+ ([XElement (QN "natural" Nothing) (emitXml a)])+ emitXml (HarmonicArtificial a) =+ XContent XEmpty+ []+ ([XElement (QN "artificial" Nothing) (emitXml a)])+parseChxHarmonic :: P.XParse ChxHarmonic+parseChxHarmonic = + HarmonicNatural+ <$> (P.xchild (P.name "natural") (parseEmpty))+ <|> HarmonicArtificial+ <$> (P.xchild (P.name "artificial") (parseEmpty))++-- | Smart constructor for 'HarmonicNatural'+mkHarmonicNatural :: Empty -> ChxHarmonic+mkHarmonicNatural a = HarmonicNatural a+-- | Smart constructor for 'HarmonicArtificial'+mkHarmonicArtificial :: Empty -> ChxHarmonic+mkHarmonicArtificial a = HarmonicArtificial a++-- | @harmonic@ /(choice)/++-- mangled: 1+data ChxHarmonic1 = + HarmonicBasePitch {+ harmonicBasePitch :: Empty -- ^ /base-pitch/ child element+ }+ | HarmonicTouchingPitch {+ harmonicTouchingPitch :: Empty -- ^ /touching-pitch/ child element+ }+ | HarmonicSoundingPitch {+ harmonicSoundingPitch :: Empty -- ^ /sounding-pitch/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxHarmonic1 where+ emitXml (HarmonicBasePitch a) =+ XContent XEmpty+ []+ ([XElement (QN "base-pitch" Nothing) (emitXml a)])+ emitXml (HarmonicTouchingPitch a) =+ XContent XEmpty+ []+ ([XElement (QN "touching-pitch" Nothing) (emitXml a)])+ emitXml (HarmonicSoundingPitch a) =+ XContent XEmpty+ []+ ([XElement (QN "sounding-pitch" Nothing) (emitXml a)])+parseChxHarmonic1 :: P.XParse ChxHarmonic1+parseChxHarmonic1 = + HarmonicBasePitch+ <$> (P.xchild (P.name "base-pitch") (parseEmpty))+ <|> HarmonicTouchingPitch+ <$> (P.xchild (P.name "touching-pitch") (parseEmpty))+ <|> HarmonicSoundingPitch+ <$> (P.xchild (P.name "sounding-pitch") (parseEmpty))++-- | Smart constructor for 'HarmonicBasePitch'+mkHarmonicBasePitch :: Empty -> ChxHarmonic1+mkHarmonicBasePitch a = HarmonicBasePitch a+-- | Smart constructor for 'HarmonicTouchingPitch'+mkHarmonicTouchingPitch :: Empty -> ChxHarmonic1+mkHarmonicTouchingPitch a = HarmonicTouchingPitch a+-- | Smart constructor for 'HarmonicSoundingPitch'+mkHarmonicSoundingPitch :: Empty -> ChxHarmonic1+mkHarmonicSoundingPitch a = HarmonicSoundingPitch a++-- | @harmony-chord@ /(choice)/+data ChxHarmonyChord = + HarmonyChordRoot {+ harmonyChordRoot :: Root -- ^ /root/ child element+ }+ | HarmonyChordFunction {+ harmonyChordFunction :: StyleText -- ^ /function/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxHarmonyChord where+ emitXml (HarmonyChordRoot a) =+ XContent XEmpty+ []+ ([XElement (QN "root" Nothing) (emitXml a)])+ emitXml (HarmonyChordFunction a) =+ XContent XEmpty+ []+ ([XElement (QN "function" Nothing) (emitXml a)])+parseChxHarmonyChord :: P.XParse ChxHarmonyChord+parseChxHarmonyChord = + HarmonyChordRoot+ <$> (P.xchild (P.name "root") (parseRoot))+ <|> HarmonyChordFunction+ <$> (P.xchild (P.name "function") (parseStyleText))++-- | Smart constructor for 'HarmonyChordRoot'+mkHarmonyChordRoot :: Root -> ChxHarmonyChord+mkHarmonyChordRoot a = HarmonyChordRoot a+-- | Smart constructor for 'HarmonyChordFunction'+mkHarmonyChordFunction :: StyleText -> ChxHarmonyChord+mkHarmonyChordFunction a = HarmonyChordFunction a++-- | @key@ /(choice)/+data ChxKey = + KeyTraditionalKey {+ keyTraditionalKey :: TraditionalKey+ }+ | KeyNonTraditionalKey {+ keyNonTraditionalKey :: [NonTraditionalKey]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxKey where+ emitXml (KeyTraditionalKey a) =+ XReps [emitXml a]+ emitXml (KeyNonTraditionalKey a) =+ XReps [emitXml a]+parseChxKey :: P.XParse ChxKey+parseChxKey = + KeyTraditionalKey+ <$> parseTraditionalKey+ <|> KeyNonTraditionalKey+ <$> P.many (parseNonTraditionalKey)++-- | Smart constructor for 'KeyTraditionalKey'+mkKeyTraditionalKey :: TraditionalKey -> ChxKey+mkKeyTraditionalKey a = KeyTraditionalKey a+-- | Smart constructor for 'KeyNonTraditionalKey'+mkKeyNonTraditionalKey :: ChxKey+mkKeyNonTraditionalKey = KeyNonTraditionalKey []++-- | @lyric@ /(choice)/+data ChxLyric = + LyricSyllabic {+ lyricSyllabic :: (Maybe Syllabic) -- ^ /syllabic/ child element+ , lyricText :: TextElementData -- ^ /text/ child element+ , chxlyricLyric :: [SeqLyric]+ , lyricExtend :: (Maybe Extend) -- ^ /extend/ child element+ }+ | LyricExtend {+ lyricExtend1 :: Extend -- ^ /extend/ child element+ }+ | LyricLaughing {+ lyricLaughing :: Empty -- ^ /laughing/ child element+ }+ | LyricHumming {+ lyricHumming :: Empty -- ^ /humming/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxLyric where+ emitXml (LyricSyllabic a b c d) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "syllabic" Nothing).emitXml) a] +++ [XElement (QN "text" Nothing) (emitXml b)] +++ [emitXml c] +++ [maybe XEmpty (XElement (QN "extend" Nothing).emitXml) d])+ emitXml (LyricExtend a) =+ XContent XEmpty+ []+ ([XElement (QN "extend" Nothing) (emitXml a)])+ emitXml (LyricLaughing a) =+ XContent XEmpty+ []+ ([XElement (QN "laughing" Nothing) (emitXml a)])+ emitXml (LyricHumming a) =+ XContent XEmpty+ []+ ([XElement (QN "humming" Nothing) (emitXml a)])+parseChxLyric :: P.XParse ChxLyric+parseChxLyric = + LyricSyllabic+ <$> P.optional (P.xchild (P.name "syllabic") (P.xtext >>= parseSyllabic))+ <*> (P.xchild (P.name "text") (parseTextElementData))+ <*> P.many (parseSeqLyric)+ <*> P.optional (P.xchild (P.name "extend") (parseExtend))+ <|> LyricExtend+ <$> (P.xchild (P.name "extend") (parseExtend))+ <|> LyricLaughing+ <$> (P.xchild (P.name "laughing") (parseEmpty))+ <|> LyricHumming+ <$> (P.xchild (P.name "humming") (parseEmpty))++-- | Smart constructor for 'LyricSyllabic'+mkLyricSyllabic :: TextElementData -> ChxLyric+mkLyricSyllabic b = LyricSyllabic Nothing b [] Nothing+-- | Smart constructor for 'LyricExtend'+mkLyricExtend :: Extend -> ChxLyric+mkLyricExtend a = LyricExtend a+-- | Smart constructor for 'LyricLaughing'+mkLyricLaughing :: Empty -> ChxLyric+mkLyricLaughing a = LyricLaughing a+-- | Smart constructor for 'LyricHumming'+mkLyricHumming :: Empty -> ChxLyric+mkLyricHumming a = LyricHumming a++-- | @measure-style@ /(choice)/+data ChxMeasureStyle = + MeasureStyleMultipleRest {+ measureStyleMultipleRest :: MultipleRest -- ^ /multiple-rest/ child element+ }+ | MeasureStyleMeasureRepeat {+ measureStyleMeasureRepeat :: MeasureRepeat -- ^ /measure-repeat/ child element+ }+ | MeasureStyleBeatRepeat {+ measureStyleBeatRepeat :: BeatRepeat -- ^ /beat-repeat/ child element+ }+ | MeasureStyleSlash {+ measureStyleSlash :: CmpSlash -- ^ /slash/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxMeasureStyle where+ emitXml (MeasureStyleMultipleRest a) =+ XContent XEmpty+ []+ ([XElement (QN "multiple-rest" Nothing) (emitXml a)])+ emitXml (MeasureStyleMeasureRepeat a) =+ XContent XEmpty+ []+ ([XElement (QN "measure-repeat" Nothing) (emitXml a)])+ emitXml (MeasureStyleBeatRepeat a) =+ XContent XEmpty+ []+ ([XElement (QN "beat-repeat" Nothing) (emitXml a)])+ emitXml (MeasureStyleSlash a) =+ XContent XEmpty+ []+ ([XElement (QN "slash" Nothing) (emitXml a)])+parseChxMeasureStyle :: P.XParse ChxMeasureStyle+parseChxMeasureStyle = + MeasureStyleMultipleRest+ <$> (P.xchild (P.name "multiple-rest") (parseMultipleRest))+ <|> MeasureStyleMeasureRepeat+ <$> (P.xchild (P.name "measure-repeat") (parseMeasureRepeat))+ <|> MeasureStyleBeatRepeat+ <$> (P.xchild (P.name "beat-repeat") (parseBeatRepeat))+ <|> MeasureStyleSlash+ <$> (P.xchild (P.name "slash") (parseCmpSlash))++-- | Smart constructor for 'MeasureStyleMultipleRest'+mkMeasureStyleMultipleRest :: MultipleRest -> ChxMeasureStyle+mkMeasureStyleMultipleRest a = MeasureStyleMultipleRest a+-- | Smart constructor for 'MeasureStyleMeasureRepeat'+mkMeasureStyleMeasureRepeat :: MeasureRepeat -> ChxMeasureStyle+mkMeasureStyleMeasureRepeat a = MeasureStyleMeasureRepeat a+-- | Smart constructor for 'MeasureStyleBeatRepeat'+mkMeasureStyleBeatRepeat :: BeatRepeat -> ChxMeasureStyle+mkMeasureStyleBeatRepeat a = MeasureStyleBeatRepeat a+-- | Smart constructor for 'MeasureStyleSlash'+mkMeasureStyleSlash :: CmpSlash -> ChxMeasureStyle+mkMeasureStyleSlash a = MeasureStyleSlash a++-- | @metronome@ /(choice)/+data ChxMetronome0 = + MetronomePerMinute {+ metronomePerMinute :: PerMinute -- ^ /per-minute/ child element+ }+ | MetronomeBeatUnit {+ metronomeBeatUnit :: BeatUnit+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxMetronome0 where+ emitXml (MetronomePerMinute a) =+ XContent XEmpty+ []+ ([XElement (QN "per-minute" Nothing) (emitXml a)])+ emitXml (MetronomeBeatUnit a) =+ XReps [emitXml a]+parseChxMetronome0 :: P.XParse ChxMetronome0+parseChxMetronome0 = + MetronomePerMinute+ <$> (P.xchild (P.name "per-minute") (parsePerMinute))+ <|> MetronomeBeatUnit+ <$> parseBeatUnit++-- | Smart constructor for 'MetronomePerMinute'+mkMetronomePerMinute :: PerMinute -> ChxMetronome0+mkMetronomePerMinute a = MetronomePerMinute a+-- | Smart constructor for 'MetronomeBeatUnit'+mkMetronomeBeatUnit :: BeatUnit -> ChxMetronome0+mkMetronomeBeatUnit a = MetronomeBeatUnit a++-- | @metronome@ /(choice)/++-- mangled: 1+data ChxMetronome = + ChxMetronomeBeatUnit {+ chxmetronomeBeatUnit :: BeatUnit+ , chxmetronomeMetronome :: ChxMetronome0+ }+ | MetronomeMetronomeNote {+ metronomeMetronomeNote :: [MetronomeNote] -- ^ /metronome-note/ child element+ , metronomeMetronome1 :: (Maybe SeqMetronome)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxMetronome where+ emitXml (ChxMetronomeBeatUnit a b) =+ XReps [emitXml a,emitXml b]+ emitXml (MetronomeMetronomeNote a b) =+ XContent XEmpty+ []+ (map (XElement (QN "metronome-note" Nothing).emitXml) a +++ [emitXml b])+parseChxMetronome :: P.XParse ChxMetronome+parseChxMetronome = + ChxMetronomeBeatUnit+ <$> parseBeatUnit+ <*> parseChxMetronome0+ <|> MetronomeMetronomeNote+ <$> P.many (P.xchild (P.name "metronome-note") (parseMetronomeNote))+ <*> P.optional (parseSeqMetronome)++-- | Smart constructor for 'ChxMetronomeBeatUnit'+mkChxMetronomeBeatUnit :: BeatUnit -> ChxMetronome0 -> ChxMetronome+mkChxMetronomeBeatUnit a b = ChxMetronomeBeatUnit a b+-- | Smart constructor for 'MetronomeMetronomeNote'+mkMetronomeMetronomeNote :: ChxMetronome+mkMetronomeMetronomeNote = MetronomeMetronomeNote [] Nothing++-- | @music-data@ /(choice)/+data ChxMusicData = + MusicDataNote {+ musicDataNote :: Note -- ^ /note/ child element+ }+ | MusicDataBackup {+ musicDataBackup :: Backup -- ^ /backup/ child element+ }+ | MusicDataForward {+ musicDataForward :: Forward -- ^ /forward/ child element+ }+ | MusicDataDirection {+ musicDataDirection :: Direction -- ^ /direction/ child element+ }+ | MusicDataAttributes {+ musicDataAttributes :: Attributes -- ^ /attributes/ child element+ }+ | MusicDataHarmony {+ musicDataHarmony :: Harmony -- ^ /harmony/ child element+ }+ | MusicDataFiguredBass {+ musicDataFiguredBass :: FiguredBass -- ^ /figured-bass/ child element+ }+ | MusicDataPrint {+ musicDataPrint :: Print -- ^ /print/ child element+ }+ | MusicDataSound {+ musicDataSound :: Sound -- ^ /sound/ child element+ }+ | MusicDataBarline {+ musicDataBarline :: Barline -- ^ /barline/ child element+ }+ | MusicDataGrouping {+ musicDataGrouping :: Grouping -- ^ /grouping/ child element+ }+ | MusicDataLink {+ musicDataLink :: Link -- ^ /link/ child element+ }+ | MusicDataBookmark {+ musicDataBookmark :: Bookmark -- ^ /bookmark/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxMusicData where+ emitXml (MusicDataNote a) =+ XContent XEmpty+ []+ ([XElement (QN "note" Nothing) (emitXml a)])+ emitXml (MusicDataBackup a) =+ XContent XEmpty+ []+ ([XElement (QN "backup" Nothing) (emitXml a)])+ emitXml (MusicDataForward a) =+ XContent XEmpty+ []+ ([XElement (QN "forward" Nothing) (emitXml a)])+ emitXml (MusicDataDirection a) =+ XContent XEmpty+ []+ ([XElement (QN "direction" Nothing) (emitXml a)])+ emitXml (MusicDataAttributes a) =+ XContent XEmpty+ []+ ([XElement (QN "attributes" Nothing) (emitXml a)])+ emitXml (MusicDataHarmony a) =+ XContent XEmpty+ []+ ([XElement (QN "harmony" Nothing) (emitXml a)])+ emitXml (MusicDataFiguredBass a) =+ XContent XEmpty+ []+ ([XElement (QN "figured-bass" Nothing) (emitXml a)])+ emitXml (MusicDataPrint a) =+ XContent XEmpty+ []+ ([XElement (QN "print" Nothing) (emitXml a)])+ emitXml (MusicDataSound a) =+ XContent XEmpty+ []+ ([XElement (QN "sound" Nothing) (emitXml a)])+ emitXml (MusicDataBarline a) =+ XContent XEmpty+ []+ ([XElement (QN "barline" Nothing) (emitXml a)])+ emitXml (MusicDataGrouping a) =+ XContent XEmpty+ []+ ([XElement (QN "grouping" Nothing) (emitXml a)])+ emitXml (MusicDataLink a) =+ XContent XEmpty+ []+ ([XElement (QN "link" Nothing) (emitXml a)])+ emitXml (MusicDataBookmark a) =+ XContent XEmpty+ []+ ([XElement (QN "bookmark" Nothing) (emitXml a)])+parseChxMusicData :: P.XParse ChxMusicData+parseChxMusicData = + MusicDataNote+ <$> (P.xchild (P.name "note") (parseNote))+ <|> MusicDataBackup+ <$> (P.xchild (P.name "backup") (parseBackup))+ <|> MusicDataForward+ <$> (P.xchild (P.name "forward") (parseForward))+ <|> MusicDataDirection+ <$> (P.xchild (P.name "direction") (parseDirection))+ <|> MusicDataAttributes+ <$> (P.xchild (P.name "attributes") (parseAttributes))+ <|> MusicDataHarmony+ <$> (P.xchild (P.name "harmony") (parseHarmony))+ <|> MusicDataFiguredBass+ <$> (P.xchild (P.name "figured-bass") (parseFiguredBass))+ <|> MusicDataPrint+ <$> (P.xchild (P.name "print") (parsePrint))+ <|> MusicDataSound+ <$> (P.xchild (P.name "sound") (parseSound))+ <|> MusicDataBarline+ <$> (P.xchild (P.name "barline") (parseBarline))+ <|> MusicDataGrouping+ <$> (P.xchild (P.name "grouping") (parseGrouping))+ <|> MusicDataLink+ <$> (P.xchild (P.name "link") (parseLink))+ <|> MusicDataBookmark+ <$> (P.xchild (P.name "bookmark") (parseBookmark))++-- | Smart constructor for 'MusicDataNote'+mkMusicDataNote :: Note -> ChxMusicData+mkMusicDataNote a = MusicDataNote a+-- | Smart constructor for 'MusicDataBackup'+mkMusicDataBackup :: Backup -> ChxMusicData+mkMusicDataBackup a = MusicDataBackup a+-- | Smart constructor for 'MusicDataForward'+mkMusicDataForward :: Forward -> ChxMusicData+mkMusicDataForward a = MusicDataForward a+-- | Smart constructor for 'MusicDataDirection'+mkMusicDataDirection :: Direction -> ChxMusicData+mkMusicDataDirection a = MusicDataDirection a+-- | Smart constructor for 'MusicDataAttributes'+mkMusicDataAttributes :: Attributes -> ChxMusicData+mkMusicDataAttributes a = MusicDataAttributes a+-- | Smart constructor for 'MusicDataHarmony'+mkMusicDataHarmony :: Harmony -> ChxMusicData+mkMusicDataHarmony a = MusicDataHarmony a+-- | Smart constructor for 'MusicDataFiguredBass'+mkMusicDataFiguredBass :: FiguredBass -> ChxMusicData+mkMusicDataFiguredBass a = MusicDataFiguredBass a+-- | Smart constructor for 'MusicDataPrint'+mkMusicDataPrint :: Print -> ChxMusicData+mkMusicDataPrint a = MusicDataPrint a+-- | Smart constructor for 'MusicDataSound'+mkMusicDataSound :: Sound -> ChxMusicData+mkMusicDataSound a = MusicDataSound a+-- | Smart constructor for 'MusicDataBarline'+mkMusicDataBarline :: Barline -> ChxMusicData+mkMusicDataBarline a = MusicDataBarline a+-- | Smart constructor for 'MusicDataGrouping'+mkMusicDataGrouping :: Grouping -> ChxMusicData+mkMusicDataGrouping a = MusicDataGrouping a+-- | Smart constructor for 'MusicDataLink'+mkMusicDataLink :: Link -> ChxMusicData+mkMusicDataLink a = MusicDataLink a+-- | Smart constructor for 'MusicDataBookmark'+mkMusicDataBookmark :: Bookmark -> ChxMusicData+mkMusicDataBookmark a = MusicDataBookmark a++-- | @name-display@ /(choice)/+data ChxNameDisplay = + NameDisplayDisplayText {+ nameDisplayDisplayText :: FormattedText -- ^ /display-text/ child element+ }+ | NameDisplayAccidentalText {+ nameDisplayAccidentalText :: AccidentalText -- ^ /accidental-text/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxNameDisplay where+ emitXml (NameDisplayDisplayText a) =+ XContent XEmpty+ []+ ([XElement (QN "display-text" Nothing) (emitXml a)])+ emitXml (NameDisplayAccidentalText a) =+ XContent XEmpty+ []+ ([XElement (QN "accidental-text" Nothing) (emitXml a)])+parseChxNameDisplay :: P.XParse ChxNameDisplay+parseChxNameDisplay = + NameDisplayDisplayText+ <$> (P.xchild (P.name "display-text") (parseFormattedText))+ <|> NameDisplayAccidentalText+ <$> (P.xchild (P.name "accidental-text") (parseAccidentalText))++-- | Smart constructor for 'NameDisplayDisplayText'+mkNameDisplayDisplayText :: FormattedText -> ChxNameDisplay+mkNameDisplayDisplayText a = NameDisplayDisplayText a+-- | Smart constructor for 'NameDisplayAccidentalText'+mkNameDisplayAccidentalText :: AccidentalText -> ChxNameDisplay+mkNameDisplayAccidentalText a = NameDisplayAccidentalText a++-- | @notations@ /(choice)/+data ChxNotations = + NotationsTied {+ notationsTied :: Tied -- ^ /tied/ child element+ }+ | NotationsSlur {+ notationsSlur :: Slur -- ^ /slur/ child element+ }+ | NotationsTuplet {+ notationsTuplet :: Tuplet -- ^ /tuplet/ child element+ }+ | NotationsGlissando {+ notationsGlissando :: Glissando -- ^ /glissando/ child element+ }+ | NotationsSlide {+ notationsSlide :: Slide -- ^ /slide/ child element+ }+ | NotationsOrnaments {+ notationsOrnaments :: Ornaments -- ^ /ornaments/ child element+ }+ | NotationsTechnical {+ notationsTechnical :: Technical -- ^ /technical/ child element+ }+ | NotationsArticulations {+ notationsArticulations :: Articulations -- ^ /articulations/ child element+ }+ | NotationsDynamics {+ notationsDynamics :: Dynamics -- ^ /dynamics/ child element+ }+ | NotationsFermata {+ notationsFermata :: Fermata -- ^ /fermata/ child element+ }+ | NotationsArpeggiate {+ notationsArpeggiate :: Arpeggiate -- ^ /arpeggiate/ child element+ }+ | NotationsNonArpeggiate {+ notationsNonArpeggiate :: NonArpeggiate -- ^ /non-arpeggiate/ child element+ }+ | NotationsAccidentalMark {+ notationsAccidentalMark :: AccidentalMark -- ^ /accidental-mark/ child element+ }+ | NotationsOtherNotation {+ notationsOtherNotation :: OtherNotation -- ^ /other-notation/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxNotations where+ emitXml (NotationsTied a) =+ XContent XEmpty+ []+ ([XElement (QN "tied" Nothing) (emitXml a)])+ emitXml (NotationsSlur a) =+ XContent XEmpty+ []+ ([XElement (QN "slur" Nothing) (emitXml a)])+ emitXml (NotationsTuplet a) =+ XContent XEmpty+ []+ ([XElement (QN "tuplet" Nothing) (emitXml a)])+ emitXml (NotationsGlissando a) =+ XContent XEmpty+ []+ ([XElement (QN "glissando" Nothing) (emitXml a)])+ emitXml (NotationsSlide a) =+ XContent XEmpty+ []+ ([XElement (QN "slide" Nothing) (emitXml a)])+ emitXml (NotationsOrnaments a) =+ XContent XEmpty+ []+ ([XElement (QN "ornaments" Nothing) (emitXml a)])+ emitXml (NotationsTechnical a) =+ XContent XEmpty+ []+ ([XElement (QN "technical" Nothing) (emitXml a)])+ emitXml (NotationsArticulations a) =+ XContent XEmpty+ []+ ([XElement (QN "articulations" Nothing) (emitXml a)])+ emitXml (NotationsDynamics a) =+ XContent XEmpty+ []+ ([XElement (QN "dynamics" Nothing) (emitXml a)])+ emitXml (NotationsFermata a) =+ XContent XEmpty+ []+ ([XElement (QN "fermata" Nothing) (emitXml a)])+ emitXml (NotationsArpeggiate a) =+ XContent XEmpty+ []+ ([XElement (QN "arpeggiate" Nothing) (emitXml a)])+ emitXml (NotationsNonArpeggiate a) =+ XContent XEmpty+ []+ ([XElement (QN "non-arpeggiate" Nothing) (emitXml a)])+ emitXml (NotationsAccidentalMark a) =+ XContent XEmpty+ []+ ([XElement (QN "accidental-mark" Nothing) (emitXml a)])+ emitXml (NotationsOtherNotation a) =+ XContent XEmpty+ []+ ([XElement (QN "other-notation" Nothing) (emitXml a)])+parseChxNotations :: P.XParse ChxNotations+parseChxNotations = + NotationsTied+ <$> (P.xchild (P.name "tied") (parseTied))+ <|> NotationsSlur+ <$> (P.xchild (P.name "slur") (parseSlur))+ <|> NotationsTuplet+ <$> (P.xchild (P.name "tuplet") (parseTuplet))+ <|> NotationsGlissando+ <$> (P.xchild (P.name "glissando") (parseGlissando))+ <|> NotationsSlide+ <$> (P.xchild (P.name "slide") (parseSlide))+ <|> NotationsOrnaments+ <$> (P.xchild (P.name "ornaments") (parseOrnaments))+ <|> NotationsTechnical+ <$> (P.xchild (P.name "technical") (parseTechnical))+ <|> NotationsArticulations+ <$> (P.xchild (P.name "articulations") (parseArticulations))+ <|> NotationsDynamics+ <$> (P.xchild (P.name "dynamics") (parseDynamics))+ <|> NotationsFermata+ <$> (P.xchild (P.name "fermata") (parseFermata))+ <|> NotationsArpeggiate+ <$> (P.xchild (P.name "arpeggiate") (parseArpeggiate))+ <|> NotationsNonArpeggiate+ <$> (P.xchild (P.name "non-arpeggiate") (parseNonArpeggiate))+ <|> NotationsAccidentalMark+ <$> (P.xchild (P.name "accidental-mark") (parseAccidentalMark))+ <|> NotationsOtherNotation+ <$> (P.xchild (P.name "other-notation") (parseOtherNotation))++-- | Smart constructor for 'NotationsTied'+mkNotationsTied :: Tied -> ChxNotations+mkNotationsTied a = NotationsTied a+-- | Smart constructor for 'NotationsSlur'+mkNotationsSlur :: Slur -> ChxNotations+mkNotationsSlur a = NotationsSlur a+-- | Smart constructor for 'NotationsTuplet'+mkNotationsTuplet :: Tuplet -> ChxNotations+mkNotationsTuplet a = NotationsTuplet a+-- | Smart constructor for 'NotationsGlissando'+mkNotationsGlissando :: Glissando -> ChxNotations+mkNotationsGlissando a = NotationsGlissando a+-- | Smart constructor for 'NotationsSlide'+mkNotationsSlide :: Slide -> ChxNotations+mkNotationsSlide a = NotationsSlide a+-- | Smart constructor for 'NotationsOrnaments'+mkNotationsOrnaments :: Ornaments -> ChxNotations+mkNotationsOrnaments a = NotationsOrnaments a+-- | Smart constructor for 'NotationsTechnical'+mkNotationsTechnical :: Technical -> ChxNotations+mkNotationsTechnical a = NotationsTechnical a+-- | Smart constructor for 'NotationsArticulations'+mkNotationsArticulations :: Articulations -> ChxNotations+mkNotationsArticulations a = NotationsArticulations a+-- | Smart constructor for 'NotationsDynamics'+mkNotationsDynamics :: Dynamics -> ChxNotations+mkNotationsDynamics a = NotationsDynamics a+-- | Smart constructor for 'NotationsFermata'+mkNotationsFermata :: Fermata -> ChxNotations+mkNotationsFermata a = NotationsFermata a+-- | Smart constructor for 'NotationsArpeggiate'+mkNotationsArpeggiate :: Arpeggiate -> ChxNotations+mkNotationsArpeggiate a = NotationsArpeggiate a+-- | Smart constructor for 'NotationsNonArpeggiate'+mkNotationsNonArpeggiate :: NonArpeggiate -> ChxNotations+mkNotationsNonArpeggiate a = NotationsNonArpeggiate a+-- | Smart constructor for 'NotationsAccidentalMark'+mkNotationsAccidentalMark :: AccidentalMark -> ChxNotations+mkNotationsAccidentalMark a = NotationsAccidentalMark a+-- | Smart constructor for 'NotationsOtherNotation'+mkNotationsOtherNotation :: OtherNotation -> ChxNotations+mkNotationsOtherNotation a = NotationsOtherNotation a++-- | @note@ /(choice)/+data ChxNote = + NoteGrace {+ noteGrace :: Grace -- ^ /grace/ child element+ , noteFullNote :: GrpFullNote+ , noteTie :: [Tie] -- ^ /tie/ child element+ }+ | NoteCue {+ noteCue :: Empty -- ^ /cue/ child element+ , noteFullNote1 :: GrpFullNote+ , noteDuration :: Duration+ }+ | NoteFullNote {+ noteFullNote2 :: GrpFullNote+ , noteDuration1 :: Duration+ , noteTie1 :: [Tie] -- ^ /tie/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxNote where+ emitXml (NoteGrace a b c) =+ XContent XEmpty+ []+ ([XElement (QN "grace" Nothing) (emitXml a)] +++ [emitXml b] +++ map (XElement (QN "tie" Nothing).emitXml) c)+ emitXml (NoteCue a b c) =+ XContent XEmpty+ []+ ([XElement (QN "cue" Nothing) (emitXml a)] +++ [emitXml b] +++ [emitXml c])+ emitXml (NoteFullNote a b c) =+ XContent XEmpty+ []+ ([emitXml a] +++ [emitXml b] +++ map (XElement (QN "tie" Nothing).emitXml) c)+parseChxNote :: P.XParse ChxNote+parseChxNote = + NoteGrace+ <$> (P.xchild (P.name "grace") (parseGrace))+ <*> parseGrpFullNote+ <*> P.many (P.xchild (P.name "tie") (parseTie))+ <|> NoteCue+ <$> (P.xchild (P.name "cue") (parseEmpty))+ <*> parseGrpFullNote+ <*> parseDuration+ <|> NoteFullNote+ <$> parseGrpFullNote+ <*> parseDuration+ <*> P.many (P.xchild (P.name "tie") (parseTie))++-- | Smart constructor for 'NoteGrace'+mkNoteGrace :: Grace -> GrpFullNote -> ChxNote+mkNoteGrace a b = NoteGrace a b []+-- | Smart constructor for 'NoteCue'+mkNoteCue :: Empty -> GrpFullNote -> Duration -> ChxNote+mkNoteCue a b c = NoteCue a b c+-- | Smart constructor for 'NoteFullNote'+mkNoteFullNote :: GrpFullNote -> Duration -> ChxNote+mkNoteFullNote a b = NoteFullNote a b []++-- | @notehead-text@ /(choice)/+data ChxNoteheadText = + NoteheadTextDisplayText {+ noteheadTextDisplayText :: FormattedText -- ^ /display-text/ child element+ }+ | NoteheadTextAccidentalText {+ noteheadTextAccidentalText :: AccidentalText -- ^ /accidental-text/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxNoteheadText where+ emitXml (NoteheadTextDisplayText a) =+ XContent XEmpty+ []+ ([XElement (QN "display-text" Nothing) (emitXml a)])+ emitXml (NoteheadTextAccidentalText a) =+ XContent XEmpty+ []+ ([XElement (QN "accidental-text" Nothing) (emitXml a)])+parseChxNoteheadText :: P.XParse ChxNoteheadText+parseChxNoteheadText = + NoteheadTextDisplayText+ <$> (P.xchild (P.name "display-text") (parseFormattedText))+ <|> NoteheadTextAccidentalText+ <$> (P.xchild (P.name "accidental-text") (parseAccidentalText))++-- | Smart constructor for 'NoteheadTextDisplayText'+mkNoteheadTextDisplayText :: FormattedText -> ChxNoteheadText+mkNoteheadTextDisplayText a = NoteheadTextDisplayText a+-- | Smart constructor for 'NoteheadTextAccidentalText'+mkNoteheadTextAccidentalText :: AccidentalText -> ChxNoteheadText+mkNoteheadTextAccidentalText a = NoteheadTextAccidentalText a++-- | @ornaments@ /(choice)/+data ChxOrnaments = + OrnamentsTrillMark {+ ornamentsTrillMark :: EmptyTrillSound -- ^ /trill-mark/ child element+ }+ | OrnamentsTurn {+ ornamentsTurn :: HorizontalTurn -- ^ /turn/ child element+ }+ | OrnamentsDelayedTurn {+ ornamentsDelayedTurn :: HorizontalTurn -- ^ /delayed-turn/ child element+ }+ | OrnamentsInvertedTurn {+ ornamentsInvertedTurn :: HorizontalTurn -- ^ /inverted-turn/ child element+ }+ | OrnamentsDelayedInvertedTurn {+ ornamentsDelayedInvertedTurn :: HorizontalTurn -- ^ /delayed-inverted-turn/ child element+ }+ | OrnamentsVerticalTurn {+ ornamentsVerticalTurn :: EmptyTrillSound -- ^ /vertical-turn/ child element+ }+ | OrnamentsShake {+ ornamentsShake :: EmptyTrillSound -- ^ /shake/ child element+ }+ | OrnamentsWavyLine {+ ornamentsWavyLine :: WavyLine -- ^ /wavy-line/ child element+ }+ | OrnamentsMordent {+ ornamentsMordent :: Mordent -- ^ /mordent/ child element+ }+ | OrnamentsInvertedMordent {+ ornamentsInvertedMordent :: Mordent -- ^ /inverted-mordent/ child element+ }+ | OrnamentsSchleifer {+ ornamentsSchleifer :: EmptyPlacement -- ^ /schleifer/ child element+ }+ | OrnamentsTremolo {+ ornamentsTremolo :: Tremolo -- ^ /tremolo/ child element+ }+ | OrnamentsOtherOrnament {+ ornamentsOtherOrnament :: PlacementText -- ^ /other-ornament/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxOrnaments where+ emitXml (OrnamentsTrillMark a) =+ XContent XEmpty+ []+ ([XElement (QN "trill-mark" Nothing) (emitXml a)])+ emitXml (OrnamentsTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "turn" Nothing) (emitXml a)])+ emitXml (OrnamentsDelayedTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "delayed-turn" Nothing) (emitXml a)])+ emitXml (OrnamentsInvertedTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "inverted-turn" Nothing) (emitXml a)])+ emitXml (OrnamentsDelayedInvertedTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "delayed-inverted-turn" Nothing) (emitXml a)])+ emitXml (OrnamentsVerticalTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "vertical-turn" Nothing) (emitXml a)])+ emitXml (OrnamentsShake a) =+ XContent XEmpty+ []+ ([XElement (QN "shake" Nothing) (emitXml a)])+ emitXml (OrnamentsWavyLine a) =+ XContent XEmpty+ []+ ([XElement (QN "wavy-line" Nothing) (emitXml a)])+ emitXml (OrnamentsMordent a) =+ XContent XEmpty+ []+ ([XElement (QN "mordent" Nothing) (emitXml a)])+ emitXml (OrnamentsInvertedMordent a) =+ XContent XEmpty+ []+ ([XElement (QN "inverted-mordent" Nothing) (emitXml a)])+ emitXml (OrnamentsSchleifer a) =+ XContent XEmpty+ []+ ([XElement (QN "schleifer" Nothing) (emitXml a)])+ emitXml (OrnamentsTremolo a) =+ XContent XEmpty+ []+ ([XElement (QN "tremolo" Nothing) (emitXml a)])+ emitXml (OrnamentsOtherOrnament a) =+ XContent XEmpty+ []+ ([XElement (QN "other-ornament" Nothing) (emitXml a)])+parseChxOrnaments :: P.XParse ChxOrnaments+parseChxOrnaments = + OrnamentsTrillMark+ <$> (P.xchild (P.name "trill-mark") (parseEmptyTrillSound))+ <|> OrnamentsTurn+ <$> (P.xchild (P.name "turn") (parseHorizontalTurn))+ <|> OrnamentsDelayedTurn+ <$> (P.xchild (P.name "delayed-turn") (parseHorizontalTurn))+ <|> OrnamentsInvertedTurn+ <$> (P.xchild (P.name "inverted-turn") (parseHorizontalTurn))+ <|> OrnamentsDelayedInvertedTurn+ <$> (P.xchild (P.name "delayed-inverted-turn") (parseHorizontalTurn))+ <|> OrnamentsVerticalTurn+ <$> (P.xchild (P.name "vertical-turn") (parseEmptyTrillSound))+ <|> OrnamentsShake+ <$> (P.xchild (P.name "shake") (parseEmptyTrillSound))+ <|> OrnamentsWavyLine+ <$> (P.xchild (P.name "wavy-line") (parseWavyLine))+ <|> OrnamentsMordent+ <$> (P.xchild (P.name "mordent") (parseMordent))+ <|> OrnamentsInvertedMordent+ <$> (P.xchild (P.name "inverted-mordent") (parseMordent))+ <|> OrnamentsSchleifer+ <$> (P.xchild (P.name "schleifer") (parseEmptyPlacement))+ <|> OrnamentsTremolo+ <$> (P.xchild (P.name "tremolo") (parseTremolo))+ <|> OrnamentsOtherOrnament+ <$> (P.xchild (P.name "other-ornament") (parsePlacementText))++-- | Smart constructor for 'OrnamentsTrillMark'+mkOrnamentsTrillMark :: EmptyTrillSound -> ChxOrnaments+mkOrnamentsTrillMark a = OrnamentsTrillMark a+-- | Smart constructor for 'OrnamentsTurn'+mkOrnamentsTurn :: HorizontalTurn -> ChxOrnaments+mkOrnamentsTurn a = OrnamentsTurn a+-- | Smart constructor for 'OrnamentsDelayedTurn'+mkOrnamentsDelayedTurn :: HorizontalTurn -> ChxOrnaments+mkOrnamentsDelayedTurn a = OrnamentsDelayedTurn a+-- | Smart constructor for 'OrnamentsInvertedTurn'+mkOrnamentsInvertedTurn :: HorizontalTurn -> ChxOrnaments+mkOrnamentsInvertedTurn a = OrnamentsInvertedTurn a+-- | Smart constructor for 'OrnamentsDelayedInvertedTurn'+mkOrnamentsDelayedInvertedTurn :: HorizontalTurn -> ChxOrnaments+mkOrnamentsDelayedInvertedTurn a = OrnamentsDelayedInvertedTurn a+-- | Smart constructor for 'OrnamentsVerticalTurn'+mkOrnamentsVerticalTurn :: EmptyTrillSound -> ChxOrnaments+mkOrnamentsVerticalTurn a = OrnamentsVerticalTurn a+-- | Smart constructor for 'OrnamentsShake'+mkOrnamentsShake :: EmptyTrillSound -> ChxOrnaments+mkOrnamentsShake a = OrnamentsShake a+-- | Smart constructor for 'OrnamentsWavyLine'+mkOrnamentsWavyLine :: WavyLine -> ChxOrnaments+mkOrnamentsWavyLine a = OrnamentsWavyLine a+-- | Smart constructor for 'OrnamentsMordent'+mkOrnamentsMordent :: Mordent -> ChxOrnaments+mkOrnamentsMordent a = OrnamentsMordent a+-- | Smart constructor for 'OrnamentsInvertedMordent'+mkOrnamentsInvertedMordent :: Mordent -> ChxOrnaments+mkOrnamentsInvertedMordent a = OrnamentsInvertedMordent a+-- | Smart constructor for 'OrnamentsSchleifer'+mkOrnamentsSchleifer :: EmptyPlacement -> ChxOrnaments+mkOrnamentsSchleifer a = OrnamentsSchleifer a+-- | Smart constructor for 'OrnamentsTremolo'+mkOrnamentsTremolo :: Tremolo -> ChxOrnaments+mkOrnamentsTremolo a = OrnamentsTremolo a+-- | Smart constructor for 'OrnamentsOtherOrnament'+mkOrnamentsOtherOrnament :: PlacementText -> ChxOrnaments+mkOrnamentsOtherOrnament a = OrnamentsOtherOrnament a++-- | @part-list@ /(choice)/+data ChxPartList = + PartListPartGroup {+ chxpartListPartGroup :: GrpPartGroup+ }+ | PartListScorePart {+ chxpartListScorePart :: ScorePart+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxPartList where+ emitXml (PartListPartGroup a) =+ XReps [emitXml a]+ emitXml (PartListScorePart a) =+ XReps [emitXml a]+parseChxPartList :: P.XParse ChxPartList+parseChxPartList = + PartListPartGroup+ <$> parseGrpPartGroup+ <|> PartListScorePart+ <$> parseScorePart++-- | Smart constructor for 'PartListPartGroup'+mkPartListPartGroup :: GrpPartGroup -> ChxPartList+mkPartListPartGroup a = PartListPartGroup a+-- | Smart constructor for 'PartListScorePart'+mkPartListScorePart :: ScorePart -> ChxPartList+mkPartListScorePart a = PartListScorePart a++-- | @percussion@ /(choice)/+data ChxPercussion = + PercussionGlass {+ percussionGlass :: Glass -- ^ /glass/ child element+ }+ | PercussionMetal {+ percussionMetal :: Metal -- ^ /metal/ child element+ }+ | PercussionWood {+ percussionWood :: Wood -- ^ /wood/ child element+ }+ | PercussionPitched {+ percussionPitched :: Pitched -- ^ /pitched/ child element+ }+ | PercussionMembrane {+ percussionMembrane :: Membrane -- ^ /membrane/ child element+ }+ | PercussionEffect {+ percussionEffect :: Effect -- ^ /effect/ child element+ }+ | PercussionTimpani {+ percussionTimpani :: Empty -- ^ /timpani/ child element+ }+ | PercussionBeater {+ percussionBeater :: Beater -- ^ /beater/ child element+ }+ | PercussionStick {+ percussionStick :: Stick -- ^ /stick/ child element+ }+ | PercussionStickLocation {+ percussionStickLocation :: StickLocation -- ^ /stick-location/ child element+ }+ | PercussionOtherPercussion {+ percussionOtherPercussion :: String -- ^ /other-percussion/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxPercussion where+ emitXml (PercussionGlass a) =+ XContent XEmpty+ []+ ([XElement (QN "glass" Nothing) (emitXml a)])+ emitXml (PercussionMetal a) =+ XContent XEmpty+ []+ ([XElement (QN "metal" Nothing) (emitXml a)])+ emitXml (PercussionWood a) =+ XContent XEmpty+ []+ ([XElement (QN "wood" Nothing) (emitXml a)])+ emitXml (PercussionPitched a) =+ XContent XEmpty+ []+ ([XElement (QN "pitched" Nothing) (emitXml a)])+ emitXml (PercussionMembrane a) =+ XContent XEmpty+ []+ ([XElement (QN "membrane" Nothing) (emitXml a)])+ emitXml (PercussionEffect a) =+ XContent XEmpty+ []+ ([XElement (QN "effect" Nothing) (emitXml a)])+ emitXml (PercussionTimpani a) =+ XContent XEmpty+ []+ ([XElement (QN "timpani" Nothing) (emitXml a)])+ emitXml (PercussionBeater a) =+ XContent XEmpty+ []+ ([XElement (QN "beater" Nothing) (emitXml a)])+ emitXml (PercussionStick a) =+ XContent XEmpty+ []+ ([XElement (QN "stick" Nothing) (emitXml a)])+ emitXml (PercussionStickLocation a) =+ XContent XEmpty+ []+ ([XElement (QN "stick-location" Nothing) (emitXml a)])+ emitXml (PercussionOtherPercussion a) =+ XContent XEmpty+ []+ ([XElement (QN "other-percussion" Nothing) (emitXml a)])+parseChxPercussion :: P.XParse ChxPercussion+parseChxPercussion = + PercussionGlass+ <$> (P.xchild (P.name "glass") (P.xtext >>= parseGlass))+ <|> PercussionMetal+ <$> (P.xchild (P.name "metal") (P.xtext >>= parseMetal))+ <|> PercussionWood+ <$> (P.xchild (P.name "wood") (P.xtext >>= parseWood))+ <|> PercussionPitched+ <$> (P.xchild (P.name "pitched") (P.xtext >>= parsePitched))+ <|> PercussionMembrane+ <$> (P.xchild (P.name "membrane") (P.xtext >>= parseMembrane))+ <|> PercussionEffect+ <$> (P.xchild (P.name "effect") (P.xtext >>= parseEffect))+ <|> PercussionTimpani+ <$> (P.xchild (P.name "timpani") (parseEmpty))+ <|> PercussionBeater+ <$> (P.xchild (P.name "beater") (parseBeater))+ <|> PercussionStick+ <$> (P.xchild (P.name "stick") (parseStick))+ <|> PercussionStickLocation+ <$> (P.xchild (P.name "stick-location") (P.xtext >>= parseStickLocation))+ <|> PercussionOtherPercussion+ <$> (P.xchild (P.name "other-percussion") (P.xtext >>= return))++-- | Smart constructor for 'PercussionGlass'+mkPercussionGlass :: Glass -> ChxPercussion+mkPercussionGlass a = PercussionGlass a+-- | Smart constructor for 'PercussionMetal'+mkPercussionMetal :: Metal -> ChxPercussion+mkPercussionMetal a = PercussionMetal a+-- | Smart constructor for 'PercussionWood'+mkPercussionWood :: Wood -> ChxPercussion+mkPercussionWood a = PercussionWood a+-- | Smart constructor for 'PercussionPitched'+mkPercussionPitched :: Pitched -> ChxPercussion+mkPercussionPitched a = PercussionPitched a+-- | Smart constructor for 'PercussionMembrane'+mkPercussionMembrane :: Membrane -> ChxPercussion+mkPercussionMembrane a = PercussionMembrane a+-- | Smart constructor for 'PercussionEffect'+mkPercussionEffect :: Effect -> ChxPercussion+mkPercussionEffect a = PercussionEffect a+-- | Smart constructor for 'PercussionTimpani'+mkPercussionTimpani :: Empty -> ChxPercussion+mkPercussionTimpani a = PercussionTimpani a+-- | Smart constructor for 'PercussionBeater'+mkPercussionBeater :: Beater -> ChxPercussion+mkPercussionBeater a = PercussionBeater a+-- | Smart constructor for 'PercussionStick'+mkPercussionStick :: Stick -> ChxPercussion+mkPercussionStick a = PercussionStick a+-- | Smart constructor for 'PercussionStickLocation'+mkPercussionStickLocation :: StickLocation -> ChxPercussion+mkPercussionStickLocation a = PercussionStickLocation a+-- | Smart constructor for 'PercussionOtherPercussion'+mkPercussionOtherPercussion :: String -> ChxPercussion+mkPercussionOtherPercussion a = PercussionOtherPercussion a++-- | @play@ /(choice)/+data ChxPlay = + PlayIpa {+ playIpa :: String -- ^ /ipa/ child element+ }+ | PlayMute {+ playMute :: Mute -- ^ /mute/ child element+ }+ | PlaySemiPitched {+ playSemiPitched :: SemiPitched -- ^ /semi-pitched/ child element+ }+ | PlayOtherPlay {+ playOtherPlay :: OtherPlay -- ^ /other-play/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxPlay where+ emitXml (PlayIpa a) =+ XContent XEmpty+ []+ ([XElement (QN "ipa" Nothing) (emitXml a)])+ emitXml (PlayMute a) =+ XContent XEmpty+ []+ ([XElement (QN "mute" Nothing) (emitXml a)])+ emitXml (PlaySemiPitched a) =+ XContent XEmpty+ []+ ([XElement (QN "semi-pitched" Nothing) (emitXml a)])+ emitXml (PlayOtherPlay a) =+ XContent XEmpty+ []+ ([XElement (QN "other-play" Nothing) (emitXml a)])+parseChxPlay :: P.XParse ChxPlay+parseChxPlay = + PlayIpa+ <$> (P.xchild (P.name "ipa") (P.xtext >>= return))+ <|> PlayMute+ <$> (P.xchild (P.name "mute") (P.xtext >>= parseMute))+ <|> PlaySemiPitched+ <$> (P.xchild (P.name "semi-pitched") (P.xtext >>= parseSemiPitched))+ <|> PlayOtherPlay+ <$> (P.xchild (P.name "other-play") (parseOtherPlay))++-- | Smart constructor for 'PlayIpa'+mkPlayIpa :: String -> ChxPlay+mkPlayIpa a = PlayIpa a+-- | Smart constructor for 'PlayMute'+mkPlayMute :: Mute -> ChxPlay+mkPlayMute a = PlayMute a+-- | Smart constructor for 'PlaySemiPitched'+mkPlaySemiPitched :: SemiPitched -> ChxPlay+mkPlaySemiPitched a = PlaySemiPitched a+-- | Smart constructor for 'PlayOtherPlay'+mkPlayOtherPlay :: OtherPlay -> ChxPlay+mkPlayOtherPlay a = PlayOtherPlay a++-- | @score-instrument@ /(choice)/+data ChxScoreInstrument = + ScoreInstrumentSolo {+ scoreInstrumentSolo :: Empty -- ^ /solo/ child element+ }+ | ScoreInstrumentEnsemble {+ scoreInstrumentEnsemble :: PositiveIntegerOrEmpty -- ^ /ensemble/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxScoreInstrument where+ emitXml (ScoreInstrumentSolo a) =+ XContent XEmpty+ []+ ([XElement (QN "solo" Nothing) (emitXml a)])+ emitXml (ScoreInstrumentEnsemble a) =+ XContent XEmpty+ []+ ([XElement (QN "ensemble" Nothing) (emitXml a)])+parseChxScoreInstrument :: P.XParse ChxScoreInstrument+parseChxScoreInstrument = + ScoreInstrumentSolo+ <$> (P.xchild (P.name "solo") (parseEmpty))+ <|> ScoreInstrumentEnsemble+ <$> (P.xchild (P.name "ensemble") (P.xtext >>= parsePositiveIntegerOrEmpty))++-- | Smart constructor for 'ScoreInstrumentSolo'+mkScoreInstrumentSolo :: Empty -> ChxScoreInstrument+mkScoreInstrumentSolo a = ScoreInstrumentSolo a+-- | Smart constructor for 'ScoreInstrumentEnsemble'+mkScoreInstrumentEnsemble :: PositiveIntegerOrEmpty -> ChxScoreInstrument+mkScoreInstrumentEnsemble a = ScoreInstrumentEnsemble a++-- | @technical@ /(choice)/+data ChxTechnical = + TechnicalUpBow {+ technicalUpBow :: EmptyPlacement -- ^ /up-bow/ child element+ }+ | TechnicalDownBow {+ technicalDownBow :: EmptyPlacement -- ^ /down-bow/ child element+ }+ | TechnicalHarmonic {+ technicalHarmonic :: Harmonic -- ^ /harmonic/ child element+ }+ | TechnicalOpenString {+ technicalOpenString :: EmptyPlacement -- ^ /open-string/ child element+ }+ | TechnicalThumbPosition {+ technicalThumbPosition :: EmptyPlacement -- ^ /thumb-position/ child element+ }+ | TechnicalFingering {+ technicalFingering :: Fingering -- ^ /fingering/ child element+ }+ | TechnicalPluck {+ technicalPluck :: PlacementText -- ^ /pluck/ child element+ }+ | TechnicalDoubleTongue {+ technicalDoubleTongue :: EmptyPlacement -- ^ /double-tongue/ child element+ }+ | TechnicalTripleTongue {+ technicalTripleTongue :: EmptyPlacement -- ^ /triple-tongue/ child element+ }+ | TechnicalStopped {+ technicalStopped :: EmptyPlacement -- ^ /stopped/ child element+ }+ | TechnicalSnapPizzicato {+ technicalSnapPizzicato :: EmptyPlacement -- ^ /snap-pizzicato/ child element+ }+ | TechnicalFret {+ technicalFret :: Fret -- ^ /fret/ child element+ }+ | TechnicalString {+ technicalString :: CmpString -- ^ /string/ child element+ }+ | TechnicalHammerOn {+ technicalHammerOn :: HammerOnPullOff -- ^ /hammer-on/ child element+ }+ | TechnicalPullOff {+ technicalPullOff :: HammerOnPullOff -- ^ /pull-off/ child element+ }+ | TechnicalBend {+ technicalBend :: Bend -- ^ /bend/ child element+ }+ | TechnicalTap {+ technicalTap :: PlacementText -- ^ /tap/ child element+ }+ | TechnicalHeel {+ technicalHeel :: HeelToe -- ^ /heel/ child element+ }+ | TechnicalToe {+ technicalToe :: HeelToe -- ^ /toe/ child element+ }+ | TechnicalFingernails {+ technicalFingernails :: EmptyPlacement -- ^ /fingernails/ child element+ }+ | TechnicalHole {+ technicalHole :: Hole -- ^ /hole/ child element+ }+ | TechnicalArrow {+ technicalArrow :: Arrow -- ^ /arrow/ child element+ }+ | TechnicalHandbell {+ technicalHandbell :: Handbell -- ^ /handbell/ child element+ }+ | TechnicalOtherTechnical {+ technicalOtherTechnical :: PlacementText -- ^ /other-technical/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxTechnical where+ emitXml (TechnicalUpBow a) =+ XContent XEmpty+ []+ ([XElement (QN "up-bow" Nothing) (emitXml a)])+ emitXml (TechnicalDownBow a) =+ XContent XEmpty+ []+ ([XElement (QN "down-bow" Nothing) (emitXml a)])+ emitXml (TechnicalHarmonic a) =+ XContent XEmpty+ []+ ([XElement (QN "harmonic" Nothing) (emitXml a)])+ emitXml (TechnicalOpenString a) =+ XContent XEmpty+ []+ ([XElement (QN "open-string" Nothing) (emitXml a)])+ emitXml (TechnicalThumbPosition a) =+ XContent XEmpty+ []+ ([XElement (QN "thumb-position" Nothing) (emitXml a)])+ emitXml (TechnicalFingering a) =+ XContent XEmpty+ []+ ([XElement (QN "fingering" Nothing) (emitXml a)])+ emitXml (TechnicalPluck a) =+ XContent XEmpty+ []+ ([XElement (QN "pluck" Nothing) (emitXml a)])+ emitXml (TechnicalDoubleTongue a) =+ XContent XEmpty+ []+ ([XElement (QN "double-tongue" Nothing) (emitXml a)])+ emitXml (TechnicalTripleTongue a) =+ XContent XEmpty+ []+ ([XElement (QN "triple-tongue" Nothing) (emitXml a)])+ emitXml (TechnicalStopped a) =+ XContent XEmpty+ []+ ([XElement (QN "stopped" Nothing) (emitXml a)])+ emitXml (TechnicalSnapPizzicato a) =+ XContent XEmpty+ []+ ([XElement (QN "snap-pizzicato" Nothing) (emitXml a)])+ emitXml (TechnicalFret a) =+ XContent XEmpty+ []+ ([XElement (QN "fret" Nothing) (emitXml a)])+ emitXml (TechnicalString a) =+ XContent XEmpty+ []+ ([XElement (QN "string" Nothing) (emitXml a)])+ emitXml (TechnicalHammerOn a) =+ XContent XEmpty+ []+ ([XElement (QN "hammer-on" Nothing) (emitXml a)])+ emitXml (TechnicalPullOff a) =+ XContent XEmpty+ []+ ([XElement (QN "pull-off" Nothing) (emitXml a)])+ emitXml (TechnicalBend a) =+ XContent XEmpty+ []+ ([XElement (QN "bend" Nothing) (emitXml a)])+ emitXml (TechnicalTap a) =+ XContent XEmpty+ []+ ([XElement (QN "tap" Nothing) (emitXml a)])+ emitXml (TechnicalHeel a) =+ XContent XEmpty+ []+ ([XElement (QN "heel" Nothing) (emitXml a)])+ emitXml (TechnicalToe a) =+ XContent XEmpty+ []+ ([XElement (QN "toe" Nothing) (emitXml a)])+ emitXml (TechnicalFingernails a) =+ XContent XEmpty+ []+ ([XElement (QN "fingernails" Nothing) (emitXml a)])+ emitXml (TechnicalHole a) =+ XContent XEmpty+ []+ ([XElement (QN "hole" Nothing) (emitXml a)])+ emitXml (TechnicalArrow a) =+ XContent XEmpty+ []+ ([XElement (QN "arrow" Nothing) (emitXml a)])+ emitXml (TechnicalHandbell a) =+ XContent XEmpty+ []+ ([XElement (QN "handbell" Nothing) (emitXml a)])+ emitXml (TechnicalOtherTechnical a) =+ XContent XEmpty+ []+ ([XElement (QN "other-technical" Nothing) (emitXml a)])+parseChxTechnical :: P.XParse ChxTechnical+parseChxTechnical = + TechnicalUpBow+ <$> (P.xchild (P.name "up-bow") (parseEmptyPlacement))+ <|> TechnicalDownBow+ <$> (P.xchild (P.name "down-bow") (parseEmptyPlacement))+ <|> TechnicalHarmonic+ <$> (P.xchild (P.name "harmonic") (parseHarmonic))+ <|> TechnicalOpenString+ <$> (P.xchild (P.name "open-string") (parseEmptyPlacement))+ <|> TechnicalThumbPosition+ <$> (P.xchild (P.name "thumb-position") (parseEmptyPlacement))+ <|> TechnicalFingering+ <$> (P.xchild (P.name "fingering") (parseFingering))+ <|> TechnicalPluck+ <$> (P.xchild (P.name "pluck") (parsePlacementText))+ <|> TechnicalDoubleTongue+ <$> (P.xchild (P.name "double-tongue") (parseEmptyPlacement))+ <|> TechnicalTripleTongue+ <$> (P.xchild (P.name "triple-tongue") (parseEmptyPlacement))+ <|> TechnicalStopped+ <$> (P.xchild (P.name "stopped") (parseEmptyPlacement))+ <|> TechnicalSnapPizzicato+ <$> (P.xchild (P.name "snap-pizzicato") (parseEmptyPlacement))+ <|> TechnicalFret+ <$> (P.xchild (P.name "fret") (parseFret))+ <|> TechnicalString+ <$> (P.xchild (P.name "string") (parseCmpString))+ <|> TechnicalHammerOn+ <$> (P.xchild (P.name "hammer-on") (parseHammerOnPullOff))+ <|> TechnicalPullOff+ <$> (P.xchild (P.name "pull-off") (parseHammerOnPullOff))+ <|> TechnicalBend+ <$> (P.xchild (P.name "bend") (parseBend))+ <|> TechnicalTap+ <$> (P.xchild (P.name "tap") (parsePlacementText))+ <|> TechnicalHeel+ <$> (P.xchild (P.name "heel") (parseHeelToe))+ <|> TechnicalToe+ <$> (P.xchild (P.name "toe") (parseHeelToe))+ <|> TechnicalFingernails+ <$> (P.xchild (P.name "fingernails") (parseEmptyPlacement))+ <|> TechnicalHole+ <$> (P.xchild (P.name "hole") (parseHole))+ <|> TechnicalArrow+ <$> (P.xchild (P.name "arrow") (parseArrow))+ <|> TechnicalHandbell+ <$> (P.xchild (P.name "handbell") (parseHandbell))+ <|> TechnicalOtherTechnical+ <$> (P.xchild (P.name "other-technical") (parsePlacementText))++-- | Smart constructor for 'TechnicalUpBow'+mkTechnicalUpBow :: EmptyPlacement -> ChxTechnical+mkTechnicalUpBow a = TechnicalUpBow a+-- | Smart constructor for 'TechnicalDownBow'+mkTechnicalDownBow :: EmptyPlacement -> ChxTechnical+mkTechnicalDownBow a = TechnicalDownBow a+-- | Smart constructor for 'TechnicalHarmonic'+mkTechnicalHarmonic :: Harmonic -> ChxTechnical+mkTechnicalHarmonic a = TechnicalHarmonic a+-- | Smart constructor for 'TechnicalOpenString'+mkTechnicalOpenString :: EmptyPlacement -> ChxTechnical+mkTechnicalOpenString a = TechnicalOpenString a+-- | Smart constructor for 'TechnicalThumbPosition'+mkTechnicalThumbPosition :: EmptyPlacement -> ChxTechnical+mkTechnicalThumbPosition a = TechnicalThumbPosition a+-- | Smart constructor for 'TechnicalFingering'+mkTechnicalFingering :: Fingering -> ChxTechnical+mkTechnicalFingering a = TechnicalFingering a+-- | Smart constructor for 'TechnicalPluck'+mkTechnicalPluck :: PlacementText -> ChxTechnical+mkTechnicalPluck a = TechnicalPluck a+-- | Smart constructor for 'TechnicalDoubleTongue'+mkTechnicalDoubleTongue :: EmptyPlacement -> ChxTechnical+mkTechnicalDoubleTongue a = TechnicalDoubleTongue a+-- | Smart constructor for 'TechnicalTripleTongue'+mkTechnicalTripleTongue :: EmptyPlacement -> ChxTechnical+mkTechnicalTripleTongue a = TechnicalTripleTongue a+-- | Smart constructor for 'TechnicalStopped'+mkTechnicalStopped :: EmptyPlacement -> ChxTechnical+mkTechnicalStopped a = TechnicalStopped a+-- | Smart constructor for 'TechnicalSnapPizzicato'+mkTechnicalSnapPizzicato :: EmptyPlacement -> ChxTechnical+mkTechnicalSnapPizzicato a = TechnicalSnapPizzicato a+-- | Smart constructor for 'TechnicalFret'+mkTechnicalFret :: Fret -> ChxTechnical+mkTechnicalFret a = TechnicalFret a+-- | Smart constructor for 'TechnicalString'+mkTechnicalString :: CmpString -> ChxTechnical+mkTechnicalString a = TechnicalString a+-- | Smart constructor for 'TechnicalHammerOn'+mkTechnicalHammerOn :: HammerOnPullOff -> ChxTechnical+mkTechnicalHammerOn a = TechnicalHammerOn a+-- | Smart constructor for 'TechnicalPullOff'+mkTechnicalPullOff :: HammerOnPullOff -> ChxTechnical+mkTechnicalPullOff a = TechnicalPullOff a+-- | Smart constructor for 'TechnicalBend'+mkTechnicalBend :: Bend -> ChxTechnical+mkTechnicalBend a = TechnicalBend a+-- | Smart constructor for 'TechnicalTap'+mkTechnicalTap :: PlacementText -> ChxTechnical+mkTechnicalTap a = TechnicalTap a+-- | Smart constructor for 'TechnicalHeel'+mkTechnicalHeel :: HeelToe -> ChxTechnical+mkTechnicalHeel a = TechnicalHeel a+-- | Smart constructor for 'TechnicalToe'+mkTechnicalToe :: HeelToe -> ChxTechnical+mkTechnicalToe a = TechnicalToe a+-- | Smart constructor for 'TechnicalFingernails'+mkTechnicalFingernails :: EmptyPlacement -> ChxTechnical+mkTechnicalFingernails a = TechnicalFingernails a+-- | Smart constructor for 'TechnicalHole'+mkTechnicalHole :: Hole -> ChxTechnical+mkTechnicalHole a = TechnicalHole a+-- | Smart constructor for 'TechnicalArrow'+mkTechnicalArrow :: Arrow -> ChxTechnical+mkTechnicalArrow a = TechnicalArrow a+-- | Smart constructor for 'TechnicalHandbell'+mkTechnicalHandbell :: Handbell -> ChxTechnical+mkTechnicalHandbell a = TechnicalHandbell a+-- | Smart constructor for 'TechnicalOtherTechnical'+mkTechnicalOtherTechnical :: PlacementText -> ChxTechnical+mkTechnicalOtherTechnical a = TechnicalOtherTechnical a++-- | @time@ /(choice)/+data ChxTime = + TimeTimeSignature {+ timeTimeSignature :: [TimeSignature]+ , timeInterchangeable :: (Maybe Interchangeable) -- ^ /interchangeable/ child element+ }+ | TimeSenzaMisura {+ timeSenzaMisura :: String -- ^ /senza-misura/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxTime where+ emitXml (TimeTimeSignature a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ [maybe XEmpty (XElement (QN "interchangeable" Nothing).emitXml) b])+ emitXml (TimeSenzaMisura a) =+ XContent XEmpty+ []+ ([XElement (QN "senza-misura" Nothing) (emitXml a)])+parseChxTime :: P.XParse ChxTime+parseChxTime = + TimeTimeSignature+ <$> P.many (parseTimeSignature)+ <*> P.optional (P.xchild (P.name "interchangeable") (parseInterchangeable))+ <|> TimeSenzaMisura+ <$> (P.xchild (P.name "senza-misura") (P.xtext >>= return))++-- | Smart constructor for 'TimeTimeSignature'+mkTimeTimeSignature :: ChxTime+mkTimeTimeSignature = TimeTimeSignature [] Nothing+-- | Smart constructor for 'TimeSenzaMisura'+mkTimeSenzaMisura :: String -> ChxTime+mkTimeSenzaMisura a = TimeSenzaMisura a++-- | @credit@ /(sequence)/+data SeqCredit = + SeqCredit {+ seqcreditLink :: [Link] -- ^ /link/ child element+ , seqcreditBookmark :: [Bookmark] -- ^ /bookmark/ child element+ , seqcreditCreditWords :: FormattedText -- ^ /credit-words/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqCredit where+ emitXml (SeqCredit a b c) =+ XContent XEmpty+ []+ (map (XElement (QN "link" Nothing).emitXml) a +++ map (XElement (QN "bookmark" Nothing).emitXml) b +++ [XElement (QN "credit-words" Nothing) (emitXml c)])+parseSeqCredit :: P.XParse SeqCredit+parseSeqCredit = + SeqCredit+ <$> P.many (P.xchild (P.name "link") (parseLink))+ <*> P.many (P.xchild (P.name "bookmark") (parseBookmark))+ <*> (P.xchild (P.name "credit-words") (parseFormattedText))++-- | Smart constructor for 'SeqCredit'+mkSeqCredit :: FormattedText -> SeqCredit+mkSeqCredit c = SeqCredit [] [] c++-- | @lyric@ /(sequence)/+data SeqLyric0 = + SeqLyric0 {+ lyricElision :: TextFontColor -- ^ /elision/ child element+ , seqlyricSyllabic :: (Maybe Syllabic) -- ^ /syllabic/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqLyric0 where+ emitXml (SeqLyric0 a b) =+ XContent XEmpty+ []+ ([XElement (QN "elision" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "syllabic" Nothing).emitXml) b])+parseSeqLyric0 :: P.XParse SeqLyric0+parseSeqLyric0 = + SeqLyric0+ <$> (P.xchild (P.name "elision") (parseTextFontColor))+ <*> P.optional (P.xchild (P.name "syllabic") (P.xtext >>= parseSyllabic))++-- | Smart constructor for 'SeqLyric0'+mkSeqLyric0 :: TextFontColor -> SeqLyric0+mkSeqLyric0 a = SeqLyric0 a Nothing++-- | @lyric@ /(sequence)/++-- mangled: 1+data SeqLyric = + SeqLyric {+ seqlyricLyric :: (Maybe SeqLyric0)+ , seqlyricText :: TextElementData -- ^ /text/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqLyric where+ emitXml (SeqLyric a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ [XElement (QN "text" Nothing) (emitXml b)])+parseSeqLyric :: P.XParse SeqLyric+parseSeqLyric = + SeqLyric+ <$> P.optional (parseSeqLyric0)+ <*> (P.xchild (P.name "text") (parseTextElementData))++-- | Smart constructor for 'SeqLyric'+mkSeqLyric :: TextElementData -> SeqLyric+mkSeqLyric b = SeqLyric Nothing b++-- | @metronome@ /(sequence)/+data SeqMetronome = + SeqMetronome {+ metronomeMetronomeRelation :: String -- ^ /metronome-relation/ child element+ , seqmetronomeMetronomeNote :: [MetronomeNote] -- ^ /metronome-note/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqMetronome where+ emitXml (SeqMetronome a b) =+ XContent XEmpty+ []+ ([XElement (QN "metronome-relation" Nothing) (emitXml a)] +++ map (XElement (QN "metronome-note" Nothing).emitXml) b)+parseSeqMetronome :: P.XParse SeqMetronome+parseSeqMetronome = + SeqMetronome+ <$> (P.xchild (P.name "metronome-relation") (P.xtext >>= return))+ <*> P.many (P.xchild (P.name "metronome-note") (parseMetronomeNote))++-- | Smart constructor for 'SeqMetronome'+mkSeqMetronome :: String -> SeqMetronome+mkSeqMetronome a = SeqMetronome a []++-- | @metronome-tuplet@ /(sequence)/+data SeqMetronomeTuplet = + SeqMetronomeTuplet {+ metronomeTupletNormalType :: NoteTypeValue -- ^ /normal-type/ child element+ , metronomeTupletNormalDot :: [Empty] -- ^ /normal-dot/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqMetronomeTuplet where+ emitXml (SeqMetronomeTuplet a b) =+ XContent XEmpty+ []+ ([XElement (QN "normal-type" Nothing) (emitXml a)] +++ map (XElement (QN "normal-dot" Nothing).emitXml) b)+parseSeqMetronomeTuplet :: P.XParse SeqMetronomeTuplet+parseSeqMetronomeTuplet = + SeqMetronomeTuplet+ <$> (P.xchild (P.name "normal-type") (P.xtext >>= parseNoteTypeValue))+ <*> P.many (P.xchild (P.name "normal-dot") (parseEmpty))++-- | Smart constructor for 'SeqMetronomeTuplet'+mkSeqMetronomeTuplet :: NoteTypeValue -> SeqMetronomeTuplet+mkSeqMetronomeTuplet a = SeqMetronomeTuplet a []++-- | @ornaments@ /(sequence)/+data SeqOrnaments = + SeqOrnaments {+ seqornamentsOrnaments :: ChxOrnaments+ , ornamentsAccidentalMark :: [AccidentalMark] -- ^ /accidental-mark/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqOrnaments where+ emitXml (SeqOrnaments a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ map (XElement (QN "accidental-mark" Nothing).emitXml) b)+parseSeqOrnaments :: P.XParse SeqOrnaments+parseSeqOrnaments = + SeqOrnaments+ <$> parseChxOrnaments+ <*> P.many (P.xchild (P.name "accidental-mark") (parseAccidentalMark))++-- | Smart constructor for 'SeqOrnaments'+mkSeqOrnaments :: ChxOrnaments -> SeqOrnaments+mkSeqOrnaments a = SeqOrnaments a []++-- | @page-layout@ /(sequence)/+data SeqPageLayout = + SeqPageLayout {+ pageLayoutPageHeight :: Tenths -- ^ /page-height/ child element+ , pageLayoutPageWidth :: Tenths -- ^ /page-width/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqPageLayout where+ emitXml (SeqPageLayout a b) =+ XContent XEmpty+ []+ ([XElement (QN "page-height" Nothing) (emitXml a)] +++ [XElement (QN "page-width" Nothing) (emitXml b)])+parseSeqPageLayout :: P.XParse SeqPageLayout+parseSeqPageLayout = + SeqPageLayout+ <$> (P.xchild (P.name "page-height") (P.xtext >>= parseTenths))+ <*> (P.xchild (P.name "page-width") (P.xtext >>= parseTenths))++-- | Smart constructor for 'SeqPageLayout'+mkSeqPageLayout :: Tenths -> Tenths -> SeqPageLayout+mkSeqPageLayout a b = SeqPageLayout a b++-- | @score-part@ /(sequence)/+data SeqScorePart = + SeqScorePart {+ scorePartMidiDevice :: (Maybe MidiDevice) -- ^ /midi-device/ child element+ , scorePartMidiInstrument :: (Maybe MidiInstrument) -- ^ /midi-instrument/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqScorePart where+ emitXml (SeqScorePart a b) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "midi-device" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "midi-instrument" Nothing).emitXml) b])+parseSeqScorePart :: P.XParse SeqScorePart+parseSeqScorePart = + SeqScorePart+ <$> P.optional (P.xchild (P.name "midi-device") (parseMidiDevice))+ <*> P.optional (P.xchild (P.name "midi-instrument") (parseMidiInstrument))++-- | Smart constructor for 'SeqScorePart'+mkSeqScorePart :: SeqScorePart+mkSeqScorePart = SeqScorePart Nothing Nothing++-- | @sound@ /(sequence)/+data SeqSound = + SeqSound {+ soundMidiDevice :: (Maybe MidiDevice) -- ^ /midi-device/ child element+ , soundMidiInstrument :: (Maybe MidiInstrument) -- ^ /midi-instrument/ child element+ , soundPlay :: (Maybe Play) -- ^ /play/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqSound where+ emitXml (SeqSound a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "midi-device" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "midi-instrument" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "play" Nothing).emitXml) c])+parseSeqSound :: P.XParse SeqSound+parseSeqSound = + SeqSound+ <$> P.optional (P.xchild (P.name "midi-device") (parseMidiDevice))+ <*> P.optional (P.xchild (P.name "midi-instrument") (parseMidiInstrument))+ <*> P.optional (P.xchild (P.name "play") (parsePlay))++-- | Smart constructor for 'SeqSound'+mkSeqSound :: SeqSound+mkSeqSound = SeqSound Nothing Nothing Nothing++-- | @time-modification@ /(sequence)/+data SeqTimeModification = + SeqTimeModification {+ timeModificationNormalType :: NoteTypeValue -- ^ /normal-type/ child element+ , timeModificationNormalDot :: [Empty] -- ^ /normal-dot/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqTimeModification where+ emitXml (SeqTimeModification a b) =+ XContent XEmpty+ []+ ([XElement (QN "normal-type" Nothing) (emitXml a)] +++ map (XElement (QN "normal-dot" Nothing).emitXml) b)+parseSeqTimeModification :: P.XParse SeqTimeModification+parseSeqTimeModification = + SeqTimeModification+ <$> (P.xchild (P.name "normal-type") (P.xtext >>= parseNoteTypeValue))+ <*> P.many (P.xchild (P.name "normal-dot") (parseEmpty))++-- | Smart constructor for 'SeqTimeModification'+mkSeqTimeModification :: NoteTypeValue -> SeqTimeModification+mkSeqTimeModification a = SeqTimeModification a []++-- | @all-margins@ /(group)/+data AllMargins = + AllMargins {+ allMarginsLeftRightMargins :: LeftRightMargins+ , allMarginsTopMargin :: Tenths -- ^ /top-margin/ child element+ , allMarginsBottomMargin :: Tenths -- ^ /bottom-margin/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml AllMargins where+ emitXml (AllMargins a b c) =+ XContent XEmpty+ []+ ([emitXml a] +++ [XElement (QN "top-margin" Nothing) (emitXml b)] +++ [XElement (QN "bottom-margin" Nothing) (emitXml c)])+parseAllMargins :: P.XParse AllMargins+parseAllMargins = + AllMargins+ <$> parseLeftRightMargins+ <*> (P.xchild (P.name "top-margin") (P.xtext >>= parseTenths))+ <*> (P.xchild (P.name "bottom-margin") (P.xtext >>= parseTenths))++-- | Smart constructor for 'AllMargins'+mkAllMargins :: LeftRightMargins -> Tenths -> Tenths -> AllMargins+mkAllMargins a b c = AllMargins a b c++-- | @beat-unit@ /(group)/+data BeatUnit = + BeatUnit {+ beatUnitBeatUnit :: NoteTypeValue -- ^ /beat-unit/ child element+ , beatUnitBeatUnitDot :: [Empty] -- ^ /beat-unit-dot/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BeatUnit where+ emitXml (BeatUnit a b) =+ XContent XEmpty+ []+ ([XElement (QN "beat-unit" Nothing) (emitXml a)] +++ map (XElement (QN "beat-unit-dot" Nothing).emitXml) b)+parseBeatUnit :: P.XParse BeatUnit+parseBeatUnit = + BeatUnit+ <$> (P.xchild (P.name "beat-unit") (P.xtext >>= parseNoteTypeValue))+ <*> P.many (P.xchild (P.name "beat-unit-dot") (parseEmpty))++-- | Smart constructor for 'BeatUnit'+mkBeatUnit :: NoteTypeValue -> BeatUnit+mkBeatUnit a = BeatUnit a []++-- | @display-step-octave@ /(group)/+data DisplayStepOctave = + DisplayStepOctave {+ displayStepOctaveDisplayStep :: Step -- ^ /display-step/ child element+ , displayStepOctaveDisplayOctave :: Octave -- ^ /display-octave/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml DisplayStepOctave where+ emitXml (DisplayStepOctave a b) =+ XContent XEmpty+ []+ ([XElement (QN "display-step" Nothing) (emitXml a)] +++ [XElement (QN "display-octave" Nothing) (emitXml b)])+parseDisplayStepOctave :: P.XParse DisplayStepOctave+parseDisplayStepOctave = + DisplayStepOctave+ <$> (P.xchild (P.name "display-step") (P.xtext >>= parseStep))+ <*> (P.xchild (P.name "display-octave") (P.xtext >>= parseOctave))++-- | Smart constructor for 'DisplayStepOctave'+mkDisplayStepOctave :: Step -> Octave -> DisplayStepOctave+mkDisplayStepOctave a b = DisplayStepOctave a b++-- | @duration@ /(group)/+data Duration = + Duration {+ durationDuration :: PositiveDivisions -- ^ /duration/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Duration where+ emitXml (Duration a) =+ XContent XEmpty+ []+ ([XElement (QN "duration" Nothing) (emitXml a)])+parseDuration :: P.XParse Duration+parseDuration = + Duration+ <$> (P.xchild (P.name "duration") (P.xtext >>= parsePositiveDivisions))++-- | Smart constructor for 'Duration'+mkDuration :: PositiveDivisions -> Duration+mkDuration a = Duration a++-- | @editorial@ /(group)/+data Editorial = + Editorial {+ editorialFootnote :: (Maybe Footnote)+ , editorialLevel :: (Maybe GrpLevel)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Editorial where+ emitXml (Editorial a b) =+ XReps [emitXml a,emitXml b]+parseEditorial :: P.XParse Editorial+parseEditorial = + Editorial+ <$> P.optional (parseFootnote)+ <*> P.optional (parseGrpLevel)++-- | Smart constructor for 'Editorial'+mkEditorial :: Editorial+mkEditorial = Editorial Nothing Nothing++-- | @editorial-voice@ /(group)/+data EditorialVoice = + EditorialVoice {+ editorialVoiceFootnote :: (Maybe Footnote)+ , editorialVoiceLevel :: (Maybe GrpLevel)+ , editorialVoiceVoice :: (Maybe Voice)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EditorialVoice where+ emitXml (EditorialVoice a b c) =+ XReps [emitXml a,emitXml b,emitXml c]+parseEditorialVoice :: P.XParse EditorialVoice+parseEditorialVoice = + EditorialVoice+ <$> P.optional (parseFootnote)+ <*> P.optional (parseGrpLevel)+ <*> P.optional (parseVoice)++-- | Smart constructor for 'EditorialVoice'+mkEditorialVoice :: EditorialVoice+mkEditorialVoice = EditorialVoice Nothing Nothing Nothing++-- | @editorial-voice-direction@ /(group)/+data EditorialVoiceDirection = + EditorialVoiceDirection {+ editorialVoiceDirectionFootnote :: (Maybe Footnote)+ , editorialVoiceDirectionLevel :: (Maybe GrpLevel)+ , editorialVoiceDirectionVoice :: (Maybe Voice)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EditorialVoiceDirection where+ emitXml (EditorialVoiceDirection a b c) =+ XReps [emitXml a,emitXml b,emitXml c]+parseEditorialVoiceDirection :: P.XParse EditorialVoiceDirection+parseEditorialVoiceDirection = + EditorialVoiceDirection+ <$> P.optional (parseFootnote)+ <*> P.optional (parseGrpLevel)+ <*> P.optional (parseVoice)++-- | Smart constructor for 'EditorialVoiceDirection'+mkEditorialVoiceDirection :: EditorialVoiceDirection+mkEditorialVoiceDirection = EditorialVoiceDirection Nothing Nothing Nothing++-- | @footnote@ /(group)/+data Footnote = + Footnote {+ footnoteFootnote :: FormattedText -- ^ /footnote/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Footnote where+ emitXml (Footnote a) =+ XContent XEmpty+ []+ ([XElement (QN "footnote" Nothing) (emitXml a)])+parseFootnote :: P.XParse Footnote+parseFootnote = + Footnote+ <$> (P.xchild (P.name "footnote") (parseFormattedText))++-- | Smart constructor for 'Footnote'+mkFootnote :: FormattedText -> Footnote+mkFootnote a = Footnote a++-- | @full-note@ /(group)/+data GrpFullNote = + GrpFullNote {+ fullNoteChord :: (Maybe Empty) -- ^ /chord/ child element+ , fullNoteFullNote :: FullNote+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GrpFullNote where+ emitXml (GrpFullNote a b) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "chord" Nothing).emitXml) a] +++ [emitXml b])+parseGrpFullNote :: P.XParse GrpFullNote+parseGrpFullNote = + GrpFullNote+ <$> P.optional (P.xchild (P.name "chord") (parseEmpty))+ <*> parseFullNote++-- | Smart constructor for 'GrpFullNote'+mkGrpFullNote :: FullNote -> GrpFullNote+mkGrpFullNote b = GrpFullNote Nothing b++-- | @harmony-chord@ /(group)/+data HarmonyChord = + HarmonyChord {+ harmonyChordHarmonyChord :: ChxHarmonyChord+ , harmonyChordKind :: Kind -- ^ /kind/ child element+ , harmonyChordInversion :: (Maybe Inversion) -- ^ /inversion/ child element+ , harmonyChordBass :: (Maybe Bass) -- ^ /bass/ child element+ , harmonyChordDegree :: [Degree] -- ^ /degree/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HarmonyChord where+ emitXml (HarmonyChord a b c d e) =+ XContent XEmpty+ []+ ([emitXml a] +++ [XElement (QN "kind" Nothing) (emitXml b)] +++ [maybe XEmpty (XElement (QN "inversion" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "bass" Nothing).emitXml) d] +++ map (XElement (QN "degree" Nothing).emitXml) e)+parseHarmonyChord :: P.XParse HarmonyChord+parseHarmonyChord = + HarmonyChord+ <$> parseChxHarmonyChord+ <*> (P.xchild (P.name "kind") (parseKind))+ <*> P.optional (P.xchild (P.name "inversion") (parseInversion))+ <*> P.optional (P.xchild (P.name "bass") (parseBass))+ <*> P.many (P.xchild (P.name "degree") (parseDegree))++-- | Smart constructor for 'HarmonyChord'+mkHarmonyChord :: ChxHarmonyChord -> Kind -> HarmonyChord+mkHarmonyChord a b = HarmonyChord a b Nothing Nothing []++-- | @layout@ /(group)/+data Layout = + Layout {+ layoutPageLayout :: (Maybe PageLayout) -- ^ /page-layout/ child element+ , layoutSystemLayout :: (Maybe SystemLayout) -- ^ /system-layout/ child element+ , layoutStaffLayout :: [StaffLayout] -- ^ /staff-layout/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Layout where+ emitXml (Layout a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "page-layout" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "system-layout" Nothing).emitXml) b] +++ map (XElement (QN "staff-layout" Nothing).emitXml) c)+parseLayout :: P.XParse Layout+parseLayout = + Layout+ <$> P.optional (P.xchild (P.name "page-layout") (parsePageLayout))+ <*> P.optional (P.xchild (P.name "system-layout") (parseSystemLayout))+ <*> P.many (P.xchild (P.name "staff-layout") (parseStaffLayout))++-- | Smart constructor for 'Layout'+mkLayout :: Layout+mkLayout = Layout Nothing Nothing []++-- | @left-right-margins@ /(group)/+data LeftRightMargins = + LeftRightMargins {+ leftRightMarginsLeftMargin :: Tenths -- ^ /left-margin/ child element+ , leftRightMarginsRightMargin :: Tenths -- ^ /right-margin/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml LeftRightMargins where+ emitXml (LeftRightMargins a b) =+ XContent XEmpty+ []+ ([XElement (QN "left-margin" Nothing) (emitXml a)] +++ [XElement (QN "right-margin" Nothing) (emitXml b)])+parseLeftRightMargins :: P.XParse LeftRightMargins+parseLeftRightMargins = + LeftRightMargins+ <$> (P.xchild (P.name "left-margin") (P.xtext >>= parseTenths))+ <*> (P.xchild (P.name "right-margin") (P.xtext >>= parseTenths))++-- | Smart constructor for 'LeftRightMargins'+mkLeftRightMargins :: Tenths -> Tenths -> LeftRightMargins+mkLeftRightMargins a b = LeftRightMargins a b++-- | @level@ /(group)/+data GrpLevel = + GrpLevel {+ levelLevel :: Level -- ^ /level/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GrpLevel where+ emitXml (GrpLevel a) =+ XContent XEmpty+ []+ ([XElement (QN "level" Nothing) (emitXml a)])+parseGrpLevel :: P.XParse GrpLevel+parseGrpLevel = + GrpLevel+ <$> (P.xchild (P.name "level") (parseLevel))++-- | Smart constructor for 'GrpLevel'+mkGrpLevel :: Level -> GrpLevel+mkGrpLevel a = GrpLevel a++-- | @music-data@ /(group)/+data MusicData = + MusicData {+ musicDataMusicData :: [ChxMusicData]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MusicData where+ emitXml (MusicData a) =+ XReps [emitXml a]+parseMusicData :: P.XParse MusicData+parseMusicData = + MusicData+ <$> P.many (parseChxMusicData)++-- | Smart constructor for 'MusicData'+mkMusicData :: MusicData+mkMusicData = MusicData []++-- | @non-traditional-key@ /(group)/+data NonTraditionalKey = + NonTraditionalKey {+ nonTraditionalKeyKeyStep :: Step -- ^ /key-step/ child element+ , nonTraditionalKeyKeyAlter :: Semitones -- ^ /key-alter/ child element+ , nonTraditionalKeyKeyAccidental :: (Maybe AccidentalValue) -- ^ /key-accidental/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NonTraditionalKey where+ emitXml (NonTraditionalKey a b c) =+ XContent XEmpty+ []+ ([XElement (QN "key-step" Nothing) (emitXml a)] +++ [XElement (QN "key-alter" Nothing) (emitXml b)] +++ [maybe XEmpty (XElement (QN "key-accidental" Nothing).emitXml) c])+parseNonTraditionalKey :: P.XParse NonTraditionalKey+parseNonTraditionalKey = + NonTraditionalKey+ <$> (P.xchild (P.name "key-step") (P.xtext >>= parseStep))+ <*> (P.xchild (P.name "key-alter") (P.xtext >>= parseSemitones))+ <*> P.optional (P.xchild (P.name "key-accidental") (P.xtext >>= parseAccidentalValue))++-- | Smart constructor for 'NonTraditionalKey'+mkNonTraditionalKey :: Step -> Semitones -> NonTraditionalKey+mkNonTraditionalKey a b = NonTraditionalKey a b Nothing++-- | @part-group@ /(group)/+data GrpPartGroup = + GrpPartGroup {+ partGroupPartGroup :: PartGroup -- ^ /part-group/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GrpPartGroup where+ emitXml (GrpPartGroup a) =+ XContent XEmpty+ []+ ([XElement (QN "part-group" Nothing) (emitXml a)])+parseGrpPartGroup :: P.XParse GrpPartGroup+parseGrpPartGroup = + GrpPartGroup+ <$> (P.xchild (P.name "part-group") (parsePartGroup))++-- | Smart constructor for 'GrpPartGroup'+mkGrpPartGroup :: PartGroup -> GrpPartGroup+mkGrpPartGroup a = GrpPartGroup a++-- | @score-header@ /(group)/+data ScoreHeader = + ScoreHeader {+ scoreHeaderWork :: (Maybe Work) -- ^ /work/ child element+ , scoreHeaderMovementNumber :: (Maybe String) -- ^ /movement-number/ child element+ , scoreHeaderMovementTitle :: (Maybe String) -- ^ /movement-title/ child element+ , scoreHeaderIdentification :: (Maybe Identification) -- ^ /identification/ child element+ , scoreHeaderDefaults :: (Maybe Defaults) -- ^ /defaults/ child element+ , scoreHeaderCredit :: [Credit] -- ^ /credit/ child element+ , scoreHeaderPartList :: PartList -- ^ /part-list/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ScoreHeader where+ emitXml (ScoreHeader a b c d e f g) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "work" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "movement-number" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "movement-title" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "identification" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "defaults" Nothing).emitXml) e] +++ map (XElement (QN "credit" Nothing).emitXml) f +++ [XElement (QN "part-list" Nothing) (emitXml g)])+parseScoreHeader :: P.XParse ScoreHeader+parseScoreHeader = + ScoreHeader+ <$> P.optional (P.xchild (P.name "work") (parseWork))+ <*> P.optional (P.xchild (P.name "movement-number") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "movement-title") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "identification") (parseIdentification))+ <*> P.optional (P.xchild (P.name "defaults") (parseDefaults))+ <*> P.many (P.xchild (P.name "credit") (parseCredit))+ <*> (P.xchild (P.name "part-list") (parsePartList))++-- | Smart constructor for 'ScoreHeader'+mkScoreHeader :: PartList -> ScoreHeader+mkScoreHeader g = ScoreHeader Nothing Nothing Nothing Nothing Nothing [] g++-- | @score-part@ /(group)/+data ScorePart = + ScorePart {+ grpscorePartScorePart :: CmpScorePart -- ^ /score-part/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ScorePart where+ emitXml (ScorePart a) =+ XContent XEmpty+ []+ ([XElement (QN "score-part" Nothing) (emitXml a)])+parseScorePart :: P.XParse ScorePart+parseScorePart = + ScorePart+ <$> (P.xchild (P.name "score-part") (parseCmpScorePart))++-- | Smart constructor for 'ScorePart'+mkScorePart :: CmpScorePart -> ScorePart+mkScorePart a = ScorePart a++-- | @slash@ /(group)/+data Slash = + Slash {+ slashSlashType :: NoteTypeValue -- ^ /slash-type/ child element+ , slashSlashDot :: [Empty] -- ^ /slash-dot/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Slash where+ emitXml (Slash a b) =+ XContent XEmpty+ []+ ([XElement (QN "slash-type" Nothing) (emitXml a)] +++ map (XElement (QN "slash-dot" Nothing).emitXml) b)+parseSlash :: P.XParse Slash+parseSlash = + Slash+ <$> (P.xchild (P.name "slash-type") (P.xtext >>= parseNoteTypeValue))+ <*> P.many (P.xchild (P.name "slash-dot") (parseEmpty))++-- | Smart constructor for 'Slash'+mkSlash :: NoteTypeValue -> Slash+mkSlash a = Slash a []++-- | @staff@ /(group)/+data Staff = + Staff {+ staffStaff :: PositiveInteger -- ^ /staff/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Staff where+ emitXml (Staff a) =+ XContent XEmpty+ []+ ([XElement (QN "staff" Nothing) (emitXml a)])+parseStaff :: P.XParse Staff+parseStaff = + Staff+ <$> (P.xchild (P.name "staff") (P.xtext >>= parsePositiveInteger))++-- | Smart constructor for 'Staff'+mkStaff :: PositiveInteger -> Staff+mkStaff a = Staff a++-- | @time-signature@ /(group)/+data TimeSignature = + TimeSignature {+ timeSignatureBeats :: String -- ^ /beats/ child element+ , timeSignatureBeatType :: String -- ^ /beat-type/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TimeSignature where+ emitXml (TimeSignature a b) =+ XContent XEmpty+ []+ ([XElement (QN "beats" Nothing) (emitXml a)] +++ [XElement (QN "beat-type" Nothing) (emitXml b)])+parseTimeSignature :: P.XParse TimeSignature+parseTimeSignature = + TimeSignature+ <$> (P.xchild (P.name "beats") (P.xtext >>= return))+ <*> (P.xchild (P.name "beat-type") (P.xtext >>= return))++-- | Smart constructor for 'TimeSignature'+mkTimeSignature :: String -> String -> TimeSignature+mkTimeSignature a b = TimeSignature a b++-- | @traditional-key@ /(group)/+data TraditionalKey = + TraditionalKey {+ traditionalKeyCancel :: (Maybe Cancel) -- ^ /cancel/ child element+ , traditionalKeyFifths :: Fifths -- ^ /fifths/ child element+ , traditionalKeyMode :: (Maybe Mode) -- ^ /mode/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TraditionalKey where+ emitXml (TraditionalKey a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "cancel" Nothing).emitXml) a] +++ [XElement (QN "fifths" Nothing) (emitXml b)] +++ [maybe XEmpty (XElement (QN "mode" Nothing).emitXml) c])+parseTraditionalKey :: P.XParse TraditionalKey+parseTraditionalKey = + TraditionalKey+ <$> P.optional (P.xchild (P.name "cancel") (parseCancel))+ <*> (P.xchild (P.name "fifths") (P.xtext >>= parseFifths))+ <*> P.optional (P.xchild (P.name "mode") (P.xtext >>= parseMode))++-- | Smart constructor for 'TraditionalKey'+mkTraditionalKey :: Fifths -> TraditionalKey+mkTraditionalKey b = TraditionalKey Nothing b Nothing++-- | @tuning@ /(group)/+data Tuning = + Tuning {+ tuningTuningStep :: Step -- ^ /tuning-step/ child element+ , tuningTuningAlter :: (Maybe Semitones) -- ^ /tuning-alter/ child element+ , tuningTuningOctave :: Octave -- ^ /tuning-octave/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tuning where+ emitXml (Tuning a b c) =+ XContent XEmpty+ []+ ([XElement (QN "tuning-step" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "tuning-alter" Nothing).emitXml) b] +++ [XElement (QN "tuning-octave" Nothing) (emitXml c)])+parseTuning :: P.XParse Tuning+parseTuning = + Tuning+ <$> (P.xchild (P.name "tuning-step") (P.xtext >>= parseStep))+ <*> P.optional (P.xchild (P.name "tuning-alter") (P.xtext >>= parseSemitones))+ <*> (P.xchild (P.name "tuning-octave") (P.xtext >>= parseOctave))++-- | Smart constructor for 'Tuning'+mkTuning :: Step -> Octave -> Tuning+mkTuning a c = Tuning a Nothing c++-- | @voice@ /(group)/+data Voice = + Voice {+ voiceVoice :: String -- ^ /voice/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Voice where+ emitXml (Voice a) =+ XContent XEmpty+ []+ ([XElement (QN "voice" Nothing) (emitXml a)])+parseVoice :: P.XParse Voice+parseVoice = + Voice+ <$> (P.xchild (P.name "voice") (P.xtext >>= return))++-- | Smart constructor for 'Voice'+mkVoice :: String -> Voice+mkVoice a = Voice a
+ src/Fadno/MusicXml/MusicXml31.hs view
@@ -0,0 +1,15852 @@+{-# LANGUAGE TupleSections #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE FlexibleContexts #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE MultiParamTypeClasses #-}++module Fadno.MusicXml.MusicXml31 where++import GHC.Generics+import Data.Data+import Data.Decimal+import Data.String+import Fadno.Xml.EmitXml+import qualified Fadno.Xml.XParse as P+import qualified Control.Applicative as P+import Control.Applicative ((<|>))+import qualified Control.Arrow as A++-- | @xs:ID@ /(simple)/+newtype ID = ID { iD :: NCName }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show ID where show (ID a) = show a+instance Read ID where readsPrec i = map (A.first ID) . readsPrec i+instance EmitXml ID where+ emitXml = emitXml . iD+parseID :: String -> P.XParse ID+parseID = return . fromString++-- | @xs:IDREF@ /(simple)/+newtype IDREF = IDREF { iDREF :: NCName }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show IDREF where show (IDREF a) = show a+instance Read IDREF where readsPrec i = map (A.first IDREF) . readsPrec i+instance EmitXml IDREF where+ emitXml = emitXml . iDREF+parseIDREF :: String -> P.XParse IDREF+parseIDREF = return . fromString++-- | @xs:NCName@ /(simple)/+newtype NCName = NCName { nCName :: Name }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show NCName where show (NCName a) = show a+instance Read NCName where readsPrec i = map (A.first NCName) . readsPrec i+instance EmitXml NCName where+ emitXml = emitXml . nCName+parseNCName :: String -> P.XParse NCName+parseNCName = return . fromString++-- | @xs:NMTOKEN@ /(simple)/+newtype NMTOKEN = NMTOKEN { nMTOKEN :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show NMTOKEN where show (NMTOKEN a) = show a+instance Read NMTOKEN where readsPrec i = map (A.first NMTOKEN) . readsPrec i+instance EmitXml NMTOKEN where+ emitXml = emitXml . nMTOKEN+parseNMTOKEN :: String -> P.XParse NMTOKEN+parseNMTOKEN = return . fromString++-- | @xs:Name@ /(simple)/+newtype Name = Name { name :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show Name where show (Name a) = show a+instance Read Name where readsPrec i = map (A.first Name) . readsPrec i+instance EmitXml Name where+ emitXml = emitXml . name+parseName :: String -> P.XParse Name+parseName = return . fromString++-- | @above-below@ /(simple)/+--+-- The above-below type is used to indicate whether one element appears above or below another element.+data AboveBelow = + AboveBelowAbove -- ^ /above/+ | AboveBelowBelow -- ^ /below/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml AboveBelow where+ emitXml AboveBelowAbove = XLit "above"+ emitXml AboveBelowBelow = XLit "below"+parseAboveBelow :: String -> P.XParse AboveBelow+parseAboveBelow s+ | s == "above" = return $ AboveBelowAbove+ | s == "below" = return $ AboveBelowBelow+ | otherwise = P.xfail $ "AboveBelow: " ++ s++-- | @accidental-value@ /(simple)/+--+-- The accidental-value type represents notated accidentals supported by MusicXML. In the MusicXML 2.0 DTD this was a string with values that could be included. The XSD strengthens the data typing to an enumerated list. The quarter- and three-quarters- accidentals are Tartini-style quarter-tone accidentals. The -down and -up accidentals are quarter-tone accidentals that include arrows pointing down or up. The slash- accidentals are used in Turkish classical music. The numbered sharp and flat accidentals are superscripted versions of the accidental signs, used in Turkish folk music. The sori and koron accidentals are microtonal sharp and flat accidentals used in Iranian and Persian music. The other accidental covers accidentals other than those listed here. It is usually used in combination with the smufl attribute to specify a particular SMuFL accidental. The smufl attribute may be used with any accidental value to help specify the appearance of symbols that share the same MusicXML semantics.+data AccidentalValue = + AccidentalValueSharp -- ^ /sharp/+ | AccidentalValueNatural -- ^ /natural/+ | AccidentalValueFlat -- ^ /flat/+ | AccidentalValueDoubleSharp -- ^ /double-sharp/+ | AccidentalValueSharpSharp -- ^ /sharp-sharp/+ | AccidentalValueFlatFlat -- ^ /flat-flat/+ | AccidentalValueNaturalSharp -- ^ /natural-sharp/+ | AccidentalValueNaturalFlat -- ^ /natural-flat/+ | AccidentalValueQuarterFlat -- ^ /quarter-flat/+ | AccidentalValueQuarterSharp -- ^ /quarter-sharp/+ | AccidentalValueThreeQuartersFlat -- ^ /three-quarters-flat/+ | AccidentalValueThreeQuartersSharp -- ^ /three-quarters-sharp/+ | AccidentalValueSharpDown -- ^ /sharp-down/+ | AccidentalValueSharpUp -- ^ /sharp-up/+ | AccidentalValueNaturalDown -- ^ /natural-down/+ | AccidentalValueNaturalUp -- ^ /natural-up/+ | AccidentalValueFlatDown -- ^ /flat-down/+ | AccidentalValueFlatUp -- ^ /flat-up/+ | AccidentalValueDoubleSharpDown -- ^ /double-sharp-down/+ | AccidentalValueDoubleSharpUp -- ^ /double-sharp-up/+ | AccidentalValueFlatFlatDown -- ^ /flat-flat-down/+ | AccidentalValueFlatFlatUp -- ^ /flat-flat-up/+ | AccidentalValueArrowDown -- ^ /arrow-down/+ | AccidentalValueArrowUp -- ^ /arrow-up/+ | AccidentalValueTripleSharp -- ^ /triple-sharp/+ | AccidentalValueTripleFlat -- ^ /triple-flat/+ | AccidentalValueSlashQuarterSharp -- ^ /slash-quarter-sharp/+ | AccidentalValueSlashSharp -- ^ /slash-sharp/+ | AccidentalValueSlashFlat -- ^ /slash-flat/+ | AccidentalValueDoubleSlashFlat -- ^ /double-slash-flat/+ | AccidentalValueSharp1 -- ^ /sharp-1/+ | AccidentalValueSharp2 -- ^ /sharp-2/+ | AccidentalValueSharp3 -- ^ /sharp-3/+ | AccidentalValueSharp5 -- ^ /sharp-5/+ | AccidentalValueFlat1 -- ^ /flat-1/+ | AccidentalValueFlat2 -- ^ /flat-2/+ | AccidentalValueFlat3 -- ^ /flat-3/+ | AccidentalValueFlat4 -- ^ /flat-4/+ | AccidentalValueSori -- ^ /sori/+ | AccidentalValueKoron -- ^ /koron/+ | AccidentalValueOther -- ^ /other/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml AccidentalValue where+ emitXml AccidentalValueSharp = XLit "sharp"+ emitXml AccidentalValueNatural = XLit "natural"+ emitXml AccidentalValueFlat = XLit "flat"+ emitXml AccidentalValueDoubleSharp = XLit "double-sharp"+ emitXml AccidentalValueSharpSharp = XLit "sharp-sharp"+ emitXml AccidentalValueFlatFlat = XLit "flat-flat"+ emitXml AccidentalValueNaturalSharp = XLit "natural-sharp"+ emitXml AccidentalValueNaturalFlat = XLit "natural-flat"+ emitXml AccidentalValueQuarterFlat = XLit "quarter-flat"+ emitXml AccidentalValueQuarterSharp = XLit "quarter-sharp"+ emitXml AccidentalValueThreeQuartersFlat = XLit "three-quarters-flat"+ emitXml AccidentalValueThreeQuartersSharp = XLit "three-quarters-sharp"+ emitXml AccidentalValueSharpDown = XLit "sharp-down"+ emitXml AccidentalValueSharpUp = XLit "sharp-up"+ emitXml AccidentalValueNaturalDown = XLit "natural-down"+ emitXml AccidentalValueNaturalUp = XLit "natural-up"+ emitXml AccidentalValueFlatDown = XLit "flat-down"+ emitXml AccidentalValueFlatUp = XLit "flat-up"+ emitXml AccidentalValueDoubleSharpDown = XLit "double-sharp-down"+ emitXml AccidentalValueDoubleSharpUp = XLit "double-sharp-up"+ emitXml AccidentalValueFlatFlatDown = XLit "flat-flat-down"+ emitXml AccidentalValueFlatFlatUp = XLit "flat-flat-up"+ emitXml AccidentalValueArrowDown = XLit "arrow-down"+ emitXml AccidentalValueArrowUp = XLit "arrow-up"+ emitXml AccidentalValueTripleSharp = XLit "triple-sharp"+ emitXml AccidentalValueTripleFlat = XLit "triple-flat"+ emitXml AccidentalValueSlashQuarterSharp = XLit "slash-quarter-sharp"+ emitXml AccidentalValueSlashSharp = XLit "slash-sharp"+ emitXml AccidentalValueSlashFlat = XLit "slash-flat"+ emitXml AccidentalValueDoubleSlashFlat = XLit "double-slash-flat"+ emitXml AccidentalValueSharp1 = XLit "sharp-1"+ emitXml AccidentalValueSharp2 = XLit "sharp-2"+ emitXml AccidentalValueSharp3 = XLit "sharp-3"+ emitXml AccidentalValueSharp5 = XLit "sharp-5"+ emitXml AccidentalValueFlat1 = XLit "flat-1"+ emitXml AccidentalValueFlat2 = XLit "flat-2"+ emitXml AccidentalValueFlat3 = XLit "flat-3"+ emitXml AccidentalValueFlat4 = XLit "flat-4"+ emitXml AccidentalValueSori = XLit "sori"+ emitXml AccidentalValueKoron = XLit "koron"+ emitXml AccidentalValueOther = XLit "other"+parseAccidentalValue :: String -> P.XParse AccidentalValue+parseAccidentalValue s+ | s == "sharp" = return $ AccidentalValueSharp+ | s == "natural" = return $ AccidentalValueNatural+ | s == "flat" = return $ AccidentalValueFlat+ | s == "double-sharp" = return $ AccidentalValueDoubleSharp+ | s == "sharp-sharp" = return $ AccidentalValueSharpSharp+ | s == "flat-flat" = return $ AccidentalValueFlatFlat+ | s == "natural-sharp" = return $ AccidentalValueNaturalSharp+ | s == "natural-flat" = return $ AccidentalValueNaturalFlat+ | s == "quarter-flat" = return $ AccidentalValueQuarterFlat+ | s == "quarter-sharp" = return $ AccidentalValueQuarterSharp+ | s == "three-quarters-flat" = return $ AccidentalValueThreeQuartersFlat+ | s == "three-quarters-sharp" = return $ AccidentalValueThreeQuartersSharp+ | s == "sharp-down" = return $ AccidentalValueSharpDown+ | s == "sharp-up" = return $ AccidentalValueSharpUp+ | s == "natural-down" = return $ AccidentalValueNaturalDown+ | s == "natural-up" = return $ AccidentalValueNaturalUp+ | s == "flat-down" = return $ AccidentalValueFlatDown+ | s == "flat-up" = return $ AccidentalValueFlatUp+ | s == "double-sharp-down" = return $ AccidentalValueDoubleSharpDown+ | s == "double-sharp-up" = return $ AccidentalValueDoubleSharpUp+ | s == "flat-flat-down" = return $ AccidentalValueFlatFlatDown+ | s == "flat-flat-up" = return $ AccidentalValueFlatFlatUp+ | s == "arrow-down" = return $ AccidentalValueArrowDown+ | s == "arrow-up" = return $ AccidentalValueArrowUp+ | s == "triple-sharp" = return $ AccidentalValueTripleSharp+ | s == "triple-flat" = return $ AccidentalValueTripleFlat+ | s == "slash-quarter-sharp" = return $ AccidentalValueSlashQuarterSharp+ | s == "slash-sharp" = return $ AccidentalValueSlashSharp+ | s == "slash-flat" = return $ AccidentalValueSlashFlat+ | s == "double-slash-flat" = return $ AccidentalValueDoubleSlashFlat+ | s == "sharp-1" = return $ AccidentalValueSharp1+ | s == "sharp-2" = return $ AccidentalValueSharp2+ | s == "sharp-3" = return $ AccidentalValueSharp3+ | s == "sharp-5" = return $ AccidentalValueSharp5+ | s == "flat-1" = return $ AccidentalValueFlat1+ | s == "flat-2" = return $ AccidentalValueFlat2+ | s == "flat-3" = return $ AccidentalValueFlat3+ | s == "flat-4" = return $ AccidentalValueFlat4+ | s == "sori" = return $ AccidentalValueSori+ | s == "koron" = return $ AccidentalValueKoron+ | s == "other" = return $ AccidentalValueOther+ | otherwise = P.xfail $ "AccidentalValue: " ++ s++-- | @accordion-middle@ /(simple)/+--+-- The accordion-middle type may have values of 1, 2, or 3, corresponding to having 1 to 3 dots in the middle section of the accordion registration symbol. This type is not used if no dots are present.+newtype AccordionMiddle = AccordionMiddle { accordionMiddle :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show AccordionMiddle where show (AccordionMiddle a) = show a+instance Read AccordionMiddle where readsPrec i = map (A.first AccordionMiddle) . readsPrec i+instance EmitXml AccordionMiddle where+ emitXml = emitXml . accordionMiddle+parseAccordionMiddle :: String -> P.XParse AccordionMiddle+parseAccordionMiddle = P.xread "AccordionMiddle"++-- | @xlink:actuate@ /(simple)/+data Actuate = + ActuateOnRequest -- ^ /onRequest/+ | ActuateOnLoad -- ^ /onLoad/+ | ActuateOther -- ^ /other/+ | ActuateNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Actuate where+ emitXml ActuateOnRequest = XLit "onRequest"+ emitXml ActuateOnLoad = XLit "onLoad"+ emitXml ActuateOther = XLit "other"+ emitXml ActuateNone = XLit "none"+parseActuate :: String -> P.XParse Actuate+parseActuate s+ | s == "onRequest" = return $ ActuateOnRequest+ | s == "onLoad" = return $ ActuateOnLoad+ | s == "other" = return $ ActuateOther+ | s == "none" = return $ ActuateNone+ | otherwise = P.xfail $ "Actuate: " ++ s++-- | @arrow-direction@ /(simple)/+--+-- The arrow-direction type represents the direction in which an arrow points, using Unicode arrow terminology.+data ArrowDirection = + ArrowDirectionLeft -- ^ /left/+ | ArrowDirectionUp -- ^ /up/+ | ArrowDirectionRight -- ^ /right/+ | ArrowDirectionDown -- ^ /down/+ | ArrowDirectionNorthwest -- ^ /northwest/+ | ArrowDirectionNortheast -- ^ /northeast/+ | ArrowDirectionSoutheast -- ^ /southeast/+ | ArrowDirectionSouthwest -- ^ /southwest/+ | ArrowDirectionLeftRight -- ^ /left right/+ | ArrowDirectionUpDown -- ^ /up down/+ | ArrowDirectionNorthwestSoutheast -- ^ /northwest southeast/+ | ArrowDirectionNortheastSouthwest -- ^ /northeast southwest/+ | ArrowDirectionOther -- ^ /other/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ArrowDirection where+ emitXml ArrowDirectionLeft = XLit "left"+ emitXml ArrowDirectionUp = XLit "up"+ emitXml ArrowDirectionRight = XLit "right"+ emitXml ArrowDirectionDown = XLit "down"+ emitXml ArrowDirectionNorthwest = XLit "northwest"+ emitXml ArrowDirectionNortheast = XLit "northeast"+ emitXml ArrowDirectionSoutheast = XLit "southeast"+ emitXml ArrowDirectionSouthwest = XLit "southwest"+ emitXml ArrowDirectionLeftRight = XLit "left right"+ emitXml ArrowDirectionUpDown = XLit "up down"+ emitXml ArrowDirectionNorthwestSoutheast = XLit "northwest southeast"+ emitXml ArrowDirectionNortheastSouthwest = XLit "northeast southwest"+ emitXml ArrowDirectionOther = XLit "other"+parseArrowDirection :: String -> P.XParse ArrowDirection+parseArrowDirection s+ | s == "left" = return $ ArrowDirectionLeft+ | s == "up" = return $ ArrowDirectionUp+ | s == "right" = return $ ArrowDirectionRight+ | s == "down" = return $ ArrowDirectionDown+ | s == "northwest" = return $ ArrowDirectionNorthwest+ | s == "northeast" = return $ ArrowDirectionNortheast+ | s == "southeast" = return $ ArrowDirectionSoutheast+ | s == "southwest" = return $ ArrowDirectionSouthwest+ | s == "left right" = return $ ArrowDirectionLeftRight+ | s == "up down" = return $ ArrowDirectionUpDown+ | s == "northwest southeast" = return $ ArrowDirectionNorthwestSoutheast+ | s == "northeast southwest" = return $ ArrowDirectionNortheastSouthwest+ | s == "other" = return $ ArrowDirectionOther+ | otherwise = P.xfail $ "ArrowDirection: " ++ s++-- | @arrow-style@ /(simple)/+--+-- The arrow-style type represents the style of an arrow, using Unicode arrow terminology. Filled and hollow arrows indicate polygonal single arrows. Paired arrows are duplicate single arrows in the same direction. Combined arrows apply to double direction arrows like left right, indicating that an arrow in one direction should be combined with an arrow in the other direction.+data ArrowStyle = + ArrowStyleSingle -- ^ /single/+ | ArrowStyleDouble -- ^ /double/+ | ArrowStyleFilled -- ^ /filled/+ | ArrowStyleHollow -- ^ /hollow/+ | ArrowStylePaired -- ^ /paired/+ | ArrowStyleCombined -- ^ /combined/+ | ArrowStyleOther -- ^ /other/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ArrowStyle where+ emitXml ArrowStyleSingle = XLit "single"+ emitXml ArrowStyleDouble = XLit "double"+ emitXml ArrowStyleFilled = XLit "filled"+ emitXml ArrowStyleHollow = XLit "hollow"+ emitXml ArrowStylePaired = XLit "paired"+ emitXml ArrowStyleCombined = XLit "combined"+ emitXml ArrowStyleOther = XLit "other"+parseArrowStyle :: String -> P.XParse ArrowStyle+parseArrowStyle s+ | s == "single" = return $ ArrowStyleSingle+ | s == "double" = return $ ArrowStyleDouble+ | s == "filled" = return $ ArrowStyleFilled+ | s == "hollow" = return $ ArrowStyleHollow+ | s == "paired" = return $ ArrowStylePaired+ | s == "combined" = return $ ArrowStyleCombined+ | s == "other" = return $ ArrowStyleOther+ | otherwise = P.xfail $ "ArrowStyle: " ++ s++-- | @backward-forward@ /(simple)/+--+-- The backward-forward type is used to specify repeat directions. The start of the repeat has a forward direction while the end of the repeat has a backward direction.+data BackwardForward = + BackwardForwardBackward -- ^ /backward/+ | BackwardForwardForward -- ^ /forward/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml BackwardForward where+ emitXml BackwardForwardBackward = XLit "backward"+ emitXml BackwardForwardForward = XLit "forward"+parseBackwardForward :: String -> P.XParse BackwardForward+parseBackwardForward s+ | s == "backward" = return $ BackwardForwardBackward+ | s == "forward" = return $ BackwardForwardForward+ | otherwise = P.xfail $ "BackwardForward: " ++ s++-- | @bar-style@ /(simple)/+--+-- The bar-style type represents barline style information. Choices are regular, dotted, dashed, heavy, light-light, light-heavy, heavy-light, heavy-heavy, tick (a short stroke through the top line), short (a partial barline between the 2nd and 4th lines), and none.+data BarStyle = + BarStyleRegular -- ^ /regular/+ | BarStyleDotted -- ^ /dotted/+ | BarStyleDashed -- ^ /dashed/+ | BarStyleHeavy -- ^ /heavy/+ | BarStyleLightLight -- ^ /light-light/+ | BarStyleLightHeavy -- ^ /light-heavy/+ | BarStyleHeavyLight -- ^ /heavy-light/+ | BarStyleHeavyHeavy -- ^ /heavy-heavy/+ | BarStyleTick -- ^ /tick/+ | BarStyleShort -- ^ /short/+ | BarStyleNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml BarStyle where+ emitXml BarStyleRegular = XLit "regular"+ emitXml BarStyleDotted = XLit "dotted"+ emitXml BarStyleDashed = XLit "dashed"+ emitXml BarStyleHeavy = XLit "heavy"+ emitXml BarStyleLightLight = XLit "light-light"+ emitXml BarStyleLightHeavy = XLit "light-heavy"+ emitXml BarStyleHeavyLight = XLit "heavy-light"+ emitXml BarStyleHeavyHeavy = XLit "heavy-heavy"+ emitXml BarStyleTick = XLit "tick"+ emitXml BarStyleShort = XLit "short"+ emitXml BarStyleNone = XLit "none"+parseBarStyle :: String -> P.XParse BarStyle+parseBarStyle s+ | s == "regular" = return $ BarStyleRegular+ | s == "dotted" = return $ BarStyleDotted+ | s == "dashed" = return $ BarStyleDashed+ | s == "heavy" = return $ BarStyleHeavy+ | s == "light-light" = return $ BarStyleLightLight+ | s == "light-heavy" = return $ BarStyleLightHeavy+ | s == "heavy-light" = return $ BarStyleHeavyLight+ | s == "heavy-heavy" = return $ BarStyleHeavyHeavy+ | s == "tick" = return $ BarStyleTick+ | s == "short" = return $ BarStyleShort+ | s == "none" = return $ BarStyleNone+ | otherwise = P.xfail $ "BarStyle: " ++ s++-- | @beam-level@ /(simple)/+--+-- The MusicXML format supports six levels of beaming, up to 1024th notes. Unlike the number-level type, the beam-level type identifies concurrent beams in a beam group. It does not distinguish overlapping beams such as grace notes within regular notes, or beams used in different voices.+newtype BeamLevel = BeamLevel { beamLevel :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show BeamLevel where show (BeamLevel a) = show a+instance Read BeamLevel where readsPrec i = map (A.first BeamLevel) . readsPrec i+instance EmitXml BeamLevel where+ emitXml = emitXml . beamLevel+parseBeamLevel :: String -> P.XParse BeamLevel+parseBeamLevel = P.xread "BeamLevel"++-- | @beam-value@ /(simple)/+--+-- The beam-value type represents the type of beam associated with each of 8 beam levels (up to 1024th notes) available for each note.+data BeamValue = + BeamValueBegin -- ^ /begin/+ | BeamValueContinue -- ^ /continue/+ | BeamValueEnd -- ^ /end/+ | BeamValueForwardHook -- ^ /forward hook/+ | BeamValueBackwardHook -- ^ /backward hook/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml BeamValue where+ emitXml BeamValueBegin = XLit "begin"+ emitXml BeamValueContinue = XLit "continue"+ emitXml BeamValueEnd = XLit "end"+ emitXml BeamValueForwardHook = XLit "forward hook"+ emitXml BeamValueBackwardHook = XLit "backward hook"+parseBeamValue :: String -> P.XParse BeamValue+parseBeamValue s+ | s == "begin" = return $ BeamValueBegin+ | s == "continue" = return $ BeamValueContinue+ | s == "end" = return $ BeamValueEnd+ | s == "forward hook" = return $ BeamValueForwardHook+ | s == "backward hook" = return $ BeamValueBackwardHook+ | otherwise = P.xfail $ "BeamValue: " ++ s++-- | @beater-value@ /(simple)/+--+-- The beater-value type represents pictograms for beaters, mallets, and sticks that do not have different materials represented in the pictogram. The finger and hammer values are in addition to Stone's list.+data BeaterValue = + BeaterValueBow -- ^ /bow/+ | BeaterValueChimeHammer -- ^ /chime hammer/+ | BeaterValueCoin -- ^ /coin/+ | BeaterValueDrumStick -- ^ /drum stick/+ | BeaterValueFinger -- ^ /finger/+ | BeaterValueFingernail -- ^ /fingernail/+ | BeaterValueFist -- ^ /fist/+ | BeaterValueGuiroScraper -- ^ /guiro scraper/+ | BeaterValueHammer -- ^ /hammer/+ | BeaterValueHand -- ^ /hand/+ | BeaterValueJazzStick -- ^ /jazz stick/+ | BeaterValueKnittingNeedle -- ^ /knitting needle/+ | BeaterValueMetalHammer -- ^ /metal hammer/+ | BeaterValueSlideBrushOnGong -- ^ /slide brush on gong/+ | BeaterValueSnareStick -- ^ /snare stick/+ | BeaterValueSpoonMallet -- ^ /spoon mallet/+ | BeaterValueSuperball -- ^ /superball/+ | BeaterValueTriangleBeater -- ^ /triangle beater/+ | BeaterValueTriangleBeaterPlain -- ^ /triangle beater plain/+ | BeaterValueWireBrush -- ^ /wire brush/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml BeaterValue where+ emitXml BeaterValueBow = XLit "bow"+ emitXml BeaterValueChimeHammer = XLit "chime hammer"+ emitXml BeaterValueCoin = XLit "coin"+ emitXml BeaterValueDrumStick = XLit "drum stick"+ emitXml BeaterValueFinger = XLit "finger"+ emitXml BeaterValueFingernail = XLit "fingernail"+ emitXml BeaterValueFist = XLit "fist"+ emitXml BeaterValueGuiroScraper = XLit "guiro scraper"+ emitXml BeaterValueHammer = XLit "hammer"+ emitXml BeaterValueHand = XLit "hand"+ emitXml BeaterValueJazzStick = XLit "jazz stick"+ emitXml BeaterValueKnittingNeedle = XLit "knitting needle"+ emitXml BeaterValueMetalHammer = XLit "metal hammer"+ emitXml BeaterValueSlideBrushOnGong = XLit "slide brush on gong"+ emitXml BeaterValueSnareStick = XLit "snare stick"+ emitXml BeaterValueSpoonMallet = XLit "spoon mallet"+ emitXml BeaterValueSuperball = XLit "superball"+ emitXml BeaterValueTriangleBeater = XLit "triangle beater"+ emitXml BeaterValueTriangleBeaterPlain = XLit "triangle beater plain"+ emitXml BeaterValueWireBrush = XLit "wire brush"+parseBeaterValue :: String -> P.XParse BeaterValue+parseBeaterValue s+ | s == "bow" = return $ BeaterValueBow+ | s == "chime hammer" = return $ BeaterValueChimeHammer+ | s == "coin" = return $ BeaterValueCoin+ | s == "drum stick" = return $ BeaterValueDrumStick+ | s == "finger" = return $ BeaterValueFinger+ | s == "fingernail" = return $ BeaterValueFingernail+ | s == "fist" = return $ BeaterValueFist+ | s == "guiro scraper" = return $ BeaterValueGuiroScraper+ | s == "hammer" = return $ BeaterValueHammer+ | s == "hand" = return $ BeaterValueHand+ | s == "jazz stick" = return $ BeaterValueJazzStick+ | s == "knitting needle" = return $ BeaterValueKnittingNeedle+ | s == "metal hammer" = return $ BeaterValueMetalHammer+ | s == "slide brush on gong" = return $ BeaterValueSlideBrushOnGong+ | s == "snare stick" = return $ BeaterValueSnareStick+ | s == "spoon mallet" = return $ BeaterValueSpoonMallet+ | s == "superball" = return $ BeaterValueSuperball+ | s == "triangle beater" = return $ BeaterValueTriangleBeater+ | s == "triangle beater plain" = return $ BeaterValueTriangleBeaterPlain+ | s == "wire brush" = return $ BeaterValueWireBrush+ | otherwise = P.xfail $ "BeaterValue: " ++ s++-- | @breath-mark-value@ /(simple)/+--+-- The breath-mark-value type represents the symbol used for a breath mark.+data BreathMarkValue = + BreathMarkValue -- ^ //+ | BreathMarkValueComma -- ^ /comma/+ | BreathMarkValueTick -- ^ /tick/+ | BreathMarkValueUpbow -- ^ /upbow/+ | BreathMarkValueSalzedo -- ^ /salzedo/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml BreathMarkValue where+ emitXml BreathMarkValue = XLit ""+ emitXml BreathMarkValueComma = XLit "comma"+ emitXml BreathMarkValueTick = XLit "tick"+ emitXml BreathMarkValueUpbow = XLit "upbow"+ emitXml BreathMarkValueSalzedo = XLit "salzedo"+parseBreathMarkValue :: String -> P.XParse BreathMarkValue+parseBreathMarkValue s+ | s == "" = return $ BreathMarkValue+ | s == "comma" = return $ BreathMarkValueComma+ | s == "tick" = return $ BreathMarkValueTick+ | s == "upbow" = return $ BreathMarkValueUpbow+ | s == "salzedo" = return $ BreathMarkValueSalzedo+ | otherwise = P.xfail $ "BreathMarkValue: " ++ s++-- | @caesura-value@ /(simple)/+--+-- The caesura-value type represents the shape of the caesura sign.+data CaesuraValue = + CaesuraValueNormal -- ^ /normal/+ | CaesuraValueThick -- ^ /thick/+ | CaesuraValueShort -- ^ /short/+ | CaesuraValueCurved -- ^ /curved/+ | CaesuraValueSingle -- ^ /single/+ | CaesuraValue -- ^ //+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml CaesuraValue where+ emitXml CaesuraValueNormal = XLit "normal"+ emitXml CaesuraValueThick = XLit "thick"+ emitXml CaesuraValueShort = XLit "short"+ emitXml CaesuraValueCurved = XLit "curved"+ emitXml CaesuraValueSingle = XLit "single"+ emitXml CaesuraValue = XLit ""+parseCaesuraValue :: String -> P.XParse CaesuraValue+parseCaesuraValue s+ | s == "normal" = return $ CaesuraValueNormal+ | s == "thick" = return $ CaesuraValueThick+ | s == "short" = return $ CaesuraValueShort+ | s == "curved" = return $ CaesuraValueCurved+ | s == "single" = return $ CaesuraValueSingle+ | s == "" = return $ CaesuraValue+ | otherwise = P.xfail $ "CaesuraValue: " ++ s++-- | @cancel-location@ /(simple)/+--+-- The cancel-location type is used to indicate where a key signature cancellation appears relative to a new key signature: to the left, to the right, or before the barline and to the left. It is left by default. For mid-measure key elements, a cancel-location of before-barline should be treated like a cancel-location of left.+data CancelLocation = + CancelLocationLeft -- ^ /left/+ | CancelLocationRight -- ^ /right/+ | CancelLocationBeforeBarline -- ^ /before-barline/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml CancelLocation where+ emitXml CancelLocationLeft = XLit "left"+ emitXml CancelLocationRight = XLit "right"+ emitXml CancelLocationBeforeBarline = XLit "before-barline"+parseCancelLocation :: String -> P.XParse CancelLocation+parseCancelLocation s+ | s == "left" = return $ CancelLocationLeft+ | s == "right" = return $ CancelLocationRight+ | s == "before-barline" = return $ CancelLocationBeforeBarline+ | otherwise = P.xfail $ "CancelLocation: " ++ s++-- | @circular-arrow@ /(simple)/+--+-- The circular-arrow type represents the direction in which a circular arrow points, using Unicode arrow terminology.+data CircularArrow = + CircularArrowClockwise -- ^ /clockwise/+ | CircularArrowAnticlockwise -- ^ /anticlockwise/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml CircularArrow where+ emitXml CircularArrowClockwise = XLit "clockwise"+ emitXml CircularArrowAnticlockwise = XLit "anticlockwise"+parseCircularArrow :: String -> P.XParse CircularArrow+parseCircularArrow s+ | s == "clockwise" = return $ CircularArrowClockwise+ | s == "anticlockwise" = return $ CircularArrowAnticlockwise+ | otherwise = P.xfail $ "CircularArrow: " ++ s++-- | @clef-sign@ /(simple)/+--+-- The clef-sign element represents the different clef symbols. The jianpu sign indicates that the music that follows should be in jianpu numbered notation, just as the TAB sign indicates that the music that follows should be in tablature notation. Unlike TAB, a jianpu sign does not correspond to a visual clef notation.+data ClefSign = + ClefSignG -- ^ /G/+ | ClefSignF -- ^ /F/+ | ClefSignC -- ^ /C/+ | ClefSignPercussion -- ^ /percussion/+ | ClefSignTAB -- ^ /TAB/+ | ClefSignJianpu -- ^ /jianpu/+ | ClefSignNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ClefSign where+ emitXml ClefSignG = XLit "G"+ emitXml ClefSignF = XLit "F"+ emitXml ClefSignC = XLit "C"+ emitXml ClefSignPercussion = XLit "percussion"+ emitXml ClefSignTAB = XLit "TAB"+ emitXml ClefSignJianpu = XLit "jianpu"+ emitXml ClefSignNone = XLit "none"+parseClefSign :: String -> P.XParse ClefSign+parseClefSign s+ | s == "G" = return $ ClefSignG+ | s == "F" = return $ ClefSignF+ | s == "C" = return $ ClefSignC+ | s == "percussion" = return $ ClefSignPercussion+ | s == "TAB" = return $ ClefSignTAB+ | s == "jianpu" = return $ ClefSignJianpu+ | s == "none" = return $ ClefSignNone+ | otherwise = P.xfail $ "ClefSign: " ++ s++-- | @color@ /(simple)/+--+-- The color type indicates the color of an element. Color may be represented as hexadecimal RGB triples, as in HTML, or as hexadecimal ARGB tuples, with the A indicating alpha of transparency. An alpha value of 00 is totally transparent; FF is totally opaque. If RGB is used, the A value is assumed to be FF.+-- +-- For instance, the RGB value "#800080" represents purple. An ARGB value of "#40800080" would be a transparent purple.+-- +-- As in SVG 1.1, colors are defined in terms of the sRGB color space (IEC 61966).+newtype Color = Color { color :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show Color where show (Color a) = show a+instance Read Color where readsPrec i = map (A.first Color) . readsPrec i+instance EmitXml Color where+ emitXml = emitXml . color+parseColor :: String -> P.XParse Color+parseColor = return . fromString++-- | @comma-separated-text@ /(simple)/+--+-- The comma-separated-text type is used to specify a comma-separated list of text elements, as is used by the font-family attribute.+newtype CommaSeparatedText = CommaSeparatedText { commaSeparatedText :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show CommaSeparatedText where show (CommaSeparatedText a) = show a+instance Read CommaSeparatedText where readsPrec i = map (A.first CommaSeparatedText) . readsPrec i+instance EmitXml CommaSeparatedText where+ emitXml = emitXml . commaSeparatedText+parseCommaSeparatedText :: String -> P.XParse CommaSeparatedText+parseCommaSeparatedText = return . fromString++-- | @css-font-size@ /(simple)/+--+-- The css-font-size type includes the CSS font sizes used as an alternative to a numeric point size.+data CssFontSize = + CssFontSizeXxSmall -- ^ /xx-small/+ | CssFontSizeXSmall -- ^ /x-small/+ | CssFontSizeSmall -- ^ /small/+ | CssFontSizeMedium -- ^ /medium/+ | CssFontSizeLarge -- ^ /large/+ | CssFontSizeXLarge -- ^ /x-large/+ | CssFontSizeXxLarge -- ^ /xx-large/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml CssFontSize where+ emitXml CssFontSizeXxSmall = XLit "xx-small"+ emitXml CssFontSizeXSmall = XLit "x-small"+ emitXml CssFontSizeSmall = XLit "small"+ emitXml CssFontSizeMedium = XLit "medium"+ emitXml CssFontSizeLarge = XLit "large"+ emitXml CssFontSizeXLarge = XLit "x-large"+ emitXml CssFontSizeXxLarge = XLit "xx-large"+parseCssFontSize :: String -> P.XParse CssFontSize+parseCssFontSize s+ | s == "xx-small" = return $ CssFontSizeXxSmall+ | s == "x-small" = return $ CssFontSizeXSmall+ | s == "small" = return $ CssFontSizeSmall+ | s == "medium" = return $ CssFontSizeMedium+ | s == "large" = return $ CssFontSizeLarge+ | s == "x-large" = return $ CssFontSizeXLarge+ | s == "xx-large" = return $ CssFontSizeXxLarge+ | otherwise = P.xfail $ "CssFontSize: " ++ s++-- | @degree-symbol-value@ /(simple)/+--+-- The degree-symbol-value type indicates indicates that a symbol should be used in specifying the degree.+data DegreeSymbolValue = + DegreeSymbolValueMajor -- ^ /major/+ | DegreeSymbolValueMinor -- ^ /minor/+ | DegreeSymbolValueAugmented -- ^ /augmented/+ | DegreeSymbolValueDiminished -- ^ /diminished/+ | DegreeSymbolValueHalfDiminished -- ^ /half-diminished/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml DegreeSymbolValue where+ emitXml DegreeSymbolValueMajor = XLit "major"+ emitXml DegreeSymbolValueMinor = XLit "minor"+ emitXml DegreeSymbolValueAugmented = XLit "augmented"+ emitXml DegreeSymbolValueDiminished = XLit "diminished"+ emitXml DegreeSymbolValueHalfDiminished = XLit "half-diminished"+parseDegreeSymbolValue :: String -> P.XParse DegreeSymbolValue+parseDegreeSymbolValue s+ | s == "major" = return $ DegreeSymbolValueMajor+ | s == "minor" = return $ DegreeSymbolValueMinor+ | s == "augmented" = return $ DegreeSymbolValueAugmented+ | s == "diminished" = return $ DegreeSymbolValueDiminished+ | s == "half-diminished" = return $ DegreeSymbolValueHalfDiminished+ | otherwise = P.xfail $ "DegreeSymbolValue: " ++ s++-- | @degree-type-value@ /(simple)/+--+-- The degree-type-value type indicates whether the current degree element is an addition, alteration, or subtraction to the kind of the current chord in the harmony element.+data DegreeTypeValue = + DegreeTypeValueAdd -- ^ /add/+ | DegreeTypeValueAlter -- ^ /alter/+ | DegreeTypeValueSubtract -- ^ /subtract/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml DegreeTypeValue where+ emitXml DegreeTypeValueAdd = XLit "add"+ emitXml DegreeTypeValueAlter = XLit "alter"+ emitXml DegreeTypeValueSubtract = XLit "subtract"+parseDegreeTypeValue :: String -> P.XParse DegreeTypeValue+parseDegreeTypeValue s+ | s == "add" = return $ DegreeTypeValueAdd+ | s == "alter" = return $ DegreeTypeValueAlter+ | s == "subtract" = return $ DegreeTypeValueSubtract+ | otherwise = P.xfail $ "DegreeTypeValue: " ++ s++-- | @distance-type@ /(simple)/+--+-- The distance-type defines what type of distance is being defined in a distance element. Values include beam and hyphen. This is left as a string so that other application-specific types can be defined, but it is made a separate type so that it can be redefined more strictly.+newtype DistanceType = DistanceType { distanceType :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show DistanceType where show (DistanceType a) = show a+instance Read DistanceType where readsPrec i = map (A.first DistanceType) . readsPrec i+instance EmitXml DistanceType where+ emitXml = emitXml . distanceType+parseDistanceType :: String -> P.XParse DistanceType+parseDistanceType = return . fromString++-- | @divisions@ /(simple)/+--+-- The divisions type is used to express values in terms of the musical divisions defined by the divisions element. It is preferred that these be integer values both for MIDI interoperability and to avoid roundoff errors.+newtype Divisions = Divisions { divisions :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show Divisions where show (Divisions a) = show a+instance Read Divisions where readsPrec i = map (A.first Divisions) . readsPrec i+instance EmitXml Divisions where+ emitXml = emitXml . divisions+parseDivisions :: String -> P.XParse Divisions+parseDivisions = P.xread "Divisions"++-- | @effect@ /(simple)/+--+-- The effect type represents pictograms for sound effect percussion instruments. The cannon, lotus flute, and megaphone values are in addition to Stone's list.+data Effect = + EffectAnvil -- ^ /anvil/+ | EffectAutoHorn -- ^ /auto horn/+ | EffectBirdWhistle -- ^ /bird whistle/+ | EffectCannon -- ^ /cannon/+ | EffectDuckCall -- ^ /duck call/+ | EffectGunShot -- ^ /gun shot/+ | EffectKlaxonHorn -- ^ /klaxon horn/+ | EffectLionsRoar -- ^ /lions roar/+ | EffectLotusFlute -- ^ /lotus flute/+ | EffectMegaphone -- ^ /megaphone/+ | EffectPoliceWhistle -- ^ /police whistle/+ | EffectSiren -- ^ /siren/+ | EffectSlideWhistle -- ^ /slide whistle/+ | EffectThunderSheet -- ^ /thunder sheet/+ | EffectWindMachine -- ^ /wind machine/+ | EffectWindWhistle -- ^ /wind whistle/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Effect where+ emitXml EffectAnvil = XLit "anvil"+ emitXml EffectAutoHorn = XLit "auto horn"+ emitXml EffectBirdWhistle = XLit "bird whistle"+ emitXml EffectCannon = XLit "cannon"+ emitXml EffectDuckCall = XLit "duck call"+ emitXml EffectGunShot = XLit "gun shot"+ emitXml EffectKlaxonHorn = XLit "klaxon horn"+ emitXml EffectLionsRoar = XLit "lions roar"+ emitXml EffectLotusFlute = XLit "lotus flute"+ emitXml EffectMegaphone = XLit "megaphone"+ emitXml EffectPoliceWhistle = XLit "police whistle"+ emitXml EffectSiren = XLit "siren"+ emitXml EffectSlideWhistle = XLit "slide whistle"+ emitXml EffectThunderSheet = XLit "thunder sheet"+ emitXml EffectWindMachine = XLit "wind machine"+ emitXml EffectWindWhistle = XLit "wind whistle"+parseEffect :: String -> P.XParse Effect+parseEffect s+ | s == "anvil" = return $ EffectAnvil+ | s == "auto horn" = return $ EffectAutoHorn+ | s == "bird whistle" = return $ EffectBirdWhistle+ | s == "cannon" = return $ EffectCannon+ | s == "duck call" = return $ EffectDuckCall+ | s == "gun shot" = return $ EffectGunShot+ | s == "klaxon horn" = return $ EffectKlaxonHorn+ | s == "lions roar" = return $ EffectLionsRoar+ | s == "lotus flute" = return $ EffectLotusFlute+ | s == "megaphone" = return $ EffectMegaphone+ | s == "police whistle" = return $ EffectPoliceWhistle+ | s == "siren" = return $ EffectSiren+ | s == "slide whistle" = return $ EffectSlideWhistle+ | s == "thunder sheet" = return $ EffectThunderSheet+ | s == "wind machine" = return $ EffectWindMachine+ | s == "wind whistle" = return $ EffectWindWhistle+ | otherwise = P.xfail $ "Effect: " ++ s++-- | @enclosure-shape@ /(simple)/+--+-- The enclosure-shape type describes the shape and presence / absence of an enclosure around text or symbols. A bracket enclosure is similar to a rectangle with the bottom line missing, as is common in jazz notation.+data EnclosureShape = + EnclosureShapeRectangle -- ^ /rectangle/+ | EnclosureShapeSquare -- ^ /square/+ | EnclosureShapeOval -- ^ /oval/+ | EnclosureShapeCircle -- ^ /circle/+ | EnclosureShapeBracket -- ^ /bracket/+ | EnclosureShapeTriangle -- ^ /triangle/+ | EnclosureShapeDiamond -- ^ /diamond/+ | EnclosureShapePentagon -- ^ /pentagon/+ | EnclosureShapeHexagon -- ^ /hexagon/+ | EnclosureShapeHeptagon -- ^ /heptagon/+ | EnclosureShapeOctagon -- ^ /octagon/+ | EnclosureShapeNonagon -- ^ /nonagon/+ | EnclosureShapeDecagon -- ^ /decagon/+ | EnclosureShapeNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml EnclosureShape where+ emitXml EnclosureShapeRectangle = XLit "rectangle"+ emitXml EnclosureShapeSquare = XLit "square"+ emitXml EnclosureShapeOval = XLit "oval"+ emitXml EnclosureShapeCircle = XLit "circle"+ emitXml EnclosureShapeBracket = XLit "bracket"+ emitXml EnclosureShapeTriangle = XLit "triangle"+ emitXml EnclosureShapeDiamond = XLit "diamond"+ emitXml EnclosureShapePentagon = XLit "pentagon"+ emitXml EnclosureShapeHexagon = XLit "hexagon"+ emitXml EnclosureShapeHeptagon = XLit "heptagon"+ emitXml EnclosureShapeOctagon = XLit "octagon"+ emitXml EnclosureShapeNonagon = XLit "nonagon"+ emitXml EnclosureShapeDecagon = XLit "decagon"+ emitXml EnclosureShapeNone = XLit "none"+parseEnclosureShape :: String -> P.XParse EnclosureShape+parseEnclosureShape s+ | s == "rectangle" = return $ EnclosureShapeRectangle+ | s == "square" = return $ EnclosureShapeSquare+ | s == "oval" = return $ EnclosureShapeOval+ | s == "circle" = return $ EnclosureShapeCircle+ | s == "bracket" = return $ EnclosureShapeBracket+ | s == "triangle" = return $ EnclosureShapeTriangle+ | s == "diamond" = return $ EnclosureShapeDiamond+ | s == "pentagon" = return $ EnclosureShapePentagon+ | s == "hexagon" = return $ EnclosureShapeHexagon+ | s == "heptagon" = return $ EnclosureShapeHeptagon+ | s == "octagon" = return $ EnclosureShapeOctagon+ | s == "nonagon" = return $ EnclosureShapeNonagon+ | s == "decagon" = return $ EnclosureShapeDecagon+ | s == "none" = return $ EnclosureShapeNone+ | otherwise = P.xfail $ "EnclosureShape: " ++ s++-- | @ending-number@ /(simple)/+--+-- The ending-number type is used to specify either a comma-separated list of positive integers without leading zeros, or a string of zero or more spaces. It is used for the number attribute of the ending element. The zero or more spaces version is used when software knows that an ending is present, but cannot determine the type of the ending.+newtype EndingNumber = EndingNumber { endingNumber :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show EndingNumber where show (EndingNumber a) = show a+instance Read EndingNumber where readsPrec i = map (A.first EndingNumber) . readsPrec i+instance EmitXml EndingNumber where+ emitXml = emitXml . endingNumber+parseEndingNumber :: String -> P.XParse EndingNumber+parseEndingNumber = return . fromString++-- | @fan@ /(simple)/+--+-- The fan type represents the type of beam fanning present on a note, used to represent accelerandos and ritardandos.+data Fan = + FanAccel -- ^ /accel/+ | FanRit -- ^ /rit/+ | FanNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Fan where+ emitXml FanAccel = XLit "accel"+ emitXml FanRit = XLit "rit"+ emitXml FanNone = XLit "none"+parseFan :: String -> P.XParse Fan+parseFan s+ | s == "accel" = return $ FanAccel+ | s == "rit" = return $ FanRit+ | s == "none" = return $ FanNone+ | otherwise = P.xfail $ "Fan: " ++ s++-- | @fermata-shape@ /(simple)/+--+-- The fermata-shape type represents the shape of the fermata sign. The empty value is equivalent to the normal value.+data FermataShape = + FermataShapeNormal -- ^ /normal/+ | FermataShapeAngled -- ^ /angled/+ | FermataShapeSquare -- ^ /square/+ | FermataShapeDoubleAngled -- ^ /double-angled/+ | FermataShapeDoubleSquare -- ^ /double-square/+ | FermataShapeDoubleDot -- ^ /double-dot/+ | FermataShapeHalfCurve -- ^ /half-curve/+ | FermataShapeCurlew -- ^ /curlew/+ | FermataShape -- ^ //+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml FermataShape where+ emitXml FermataShapeNormal = XLit "normal"+ emitXml FermataShapeAngled = XLit "angled"+ emitXml FermataShapeSquare = XLit "square"+ emitXml FermataShapeDoubleAngled = XLit "double-angled"+ emitXml FermataShapeDoubleSquare = XLit "double-square"+ emitXml FermataShapeDoubleDot = XLit "double-dot"+ emitXml FermataShapeHalfCurve = XLit "half-curve"+ emitXml FermataShapeCurlew = XLit "curlew"+ emitXml FermataShape = XLit ""+parseFermataShape :: String -> P.XParse FermataShape+parseFermataShape s+ | s == "normal" = return $ FermataShapeNormal+ | s == "angled" = return $ FermataShapeAngled+ | s == "square" = return $ FermataShapeSquare+ | s == "double-angled" = return $ FermataShapeDoubleAngled+ | s == "double-square" = return $ FermataShapeDoubleSquare+ | s == "double-dot" = return $ FermataShapeDoubleDot+ | s == "half-curve" = return $ FermataShapeHalfCurve+ | s == "curlew" = return $ FermataShapeCurlew+ | s == "" = return $ FermataShape+ | otherwise = P.xfail $ "FermataShape: " ++ s++-- | @fifths@ /(simple)/+--+-- The fifths type represents the number of flats or sharps in a traditional key signature. Negative numbers are used for flats and positive numbers for sharps, reflecting the key's placement within the circle of fifths (hence the type name).+newtype Fifths = Fifths { fifths :: Int }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show Fifths where show (Fifths a) = show a+instance Read Fifths where readsPrec i = map (A.first Fifths) . readsPrec i+instance EmitXml Fifths where+ emitXml = emitXml . fifths+parseFifths :: String -> P.XParse Fifths+parseFifths = P.xread "Fifths"++-- | @font-size@ /(simple)/+--+-- The font-size can be one of the CSS font sizes or a numeric point size.+data FontSize = + FontSizeDecimal {+ fontSize1 :: Decimal+ }+ | FontSizeCssFontSize {+ fontSize2 :: CssFontSize+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FontSize where+ emitXml (FontSizeDecimal a) = emitXml a+ emitXml (FontSizeCssFontSize a) = emitXml a+parseFontSize :: String -> P.XParse FontSize+parseFontSize s = + FontSizeDecimal+ <$> (P.xread "Decimal") s+ <|> FontSizeCssFontSize+ <$> parseCssFontSize s+++-- | @font-style@ /(simple)/+--+-- The font-style type represents a simplified version of the CSS font-style property.+data FontStyle = + FontStyleNormal -- ^ /normal/+ | FontStyleItalic -- ^ /italic/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml FontStyle where+ emitXml FontStyleNormal = XLit "normal"+ emitXml FontStyleItalic = XLit "italic"+parseFontStyle :: String -> P.XParse FontStyle+parseFontStyle s+ | s == "normal" = return $ FontStyleNormal+ | s == "italic" = return $ FontStyleItalic+ | otherwise = P.xfail $ "FontStyle: " ++ s++-- | @font-weight@ /(simple)/+--+-- The font-weight type represents a simplified version of the CSS font-weight property.+data FontWeight = + FontWeightNormal -- ^ /normal/+ | FontWeightBold -- ^ /bold/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml FontWeight where+ emitXml FontWeightNormal = XLit "normal"+ emitXml FontWeightBold = XLit "bold"+parseFontWeight :: String -> P.XParse FontWeight+parseFontWeight s+ | s == "normal" = return $ FontWeightNormal+ | s == "bold" = return $ FontWeightBold+ | otherwise = P.xfail $ "FontWeight: " ++ s++-- | @glass-value@ /(simple)/+--+-- The glass-value type represents pictograms for glass percussion instruments.+data GlassValue = + GlassValueGlassHarmonica -- ^ /glass harmonica/+ | GlassValueGlassHarp -- ^ /glass harp/+ | GlassValueWindChimes -- ^ /wind chimes/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml GlassValue where+ emitXml GlassValueGlassHarmonica = XLit "glass harmonica"+ emitXml GlassValueGlassHarp = XLit "glass harp"+ emitXml GlassValueWindChimes = XLit "wind chimes"+parseGlassValue :: String -> P.XParse GlassValue+parseGlassValue s+ | s == "glass harmonica" = return $ GlassValueGlassHarmonica+ | s == "glass harp" = return $ GlassValueGlassHarp+ | s == "wind chimes" = return $ GlassValueWindChimes+ | otherwise = P.xfail $ "GlassValue: " ++ s++-- | @glyph-type@ /(simple)/+--+-- The glyph-type defines what type of glyph is being defined in a glyph element. Values include quarter-rest, g-clef-ottava-bassa, c-clef, f-clef, percussion-clef, octave-shift-up-8, octave-shift-down-8, octave-shift-continue-8, octave-shift-down-15, octave-shift-up-15, octave-shift-continue-15, octave-shift-down-22, octave-shift-up-22, and octave-shift-continue-22. This is left as a string so that other application-specific types can be defined, but it is made a separate type so that it can be redefined more strictly.+-- +-- A quarter-rest type specifies the glyph to use when a note has a rest element and a type value of quarter. The c-clef, f-clef, and percussion-clef types specify the glyph to use when a clef sign element value is C, F, or percussion respectively. The g-clef-ottava-bassa type specifies the glyph to use when a clef sign element value is G and the clef-octave-change element value is -1. The octave-shift types specify the glyph to use when an octave-shift type attribute value is up, down, or continue and the octave-shift size attribute value is 8, 15, or 22.+newtype GlyphType = GlyphType { glyphType :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show GlyphType where show (GlyphType a) = show a+instance Read GlyphType where readsPrec i = map (A.first GlyphType) . readsPrec i+instance EmitXml GlyphType where+ emitXml = emitXml . glyphType+parseGlyphType :: String -> P.XParse GlyphType+parseGlyphType = return . fromString++-- | @group-barline-value@ /(simple)/+--+-- The group-barline-value type indicates if the group should have common barlines.+data GroupBarlineValue = + GroupBarlineValueYes -- ^ /yes/+ | GroupBarlineValueNo -- ^ /no/+ | GroupBarlineValueMensurstrich -- ^ /Mensurstrich/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml GroupBarlineValue where+ emitXml GroupBarlineValueYes = XLit "yes"+ emitXml GroupBarlineValueNo = XLit "no"+ emitXml GroupBarlineValueMensurstrich = XLit "Mensurstrich"+parseGroupBarlineValue :: String -> P.XParse GroupBarlineValue+parseGroupBarlineValue s+ | s == "yes" = return $ GroupBarlineValueYes+ | s == "no" = return $ GroupBarlineValueNo+ | s == "Mensurstrich" = return $ GroupBarlineValueMensurstrich+ | otherwise = P.xfail $ "GroupBarlineValue: " ++ s++-- | @group-symbol-value@ /(simple)/+--+-- The group-symbol-value type indicates how the symbol for a group is indicated in the score. The default value is none.+data GroupSymbolValue = + GroupSymbolValueNone -- ^ /none/+ | GroupSymbolValueBrace -- ^ /brace/+ | GroupSymbolValueLine -- ^ /line/+ | GroupSymbolValueBracket -- ^ /bracket/+ | GroupSymbolValueSquare -- ^ /square/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml GroupSymbolValue where+ emitXml GroupSymbolValueNone = XLit "none"+ emitXml GroupSymbolValueBrace = XLit "brace"+ emitXml GroupSymbolValueLine = XLit "line"+ emitXml GroupSymbolValueBracket = XLit "bracket"+ emitXml GroupSymbolValueSquare = XLit "square"+parseGroupSymbolValue :: String -> P.XParse GroupSymbolValue+parseGroupSymbolValue s+ | s == "none" = return $ GroupSymbolValueNone+ | s == "brace" = return $ GroupSymbolValueBrace+ | s == "line" = return $ GroupSymbolValueLine+ | s == "bracket" = return $ GroupSymbolValueBracket+ | s == "square" = return $ GroupSymbolValueSquare+ | otherwise = P.xfail $ "GroupSymbolValue: " ++ s++-- | @handbell-value@ /(simple)/+--+-- The handbell-value type represents the type of handbell technique being notated.+data HandbellValue = + HandbellValueBelltree -- ^ /belltree/+ | HandbellValueDamp -- ^ /damp/+ | HandbellValueEcho -- ^ /echo/+ | HandbellValueGyro -- ^ /gyro/+ | HandbellValueHandMartellato -- ^ /hand martellato/+ | HandbellValueMalletLift -- ^ /mallet lift/+ | HandbellValueMalletTable -- ^ /mallet table/+ | HandbellValueMartellato -- ^ /martellato/+ | HandbellValueMartellatoLift -- ^ /martellato lift/+ | HandbellValueMutedMartellato -- ^ /muted martellato/+ | HandbellValuePluckLift -- ^ /pluck lift/+ | HandbellValueSwing -- ^ /swing/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml HandbellValue where+ emitXml HandbellValueBelltree = XLit "belltree"+ emitXml HandbellValueDamp = XLit "damp"+ emitXml HandbellValueEcho = XLit "echo"+ emitXml HandbellValueGyro = XLit "gyro"+ emitXml HandbellValueHandMartellato = XLit "hand martellato"+ emitXml HandbellValueMalletLift = XLit "mallet lift"+ emitXml HandbellValueMalletTable = XLit "mallet table"+ emitXml HandbellValueMartellato = XLit "martellato"+ emitXml HandbellValueMartellatoLift = XLit "martellato lift"+ emitXml HandbellValueMutedMartellato = XLit "muted martellato"+ emitXml HandbellValuePluckLift = XLit "pluck lift"+ emitXml HandbellValueSwing = XLit "swing"+parseHandbellValue :: String -> P.XParse HandbellValue+parseHandbellValue s+ | s == "belltree" = return $ HandbellValueBelltree+ | s == "damp" = return $ HandbellValueDamp+ | s == "echo" = return $ HandbellValueEcho+ | s == "gyro" = return $ HandbellValueGyro+ | s == "hand martellato" = return $ HandbellValueHandMartellato+ | s == "mallet lift" = return $ HandbellValueMalletLift+ | s == "mallet table" = return $ HandbellValueMalletTable+ | s == "martellato" = return $ HandbellValueMartellato+ | s == "martellato lift" = return $ HandbellValueMartellatoLift+ | s == "muted martellato" = return $ HandbellValueMutedMartellato+ | s == "pluck lift" = return $ HandbellValuePluckLift+ | s == "swing" = return $ HandbellValueSwing+ | otherwise = P.xfail $ "HandbellValue: " ++ s++-- | @harmon-closed-location@ /(simple)/+--+-- The harmon-closed-location type indicates which portion of the symbol is filled in when the corresponding harmon-closed-value is half.+data HarmonClosedLocation = + HarmonClosedLocationRight -- ^ /right/+ | HarmonClosedLocationBottom -- ^ /bottom/+ | HarmonClosedLocationLeft -- ^ /left/+ | HarmonClosedLocationTop -- ^ /top/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml HarmonClosedLocation where+ emitXml HarmonClosedLocationRight = XLit "right"+ emitXml HarmonClosedLocationBottom = XLit "bottom"+ emitXml HarmonClosedLocationLeft = XLit "left"+ emitXml HarmonClosedLocationTop = XLit "top"+parseHarmonClosedLocation :: String -> P.XParse HarmonClosedLocation+parseHarmonClosedLocation s+ | s == "right" = return $ HarmonClosedLocationRight+ | s == "bottom" = return $ HarmonClosedLocationBottom+ | s == "left" = return $ HarmonClosedLocationLeft+ | s == "top" = return $ HarmonClosedLocationTop+ | otherwise = P.xfail $ "HarmonClosedLocation: " ++ s++-- | @harmon-closed-value@ /(simple)/+--+-- The harmon-closed-value type represents whether the harmon mute is closed, open, or half-open.+data HarmonClosedValue = + HarmonClosedValueYes -- ^ /yes/+ | HarmonClosedValueNo -- ^ /no/+ | HarmonClosedValueHalf -- ^ /half/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml HarmonClosedValue where+ emitXml HarmonClosedValueYes = XLit "yes"+ emitXml HarmonClosedValueNo = XLit "no"+ emitXml HarmonClosedValueHalf = XLit "half"+parseHarmonClosedValue :: String -> P.XParse HarmonClosedValue+parseHarmonClosedValue s+ | s == "yes" = return $ HarmonClosedValueYes+ | s == "no" = return $ HarmonClosedValueNo+ | s == "half" = return $ HarmonClosedValueHalf+ | otherwise = P.xfail $ "HarmonClosedValue: " ++ s++-- | @harmony-type@ /(simple)/+--+-- The harmony-type type differentiates different types of harmonies when alternate harmonies are possible. Explicit harmonies have all note present in the music; implied have some notes missing but implied; alternate represents alternate analyses.+data HarmonyType = + HarmonyTypeExplicit -- ^ /explicit/+ | HarmonyTypeImplied -- ^ /implied/+ | HarmonyTypeAlternate -- ^ /alternate/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml HarmonyType where+ emitXml HarmonyTypeExplicit = XLit "explicit"+ emitXml HarmonyTypeImplied = XLit "implied"+ emitXml HarmonyTypeAlternate = XLit "alternate"+parseHarmonyType :: String -> P.XParse HarmonyType+parseHarmonyType s+ | s == "explicit" = return $ HarmonyTypeExplicit+ | s == "implied" = return $ HarmonyTypeImplied+ | s == "alternate" = return $ HarmonyTypeAlternate+ | otherwise = P.xfail $ "HarmonyType: " ++ s++-- | @hole-closed-location@ /(simple)/+--+-- The hole-closed-location type indicates which portion of the hole is filled in when the corresponding hole-closed-value is half.+data HoleClosedLocation = + HoleClosedLocationRight -- ^ /right/+ | HoleClosedLocationBottom -- ^ /bottom/+ | HoleClosedLocationLeft -- ^ /left/+ | HoleClosedLocationTop -- ^ /top/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml HoleClosedLocation where+ emitXml HoleClosedLocationRight = XLit "right"+ emitXml HoleClosedLocationBottom = XLit "bottom"+ emitXml HoleClosedLocationLeft = XLit "left"+ emitXml HoleClosedLocationTop = XLit "top"+parseHoleClosedLocation :: String -> P.XParse HoleClosedLocation+parseHoleClosedLocation s+ | s == "right" = return $ HoleClosedLocationRight+ | s == "bottom" = return $ HoleClosedLocationBottom+ | s == "left" = return $ HoleClosedLocationLeft+ | s == "top" = return $ HoleClosedLocationTop+ | otherwise = P.xfail $ "HoleClosedLocation: " ++ s++-- | @hole-closed-value@ /(simple)/+--+-- The hole-closed-value type represents whether the hole is closed, open, or half-open.+data HoleClosedValue = + HoleClosedValueYes -- ^ /yes/+ | HoleClosedValueNo -- ^ /no/+ | HoleClosedValueHalf -- ^ /half/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml HoleClosedValue where+ emitXml HoleClosedValueYes = XLit "yes"+ emitXml HoleClosedValueNo = XLit "no"+ emitXml HoleClosedValueHalf = XLit "half"+parseHoleClosedValue :: String -> P.XParse HoleClosedValue+parseHoleClosedValue s+ | s == "yes" = return $ HoleClosedValueYes+ | s == "no" = return $ HoleClosedValueNo+ | s == "half" = return $ HoleClosedValueHalf+ | otherwise = P.xfail $ "HoleClosedValue: " ++ s++-- | @kind-value@ /(simple)/+--+-- A kind-value indicates the type of chord. Degree elements can then add, subtract, or alter from these starting points. Values include:+--+-- @+-- +-- Triads:+-- major (major third, perfect fifth)+-- minor (minor third, perfect fifth)+-- augmented (major third, augmented fifth)+-- diminished (minor third, diminished fifth)+-- Sevenths:+-- dominant (major triad, minor seventh)+-- major-seventh (major triad, major seventh)+-- minor-seventh (minor triad, minor seventh)+-- diminished-seventh (diminished triad, diminished seventh)+-- augmented-seventh (augmented triad, minor seventh)+-- half-diminished (diminished triad, minor seventh)+-- major-minor (minor triad, major seventh)+-- Sixths:+-- major-sixth (major triad, added sixth)+-- minor-sixth (minor triad, added sixth)+-- Ninths:+-- dominant-ninth (dominant-seventh, major ninth)+-- major-ninth (major-seventh, major ninth)+-- minor-ninth (minor-seventh, major ninth)+-- 11ths (usually as the basis for alteration):+-- dominant-11th (dominant-ninth, perfect 11th)+-- major-11th (major-ninth, perfect 11th)+-- minor-11th (minor-ninth, perfect 11th)+-- 13ths (usually as the basis for alteration):+-- dominant-13th (dominant-11th, major 13th)+-- major-13th (major-11th, major 13th)+-- minor-13th (minor-11th, major 13th)+-- Suspended:+-- suspended-second (major second, perfect fifth)+-- suspended-fourth (perfect fourth, perfect fifth)+-- Functional sixths:+-- Neapolitan+-- Italian+-- French+-- German+-- Other:+-- pedal (pedal-point bass)+-- power (perfect fifth)+-- Tristan+-- +-- The "other" kind is used when the harmony is entirely composed of add elements. The "none" kind is used to explicitly encode absence of chords or functional harmony.+-- @+data KindValue = + KindValueMajor -- ^ /major/+ | KindValueMinor -- ^ /minor/+ | KindValueAugmented -- ^ /augmented/+ | KindValueDiminished -- ^ /diminished/+ | KindValueDominant -- ^ /dominant/+ | KindValueMajorSeventh -- ^ /major-seventh/+ | KindValueMinorSeventh -- ^ /minor-seventh/+ | KindValueDiminishedSeventh -- ^ /diminished-seventh/+ | KindValueAugmentedSeventh -- ^ /augmented-seventh/+ | KindValueHalfDiminished -- ^ /half-diminished/+ | KindValueMajorMinor -- ^ /major-minor/+ | KindValueMajorSixth -- ^ /major-sixth/+ | KindValueMinorSixth -- ^ /minor-sixth/+ | KindValueDominantNinth -- ^ /dominant-ninth/+ | KindValueMajorNinth -- ^ /major-ninth/+ | KindValueMinorNinth -- ^ /minor-ninth/+ | KindValueDominant11th -- ^ /dominant-11th/+ | KindValueMajor11th -- ^ /major-11th/+ | KindValueMinor11th -- ^ /minor-11th/+ | KindValueDominant13th -- ^ /dominant-13th/+ | KindValueMajor13th -- ^ /major-13th/+ | KindValueMinor13th -- ^ /minor-13th/+ | KindValueSuspendedSecond -- ^ /suspended-second/+ | KindValueSuspendedFourth -- ^ /suspended-fourth/+ | KindValueNeapolitan -- ^ /Neapolitan/+ | KindValueItalian -- ^ /Italian/+ | KindValueFrench -- ^ /French/+ | KindValueGerman -- ^ /German/+ | KindValuePedal -- ^ /pedal/+ | KindValuePower -- ^ /power/+ | KindValueTristan -- ^ /Tristan/+ | KindValueOther -- ^ /other/+ | KindValueNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml KindValue where+ emitXml KindValueMajor = XLit "major"+ emitXml KindValueMinor = XLit "minor"+ emitXml KindValueAugmented = XLit "augmented"+ emitXml KindValueDiminished = XLit "diminished"+ emitXml KindValueDominant = XLit "dominant"+ emitXml KindValueMajorSeventh = XLit "major-seventh"+ emitXml KindValueMinorSeventh = XLit "minor-seventh"+ emitXml KindValueDiminishedSeventh = XLit "diminished-seventh"+ emitXml KindValueAugmentedSeventh = XLit "augmented-seventh"+ emitXml KindValueHalfDiminished = XLit "half-diminished"+ emitXml KindValueMajorMinor = XLit "major-minor"+ emitXml KindValueMajorSixth = XLit "major-sixth"+ emitXml KindValueMinorSixth = XLit "minor-sixth"+ emitXml KindValueDominantNinth = XLit "dominant-ninth"+ emitXml KindValueMajorNinth = XLit "major-ninth"+ emitXml KindValueMinorNinth = XLit "minor-ninth"+ emitXml KindValueDominant11th = XLit "dominant-11th"+ emitXml KindValueMajor11th = XLit "major-11th"+ emitXml KindValueMinor11th = XLit "minor-11th"+ emitXml KindValueDominant13th = XLit "dominant-13th"+ emitXml KindValueMajor13th = XLit "major-13th"+ emitXml KindValueMinor13th = XLit "minor-13th"+ emitXml KindValueSuspendedSecond = XLit "suspended-second"+ emitXml KindValueSuspendedFourth = XLit "suspended-fourth"+ emitXml KindValueNeapolitan = XLit "Neapolitan"+ emitXml KindValueItalian = XLit "Italian"+ emitXml KindValueFrench = XLit "French"+ emitXml KindValueGerman = XLit "German"+ emitXml KindValuePedal = XLit "pedal"+ emitXml KindValuePower = XLit "power"+ emitXml KindValueTristan = XLit "Tristan"+ emitXml KindValueOther = XLit "other"+ emitXml KindValueNone = XLit "none"+parseKindValue :: String -> P.XParse KindValue+parseKindValue s+ | s == "major" = return $ KindValueMajor+ | s == "minor" = return $ KindValueMinor+ | s == "augmented" = return $ KindValueAugmented+ | s == "diminished" = return $ KindValueDiminished+ | s == "dominant" = return $ KindValueDominant+ | s == "major-seventh" = return $ KindValueMajorSeventh+ | s == "minor-seventh" = return $ KindValueMinorSeventh+ | s == "diminished-seventh" = return $ KindValueDiminishedSeventh+ | s == "augmented-seventh" = return $ KindValueAugmentedSeventh+ | s == "half-diminished" = return $ KindValueHalfDiminished+ | s == "major-minor" = return $ KindValueMajorMinor+ | s == "major-sixth" = return $ KindValueMajorSixth+ | s == "minor-sixth" = return $ KindValueMinorSixth+ | s == "dominant-ninth" = return $ KindValueDominantNinth+ | s == "major-ninth" = return $ KindValueMajorNinth+ | s == "minor-ninth" = return $ KindValueMinorNinth+ | s == "dominant-11th" = return $ KindValueDominant11th+ | s == "major-11th" = return $ KindValueMajor11th+ | s == "minor-11th" = return $ KindValueMinor11th+ | s == "dominant-13th" = return $ KindValueDominant13th+ | s == "major-13th" = return $ KindValueMajor13th+ | s == "minor-13th" = return $ KindValueMinor13th+ | s == "suspended-second" = return $ KindValueSuspendedSecond+ | s == "suspended-fourth" = return $ KindValueSuspendedFourth+ | s == "Neapolitan" = return $ KindValueNeapolitan+ | s == "Italian" = return $ KindValueItalian+ | s == "French" = return $ KindValueFrench+ | s == "German" = return $ KindValueGerman+ | s == "pedal" = return $ KindValuePedal+ | s == "power" = return $ KindValuePower+ | s == "Tristan" = return $ KindValueTristan+ | s == "other" = return $ KindValueOther+ | s == "none" = return $ KindValueNone+ | otherwise = P.xfail $ "KindValue: " ++ s++-- | @xml:lang@ /(simple)/+data Lang = + LangLanguage {+ lang1 :: Language+ }+ | LangLang {+ lang2 :: SumLang+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Lang where+ emitXml (LangLanguage a) = emitXml a+ emitXml (LangLang a) = emitXml a+parseLang :: String -> P.XParse Lang+parseLang s = + LangLanguage+ <$> parseLanguage s+ <|> LangLang+ <$> parseSumLang s+++-- | @xs:language@ /(simple)/+newtype Language = Language { language :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show Language where show (Language a) = show a+instance Read Language where readsPrec i = map (A.first Language) . readsPrec i+instance EmitXml Language where+ emitXml = emitXml . language+parseLanguage :: String -> P.XParse Language+parseLanguage = return . fromString++-- | @left-center-right@ /(simple)/+--+-- The left-center-right type is used to define horizontal alignment and text justification.+data LeftCenterRight = + LeftCenterRightLeft -- ^ /left/+ | LeftCenterRightCenter -- ^ /center/+ | LeftCenterRightRight -- ^ /right/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LeftCenterRight where+ emitXml LeftCenterRightLeft = XLit "left"+ emitXml LeftCenterRightCenter = XLit "center"+ emitXml LeftCenterRightRight = XLit "right"+parseLeftCenterRight :: String -> P.XParse LeftCenterRight+parseLeftCenterRight s+ | s == "left" = return $ LeftCenterRightLeft+ | s == "center" = return $ LeftCenterRightCenter+ | s == "right" = return $ LeftCenterRightRight+ | otherwise = P.xfail $ "LeftCenterRight: " ++ s++-- | @left-right@ /(simple)/+--+-- The left-right type is used to indicate whether one element appears to the left or the right of another element.+data LeftRight = + LeftRightLeft -- ^ /left/+ | LeftRightRight -- ^ /right/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LeftRight where+ emitXml LeftRightLeft = XLit "left"+ emitXml LeftRightRight = XLit "right"+parseLeftRight :: String -> P.XParse LeftRight+parseLeftRight s+ | s == "left" = return $ LeftRightLeft+ | s == "right" = return $ LeftRightRight+ | otherwise = P.xfail $ "LeftRight: " ++ s++-- | @line-end@ /(simple)/+--+-- The line-end type specifies if there is a jog up or down (or both), an arrow, or nothing at the start or end of a bracket.+data LineEnd = + LineEndUp -- ^ /up/+ | LineEndDown -- ^ /down/+ | LineEndBoth -- ^ /both/+ | LineEndArrow -- ^ /arrow/+ | LineEndNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LineEnd where+ emitXml LineEndUp = XLit "up"+ emitXml LineEndDown = XLit "down"+ emitXml LineEndBoth = XLit "both"+ emitXml LineEndArrow = XLit "arrow"+ emitXml LineEndNone = XLit "none"+parseLineEnd :: String -> P.XParse LineEnd+parseLineEnd s+ | s == "up" = return $ LineEndUp+ | s == "down" = return $ LineEndDown+ | s == "both" = return $ LineEndBoth+ | s == "arrow" = return $ LineEndArrow+ | s == "none" = return $ LineEndNone+ | otherwise = P.xfail $ "LineEnd: " ++ s++-- | @line-length@ /(simple)/+--+-- The line-length type distinguishes between different line lengths for doit, falloff, plop, and scoop articulations.+data LineLength = + LineLengthShort -- ^ /short/+ | LineLengthMedium -- ^ /medium/+ | LineLengthLong -- ^ /long/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LineLength where+ emitXml LineLengthShort = XLit "short"+ emitXml LineLengthMedium = XLit "medium"+ emitXml LineLengthLong = XLit "long"+parseLineLength :: String -> P.XParse LineLength+parseLineLength s+ | s == "short" = return $ LineLengthShort+ | s == "medium" = return $ LineLengthMedium+ | s == "long" = return $ LineLengthLong+ | otherwise = P.xfail $ "LineLength: " ++ s++-- | @line-shape@ /(simple)/+--+-- The line-shape type distinguishes between straight and curved lines.+data LineShape = + LineShapeStraight -- ^ /straight/+ | LineShapeCurved -- ^ /curved/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LineShape where+ emitXml LineShapeStraight = XLit "straight"+ emitXml LineShapeCurved = XLit "curved"+parseLineShape :: String -> P.XParse LineShape+parseLineShape s+ | s == "straight" = return $ LineShapeStraight+ | s == "curved" = return $ LineShapeCurved+ | otherwise = P.xfail $ "LineShape: " ++ s++-- | @line-type@ /(simple)/+--+-- The line-type type distinguishes between solid, dashed, dotted, and wavy lines.+data LineType = + LineTypeSolid -- ^ /solid/+ | LineTypeDashed -- ^ /dashed/+ | LineTypeDotted -- ^ /dotted/+ | LineTypeWavy -- ^ /wavy/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml LineType where+ emitXml LineTypeSolid = XLit "solid"+ emitXml LineTypeDashed = XLit "dashed"+ emitXml LineTypeDotted = XLit "dotted"+ emitXml LineTypeWavy = XLit "wavy"+parseLineType :: String -> P.XParse LineType+parseLineType s+ | s == "solid" = return $ LineTypeSolid+ | s == "dashed" = return $ LineTypeDashed+ | s == "dotted" = return $ LineTypeDotted+ | s == "wavy" = return $ LineTypeWavy+ | otherwise = P.xfail $ "LineType: " ++ s++-- | @line-width-type@ /(simple)/+--+-- The line-width-type defines what type of line is being defined in a line-width element. Values include beam, bracket, dashes, enclosure, ending, extend, heavy barline, leger, light barline, octave shift, pedal, slur middle, slur tip, staff, stem, tie middle, tie tip, tuplet bracket, and wedge. This is left as a string so that other application-specific types can be defined, but it is made a separate type so that it can be redefined more strictly.+newtype LineWidthType = LineWidthType { lineWidthType :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show LineWidthType where show (LineWidthType a) = show a+instance Read LineWidthType where readsPrec i = map (A.first LineWidthType) . readsPrec i+instance EmitXml LineWidthType where+ emitXml = emitXml . lineWidthType+parseLineWidthType :: String -> P.XParse LineWidthType+parseLineWidthType = return . fromString++-- | @margin-type@ /(simple)/+--+-- The margin-type type specifies whether margins apply to even page, odd pages, or both.+data MarginType = + MarginTypeOdd -- ^ /odd/+ | MarginTypeEven -- ^ /even/+ | MarginTypeBoth -- ^ /both/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml MarginType where+ emitXml MarginTypeOdd = XLit "odd"+ emitXml MarginTypeEven = XLit "even"+ emitXml MarginTypeBoth = XLit "both"+parseMarginType :: String -> P.XParse MarginType+parseMarginType s+ | s == "odd" = return $ MarginTypeOdd+ | s == "even" = return $ MarginTypeEven+ | s == "both" = return $ MarginTypeBoth+ | otherwise = P.xfail $ "MarginType: " ++ s++-- | @measure-numbering-value@ /(simple)/+--+-- The measure-numbering-value type describes how measure numbers are displayed on this part: no numbers, numbers every measure, or numbers every system.+data MeasureNumberingValue = + MeasureNumberingValueNone -- ^ /none/+ | MeasureNumberingValueMeasure -- ^ /measure/+ | MeasureNumberingValueSystem -- ^ /system/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml MeasureNumberingValue where+ emitXml MeasureNumberingValueNone = XLit "none"+ emitXml MeasureNumberingValueMeasure = XLit "measure"+ emitXml MeasureNumberingValueSystem = XLit "system"+parseMeasureNumberingValue :: String -> P.XParse MeasureNumberingValue+parseMeasureNumberingValue s+ | s == "none" = return $ MeasureNumberingValueNone+ | s == "measure" = return $ MeasureNumberingValueMeasure+ | s == "system" = return $ MeasureNumberingValueSystem+ | otherwise = P.xfail $ "MeasureNumberingValue: " ++ s++-- | @measure-text@ /(simple)/+--+-- The measure-text type is used for the text attribute of measure elements. It has at least one character. The implicit attribute of the measure element should be set to "yes" rather than setting the text attribute to an empty string.+newtype MeasureText = MeasureText { measureText :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show MeasureText where show (MeasureText a) = show a+instance Read MeasureText where readsPrec i = map (A.first MeasureText) . readsPrec i+instance EmitXml MeasureText where+ emitXml = emitXml . measureText+parseMeasureText :: String -> P.XParse MeasureText+parseMeasureText = return . fromString++-- | @membrane@ /(simple)/+--+-- The membrane type represents pictograms for membrane percussion instruments.+data Membrane = + MembraneBassDrum -- ^ /bass drum/+ | MembraneBassDrumOnSide -- ^ /bass drum on side/+ | MembraneBongos -- ^ /bongos/+ | MembraneChineseTomtom -- ^ /Chinese tomtom/+ | MembraneCongaDrum -- ^ /conga drum/+ | MembraneCuica -- ^ /cuica/+ | MembraneGobletDrum -- ^ /goblet drum/+ | MembraneIndoAmericanTomtom -- ^ /Indo-American tomtom/+ | MembraneJapaneseTomtom -- ^ /Japanese tomtom/+ | MembraneMilitaryDrum -- ^ /military drum/+ | MembraneSnareDrum -- ^ /snare drum/+ | MembraneSnareDrumSnaresOff -- ^ /snare drum snares off/+ | MembraneTabla -- ^ /tabla/+ | MembraneTambourine -- ^ /tambourine/+ | MembraneTenorDrum -- ^ /tenor drum/+ | MembraneTimbales -- ^ /timbales/+ | MembraneTomtom -- ^ /tomtom/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Membrane where+ emitXml MembraneBassDrum = XLit "bass drum"+ emitXml MembraneBassDrumOnSide = XLit "bass drum on side"+ emitXml MembraneBongos = XLit "bongos"+ emitXml MembraneChineseTomtom = XLit "Chinese tomtom"+ emitXml MembraneCongaDrum = XLit "conga drum"+ emitXml MembraneCuica = XLit "cuica"+ emitXml MembraneGobletDrum = XLit "goblet drum"+ emitXml MembraneIndoAmericanTomtom = XLit "Indo-American tomtom"+ emitXml MembraneJapaneseTomtom = XLit "Japanese tomtom"+ emitXml MembraneMilitaryDrum = XLit "military drum"+ emitXml MembraneSnareDrum = XLit "snare drum"+ emitXml MembraneSnareDrumSnaresOff = XLit "snare drum snares off"+ emitXml MembraneTabla = XLit "tabla"+ emitXml MembraneTambourine = XLit "tambourine"+ emitXml MembraneTenorDrum = XLit "tenor drum"+ emitXml MembraneTimbales = XLit "timbales"+ emitXml MembraneTomtom = XLit "tomtom"+parseMembrane :: String -> P.XParse Membrane+parseMembrane s+ | s == "bass drum" = return $ MembraneBassDrum+ | s == "bass drum on side" = return $ MembraneBassDrumOnSide+ | s == "bongos" = return $ MembraneBongos+ | s == "Chinese tomtom" = return $ MembraneChineseTomtom+ | s == "conga drum" = return $ MembraneCongaDrum+ | s == "cuica" = return $ MembraneCuica+ | s == "goblet drum" = return $ MembraneGobletDrum+ | s == "Indo-American tomtom" = return $ MembraneIndoAmericanTomtom+ | s == "Japanese tomtom" = return $ MembraneJapaneseTomtom+ | s == "military drum" = return $ MembraneMilitaryDrum+ | s == "snare drum" = return $ MembraneSnareDrum+ | s == "snare drum snares off" = return $ MembraneSnareDrumSnaresOff+ | s == "tabla" = return $ MembraneTabla+ | s == "tambourine" = return $ MembraneTambourine+ | s == "tenor drum" = return $ MembraneTenorDrum+ | s == "timbales" = return $ MembraneTimbales+ | s == "tomtom" = return $ MembraneTomtom+ | otherwise = P.xfail $ "Membrane: " ++ s++-- | @metal@ /(simple)/+--+-- The metal type represents pictograms for metal percussion instruments. The hi-hat value refers to a pictogram like Stone's high-hat cymbals but without the long vertical line at the bottom.+data Metal = + MetalAgogo -- ^ /agogo/+ | MetalAlmglocken -- ^ /almglocken/+ | MetalBell -- ^ /bell/+ | MetalBellPlate -- ^ /bell plate/+ | MetalBellTree -- ^ /bell tree/+ | MetalBrakeDrum -- ^ /brake drum/+ | MetalCencerro -- ^ /cencerro/+ | MetalChainRattle -- ^ /chain rattle/+ | MetalChineseCymbal -- ^ /Chinese cymbal/+ | MetalCowbell -- ^ /cowbell/+ | MetalCrashCymbals -- ^ /crash cymbals/+ | MetalCrotale -- ^ /crotale/+ | MetalCymbalTongs -- ^ /cymbal tongs/+ | MetalDomedGong -- ^ /domed gong/+ | MetalFingerCymbals -- ^ /finger cymbals/+ | MetalFlexatone -- ^ /flexatone/+ | MetalGong -- ^ /gong/+ | MetalHiHat -- ^ /hi-hat/+ | MetalHighHatCymbals -- ^ /high-hat cymbals/+ | MetalHandbell -- ^ /handbell/+ | MetalJawHarp -- ^ /jaw harp/+ | MetalJingleBells -- ^ /jingle bells/+ | MetalMusicalSaw -- ^ /musical saw/+ | MetalShellBells -- ^ /shell bells/+ | MetalSistrum -- ^ /sistrum/+ | MetalSizzleCymbal -- ^ /sizzle cymbal/+ | MetalSleighBells -- ^ /sleigh bells/+ | MetalSuspendedCymbal -- ^ /suspended cymbal/+ | MetalTamTam -- ^ /tam tam/+ | MetalTamTamWithBeater -- ^ /tam tam with beater/+ | MetalTriangle -- ^ /triangle/+ | MetalVietnameseHat -- ^ /Vietnamese hat/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Metal where+ emitXml MetalAgogo = XLit "agogo"+ emitXml MetalAlmglocken = XLit "almglocken"+ emitXml MetalBell = XLit "bell"+ emitXml MetalBellPlate = XLit "bell plate"+ emitXml MetalBellTree = XLit "bell tree"+ emitXml MetalBrakeDrum = XLit "brake drum"+ emitXml MetalCencerro = XLit "cencerro"+ emitXml MetalChainRattle = XLit "chain rattle"+ emitXml MetalChineseCymbal = XLit "Chinese cymbal"+ emitXml MetalCowbell = XLit "cowbell"+ emitXml MetalCrashCymbals = XLit "crash cymbals"+ emitXml MetalCrotale = XLit "crotale"+ emitXml MetalCymbalTongs = XLit "cymbal tongs"+ emitXml MetalDomedGong = XLit "domed gong"+ emitXml MetalFingerCymbals = XLit "finger cymbals"+ emitXml MetalFlexatone = XLit "flexatone"+ emitXml MetalGong = XLit "gong"+ emitXml MetalHiHat = XLit "hi-hat"+ emitXml MetalHighHatCymbals = XLit "high-hat cymbals"+ emitXml MetalHandbell = XLit "handbell"+ emitXml MetalJawHarp = XLit "jaw harp"+ emitXml MetalJingleBells = XLit "jingle bells"+ emitXml MetalMusicalSaw = XLit "musical saw"+ emitXml MetalShellBells = XLit "shell bells"+ emitXml MetalSistrum = XLit "sistrum"+ emitXml MetalSizzleCymbal = XLit "sizzle cymbal"+ emitXml MetalSleighBells = XLit "sleigh bells"+ emitXml MetalSuspendedCymbal = XLit "suspended cymbal"+ emitXml MetalTamTam = XLit "tam tam"+ emitXml MetalTamTamWithBeater = XLit "tam tam with beater"+ emitXml MetalTriangle = XLit "triangle"+ emitXml MetalVietnameseHat = XLit "Vietnamese hat"+parseMetal :: String -> P.XParse Metal+parseMetal s+ | s == "agogo" = return $ MetalAgogo+ | s == "almglocken" = return $ MetalAlmglocken+ | s == "bell" = return $ MetalBell+ | s == "bell plate" = return $ MetalBellPlate+ | s == "bell tree" = return $ MetalBellTree+ | s == "brake drum" = return $ MetalBrakeDrum+ | s == "cencerro" = return $ MetalCencerro+ | s == "chain rattle" = return $ MetalChainRattle+ | s == "Chinese cymbal" = return $ MetalChineseCymbal+ | s == "cowbell" = return $ MetalCowbell+ | s == "crash cymbals" = return $ MetalCrashCymbals+ | s == "crotale" = return $ MetalCrotale+ | s == "cymbal tongs" = return $ MetalCymbalTongs+ | s == "domed gong" = return $ MetalDomedGong+ | s == "finger cymbals" = return $ MetalFingerCymbals+ | s == "flexatone" = return $ MetalFlexatone+ | s == "gong" = return $ MetalGong+ | s == "hi-hat" = return $ MetalHiHat+ | s == "high-hat cymbals" = return $ MetalHighHatCymbals+ | s == "handbell" = return $ MetalHandbell+ | s == "jaw harp" = return $ MetalJawHarp+ | s == "jingle bells" = return $ MetalJingleBells+ | s == "musical saw" = return $ MetalMusicalSaw+ | s == "shell bells" = return $ MetalShellBells+ | s == "sistrum" = return $ MetalSistrum+ | s == "sizzle cymbal" = return $ MetalSizzleCymbal+ | s == "sleigh bells" = return $ MetalSleighBells+ | s == "suspended cymbal" = return $ MetalSuspendedCymbal+ | s == "tam tam" = return $ MetalTamTam+ | s == "tam tam with beater" = return $ MetalTamTamWithBeater+ | s == "triangle" = return $ MetalTriangle+ | s == "Vietnamese hat" = return $ MetalVietnameseHat+ | otherwise = P.xfail $ "Metal: " ++ s++-- | @midi-128@ /(simple)/+--+-- The midi-16 type is used to express MIDI 1.0 values that range from 1 to 128.+newtype Midi128 = Midi128 { midi128 :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show Midi128 where show (Midi128 a) = show a+instance Read Midi128 where readsPrec i = map (A.first Midi128) . readsPrec i+instance EmitXml Midi128 where+ emitXml = emitXml . midi128+parseMidi128 :: String -> P.XParse Midi128+parseMidi128 = P.xread "Midi128"++-- | @midi-16@ /(simple)/+--+-- The midi-16 type is used to express MIDI 1.0 values that range from 1 to 16.+newtype Midi16 = Midi16 { midi16 :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show Midi16 where show (Midi16 a) = show a+instance Read Midi16 where readsPrec i = map (A.first Midi16) . readsPrec i+instance EmitXml Midi16 where+ emitXml = emitXml . midi16+parseMidi16 :: String -> P.XParse Midi16+parseMidi16 = P.xread "Midi16"++-- | @midi-16384@ /(simple)/+--+-- The midi-16 type is used to express MIDI 1.0 values that range from 1 to 16,384.+newtype Midi16384 = Midi16384 { midi16384 :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show Midi16384 where show (Midi16384 a) = show a+instance Read Midi16384 where readsPrec i = map (A.first Midi16384) . readsPrec i+instance EmitXml Midi16384 where+ emitXml = emitXml . midi16384+parseMidi16384 :: String -> P.XParse Midi16384+parseMidi16384 = P.xread "Midi16384"++-- | @millimeters@ /(simple)/+--+-- The millimeters type is a number representing millimeters. This is used in the scaling element to provide a default scaling from tenths to physical units.+newtype Millimeters = Millimeters { millimeters :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show Millimeters where show (Millimeters a) = show a+instance Read Millimeters where readsPrec i = map (A.first Millimeters) . readsPrec i+instance EmitXml Millimeters where+ emitXml = emitXml . millimeters+parseMillimeters :: String -> P.XParse Millimeters+parseMillimeters = P.xread "Millimeters"++-- | @mode@ /(simple)/+--+-- The mode type is used to specify major/minor and other mode distinctions. Valid mode values include major, minor, dorian, phrygian, lydian, mixolydian, aeolian, ionian, locrian, and none.+newtype Mode = Mode { mode :: String }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show Mode where show (Mode a) = show a+instance Read Mode where readsPrec i = map (A.first Mode) . readsPrec i+instance EmitXml Mode where+ emitXml = emitXml . mode+parseMode :: String -> P.XParse Mode+parseMode = return . fromString++-- | @mute@ /(simple)/+--+-- The mute type represents muting for different instruments, including brass, winds, and strings. The on and off values are used for undifferentiated mutes. The remaining values represent specific mutes.+data Mute = + MuteOn -- ^ /on/+ | MuteOff -- ^ /off/+ | MuteStraight -- ^ /straight/+ | MuteCup -- ^ /cup/+ | MuteHarmonNoStem -- ^ /harmon-no-stem/+ | MuteHarmonStem -- ^ /harmon-stem/+ | MuteBucket -- ^ /bucket/+ | MutePlunger -- ^ /plunger/+ | MuteHat -- ^ /hat/+ | MuteSolotone -- ^ /solotone/+ | MutePractice -- ^ /practice/+ | MuteStopMute -- ^ /stop-mute/+ | MuteStopHand -- ^ /stop-hand/+ | MuteEcho -- ^ /echo/+ | MutePalm -- ^ /palm/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Mute where+ emitXml MuteOn = XLit "on"+ emitXml MuteOff = XLit "off"+ emitXml MuteStraight = XLit "straight"+ emitXml MuteCup = XLit "cup"+ emitXml MuteHarmonNoStem = XLit "harmon-no-stem"+ emitXml MuteHarmonStem = XLit "harmon-stem"+ emitXml MuteBucket = XLit "bucket"+ emitXml MutePlunger = XLit "plunger"+ emitXml MuteHat = XLit "hat"+ emitXml MuteSolotone = XLit "solotone"+ emitXml MutePractice = XLit "practice"+ emitXml MuteStopMute = XLit "stop-mute"+ emitXml MuteStopHand = XLit "stop-hand"+ emitXml MuteEcho = XLit "echo"+ emitXml MutePalm = XLit "palm"+parseMute :: String -> P.XParse Mute+parseMute s+ | s == "on" = return $ MuteOn+ | s == "off" = return $ MuteOff+ | s == "straight" = return $ MuteStraight+ | s == "cup" = return $ MuteCup+ | s == "harmon-no-stem" = return $ MuteHarmonNoStem+ | s == "harmon-stem" = return $ MuteHarmonStem+ | s == "bucket" = return $ MuteBucket+ | s == "plunger" = return $ MutePlunger+ | s == "hat" = return $ MuteHat+ | s == "solotone" = return $ MuteSolotone+ | s == "practice" = return $ MutePractice+ | s == "stop-mute" = return $ MuteStopMute+ | s == "stop-hand" = return $ MuteStopHand+ | s == "echo" = return $ MuteEcho+ | s == "palm" = return $ MutePalm+ | otherwise = P.xfail $ "Mute: " ++ s++-- | @non-negative-decimal@ /(simple)/+--+-- The non-negative-decimal type specifies a non-negative decimal value.+newtype NonNegativeDecimal = NonNegativeDecimal { nonNegativeDecimal :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show NonNegativeDecimal where show (NonNegativeDecimal a) = show a+instance Read NonNegativeDecimal where readsPrec i = map (A.first NonNegativeDecimal) . readsPrec i+instance EmitXml NonNegativeDecimal where+ emitXml = emitXml . nonNegativeDecimal+parseNonNegativeDecimal :: String -> P.XParse NonNegativeDecimal+parseNonNegativeDecimal = P.xread "NonNegativeDecimal"++-- | @xs:nonNegativeInteger@ /(simple)/+newtype NonNegativeInteger = NonNegativeInteger { nonNegativeInteger :: Int }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show NonNegativeInteger where show (NonNegativeInteger a) = show a+instance Read NonNegativeInteger where readsPrec i = map (A.first NonNegativeInteger) . readsPrec i+instance EmitXml NonNegativeInteger where+ emitXml = emitXml . nonNegativeInteger+parseNonNegativeInteger :: String -> P.XParse NonNegativeInteger+parseNonNegativeInteger = P.xread "NonNegativeInteger"++-- | @xs:normalizedString@ /(simple)/+newtype NormalizedString = NormalizedString { normalizedString :: String }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show NormalizedString where show (NormalizedString a) = show a+instance Read NormalizedString where readsPrec i = map (A.first NormalizedString) . readsPrec i+instance EmitXml NormalizedString where+ emitXml = emitXml . normalizedString+parseNormalizedString :: String -> P.XParse NormalizedString+parseNormalizedString = return . fromString++-- | @note-size-type@ /(simple)/+--+-- The note-size-type type indicates the type of note being defined by a note-size element. The grace-cue type is used for notes of grace-cue size. The grace type is used for notes of cue size that include a grace element. The cue type is used for all other notes with cue size, whether defined explicitly or implicitly via a cue element. The large type is used for notes of large size.+data NoteSizeType = + NoteSizeTypeCue -- ^ /cue/+ | NoteSizeTypeGrace -- ^ /grace/+ | NoteSizeTypeGraceCue -- ^ /grace-cue/+ | NoteSizeTypeLarge -- ^ /large/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml NoteSizeType where+ emitXml NoteSizeTypeCue = XLit "cue"+ emitXml NoteSizeTypeGrace = XLit "grace"+ emitXml NoteSizeTypeGraceCue = XLit "grace-cue"+ emitXml NoteSizeTypeLarge = XLit "large"+parseNoteSizeType :: String -> P.XParse NoteSizeType+parseNoteSizeType s+ | s == "cue" = return $ NoteSizeTypeCue+ | s == "grace" = return $ NoteSizeTypeGrace+ | s == "grace-cue" = return $ NoteSizeTypeGraceCue+ | s == "large" = return $ NoteSizeTypeLarge+ | otherwise = P.xfail $ "NoteSizeType: " ++ s++-- | @note-type-value@ /(simple)/+--+-- The note-type type is used for the MusicXML type element and represents the graphic note type, from 1024th (shortest) to maxima (longest).+data NoteTypeValue = + NoteTypeValue1024th -- ^ /1024th/+ | NoteTypeValue512th -- ^ /512th/+ | NoteTypeValue256th -- ^ /256th/+ | NoteTypeValue128th -- ^ /128th/+ | NoteTypeValue64th -- ^ /64th/+ | NoteTypeValue32nd -- ^ /32nd/+ | NoteTypeValue16th -- ^ /16th/+ | NoteTypeValueEighth -- ^ /eighth/+ | NoteTypeValueQuarter -- ^ /quarter/+ | NoteTypeValueHalf -- ^ /half/+ | NoteTypeValueWhole -- ^ /whole/+ | NoteTypeValueBreve -- ^ /breve/+ | NoteTypeValueLong -- ^ /long/+ | NoteTypeValueMaxima -- ^ /maxima/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml NoteTypeValue where+ emitXml NoteTypeValue1024th = XLit "1024th"+ emitXml NoteTypeValue512th = XLit "512th"+ emitXml NoteTypeValue256th = XLit "256th"+ emitXml NoteTypeValue128th = XLit "128th"+ emitXml NoteTypeValue64th = XLit "64th"+ emitXml NoteTypeValue32nd = XLit "32nd"+ emitXml NoteTypeValue16th = XLit "16th"+ emitXml NoteTypeValueEighth = XLit "eighth"+ emitXml NoteTypeValueQuarter = XLit "quarter"+ emitXml NoteTypeValueHalf = XLit "half"+ emitXml NoteTypeValueWhole = XLit "whole"+ emitXml NoteTypeValueBreve = XLit "breve"+ emitXml NoteTypeValueLong = XLit "long"+ emitXml NoteTypeValueMaxima = XLit "maxima"+parseNoteTypeValue :: String -> P.XParse NoteTypeValue+parseNoteTypeValue s+ | s == "1024th" = return $ NoteTypeValue1024th+ | s == "512th" = return $ NoteTypeValue512th+ | s == "256th" = return $ NoteTypeValue256th+ | s == "128th" = return $ NoteTypeValue128th+ | s == "64th" = return $ NoteTypeValue64th+ | s == "32nd" = return $ NoteTypeValue32nd+ | s == "16th" = return $ NoteTypeValue16th+ | s == "eighth" = return $ NoteTypeValueEighth+ | s == "quarter" = return $ NoteTypeValueQuarter+ | s == "half" = return $ NoteTypeValueHalf+ | s == "whole" = return $ NoteTypeValueWhole+ | s == "breve" = return $ NoteTypeValueBreve+ | s == "long" = return $ NoteTypeValueLong+ | s == "maxima" = return $ NoteTypeValueMaxima+ | otherwise = P.xfail $ "NoteTypeValue: " ++ s++-- | @notehead-value@ /(simple)/+--+-- +-- The notehead-value type indicates shapes other than the open and closed ovals associated with note durations.+-- +-- The values do, re, mi, fa, fa up, so, la, and ti correspond to Aikin's 7-shape system. The fa up shape is typically used with upstems; the fa shape is typically used with downstems or no stems.+-- +-- The arrow shapes differ from triangle and inverted triangle by being centered on the stem. Slashed and back slashed notes include both the normal notehead and a slash. The triangle shape has the tip of the triangle pointing up; the inverted triangle shape has the tip of the triangle pointing down. The left triangle shape is a right triangle with the hypotenuse facing up and to the left.+-- +-- The other notehead covers noteheads other than those listed here. It is usually used in combination with the smufl attribute to specify a particular SMuFL notehead. The smufl attribute may be used with any notehead value to help specify the appearance of symbols that share the same MusicXML semantics. Noteheads in the SMuFL "Note name noteheads" range (U+E150–U+E1AF) should not use the smufl attribute or the "other" value, but instead use the notehead-text element.+data NoteheadValue = + NoteheadValueSlash -- ^ /slash/+ | NoteheadValueTriangle -- ^ /triangle/+ | NoteheadValueDiamond -- ^ /diamond/+ | NoteheadValueSquare -- ^ /square/+ | NoteheadValueCross -- ^ /cross/+ | NoteheadValueX -- ^ /x/+ | NoteheadValueCircleX -- ^ /circle-x/+ | NoteheadValueInvertedTriangle -- ^ /inverted triangle/+ | NoteheadValueArrowDown -- ^ /arrow down/+ | NoteheadValueArrowUp -- ^ /arrow up/+ | NoteheadValueCircled -- ^ /circled/+ | NoteheadValueSlashed -- ^ /slashed/+ | NoteheadValueBackSlashed -- ^ /back slashed/+ | NoteheadValueNormal -- ^ /normal/+ | NoteheadValueCluster -- ^ /cluster/+ | NoteheadValueCircleDot -- ^ /circle dot/+ | NoteheadValueLeftTriangle -- ^ /left triangle/+ | NoteheadValueRectangle -- ^ /rectangle/+ | NoteheadValueNone -- ^ /none/+ | NoteheadValueDo -- ^ /do/+ | NoteheadValueRe -- ^ /re/+ | NoteheadValueMi -- ^ /mi/+ | NoteheadValueFa -- ^ /fa/+ | NoteheadValueFaUp -- ^ /fa up/+ | NoteheadValueSo -- ^ /so/+ | NoteheadValueLa -- ^ /la/+ | NoteheadValueTi -- ^ /ti/+ | NoteheadValueOther -- ^ /other/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml NoteheadValue where+ emitXml NoteheadValueSlash = XLit "slash"+ emitXml NoteheadValueTriangle = XLit "triangle"+ emitXml NoteheadValueDiamond = XLit "diamond"+ emitXml NoteheadValueSquare = XLit "square"+ emitXml NoteheadValueCross = XLit "cross"+ emitXml NoteheadValueX = XLit "x"+ emitXml NoteheadValueCircleX = XLit "circle-x"+ emitXml NoteheadValueInvertedTriangle = XLit "inverted triangle"+ emitXml NoteheadValueArrowDown = XLit "arrow down"+ emitXml NoteheadValueArrowUp = XLit "arrow up"+ emitXml NoteheadValueCircled = XLit "circled"+ emitXml NoteheadValueSlashed = XLit "slashed"+ emitXml NoteheadValueBackSlashed = XLit "back slashed"+ emitXml NoteheadValueNormal = XLit "normal"+ emitXml NoteheadValueCluster = XLit "cluster"+ emitXml NoteheadValueCircleDot = XLit "circle dot"+ emitXml NoteheadValueLeftTriangle = XLit "left triangle"+ emitXml NoteheadValueRectangle = XLit "rectangle"+ emitXml NoteheadValueNone = XLit "none"+ emitXml NoteheadValueDo = XLit "do"+ emitXml NoteheadValueRe = XLit "re"+ emitXml NoteheadValueMi = XLit "mi"+ emitXml NoteheadValueFa = XLit "fa"+ emitXml NoteheadValueFaUp = XLit "fa up"+ emitXml NoteheadValueSo = XLit "so"+ emitXml NoteheadValueLa = XLit "la"+ emitXml NoteheadValueTi = XLit "ti"+ emitXml NoteheadValueOther = XLit "other"+parseNoteheadValue :: String -> P.XParse NoteheadValue+parseNoteheadValue s+ | s == "slash" = return $ NoteheadValueSlash+ | s == "triangle" = return $ NoteheadValueTriangle+ | s == "diamond" = return $ NoteheadValueDiamond+ | s == "square" = return $ NoteheadValueSquare+ | s == "cross" = return $ NoteheadValueCross+ | s == "x" = return $ NoteheadValueX+ | s == "circle-x" = return $ NoteheadValueCircleX+ | s == "inverted triangle" = return $ NoteheadValueInvertedTriangle+ | s == "arrow down" = return $ NoteheadValueArrowDown+ | s == "arrow up" = return $ NoteheadValueArrowUp+ | s == "circled" = return $ NoteheadValueCircled+ | s == "slashed" = return $ NoteheadValueSlashed+ | s == "back slashed" = return $ NoteheadValueBackSlashed+ | s == "normal" = return $ NoteheadValueNormal+ | s == "cluster" = return $ NoteheadValueCluster+ | s == "circle dot" = return $ NoteheadValueCircleDot+ | s == "left triangle" = return $ NoteheadValueLeftTriangle+ | s == "rectangle" = return $ NoteheadValueRectangle+ | s == "none" = return $ NoteheadValueNone+ | s == "do" = return $ NoteheadValueDo+ | s == "re" = return $ NoteheadValueRe+ | s == "mi" = return $ NoteheadValueMi+ | s == "fa" = return $ NoteheadValueFa+ | s == "fa up" = return $ NoteheadValueFaUp+ | s == "so" = return $ NoteheadValueSo+ | s == "la" = return $ NoteheadValueLa+ | s == "ti" = return $ NoteheadValueTi+ | s == "other" = return $ NoteheadValueOther+ | otherwise = P.xfail $ "NoteheadValue: " ++ s++-- | @number-level@ /(simple)/+--+-- Slurs, tuplets, and many other features can be concurrent and overlapping within a single musical part. The number-level type distinguishes up to six concurrent objects of the same type. A reading program should be prepared to handle cases where the number-levels stop in an arbitrary order. Different numbers are needed when the features overlap in MusicXML document order. When a number-level value is optional, the value is 1 by default.+newtype NumberLevel = NumberLevel { numberLevel :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show NumberLevel where show (NumberLevel a) = show a+instance Read NumberLevel where readsPrec i = map (A.first NumberLevel) . readsPrec i+instance EmitXml NumberLevel where+ emitXml = emitXml . numberLevel+parseNumberLevel :: String -> P.XParse NumberLevel+parseNumberLevel = P.xread "NumberLevel"++-- | @number-of-lines@ /(simple)/+--+-- The number-of-lines type is used to specify the number of lines in text decoration attributes.+newtype NumberOfLines = NumberOfLines { numberOfLines :: NonNegativeInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show NumberOfLines where show (NumberOfLines a) = show a+instance Read NumberOfLines where readsPrec i = map (A.first NumberOfLines) . readsPrec i+instance EmitXml NumberOfLines where+ emitXml = emitXml . numberOfLines+parseNumberOfLines :: String -> P.XParse NumberOfLines+parseNumberOfLines = P.xread "NumberOfLines"++-- | @number-or-normal@ /(simple)/+--+-- The number-or-normal values can be either a decimal number or the string "normal". This is used by the line-height and letter-spacing attributes.+data NumberOrNormal = + NumberOrNormalDecimal {+ numberOrNormal1 :: Decimal+ }+ | NumberOrNormalNumberOrNormal {+ numberOrNormal2 :: SumNumberOrNormal+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NumberOrNormal where+ emitXml (NumberOrNormalDecimal a) = emitXml a+ emitXml (NumberOrNormalNumberOrNormal a) = emitXml a+parseNumberOrNormal :: String -> P.XParse NumberOrNormal+parseNumberOrNormal s = + NumberOrNormalDecimal+ <$> (P.xread "Decimal") s+ <|> NumberOrNormalNumberOrNormal+ <$> parseSumNumberOrNormal s+++-- | @octave@ /(simple)/+--+-- Octaves are represented by the numbers 0 to 9, where 4 indicates the octave started by middle C.+newtype Octave = Octave { octave :: Int }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show Octave where show (Octave a) = show a+instance Read Octave where readsPrec i = map (A.first Octave) . readsPrec i+instance EmitXml Octave where+ emitXml = emitXml . octave+parseOctave :: String -> P.XParse Octave+parseOctave = P.xread "Octave"++-- | @on-off@ /(simple)/+--+-- The on-off type is used for notation elements such as string mutes.+data OnOff = + OnOffOn -- ^ /on/+ | OnOffOff -- ^ /off/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml OnOff where+ emitXml OnOffOn = XLit "on"+ emitXml OnOffOff = XLit "off"+parseOnOff :: String -> P.XParse OnOff+parseOnOff s+ | s == "on" = return $ OnOffOn+ | s == "off" = return $ OnOffOff+ | otherwise = P.xfail $ "OnOff: " ++ s++-- | @over-under@ /(simple)/+--+-- The over-under type is used to indicate whether the tips of curved lines such as slurs and ties are overhand (tips down) or underhand (tips up).+data OverUnder = + OverUnderOver -- ^ /over/+ | OverUnderUnder -- ^ /under/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml OverUnder where+ emitXml OverUnderOver = XLit "over"+ emitXml OverUnderUnder = XLit "under"+parseOverUnder :: String -> P.XParse OverUnder+parseOverUnder s+ | s == "over" = return $ OverUnderOver+ | s == "under" = return $ OverUnderUnder+ | otherwise = P.xfail $ "OverUnder: " ++ s++-- | @pedal-type@ /(simple)/+--+-- The pedal-type simple type is used to distinguish types of pedal directions. The start value indicates the start of a damper pedal, while the sostenuto value indicates the start of a sostenuto pedal. The change, continue, and stop values can be used with either the damper or sostenuto pedal. The soft pedal is not included here because there is no special symbol or graphic used for it beyond what can be specified with words and bracket elements.+data PedalType = + PedalTypeStart -- ^ /start/+ | PedalTypeStop -- ^ /stop/+ | PedalTypeSostenuto -- ^ /sostenuto/+ | PedalTypeChange -- ^ /change/+ | PedalTypeContinue -- ^ /continue/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml PedalType where+ emitXml PedalTypeStart = XLit "start"+ emitXml PedalTypeStop = XLit "stop"+ emitXml PedalTypeSostenuto = XLit "sostenuto"+ emitXml PedalTypeChange = XLit "change"+ emitXml PedalTypeContinue = XLit "continue"+parsePedalType :: String -> P.XParse PedalType+parsePedalType s+ | s == "start" = return $ PedalTypeStart+ | s == "stop" = return $ PedalTypeStop+ | s == "sostenuto" = return $ PedalTypeSostenuto+ | s == "change" = return $ PedalTypeChange+ | s == "continue" = return $ PedalTypeContinue+ | otherwise = P.xfail $ "PedalType: " ++ s++-- | @percent@ /(simple)/+--+-- The percent type specifies a percentage from 0 to 100.+newtype Percent = Percent { percent :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show Percent where show (Percent a) = show a+instance Read Percent where readsPrec i = map (A.first Percent) . readsPrec i+instance EmitXml Percent where+ emitXml = emitXml . percent+parsePercent :: String -> P.XParse Percent+parsePercent = P.xread "Percent"++-- | @pitched-value@ /(simple)/+--+-- The pitched-value type represents pictograms for pitched percussion instruments. The chimes and tubular chimes values distinguish the single-line and double-line versions of the pictogram.+data PitchedValue = + PitchedValueCelesta -- ^ /celesta/+ | PitchedValueChimes -- ^ /chimes/+ | PitchedValueGlockenspiel -- ^ /glockenspiel/+ | PitchedValueLithophone -- ^ /lithophone/+ | PitchedValueMallet -- ^ /mallet/+ | PitchedValueMarimba -- ^ /marimba/+ | PitchedValueSteelDrums -- ^ /steel drums/+ | PitchedValueTubaphone -- ^ /tubaphone/+ | PitchedValueTubularChimes -- ^ /tubular chimes/+ | PitchedValueVibraphone -- ^ /vibraphone/+ | PitchedValueXylophone -- ^ /xylophone/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml PitchedValue where+ emitXml PitchedValueCelesta = XLit "celesta"+ emitXml PitchedValueChimes = XLit "chimes"+ emitXml PitchedValueGlockenspiel = XLit "glockenspiel"+ emitXml PitchedValueLithophone = XLit "lithophone"+ emitXml PitchedValueMallet = XLit "mallet"+ emitXml PitchedValueMarimba = XLit "marimba"+ emitXml PitchedValueSteelDrums = XLit "steel drums"+ emitXml PitchedValueTubaphone = XLit "tubaphone"+ emitXml PitchedValueTubularChimes = XLit "tubular chimes"+ emitXml PitchedValueVibraphone = XLit "vibraphone"+ emitXml PitchedValueXylophone = XLit "xylophone"+parsePitchedValue :: String -> P.XParse PitchedValue+parsePitchedValue s+ | s == "celesta" = return $ PitchedValueCelesta+ | s == "chimes" = return $ PitchedValueChimes+ | s == "glockenspiel" = return $ PitchedValueGlockenspiel+ | s == "lithophone" = return $ PitchedValueLithophone+ | s == "mallet" = return $ PitchedValueMallet+ | s == "marimba" = return $ PitchedValueMarimba+ | s == "steel drums" = return $ PitchedValueSteelDrums+ | s == "tubaphone" = return $ PitchedValueTubaphone+ | s == "tubular chimes" = return $ PitchedValueTubularChimes+ | s == "vibraphone" = return $ PitchedValueVibraphone+ | s == "xylophone" = return $ PitchedValueXylophone+ | otherwise = P.xfail $ "PitchedValue: " ++ s++-- | @positive-divisions@ /(simple)/+--+-- The positive-divisions type restricts divisions values to positive numbers.+newtype PositiveDivisions = PositiveDivisions { positiveDivisions :: Divisions }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show PositiveDivisions where show (PositiveDivisions a) = show a+instance Read PositiveDivisions where readsPrec i = map (A.first PositiveDivisions) . readsPrec i+instance EmitXml PositiveDivisions where+ emitXml = emitXml . positiveDivisions+parsePositiveDivisions :: String -> P.XParse PositiveDivisions+parsePositiveDivisions = P.xread "PositiveDivisions"++-- | @positive-integer-or-empty@ /(simple)/+--+-- The positive-integer-or-empty values can be either a positive integer or an empty string.+data PositiveIntegerOrEmpty = + PositiveIntegerOrEmptyPositiveInteger {+ positiveIntegerOrEmpty1 :: PositiveInteger+ }+ | PositiveIntegerOrEmptyPositiveIntegerOrEmpty {+ positiveIntegerOrEmpty2 :: SumPositiveIntegerOrEmpty+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PositiveIntegerOrEmpty where+ emitXml (PositiveIntegerOrEmptyPositiveInteger a) = emitXml a+ emitXml (PositiveIntegerOrEmptyPositiveIntegerOrEmpty a) = emitXml a+parsePositiveIntegerOrEmpty :: String -> P.XParse PositiveIntegerOrEmpty+parsePositiveIntegerOrEmpty s = + PositiveIntegerOrEmptyPositiveInteger+ <$> parsePositiveInteger s+ <|> PositiveIntegerOrEmptyPositiveIntegerOrEmpty+ <$> parseSumPositiveIntegerOrEmpty s+++-- | @xs:positiveInteger@ /(simple)/+newtype PositiveInteger = PositiveInteger { positiveInteger :: NonNegativeInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show PositiveInteger where show (PositiveInteger a) = show a+instance Read PositiveInteger where readsPrec i = map (A.first PositiveInteger) . readsPrec i+instance EmitXml PositiveInteger where+ emitXml = emitXml . positiveInteger+parsePositiveInteger :: String -> P.XParse PositiveInteger+parsePositiveInteger = P.xread "PositiveInteger"++-- | @principal-voice-symbol@ /(simple)/+--+-- The principal-voice-symbol type represents the type of symbol used to indicate the start of a principal or secondary voice. The "plain" value represents a plain square bracket. The value of "none" is used for analysis markup when the principal-voice element does not have a corresponding appearance in the score.+data PrincipalVoiceSymbol = + PrincipalVoiceSymbolHauptstimme -- ^ /Hauptstimme/+ | PrincipalVoiceSymbolNebenstimme -- ^ /Nebenstimme/+ | PrincipalVoiceSymbolPlain -- ^ /plain/+ | PrincipalVoiceSymbolNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml PrincipalVoiceSymbol where+ emitXml PrincipalVoiceSymbolHauptstimme = XLit "Hauptstimme"+ emitXml PrincipalVoiceSymbolNebenstimme = XLit "Nebenstimme"+ emitXml PrincipalVoiceSymbolPlain = XLit "plain"+ emitXml PrincipalVoiceSymbolNone = XLit "none"+parsePrincipalVoiceSymbol :: String -> P.XParse PrincipalVoiceSymbol+parsePrincipalVoiceSymbol s+ | s == "Hauptstimme" = return $ PrincipalVoiceSymbolHauptstimme+ | s == "Nebenstimme" = return $ PrincipalVoiceSymbolNebenstimme+ | s == "plain" = return $ PrincipalVoiceSymbolPlain+ | s == "none" = return $ PrincipalVoiceSymbolNone+ | otherwise = P.xfail $ "PrincipalVoiceSymbol: " ++ s++-- | @right-left-middle@ /(simple)/+--+-- The right-left-middle type is used to specify barline location.+data RightLeftMiddle = + RightLeftMiddleRight -- ^ /right/+ | RightLeftMiddleLeft -- ^ /left/+ | RightLeftMiddleMiddle -- ^ /middle/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml RightLeftMiddle where+ emitXml RightLeftMiddleRight = XLit "right"+ emitXml RightLeftMiddleLeft = XLit "left"+ emitXml RightLeftMiddleMiddle = XLit "middle"+parseRightLeftMiddle :: String -> P.XParse RightLeftMiddle+parseRightLeftMiddle s+ | s == "right" = return $ RightLeftMiddleRight+ | s == "left" = return $ RightLeftMiddleLeft+ | s == "middle" = return $ RightLeftMiddleMiddle+ | otherwise = P.xfail $ "RightLeftMiddle: " ++ s++-- | @rotation-degrees@ /(simple)/+--+-- The rotation-degrees type specifies rotation, pan, and elevation values in degrees. Values range from -180 to 180.+newtype RotationDegrees = RotationDegrees { rotationDegrees :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show RotationDegrees where show (RotationDegrees a) = show a+instance Read RotationDegrees where readsPrec i = map (A.first RotationDegrees) . readsPrec i+instance EmitXml RotationDegrees where+ emitXml = emitXml . rotationDegrees+parseRotationDegrees :: String -> P.XParse RotationDegrees+parseRotationDegrees = P.xread "RotationDegrees"++-- | @semi-pitched@ /(simple)/+--+-- The semi-pitched type represents categories of indefinite pitch for percussion instruments.+data SemiPitched = + SemiPitchedHigh -- ^ /high/+ | SemiPitchedMediumHigh -- ^ /medium-high/+ | SemiPitchedMedium -- ^ /medium/+ | SemiPitchedMediumLow -- ^ /medium-low/+ | SemiPitchedLow -- ^ /low/+ | SemiPitchedVeryLow -- ^ /very-low/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SemiPitched where+ emitXml SemiPitchedHigh = XLit "high"+ emitXml SemiPitchedMediumHigh = XLit "medium-high"+ emitXml SemiPitchedMedium = XLit "medium"+ emitXml SemiPitchedMediumLow = XLit "medium-low"+ emitXml SemiPitchedLow = XLit "low"+ emitXml SemiPitchedVeryLow = XLit "very-low"+parseSemiPitched :: String -> P.XParse SemiPitched+parseSemiPitched s+ | s == "high" = return $ SemiPitchedHigh+ | s == "medium-high" = return $ SemiPitchedMediumHigh+ | s == "medium" = return $ SemiPitchedMedium+ | s == "medium-low" = return $ SemiPitchedMediumLow+ | s == "low" = return $ SemiPitchedLow+ | s == "very-low" = return $ SemiPitchedVeryLow+ | otherwise = P.xfail $ "SemiPitched: " ++ s++-- | @semitones@ /(simple)/+--+-- The semitones type is a number representing semitones, used for chromatic alteration. A value of -1 corresponds to a flat and a value of 1 to a sharp. Decimal values like 0.5 (quarter tone sharp) are used for microtones.+newtype Semitones = Semitones { semitones :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show Semitones where show (Semitones a) = show a+instance Read Semitones where readsPrec i = map (A.first Semitones) . readsPrec i+instance EmitXml Semitones where+ emitXml = emitXml . semitones+parseSemitones :: String -> P.XParse Semitones+parseSemitones = P.xread "Semitones"++-- | @xlink:show@ /(simple)/+data SmpShow = + ShowNew -- ^ /new/+ | ShowReplace -- ^ /replace/+ | ShowEmbed -- ^ /embed/+ | ShowOther -- ^ /other/+ | ShowNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SmpShow where+ emitXml ShowNew = XLit "new"+ emitXml ShowReplace = XLit "replace"+ emitXml ShowEmbed = XLit "embed"+ emitXml ShowOther = XLit "other"+ emitXml ShowNone = XLit "none"+parseSmpShow :: String -> P.XParse SmpShow+parseSmpShow s+ | s == "new" = return $ ShowNew+ | s == "replace" = return $ ShowReplace+ | s == "embed" = return $ ShowEmbed+ | s == "other" = return $ ShowOther+ | s == "none" = return $ ShowNone+ | otherwise = P.xfail $ "SmpShow: " ++ s++-- | @show-frets@ /(simple)/+--+-- The show-frets type indicates whether to show tablature frets as numbers (0, 1, 2) or letters (a, b, c). The default choice is numbers.+data ShowFrets = + ShowFretsNumbers -- ^ /numbers/+ | ShowFretsLetters -- ^ /letters/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ShowFrets where+ emitXml ShowFretsNumbers = XLit "numbers"+ emitXml ShowFretsLetters = XLit "letters"+parseShowFrets :: String -> P.XParse ShowFrets+parseShowFrets s+ | s == "numbers" = return $ ShowFretsNumbers+ | s == "letters" = return $ ShowFretsLetters+ | otherwise = P.xfail $ "ShowFrets: " ++ s++-- | @show-tuplet@ /(simple)/+--+-- The show-tuplet type indicates whether to show a part of a tuplet relating to the tuplet-actual element, both the tuplet-actual and tuplet-normal elements, or neither.+data ShowTuplet = + ShowTupletActual -- ^ /actual/+ | ShowTupletBoth -- ^ /both/+ | ShowTupletNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ShowTuplet where+ emitXml ShowTupletActual = XLit "actual"+ emitXml ShowTupletBoth = XLit "both"+ emitXml ShowTupletNone = XLit "none"+parseShowTuplet :: String -> P.XParse ShowTuplet+parseShowTuplet s+ | s == "actual" = return $ ShowTupletActual+ | s == "both" = return $ ShowTupletBoth+ | s == "none" = return $ ShowTupletNone+ | otherwise = P.xfail $ "ShowTuplet: " ++ s++-- | @smufl-accidental-glyph-name@ /(simple)/+--+-- The smufl-accidental-glyph-name type is used to reference a specific Standard Music Font Layout (SMuFL) accidental character. The value is a SMuFL canonical glyph name that starts with acc.+newtype SmuflAccidentalGlyphName = SmuflAccidentalGlyphName { smuflAccidentalGlyphName :: SmuflGlyphName }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show SmuflAccidentalGlyphName where show (SmuflAccidentalGlyphName a) = show a+instance Read SmuflAccidentalGlyphName where readsPrec i = map (A.first SmuflAccidentalGlyphName) . readsPrec i+instance EmitXml SmuflAccidentalGlyphName where+ emitXml = emitXml . smuflAccidentalGlyphName+parseSmuflAccidentalGlyphName :: String -> P.XParse SmuflAccidentalGlyphName+parseSmuflAccidentalGlyphName = return . fromString++-- | @smufl-coda-glyph-name@ /(simple)/+--+-- The smufl-coda-glyph-name type is used to reference a specific Standard Music Font Layout (SMuFL) coda character. The value is a SMuFL canonical glyph name that starts with coda.+newtype SmuflCodaGlyphName = SmuflCodaGlyphName { smuflCodaGlyphName :: SmuflGlyphName }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show SmuflCodaGlyphName where show (SmuflCodaGlyphName a) = show a+instance Read SmuflCodaGlyphName where readsPrec i = map (A.first SmuflCodaGlyphName) . readsPrec i+instance EmitXml SmuflCodaGlyphName where+ emitXml = emitXml . smuflCodaGlyphName+parseSmuflCodaGlyphName :: String -> P.XParse SmuflCodaGlyphName+parseSmuflCodaGlyphName = return . fromString++-- | @smufl-glyph-name@ /(simple)/+--+-- The smufl-glyph-name type is used for attributes that reference a specific Standard Music Font Layout (SMuFL) character. The value is a SMuFL canonical glyph name, not a code point. For instance, the value for a standard piano pedal mark would be keyboardPedalPed, not U+E650.+newtype SmuflGlyphName = SmuflGlyphName { smuflGlyphName :: NMTOKEN }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show SmuflGlyphName where show (SmuflGlyphName a) = show a+instance Read SmuflGlyphName where readsPrec i = map (A.first SmuflGlyphName) . readsPrec i+instance EmitXml SmuflGlyphName where+ emitXml = emitXml . smuflGlyphName+parseSmuflGlyphName :: String -> P.XParse SmuflGlyphName+parseSmuflGlyphName = return . fromString++-- | @smufl-lyrics-glyph-name@ /(simple)/+--+-- The smufl-lyrics-glyph-name type is used to reference a specific Standard Music Font Layout (SMuFL) lyrics elision character. The value is a SMuFL canonical glyph name that starts with lyrics.+newtype SmuflLyricsGlyphName = SmuflLyricsGlyphName { smuflLyricsGlyphName :: SmuflGlyphName }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show SmuflLyricsGlyphName where show (SmuflLyricsGlyphName a) = show a+instance Read SmuflLyricsGlyphName where readsPrec i = map (A.first SmuflLyricsGlyphName) . readsPrec i+instance EmitXml SmuflLyricsGlyphName where+ emitXml = emitXml . smuflLyricsGlyphName+parseSmuflLyricsGlyphName :: String -> P.XParse SmuflLyricsGlyphName+parseSmuflLyricsGlyphName = return . fromString++-- | @smufl-pictogram-glyph-name@ /(simple)/+--+-- The smufl-pictogram-glyph-name type is used to reference a specific Standard Music Font Layout (SMuFL) percussion pictogram character. The value is a SMuFL canonical glyph name that starts with pict.+newtype SmuflPictogramGlyphName = SmuflPictogramGlyphName { smuflPictogramGlyphName :: SmuflGlyphName }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show SmuflPictogramGlyphName where show (SmuflPictogramGlyphName a) = show a+instance Read SmuflPictogramGlyphName where readsPrec i = map (A.first SmuflPictogramGlyphName) . readsPrec i+instance EmitXml SmuflPictogramGlyphName where+ emitXml = emitXml . smuflPictogramGlyphName+parseSmuflPictogramGlyphName :: String -> P.XParse SmuflPictogramGlyphName+parseSmuflPictogramGlyphName = return . fromString++-- | @smufl-segno-glyph-name@ /(simple)/+--+-- The smufl-segno-glyph-name type is used to reference a specific Standard Music Font Layout (SMuFL) segno character. The value is a SMuFL canonical glyph name that starts with segno.+newtype SmuflSegnoGlyphName = SmuflSegnoGlyphName { smuflSegnoGlyphName :: SmuflGlyphName }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show SmuflSegnoGlyphName where show (SmuflSegnoGlyphName a) = show a+instance Read SmuflSegnoGlyphName where readsPrec i = map (A.first SmuflSegnoGlyphName) . readsPrec i+instance EmitXml SmuflSegnoGlyphName where+ emitXml = emitXml . smuflSegnoGlyphName+parseSmuflSegnoGlyphName :: String -> P.XParse SmuflSegnoGlyphName+parseSmuflSegnoGlyphName = return . fromString++-- | @xml:space@ /(simple)/+data Space = + SpaceDefault -- ^ /default/+ | SpacePreserve -- ^ /preserve/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Space where+ emitXml SpaceDefault = XLit "default"+ emitXml SpacePreserve = XLit "preserve"+parseSpace :: String -> P.XParse Space+parseSpace s+ | s == "default" = return $ SpaceDefault+ | s == "preserve" = return $ SpacePreserve+ | otherwise = P.xfail $ "Space: " ++ s++-- | @staff-divide-symbol@ /(simple)/+--+-- The staff-divide-symbol type is used for staff division symbols. The down, up, and up-down values correspond to SMuFL code points U+E00B, U+E00C, and U+E00D respectively.+data StaffDivideSymbol = + StaffDivideSymbolDown -- ^ /down/+ | StaffDivideSymbolUp -- ^ /up/+ | StaffDivideSymbolUpDown -- ^ /up-down/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StaffDivideSymbol where+ emitXml StaffDivideSymbolDown = XLit "down"+ emitXml StaffDivideSymbolUp = XLit "up"+ emitXml StaffDivideSymbolUpDown = XLit "up-down"+parseStaffDivideSymbol :: String -> P.XParse StaffDivideSymbol+parseStaffDivideSymbol s+ | s == "down" = return $ StaffDivideSymbolDown+ | s == "up" = return $ StaffDivideSymbolUp+ | s == "up-down" = return $ StaffDivideSymbolUpDown+ | otherwise = P.xfail $ "StaffDivideSymbol: " ++ s++-- | @staff-line@ /(simple)/+--+-- The staff-line type indicates the line on a given staff. Staff lines are numbered from bottom to top, with 1 being the bottom line on a staff. Staff line values can be used to specify positions outside the staff, such as a C clef positioned in the middle of a grand staff.+newtype StaffLine = StaffLine { staffLine :: Int }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show StaffLine where show (StaffLine a) = show a+instance Read StaffLine where readsPrec i = map (A.first StaffLine) . readsPrec i+instance EmitXml StaffLine where+ emitXml = emitXml . staffLine+parseStaffLine :: String -> P.XParse StaffLine+parseStaffLine = P.xread "StaffLine"++-- | @staff-number@ /(simple)/+--+-- The staff-number type indicates staff numbers within a multi-staff part. Staves are numbered from top to bottom, with 1 being the top staff on a part.+newtype StaffNumber = StaffNumber { staffNumber :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show StaffNumber where show (StaffNumber a) = show a+instance Read StaffNumber where readsPrec i = map (A.first StaffNumber) . readsPrec i+instance EmitXml StaffNumber where+ emitXml = emitXml . staffNumber+parseStaffNumber :: String -> P.XParse StaffNumber+parseStaffNumber = P.xread "StaffNumber"++-- | @staff-type@ /(simple)/+--+-- The staff-type value can be ossia, cue, editorial, regular, or alternate. An alternate staff indicates one that shares the same musical data as the prior staff, but displayed differently (e.g., treble and bass clef, standard notation and tab).+data StaffType = + StaffTypeOssia -- ^ /ossia/+ | StaffTypeCue -- ^ /cue/+ | StaffTypeEditorial -- ^ /editorial/+ | StaffTypeRegular -- ^ /regular/+ | StaffTypeAlternate -- ^ /alternate/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StaffType where+ emitXml StaffTypeOssia = XLit "ossia"+ emitXml StaffTypeCue = XLit "cue"+ emitXml StaffTypeEditorial = XLit "editorial"+ emitXml StaffTypeRegular = XLit "regular"+ emitXml StaffTypeAlternate = XLit "alternate"+parseStaffType :: String -> P.XParse StaffType+parseStaffType s+ | s == "ossia" = return $ StaffTypeOssia+ | s == "cue" = return $ StaffTypeCue+ | s == "editorial" = return $ StaffTypeEditorial+ | s == "regular" = return $ StaffTypeRegular+ | s == "alternate" = return $ StaffTypeAlternate+ | otherwise = P.xfail $ "StaffType: " ++ s++-- | @start-note@ /(simple)/+--+-- The start-note type describes the starting note of trills and mordents for playback, relative to the current note.+data StartNote = + StartNoteUpper -- ^ /upper/+ | StartNoteMain -- ^ /main/+ | StartNoteBelow -- ^ /below/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartNote where+ emitXml StartNoteUpper = XLit "upper"+ emitXml StartNoteMain = XLit "main"+ emitXml StartNoteBelow = XLit "below"+parseStartNote :: String -> P.XParse StartNote+parseStartNote s+ | s == "upper" = return $ StartNoteUpper+ | s == "main" = return $ StartNoteMain+ | s == "below" = return $ StartNoteBelow+ | otherwise = P.xfail $ "StartNote: " ++ s++-- | @start-stop@ /(simple)/+--+-- The start-stop type is used for an attribute of musical elements that can either start or stop, such as tuplets.+-- +-- The values of start and stop refer to how an element appears in musical score order, not in MusicXML document order. An element with a stop attribute may precede the corresponding element with a start attribute within a MusicXML document. This is particularly common in multi-staff music. For example, the stopping point for a tuplet may appear in staff 1 before the starting point for the tuplet appears in staff 2 later in the document.+data StartStop = + StartStopStart -- ^ /start/+ | StartStopStop -- ^ /stop/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartStop where+ emitXml StartStopStart = XLit "start"+ emitXml StartStopStop = XLit "stop"+parseStartStop :: String -> P.XParse StartStop+parseStartStop s+ | s == "start" = return $ StartStopStart+ | s == "stop" = return $ StartStopStop+ | otherwise = P.xfail $ "StartStop: " ++ s++-- | @start-stop-continue@ /(simple)/+--+-- The start-stop-continue type is used for an attribute of musical elements that can either start or stop, but also need to refer to an intermediate point in the symbol, as for complex slurs or for formatting of symbols across system breaks.+-- +-- The values of start, stop, and continue refer to how an element appears in musical score order, not in MusicXML document order. An element with a stop attribute may precede the corresponding element with a start attribute within a MusicXML document. This is particularly common in multi-staff music. For example, the stopping point for a slur may appear in staff 1 before the starting point for the slur appears in staff 2 later in the document.+data StartStopContinue = + StartStopContinueStart -- ^ /start/+ | StartStopContinueStop -- ^ /stop/+ | StartStopContinueContinue -- ^ /continue/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartStopContinue where+ emitXml StartStopContinueStart = XLit "start"+ emitXml StartStopContinueStop = XLit "stop"+ emitXml StartStopContinueContinue = XLit "continue"+parseStartStopContinue :: String -> P.XParse StartStopContinue+parseStartStopContinue s+ | s == "start" = return $ StartStopContinueStart+ | s == "stop" = return $ StartStopContinueStop+ | s == "continue" = return $ StartStopContinueContinue+ | otherwise = P.xfail $ "StartStopContinue: " ++ s++-- | @start-stop-discontinue@ /(simple)/+--+-- The start-stop-discontinue type is used to specify ending types. Typically, the start type is associated with the left barline of the first measure in an ending. The stop and discontinue types are associated with the right barline of the last measure in an ending. Stop is used when the ending mark concludes with a downward jog, as is typical for first endings. Discontinue is used when there is no downward jog, as is typical for second endings that do not conclude a piece.+data StartStopDiscontinue = + StartStopDiscontinueStart -- ^ /start/+ | StartStopDiscontinueStop -- ^ /stop/+ | StartStopDiscontinueDiscontinue -- ^ /discontinue/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartStopDiscontinue where+ emitXml StartStopDiscontinueStart = XLit "start"+ emitXml StartStopDiscontinueStop = XLit "stop"+ emitXml StartStopDiscontinueDiscontinue = XLit "discontinue"+parseStartStopDiscontinue :: String -> P.XParse StartStopDiscontinue+parseStartStopDiscontinue s+ | s == "start" = return $ StartStopDiscontinueStart+ | s == "stop" = return $ StartStopDiscontinueStop+ | s == "discontinue" = return $ StartStopDiscontinueDiscontinue+ | otherwise = P.xfail $ "StartStopDiscontinue: " ++ s++-- | @start-stop-single@ /(simple)/+--+-- The start-stop-single type is used for an attribute of musical elements that can be used for either multi-note or single-note musical elements, as for groupings.+data StartStopSingle = + StartStopSingleStart -- ^ /start/+ | StartStopSingleStop -- ^ /stop/+ | StartStopSingleSingle -- ^ /single/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StartStopSingle where+ emitXml StartStopSingleStart = XLit "start"+ emitXml StartStopSingleStop = XLit "stop"+ emitXml StartStopSingleSingle = XLit "single"+parseStartStopSingle :: String -> P.XParse StartStopSingle+parseStartStopSingle s+ | s == "start" = return $ StartStopSingleStart+ | s == "stop" = return $ StartStopSingleStop+ | s == "single" = return $ StartStopSingleSingle+ | otherwise = P.xfail $ "StartStopSingle: " ++ s++-- | @stem-value@ /(simple)/+--+-- The stem type represents the notated stem direction.+data StemValue = + StemValueDown -- ^ /down/+ | StemValueUp -- ^ /up/+ | StemValueDouble -- ^ /double/+ | StemValueNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StemValue where+ emitXml StemValueDown = XLit "down"+ emitXml StemValueUp = XLit "up"+ emitXml StemValueDouble = XLit "double"+ emitXml StemValueNone = XLit "none"+parseStemValue :: String -> P.XParse StemValue+parseStemValue s+ | s == "down" = return $ StemValueDown+ | s == "up" = return $ StemValueUp+ | s == "double" = return $ StemValueDouble+ | s == "none" = return $ StemValueNone+ | otherwise = P.xfail $ "StemValue: " ++ s++-- | @step@ /(simple)/+--+-- The step type represents a step of the diatonic scale, represented using the English letters A through G.+data Step = + StepA -- ^ /A/+ | StepB -- ^ /B/+ | StepC -- ^ /C/+ | StepD -- ^ /D/+ | StepE -- ^ /E/+ | StepF -- ^ /F/+ | StepG -- ^ /G/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Step where+ emitXml StepA = XLit "A"+ emitXml StepB = XLit "B"+ emitXml StepC = XLit "C"+ emitXml StepD = XLit "D"+ emitXml StepE = XLit "E"+ emitXml StepF = XLit "F"+ emitXml StepG = XLit "G"+parseStep :: String -> P.XParse Step+parseStep s+ | s == "A" = return $ StepA+ | s == "B" = return $ StepB+ | s == "C" = return $ StepC+ | s == "D" = return $ StepD+ | s == "E" = return $ StepE+ | s == "F" = return $ StepF+ | s == "G" = return $ StepG+ | otherwise = P.xfail $ "Step: " ++ s++-- | @stick-location@ /(simple)/+--+-- The stick-location type represents pictograms for the location of sticks, beaters, or mallets on cymbals, gongs, drums, and other instruments.+data StickLocation = + StickLocationCenter -- ^ /center/+ | StickLocationRim -- ^ /rim/+ | StickLocationCymbalBell -- ^ /cymbal bell/+ | StickLocationCymbalEdge -- ^ /cymbal edge/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StickLocation where+ emitXml StickLocationCenter = XLit "center"+ emitXml StickLocationRim = XLit "rim"+ emitXml StickLocationCymbalBell = XLit "cymbal bell"+ emitXml StickLocationCymbalEdge = XLit "cymbal edge"+parseStickLocation :: String -> P.XParse StickLocation+parseStickLocation s+ | s == "center" = return $ StickLocationCenter+ | s == "rim" = return $ StickLocationRim+ | s == "cymbal bell" = return $ StickLocationCymbalBell+ | s == "cymbal edge" = return $ StickLocationCymbalEdge+ | otherwise = P.xfail $ "StickLocation: " ++ s++-- | @stick-material@ /(simple)/+--+-- The stick-material type represents the material being displayed in a stick pictogram.+data StickMaterial = + StickMaterialSoft -- ^ /soft/+ | StickMaterialMedium -- ^ /medium/+ | StickMaterialHard -- ^ /hard/+ | StickMaterialShaded -- ^ /shaded/+ | StickMaterialX -- ^ /x/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StickMaterial where+ emitXml StickMaterialSoft = XLit "soft"+ emitXml StickMaterialMedium = XLit "medium"+ emitXml StickMaterialHard = XLit "hard"+ emitXml StickMaterialShaded = XLit "shaded"+ emitXml StickMaterialX = XLit "x"+parseStickMaterial :: String -> P.XParse StickMaterial+parseStickMaterial s+ | s == "soft" = return $ StickMaterialSoft+ | s == "medium" = return $ StickMaterialMedium+ | s == "hard" = return $ StickMaterialHard+ | s == "shaded" = return $ StickMaterialShaded+ | s == "x" = return $ StickMaterialX+ | otherwise = P.xfail $ "StickMaterial: " ++ s++-- | @stick-type@ /(simple)/+--+-- The stick-type type represents the shape of pictograms where the material+-- in the stick, mallet, or beater is represented in the pictogram.+data StickType = + StickTypeBassDrum -- ^ /bass drum/+ | StickTypeDoubleBassDrum -- ^ /double bass drum/+ | StickTypeGlockenspiel -- ^ /glockenspiel/+ | StickTypeGum -- ^ /gum/+ | StickTypeHammer -- ^ /hammer/+ | StickTypeSuperball -- ^ /superball/+ | StickTypeTimpani -- ^ /timpani/+ | StickTypeWound -- ^ /wound/+ | StickTypeXylophone -- ^ /xylophone/+ | StickTypeYarn -- ^ /yarn/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml StickType where+ emitXml StickTypeBassDrum = XLit "bass drum"+ emitXml StickTypeDoubleBassDrum = XLit "double bass drum"+ emitXml StickTypeGlockenspiel = XLit "glockenspiel"+ emitXml StickTypeGum = XLit "gum"+ emitXml StickTypeHammer = XLit "hammer"+ emitXml StickTypeSuperball = XLit "superball"+ emitXml StickTypeTimpani = XLit "timpani"+ emitXml StickTypeWound = XLit "wound"+ emitXml StickTypeXylophone = XLit "xylophone"+ emitXml StickTypeYarn = XLit "yarn"+parseStickType :: String -> P.XParse StickType+parseStickType s+ | s == "bass drum" = return $ StickTypeBassDrum+ | s == "double bass drum" = return $ StickTypeDoubleBassDrum+ | s == "glockenspiel" = return $ StickTypeGlockenspiel+ | s == "gum" = return $ StickTypeGum+ | s == "hammer" = return $ StickTypeHammer+ | s == "superball" = return $ StickTypeSuperball+ | s == "timpani" = return $ StickTypeTimpani+ | s == "wound" = return $ StickTypeWound+ | s == "xylophone" = return $ StickTypeXylophone+ | s == "yarn" = return $ StickTypeYarn+ | otherwise = P.xfail $ "StickType: " ++ s++-- | @string-number@ /(simple)/+--+-- The string-number type indicates a string number. Strings are numbered from high to low, with 1 being the highest pitched full-length string.+newtype StringNumber = StringNumber { stringNumber :: PositiveInteger }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show StringNumber where show (StringNumber a) = show a+instance Read StringNumber where readsPrec i = map (A.first StringNumber) . readsPrec i+instance EmitXml StringNumber where+ emitXml = emitXml . stringNumber+parseStringNumber :: String -> P.XParse StringNumber+parseStringNumber = P.xread "StringNumber"++-- | @syllabic@ /(simple)/+--+-- Lyric hyphenation is indicated by the syllabic type. The single, begin, end, and middle values represent single-syllable words, word-beginning syllables, word-ending syllables, and mid-word syllables, respectively.+data Syllabic = + SyllabicSingle -- ^ /single/+ | SyllabicBegin -- ^ /begin/+ | SyllabicEnd -- ^ /end/+ | SyllabicMiddle -- ^ /middle/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Syllabic where+ emitXml SyllabicSingle = XLit "single"+ emitXml SyllabicBegin = XLit "begin"+ emitXml SyllabicEnd = XLit "end"+ emitXml SyllabicMiddle = XLit "middle"+parseSyllabic :: String -> P.XParse Syllabic+parseSyllabic s+ | s == "single" = return $ SyllabicSingle+ | s == "begin" = return $ SyllabicBegin+ | s == "end" = return $ SyllabicEnd+ | s == "middle" = return $ SyllabicMiddle+ | otherwise = P.xfail $ "Syllabic: " ++ s++-- | @symbol-size@ /(simple)/+--+-- The symbol-size type is used to distinguish between full, cue sized, grace cue sized, and oversized symbols.+data SymbolSize = + SymbolSizeFull -- ^ /full/+ | SymbolSizeCue -- ^ /cue/+ | SymbolSizeGraceCue -- ^ /grace-cue/+ | SymbolSizeLarge -- ^ /large/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SymbolSize where+ emitXml SymbolSizeFull = XLit "full"+ emitXml SymbolSizeCue = XLit "cue"+ emitXml SymbolSizeGraceCue = XLit "grace-cue"+ emitXml SymbolSizeLarge = XLit "large"+parseSymbolSize :: String -> P.XParse SymbolSize+parseSymbolSize s+ | s == "full" = return $ SymbolSizeFull+ | s == "cue" = return $ SymbolSizeCue+ | s == "grace-cue" = return $ SymbolSizeGraceCue+ | s == "large" = return $ SymbolSizeLarge+ | otherwise = P.xfail $ "SymbolSize: " ++ s++-- | @tap-hand@ /(simple)/+--+-- The tap-hand type represents the symbol to use for a tap element. The left and right values refer to the SMuFL guitarLeftHandTapping and guitarRightHandTapping glyphs respectively.+data TapHand = + TapHandLeft -- ^ /left/+ | TapHandRight -- ^ /right/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TapHand where+ emitXml TapHandLeft = XLit "left"+ emitXml TapHandRight = XLit "right"+parseTapHand :: String -> P.XParse TapHand+parseTapHand s+ | s == "left" = return $ TapHandLeft+ | s == "right" = return $ TapHandRight+ | otherwise = P.xfail $ "TapHand: " ++ s++-- | @tenths@ /(simple)/+--+-- The tenths type is a number representing tenths of interline staff space (positive or negative). Both integer and decimal values are allowed, such as 5 for a half space and 2.5 for a quarter space. Interline space is measured from the middle of a staff line.+-- +-- Distances in a MusicXML file are measured in tenths of staff space. Tenths are then scaled to millimeters within the scaling element, used in the defaults element at the start of a score. Individual staves can apply a scaling factor to adjust staff size. When a MusicXML element or attribute refers to tenths, it means the global tenths defined by the scaling element, not the local tenths as adjusted by the staff-size element.+newtype Tenths = Tenths { tenths :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show Tenths where show (Tenths a) = show a+instance Read Tenths where readsPrec i = map (A.first Tenths) . readsPrec i+instance EmitXml Tenths where+ emitXml = emitXml . tenths+parseTenths :: String -> P.XParse Tenths+parseTenths = P.xread "Tenths"++-- | @text-direction@ /(simple)/+--+-- The text-direction type is used to adjust and override the Unicode bidirectional text algorithm, similar to the W3C Internationalization Tag Set recommendation. Values are ltr (left-to-right embed), rtl (right-to-left embed), lro (left-to-right bidi-override), and rlo (right-to-left bidi-override). The default value is ltr. This type is typically used by applications that store text in left-to-right visual order rather than logical order. Such applications can use the lro value to better communicate with other applications that more fully support bidirectional text.+data TextDirection = + TextDirectionLtr -- ^ /ltr/+ | TextDirectionRtl -- ^ /rtl/+ | TextDirectionLro -- ^ /lro/+ | TextDirectionRlo -- ^ /rlo/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TextDirection where+ emitXml TextDirectionLtr = XLit "ltr"+ emitXml TextDirectionRtl = XLit "rtl"+ emitXml TextDirectionLro = XLit "lro"+ emitXml TextDirectionRlo = XLit "rlo"+parseTextDirection :: String -> P.XParse TextDirection+parseTextDirection s+ | s == "ltr" = return $ TextDirectionLtr+ | s == "rtl" = return $ TextDirectionRtl+ | s == "lro" = return $ TextDirectionLro+ | s == "rlo" = return $ TextDirectionRlo+ | otherwise = P.xfail $ "TextDirection: " ++ s++-- | @tied-type@ /(simple)/+--+-- The tied-type type is used as an attribute of the tied element to specify where the visual representation of a tie begins and ends. A tied element which joins two notes of the same pitch can be specified with tied-type start on the first note and tied-type stop on the second note. To indicate a note should be undamped, use a single tied element with tied-type let-ring. For other ties that are visually attached to a single note, such as a tie leading into or out of a repeated section or coda, use two tied elements on the same note, one start and one stop.+-- +-- In start-stop cases, ties can add more elements using a continue type. This is typically used to specify the formatting of cross-system ties.+data TiedType = + TiedTypeStart -- ^ /start/+ | TiedTypeStop -- ^ /stop/+ | TiedTypeContinue -- ^ /continue/+ | TiedTypeLetRing -- ^ /let-ring/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TiedType where+ emitXml TiedTypeStart = XLit "start"+ emitXml TiedTypeStop = XLit "stop"+ emitXml TiedTypeContinue = XLit "continue"+ emitXml TiedTypeLetRing = XLit "let-ring"+parseTiedType :: String -> P.XParse TiedType+parseTiedType s+ | s == "start" = return $ TiedTypeStart+ | s == "stop" = return $ TiedTypeStop+ | s == "continue" = return $ TiedTypeContinue+ | s == "let-ring" = return $ TiedTypeLetRing+ | otherwise = P.xfail $ "TiedType: " ++ s++-- | @time-only@ /(simple)/+--+-- The time-only type is used to indicate that a particular playback-related element only applies particular times through a repeated section. The value is a comma-separated list of positive integers arranged in ascending order, indicating which times through the repeated section that the element applies.+newtype TimeOnly = TimeOnly { timeOnly :: Token }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show TimeOnly where show (TimeOnly a) = show a+instance Read TimeOnly where readsPrec i = map (A.first TimeOnly) . readsPrec i+instance EmitXml TimeOnly where+ emitXml = emitXml . timeOnly+parseTimeOnly :: String -> P.XParse TimeOnly+parseTimeOnly = return . fromString++-- | @time-relation@ /(simple)/+--+-- The time-relation type indicates the symbol used to represent the interchangeable aspect of dual time signatures.+data TimeRelation = + TimeRelationParentheses -- ^ /parentheses/+ | TimeRelationBracket -- ^ /bracket/+ | TimeRelationEquals -- ^ /equals/+ | TimeRelationSlash -- ^ /slash/+ | TimeRelationSpace -- ^ /space/+ | TimeRelationHyphen -- ^ /hyphen/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TimeRelation where+ emitXml TimeRelationParentheses = XLit "parentheses"+ emitXml TimeRelationBracket = XLit "bracket"+ emitXml TimeRelationEquals = XLit "equals"+ emitXml TimeRelationSlash = XLit "slash"+ emitXml TimeRelationSpace = XLit "space"+ emitXml TimeRelationHyphen = XLit "hyphen"+parseTimeRelation :: String -> P.XParse TimeRelation+parseTimeRelation s+ | s == "parentheses" = return $ TimeRelationParentheses+ | s == "bracket" = return $ TimeRelationBracket+ | s == "equals" = return $ TimeRelationEquals+ | s == "slash" = return $ TimeRelationSlash+ | s == "space" = return $ TimeRelationSpace+ | s == "hyphen" = return $ TimeRelationHyphen+ | otherwise = P.xfail $ "TimeRelation: " ++ s++-- | @time-separator@ /(simple)/+--+-- The time-separator type indicates how to display the arrangement between the beats and beat-type values in a time signature. The default value is none. The horizontal, diagonal, and vertical values represent horizontal, diagonal lower-left to upper-right, and vertical lines respectively. For these values, the beats and beat-type values are arranged on either side of the separator line. The none value represents no separator with the beats and beat-type arranged vertically. The adjacent value represents no separator with the beats and beat-type arranged horizontally.+data TimeSeparator = + TimeSeparatorNone -- ^ /none/+ | TimeSeparatorHorizontal -- ^ /horizontal/+ | TimeSeparatorDiagonal -- ^ /diagonal/+ | TimeSeparatorVertical -- ^ /vertical/+ | TimeSeparatorAdjacent -- ^ /adjacent/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TimeSeparator where+ emitXml TimeSeparatorNone = XLit "none"+ emitXml TimeSeparatorHorizontal = XLit "horizontal"+ emitXml TimeSeparatorDiagonal = XLit "diagonal"+ emitXml TimeSeparatorVertical = XLit "vertical"+ emitXml TimeSeparatorAdjacent = XLit "adjacent"+parseTimeSeparator :: String -> P.XParse TimeSeparator+parseTimeSeparator s+ | s == "none" = return $ TimeSeparatorNone+ | s == "horizontal" = return $ TimeSeparatorHorizontal+ | s == "diagonal" = return $ TimeSeparatorDiagonal+ | s == "vertical" = return $ TimeSeparatorVertical+ | s == "adjacent" = return $ TimeSeparatorAdjacent+ | otherwise = P.xfail $ "TimeSeparator: " ++ s++-- | @time-symbol@ /(simple)/+--+-- The time-symbol type indicates how to display a time signature. The normal value is the usual fractional display, and is the implied symbol type if none is specified. Other options are the common and cut time symbols, as well as a single number with an implied denominator. The note symbol indicates that the beat-type should be represented with the corresponding downstem note rather than a number. The dotted-note symbol indicates that the beat-type should be represented with a dotted downstem note that corresponds to three times the beat-type value, and a numerator that is one third the beats value.+data TimeSymbol = + TimeSymbolCommon -- ^ /common/+ | TimeSymbolCut -- ^ /cut/+ | TimeSymbolSingleNumber -- ^ /single-number/+ | TimeSymbolNote -- ^ /note/+ | TimeSymbolDottedNote -- ^ /dotted-note/+ | TimeSymbolNormal -- ^ /normal/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TimeSymbol where+ emitXml TimeSymbolCommon = XLit "common"+ emitXml TimeSymbolCut = XLit "cut"+ emitXml TimeSymbolSingleNumber = XLit "single-number"+ emitXml TimeSymbolNote = XLit "note"+ emitXml TimeSymbolDottedNote = XLit "dotted-note"+ emitXml TimeSymbolNormal = XLit "normal"+parseTimeSymbol :: String -> P.XParse TimeSymbol+parseTimeSymbol s+ | s == "common" = return $ TimeSymbolCommon+ | s == "cut" = return $ TimeSymbolCut+ | s == "single-number" = return $ TimeSymbolSingleNumber+ | s == "note" = return $ TimeSymbolNote+ | s == "dotted-note" = return $ TimeSymbolDottedNote+ | s == "normal" = return $ TimeSymbolNormal+ | otherwise = P.xfail $ "TimeSymbol: " ++ s++-- | @tip-direction@ /(simple)/+--+-- The tip-direction type represents the direction in which the tip of a stick or beater points, using Unicode arrow terminology.+data TipDirection = + TipDirectionUp -- ^ /up/+ | TipDirectionDown -- ^ /down/+ | TipDirectionLeft -- ^ /left/+ | TipDirectionRight -- ^ /right/+ | TipDirectionNorthwest -- ^ /northwest/+ | TipDirectionNortheast -- ^ /northeast/+ | TipDirectionSoutheast -- ^ /southeast/+ | TipDirectionSouthwest -- ^ /southwest/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TipDirection where+ emitXml TipDirectionUp = XLit "up"+ emitXml TipDirectionDown = XLit "down"+ emitXml TipDirectionLeft = XLit "left"+ emitXml TipDirectionRight = XLit "right"+ emitXml TipDirectionNorthwest = XLit "northwest"+ emitXml TipDirectionNortheast = XLit "northeast"+ emitXml TipDirectionSoutheast = XLit "southeast"+ emitXml TipDirectionSouthwest = XLit "southwest"+parseTipDirection :: String -> P.XParse TipDirection+parseTipDirection s+ | s == "up" = return $ TipDirectionUp+ | s == "down" = return $ TipDirectionDown+ | s == "left" = return $ TipDirectionLeft+ | s == "right" = return $ TipDirectionRight+ | s == "northwest" = return $ TipDirectionNorthwest+ | s == "northeast" = return $ TipDirectionNortheast+ | s == "southeast" = return $ TipDirectionSoutheast+ | s == "southwest" = return $ TipDirectionSouthwest+ | otherwise = P.xfail $ "TipDirection: " ++ s++-- | @xs:token@ /(simple)/+newtype Token = Token { token :: NormalizedString }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show Token where show (Token a) = show a+instance Read Token where readsPrec i = map (A.first Token) . readsPrec i+instance EmitXml Token where+ emitXml = emitXml . token+parseToken :: String -> P.XParse Token+parseToken = return . fromString++-- | @top-bottom@ /(simple)/+--+-- The top-bottom type is used to indicate the top or bottom part of a vertical shape like non-arpeggiate.+data TopBottom = + TopBottomTop -- ^ /top/+ | TopBottomBottom -- ^ /bottom/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TopBottom where+ emitXml TopBottomTop = XLit "top"+ emitXml TopBottomBottom = XLit "bottom"+parseTopBottom :: String -> P.XParse TopBottom+parseTopBottom s+ | s == "top" = return $ TopBottomTop+ | s == "bottom" = return $ TopBottomBottom+ | otherwise = P.xfail $ "TopBottom: " ++ s++-- | @tremolo-marks@ /(simple)/+--+-- The number of tremolo marks is represented by a number from 0 to 8: the same as beam-level with 0 added.+newtype TremoloMarks = TremoloMarks { tremoloMarks :: Int }+ deriving (Eq,Typeable,Generic,Ord,Bounded,Enum,Num,Real,Integral)+instance Show TremoloMarks where show (TremoloMarks a) = show a+instance Read TremoloMarks where readsPrec i = map (A.first TremoloMarks) . readsPrec i+instance EmitXml TremoloMarks where+ emitXml = emitXml . tremoloMarks+parseTremoloMarks :: String -> P.XParse TremoloMarks+parseTremoloMarks = P.xread "TremoloMarks"++-- | @tremolo-type@ /(simple)/+--+-- The tremolo-type is used to distinguish multi-note, single-note, and unmeasured tremolos.+data TremoloType = + TremoloTypeStart -- ^ /start/+ | TremoloTypeStop -- ^ /stop/+ | TremoloTypeSingle -- ^ /single/+ | TremoloTypeUnmeasured -- ^ /unmeasured/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TremoloType where+ emitXml TremoloTypeStart = XLit "start"+ emitXml TremoloTypeStop = XLit "stop"+ emitXml TremoloTypeSingle = XLit "single"+ emitXml TremoloTypeUnmeasured = XLit "unmeasured"+parseTremoloType :: String -> P.XParse TremoloType+parseTremoloType s+ | s == "start" = return $ TremoloTypeStart+ | s == "stop" = return $ TremoloTypeStop+ | s == "single" = return $ TremoloTypeSingle+ | s == "unmeasured" = return $ TremoloTypeUnmeasured+ | otherwise = P.xfail $ "TremoloType: " ++ s++-- | @trill-beats@ /(simple)/+--+-- The trill-beats type specifies the beats used in a trill-sound or bend-sound attribute group. It is a decimal value with a minimum value of 2.+newtype TrillBeats = TrillBeats { trillBeats :: Decimal }+ deriving (Eq,Typeable,Generic,Ord,Num,Real,Fractional,RealFrac)+instance Show TrillBeats where show (TrillBeats a) = show a+instance Read TrillBeats where readsPrec i = map (A.first TrillBeats) . readsPrec i+instance EmitXml TrillBeats where+ emitXml = emitXml . trillBeats+parseTrillBeats :: String -> P.XParse TrillBeats+parseTrillBeats = P.xread "TrillBeats"++-- | @trill-step@ /(simple)/+--+-- The trill-step type describes the alternating note of trills and mordents for playback, relative to the current note.+data TrillStep = + TrillStepWhole -- ^ /whole/+ | TrillStepHalf -- ^ /half/+ | TrillStepUnison -- ^ /unison/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TrillStep where+ emitXml TrillStepWhole = XLit "whole"+ emitXml TrillStepHalf = XLit "half"+ emitXml TrillStepUnison = XLit "unison"+parseTrillStep :: String -> P.XParse TrillStep+parseTrillStep s+ | s == "whole" = return $ TrillStepWhole+ | s == "half" = return $ TrillStepHalf+ | s == "unison" = return $ TrillStepUnison+ | otherwise = P.xfail $ "TrillStep: " ++ s++-- | @two-note-turn@ /(simple)/+--+-- The two-note-turn type describes the ending notes of trills and mordents for playback, relative to the current note.+data TwoNoteTurn = + TwoNoteTurnWhole -- ^ /whole/+ | TwoNoteTurnHalf -- ^ /half/+ | TwoNoteTurnNone -- ^ /none/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml TwoNoteTurn where+ emitXml TwoNoteTurnWhole = XLit "whole"+ emitXml TwoNoteTurnHalf = XLit "half"+ emitXml TwoNoteTurnNone = XLit "none"+parseTwoNoteTurn :: String -> P.XParse TwoNoteTurn+parseTwoNoteTurn s+ | s == "whole" = return $ TwoNoteTurnWhole+ | s == "half" = return $ TwoNoteTurnHalf+ | s == "none" = return $ TwoNoteTurnNone+ | otherwise = P.xfail $ "TwoNoteTurn: " ++ s++-- | @xlink:type@ /(simple)/+data Type = + TypeSimple -- ^ /simple/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Type where+ emitXml TypeSimple = XLit "simple"+parseType :: String -> P.XParse Type+parseType s+ | s == "simple" = return $ TypeSimple+ | otherwise = P.xfail $ "Type: " ++ s++-- | @up-down@ /(simple)/+--+-- The up-down type is used for the direction of arrows and other pointed symbols like vertical accents, indicating which way the tip is pointing.+data UpDown = + UpDownUp -- ^ /up/+ | UpDownDown -- ^ /down/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml UpDown where+ emitXml UpDownUp = XLit "up"+ emitXml UpDownDown = XLit "down"+parseUpDown :: String -> P.XParse UpDown+parseUpDown s+ | s == "up" = return $ UpDownUp+ | s == "down" = return $ UpDownDown+ | otherwise = P.xfail $ "UpDown: " ++ s++-- | @up-down-stop-continue@ /(simple)/+--+-- The up-down-stop-continue type is used for octave-shift elements, indicating the direction of the shift from their true pitched values because of printing difficulty.+data UpDownStopContinue = + UpDownStopContinueUp -- ^ /up/+ | UpDownStopContinueDown -- ^ /down/+ | UpDownStopContinueStop -- ^ /stop/+ | UpDownStopContinueContinue -- ^ /continue/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml UpDownStopContinue where+ emitXml UpDownStopContinueUp = XLit "up"+ emitXml UpDownStopContinueDown = XLit "down"+ emitXml UpDownStopContinueStop = XLit "stop"+ emitXml UpDownStopContinueContinue = XLit "continue"+parseUpDownStopContinue :: String -> P.XParse UpDownStopContinue+parseUpDownStopContinue s+ | s == "up" = return $ UpDownStopContinueUp+ | s == "down" = return $ UpDownStopContinueDown+ | s == "stop" = return $ UpDownStopContinueStop+ | s == "continue" = return $ UpDownStopContinueContinue+ | otherwise = P.xfail $ "UpDownStopContinue: " ++ s++-- | @upright-inverted@ /(simple)/+--+-- The upright-inverted type describes the appearance of a fermata element. The value is upright if not specified.+data UprightInverted = + UprightInvertedUpright -- ^ /upright/+ | UprightInvertedInverted -- ^ /inverted/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml UprightInverted where+ emitXml UprightInvertedUpright = XLit "upright"+ emitXml UprightInvertedInverted = XLit "inverted"+parseUprightInverted :: String -> P.XParse UprightInverted+parseUprightInverted s+ | s == "upright" = return $ UprightInvertedUpright+ | s == "inverted" = return $ UprightInvertedInverted+ | otherwise = P.xfail $ "UprightInverted: " ++ s++-- | @valign@ /(simple)/+--+-- The valign type is used to indicate vertical alignment to the top, middle, bottom, or baseline of the text. Defaults are implementation-dependent.+data Valign = + ValignTop -- ^ /top/+ | ValignMiddle -- ^ /middle/+ | ValignBottom -- ^ /bottom/+ | ValignBaseline -- ^ /baseline/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Valign where+ emitXml ValignTop = XLit "top"+ emitXml ValignMiddle = XLit "middle"+ emitXml ValignBottom = XLit "bottom"+ emitXml ValignBaseline = XLit "baseline"+parseValign :: String -> P.XParse Valign+parseValign s+ | s == "top" = return $ ValignTop+ | s == "middle" = return $ ValignMiddle+ | s == "bottom" = return $ ValignBottom+ | s == "baseline" = return $ ValignBaseline+ | otherwise = P.xfail $ "Valign: " ++ s++-- | @valign-image@ /(simple)/+--+-- The valign-image type is used to indicate vertical alignment for images and graphics, so it does not include a baseline value. Defaults are implementation-dependent.+data ValignImage = + ValignImageTop -- ^ /top/+ | ValignImageMiddle -- ^ /middle/+ | ValignImageBottom -- ^ /bottom/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml ValignImage where+ emitXml ValignImageTop = XLit "top"+ emitXml ValignImageMiddle = XLit "middle"+ emitXml ValignImageBottom = XLit "bottom"+parseValignImage :: String -> P.XParse ValignImage+parseValignImage s+ | s == "top" = return $ ValignImageTop+ | s == "middle" = return $ ValignImageMiddle+ | s == "bottom" = return $ ValignImageBottom+ | otherwise = P.xfail $ "ValignImage: " ++ s++-- | @wedge-type@ /(simple)/+--+-- The wedge type is crescendo for the start of a wedge that is closed at the left side, diminuendo for the start of a wedge that is closed on the right side, and stop for the end of a wedge. The continue type is used for formatting wedges over a system break, or for other situations where a single wedge is divided into multiple segments.+data WedgeType = + WedgeTypeCrescendo -- ^ /crescendo/+ | WedgeTypeDiminuendo -- ^ /diminuendo/+ | WedgeTypeStop -- ^ /stop/+ | WedgeTypeContinue -- ^ /continue/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml WedgeType where+ emitXml WedgeTypeCrescendo = XLit "crescendo"+ emitXml WedgeTypeDiminuendo = XLit "diminuendo"+ emitXml WedgeTypeStop = XLit "stop"+ emitXml WedgeTypeContinue = XLit "continue"+parseWedgeType :: String -> P.XParse WedgeType+parseWedgeType s+ | s == "crescendo" = return $ WedgeTypeCrescendo+ | s == "diminuendo" = return $ WedgeTypeDiminuendo+ | s == "stop" = return $ WedgeTypeStop+ | s == "continue" = return $ WedgeTypeContinue+ | otherwise = P.xfail $ "WedgeType: " ++ s++-- | @winged@ /(simple)/+--+-- The winged attribute indicates whether the repeat has winged extensions that appear above and below the barline. The straight and curved values represent single wings, while the double-straight and double-curved values represent double wings. The none value indicates no wings and is the default.+data Winged = + WingedNone -- ^ /none/+ | WingedStraight -- ^ /straight/+ | WingedCurved -- ^ /curved/+ | WingedDoubleStraight -- ^ /double-straight/+ | WingedDoubleCurved -- ^ /double-curved/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Winged where+ emitXml WingedNone = XLit "none"+ emitXml WingedStraight = XLit "straight"+ emitXml WingedCurved = XLit "curved"+ emitXml WingedDoubleStraight = XLit "double-straight"+ emitXml WingedDoubleCurved = XLit "double-curved"+parseWinged :: String -> P.XParse Winged+parseWinged s+ | s == "none" = return $ WingedNone+ | s == "straight" = return $ WingedStraight+ | s == "curved" = return $ WingedCurved+ | s == "double-straight" = return $ WingedDoubleStraight+ | s == "double-curved" = return $ WingedDoubleCurved+ | otherwise = P.xfail $ "Winged: " ++ s++-- | @wood@ /(simple)/+--+-- The wood type represents pictograms for wood percussion instruments. The maraca and maracas values distinguish the one- and two-maraca versions of the pictogram.+data Wood = + WoodBambooScraper -- ^ /bamboo scraper/+ | WoodBoardClapper -- ^ /board clapper/+ | WoodCabasa -- ^ /cabasa/+ | WoodCastanets -- ^ /castanets/+ | WoodCastanetsWithHandle -- ^ /castanets with handle/+ | WoodClaves -- ^ /claves/+ | WoodFootballRattle -- ^ /football rattle/+ | WoodGuiro -- ^ /guiro/+ | WoodLogDrum -- ^ /log drum/+ | WoodMaraca -- ^ /maraca/+ | WoodMaracas -- ^ /maracas/+ | WoodQuijada -- ^ /quijada/+ | WoodRainstick -- ^ /rainstick/+ | WoodRatchet -- ^ /ratchet/+ | WoodRecoReco -- ^ /reco-reco/+ | WoodSandpaperBlocks -- ^ /sandpaper blocks/+ | WoodSlitDrum -- ^ /slit drum/+ | WoodTempleBlock -- ^ /temple block/+ | WoodVibraslap -- ^ /vibraslap/+ | WoodWhip -- ^ /whip/+ | WoodWoodBlock -- ^ /wood block/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml Wood where+ emitXml WoodBambooScraper = XLit "bamboo scraper"+ emitXml WoodBoardClapper = XLit "board clapper"+ emitXml WoodCabasa = XLit "cabasa"+ emitXml WoodCastanets = XLit "castanets"+ emitXml WoodCastanetsWithHandle = XLit "castanets with handle"+ emitXml WoodClaves = XLit "claves"+ emitXml WoodFootballRattle = XLit "football rattle"+ emitXml WoodGuiro = XLit "guiro"+ emitXml WoodLogDrum = XLit "log drum"+ emitXml WoodMaraca = XLit "maraca"+ emitXml WoodMaracas = XLit "maracas"+ emitXml WoodQuijada = XLit "quijada"+ emitXml WoodRainstick = XLit "rainstick"+ emitXml WoodRatchet = XLit "ratchet"+ emitXml WoodRecoReco = XLit "reco-reco"+ emitXml WoodSandpaperBlocks = XLit "sandpaper blocks"+ emitXml WoodSlitDrum = XLit "slit drum"+ emitXml WoodTempleBlock = XLit "temple block"+ emitXml WoodVibraslap = XLit "vibraslap"+ emitXml WoodWhip = XLit "whip"+ emitXml WoodWoodBlock = XLit "wood block"+parseWood :: String -> P.XParse Wood+parseWood s+ | s == "bamboo scraper" = return $ WoodBambooScraper+ | s == "board clapper" = return $ WoodBoardClapper+ | s == "cabasa" = return $ WoodCabasa+ | s == "castanets" = return $ WoodCastanets+ | s == "castanets with handle" = return $ WoodCastanetsWithHandle+ | s == "claves" = return $ WoodClaves+ | s == "football rattle" = return $ WoodFootballRattle+ | s == "guiro" = return $ WoodGuiro+ | s == "log drum" = return $ WoodLogDrum+ | s == "maraca" = return $ WoodMaraca+ | s == "maracas" = return $ WoodMaracas+ | s == "quijada" = return $ WoodQuijada+ | s == "rainstick" = return $ WoodRainstick+ | s == "ratchet" = return $ WoodRatchet+ | s == "reco-reco" = return $ WoodRecoReco+ | s == "sandpaper blocks" = return $ WoodSandpaperBlocks+ | s == "slit drum" = return $ WoodSlitDrum+ | s == "temple block" = return $ WoodTempleBlock+ | s == "vibraslap" = return $ WoodVibraslap+ | s == "whip" = return $ WoodWhip+ | s == "wood block" = return $ WoodWoodBlock+ | otherwise = P.xfail $ "Wood: " ++ s++-- | @yes-no@ /(simple)/+--+-- The yes-no type is used for boolean-like attributes. We cannot use W3C XML Schema booleans due to their restrictions on expression of boolean values.+data YesNo = + YesNoYes -- ^ /yes/+ | YesNoNo -- ^ /no/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml YesNo where+ emitXml YesNoYes = XLit "yes"+ emitXml YesNoNo = XLit "no"+parseYesNo :: String -> P.XParse YesNo+parseYesNo s+ | s == "yes" = return $ YesNoYes+ | s == "no" = return $ YesNoNo+ | otherwise = P.xfail $ "YesNo: " ++ s++-- | @yes-no-number@ /(simple)/+--+-- The yes-no-number type is used for attributes that can be either boolean or numeric values.+data YesNoNumber = + YesNoNumberYesNo {+ yesNoNumber1 :: YesNo+ }+ | YesNoNumberDecimal {+ yesNoNumber2 :: Decimal+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml YesNoNumber where+ emitXml (YesNoNumberYesNo a) = emitXml a+ emitXml (YesNoNumberDecimal a) = emitXml a+parseYesNoNumber :: String -> P.XParse YesNoNumber+parseYesNoNumber s = + YesNoNumberYesNo+ <$> parseYesNo s+ <|> YesNoNumberDecimal+ <$> (P.xread "Decimal") s+++-- | @yyyy-mm-dd@ /(simple)/+--+-- Calendar dates are represented yyyy-mm-dd format, following ISO 8601. This is a W3C XML Schema date type, but without the optional timezone data.+newtype YyyyMmDd = YyyyMmDd { yyyyMmDd :: String }+ deriving (Eq,Typeable,Generic,Ord,IsString)+instance Show YyyyMmDd where show (YyyyMmDd a) = show a+instance Read YyyyMmDd where readsPrec i = map (A.first YyyyMmDd) . readsPrec i+instance EmitXml YyyyMmDd where+ emitXml = emitXml . yyyyMmDd+parseYyyyMmDd :: String -> P.XParse YyyyMmDd+parseYyyyMmDd = return . fromString++-- | @xml:lang@ /(union)/+data SumLang = + SumLang -- ^ //+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SumLang where+ emitXml SumLang = XLit ""+parseSumLang :: String -> P.XParse SumLang+parseSumLang s+ | s == "" = return $ SumLang+ | otherwise = P.xfail $ "SumLang: " ++ s++-- | @number-or-normal@ /(union)/+data SumNumberOrNormal = + NumberOrNormalNormal -- ^ /normal/+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SumNumberOrNormal where+ emitXml NumberOrNormalNormal = XLit "normal"+parseSumNumberOrNormal :: String -> P.XParse SumNumberOrNormal+parseSumNumberOrNormal s+ | s == "normal" = return $ NumberOrNormalNormal+ | otherwise = P.xfail $ "SumNumberOrNormal: " ++ s++-- | @positive-integer-or-empty@ /(union)/+data SumPositiveIntegerOrEmpty = + SumPositiveIntegerOrEmpty -- ^ //+ deriving (Eq,Typeable,Generic,Show,Ord,Enum,Bounded)+instance EmitXml SumPositiveIntegerOrEmpty where+ emitXml SumPositiveIntegerOrEmpty = XLit ""+parseSumPositiveIntegerOrEmpty :: String -> P.XParse SumPositiveIntegerOrEmpty+parseSumPositiveIntegerOrEmpty s+ | s == "" = return $ SumPositiveIntegerOrEmpty+ | otherwise = P.xfail $ "SumPositiveIntegerOrEmpty: " ++ s++-- | @accidental@ /(complex)/+--+-- The accidental type represents actual notated accidentals. Editorial and cautionary indications are indicated by attributes. Values for these attributes are "no" if not present. Specific graphic display such as parentheses, brackets, and size are controlled by the level-display attribute group.+data Accidental = + Accidental {+ accidentalAccidentalValue :: AccidentalValue -- ^ text content+ , accidentalCautionary :: (Maybe YesNo) -- ^ /cautionary/ attribute+ , accidentalEditorial :: (Maybe YesNo) -- ^ /editorial/ attribute+ , accidentalSmufl :: (Maybe SmuflAccidentalGlyphName) -- ^ /smufl/ attribute+ , accidentalParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , accidentalBracket :: (Maybe YesNo) -- ^ /bracket/ attribute+ , accidentalSize :: (Maybe SymbolSize) -- ^ /size/ attribute+ , accidentalDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , accidentalDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , accidentalRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , accidentalRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , accidentalFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , accidentalFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , accidentalFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , accidentalFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , accidentalColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Accidental where+ emitXml (Accidental a b c d e f g h i j k l m n o p) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "cautionary" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "editorial" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "bracket" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) p])+ []+parseAccidental :: P.XParse Accidental+parseAccidental = + Accidental+ <$> (P.xtext >>= parseAccidentalValue)+ <*> P.optional (P.xattr (P.name "cautionary") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "editorial") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflAccidentalGlyphName)+ <*> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "bracket") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "size") >>= parseSymbolSize)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Accidental'+mkAccidental :: AccidentalValue -> Accidental+mkAccidental a = Accidental a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @accidental-mark@ /(complex)/+--+-- An accidental-mark can be used as a separate notation or as part of an ornament. When used in an ornament, position and placement are relative to the ornament, not relative to the note.+data AccidentalMark = + AccidentalMark {+ accidentalMarkAccidentalValue :: AccidentalValue -- ^ text content+ , accidentalMarkSmufl :: (Maybe SmuflAccidentalGlyphName) -- ^ /smufl/ attribute+ , accidentalMarkParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , accidentalMarkBracket :: (Maybe YesNo) -- ^ /bracket/ attribute+ , accidentalMarkSize :: (Maybe SymbolSize) -- ^ /size/ attribute+ , accidentalMarkDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , accidentalMarkDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , accidentalMarkRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , accidentalMarkRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , accidentalMarkFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , accidentalMarkFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , accidentalMarkFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , accidentalMarkFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , accidentalMarkColor :: (Maybe Color) -- ^ /color/ attribute+ , accidentalMarkPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , accidentalMarkId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml AccidentalMark where+ emitXml (AccidentalMark a b c d e f g h i j k l m n o p) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "bracket" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "size" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) p])+ []+parseAccidentalMark :: P.XParse AccidentalMark+parseAccidentalMark = + AccidentalMark+ <$> (P.xtext >>= parseAccidentalValue)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflAccidentalGlyphName)+ <*> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "bracket") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "size") >>= parseSymbolSize)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'AccidentalMark'+mkAccidentalMark :: AccidentalValue -> AccidentalMark+mkAccidentalMark a = AccidentalMark a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @accidental-text@ /(complex)/+--+-- The accidental-text type represents an element with an accidental value and text-formatting attributes.+data AccidentalText = + AccidentalText {+ accidentalTextAccidentalValue :: AccidentalValue -- ^ text content+ , accidentalTextSmufl :: (Maybe SmuflAccidentalGlyphName) -- ^ /smufl/ attribute+ , accidentalTextLang :: (Maybe Lang) -- ^ /xml:lang/ attribute+ , accidentalTextSpace :: (Maybe Space) -- ^ /xml:space/ attribute+ , accidentalTextJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ , accidentalTextDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , accidentalTextDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , accidentalTextRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , accidentalTextRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , accidentalTextFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , accidentalTextFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , accidentalTextFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , accidentalTextFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , accidentalTextColor :: (Maybe Color) -- ^ /color/ attribute+ , accidentalTextHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , accidentalTextValign :: (Maybe Valign) -- ^ /valign/ attribute+ , accidentalTextUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , accidentalTextOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , accidentalTextLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , accidentalTextRotation :: (Maybe RotationDegrees) -- ^ /rotation/ attribute+ , accidentalTextLetterSpacing :: (Maybe NumberOrNormal) -- ^ /letter-spacing/ attribute+ , accidentalTextLineHeight :: (Maybe NumberOrNormal) -- ^ /line-height/ attribute+ , accidentalTextDir :: (Maybe TextDirection) -- ^ /dir/ attribute+ , accidentalTextEnclosure :: (Maybe EnclosureShape) -- ^ /enclosure/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml AccidentalText where+ emitXml (AccidentalText a b c d e f g h i j k l m n o p q r s t u v w x) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "lang" (Just "xml")).emitXml) c] +++ [maybe XEmpty (XAttr (QN "space" (Just "xml")).emitXml) d] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) s] +++ [maybe XEmpty (XAttr (QN "rotation" Nothing).emitXml) t] +++ [maybe XEmpty (XAttr (QN "letter-spacing" Nothing).emitXml) u] +++ [maybe XEmpty (XAttr (QN "line-height" Nothing).emitXml) v] +++ [maybe XEmpty (XAttr (QN "dir" Nothing).emitXml) w] +++ [maybe XEmpty (XAttr (QN "enclosure" Nothing).emitXml) x])+ []+parseAccidentalText :: P.XParse AccidentalText+parseAccidentalText = + AccidentalText+ <$> (P.xtext >>= parseAccidentalValue)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflAccidentalGlyphName)+ <*> P.optional (P.xattr (P.name "xml:lang") >>= parseLang)+ <*> P.optional (P.xattr (P.name "xml:space") >>= parseSpace)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "rotation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "letter-spacing") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "line-height") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "dir") >>= parseTextDirection)+ <*> P.optional (P.xattr (P.name "enclosure") >>= parseEnclosureShape)++-- | Smart constructor for 'AccidentalText'+mkAccidentalText :: AccidentalValue -> AccidentalText+mkAccidentalText a = AccidentalText a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @accord@ /(complex)/+--+-- The accord type represents the tuning of a single string in the scordatura element. It uses the same group of elements as the staff-tuning element. Strings are numbered from high to low.+data Accord = + Accord {+ accordString :: (Maybe StringNumber) -- ^ /string/ attribute+ , accordTuning :: Tuning+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Accord where+ emitXml (Accord a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "string" Nothing).emitXml) a])+ ([emitXml b])+parseAccord :: P.XParse Accord+parseAccord = + Accord+ <$> P.optional (P.xattr (P.name "string") >>= parseStringNumber)+ <*> parseTuning++-- | Smart constructor for 'Accord'+mkAccord :: Tuning -> Accord+mkAccord b = Accord Nothing b++-- | @accordion-registration@ /(complex)/+--+-- The accordion-registration type is use for accordion registration symbols. These are circular symbols divided horizontally into high, middle, and low sections that correspond to 4', 8', and 16' pipes. Each accordion-high, accordion-middle, and accordion-low element represents the presence of one or more dots in the registration diagram. An accordion-registration element needs to have at least one of the child elements present.+data AccordionRegistration = + AccordionRegistration {+ accordionRegistrationDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , accordionRegistrationDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , accordionRegistrationRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , accordionRegistrationRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , accordionRegistrationFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , accordionRegistrationFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , accordionRegistrationFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , accordionRegistrationFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , accordionRegistrationColor :: (Maybe Color) -- ^ /color/ attribute+ , accordionRegistrationHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , accordionRegistrationValign :: (Maybe Valign) -- ^ /valign/ attribute+ , accordionRegistrationId :: (Maybe ID) -- ^ /id/ attribute+ , accordionRegistrationAccordionHigh :: (Maybe Empty) -- ^ /accordion-high/ child element+ , accordionRegistrationAccordionMiddle :: (Maybe AccordionMiddle) -- ^ /accordion-middle/ child element+ , accordionRegistrationAccordionLow :: (Maybe Empty) -- ^ /accordion-low/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml AccordionRegistration where+ emitXml (AccordionRegistration a b c d e f g h i j k l m n o) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) l])+ ([maybe XEmpty (XElement (QN "accordion-high" Nothing).emitXml) m] +++ [maybe XEmpty (XElement (QN "accordion-middle" Nothing).emitXml) n] +++ [maybe XEmpty (XElement (QN "accordion-low" Nothing).emitXml) o])+parseAccordionRegistration :: P.XParse AccordionRegistration+parseAccordionRegistration = + AccordionRegistration+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.optional (P.xchild (P.name "accordion-high") (parseEmpty))+ <*> P.optional (P.xchild (P.name "accordion-middle") (P.xtext >>= parseAccordionMiddle))+ <*> P.optional (P.xchild (P.name "accordion-low") (parseEmpty))++-- | Smart constructor for 'AccordionRegistration'+mkAccordionRegistration :: AccordionRegistration+mkAccordionRegistration = AccordionRegistration Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @appearance@ /(complex)/+--+-- The appearance type controls general graphical settings for the music's final form appearance on a printed page of display. This includes support for line widths, definitions for note sizes, and standard distances between notation elements, plus an extension element for other aspects of appearance.+data Appearance = + Appearance {+ appearanceLineWidth :: [LineWidth] -- ^ /line-width/ child element+ , appearanceNoteSize :: [NoteSize] -- ^ /note-size/ child element+ , appearanceDistance :: [Distance] -- ^ /distance/ child element+ , appearanceGlyph :: [Glyph] -- ^ /glyph/ child element+ , appearanceOtherAppearance :: [OtherAppearance] -- ^ /other-appearance/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Appearance where+ emitXml (Appearance a b c d e) =+ XContent XEmpty+ []+ (map (XElement (QN "line-width" Nothing).emitXml) a +++ map (XElement (QN "note-size" Nothing).emitXml) b +++ map (XElement (QN "distance" Nothing).emitXml) c +++ map (XElement (QN "glyph" Nothing).emitXml) d +++ map (XElement (QN "other-appearance" Nothing).emitXml) e)+parseAppearance :: P.XParse Appearance+parseAppearance = + Appearance+ <$> P.many (P.xchild (P.name "line-width") (parseLineWidth))+ <*> P.many (P.xchild (P.name "note-size") (parseNoteSize))+ <*> P.many (P.xchild (P.name "distance") (parseDistance))+ <*> P.many (P.xchild (P.name "glyph") (parseGlyph))+ <*> P.many (P.xchild (P.name "other-appearance") (parseOtherAppearance))++-- | Smart constructor for 'Appearance'+mkAppearance :: Appearance+mkAppearance = Appearance [] [] [] [] []++-- | @arpeggiate@ /(complex)/+--+-- The arpeggiate type indicates that this note is part of an arpeggiated chord. The number attribute can be used to distinguish between two simultaneous chords arpeggiated separately (different numbers) or together (same number). The up-down attribute is used if there is an arrow on the arpeggio sign. By default, arpeggios go from the lowest to highest note.+data Arpeggiate = + Arpeggiate {+ arpeggiateNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , arpeggiateDirection :: (Maybe UpDown) -- ^ /direction/ attribute+ , arpeggiateDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , arpeggiateDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , arpeggiateRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , arpeggiateRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , arpeggiatePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , arpeggiateColor :: (Maybe Color) -- ^ /color/ attribute+ , arpeggiateId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Arpeggiate where+ emitXml (Arpeggiate a b c d e f g h i) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "direction" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) i])+ []+parseArpeggiate :: P.XParse Arpeggiate+parseArpeggiate = + Arpeggiate+ <$> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "direction") >>= parseUpDown)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Arpeggiate'+mkArpeggiate :: Arpeggiate+mkArpeggiate = Arpeggiate Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @arrow@ /(complex)/+--+-- The arrow element represents an arrow used for a musical technical indication. It can represent both Unicode and SMuFL arrows. The presence of an arrowhead element indicates that only the arrowhead is displayed, not the arrow stem. The smufl attribute distinguishes different SMuFL glyphs that have an arrow appearance such as arrowBlackUp, guitarStrumUp, or handbellsSwingUp. The specified glyph should match the descriptive representation.+data Arrow = + Arrow {+ arrowDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , arrowDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , arrowRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , arrowRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , arrowFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , arrowFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , arrowFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , arrowFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , arrowColor :: (Maybe Color) -- ^ /color/ attribute+ , arrowPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , arrowSmufl :: (Maybe SmuflGlyphName) -- ^ /smufl/ attribute+ , arrowArrow :: ChxArrow+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Arrow where+ emitXml (Arrow a b c d e f g h i j k l) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) k])+ ([emitXml l])+parseArrow :: P.XParse Arrow+parseArrow = + Arrow+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflGlyphName)+ <*> parseChxArrow++-- | Smart constructor for 'Arrow'+mkArrow :: ChxArrow -> Arrow+mkArrow l = Arrow Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing l++-- | @articulations@ /(complex)/+--+-- Articulations and accents are grouped together here.+data Articulations = + Articulations {+ articulationsId :: (Maybe ID) -- ^ /id/ attribute+ , articulationsArticulations :: [ChxArticulations]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Articulations where+ emitXml (Articulations a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "id" Nothing).emitXml) a])+ ([emitXml b])+parseArticulations :: P.XParse Articulations+parseArticulations = + Articulations+ <$> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (parseChxArticulations)++-- | Smart constructor for 'Articulations'+mkArticulations :: Articulations+mkArticulations = Articulations Nothing []++-- | @attributes@ /(complex)/+--+-- The attributes element contains musical information that typically changes on measure boundaries. This includes key and time signatures, clefs, transpositions, and staving. When attributes are changed mid-measure, it affects the music in score order, not in MusicXML document order.+data Attributes = + Attributes {+ attributesEditorial :: Editorial+ , attributesDivisions :: (Maybe PositiveDivisions) -- ^ /divisions/ child element+ , attributesKey :: [Key] -- ^ /key/ child element+ , attributesTime :: [Time] -- ^ /time/ child element+ , attributesStaves :: (Maybe NonNegativeInteger) -- ^ /staves/ child element+ , attributesPartSymbol :: (Maybe PartSymbol) -- ^ /part-symbol/ child element+ , attributesInstruments :: (Maybe NonNegativeInteger) -- ^ /instruments/ child element+ , attributesClef :: [Clef] -- ^ /clef/ child element+ , attributesStaffDetails :: [StaffDetails] -- ^ /staff-details/ child element+ , attributesTranspose :: [Transpose] -- ^ /transpose/ child element+ , attributesDirective :: [Directive] -- ^ /directive/ child element+ , attributesMeasureStyle :: [MeasureStyle] -- ^ /measure-style/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Attributes where+ emitXml (Attributes a b c d e f g h i j k l) =+ XContent XEmpty+ []+ ([emitXml a] +++ [maybe XEmpty (XElement (QN "divisions" Nothing).emitXml) b] +++ map (XElement (QN "key" Nothing).emitXml) c +++ map (XElement (QN "time" Nothing).emitXml) d +++ [maybe XEmpty (XElement (QN "staves" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "part-symbol" Nothing).emitXml) f] +++ [maybe XEmpty (XElement (QN "instruments" Nothing).emitXml) g] +++ map (XElement (QN "clef" Nothing).emitXml) h +++ map (XElement (QN "staff-details" Nothing).emitXml) i +++ map (XElement (QN "transpose" Nothing).emitXml) j +++ map (XElement (QN "directive" Nothing).emitXml) k +++ map (XElement (QN "measure-style" Nothing).emitXml) l)+parseAttributes :: P.XParse Attributes+parseAttributes = + Attributes+ <$> parseEditorial+ <*> P.optional (P.xchild (P.name "divisions") (P.xtext >>= parsePositiveDivisions))+ <*> P.many (P.xchild (P.name "key") (parseKey))+ <*> P.many (P.xchild (P.name "time") (parseTime))+ <*> P.optional (P.xchild (P.name "staves") (P.xtext >>= parseNonNegativeInteger))+ <*> P.optional (P.xchild (P.name "part-symbol") (parsePartSymbol))+ <*> P.optional (P.xchild (P.name "instruments") (P.xtext >>= parseNonNegativeInteger))+ <*> P.many (P.xchild (P.name "clef") (parseClef))+ <*> P.many (P.xchild (P.name "staff-details") (parseStaffDetails))+ <*> P.many (P.xchild (P.name "transpose") (parseTranspose))+ <*> P.many (P.xchild (P.name "directive") (parseDirective))+ <*> P.many (P.xchild (P.name "measure-style") (parseMeasureStyle))++-- | Smart constructor for 'Attributes'+mkAttributes :: Editorial -> Attributes+mkAttributes a = Attributes a Nothing [] [] Nothing Nothing Nothing [] [] [] [] []++-- | @backup@ /(complex)/+--+-- The backup and forward elements are required to coordinate multiple voices in one part, including music on multiple staves. The backup type is generally used to move between voices and staves. Thus the backup element does not include voice or staff elements. Duration values should always be positive, and should not cross measure boundaries or mid-measure changes in the divisions value.+data Backup = + Backup {+ backupDuration :: Duration+ , backupEditorial :: Editorial+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Backup where+ emitXml (Backup a b) =+ XReps [emitXml a,emitXml b]+parseBackup :: P.XParse Backup+parseBackup = + Backup+ <$> parseDuration+ <*> parseEditorial++-- | Smart constructor for 'Backup'+mkBackup :: Duration -> Editorial -> Backup+mkBackup a b = Backup a b++-- | @bar-style-color@ /(complex)/+--+-- The bar-style-color type contains barline style and color information.+data BarStyleColor = + BarStyleColor {+ barStyleColorBarStyle :: BarStyle -- ^ text content+ , barStyleColorColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BarStyleColor where+ emitXml (BarStyleColor a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "color" Nothing).emitXml) b])+ []+parseBarStyleColor :: P.XParse BarStyleColor+parseBarStyleColor = + BarStyleColor+ <$> (P.xtext >>= parseBarStyle)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'BarStyleColor'+mkBarStyleColor :: BarStyle -> BarStyleColor+mkBarStyleColor a = BarStyleColor a Nothing++-- | @barline@ /(complex)/+--+-- If a barline is other than a normal single barline, it should be represented by a barline type that describes it. This includes information about repeats and multiple endings, as well as line style. Barline data is on the same level as the other musical data in a score - a child of a measure in a partwise score, or a part in a timewise score. This allows for barlines within measures, as in dotted barlines that subdivide measures in complex meters. The two fermata elements allow for fermatas on both sides of the barline (the lower one inverted).+-- +-- Barlines have a location attribute to make it easier to process barlines independently of the other musical data in a score. It is often easier to set up measures separately from entering notes. The location attribute must match where the barline element occurs within the rest of the musical data in the score. If location is left, it should be the first element in the measure, aside from the print, bookmark, and link elements. If location is right, it should be the last element, again with the possible exception of the print, bookmark, and link elements. If no location is specified, the right barline is the default. The segno, coda, and divisions attributes work the same way as in the sound element. They are used for playback when barline elements contain segno or coda child elements.+data Barline = + Barline {+ barlineLocation :: (Maybe RightLeftMiddle) -- ^ /location/ attribute+ , barlineSegno :: (Maybe Token) -- ^ /segno/ attribute+ , barlineCoda :: (Maybe Token) -- ^ /coda/ attribute+ , barlineDivisions :: (Maybe Divisions) -- ^ /divisions/ attribute+ , barlineId :: (Maybe ID) -- ^ /id/ attribute+ , barlineBarStyle :: (Maybe BarStyleColor) -- ^ /bar-style/ child element+ , barlineEditorial :: Editorial+ , barlineWavyLine :: (Maybe WavyLine) -- ^ /wavy-line/ child element+ , barlineSegno1 :: (Maybe Segno) -- ^ /segno/ child element+ , barlineCoda1 :: (Maybe Coda) -- ^ /coda/ child element+ , barlineFermata :: [Fermata] -- ^ /fermata/ child element+ , barlineEnding :: (Maybe Ending) -- ^ /ending/ child element+ , barlineRepeat :: (Maybe Repeat) -- ^ /repeat/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Barline where+ emitXml (Barline a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "segno" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "coda" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "divisions" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) e])+ ([maybe XEmpty (XElement (QN "bar-style" Nothing).emitXml) f] +++ [emitXml g] +++ [maybe XEmpty (XElement (QN "wavy-line" Nothing).emitXml) h] +++ [maybe XEmpty (XElement (QN "segno" Nothing).emitXml) i] +++ [maybe XEmpty (XElement (QN "coda" Nothing).emitXml) j] +++ map (XElement (QN "fermata" Nothing).emitXml) k +++ [maybe XEmpty (XElement (QN "ending" Nothing).emitXml) l] +++ [maybe XEmpty (XElement (QN "repeat" Nothing).emitXml) m])+parseBarline :: P.XParse Barline+parseBarline = + Barline+ <$> P.optional (P.xattr (P.name "location") >>= parseRightLeftMiddle)+ <*> P.optional (P.xattr (P.name "segno") >>= parseToken)+ <*> P.optional (P.xattr (P.name "coda") >>= parseToken)+ <*> P.optional (P.xattr (P.name "divisions") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.optional (P.xchild (P.name "bar-style") (parseBarStyleColor))+ <*> parseEditorial+ <*> P.optional (P.xchild (P.name "wavy-line") (parseWavyLine))+ <*> P.optional (P.xchild (P.name "segno") (parseSegno))+ <*> P.optional (P.xchild (P.name "coda") (parseCoda))+ <*> P.many (P.xchild (P.name "fermata") (parseFermata))+ <*> P.optional (P.xchild (P.name "ending") (parseEnding))+ <*> P.optional (P.xchild (P.name "repeat") (parseRepeat))++-- | Smart constructor for 'Barline'+mkBarline :: Editorial -> Barline+mkBarline g = Barline Nothing Nothing Nothing Nothing Nothing Nothing g Nothing Nothing Nothing [] Nothing Nothing++-- | @barre@ /(complex)/+--+-- The barre element indicates placing a finger over multiple strings on a single fret. The type is "start" for the lowest pitched string (e.g., the string with the highest MusicXML number) and is "stop" for the highest pitched string.+data Barre = + Barre {+ barreType :: StartStop -- ^ /type/ attribute+ , barreColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Barre where+ emitXml (Barre a b) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) b])+ []+parseBarre :: P.XParse Barre+parseBarre = + Barre+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Barre'+mkBarre :: StartStop -> Barre+mkBarre a = Barre a Nothing++-- | @bass@ /(complex)/+--+-- The bass type is used to indicate a bass note in popular music chord symbols, e.g. G/C. It is generally not used in functional harmony, as inversion is generally not used in pop chord symbols. As with root, it is divided into step and alter elements, similar to pitches.+data Bass = + Bass {+ bassBassStep :: BassStep -- ^ /bass-step/ child element+ , bassBassAlter :: (Maybe BassAlter) -- ^ /bass-alter/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Bass where+ emitXml (Bass a b) =+ XContent XEmpty+ []+ ([XElement (QN "bass-step" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "bass-alter" Nothing).emitXml) b])+parseBass :: P.XParse Bass+parseBass = + Bass+ <$> (P.xchild (P.name "bass-step") (parseBassStep))+ <*> P.optional (P.xchild (P.name "bass-alter") (parseBassAlter))++-- | Smart constructor for 'Bass'+mkBass :: BassStep -> Bass+mkBass a = Bass a Nothing++-- | @bass-alter@ /(complex)/+--+-- The bass-alter type represents the chromatic alteration of the bass of the current chord within the harmony element. In some chord styles, the text for the bass-step element may include bass-alter information. In that case, the print-object attribute of the bass-alter element can be set to no. The location attribute indicates whether the alteration should appear to the left or the right of the bass-step; it is right by default.+data BassAlter = + BassAlter {+ bassAlterSemitones :: Semitones -- ^ text content+ , bassAlterLocation :: (Maybe LeftRight) -- ^ /location/ attribute+ , bassAlterPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , bassAlterDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , bassAlterDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , bassAlterRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , bassAlterRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , bassAlterFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , bassAlterFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , bassAlterFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , bassAlterFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , bassAlterColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BassAlter where+ emitXml (BassAlter a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l])+ []+parseBassAlter :: P.XParse BassAlter+parseBassAlter = + BassAlter+ <$> (P.xtext >>= parseSemitones)+ <*> P.optional (P.xattr (P.name "location") >>= parseLeftRight)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'BassAlter'+mkBassAlter :: Semitones -> BassAlter+mkBassAlter a = BassAlter a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @bass-step@ /(complex)/+--+-- The bass-step type represents the pitch step of the bass of the current chord within the harmony element. The text attribute indicates how the bass should appear in a score if not using the element contents.+data BassStep = + BassStep {+ bassStepStep :: Step -- ^ text content+ , bassStepText :: (Maybe Token) -- ^ /text/ attribute+ , bassStepDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , bassStepDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , bassStepRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , bassStepRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , bassStepFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , bassStepFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , bassStepFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , bassStepFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , bassStepColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BassStep where+ emitXml (BassStep a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "text" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseBassStep :: P.XParse BassStep+parseBassStep = + BassStep+ <$> (P.xtext >>= parseStep)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'BassStep'+mkBassStep :: Step -> BassStep+mkBassStep a = BassStep a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @beam@ /(complex)/+--+-- Beam values include begin, continue, end, forward hook, and backward hook. Up to eight concurrent beams are available to cover up to 1024th notes. Each beam in a note is represented with a separate beam element, starting with the eighth note beam using a number attribute of 1.+-- +-- Note that the beam number does not distinguish sets of beams that overlap, as it does for slur and other elements. Beaming groups are distinguished by being in different voices and/or the presence or absence of grace and cue elements.+-- +-- Beams that have a begin value can also have a fan attribute to indicate accelerandos and ritardandos using fanned beams. The fan attribute may also be used with a continue value if the fanning direction changes on that note. The value is "none" if not specified.+-- +-- The repeater attribute has been deprecated in MusicXML 3.0. Formerly used for tremolos, it needs to be specified with a "yes" value for each beam using it.+data Beam = + Beam {+ beamBeamValue :: BeamValue -- ^ text content+ , beamNumber :: (Maybe BeamLevel) -- ^ /number/ attribute+ , beamRepeater :: (Maybe YesNo) -- ^ /repeater/ attribute+ , beamFan :: (Maybe Fan) -- ^ /fan/ attribute+ , beamColor :: (Maybe Color) -- ^ /color/ attribute+ , beamId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Beam where+ emitXml (Beam a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "repeater" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "fan" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) f])+ []+parseBeam :: P.XParse Beam+parseBeam = + Beam+ <$> (P.xtext >>= parseBeamValue)+ <*> P.optional (P.xattr (P.name "number") >>= parseBeamLevel)+ <*> P.optional (P.xattr (P.name "repeater") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "fan") >>= parseFan)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Beam'+mkBeam :: BeamValue -> Beam+mkBeam a = Beam a Nothing Nothing Nothing Nothing Nothing++-- | @beat-repeat@ /(complex)/+--+-- The beat-repeat type is used to indicate that a single beat (but possibly many notes) is repeated. Both the start and stop of the beat being repeated should be specified. The slashes attribute specifies the number of slashes to use in the symbol. The use-dots attribute indicates whether or not to use dots as well (for instance, with mixed rhythm patterns). By default, the value for slashes is 1 and the value for use-dots is no.+-- +-- The beat-repeat element specifies a notation style for repetitions. The actual music being repeated needs to be repeated within the MusicXML file. This element specifies the notation that indicates the repeat.+data BeatRepeat = + BeatRepeat {+ beatRepeatType :: StartStop -- ^ /type/ attribute+ , beatRepeatSlashes :: (Maybe PositiveInteger) -- ^ /slashes/ attribute+ , beatRepeatUseDots :: (Maybe YesNo) -- ^ /use-dots/ attribute+ , beatRepeatSlash :: (Maybe Slash)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BeatRepeat where+ emitXml (BeatRepeat a b c d) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "slashes" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "use-dots" Nothing).emitXml) c])+ ([emitXml d])+parseBeatRepeat :: P.XParse BeatRepeat+parseBeatRepeat = + BeatRepeat+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "slashes") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "use-dots") >>= parseYesNo)+ <*> P.optional (parseSlash)++-- | Smart constructor for 'BeatRepeat'+mkBeatRepeat :: StartStop -> BeatRepeat+mkBeatRepeat a = BeatRepeat a Nothing Nothing Nothing++-- | @beat-unit-tied@ /(complex)/+--+-- The beat-unit-tied type indicates a beat-unit within a metronome mark that is tied to the preceding beat-unit. This allows or two or more tied notes to be associated with a per-minute value in a metronome mark, whereas the metronome-tied element is restricted to metric relationship marks.+data BeatUnitTied = + BeatUnitTied {+ beatUnitTiedBeatUnit :: BeatUnit+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BeatUnitTied where+ emitXml (BeatUnitTied a) =+ XReps [emitXml a]+parseBeatUnitTied :: P.XParse BeatUnitTied+parseBeatUnitTied = + BeatUnitTied+ <$> parseBeatUnit++-- | Smart constructor for 'BeatUnitTied'+mkBeatUnitTied :: BeatUnit -> BeatUnitTied+mkBeatUnitTied a = BeatUnitTied a++-- | @beater@ /(complex)/+--+-- The beater type represents pictograms for beaters, mallets, and sticks that do not have different materials represented in the pictogram.+data Beater = + Beater {+ beaterBeaterValue :: BeaterValue -- ^ text content+ , beaterTip :: (Maybe TipDirection) -- ^ /tip/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Beater where+ emitXml (Beater a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "tip" Nothing).emitXml) b])+ []+parseBeater :: P.XParse Beater+parseBeater = + Beater+ <$> (P.xtext >>= parseBeaterValue)+ <*> P.optional (P.xattr (P.name "tip") >>= parseTipDirection)++-- | Smart constructor for 'Beater'+mkBeater :: BeaterValue -> Beater+mkBeater a = Beater a Nothing++-- | @bend@ /(complex)/+--+-- The bend type is used in guitar and tablature. The bend-alter element indicates the number of steps in the bend, similar to the alter element. As with the alter element, numbers like 0.5 can be used to indicate microtones. Negative numbers indicate pre-bends or releases; the pre-bend and release elements are used to distinguish what is intended. A with-bar element indicates that the bend is to be done at the bridge with a whammy or vibrato bar. The content of the element indicates how this should be notated.+data Bend = + Bend {+ bendDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , bendDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , bendRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , bendRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , bendFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , bendFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , bendFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , bendFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , bendColor :: (Maybe Color) -- ^ /color/ attribute+ , bendAccelerate :: (Maybe YesNo) -- ^ /accelerate/ attribute+ , bendBeats :: (Maybe TrillBeats) -- ^ /beats/ attribute+ , bendFirstBeat :: (Maybe Percent) -- ^ /first-beat/ attribute+ , bendLastBeat :: (Maybe Percent) -- ^ /last-beat/ attribute+ , bendBendAlter :: Semitones -- ^ /bend-alter/ child element+ , bendBend :: (Maybe ChxBend)+ , bendWithBar :: (Maybe PlacementText) -- ^ /with-bar/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Bend where+ emitXml (Bend a b c d e f g h i j k l m n o p) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "accelerate" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "beats" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "first-beat" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "last-beat" Nothing).emitXml) m])+ ([XElement (QN "bend-alter" Nothing) (emitXml n)] +++ [emitXml o] +++ [maybe XEmpty (XElement (QN "with-bar" Nothing).emitXml) p])+parseBend :: P.XParse Bend+parseBend = + Bend+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "accelerate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "beats") >>= parseTrillBeats)+ <*> P.optional (P.xattr (P.name "first-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "last-beat") >>= parsePercent)+ <*> (P.xchild (P.name "bend-alter") (P.xtext >>= parseSemitones))+ <*> P.optional (parseChxBend)+ <*> P.optional (P.xchild (P.name "with-bar") (parsePlacementText))++-- | Smart constructor for 'Bend'+mkBend :: Semitones -> Bend+mkBend n = Bend Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing n Nothing Nothing++-- | @bookmark@ /(complex)/+--+-- The bookmark type serves as a well-defined target for an incoming simple XLink.+data Bookmark = + Bookmark {+ bookmarkId :: ID -- ^ /id/ attribute+ , bookmarkName :: (Maybe Token) -- ^ /name/ attribute+ , bookmarkElement :: (Maybe NMTOKEN) -- ^ /element/ attribute+ , bookmarkPosition :: (Maybe PositiveInteger) -- ^ /position/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Bookmark where+ emitXml (Bookmark a b c d) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "name" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "element" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "position" Nothing).emitXml) d])+ []+parseBookmark :: P.XParse Bookmark+parseBookmark = + Bookmark+ <$> (P.xattr (P.name "id") >>= parseID)+ <*> P.optional (P.xattr (P.name "name") >>= parseToken)+ <*> P.optional (P.xattr (P.name "element") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "position") >>= parsePositiveInteger)++-- | Smart constructor for 'Bookmark'+mkBookmark :: ID -> Bookmark+mkBookmark a = Bookmark a Nothing Nothing Nothing++-- | @bracket@ /(complex)/+--+-- Brackets are combined with words in a variety of modern directions. The line-end attribute specifies if there is a jog up or down (or both), an arrow, or nothing at the start or end of the bracket. If the line-end is up or down, the length of the jog can be specified using the end-length attribute. The line-type is solid by default.+data Bracket = + Bracket {+ bracketType :: StartStopContinue -- ^ /type/ attribute+ , bracketNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , bracketLineEnd :: LineEnd -- ^ /line-end/ attribute+ , bracketEndLength :: (Maybe Tenths) -- ^ /end-length/ attribute+ , bracketLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , bracketDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , bracketSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , bracketDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , bracketDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , bracketRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , bracketRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , bracketColor :: (Maybe Color) -- ^ /color/ attribute+ , bracketId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Bracket where+ emitXml (Bracket a b c d e f g h i j k l m) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [XAttr (QN "line-end" Nothing) (emitXml c)] +++ [maybe XEmpty (XAttr (QN "end-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) m])+ []+parseBracket :: P.XParse Bracket+parseBracket = + Bracket+ <$> (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> (P.xattr (P.name "line-end") >>= parseLineEnd)+ <*> P.optional (P.xattr (P.name "end-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Bracket'+mkBracket :: StartStopContinue -> LineEnd -> Bracket+mkBracket a c = Bracket a Nothing c Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @breath-mark@ /(complex)/+--+-- The breath-mark element indicates a place to take a breath.+data BreathMark = + BreathMark {+ breathMarkBreathMarkValue :: BreathMarkValue -- ^ text content+ , breathMarkDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , breathMarkDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , breathMarkRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , breathMarkRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , breathMarkFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , breathMarkFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , breathMarkFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , breathMarkFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , breathMarkColor :: (Maybe Color) -- ^ /color/ attribute+ , breathMarkPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BreathMark where+ emitXml (BreathMark a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ []+parseBreathMark :: P.XParse BreathMark+parseBreathMark = + BreathMark+ <$> (P.xtext >>= parseBreathMarkValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'BreathMark'+mkBreathMark :: BreathMarkValue -> BreathMark+mkBreathMark a = BreathMark a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @caesura@ /(complex)/+--+-- The caesura element indicates a slight pause. It is notated using a "railroad tracks" symbol or other variations specified in the element content.+data Caesura = + Caesura {+ caesuraCaesuraValue :: CaesuraValue -- ^ text content+ , caesuraDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , caesuraDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , caesuraRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , caesuraRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , caesuraFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , caesuraFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , caesuraFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , caesuraFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , caesuraColor :: (Maybe Color) -- ^ /color/ attribute+ , caesuraPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Caesura where+ emitXml (Caesura a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ []+parseCaesura :: P.XParse Caesura+parseCaesura = + Caesura+ <$> (P.xtext >>= parseCaesuraValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'Caesura'+mkCaesura :: CaesuraValue -> Caesura+mkCaesura a = Caesura a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @cancel@ /(complex)/+--+-- A cancel element indicates that the old key signature should be cancelled before the new one appears. This will always happen when changing to C major or A minor and need not be specified then. The cancel value matches the fifths value of the cancelled key signature (e.g., a cancel of -2 will provide an explicit cancellation for changing from B flat major to F major). The optional location attribute indicates where the cancellation appears relative to the new key signature.+data Cancel = + Cancel {+ cancelFifths :: Fifths -- ^ text content+ , cancelLocation :: (Maybe CancelLocation) -- ^ /location/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Cancel where+ emitXml (Cancel a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) b])+ []+parseCancel :: P.XParse Cancel+parseCancel = + Cancel+ <$> (P.xtext >>= parseFifths)+ <*> P.optional (P.xattr (P.name "location") >>= parseCancelLocation)++-- | Smart constructor for 'Cancel'+mkCancel :: Fifths -> Cancel+mkCancel a = Cancel a Nothing++-- | @clef@ /(complex)/+--+-- Clefs are represented by a combination of sign, line, and clef-octave-change elements. The optional number attribute refers to staff numbers within the part. A value of 1 is assumed if not present.+-- +-- Sometimes clefs are added to the staff in non-standard line positions, either to indicate cue passages, or when there are multiple clefs present simultaneously on one staff. In this situation, the additional attribute is set to "yes" and the line value is ignored. The size attribute is used for clefs where the additional attribute is "yes". It is typically used to indicate cue clefs.+-- +-- Sometimes clefs at the start of a measure need to appear after the barline rather than before, as for cues or for use after a repeated section. The after-barline attribute is set to "yes" in this situation. The attribute is ignored for mid-measure clefs.+-- +-- Clefs appear at the start of each system unless the print-object attribute has been set to "no" or the additional attribute has been set to "yes".+data Clef = + Clef {+ clefNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , clefAdditional :: (Maybe YesNo) -- ^ /additional/ attribute+ , clefSize :: (Maybe SymbolSize) -- ^ /size/ attribute+ , clefAfterBarline :: (Maybe YesNo) -- ^ /after-barline/ attribute+ , clefDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , clefDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , clefRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , clefRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , clefFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , clefFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , clefFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , clefFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , clefColor :: (Maybe Color) -- ^ /color/ attribute+ , clefPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , clefId :: (Maybe ID) -- ^ /id/ attribute+ , clefSign :: ClefSign -- ^ /sign/ child element+ , clefLine :: (Maybe StaffLine) -- ^ /line/ child element+ , clefClefOctaveChange :: (Maybe Int) -- ^ /clef-octave-change/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Clef where+ emitXml (Clef a b c d e f g h i j k l m n o p q r) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "additional" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "size" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "after-barline" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) o])+ ([XElement (QN "sign" Nothing) (emitXml p)] +++ [maybe XEmpty (XElement (QN "line" Nothing).emitXml) q] +++ [maybe XEmpty (XElement (QN "clef-octave-change" Nothing).emitXml) r])+parseClef :: P.XParse Clef+parseClef = + Clef+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "additional") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "size") >>= parseSymbolSize)+ <*> P.optional (P.xattr (P.name "after-barline") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> (P.xchild (P.name "sign") (P.xtext >>= parseClefSign))+ <*> P.optional (P.xchild (P.name "line") (P.xtext >>= parseStaffLine))+ <*> P.optional (P.xchild (P.name "clef-octave-change") (P.xtext >>= (P.xread "Integer")))++-- | Smart constructor for 'Clef'+mkClef :: ClefSign -> Clef+mkClef p = Clef Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing p Nothing Nothing++-- | @coda@ /(complex)/+--+-- The coda type is the visual indicator of a coda sign. The exact glyph can be specified with the smufl attribute. A sound element is also needed to guide playback applications reliably.+data Coda = + Coda {+ codaSmufl :: (Maybe SmuflCodaGlyphName) -- ^ /smufl/ attribute+ , codaDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , codaDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , codaRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , codaRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , codaFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , codaFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , codaFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , codaFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , codaColor :: (Maybe Color) -- ^ /color/ attribute+ , codaHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , codaValign :: (Maybe Valign) -- ^ /valign/ attribute+ , codaId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Coda where+ emitXml (Coda a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) m])+ []+parseCoda :: P.XParse Coda+parseCoda = + Coda+ <$> P.optional (P.xattr (P.name "smufl") >>= parseSmuflCodaGlyphName)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Coda'+mkCoda :: Coda+mkCoda = Coda Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @credit@ /(complex)/+--+-- The credit type represents the appearance of the title, composer, arranger, lyricist, copyright, dedication, and other text, symbols, and graphics that commonly appear on the first page of a score. The credit-words, credit-symbol, and credit-image elements are similar to the words, symbol, and image elements for directions. However, since the credit is not part of a measure, the default-x and default-y attributes adjust the origin relative to the bottom left-hand corner of the page. The enclosure for credit-words and credit-symbol is none by default.+-- +-- By default, a series of credit-words and credit-symbol elements within a single credit element follow one another in sequence visually. Non-positional formatting attributes are carried over from the previous element by default.+-- +-- The page attribute for the credit element specifies the page number where the credit should appear. This is an integer value that starts with 1 for the first page. Its value is 1 by default. Since credits occur before the music, these page numbers do not refer to the page numbering specified by the print element's page-number attribute.+-- +-- The credit-type element indicates the purpose behind a credit. Multiple types of data may be combined in a single credit, so multiple elements may be used. Standard values include page number, title, subtitle, composer, arranger, lyricist, and rights.+data Credit = + Credit {+ creditPage :: (Maybe PositiveInteger) -- ^ /page/ attribute+ , creditId :: (Maybe ID) -- ^ /id/ attribute+ , creditCreditType :: [String] -- ^ /credit-type/ child element+ , creditLink :: [Link] -- ^ /link/ child element+ , creditBookmark :: [Bookmark] -- ^ /bookmark/ child element+ , creditCredit :: ChxCredit+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Credit where+ emitXml (Credit a b c d e f) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "page" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) b])+ (map (XElement (QN "credit-type" Nothing).emitXml) c +++ map (XElement (QN "link" Nothing).emitXml) d +++ map (XElement (QN "bookmark" Nothing).emitXml) e +++ [emitXml f])+parseCredit :: P.XParse Credit+parseCredit = + Credit+ <$> P.optional (P.xattr (P.name "page") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (P.xchild (P.name "credit-type") (P.xtext >>= return))+ <*> P.many (P.xchild (P.name "link") (parseLink))+ <*> P.many (P.xchild (P.name "bookmark") (parseBookmark))+ <*> parseChxCredit++-- | Smart constructor for 'Credit'+mkCredit :: ChxCredit -> Credit+mkCredit f = Credit Nothing Nothing [] [] [] f++-- | @dashes@ /(complex)/+--+-- The dashes type represents dashes, used for instance with cresc. and dim. marks.+data Dashes = + Dashes {+ dashesType :: StartStopContinue -- ^ /type/ attribute+ , dashesNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , dashesDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , dashesSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , dashesDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , dashesDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , dashesRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , dashesRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , dashesColor :: (Maybe Color) -- ^ /color/ attribute+ , dashesId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Dashes where+ emitXml (Dashes a b c d e f g h i j) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) j])+ []+parseDashes :: P.XParse Dashes+parseDashes = + Dashes+ <$> (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Dashes'+mkDashes :: StartStopContinue -> Dashes+mkDashes a = Dashes a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @defaults@ /(complex)/+--+-- The defaults type specifies score-wide defaults for scaling, layout, and appearance.+data Defaults = + Defaults {+ defaultsScaling :: (Maybe Scaling) -- ^ /scaling/ child element+ , defaultsLayout :: Layout+ , defaultsAppearance :: (Maybe Appearance) -- ^ /appearance/ child element+ , defaultsMusicFont :: (Maybe EmptyFont) -- ^ /music-font/ child element+ , defaultsWordFont :: (Maybe EmptyFont) -- ^ /word-font/ child element+ , defaultsLyricFont :: [LyricFont] -- ^ /lyric-font/ child element+ , defaultsLyricLanguage :: [LyricLanguage] -- ^ /lyric-language/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Defaults where+ emitXml (Defaults a b c d e f g) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "scaling" Nothing).emitXml) a] +++ [emitXml b] +++ [maybe XEmpty (XElement (QN "appearance" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "music-font" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "word-font" Nothing).emitXml) e] +++ map (XElement (QN "lyric-font" Nothing).emitXml) f +++ map (XElement (QN "lyric-language" Nothing).emitXml) g)+parseDefaults :: P.XParse Defaults+parseDefaults = + Defaults+ <$> P.optional (P.xchild (P.name "scaling") (parseScaling))+ <*> parseLayout+ <*> P.optional (P.xchild (P.name "appearance") (parseAppearance))+ <*> P.optional (P.xchild (P.name "music-font") (parseEmptyFont))+ <*> P.optional (P.xchild (P.name "word-font") (parseEmptyFont))+ <*> P.many (P.xchild (P.name "lyric-font") (parseLyricFont))+ <*> P.many (P.xchild (P.name "lyric-language") (parseLyricLanguage))++-- | Smart constructor for 'Defaults'+mkDefaults :: Layout -> Defaults+mkDefaults b = Defaults Nothing b Nothing Nothing Nothing [] []++-- | @degree@ /(complex)/+--+-- The degree type is used to add, alter, or subtract individual notes in the chord. The print-object attribute can be used to keep the degree from printing separately when it has already taken into account in the text attribute of the kind element. The degree-value and degree-type text attributes specify how the value and type of the degree should be displayed.+-- +-- A harmony of kind "other" can be spelled explicitly by using a series of degree elements together with a root.+data Degree = + Degree {+ degreePrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , degreeDegreeValue :: DegreeValue -- ^ /degree-value/ child element+ , degreeDegreeAlter :: DegreeAlter -- ^ /degree-alter/ child element+ , degreeDegreeType :: DegreeType -- ^ /degree-type/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Degree where+ emitXml (Degree a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) a])+ ([XElement (QN "degree-value" Nothing) (emitXml b)] +++ [XElement (QN "degree-alter" Nothing) (emitXml c)] +++ [XElement (QN "degree-type" Nothing) (emitXml d)])+parseDegree :: P.XParse Degree+parseDegree = + Degree+ <$> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> (P.xchild (P.name "degree-value") (parseDegreeValue))+ <*> (P.xchild (P.name "degree-alter") (parseDegreeAlter))+ <*> (P.xchild (P.name "degree-type") (parseDegreeType))++-- | Smart constructor for 'Degree'+mkDegree :: DegreeValue -> DegreeAlter -> DegreeType -> Degree+mkDegree b c d = Degree Nothing b c d++-- | @degree-alter@ /(complex)/+--+-- The degree-alter type represents the chromatic alteration for the current degree. If the degree-type value is alter or subtract, the degree-alter value is relative to the degree already in the chord based on its kind element. If the degree-type value is add, the degree-alter is relative to a dominant chord (major and perfect intervals except for a minor seventh). The plus-minus attribute is used to indicate if plus and minus symbols should be used instead of sharp and flat symbols to display the degree alteration; it is no by default.+data DegreeAlter = + DegreeAlter {+ degreeAlterSemitones :: Semitones -- ^ text content+ , degreeAlterPlusMinus :: (Maybe YesNo) -- ^ /plus-minus/ attribute+ , degreeAlterDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , degreeAlterDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , degreeAlterRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , degreeAlterRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , degreeAlterFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , degreeAlterFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , degreeAlterFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , degreeAlterFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , degreeAlterColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml DegreeAlter where+ emitXml (DegreeAlter a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "plus-minus" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseDegreeAlter :: P.XParse DegreeAlter+parseDegreeAlter = + DegreeAlter+ <$> (P.xtext >>= parseSemitones)+ <*> P.optional (P.xattr (P.name "plus-minus") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'DegreeAlter'+mkDegreeAlter :: Semitones -> DegreeAlter+mkDegreeAlter a = DegreeAlter a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @degree-type@ /(complex)/+--+-- The degree-type type indicates if this degree is an addition, alteration, or subtraction relative to the kind of the current chord. The value of the degree-type element affects the interpretation of the value of the degree-alter element. The text attribute specifies how the type of the degree should be displayed in a score.+data DegreeType = + DegreeType {+ degreeTypeDegreeTypeValue :: DegreeTypeValue -- ^ text content+ , degreeTypeText :: (Maybe Token) -- ^ /text/ attribute+ , degreeTypeDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , degreeTypeDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , degreeTypeRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , degreeTypeRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , degreeTypeFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , degreeTypeFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , degreeTypeFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , degreeTypeFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , degreeTypeColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml DegreeType where+ emitXml (DegreeType a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "text" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseDegreeType :: P.XParse DegreeType+parseDegreeType = + DegreeType+ <$> (P.xtext >>= parseDegreeTypeValue)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'DegreeType'+mkDegreeType :: DegreeTypeValue -> DegreeType+mkDegreeType a = DegreeType a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @degree-value@ /(complex)/+--+-- The content of the degree-value type is a number indicating the degree of the chord (1 for the root, 3 for third, etc). The text attribute specifies how the type of the degree should be displayed in a score. The degree-value symbol attribute indicates that a symbol should be used in specifying the degree. If the symbol attribute is present, the value of the text attribute follows the symbol.+data DegreeValue = + DegreeValue {+ degreeValuePositiveInteger :: PositiveInteger -- ^ text content+ , degreeValueSymbol :: (Maybe DegreeSymbolValue) -- ^ /symbol/ attribute+ , degreeValueText :: (Maybe Token) -- ^ /text/ attribute+ , degreeValueDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , degreeValueDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , degreeValueRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , degreeValueRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , degreeValueFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , degreeValueFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , degreeValueFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , degreeValueFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , degreeValueColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml DegreeValue where+ emitXml (DegreeValue a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "symbol" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "text" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l])+ []+parseDegreeValue :: P.XParse DegreeValue+parseDegreeValue = + DegreeValue+ <$> (P.xtext >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "symbol") >>= parseDegreeSymbolValue)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'DegreeValue'+mkDegreeValue :: PositiveInteger -> DegreeValue+mkDegreeValue a = DegreeValue a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @direction@ /(complex)/+--+-- A direction is a musical indication that is not necessarily attached to a specific note. Two or more may be combined to indicate starts and stops of wedges, dashes, etc. For applications where a specific direction is indeed attached to a specific note, the direction element can be associated with the note element that follows it in score order that is not in a different voice.+-- +-- By default, a series of direction-type elements and a series of child elements of a direction-type within a single direction element follow one another in sequence visually. For a series of direction-type children, non-positional formatting attributes are carried over from the previous element by default.+data Direction = + Direction {+ directionPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , directionDirective :: (Maybe YesNo) -- ^ /directive/ attribute+ , directionId :: (Maybe ID) -- ^ /id/ attribute+ , directionDirectionType :: [DirectionType] -- ^ /direction-type/ child element+ , directionOffset :: (Maybe Offset) -- ^ /offset/ child element+ , directionEditorialVoiceDirection :: EditorialVoiceDirection+ , directionStaff :: (Maybe Staff)+ , directionSound :: (Maybe Sound) -- ^ /sound/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Direction where+ emitXml (Direction a b c d e f g h) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "directive" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) c])+ (map (XElement (QN "direction-type" Nothing).emitXml) d +++ [maybe XEmpty (XElement (QN "offset" Nothing).emitXml) e] +++ [emitXml f] +++ [emitXml g] +++ [maybe XEmpty (XElement (QN "sound" Nothing).emitXml) h])+parseDirection :: P.XParse Direction+parseDirection = + Direction+ <$> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "directive") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (P.xchild (P.name "direction-type") (parseDirectionType))+ <*> P.optional (P.xchild (P.name "offset") (parseOffset))+ <*> parseEditorialVoiceDirection+ <*> P.optional (parseStaff)+ <*> P.optional (P.xchild (P.name "sound") (parseSound))++-- | Smart constructor for 'Direction'+mkDirection :: EditorialVoiceDirection -> Direction+mkDirection f = Direction Nothing Nothing Nothing [] Nothing f Nothing Nothing++-- | @direction-type@ /(complex)/+--+-- Textual direction types may have more than 1 component due to multiple fonts. The dynamics element may also be used in the notations element. Attribute groups related to print suggestions apply to the individual direction-type, not to the overall direction.+data DirectionType = + DirectionType {+ directionTypeId :: (Maybe ID) -- ^ /id/ attribute+ , directionTypeDirectionType :: ChxDirectionType+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml DirectionType where+ emitXml (DirectionType a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "id" Nothing).emitXml) a])+ ([emitXml b])+parseDirectionType :: P.XParse DirectionType+parseDirectionType = + DirectionType+ <$> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseChxDirectionType++-- | Smart constructor for 'DirectionType'+mkDirectionType :: ChxDirectionType -> DirectionType+mkDirectionType b = DirectionType Nothing b++-- | @directive@ /(complex)/+data Directive = + Directive {+ directiveString :: String -- ^ text content+ , directiveLang :: (Maybe Lang) -- ^ /xml:lang/ attribute+ , directiveDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , directiveDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , directiveRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , directiveRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , directiveFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , directiveFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , directiveFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , directiveFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , directiveColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Directive where+ emitXml (Directive a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "lang" (Just "xml")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseDirective :: P.XParse Directive+parseDirective = + Directive+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "xml:lang") >>= parseLang)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Directive'+mkDirective :: String -> Directive+mkDirective a = Directive a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @distance@ /(complex)/+--+-- The distance element represents standard distances between notation elements in tenths. The type attribute defines what type of distance is being defined. Valid values include hyphen (for hyphens in lyrics) and beam.+data Distance = + Distance {+ distanceTenths :: Tenths -- ^ text content+ , cmpdistanceType :: DistanceType -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Distance where+ emitXml (Distance a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseDistance :: P.XParse Distance+parseDistance = + Distance+ <$> (P.xtext >>= parseTenths)+ <*> (P.xattr (P.name "type") >>= parseDistanceType)++-- | Smart constructor for 'Distance'+mkDistance :: Tenths -> DistanceType -> Distance+mkDistance a b = Distance a b++-- | @dynamics@ /(complex)/+--+-- Dynamics can be associated either with a note or a general musical direction. To avoid inconsistencies between and amongst the letter abbreviations for dynamics (what is sf vs. sfz, standing alone or with a trailing dynamic that is not always piano), we use the actual letters as the names of these dynamic elements. The other-dynamics element allows other dynamic marks that are not covered here, but many of those should perhaps be included in a more general musical direction element. Dynamics elements may also be combined to create marks not covered by a single element, such as sfmp.+-- +-- These letter dynamic symbols are separated from crescendo, decrescendo, and wedge indications. Dynamic representation is inconsistent in scores. Many things are assumed by the composer and left out, such as returns to original dynamics. Systematic representations are quite complex: for example, Humdrum has at least 3 representation formats related to dynamics. The MusicXML format captures what is in the score, but does not try to be optimal for analysis or synthesis of dynamics.+data Dynamics = + Dynamics {+ dynamicsDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , dynamicsDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , dynamicsRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , dynamicsRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , dynamicsFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , dynamicsFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , dynamicsFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , dynamicsFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , dynamicsColor :: (Maybe Color) -- ^ /color/ attribute+ , dynamicsHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , dynamicsValign :: (Maybe Valign) -- ^ /valign/ attribute+ , dynamicsPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , dynamicsUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , dynamicsOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , dynamicsLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , dynamicsEnclosure :: (Maybe EnclosureShape) -- ^ /enclosure/ attribute+ , dynamicsId :: (Maybe ID) -- ^ /id/ attribute+ , dynamicsDynamics :: [ChxDynamics]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Dynamics where+ emitXml (Dynamics a b c d e f g h i j k l m n o p q r) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "enclosure" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) q])+ ([emitXml r])+parseDynamics :: P.XParse Dynamics+parseDynamics = + Dynamics+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "enclosure") >>= parseEnclosureShape)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (parseChxDynamics)++-- | Smart constructor for 'Dynamics'+mkDynamics :: Dynamics+mkDynamics = Dynamics Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing []++-- | @elision@ /(complex)/+--+-- The elision type represents an elision between lyric syllables. The text content specifies the symbol used to display the elision. Common values are a no-break space (Unicode 00A0), an underscore (Unicode 005F), or an undertie (Unicode 203F). If the text content is empty, the smufl attribute is used to specify the symbol to use. Its value is a SMuFL canonical glyph name that starts with lyrics. The SMuFL attribute is ignored if the elision glyph is already specified by the text content. If neither text content nor a smufl attribute are present, the elision glyph is application-specific.+data Elision = + Elision {+ elisionString :: String -- ^ text content+ , elisionSmufl :: (Maybe SmuflLyricsGlyphName) -- ^ /smufl/ attribute+ , elisionFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , elisionFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , elisionFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , elisionFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , elisionColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Elision where+ emitXml (Elision a b c d e f g) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) g])+ []+parseElision :: P.XParse Elision+parseElision = + Elision+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflLyricsGlyphName)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Elision'+mkElision :: String -> Elision+mkElision a = Elision a Nothing Nothing Nothing Nothing Nothing Nothing++-- | @empty@ /(complex)/+--+-- The empty type represents an empty element with no attributes.+data Empty = + Empty+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Empty where+ emitXml (Empty) =+ XReps []+parseEmpty :: P.XParse Empty+parseEmpty = + return Empty++-- | Smart constructor for 'Empty'+mkEmpty :: Empty+mkEmpty = Empty ++-- | @empty-font@ /(complex)/+--+-- The empty-font type represents an empty element with font attributes.+data EmptyFont = + EmptyFont {+ emptyFontFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyFontFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyFontFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyFontFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyFont where+ emitXml (EmptyFont a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) d])+ []+parseEmptyFont :: P.XParse EmptyFont+parseEmptyFont = + EmptyFont+ <$> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)++-- | Smart constructor for 'EmptyFont'+mkEmptyFont :: EmptyFont+mkEmptyFont = EmptyFont Nothing Nothing Nothing Nothing++-- | @empty-line@ /(complex)/+--+-- The empty-line type represents an empty element with line-shape, line-type, line-length, dashed-formatting, print-style and placement attributes.+data EmptyLine = + EmptyLine {+ emptyLineLineShape :: (Maybe LineShape) -- ^ /line-shape/ attribute+ , emptyLineLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , emptyLineLineLength :: (Maybe LineLength) -- ^ /line-length/ attribute+ , emptyLineDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , emptyLineSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , emptyLineDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyLineDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyLineRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyLineRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyLineFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyLineFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyLineFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyLineFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyLineColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyLinePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyLine where+ emitXml (EmptyLine a b c d e f g h i j k l m n o) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "line-shape" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "line-length" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) o])+ []+parseEmptyLine :: P.XParse EmptyLine+parseEmptyLine = + EmptyLine+ <$> P.optional (P.xattr (P.name "line-shape") >>= parseLineShape)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "line-length") >>= parseLineLength)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'EmptyLine'+mkEmptyLine :: EmptyLine+mkEmptyLine = EmptyLine Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @empty-placement@ /(complex)/+--+-- The empty-placement type represents an empty element with print-style and placement attributes.+data EmptyPlacement = + EmptyPlacement {+ emptyPlacementDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyPlacementDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyPlacementRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyPlacementRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyPlacementFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyPlacementFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyPlacementFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyPlacementFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyPlacementColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyPlacementPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyPlacement where+ emitXml (EmptyPlacement a b c d e f g h i j) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j])+ []+parseEmptyPlacement :: P.XParse EmptyPlacement+parseEmptyPlacement = + EmptyPlacement+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'EmptyPlacement'+mkEmptyPlacement :: EmptyPlacement+mkEmptyPlacement = EmptyPlacement Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @empty-placement-smufl@ /(complex)/+--+-- The empty-placement-smufl type represents an empty element with print-style, placement, and smufl attributes.+data EmptyPlacementSmufl = + EmptyPlacementSmufl {+ emptyPlacementSmuflDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyPlacementSmuflDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyPlacementSmuflRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyPlacementSmuflRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyPlacementSmuflFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyPlacementSmuflFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyPlacementSmuflFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyPlacementSmuflFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyPlacementSmuflColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyPlacementSmuflPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , emptyPlacementSmuflSmufl :: (Maybe SmuflGlyphName) -- ^ /smufl/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyPlacementSmufl where+ emitXml (EmptyPlacementSmufl a b c d e f g h i j k) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) k])+ []+parseEmptyPlacementSmufl :: P.XParse EmptyPlacementSmufl+parseEmptyPlacementSmufl = + EmptyPlacementSmufl+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflGlyphName)++-- | Smart constructor for 'EmptyPlacementSmufl'+mkEmptyPlacementSmufl :: EmptyPlacementSmufl+mkEmptyPlacementSmufl = EmptyPlacementSmufl Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @empty-print-object-style-align@ /(complex)/+--+-- The empty-print-style-align-object type represents an empty element with print-object and print-style-align attribute groups.+data EmptyPrintObjectStyleAlign = + EmptyPrintObjectStyleAlign {+ emptyPrintObjectStyleAlignPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , emptyPrintObjectStyleAlignDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyPrintObjectStyleAlignDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyPrintObjectStyleAlignRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyPrintObjectStyleAlignRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyPrintObjectStyleAlignFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyPrintObjectStyleAlignFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyPrintObjectStyleAlignFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyPrintObjectStyleAlignFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyPrintObjectStyleAlignColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyPrintObjectStyleAlignHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , emptyPrintObjectStyleAlignValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyPrintObjectStyleAlign where+ emitXml (EmptyPrintObjectStyleAlign a b c d e f g h i j k l) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l])+ []+parseEmptyPrintObjectStyleAlign :: P.XParse EmptyPrintObjectStyleAlign+parseEmptyPrintObjectStyleAlign = + EmptyPrintObjectStyleAlign+ <$> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'EmptyPrintObjectStyleAlign'+mkEmptyPrintObjectStyleAlign :: EmptyPrintObjectStyleAlign+mkEmptyPrintObjectStyleAlign = EmptyPrintObjectStyleAlign Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @empty-print-style-align-id@ /(complex)/+--+-- The empty-print-style-align-id type represents an empty element with print-style-align and optional-unique-id attribute groups.+data EmptyPrintStyleAlignId = + EmptyPrintStyleAlignId {+ emptyPrintStyleAlignIdDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyPrintStyleAlignIdDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyPrintStyleAlignIdRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyPrintStyleAlignIdRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyPrintStyleAlignIdFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyPrintStyleAlignIdFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyPrintStyleAlignIdFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyPrintStyleAlignIdFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyPrintStyleAlignIdColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyPrintStyleAlignIdHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , emptyPrintStyleAlignIdValign :: (Maybe Valign) -- ^ /valign/ attribute+ , emptyPrintStyleAlignIdId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyPrintStyleAlignId where+ emitXml (EmptyPrintStyleAlignId a b c d e f g h i j k l) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) l])+ []+parseEmptyPrintStyleAlignId :: P.XParse EmptyPrintStyleAlignId+parseEmptyPrintStyleAlignId = + EmptyPrintStyleAlignId+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'EmptyPrintStyleAlignId'+mkEmptyPrintStyleAlignId :: EmptyPrintStyleAlignId+mkEmptyPrintStyleAlignId = EmptyPrintStyleAlignId Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @empty-trill-sound@ /(complex)/+--+-- The empty-trill-sound type represents an empty element with print-style, placement, and trill-sound attributes.+data EmptyTrillSound = + EmptyTrillSound {+ emptyTrillSoundDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , emptyTrillSoundDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , emptyTrillSoundRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , emptyTrillSoundRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , emptyTrillSoundFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , emptyTrillSoundFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , emptyTrillSoundFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , emptyTrillSoundFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , emptyTrillSoundColor :: (Maybe Color) -- ^ /color/ attribute+ , emptyTrillSoundPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , emptyTrillSoundStartNote :: (Maybe StartNote) -- ^ /start-note/ attribute+ , emptyTrillSoundTrillStep :: (Maybe TrillStep) -- ^ /trill-step/ attribute+ , emptyTrillSoundTwoNoteTurn :: (Maybe TwoNoteTurn) -- ^ /two-note-turn/ attribute+ , emptyTrillSoundAccelerate :: (Maybe YesNo) -- ^ /accelerate/ attribute+ , emptyTrillSoundBeats :: (Maybe TrillBeats) -- ^ /beats/ attribute+ , emptyTrillSoundSecondBeat :: (Maybe Percent) -- ^ /second-beat/ attribute+ , emptyTrillSoundLastBeat :: (Maybe Percent) -- ^ /last-beat/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EmptyTrillSound where+ emitXml (EmptyTrillSound a b c d e f g h i j k l m n o p q) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "start-note" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "trill-step" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "two-note-turn" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "accelerate" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "beats" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "second-beat" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "last-beat" Nothing).emitXml) q])+ []+parseEmptyTrillSound :: P.XParse EmptyTrillSound+parseEmptyTrillSound = + EmptyTrillSound+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "start-note") >>= parseStartNote)+ <*> P.optional (P.xattr (P.name "trill-step") >>= parseTrillStep)+ <*> P.optional (P.xattr (P.name "two-note-turn") >>= parseTwoNoteTurn)+ <*> P.optional (P.xattr (P.name "accelerate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "beats") >>= parseTrillBeats)+ <*> P.optional (P.xattr (P.name "second-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "last-beat") >>= parsePercent)++-- | Smart constructor for 'EmptyTrillSound'+mkEmptyTrillSound :: EmptyTrillSound+mkEmptyTrillSound = EmptyTrillSound Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @encoding@ /(complex)/+--+-- The encoding element contains information about who did the digital encoding, when, with what software, and in what aspects. Standard type values for the encoder element are music, words, and arrangement, but other types may be used. The type attribute is only needed when there are multiple encoder elements.+data Encoding = + Encoding {+ encodingEncoding :: [ChxEncoding]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Encoding where+ emitXml (Encoding a) =+ XReps [emitXml a]+parseEncoding :: P.XParse Encoding+parseEncoding = + Encoding+ <$> P.many (parseChxEncoding)++-- | Smart constructor for 'Encoding'+mkEncoding :: Encoding+mkEncoding = Encoding []++-- | @ending@ /(complex)/+--+-- The ending type represents multiple (e.g. first and second) endings. Typically, the start type is associated with the left barline of the first measure in an ending. The stop and discontinue types are associated with the right barline of the last measure in an ending. Stop is used when the ending mark concludes with a downward jog, as is typical for first endings. Discontinue is used when there is no downward jog, as is typical for second endings that do not conclude a piece. The length of the jog can be specified using the end-length attribute. The text-x and text-y attributes are offsets that specify where the baseline of the start of the ending text appears, relative to the start of the ending line.+-- +-- The number attribute reflects the numeric values of what is under the ending line. Single endings such as "1" or comma-separated multiple endings such as "1,2" may be used. The ending element text is used when the text displayed in the ending is different than what appears in the number attribute. The print-object element is used to indicate when an ending is present but not printed, as is often the case for many parts in a full score.+data Ending = + Ending {+ endingString :: String -- ^ text content+ , cmpendingNumber :: EndingNumber -- ^ /number/ attribute+ , endingType :: StartStopDiscontinue -- ^ /type/ attribute+ , endingEndLength :: (Maybe Tenths) -- ^ /end-length/ attribute+ , endingTextX :: (Maybe Tenths) -- ^ /text-x/ attribute+ , endingTextY :: (Maybe Tenths) -- ^ /text-y/ attribute+ , endingPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , endingDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , endingDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , endingRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , endingRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , endingFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , endingFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , endingFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , endingFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , endingColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Ending where+ emitXml (Ending a b c d e f g h i j k l m n o p) =+ XContent (emitXml a)+ ([XAttr (QN "number" Nothing) (emitXml b)] +++ [XAttr (QN "type" Nothing) (emitXml c)] +++ [maybe XEmpty (XAttr (QN "end-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "text-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "text-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) p])+ []+parseEnding :: P.XParse Ending+parseEnding = + Ending+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "number") >>= parseEndingNumber)+ <*> (P.xattr (P.name "type") >>= parseStartStopDiscontinue)+ <*> P.optional (P.xattr (P.name "end-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "text-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "text-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Ending'+mkEnding :: String -> EndingNumber -> StartStopDiscontinue -> Ending+mkEnding a b c = Ending a b c Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @extend@ /(complex)/+--+-- The extend type represents lyric word extension / melisma lines as well as figured bass extensions. The optional type and position attributes are added in Version 3.0 to provide better formatting control.+data Extend = + Extend {+ extendType :: (Maybe StartStopContinue) -- ^ /type/ attribute+ , extendDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , extendDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , extendRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , extendRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , extendColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Extend where+ emitXml (Extend a b c d e f) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseExtend :: P.XParse Extend+parseExtend = + Extend+ <$> P.optional (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Extend'+mkExtend :: Extend+mkExtend = Extend Nothing Nothing Nothing Nothing Nothing Nothing++-- | @feature@ /(complex)/+--+-- The feature type is a part of the grouping element used for musical analysis. The type attribute represents the type of the feature and the element content represents its value. This type is flexible to allow for different analyses.+data Feature = + Feature {+ featureString :: String -- ^ text content+ , featureType :: (Maybe Token) -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Feature where+ emitXml (Feature a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) b])+ []+parseFeature :: P.XParse Feature+parseFeature = + Feature+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "type") >>= parseToken)++-- | Smart constructor for 'Feature'+mkFeature :: String -> Feature+mkFeature a = Feature a Nothing++-- | @fermata@ /(complex)/+--+-- The fermata text content represents the shape of the fermata sign. An empty fermata element represents a normal fermata. The fermata type is upright if not specified.+data Fermata = + Fermata {+ fermataFermataShape :: FermataShape -- ^ text content+ , fermataType :: (Maybe UprightInverted) -- ^ /type/ attribute+ , fermataDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , fermataDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , fermataRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , fermataRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , fermataFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , fermataFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , fermataFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , fermataFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , fermataColor :: (Maybe Color) -- ^ /color/ attribute+ , fermataId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Fermata where+ emitXml (Fermata a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) l])+ []+parseFermata :: P.XParse Fermata+parseFermata = + Fermata+ <$> (P.xtext >>= parseFermataShape)+ <*> P.optional (P.xattr (P.name "type") >>= parseUprightInverted)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Fermata'+mkFermata :: FermataShape -> Fermata+mkFermata a = Fermata a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @figure@ /(complex)/+--+-- The figure type represents a single figure within a figured-bass element.+data Figure = + Figure {+ figurePrefix :: (Maybe StyleText) -- ^ /prefix/ child element+ , figureFigureNumber :: (Maybe StyleText) -- ^ /figure-number/ child element+ , figureSuffix :: (Maybe StyleText) -- ^ /suffix/ child element+ , figureExtend :: (Maybe Extend) -- ^ /extend/ child element+ , figureEditorial :: Editorial+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Figure where+ emitXml (Figure a b c d e) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "prefix" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "figure-number" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "suffix" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "extend" Nothing).emitXml) d] +++ [emitXml e])+parseFigure :: P.XParse Figure+parseFigure = + Figure+ <$> P.optional (P.xchild (P.name "prefix") (parseStyleText))+ <*> P.optional (P.xchild (P.name "figure-number") (parseStyleText))+ <*> P.optional (P.xchild (P.name "suffix") (parseStyleText))+ <*> P.optional (P.xchild (P.name "extend") (parseExtend))+ <*> parseEditorial++-- | Smart constructor for 'Figure'+mkFigure :: Editorial -> Figure+mkFigure e = Figure Nothing Nothing Nothing Nothing e++-- | @figured-bass@ /(complex)/+--+-- The figured-bass element represents figured bass notation. Figured bass elements take their position from the first regular note (not a grace note or chord note) that follows in score order. The optional duration element is used to indicate changes of figures under a note.+-- +-- Figures are ordered from top to bottom. The value of parentheses is "no" if not present.+data FiguredBass = + FiguredBass {+ figuredBassParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , figuredBassDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , figuredBassDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , figuredBassRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , figuredBassRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , figuredBassFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , figuredBassFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , figuredBassFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , figuredBassFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , figuredBassColor :: (Maybe Color) -- ^ /color/ attribute+ , figuredBassPrintDot :: (Maybe YesNo) -- ^ /print-dot/ attribute+ , figuredBassPrintLyric :: (Maybe YesNo) -- ^ /print-lyric/ attribute+ , figuredBassPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , figuredBassPrintSpacing :: (Maybe YesNo) -- ^ /print-spacing/ attribute+ , figuredBassId :: (Maybe ID) -- ^ /id/ attribute+ , figuredBassFigure :: [Figure] -- ^ /figure/ child element+ , figuredBassDuration :: (Maybe Duration)+ , figuredBassEditorial :: Editorial+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FiguredBass where+ emitXml (FiguredBass a b c d e f g h i j k l m n o p q r) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "print-dot" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "print-lyric" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "print-spacing" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) o])+ (map (XElement (QN "figure" Nothing).emitXml) p +++ [emitXml q] +++ [emitXml r])+parseFiguredBass :: P.XParse FiguredBass+parseFiguredBass = + FiguredBass+ <$> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-dot") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-lyric") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-spacing") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (P.xchild (P.name "figure") (parseFigure))+ <*> P.optional (parseDuration)+ <*> parseEditorial++-- | Smart constructor for 'FiguredBass'+mkFiguredBass :: Editorial -> FiguredBass+mkFiguredBass r = FiguredBass Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing [] Nothing r++-- | @fingering@ /(complex)/+--+-- Fingering is typically indicated 1,2,3,4,5. Multiple fingerings may be given, typically to substitute fingerings in the middle of a note. The substitution and alternate values are "no" if the attribute is not present. For guitar and other fretted instruments, the fingering element represents the fretting finger; the pluck element represents the plucking finger.+data Fingering = + Fingering {+ fingeringString :: String -- ^ text content+ , fingeringSubstitution :: (Maybe YesNo) -- ^ /substitution/ attribute+ , fingeringAlternate :: (Maybe YesNo) -- ^ /alternate/ attribute+ , fingeringDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , fingeringDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , fingeringRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , fingeringRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , fingeringFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , fingeringFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , fingeringFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , fingeringFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , fingeringColor :: (Maybe Color) -- ^ /color/ attribute+ , fingeringPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Fingering where+ emitXml (Fingering a b c d e f g h i j k l m) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "substitution" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "alternate" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) m])+ []+parseFingering :: P.XParse Fingering+parseFingering = + Fingering+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "substitution") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "alternate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'Fingering'+mkFingering :: String -> Fingering+mkFingering a = Fingering a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @first-fret@ /(complex)/+--+-- The first-fret type indicates which fret is shown in the top space of the frame; it is fret 1 if the element is not present. The optional text attribute indicates how this is represented in the fret diagram, while the location attribute indicates whether the text appears to the left or right of the frame.+data FirstFret = + FirstFret {+ firstFretPositiveInteger :: PositiveInteger -- ^ text content+ , firstFretText :: (Maybe Token) -- ^ /text/ attribute+ , firstFretLocation :: (Maybe LeftRight) -- ^ /location/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FirstFret where+ emitXml (FirstFret a b c) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "text" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "location" Nothing).emitXml) c])+ []+parseFirstFret :: P.XParse FirstFret+parseFirstFret = + FirstFret+ <$> (P.xtext >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "location") >>= parseLeftRight)++-- | Smart constructor for 'FirstFret'+mkFirstFret :: PositiveInteger -> FirstFret+mkFirstFret a = FirstFret a Nothing Nothing++-- | @formatted-symbol-id@ /(complex)/+--+-- The formatted-symbol-id type represents a SMuFL musical symbol element with formatting and id attributes.+data FormattedSymbolId = + FormattedSymbolId {+ formattedSymbolIdSmuflGlyphName :: SmuflGlyphName -- ^ text content+ , formattedSymbolIdJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ , formattedSymbolIdDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , formattedSymbolIdDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , formattedSymbolIdRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , formattedSymbolIdRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , formattedSymbolIdFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , formattedSymbolIdFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , formattedSymbolIdFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , formattedSymbolIdFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , formattedSymbolIdColor :: (Maybe Color) -- ^ /color/ attribute+ , formattedSymbolIdHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , formattedSymbolIdValign :: (Maybe Valign) -- ^ /valign/ attribute+ , formattedSymbolIdUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , formattedSymbolIdOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , formattedSymbolIdLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , formattedSymbolIdRotation :: (Maybe RotationDegrees) -- ^ /rotation/ attribute+ , formattedSymbolIdLetterSpacing :: (Maybe NumberOrNormal) -- ^ /letter-spacing/ attribute+ , formattedSymbolIdLineHeight :: (Maybe NumberOrNormal) -- ^ /line-height/ attribute+ , formattedSymbolIdDir :: (Maybe TextDirection) -- ^ /dir/ attribute+ , formattedSymbolIdEnclosure :: (Maybe EnclosureShape) -- ^ /enclosure/ attribute+ , formattedSymbolIdId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FormattedSymbolId where+ emitXml (FormattedSymbolId a b c d e f g h i j k l m n o p q r s t u v) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "rotation" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "letter-spacing" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "line-height" Nothing).emitXml) s] +++ [maybe XEmpty (XAttr (QN "dir" Nothing).emitXml) t] +++ [maybe XEmpty (XAttr (QN "enclosure" Nothing).emitXml) u] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) v])+ []+parseFormattedSymbolId :: P.XParse FormattedSymbolId+parseFormattedSymbolId = + FormattedSymbolId+ <$> (P.xtext >>= parseSmuflGlyphName)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "rotation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "letter-spacing") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "line-height") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "dir") >>= parseTextDirection)+ <*> P.optional (P.xattr (P.name "enclosure") >>= parseEnclosureShape)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'FormattedSymbolId'+mkFormattedSymbolId :: SmuflGlyphName -> FormattedSymbolId+mkFormattedSymbolId a = FormattedSymbolId a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @formatted-text@ /(complex)/+--+-- The formatted-text type represents a text element with text-formatting attributes.+data FormattedText = + FormattedText {+ formattedTextString :: String -- ^ text content+ , formattedTextLang :: (Maybe Lang) -- ^ /xml:lang/ attribute+ , formattedTextSpace :: (Maybe Space) -- ^ /xml:space/ attribute+ , formattedTextJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ , formattedTextDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , formattedTextDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , formattedTextRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , formattedTextRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , formattedTextFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , formattedTextFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , formattedTextFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , formattedTextFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , formattedTextColor :: (Maybe Color) -- ^ /color/ attribute+ , formattedTextHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , formattedTextValign :: (Maybe Valign) -- ^ /valign/ attribute+ , formattedTextUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , formattedTextOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , formattedTextLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , formattedTextRotation :: (Maybe RotationDegrees) -- ^ /rotation/ attribute+ , formattedTextLetterSpacing :: (Maybe NumberOrNormal) -- ^ /letter-spacing/ attribute+ , formattedTextLineHeight :: (Maybe NumberOrNormal) -- ^ /line-height/ attribute+ , formattedTextDir :: (Maybe TextDirection) -- ^ /dir/ attribute+ , formattedTextEnclosure :: (Maybe EnclosureShape) -- ^ /enclosure/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FormattedText where+ emitXml (FormattedText a b c d e f g h i j k l m n o p q r s t u v w) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "lang" (Just "xml")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "space" (Just "xml")).emitXml) c] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "rotation" Nothing).emitXml) s] +++ [maybe XEmpty (XAttr (QN "letter-spacing" Nothing).emitXml) t] +++ [maybe XEmpty (XAttr (QN "line-height" Nothing).emitXml) u] +++ [maybe XEmpty (XAttr (QN "dir" Nothing).emitXml) v] +++ [maybe XEmpty (XAttr (QN "enclosure" Nothing).emitXml) w])+ []+parseFormattedText :: P.XParse FormattedText+parseFormattedText = + FormattedText+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "xml:lang") >>= parseLang)+ <*> P.optional (P.xattr (P.name "xml:space") >>= parseSpace)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "rotation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "letter-spacing") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "line-height") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "dir") >>= parseTextDirection)+ <*> P.optional (P.xattr (P.name "enclosure") >>= parseEnclosureShape)++-- | Smart constructor for 'FormattedText'+mkFormattedText :: String -> FormattedText+mkFormattedText a = FormattedText a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @formatted-text-id@ /(complex)/+--+-- The formatted-text-id type represents a text element with text-formatting and id attributes.+data FormattedTextId = + FormattedTextId {+ formattedTextIdString :: String -- ^ text content+ , formattedTextIdLang :: (Maybe Lang) -- ^ /xml:lang/ attribute+ , formattedTextIdSpace :: (Maybe Space) -- ^ /xml:space/ attribute+ , formattedTextIdJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ , formattedTextIdDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , formattedTextIdDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , formattedTextIdRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , formattedTextIdRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , formattedTextIdFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , formattedTextIdFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , formattedTextIdFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , formattedTextIdFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , formattedTextIdColor :: (Maybe Color) -- ^ /color/ attribute+ , formattedTextIdHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , formattedTextIdValign :: (Maybe Valign) -- ^ /valign/ attribute+ , formattedTextIdUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , formattedTextIdOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , formattedTextIdLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , formattedTextIdRotation :: (Maybe RotationDegrees) -- ^ /rotation/ attribute+ , formattedTextIdLetterSpacing :: (Maybe NumberOrNormal) -- ^ /letter-spacing/ attribute+ , formattedTextIdLineHeight :: (Maybe NumberOrNormal) -- ^ /line-height/ attribute+ , formattedTextIdDir :: (Maybe TextDirection) -- ^ /dir/ attribute+ , formattedTextIdEnclosure :: (Maybe EnclosureShape) -- ^ /enclosure/ attribute+ , formattedTextIdId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FormattedTextId where+ emitXml (FormattedTextId a b c d e f g h i j k l m n o p q r s t u v w x) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "lang" (Just "xml")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "space" (Just "xml")).emitXml) c] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "rotation" Nothing).emitXml) s] +++ [maybe XEmpty (XAttr (QN "letter-spacing" Nothing).emitXml) t] +++ [maybe XEmpty (XAttr (QN "line-height" Nothing).emitXml) u] +++ [maybe XEmpty (XAttr (QN "dir" Nothing).emitXml) v] +++ [maybe XEmpty (XAttr (QN "enclosure" Nothing).emitXml) w] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) x])+ []+parseFormattedTextId :: P.XParse FormattedTextId+parseFormattedTextId = + FormattedTextId+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "xml:lang") >>= parseLang)+ <*> P.optional (P.xattr (P.name "xml:space") >>= parseSpace)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "rotation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "letter-spacing") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "line-height") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "dir") >>= parseTextDirection)+ <*> P.optional (P.xattr (P.name "enclosure") >>= parseEnclosureShape)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'FormattedTextId'+mkFormattedTextId :: String -> FormattedTextId+mkFormattedTextId a = FormattedTextId a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @forward@ /(complex)/+--+-- The backup and forward elements are required to coordinate multiple voices in one part, including music on multiple staves. The forward element is generally used within voices and staves. Duration values should always be positive, and should not cross measure boundaries or mid-measure changes in the divisions value.+data Forward = + Forward {+ forwardDuration :: Duration+ , forwardEditorialVoice :: EditorialVoice+ , forwardStaff :: (Maybe Staff)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Forward where+ emitXml (Forward a b c) =+ XReps [emitXml a,emitXml b,emitXml c]+parseForward :: P.XParse Forward+parseForward = + Forward+ <$> parseDuration+ <*> parseEditorialVoice+ <*> P.optional (parseStaff)++-- | Smart constructor for 'Forward'+mkForward :: Duration -> EditorialVoice -> Forward+mkForward a b = Forward a b Nothing++-- | @frame@ /(complex)/+--+-- The frame type represents a frame or fretboard diagram used together with a chord symbol. The representation is based on the NIFF guitar grid with additional information. The frame type's unplayed attribute indicates what to display above a string that has no associated frame-note element. Typical values are x and the empty string. If the attribute is not present, the display of the unplayed string is application-defined.+data Frame = + Frame {+ frameHeight :: (Maybe Tenths) -- ^ /height/ attribute+ , frameWidth :: (Maybe Tenths) -- ^ /width/ attribute+ , frameUnplayed :: (Maybe Token) -- ^ /unplayed/ attribute+ , frameDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , frameDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , frameRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , frameRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , frameColor :: (Maybe Color) -- ^ /color/ attribute+ , frameHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , frameValign :: (Maybe ValignImage) -- ^ /valign/ attribute+ , frameId :: (Maybe ID) -- ^ /id/ attribute+ , frameFrameStrings :: PositiveInteger -- ^ /frame-strings/ child element+ , frameFrameFrets :: PositiveInteger -- ^ /frame-frets/ child element+ , frameFirstFret :: (Maybe FirstFret) -- ^ /first-fret/ child element+ , frameFrameNote :: [FrameNote] -- ^ /frame-note/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Frame where+ emitXml (Frame a b c d e f g h i j k l m n o) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "height" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "width" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "unplayed" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) k])+ ([XElement (QN "frame-strings" Nothing) (emitXml l)] +++ [XElement (QN "frame-frets" Nothing) (emitXml m)] +++ [maybe XEmpty (XElement (QN "first-fret" Nothing).emitXml) n] +++ map (XElement (QN "frame-note" Nothing).emitXml) o)+parseFrame :: P.XParse Frame+parseFrame = + Frame+ <$> P.optional (P.xattr (P.name "height") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "width") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "unplayed") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValignImage)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> (P.xchild (P.name "frame-strings") (P.xtext >>= parsePositiveInteger))+ <*> (P.xchild (P.name "frame-frets") (P.xtext >>= parsePositiveInteger))+ <*> P.optional (P.xchild (P.name "first-fret") (parseFirstFret))+ <*> P.many (P.xchild (P.name "frame-note") (parseFrameNote))++-- | Smart constructor for 'Frame'+mkFrame :: PositiveInteger -> PositiveInteger -> Frame+mkFrame l m = Frame Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing l m Nothing []++-- | @frame-note@ /(complex)/+--+-- The frame-note type represents each note included in the frame. An open string will have a fret value of 0, while a muted string will not be associated with a frame-note element.+data FrameNote = + FrameNote {+ frameNoteString :: CmpString -- ^ /string/ child element+ , frameNoteFret :: Fret -- ^ /fret/ child element+ , frameNoteFingering :: (Maybe Fingering) -- ^ /fingering/ child element+ , frameNoteBarre :: (Maybe Barre) -- ^ /barre/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FrameNote where+ emitXml (FrameNote a b c d) =+ XContent XEmpty+ []+ ([XElement (QN "string" Nothing) (emitXml a)] +++ [XElement (QN "fret" Nothing) (emitXml b)] +++ [maybe XEmpty (XElement (QN "fingering" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "barre" Nothing).emitXml) d])+parseFrameNote :: P.XParse FrameNote+parseFrameNote = + FrameNote+ <$> (P.xchild (P.name "string") (parseCmpString))+ <*> (P.xchild (P.name "fret") (parseFret))+ <*> P.optional (P.xchild (P.name "fingering") (parseFingering))+ <*> P.optional (P.xchild (P.name "barre") (parseBarre))++-- | Smart constructor for 'FrameNote'+mkFrameNote :: CmpString -> Fret -> FrameNote+mkFrameNote a b = FrameNote a b Nothing Nothing++-- | @fret@ /(complex)/+--+-- The fret element is used with tablature notation and chord diagrams. Fret numbers start with 0 for an open string and 1 for the first fret.+data Fret = + Fret {+ fretNonNegativeInteger :: NonNegativeInteger -- ^ text content+ , fretFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , fretFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , fretFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , fretFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , fretColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Fret where+ emitXml (Fret a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseFret :: P.XParse Fret+parseFret = + Fret+ <$> (P.xtext >>= parseNonNegativeInteger)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Fret'+mkFret :: NonNegativeInteger -> Fret+mkFret a = Fret a Nothing Nothing Nothing Nothing Nothing++-- | @glass@ /(complex)/+--+-- The glass type represents pictograms for glass percussion instruments. The smufl attribute is used to distinguish different SMuFL glyphs for wind chimes in the chimes pictograms range, including those made of materials other than glass.+data Glass = + Glass {+ glassGlassValue :: GlassValue -- ^ text content+ , glassSmufl :: (Maybe SmuflPictogramGlyphName) -- ^ /smufl/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Glass where+ emitXml (Glass a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) b])+ []+parseGlass :: P.XParse Glass+parseGlass = + Glass+ <$> (P.xtext >>= parseGlassValue)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflPictogramGlyphName)++-- | Smart constructor for 'Glass'+mkGlass :: GlassValue -> Glass+mkGlass a = Glass a Nothing++-- | @glissando@ /(complex)/+--+-- Glissando and slide types both indicate rapidly moving from one pitch to the other so that individual notes are not discerned. The distinction is similar to that between NIFF's glissando and portamento elements. A glissando sounds the half notes in between the slide and defaults to a wavy line. The optional text is printed alongside the line.+data Glissando = + Glissando {+ glissandoString :: String -- ^ text content+ , glissandoType :: StartStop -- ^ /type/ attribute+ , glissandoNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , glissandoLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , glissandoDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , glissandoSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , glissandoDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , glissandoDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , glissandoRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , glissandoRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , glissandoFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , glissandoFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , glissandoFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , glissandoFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , glissandoColor :: (Maybe Color) -- ^ /color/ attribute+ , glissandoId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Glissando where+ emitXml (Glissando a b c d e f g h i j k l m n o p) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) p])+ []+parseGlissando :: P.XParse Glissando+parseGlissando = + Glissando+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Glissando'+mkGlissando :: String -> StartStop -> Glissando+mkGlissando a b = Glissando a b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @glyph@ /(complex)/+--+-- The glyph element represents what SMuFL glyph should be used for different variations of symbols that are semantically identical. The type attribute specifies what type of glyph is being defined. The element value specifies what SMuFL glyph to use, including recommended stylistic alternates. The SMuFL glyph name should match the type. For instance, a type of quarter-rest would use values restQuarter, restQuarterOld, or restQuarterZ. A type of g-clef-ottava-bassa would use values gClef8vb, gClef8vbOld, or gClef8vbCClef. A type of octave-shift-up-8 would use values ottava, ottavaBassa, ottavaBassaBa, ottavaBassaVb, or octaveBassa.+data Glyph = + Glyph {+ glyphSmuflGlyphName :: SmuflGlyphName -- ^ text content+ , cmpglyphType :: GlyphType -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Glyph where+ emitXml (Glyph a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseGlyph :: P.XParse Glyph+parseGlyph = + Glyph+ <$> (P.xtext >>= parseSmuflGlyphName)+ <*> (P.xattr (P.name "type") >>= parseGlyphType)++-- | Smart constructor for 'Glyph'+mkGlyph :: SmuflGlyphName -> GlyphType -> Glyph+mkGlyph a b = Glyph a b++-- | @grace@ /(complex)/+--+-- The grace type indicates the presence of a grace note. The slash attribute for a grace note is yes for slashed eighth notes. The other grace note attributes come from MuseData sound suggestions. The steal-time-previous attribute indicates the percentage of time to steal from the previous note for the grace note. The steal-time-following attribute indicates the percentage of time to steal from the following note for the grace note, as for appoggiaturas. The make-time attribute indicates to make time, not steal time; the units are in real-time divisions for the grace note.+data Grace = + Grace {+ graceStealTimePrevious :: (Maybe Percent) -- ^ /steal-time-previous/ attribute+ , graceStealTimeFollowing :: (Maybe Percent) -- ^ /steal-time-following/ attribute+ , graceMakeTime :: (Maybe Divisions) -- ^ /make-time/ attribute+ , graceSlash :: (Maybe YesNo) -- ^ /slash/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Grace where+ emitXml (Grace a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "steal-time-previous" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "steal-time-following" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "make-time" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "slash" Nothing).emitXml) d])+ []+parseGrace :: P.XParse Grace+parseGrace = + Grace+ <$> P.optional (P.xattr (P.name "steal-time-previous") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "steal-time-following") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "make-time") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "slash") >>= parseYesNo)++-- | Smart constructor for 'Grace'+mkGrace :: Grace+mkGrace = Grace Nothing Nothing Nothing Nothing++-- | @group-barline@ /(complex)/+--+-- The group-barline type indicates if the group should have common barlines.+data GroupBarline = + GroupBarline {+ groupBarlineGroupBarlineValue :: GroupBarlineValue -- ^ text content+ , groupBarlineColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GroupBarline where+ emitXml (GroupBarline a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "color" Nothing).emitXml) b])+ []+parseGroupBarline :: P.XParse GroupBarline+parseGroupBarline = + GroupBarline+ <$> (P.xtext >>= parseGroupBarlineValue)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'GroupBarline'+mkGroupBarline :: GroupBarlineValue -> GroupBarline+mkGroupBarline a = GroupBarline a Nothing++-- | @group-name@ /(complex)/+--+-- The group-name type describes the name or abbreviation of a part-group element. Formatting attributes in the group-name type are deprecated in Version 2.0 in favor of the new group-name-display and group-abbreviation-display elements.+data GroupName = + GroupName {+ groupNameString :: String -- ^ text content+ , groupNameDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , groupNameDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , groupNameRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , groupNameRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , groupNameFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , groupNameFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , groupNameFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , groupNameFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , groupNameColor :: (Maybe Color) -- ^ /color/ attribute+ , groupNameJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GroupName where+ emitXml (GroupName a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) k])+ []+parseGroupName :: P.XParse GroupName+parseGroupName = + GroupName+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)++-- | Smart constructor for 'GroupName'+mkGroupName :: String -> GroupName+mkGroupName a = GroupName a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @group-symbol@ /(complex)/+--+-- The group-symbol type indicates how the symbol for a group is indicated in the score.+data GroupSymbol = + GroupSymbol {+ groupSymbolGroupSymbolValue :: GroupSymbolValue -- ^ text content+ , groupSymbolDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , groupSymbolDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , groupSymbolRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , groupSymbolRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , groupSymbolColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GroupSymbol where+ emitXml (GroupSymbol a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseGroupSymbol :: P.XParse GroupSymbol+parseGroupSymbol = + GroupSymbol+ <$> (P.xtext >>= parseGroupSymbolValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'GroupSymbol'+mkGroupSymbol :: GroupSymbolValue -> GroupSymbol+mkGroupSymbol a = GroupSymbol a Nothing Nothing Nothing Nothing Nothing++-- | @grouping@ /(complex)/+--+-- The grouping type is used for musical analysis. When the type attribute is "start" or "single", it usually contains one or more feature elements. The number attribute is used for distinguishing between overlapping and hierarchical groupings. The member-of attribute allows for easy distinguishing of what grouping elements are in what hierarchy. Feature elements contained within a "stop" type of grouping may be ignored.+-- +-- This element is flexible to allow for different types of analyses. Future versions of the MusicXML format may add elements that can represent more standardized categories of analysis data, allowing for easier data sharing.+data Grouping = + Grouping {+ groupingType :: StartStopSingle -- ^ /type/ attribute+ , groupingNumber :: (Maybe Token) -- ^ /number/ attribute+ , groupingMemberOf :: (Maybe Token) -- ^ /member-of/ attribute+ , groupingId :: (Maybe ID) -- ^ /id/ attribute+ , groupingFeature :: [Feature] -- ^ /feature/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Grouping where+ emitXml (Grouping a b c d e) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "member-of" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) d])+ (map (XElement (QN "feature" Nothing).emitXml) e)+parseGrouping :: P.XParse Grouping+parseGrouping = + Grouping+ <$> (P.xattr (P.name "type") >>= parseStartStopSingle)+ <*> P.optional (P.xattr (P.name "number") >>= parseToken)+ <*> P.optional (P.xattr (P.name "member-of") >>= parseToken)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (P.xchild (P.name "feature") (parseFeature))++-- | Smart constructor for 'Grouping'+mkGrouping :: StartStopSingle -> Grouping+mkGrouping a = Grouping a Nothing Nothing Nothing []++-- | @hammer-on-pull-off@ /(complex)/+--+-- The hammer-on and pull-off elements are used in guitar and fretted instrument notation. Since a single slur can be marked over many notes, the hammer-on and pull-off elements are separate so the individual pair of notes can be specified. The element content can be used to specify how the hammer-on or pull-off should be notated. An empty element leaves this choice up to the application.+data HammerOnPullOff = + HammerOnPullOff {+ hammerOnPullOffString :: String -- ^ text content+ , hammerOnPullOffType :: StartStop -- ^ /type/ attribute+ , hammerOnPullOffNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , hammerOnPullOffDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , hammerOnPullOffDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , hammerOnPullOffRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , hammerOnPullOffRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , hammerOnPullOffFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , hammerOnPullOffFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , hammerOnPullOffFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , hammerOnPullOffFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , hammerOnPullOffColor :: (Maybe Color) -- ^ /color/ attribute+ , hammerOnPullOffPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HammerOnPullOff where+ emitXml (HammerOnPullOff a b c d e f g h i j k l m) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) m])+ []+parseHammerOnPullOff :: P.XParse HammerOnPullOff+parseHammerOnPullOff = + HammerOnPullOff+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'HammerOnPullOff'+mkHammerOnPullOff :: String -> StartStop -> HammerOnPullOff+mkHammerOnPullOff a b = HammerOnPullOff a b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @handbell@ /(complex)/+--+-- The handbell element represents notation for various techniques used in handbell and handchime music.+data Handbell = + Handbell {+ handbellHandbellValue :: HandbellValue -- ^ text content+ , handbellDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , handbellDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , handbellRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , handbellRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , handbellFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , handbellFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , handbellFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , handbellFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , handbellColor :: (Maybe Color) -- ^ /color/ attribute+ , handbellPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Handbell where+ emitXml (Handbell a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ []+parseHandbell :: P.XParse Handbell+parseHandbell = + Handbell+ <$> (P.xtext >>= parseHandbellValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'Handbell'+mkHandbell :: HandbellValue -> Handbell+mkHandbell a = Handbell a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @harmon-closed@ /(complex)/+--+-- The harmon-closed type represents whether the harmon mute is closed, open, or half-open. The optional location attribute indicates which portion of the symbol is filled in when the element value is half.+data HarmonClosed = + HarmonClosed {+ harmonClosedHarmonClosedValue :: HarmonClosedValue -- ^ text content+ , harmonClosedLocation :: (Maybe HarmonClosedLocation) -- ^ /location/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HarmonClosed where+ emitXml (HarmonClosed a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) b])+ []+parseHarmonClosed :: P.XParse HarmonClosed+parseHarmonClosed = + HarmonClosed+ <$> (P.xtext >>= parseHarmonClosedValue)+ <*> P.optional (P.xattr (P.name "location") >>= parseHarmonClosedLocation)++-- | Smart constructor for 'HarmonClosed'+mkHarmonClosed :: HarmonClosedValue -> HarmonClosed+mkHarmonClosed a = HarmonClosed a Nothing++-- | @harmon-mute@ /(complex)/+--+-- The harmon-mute type represents the symbols used for harmon mutes in brass notation.+data HarmonMute = + HarmonMute {+ harmonMuteDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , harmonMuteDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , harmonMuteRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , harmonMuteRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , harmonMuteFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , harmonMuteFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , harmonMuteFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , harmonMuteFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , harmonMuteColor :: (Maybe Color) -- ^ /color/ attribute+ , harmonMutePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , harmonMuteHarmonClosed :: HarmonClosed -- ^ /harmon-closed/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HarmonMute where+ emitXml (HarmonMute a b c d e f g h i j k) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j])+ ([XElement (QN "harmon-closed" Nothing) (emitXml k)])+parseHarmonMute :: P.XParse HarmonMute+parseHarmonMute = + HarmonMute+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> (P.xchild (P.name "harmon-closed") (parseHarmonClosed))++-- | Smart constructor for 'HarmonMute'+mkHarmonMute :: HarmonClosed -> HarmonMute+mkHarmonMute k = HarmonMute Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing k++-- | @harmonic@ /(complex)/+--+-- The harmonic type indicates natural and artificial harmonics. Allowing the type of pitch to be specified, combined with controls for appearance/playback differences, allows both the notation and the sound to be represented. Artificial harmonics can add a notated touching-pitch; artificial pinch harmonics will usually not notate a touching pitch. The attributes for the harmonic element refer to the use of the circular harmonic symbol, typically but not always used with natural harmonics.+data Harmonic = + Harmonic {+ harmonicPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , harmonicDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , harmonicDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , harmonicRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , harmonicRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , harmonicFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , harmonicFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , harmonicFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , harmonicFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , harmonicColor :: (Maybe Color) -- ^ /color/ attribute+ , harmonicPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , harmonicHarmonic :: (Maybe ChxHarmonic)+ , harmonicHarmonic1 :: (Maybe ChxHarmonic1)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Harmonic where+ emitXml (Harmonic a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ ([emitXml l] +++ [emitXml m])+parseHarmonic :: P.XParse Harmonic+parseHarmonic = + Harmonic+ <$> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (parseChxHarmonic)+ <*> P.optional (parseChxHarmonic1)++-- | Smart constructor for 'Harmonic'+mkHarmonic :: Harmonic+mkHarmonic = Harmonic Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @harmony@ /(complex)/+--+-- The harmony type is based on Humdrum's **harm encoding, extended to support chord symbols in popular music as well as functional harmony analysis in classical music.+-- +-- If there are alternate harmonies possible, this can be specified using multiple harmony elements differentiated by type. Explicit harmonies have all note present in the music; implied have some notes missing but implied; alternate represents alternate analyses.+-- +-- The harmony object may be used for analysis or for chord symbols. The print-object attribute controls whether or not anything is printed due to the harmony element. The print-frame attribute controls printing of a frame or fretboard diagram. The print-style attribute group sets the default for the harmony, but individual elements can override this with their own print-style values.+data Harmony = + Harmony {+ harmonyType :: (Maybe HarmonyType) -- ^ /type/ attribute+ , harmonyPrintFrame :: (Maybe YesNo) -- ^ /print-frame/ attribute+ , harmonyPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , harmonyDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , harmonyDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , harmonyRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , harmonyRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , harmonyFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , harmonyFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , harmonyFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , harmonyFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , harmonyColor :: (Maybe Color) -- ^ /color/ attribute+ , harmonyPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , harmonyId :: (Maybe ID) -- ^ /id/ attribute+ , harmonyHarmonyChord :: [HarmonyChord]+ , harmonyFrame :: (Maybe Frame) -- ^ /frame/ child element+ , harmonyOffset :: (Maybe Offset) -- ^ /offset/ child element+ , harmonyEditorial :: Editorial+ , harmonyStaff :: (Maybe Staff)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Harmony where+ emitXml (Harmony a b c d e f g h i j k l m n o p q r s) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "print-frame" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) n])+ ([emitXml o] +++ [maybe XEmpty (XElement (QN "frame" Nothing).emitXml) p] +++ [maybe XEmpty (XElement (QN "offset" Nothing).emitXml) q] +++ [emitXml r] +++ [emitXml s])+parseHarmony :: P.XParse Harmony+parseHarmony = + Harmony+ <$> P.optional (P.xattr (P.name "type") >>= parseHarmonyType)+ <*> P.optional (P.xattr (P.name "print-frame") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (parseHarmonyChord)+ <*> P.optional (P.xchild (P.name "frame") (parseFrame))+ <*> P.optional (P.xchild (P.name "offset") (parseOffset))+ <*> parseEditorial+ <*> P.optional (parseStaff)++-- | Smart constructor for 'Harmony'+mkHarmony :: Editorial -> Harmony+mkHarmony r = Harmony Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing [] Nothing Nothing r Nothing++-- | @harp-pedals@ /(complex)/+--+-- The harp-pedals type is used to create harp pedal diagrams. The pedal-step and pedal-alter elements use the same values as the step and alter elements. For easiest reading, the pedal-tuning elements should follow standard harp pedal order, with pedal-step values of D, C, B, E, F, G, and A.+data HarpPedals = + HarpPedals {+ harpPedalsDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , harpPedalsDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , harpPedalsRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , harpPedalsRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , harpPedalsFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , harpPedalsFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , harpPedalsFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , harpPedalsFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , harpPedalsColor :: (Maybe Color) -- ^ /color/ attribute+ , harpPedalsHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , harpPedalsValign :: (Maybe Valign) -- ^ /valign/ attribute+ , harpPedalsId :: (Maybe ID) -- ^ /id/ attribute+ , harpPedalsPedalTuning :: [PedalTuning] -- ^ /pedal-tuning/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HarpPedals where+ emitXml (HarpPedals a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) l])+ (map (XElement (QN "pedal-tuning" Nothing).emitXml) m)+parseHarpPedals :: P.XParse HarpPedals+parseHarpPedals = + HarpPedals+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (P.xchild (P.name "pedal-tuning") (parsePedalTuning))++-- | Smart constructor for 'HarpPedals'+mkHarpPedals :: HarpPedals+mkHarpPedals = HarpPedals Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing []++-- | @heel-toe@ /(complex)/+--+-- The heel and toe elements are used with organ pedals. The substitution value is "no" if the attribute is not present.+data HeelToe = + HeelToe {+ heelToeEmptyPlacement :: HeelToe+ , heelToeSubstitution :: (Maybe YesNo) -- ^ /substitution/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HeelToe where+ emitXml (HeelToe a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "substitution" Nothing).emitXml) b])+ ([emitXml a])+parseHeelToe :: P.XParse HeelToe+parseHeelToe = + HeelToe+ <$> parseHeelToe+ <*> P.optional (P.xattr (P.name "substitution") >>= parseYesNo)++-- | Smart constructor for 'HeelToe'+mkHeelToe :: HeelToe -> HeelToe+mkHeelToe a = HeelToe a Nothing++-- | @hole@ /(complex)/+--+-- The hole type represents the symbols used for woodwind and brass fingerings as well as other notations.+data Hole = + Hole {+ holeDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , holeDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , holeRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , holeRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , holeFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , holeFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , holeFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , holeFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , holeColor :: (Maybe Color) -- ^ /color/ attribute+ , holePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , holeHoleType :: (Maybe String) -- ^ /hole-type/ child element+ , holeHoleClosed :: HoleClosed -- ^ /hole-closed/ child element+ , holeHoleShape :: (Maybe String) -- ^ /hole-shape/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Hole where+ emitXml (Hole a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j])+ ([maybe XEmpty (XElement (QN "hole-type" Nothing).emitXml) k] +++ [XElement (QN "hole-closed" Nothing) (emitXml l)] +++ [maybe XEmpty (XElement (QN "hole-shape" Nothing).emitXml) m])+parseHole :: P.XParse Hole+parseHole = + Hole+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xchild (P.name "hole-type") (P.xtext >>= return))+ <*> (P.xchild (P.name "hole-closed") (parseHoleClosed))+ <*> P.optional (P.xchild (P.name "hole-shape") (P.xtext >>= return))++-- | Smart constructor for 'Hole'+mkHole :: HoleClosed -> Hole+mkHole l = Hole Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing l Nothing++-- | @hole-closed@ /(complex)/+--+-- The hole-closed type represents whether the hole is closed, open, or half-open. The optional location attribute indicates which portion of the hole is filled in when the element value is half.+data HoleClosed = + HoleClosed {+ holeClosedHoleClosedValue :: HoleClosedValue -- ^ text content+ , holeClosedLocation :: (Maybe HoleClosedLocation) -- ^ /location/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HoleClosed where+ emitXml (HoleClosed a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) b])+ []+parseHoleClosed :: P.XParse HoleClosed+parseHoleClosed = + HoleClosed+ <$> (P.xtext >>= parseHoleClosedValue)+ <*> P.optional (P.xattr (P.name "location") >>= parseHoleClosedLocation)++-- | Smart constructor for 'HoleClosed'+mkHoleClosed :: HoleClosedValue -> HoleClosed+mkHoleClosed a = HoleClosed a Nothing++-- | @horizontal-turn@ /(complex)/+--+-- The horizontal-turn type represents turn elements that are horizontal rather than vertical. These are empty elements with print-style, placement, trill-sound, and slash attributes. If the slash attribute is yes, then a vertical line is used to slash the turn; it is no by default.+data HorizontalTurn = + HorizontalTurn {+ horizontalTurnSlash :: (Maybe YesNo) -- ^ /slash/ attribute+ , horizontalTurnDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , horizontalTurnDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , horizontalTurnRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , horizontalTurnRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , horizontalTurnFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , horizontalTurnFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , horizontalTurnFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , horizontalTurnFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , horizontalTurnColor :: (Maybe Color) -- ^ /color/ attribute+ , horizontalTurnPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , horizontalTurnStartNote :: (Maybe StartNote) -- ^ /start-note/ attribute+ , horizontalTurnTrillStep :: (Maybe TrillStep) -- ^ /trill-step/ attribute+ , horizontalTurnTwoNoteTurn :: (Maybe TwoNoteTurn) -- ^ /two-note-turn/ attribute+ , horizontalTurnAccelerate :: (Maybe YesNo) -- ^ /accelerate/ attribute+ , horizontalTurnBeats :: (Maybe TrillBeats) -- ^ /beats/ attribute+ , horizontalTurnSecondBeat :: (Maybe Percent) -- ^ /second-beat/ attribute+ , horizontalTurnLastBeat :: (Maybe Percent) -- ^ /last-beat/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HorizontalTurn where+ emitXml (HorizontalTurn a b c d e f g h i j k l m n o p q r) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "slash" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "start-note" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "trill-step" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "two-note-turn" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "accelerate" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "beats" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "second-beat" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "last-beat" Nothing).emitXml) r])+ []+parseHorizontalTurn :: P.XParse HorizontalTurn+parseHorizontalTurn = + HorizontalTurn+ <$> P.optional (P.xattr (P.name "slash") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "start-note") >>= parseStartNote)+ <*> P.optional (P.xattr (P.name "trill-step") >>= parseTrillStep)+ <*> P.optional (P.xattr (P.name "two-note-turn") >>= parseTwoNoteTurn)+ <*> P.optional (P.xattr (P.name "accelerate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "beats") >>= parseTrillBeats)+ <*> P.optional (P.xattr (P.name "second-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "last-beat") >>= parsePercent)++-- | Smart constructor for 'HorizontalTurn'+mkHorizontalTurn :: HorizontalTurn+mkHorizontalTurn = HorizontalTurn Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @identification@ /(complex)/+--+-- Identification contains basic metadata about the score. It includes the information in MuseData headers that may apply at a score-wide, movement-wide, or part-wide level. The creator, rights, source, and relation elements are based on Dublin Core.+data Identification = + Identification {+ identificationCreator :: [TypedText] -- ^ /creator/ child element+ , identificationRights :: [TypedText] -- ^ /rights/ child element+ , identificationEncoding :: (Maybe Encoding) -- ^ /encoding/ child element+ , identificationSource :: (Maybe String) -- ^ /source/ child element+ , identificationRelation :: [TypedText] -- ^ /relation/ child element+ , identificationMiscellaneous :: (Maybe Miscellaneous) -- ^ /miscellaneous/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Identification where+ emitXml (Identification a b c d e f) =+ XContent XEmpty+ []+ (map (XElement (QN "creator" Nothing).emitXml) a +++ map (XElement (QN "rights" Nothing).emitXml) b +++ [maybe XEmpty (XElement (QN "encoding" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "source" Nothing).emitXml) d] +++ map (XElement (QN "relation" Nothing).emitXml) e +++ [maybe XEmpty (XElement (QN "miscellaneous" Nothing).emitXml) f])+parseIdentification :: P.XParse Identification+parseIdentification = + Identification+ <$> P.many (P.xchild (P.name "creator") (parseTypedText))+ <*> P.many (P.xchild (P.name "rights") (parseTypedText))+ <*> P.optional (P.xchild (P.name "encoding") (parseEncoding))+ <*> P.optional (P.xchild (P.name "source") (P.xtext >>= return))+ <*> P.many (P.xchild (P.name "relation") (parseTypedText))+ <*> P.optional (P.xchild (P.name "miscellaneous") (parseMiscellaneous))++-- | Smart constructor for 'Identification'+mkIdentification :: Identification+mkIdentification = Identification [] [] Nothing Nothing [] Nothing++-- | @image@ /(complex)/+--+-- The image type is used to include graphical images in a score.+data Image = + Image {+ imageSource :: String -- ^ /source/ attribute+ , imageType :: Token -- ^ /type/ attribute+ , imageHeight :: (Maybe Tenths) -- ^ /height/ attribute+ , imageWidth :: (Maybe Tenths) -- ^ /width/ attribute+ , imageDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , imageDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , imageRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , imageRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , imageHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , imageValign :: (Maybe ValignImage) -- ^ /valign/ attribute+ , imageId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Image where+ emitXml (Image a b c d e f g h i j k) =+ XContent XEmpty+ ([XAttr (QN "source" Nothing) (emitXml a)] +++ [XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "height" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "width" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) k])+ []+parseImage :: P.XParse Image+parseImage = + Image+ <$> (P.xattr (P.name "source") >>= return)+ <*> (P.xattr (P.name "type") >>= parseToken)+ <*> P.optional (P.xattr (P.name "height") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "width") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValignImage)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Image'+mkImage :: String -> Token -> Image+mkImage a b = Image a b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @instrument@ /(complex)/+--+-- The instrument type distinguishes between score-instrument elements in a score-part. The id attribute is an IDREF back to the score-instrument ID. If multiple score-instruments are specified on a score-part, there should be an instrument element for each note in the part.+data Instrument = + Instrument {+ instrumentId :: IDREF -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Instrument where+ emitXml (Instrument a) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ []+parseInstrument :: P.XParse Instrument+parseInstrument = + Instrument+ <$> (P.xattr (P.name "id") >>= parseIDREF)++-- | Smart constructor for 'Instrument'+mkInstrument :: IDREF -> Instrument+mkInstrument a = Instrument a++-- | @interchangeable@ /(complex)/+--+-- The interchangeable type is used to represent the second in a pair of interchangeable dual time signatures, such as the 6/8 in 3/4 (6/8). A separate symbol attribute value is available compared to the time element's symbol attribute, which applies to the first of the dual time signatures.+data Interchangeable = + Interchangeable {+ interchangeableSymbol :: (Maybe TimeSymbol) -- ^ /symbol/ attribute+ , interchangeableSeparator :: (Maybe TimeSeparator) -- ^ /separator/ attribute+ , interchangeableTimeRelation :: (Maybe TimeRelation) -- ^ /time-relation/ child element+ , interchangeableTimeSignature :: [TimeSignature]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Interchangeable where+ emitXml (Interchangeable a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "symbol" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "separator" Nothing).emitXml) b])+ ([maybe XEmpty (XElement (QN "time-relation" Nothing).emitXml) c] +++ [emitXml d])+parseInterchangeable :: P.XParse Interchangeable+parseInterchangeable = + Interchangeable+ <$> P.optional (P.xattr (P.name "symbol") >>= parseTimeSymbol)+ <*> P.optional (P.xattr (P.name "separator") >>= parseTimeSeparator)+ <*> P.optional (P.xchild (P.name "time-relation") (P.xtext >>= parseTimeRelation))+ <*> P.many (parseTimeSignature)++-- | Smart constructor for 'Interchangeable'+mkInterchangeable :: Interchangeable+mkInterchangeable = Interchangeable Nothing Nothing Nothing []++-- | @inversion@ /(complex)/+--+-- The inversion type represents harmony inversions. The value is a number indicating which inversion is used: 0 for root position, 1 for first inversion, etc.+data Inversion = + Inversion {+ inversionNonNegativeInteger :: NonNegativeInteger -- ^ text content+ , inversionDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , inversionDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , inversionRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , inversionRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , inversionFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , inversionFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , inversionFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , inversionFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , inversionColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Inversion where+ emitXml (Inversion a b c d e f g h i j) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j])+ []+parseInversion :: P.XParse Inversion+parseInversion = + Inversion+ <$> (P.xtext >>= parseNonNegativeInteger)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Inversion'+mkInversion :: NonNegativeInteger -> Inversion+mkInversion a = Inversion a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @key@ /(complex)/+--+-- The key type represents a key signature. Both traditional and non-traditional key signatures are supported. The optional number attribute refers to staff numbers. If absent, the key signature applies to all staves in the part. Key signatures appear at the start of each system unless the print-object attribute has been set to "no".+data Key = + Key {+ keyNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , keyDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , keyDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , keyRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , keyRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , keyFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , keyFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , keyFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , keyFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , keyColor :: (Maybe Color) -- ^ /color/ attribute+ , keyPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , keyId :: (Maybe ID) -- ^ /id/ attribute+ , keyKey :: ChxKey+ , keyKeyOctave :: [KeyOctave] -- ^ /key-octave/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Key where+ emitXml (Key a b c d e f g h i j k l m n) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) l])+ ([emitXml m] +++ map (XElement (QN "key-octave" Nothing).emitXml) n)+parseKey :: P.XParse Key+parseKey = + Key+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseChxKey+ <*> P.many (P.xchild (P.name "key-octave") (parseKeyOctave))++-- | Smart constructor for 'Key'+mkKey :: ChxKey -> Key+mkKey m = Key Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing m []++-- | @key-accidental@ /(complex)/+--+-- The key-accidental type indicates the accidental to be displayed in a non-traditional key signature, represented in the same manner as the accidental type without the formatting attributes.+data KeyAccidental = + KeyAccidental {+ keyAccidentalAccidentalValue :: AccidentalValue -- ^ text content+ , keyAccidentalSmufl :: (Maybe SmuflAccidentalGlyphName) -- ^ /smufl/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml KeyAccidental where+ emitXml (KeyAccidental a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) b])+ []+parseKeyAccidental :: P.XParse KeyAccidental+parseKeyAccidental = + KeyAccidental+ <$> (P.xtext >>= parseAccidentalValue)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflAccidentalGlyphName)++-- | Smart constructor for 'KeyAccidental'+mkKeyAccidental :: AccidentalValue -> KeyAccidental+mkKeyAccidental a = KeyAccidental a Nothing++-- | @key-octave@ /(complex)/+--+-- The key-octave element specifies in which octave an element of a key signature appears. The content specifies the octave value using the same values as the display-octave element. The number attribute is a positive integer that refers to the key signature element in left-to-right order. If the cancel attribute is set to yes, then this number refers to the canceling key signature specified by the cancel element in the parent key element. The cancel attribute cannot be set to yes if there is no corresponding cancel element within the parent key element. It is no by default.+data KeyOctave = + KeyOctave {+ keyOctaveOctave :: Octave -- ^ text content+ , keyOctaveNumber :: PositiveInteger -- ^ /number/ attribute+ , keyOctaveCancel :: (Maybe YesNo) -- ^ /cancel/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml KeyOctave where+ emitXml (KeyOctave a b c) =+ XContent (emitXml a)+ ([XAttr (QN "number" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "cancel" Nothing).emitXml) c])+ []+parseKeyOctave :: P.XParse KeyOctave+parseKeyOctave = + KeyOctave+ <$> (P.xtext >>= parseOctave)+ <*> (P.xattr (P.name "number") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "cancel") >>= parseYesNo)++-- | Smart constructor for 'KeyOctave'+mkKeyOctave :: Octave -> PositiveInteger -> KeyOctave+mkKeyOctave a b = KeyOctave a b Nothing++-- | @kind@ /(complex)/+--+-- Kind indicates the type of chord. Degree elements can then add, subtract, or alter from these starting points+--+-- @+-- +-- The attributes are used to indicate the formatting of the symbol. Since the kind element is the constant in all the harmony-chord groups that can make up a polychord, many formatting attributes are here.+-- +-- The use-symbols attribute is yes if the kind should be represented when possible with harmony symbols rather than letters and numbers. These symbols include:+-- +-- major: a triangle, like Unicode 25B3+-- minor: -, like Unicode 002D+-- augmented: +, like Unicode 002B+-- diminished: °, like Unicode 00B0+-- half-diminished: ø, like Unicode 00F8+-- +-- For the major-minor kind, only the minor symbol is used when use-symbols is yes. The major symbol is set using the symbol attribute in the degree-value element. The corresponding degree-alter value will usually be 0 in this case.+-- +-- The text attribute describes how the kind should be spelled in a score. If use-symbols is yes, the value of the text attribute follows the symbol. The stack-degrees attribute is yes if the degree elements should be stacked above each other. The parentheses-degrees attribute is yes if all the degrees should be in parentheses. The bracket-degrees attribute is yes if all the degrees should be in a bracket. If not specified, these values are implementation-specific. The alignment attributes are for the entire harmony-chord group of which this kind element is a part.+-- @+data Kind = + Kind {+ kindKindValue :: KindValue -- ^ text content+ , kindUseSymbols :: (Maybe YesNo) -- ^ /use-symbols/ attribute+ , kindText :: (Maybe Token) -- ^ /text/ attribute+ , kindStackDegrees :: (Maybe YesNo) -- ^ /stack-degrees/ attribute+ , kindParenthesesDegrees :: (Maybe YesNo) -- ^ /parentheses-degrees/ attribute+ , kindBracketDegrees :: (Maybe YesNo) -- ^ /bracket-degrees/ attribute+ , kindDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , kindDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , kindRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , kindRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , kindFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , kindFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , kindFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , kindFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , kindColor :: (Maybe Color) -- ^ /color/ attribute+ , kindHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , kindValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Kind where+ emitXml (Kind a b c d e f g h i j k l m n o p q) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "use-symbols" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "text" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "stack-degrees" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "parentheses-degrees" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "bracket-degrees" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) q])+ []+parseKind :: P.XParse Kind+parseKind = + Kind+ <$> (P.xtext >>= parseKindValue)+ <*> P.optional (P.xattr (P.name "use-symbols") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "stack-degrees") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "parentheses-degrees") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "bracket-degrees") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'Kind'+mkKind :: KindValue -> Kind+mkKind a = Kind a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @level@ /(complex)/+--+-- The level type is used to specify editorial information for different MusicXML elements. If the reference attribute for the level element is yes, this indicates editorial information that is for display only and should not affect playback. For instance, a modern edition of older music may set reference="yes" on the attributes containing the music's original clef, key, and time signature. It is no by default.+data Level = + Level {+ levelString :: String -- ^ text content+ , levelReference :: (Maybe YesNo) -- ^ /reference/ attribute+ , levelParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , levelBracket :: (Maybe YesNo) -- ^ /bracket/ attribute+ , levelSize :: (Maybe SymbolSize) -- ^ /size/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Level where+ emitXml (Level a b c d e) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "reference" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "bracket" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "size" Nothing).emitXml) e])+ []+parseLevel :: P.XParse Level+parseLevel = + Level+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "reference") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "bracket") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "size") >>= parseSymbolSize)++-- | Smart constructor for 'Level'+mkLevel :: String -> Level+mkLevel a = Level a Nothing Nothing Nothing Nothing++-- | @line-width@ /(complex)/+--+-- The line-width type indicates the width of a line type in tenths. The type attribute defines what type of line is being defined. Values include beam, bracket, dashes, enclosure, ending, extend, heavy barline, leger, light barline, octave shift, pedal, slur middle, slur tip, staff, stem, tie middle, tie tip, tuplet bracket, and wedge. The text content is expressed in tenths.+data LineWidth = + LineWidth {+ lineWidthTenths :: Tenths -- ^ text content+ , cmplineWidthType :: LineWidthType -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml LineWidth where+ emitXml (LineWidth a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseLineWidth :: P.XParse LineWidth+parseLineWidth = + LineWidth+ <$> (P.xtext >>= parseTenths)+ <*> (P.xattr (P.name "type") >>= parseLineWidthType)++-- | Smart constructor for 'LineWidth'+mkLineWidth :: Tenths -> LineWidthType -> LineWidth+mkLineWidth a b = LineWidth a b++-- | @link@ /(complex)/+--+-- The link type serves as an outgoing simple XLink. It is also used to connect a MusicXML score with a MusicXML opus. If a relative link is used within a document that is part of a compressed MusicXML file, the link is relative to the root folder of the zip file.+data Link = + Link {+ linkName :: (Maybe Token) -- ^ /name/ attribute+ , linkHref :: String -- ^ /xlink:href/ attribute+ , linkType :: (Maybe Type) -- ^ /xlink:type/ attribute+ , linkRole :: (Maybe Token) -- ^ /xlink:role/ attribute+ , linkTitle :: (Maybe Token) -- ^ /xlink:title/ attribute+ , linkShow :: (Maybe SmpShow) -- ^ /xlink:show/ attribute+ , linkActuate :: (Maybe Actuate) -- ^ /xlink:actuate/ attribute+ , linkElement :: (Maybe NMTOKEN) -- ^ /element/ attribute+ , linkPosition :: (Maybe PositiveInteger) -- ^ /position/ attribute+ , linkDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , linkDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , linkRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , linkRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Link where+ emitXml (Link a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "name" Nothing).emitXml) a] +++ [XAttr (QN "href" (Just "xlink")) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "type" (Just "xlink")).emitXml) c] +++ [maybe XEmpty (XAttr (QN "role" (Just "xlink")).emitXml) d] +++ [maybe XEmpty (XAttr (QN "title" (Just "xlink")).emitXml) e] +++ [maybe XEmpty (XAttr (QN "show" (Just "xlink")).emitXml) f] +++ [maybe XEmpty (XAttr (QN "actuate" (Just "xlink")).emitXml) g] +++ [maybe XEmpty (XAttr (QN "element" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "position" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) m])+ []+parseLink :: P.XParse Link+parseLink = + Link+ <$> P.optional (P.xattr (P.name "name") >>= parseToken)+ <*> (P.xattr (P.name "xlink:href") >>= return)+ <*> P.optional (P.xattr (P.name "xlink:type") >>= parseType)+ <*> P.optional (P.xattr (P.name "xlink:role") >>= parseToken)+ <*> P.optional (P.xattr (P.name "xlink:title") >>= parseToken)+ <*> P.optional (P.xattr (P.name "xlink:show") >>= parseSmpShow)+ <*> P.optional (P.xattr (P.name "xlink:actuate") >>= parseActuate)+ <*> P.optional (P.xattr (P.name "element") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "position") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)++-- | Smart constructor for 'Link'+mkLink :: String -> Link+mkLink b = Link Nothing b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @lyric@ /(complex)/+--+-- The lyric type represents text underlays for lyrics, based on Humdrum with support for other formats. Two text elements that are not separated by an elision element are part of the same syllable, but may have different text formatting. The MusicXML XSD is more strict than the DTD in enforcing this by disallowing a second syllabic element unless preceded by an elision element. The lyric number indicates multiple lines, though a name can be used as well (as in Finale's verse / chorus / section specification).+-- +-- Justification is center by default; placement is below by default. The print-object attribute can override a note's print-lyric attribute in cases where only some lyrics on a note are printed, as when lyrics for later verses are printed in a block of text rather than with each note. The time-only attribute precisely specifies which lyrics are to be sung which time through a repeated section.+data Lyric = + Lyric {+ lyricNumber :: (Maybe NMTOKEN) -- ^ /number/ attribute+ , lyricName :: (Maybe Token) -- ^ /name/ attribute+ , lyricTimeOnly :: (Maybe TimeOnly) -- ^ /time-only/ attribute+ , lyricJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ , lyricDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , lyricDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , lyricRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , lyricRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , lyricPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , lyricColor :: (Maybe Color) -- ^ /color/ attribute+ , lyricPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , lyricId :: (Maybe ID) -- ^ /id/ attribute+ , lyricLyric :: ChxLyric+ , lyricEndLine :: (Maybe Empty) -- ^ /end-line/ child element+ , lyricEndParagraph :: (Maybe Empty) -- ^ /end-paragraph/ child element+ , lyricEditorial :: Editorial+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Lyric where+ emitXml (Lyric a b c d e f g h i j k l m n o p) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "name" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "time-only" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) l])+ ([emitXml m] +++ [maybe XEmpty (XElement (QN "end-line" Nothing).emitXml) n] +++ [maybe XEmpty (XElement (QN "end-paragraph" Nothing).emitXml) o] +++ [emitXml p])+parseLyric :: P.XParse Lyric+parseLyric = + Lyric+ <$> P.optional (P.xattr (P.name "number") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "name") >>= parseToken)+ <*> P.optional (P.xattr (P.name "time-only") >>= parseTimeOnly)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseChxLyric+ <*> P.optional (P.xchild (P.name "end-line") (parseEmpty))+ <*> P.optional (P.xchild (P.name "end-paragraph") (parseEmpty))+ <*> parseEditorial++-- | Smart constructor for 'Lyric'+mkLyric :: ChxLyric -> Editorial -> Lyric+mkLyric m p = Lyric Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing m Nothing Nothing p++-- | @lyric-font@ /(complex)/+--+-- The lyric-font type specifies the default font for a particular name and number of lyric.+data LyricFont = + LyricFont {+ lyricFontNumber :: (Maybe NMTOKEN) -- ^ /number/ attribute+ , lyricFontName :: (Maybe Token) -- ^ /name/ attribute+ , lyricFontFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , lyricFontFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , lyricFontFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , lyricFontFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml LyricFont where+ emitXml (LyricFont a b c d e f) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "name" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) f])+ []+parseLyricFont :: P.XParse LyricFont+parseLyricFont = + LyricFont+ <$> P.optional (P.xattr (P.name "number") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "name") >>= parseToken)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)++-- | Smart constructor for 'LyricFont'+mkLyricFont :: LyricFont+mkLyricFont = LyricFont Nothing Nothing Nothing Nothing Nothing Nothing++-- | @lyric-language@ /(complex)/+--+-- The lyric-language type specifies the default language for a particular name and number of lyric.+data LyricLanguage = + LyricLanguage {+ lyricLanguageNumber :: (Maybe NMTOKEN) -- ^ /number/ attribute+ , lyricLanguageName :: (Maybe Token) -- ^ /name/ attribute+ , lyricLanguageLang :: Lang -- ^ /xml:lang/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml LyricLanguage where+ emitXml (LyricLanguage a b c) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "name" Nothing).emitXml) b] +++ [XAttr (QN "lang" (Just "xml")) (emitXml c)])+ []+parseLyricLanguage :: P.XParse LyricLanguage+parseLyricLanguage = + LyricLanguage+ <$> P.optional (P.xattr (P.name "number") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "name") >>= parseToken)+ <*> (P.xattr (P.name "xml:lang") >>= parseLang)++-- | Smart constructor for 'LyricLanguage'+mkLyricLanguage :: Lang -> LyricLanguage+mkLyricLanguage c = LyricLanguage Nothing Nothing c++-- | @measure@ /(complex)/+data Measure = + Measure {+ measureNumber :: Token -- ^ /number/ attribute+ , cmpmeasureText :: (Maybe MeasureText) -- ^ /text/ attribute+ , measureImplicit :: (Maybe YesNo) -- ^ /implicit/ attribute+ , measureNonControlling :: (Maybe YesNo) -- ^ /non-controlling/ attribute+ , measureWidth :: (Maybe Tenths) -- ^ /width/ attribute+ , measureId :: (Maybe ID) -- ^ /id/ attribute+ , measureMusicData :: MusicData+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Measure where+ emitXml (Measure a b c d e f g) =+ XContent XEmpty+ ([XAttr (QN "number" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "text" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "implicit" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "non-controlling" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "width" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) f])+ ([emitXml g])+parseMeasure :: P.XParse Measure+parseMeasure = + Measure+ <$> (P.xattr (P.name "number") >>= parseToken)+ <*> P.optional (P.xattr (P.name "text") >>= parseMeasureText)+ <*> P.optional (P.xattr (P.name "implicit") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "non-controlling") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "width") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseMusicData++-- | Smart constructor for 'Measure'+mkMeasure :: Token -> MusicData -> Measure+mkMeasure a g = Measure a Nothing Nothing Nothing Nothing Nothing g++-- | @measure@ /(complex)/++-- mangled: 1+data CmpMeasure = + CmpMeasure {+ cmpmeasureNumber :: Token -- ^ /number/ attribute+ , cmpmeasureText1 :: (Maybe MeasureText) -- ^ /text/ attribute+ , cmpmeasureImplicit :: (Maybe YesNo) -- ^ /implicit/ attribute+ , cmpmeasureNonControlling :: (Maybe YesNo) -- ^ /non-controlling/ attribute+ , cmpmeasureWidth :: (Maybe Tenths) -- ^ /width/ attribute+ , cmpmeasureId :: (Maybe ID) -- ^ /id/ attribute+ , measurePart :: [Part] -- ^ /part/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml CmpMeasure where+ emitXml (CmpMeasure a b c d e f g) =+ XContent XEmpty+ ([XAttr (QN "number" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "text" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "implicit" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "non-controlling" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "width" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) f])+ (map (XElement (QN "part" Nothing).emitXml) g)+parseCmpMeasure :: P.XParse CmpMeasure+parseCmpMeasure = + CmpMeasure+ <$> (P.xattr (P.name "number") >>= parseToken)+ <*> P.optional (P.xattr (P.name "text") >>= parseMeasureText)+ <*> P.optional (P.xattr (P.name "implicit") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "non-controlling") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "width") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (P.xchild (P.name "part") (parsePart))++-- | Smart constructor for 'CmpMeasure'+mkCmpMeasure :: Token -> CmpMeasure+mkCmpMeasure a = CmpMeasure a Nothing Nothing Nothing Nothing Nothing []++-- | @measure-layout@ /(complex)/+--+-- The measure-layout type includes the horizontal distance from the previous measure.+data MeasureLayout = + MeasureLayout {+ measureLayoutMeasureDistance :: (Maybe Tenths) -- ^ /measure-distance/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MeasureLayout where+ emitXml (MeasureLayout a) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "measure-distance" Nothing).emitXml) a])+parseMeasureLayout :: P.XParse MeasureLayout+parseMeasureLayout = + MeasureLayout+ <$> P.optional (P.xchild (P.name "measure-distance") (P.xtext >>= parseTenths))++-- | Smart constructor for 'MeasureLayout'+mkMeasureLayout :: MeasureLayout+mkMeasureLayout = MeasureLayout Nothing++-- | @measure-numbering@ /(complex)/+--+-- The measure-numbering type describes how frequently measure numbers are displayed on this part. The number attribute from the measure element is used for printing. Measures with an implicit attribute set to "yes" never display a measure number, regardless of the measure-numbering setting.+data MeasureNumbering = + MeasureNumbering {+ measureNumberingMeasureNumberingValue :: MeasureNumberingValue -- ^ text content+ , measureNumberingDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , measureNumberingDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , measureNumberingRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , measureNumberingRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , measureNumberingFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , measureNumberingFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , measureNumberingFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , measureNumberingFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , measureNumberingColor :: (Maybe Color) -- ^ /color/ attribute+ , measureNumberingHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , measureNumberingValign :: (Maybe Valign) -- ^ /valign/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MeasureNumbering where+ emitXml (MeasureNumbering a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l])+ []+parseMeasureNumbering :: P.XParse MeasureNumbering+parseMeasureNumbering = + MeasureNumbering+ <$> (P.xtext >>= parseMeasureNumberingValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)++-- | Smart constructor for 'MeasureNumbering'+mkMeasureNumbering :: MeasureNumberingValue -> MeasureNumbering+mkMeasureNumbering a = MeasureNumbering a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @measure-repeat@ /(complex)/+--+-- The measure-repeat type is used for both single and multiple measure repeats. The text of the element indicates the number of measures to be repeated in a single pattern. The slashes attribute specifies the number of slashes to use in the repeat sign. It is 1 if not specified. Both the start and the stop of the measure-repeat must be specified. The text of the element is ignored when the type is stop.+-- +-- The measure-repeat element specifies a notation style for repetitions. The actual music being repeated needs to be repeated within the MusicXML file. This element specifies the notation that indicates the repeat.+data MeasureRepeat = + MeasureRepeat {+ measureRepeatPositiveIntegerOrEmpty :: PositiveIntegerOrEmpty -- ^ text content+ , measureRepeatType :: StartStop -- ^ /type/ attribute+ , measureRepeatSlashes :: (Maybe PositiveInteger) -- ^ /slashes/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MeasureRepeat where+ emitXml (MeasureRepeat a b c) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "slashes" Nothing).emitXml) c])+ []+parseMeasureRepeat :: P.XParse MeasureRepeat+parseMeasureRepeat = + MeasureRepeat+ <$> (P.xtext >>= parsePositiveIntegerOrEmpty)+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "slashes") >>= parsePositiveInteger)++-- | Smart constructor for 'MeasureRepeat'+mkMeasureRepeat :: PositiveIntegerOrEmpty -> StartStop -> MeasureRepeat+mkMeasureRepeat a b = MeasureRepeat a b Nothing++-- | @measure-style@ /(complex)/+--+-- A measure-style indicates a special way to print partial to multiple measures within a part. This includes multiple rests over several measures, repeats of beats, single, or multiple measures, and use of slash notation.+-- +-- The multiple-rest and measure-repeat symbols indicate the number of measures covered in the element content. The beat-repeat and slash elements can cover partial measures. All but the multiple-rest element use a type attribute to indicate starting and stopping the use of the style. The optional number attribute specifies the staff number from top to bottom on the system, as with clef.+data MeasureStyle = + MeasureStyle {+ measureStyleNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , measureStyleFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , measureStyleFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , measureStyleFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , measureStyleFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , measureStyleColor :: (Maybe Color) -- ^ /color/ attribute+ , measureStyleId :: (Maybe ID) -- ^ /id/ attribute+ , measureStyleMeasureStyle :: ChxMeasureStyle+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MeasureStyle where+ emitXml (MeasureStyle a b c d e f g h) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) g])+ ([emitXml h])+parseMeasureStyle :: P.XParse MeasureStyle+parseMeasureStyle = + MeasureStyle+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseChxMeasureStyle++-- | Smart constructor for 'MeasureStyle'+mkMeasureStyle :: ChxMeasureStyle -> MeasureStyle+mkMeasureStyle h = MeasureStyle Nothing Nothing Nothing Nothing Nothing Nothing Nothing h++-- | @metronome@ /(complex)/+--+-- The metronome type represents metronome marks and other metric relationships. The beat-unit group and per-minute element specify regular metronome marks. The metronome-note and metronome-relation elements allow for the specification of metric modulations and other metric relationships, such as swing tempo marks where two eighths are equated to a quarter note / eighth note triplet. Tied notes can be represented in both types of metronome marks by using the beat-unit-tied and metronome-tied elements. The parentheses attribute indicates whether or not to put the metronome mark in parentheses; its value is no if not specified.+data Metronome = + Metronome {+ metronomeParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , metronomeDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , metronomeDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , metronomeRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , metronomeRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , metronomeFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , metronomeFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , metronomeFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , metronomeFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , metronomeColor :: (Maybe Color) -- ^ /color/ attribute+ , metronomeHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , metronomeValign :: (Maybe Valign) -- ^ /valign/ attribute+ , metronomeJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ , metronomeId :: (Maybe ID) -- ^ /id/ attribute+ , metronomeMetronome :: ChxMetronome+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Metronome where+ emitXml (Metronome a b c d e f g h i j k l m n o) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) n])+ ([emitXml o])+parseMetronome :: P.XParse Metronome+parseMetronome = + Metronome+ <$> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseChxMetronome++-- | Smart constructor for 'Metronome'+mkMetronome :: ChxMetronome -> Metronome+mkMetronome o = Metronome Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing o++-- | @metronome-beam@ /(complex)/+--+-- The metronome-beam type works like the beam type in defining metric relationships, but does not include all the attributes available in the beam type.+data MetronomeBeam = + MetronomeBeam {+ metronomeBeamBeamValue :: BeamValue -- ^ text content+ , metronomeBeamNumber :: (Maybe BeamLevel) -- ^ /number/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MetronomeBeam where+ emitXml (MetronomeBeam a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b])+ []+parseMetronomeBeam :: P.XParse MetronomeBeam+parseMetronomeBeam = + MetronomeBeam+ <$> (P.xtext >>= parseBeamValue)+ <*> P.optional (P.xattr (P.name "number") >>= parseBeamLevel)++-- | Smart constructor for 'MetronomeBeam'+mkMetronomeBeam :: BeamValue -> MetronomeBeam+mkMetronomeBeam a = MetronomeBeam a Nothing++-- | @metronome-note@ /(complex)/+--+-- The metronome-note type defines the appearance of a note within a metric relationship mark.+data MetronomeNote = + MetronomeNote {+ metronomeNoteMetronomeType :: NoteTypeValue -- ^ /metronome-type/ child element+ , metronomeNoteMetronomeDot :: [Empty] -- ^ /metronome-dot/ child element+ , metronomeNoteMetronomeBeam :: [MetronomeBeam] -- ^ /metronome-beam/ child element+ , metronomeNoteMetronomeTied :: (Maybe MetronomeTied) -- ^ /metronome-tied/ child element+ , metronomeNoteMetronomeTuplet :: (Maybe MetronomeTuplet) -- ^ /metronome-tuplet/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MetronomeNote where+ emitXml (MetronomeNote a b c d e) =+ XContent XEmpty+ []+ ([XElement (QN "metronome-type" Nothing) (emitXml a)] +++ map (XElement (QN "metronome-dot" Nothing).emitXml) b +++ map (XElement (QN "metronome-beam" Nothing).emitXml) c +++ [maybe XEmpty (XElement (QN "metronome-tied" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "metronome-tuplet" Nothing).emitXml) e])+parseMetronomeNote :: P.XParse MetronomeNote+parseMetronomeNote = + MetronomeNote+ <$> (P.xchild (P.name "metronome-type") (P.xtext >>= parseNoteTypeValue))+ <*> P.many (P.xchild (P.name "metronome-dot") (parseEmpty))+ <*> P.many (P.xchild (P.name "metronome-beam") (parseMetronomeBeam))+ <*> P.optional (P.xchild (P.name "metronome-tied") (parseMetronomeTied))+ <*> P.optional (P.xchild (P.name "metronome-tuplet") (parseMetronomeTuplet))++-- | Smart constructor for 'MetronomeNote'+mkMetronomeNote :: NoteTypeValue -> MetronomeNote+mkMetronomeNote a = MetronomeNote a [] [] Nothing Nothing++-- | @metronome-tied@ /(complex)/+--+-- The metronome-tied indicates the presence of a tie within a metric relationship mark. As with the tied element, both the start and stop of the tie should be specified, in this case within separate metronome-note elements.+data MetronomeTied = + MetronomeTied {+ metronomeTiedType :: StartStop -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MetronomeTied where+ emitXml (MetronomeTied a) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)])+ []+parseMetronomeTied :: P.XParse MetronomeTied+parseMetronomeTied = + MetronomeTied+ <$> (P.xattr (P.name "type") >>= parseStartStop)++-- | Smart constructor for 'MetronomeTied'+mkMetronomeTied :: StartStop -> MetronomeTied+mkMetronomeTied a = MetronomeTied a++-- | @metronome-tuplet@ /(complex)/+--+-- The metronome-tuplet type uses the same element structure as the time-modification element along with some attributes from the tuplet element.+data MetronomeTuplet = + MetronomeTuplet {+ metronomeTupletTimeModification :: MetronomeTuplet+ , metronomeTupletType :: StartStop -- ^ /type/ attribute+ , metronomeTupletBracket :: (Maybe YesNo) -- ^ /bracket/ attribute+ , metronomeTupletShowNumber :: (Maybe ShowTuplet) -- ^ /show-number/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MetronomeTuplet where+ emitXml (MetronomeTuplet a b c d) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "bracket" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "show-number" Nothing).emitXml) d])+ ([emitXml a])+parseMetronomeTuplet :: P.XParse MetronomeTuplet+parseMetronomeTuplet = + MetronomeTuplet+ <$> parseMetronomeTuplet+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "bracket") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "show-number") >>= parseShowTuplet)++-- | Smart constructor for 'MetronomeTuplet'+mkMetronomeTuplet :: MetronomeTuplet -> StartStop -> MetronomeTuplet+mkMetronomeTuplet a b = MetronomeTuplet a b Nothing Nothing++-- | @midi-device@ /(complex)/+--+-- The midi-device type corresponds to the DeviceName meta event in Standard MIDI Files. The optional port attribute is a number from 1 to 16 that can be used with the unofficial MIDI port (or cable) meta event. Unlike the DeviceName meta event, there can be multiple midi-device elements per MusicXML part starting in MusicXML 3.0. The optional id attribute refers to the score-instrument assigned to this device. If missing, the device assignment affects all score-instrument elements in the score-part.+data MidiDevice = + MidiDevice {+ midiDeviceString :: String -- ^ text content+ , midiDevicePort :: (Maybe Midi16) -- ^ /port/ attribute+ , midiDeviceId :: (Maybe IDREF) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MidiDevice where+ emitXml (MidiDevice a b c) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "port" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) c])+ []+parseMidiDevice :: P.XParse MidiDevice+parseMidiDevice = + MidiDevice+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "port") >>= parseMidi16)+ <*> P.optional (P.xattr (P.name "id") >>= parseIDREF)++-- | Smart constructor for 'MidiDevice'+mkMidiDevice :: String -> MidiDevice+mkMidiDevice a = MidiDevice a Nothing Nothing++-- | @midi-instrument@ /(complex)/+--+-- The midi-instrument type defines MIDI 1.0 instrument playback. The midi-instrument element can be a part of either the score-instrument element at the start of a part, or the sound element within a part. The id attribute refers to the score-instrument affected by the change.+data MidiInstrument = + MidiInstrument {+ midiInstrumentId :: IDREF -- ^ /id/ attribute+ , midiInstrumentMidiChannel :: (Maybe Midi16) -- ^ /midi-channel/ child element+ , midiInstrumentMidiName :: (Maybe String) -- ^ /midi-name/ child element+ , midiInstrumentMidiBank :: (Maybe Midi16384) -- ^ /midi-bank/ child element+ , midiInstrumentMidiProgram :: (Maybe Midi128) -- ^ /midi-program/ child element+ , midiInstrumentMidiUnpitched :: (Maybe Midi128) -- ^ /midi-unpitched/ child element+ , midiInstrumentVolume :: (Maybe Percent) -- ^ /volume/ child element+ , midiInstrumentPan :: (Maybe RotationDegrees) -- ^ /pan/ child element+ , midiInstrumentElevation :: (Maybe RotationDegrees) -- ^ /elevation/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MidiInstrument where+ emitXml (MidiInstrument a b c d e f g h i) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ ([maybe XEmpty (XElement (QN "midi-channel" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "midi-name" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "midi-bank" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "midi-program" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "midi-unpitched" Nothing).emitXml) f] +++ [maybe XEmpty (XElement (QN "volume" Nothing).emitXml) g] +++ [maybe XEmpty (XElement (QN "pan" Nothing).emitXml) h] +++ [maybe XEmpty (XElement (QN "elevation" Nothing).emitXml) i])+parseMidiInstrument :: P.XParse MidiInstrument+parseMidiInstrument = + MidiInstrument+ <$> (P.xattr (P.name "id") >>= parseIDREF)+ <*> P.optional (P.xchild (P.name "midi-channel") (P.xtext >>= parseMidi16))+ <*> P.optional (P.xchild (P.name "midi-name") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "midi-bank") (P.xtext >>= parseMidi16384))+ <*> P.optional (P.xchild (P.name "midi-program") (P.xtext >>= parseMidi128))+ <*> P.optional (P.xchild (P.name "midi-unpitched") (P.xtext >>= parseMidi128))+ <*> P.optional (P.xchild (P.name "volume") (P.xtext >>= parsePercent))+ <*> P.optional (P.xchild (P.name "pan") (P.xtext >>= parseRotationDegrees))+ <*> P.optional (P.xchild (P.name "elevation") (P.xtext >>= parseRotationDegrees))++-- | Smart constructor for 'MidiInstrument'+mkMidiInstrument :: IDREF -> MidiInstrument+mkMidiInstrument a = MidiInstrument a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @miscellaneous@ /(complex)/+--+-- If a program has other metadata not yet supported in the MusicXML format, it can go in the miscellaneous element. The miscellaneous type puts each separate part of metadata into its own miscellaneous-field type.+data Miscellaneous = + Miscellaneous {+ miscellaneousMiscellaneousField :: [MiscellaneousField] -- ^ /miscellaneous-field/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Miscellaneous where+ emitXml (Miscellaneous a) =+ XContent XEmpty+ []+ (map (XElement (QN "miscellaneous-field" Nothing).emitXml) a)+parseMiscellaneous :: P.XParse Miscellaneous+parseMiscellaneous = + Miscellaneous+ <$> P.many (P.xchild (P.name "miscellaneous-field") (parseMiscellaneousField))++-- | Smart constructor for 'Miscellaneous'+mkMiscellaneous :: Miscellaneous+mkMiscellaneous = Miscellaneous []++-- | @miscellaneous-field@ /(complex)/+--+-- If a program has other metadata not yet supported in the MusicXML format, each type of metadata can go in a miscellaneous-field element. The required name attribute indicates the type of metadata the element content represents.+data MiscellaneousField = + MiscellaneousField {+ miscellaneousFieldString :: String -- ^ text content+ , miscellaneousFieldName :: Token -- ^ /name/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MiscellaneousField where+ emitXml (MiscellaneousField a b) =+ XContent (emitXml a)+ ([XAttr (QN "name" Nothing) (emitXml b)])+ []+parseMiscellaneousField :: P.XParse MiscellaneousField+parseMiscellaneousField = + MiscellaneousField+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "name") >>= parseToken)++-- | Smart constructor for 'MiscellaneousField'+mkMiscellaneousField :: String -> Token -> MiscellaneousField+mkMiscellaneousField a b = MiscellaneousField a b++-- | @mordent@ /(complex)/+--+-- The mordent type is used for both represents the mordent sign with the vertical line and the inverted-mordent sign without the line. The long attribute is "no" by default. The approach and departure attributes are used for compound ornaments, indicating how the beginning and ending of the ornament look relative to the main part of the mordent.+data Mordent = + Mordent {+ mordentEmptyTrillSound :: Mordent+ , mordentLong :: (Maybe YesNo) -- ^ /long/ attribute+ , mordentApproach :: (Maybe AboveBelow) -- ^ /approach/ attribute+ , mordentDeparture :: (Maybe AboveBelow) -- ^ /departure/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Mordent where+ emitXml (Mordent a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "long" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "approach" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "departure" Nothing).emitXml) d])+ ([emitXml a])+parseMordent :: P.XParse Mordent+parseMordent = + Mordent+ <$> parseMordent+ <*> P.optional (P.xattr (P.name "long") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "approach") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "departure") >>= parseAboveBelow)++-- | Smart constructor for 'Mordent'+mkMordent :: Mordent -> Mordent+mkMordent a = Mordent a Nothing Nothing Nothing++-- | @multiple-rest@ /(complex)/+--+-- The text of the multiple-rest type indicates the number of measures in the multiple rest. Multiple rests may use the 1-bar / 2-bar / 4-bar rest symbols, or a single shape. The use-symbols attribute indicates which to use; it is no if not specified.+data MultipleRest = + MultipleRest {+ multipleRestPositiveIntegerOrEmpty :: PositiveIntegerOrEmpty -- ^ text content+ , multipleRestUseSymbols :: (Maybe YesNo) -- ^ /use-symbols/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MultipleRest where+ emitXml (MultipleRest a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "use-symbols" Nothing).emitXml) b])+ []+parseMultipleRest :: P.XParse MultipleRest+parseMultipleRest = + MultipleRest+ <$> (P.xtext >>= parsePositiveIntegerOrEmpty)+ <*> P.optional (P.xattr (P.name "use-symbols") >>= parseYesNo)++-- | Smart constructor for 'MultipleRest'+mkMultipleRest :: PositiveIntegerOrEmpty -> MultipleRest+mkMultipleRest a = MultipleRest a Nothing++-- | @name-display@ /(complex)/+--+-- The name-display type is used for exact formatting of multi-font text in part and group names to the left of the system. The print-object attribute can be used to determine what, if anything, is printed at the start of each system. Enclosure for the display-text element is none by default. Language for the display-text element is Italian ("it") by default.+data NameDisplay = + NameDisplay {+ nameDisplayPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , nameDisplayNameDisplay :: [ChxNameDisplay]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NameDisplay where+ emitXml (NameDisplay a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) a])+ ([emitXml b])+parseNameDisplay :: P.XParse NameDisplay+parseNameDisplay = + NameDisplay+ <$> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.many (parseChxNameDisplay)++-- | Smart constructor for 'NameDisplay'+mkNameDisplay :: NameDisplay+mkNameDisplay = NameDisplay Nothing []++-- | @non-arpeggiate@ /(complex)/+--+-- The non-arpeggiate type indicates that this note is at the top or bottom of a bracket indicating to not arpeggiate these notes. Since this does not involve playback, it is only used on the top or bottom notes, not on each note as for the arpeggiate type.+data NonArpeggiate = + NonArpeggiate {+ nonArpeggiateType :: TopBottom -- ^ /type/ attribute+ , nonArpeggiateNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , nonArpeggiateDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , nonArpeggiateDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , nonArpeggiateRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , nonArpeggiateRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , nonArpeggiatePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , nonArpeggiateColor :: (Maybe Color) -- ^ /color/ attribute+ , nonArpeggiateId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NonArpeggiate where+ emitXml (NonArpeggiate a b c d e f g h i) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) i])+ []+parseNonArpeggiate :: P.XParse NonArpeggiate+parseNonArpeggiate = + NonArpeggiate+ <$> (P.xattr (P.name "type") >>= parseTopBottom)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'NonArpeggiate'+mkNonArpeggiate :: TopBottom -> NonArpeggiate+mkNonArpeggiate a = NonArpeggiate a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @notations@ /(complex)/+--+-- Notations refer to musical notations, not XML notations. Multiple notations are allowed in order to represent multiple editorial levels. The print-object attribute, added in Version 3.0, allows notations to represent details of performance technique, such as fingerings, without having them appear in the score.+data Notations = + Notations {+ notationsPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , notationsId :: (Maybe ID) -- ^ /id/ attribute+ , notationsEditorial :: Editorial+ , notationsNotations :: [ChxNotations]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Notations where+ emitXml (Notations a b c d) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) b])+ ([emitXml c] +++ [emitXml d])+parseNotations :: P.XParse Notations+parseNotations = + Notations+ <$> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseEditorial+ <*> P.many (parseChxNotations)++-- | Smart constructor for 'Notations'+mkNotations :: Editorial -> Notations+mkNotations c = Notations Nothing Nothing c []++-- | @note@ /(complex)/+--+-- Notes are the most common type of MusicXML data. The MusicXML format keeps the MuseData distinction between elements used for sound information and elements used for notation information (e.g., tie is used for sound, tied for notation). Thus grace notes do not have a duration element. Cue notes have a duration element, as do forward elements, but no tie elements. Having these two types of information available can make interchange considerably easier, as some programs handle one type of information much more readily than the other.+--+-- @+-- +-- The print-leger attribute is used to indicate whether leger lines are printed. Notes without leger lines are used to indicate indeterminate high and low notes. By default, it is set to yes. If print-object is set to no, print-leger is interpreted to also be set to no if not present. This attribute is ignored for rests.+-- +-- The dynamics and end-dynamics attributes correspond to MIDI 1.0's Note On and Note Off velocities, respectively. They are expressed in terms of percentages of the default forte value (90 for MIDI 1.0).+-- +-- The attack and release attributes are used to alter the starting and stopping time of the note from when it would otherwise occur based on the flow of durations - information that is specific to a performance. They are expressed in terms of divisions, either positive or negative. A note that starts a tie should not have a release attribute, and a note that stops a tie should not have an attack attribute. The attack and release attributes are independent of each other. The attack attribute only changes the starting time of a note, and the release attribute only changes the stopping time of a note.+-- +-- If a note is played only particular times through a repeat, the time-only attribute shows which times to play the note.+-- +-- The pizzicato attribute is used when just this note is sounded pizzicato, vs. the pizzicato element which changes overall playback between pizzicato and arco.+-- @+data Note = + Note {+ notePrintLeger :: (Maybe YesNo) -- ^ /print-leger/ attribute+ , noteDynamics :: (Maybe NonNegativeDecimal) -- ^ /dynamics/ attribute+ , noteEndDynamics :: (Maybe NonNegativeDecimal) -- ^ /end-dynamics/ attribute+ , noteAttack :: (Maybe Divisions) -- ^ /attack/ attribute+ , noteRelease :: (Maybe Divisions) -- ^ /release/ attribute+ , noteTimeOnly :: (Maybe TimeOnly) -- ^ /time-only/ attribute+ , notePizzicato :: (Maybe YesNo) -- ^ /pizzicato/ attribute+ , noteDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , noteDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , noteRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , noteRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , noteFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , noteFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , noteFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , noteFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , noteColor :: (Maybe Color) -- ^ /color/ attribute+ , notePrintDot :: (Maybe YesNo) -- ^ /print-dot/ attribute+ , notePrintLyric :: (Maybe YesNo) -- ^ /print-lyric/ attribute+ , notePrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , notePrintSpacing :: (Maybe YesNo) -- ^ /print-spacing/ attribute+ , noteId :: (Maybe ID) -- ^ /id/ attribute+ , noteNote :: ChxNote+ , noteInstrument :: (Maybe Instrument) -- ^ /instrument/ child element+ , noteEditorialVoice :: EditorialVoice+ , noteType :: (Maybe NoteType) -- ^ /type/ child element+ , noteDot :: [EmptyPlacement] -- ^ /dot/ child element+ , noteAccidental :: (Maybe Accidental) -- ^ /accidental/ child element+ , noteTimeModification :: (Maybe TimeModification) -- ^ /time-modification/ child element+ , noteStem :: (Maybe Stem) -- ^ /stem/ child element+ , noteNotehead :: (Maybe Notehead) -- ^ /notehead/ child element+ , noteNoteheadText :: (Maybe NoteheadText) -- ^ /notehead-text/ child element+ , noteStaff :: (Maybe Staff)+ , noteBeam :: [Beam] -- ^ /beam/ child element+ , noteNotations :: [Notations] -- ^ /notations/ child element+ , noteLyric :: [Lyric] -- ^ /lyric/ child element+ , notePlay :: (Maybe Play) -- ^ /play/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Note where+ emitXml (Note a b c d e f g h i j k l m n o p q r s t u v w x y z a1 b1 c1 d1 e1 f1 g1 h1 i1 j1) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "print-leger" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "dynamics" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "end-dynamics" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "attack" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "release" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "time-only" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "pizzicato" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "print-dot" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "print-lyric" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) s] +++ [maybe XEmpty (XAttr (QN "print-spacing" Nothing).emitXml) t] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) u])+ ([emitXml v] +++ [maybe XEmpty (XElement (QN "instrument" Nothing).emitXml) w] +++ [emitXml x] +++ [maybe XEmpty (XElement (QN "type" Nothing).emitXml) y] +++ map (XElement (QN "dot" Nothing).emitXml) z +++ [maybe XEmpty (XElement (QN "accidental" Nothing).emitXml) a1] +++ [maybe XEmpty (XElement (QN "time-modification" Nothing).emitXml) b1] +++ [maybe XEmpty (XElement (QN "stem" Nothing).emitXml) c1] +++ [maybe XEmpty (XElement (QN "notehead" Nothing).emitXml) d1] +++ [maybe XEmpty (XElement (QN "notehead-text" Nothing).emitXml) e1] +++ [emitXml f1] +++ map (XElement (QN "beam" Nothing).emitXml) g1 +++ map (XElement (QN "notations" Nothing).emitXml) h1 +++ map (XElement (QN "lyric" Nothing).emitXml) i1 +++ [maybe XEmpty (XElement (QN "play" Nothing).emitXml) j1])+parseNote :: P.XParse Note+parseNote = + Note+ <$> P.optional (P.xattr (P.name "print-leger") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "dynamics") >>= parseNonNegativeDecimal)+ <*> P.optional (P.xattr (P.name "end-dynamics") >>= parseNonNegativeDecimal)+ <*> P.optional (P.xattr (P.name "attack") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "release") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "time-only") >>= parseTimeOnly)+ <*> P.optional (P.xattr (P.name "pizzicato") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-dot") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-lyric") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-spacing") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseChxNote+ <*> P.optional (P.xchild (P.name "instrument") (parseInstrument))+ <*> parseEditorialVoice+ <*> P.optional (P.xchild (P.name "type") (parseNoteType))+ <*> P.many (P.xchild (P.name "dot") (parseEmptyPlacement))+ <*> P.optional (P.xchild (P.name "accidental") (parseAccidental))+ <*> P.optional (P.xchild (P.name "time-modification") (parseTimeModification))+ <*> P.optional (P.xchild (P.name "stem") (parseStem))+ <*> P.optional (P.xchild (P.name "notehead") (parseNotehead))+ <*> P.optional (P.xchild (P.name "notehead-text") (parseNoteheadText))+ <*> P.optional (parseStaff)+ <*> P.many (P.xchild (P.name "beam") (parseBeam))+ <*> P.many (P.xchild (P.name "notations") (parseNotations))+ <*> P.many (P.xchild (P.name "lyric") (parseLyric))+ <*> P.optional (P.xchild (P.name "play") (parsePlay))++-- | Smart constructor for 'Note'+mkNote :: ChxNote -> EditorialVoice -> Note+mkNote v x = Note Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing v Nothing x Nothing [] Nothing Nothing Nothing Nothing Nothing Nothing [] [] [] Nothing++-- | @note-size@ /(complex)/+--+-- The note-size type indicates the percentage of the regular note size to use for notes with a cue and large size as defined in the type element. The grace type is used for notes of cue size that that include a grace element. The cue type is used for all other notes with cue size, whether defined explicitly or implicitly via a cue element. The large type is used for notes of large size. The text content represent the numeric percentage. A value of 100 would be identical to the size of a regular note as defined by the music font.+data NoteSize = + NoteSize {+ noteSizeNonNegativeDecimal :: NonNegativeDecimal -- ^ text content+ , noteSizeType :: NoteSizeType -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NoteSize where+ emitXml (NoteSize a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseNoteSize :: P.XParse NoteSize+parseNoteSize = + NoteSize+ <$> (P.xtext >>= parseNonNegativeDecimal)+ <*> (P.xattr (P.name "type") >>= parseNoteSizeType)++-- | Smart constructor for 'NoteSize'+mkNoteSize :: NonNegativeDecimal -> NoteSizeType -> NoteSize+mkNoteSize a b = NoteSize a b++-- | @note-type@ /(complex)/+--+-- The note-type type indicates the graphic note type. Values range from 1024th to maxima. The size attribute indicates full, cue, grace-cue, or large size. The default is full for regular notes, grace-cue for notes that contain both grace and cue elements, and cue for notes that contain either a cue or a grace element, but not both.+data NoteType = + NoteType {+ noteTypeNoteTypeValue :: NoteTypeValue -- ^ text content+ , noteTypeSize :: (Maybe SymbolSize) -- ^ /size/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NoteType where+ emitXml (NoteType a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "size" Nothing).emitXml) b])+ []+parseNoteType :: P.XParse NoteType+parseNoteType = + NoteType+ <$> (P.xtext >>= parseNoteTypeValue)+ <*> P.optional (P.xattr (P.name "size") >>= parseSymbolSize)++-- | Smart constructor for 'NoteType'+mkNoteType :: NoteTypeValue -> NoteType+mkNoteType a = NoteType a Nothing++-- | @notehead@ /(complex)/+--+-- The notehead type indicates shapes other than the open and closed ovals associated with note durations.+-- +-- The smufl attribute can be used to specify a particular notehead, allowing application interoperability without requiring every SMuFL glyph to have a MusicXML element equivalent. This attribute can be used either with the "other" value, or to refine a specific notehead value such as "cluster". Noteheads in the SMuFL "Note name noteheads" range (U+E150–U+E1AF) should not use the smufl attribute or the "other" value, but instead use the notehead-text element.+-- +-- For the enclosed shapes, the default is to be hollow for half notes and longer, and filled otherwise. The filled attribute can be set to change this if needed.+-- +-- If the parentheses attribute is set to yes, the notehead is parenthesized. It is no by default.+data Notehead = + Notehead {+ noteheadNoteheadValue :: NoteheadValue -- ^ text content+ , noteheadFilled :: (Maybe YesNo) -- ^ /filled/ attribute+ , noteheadParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , noteheadFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , noteheadFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , noteheadFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , noteheadFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , noteheadColor :: (Maybe Color) -- ^ /color/ attribute+ , noteheadSmufl :: (Maybe SmuflGlyphName) -- ^ /smufl/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Notehead where+ emitXml (Notehead a b c d e f g h i) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "filled" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) i])+ []+parseNotehead :: P.XParse Notehead+parseNotehead = + Notehead+ <$> (P.xtext >>= parseNoteheadValue)+ <*> P.optional (P.xattr (P.name "filled") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflGlyphName)++-- | Smart constructor for 'Notehead'+mkNotehead :: NoteheadValue -> Notehead+mkNotehead a = Notehead a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @notehead-text@ /(complex)/+--+-- The notehead-text type represents text that is displayed inside a notehead, as is done in some educational music. It is not needed for the numbers used in tablature or jianpu notation. The presence of a TAB or jianpu clefs is sufficient to indicate that numbers are used. The display-text and accidental-text elements allow display of fully formatted text and accidentals.+data NoteheadText = + NoteheadText {+ noteheadTextNoteheadText :: [ChxNoteheadText]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NoteheadText where+ emitXml (NoteheadText a) =+ XReps [emitXml a]+parseNoteheadText :: P.XParse NoteheadText+parseNoteheadText = + NoteheadText+ <$> P.many (parseChxNoteheadText)++-- | Smart constructor for 'NoteheadText'+mkNoteheadText :: NoteheadText+mkNoteheadText = NoteheadText []++-- | @octave-shift@ /(complex)/+--+-- The octave shift type indicates where notes are shifted up or down from their true pitched values because of printing difficulty. Thus a treble clef line noted with 8va will be indicated with an octave-shift down from the pitch data indicated in the notes. A size of 8 indicates one octave; a size of 15 indicates two octaves.+data OctaveShift = + OctaveShift {+ octaveShiftType :: UpDownStopContinue -- ^ /type/ attribute+ , octaveShiftNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , octaveShiftSize :: (Maybe PositiveInteger) -- ^ /size/ attribute+ , octaveShiftDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , octaveShiftSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , octaveShiftDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , octaveShiftDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , octaveShiftRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , octaveShiftRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , octaveShiftFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , octaveShiftFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , octaveShiftFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , octaveShiftFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , octaveShiftColor :: (Maybe Color) -- ^ /color/ attribute+ , octaveShiftId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OctaveShift where+ emitXml (OctaveShift a b c d e f g h i j k l m n o) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "size" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) o])+ []+parseOctaveShift :: P.XParse OctaveShift+parseOctaveShift = + OctaveShift+ <$> (P.xattr (P.name "type") >>= parseUpDownStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "size") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'OctaveShift'+mkOctaveShift :: UpDownStopContinue -> OctaveShift+mkOctaveShift a = OctaveShift a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @offset@ /(complex)/+--+-- An offset is represented in terms of divisions, and indicates where the direction will appear relative to the current musical location. This affects the visual appearance of the direction. If the sound attribute is "yes", then the offset affects playback too. If the sound attribute is "no", then any sound associated with the direction takes effect at the current location. The sound attribute is "no" by default for compatibility with earlier versions of the MusicXML format. If an element within a direction includes a default-x attribute, the offset value will be ignored when determining the appearance of that element.+data Offset = + Offset {+ offsetDivisions :: Divisions -- ^ text content+ , offsetSound :: (Maybe YesNo) -- ^ /sound/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Offset where+ emitXml (Offset a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "sound" Nothing).emitXml) b])+ []+parseOffset :: P.XParse Offset+parseOffset = + Offset+ <$> (P.xtext >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "sound") >>= parseYesNo)++-- | Smart constructor for 'Offset'+mkOffset :: Divisions -> Offset+mkOffset a = Offset a Nothing++-- | @opus@ /(complex)/+--+-- The opus type represents a link to a MusicXML opus document that composes multiple MusicXML scores into a collection.+data Opus = + Opus {+ opusHref :: String -- ^ /xlink:href/ attribute+ , opusType :: (Maybe Type) -- ^ /xlink:type/ attribute+ , opusRole :: (Maybe Token) -- ^ /xlink:role/ attribute+ , opusTitle :: (Maybe Token) -- ^ /xlink:title/ attribute+ , opusShow :: (Maybe SmpShow) -- ^ /xlink:show/ attribute+ , opusActuate :: (Maybe Actuate) -- ^ /xlink:actuate/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Opus where+ emitXml (Opus a b c d e f) =+ XContent XEmpty+ ([XAttr (QN "href" (Just "xlink")) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "type" (Just "xlink")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "role" (Just "xlink")).emitXml) c] +++ [maybe XEmpty (XAttr (QN "title" (Just "xlink")).emitXml) d] +++ [maybe XEmpty (XAttr (QN "show" (Just "xlink")).emitXml) e] +++ [maybe XEmpty (XAttr (QN "actuate" (Just "xlink")).emitXml) f])+ []+parseOpus :: P.XParse Opus+parseOpus = + Opus+ <$> (P.xattr (P.name "xlink:href") >>= return)+ <*> P.optional (P.xattr (P.name "xlink:type") >>= parseType)+ <*> P.optional (P.xattr (P.name "xlink:role") >>= parseToken)+ <*> P.optional (P.xattr (P.name "xlink:title") >>= parseToken)+ <*> P.optional (P.xattr (P.name "xlink:show") >>= parseSmpShow)+ <*> P.optional (P.xattr (P.name "xlink:actuate") >>= parseActuate)++-- | Smart constructor for 'Opus'+mkOpus :: String -> Opus+mkOpus a = Opus a Nothing Nothing Nothing Nothing Nothing++-- | @ornaments@ /(complex)/+--+-- Ornaments can be any of several types, followed optionally by accidentals. The accidental-mark element's content is represented the same as an accidental element, but with a different name to reflect the different musical meaning.+data Ornaments = + Ornaments {+ ornamentsId :: (Maybe ID) -- ^ /id/ attribute+ , ornamentsOrnaments :: [SeqOrnaments]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Ornaments where+ emitXml (Ornaments a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "id" Nothing).emitXml) a])+ ([emitXml b])+parseOrnaments :: P.XParse Ornaments+parseOrnaments = + Ornaments+ <$> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (parseSeqOrnaments)++-- | Smart constructor for 'Ornaments'+mkOrnaments :: Ornaments+mkOrnaments = Ornaments Nothing []++-- | @other-appearance@ /(complex)/+--+-- The other-appearance type is used to define any graphical settings not yet in the current version of the MusicXML format. This allows extended representation, though without application interoperability.+data OtherAppearance = + OtherAppearance {+ otherAppearanceString :: String -- ^ text content+ , otherAppearanceType :: Token -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OtherAppearance where+ emitXml (OtherAppearance a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseOtherAppearance :: P.XParse OtherAppearance+parseOtherAppearance = + OtherAppearance+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseToken)++-- | Smart constructor for 'OtherAppearance'+mkOtherAppearance :: String -> Token -> OtherAppearance+mkOtherAppearance a b = OtherAppearance a b++-- | @other-direction@ /(complex)/+--+-- The other-direction type is used to define any direction symbols not yet in the MusicXML format. The smufl attribute can be used to specify a particular direction symbol, allowing application interoperability without requiring every SMuFL glyph to have a MusicXML element equivalent. Using the other-direction type without the smufl attribute allows for extended representation, though without application interoperability.+data OtherDirection = + OtherDirection {+ otherDirectionString :: String -- ^ text content+ , otherDirectionPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , otherDirectionDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , otherDirectionDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , otherDirectionRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , otherDirectionRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , otherDirectionFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , otherDirectionFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , otherDirectionFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , otherDirectionFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , otherDirectionColor :: (Maybe Color) -- ^ /color/ attribute+ , otherDirectionHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , otherDirectionValign :: (Maybe Valign) -- ^ /valign/ attribute+ , otherDirectionSmufl :: (Maybe SmuflGlyphName) -- ^ /smufl/ attribute+ , otherDirectionId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OtherDirection where+ emitXml (OtherDirection a b c d e f g h i j k l m n o) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) o])+ []+parseOtherDirection :: P.XParse OtherDirection+parseOtherDirection = + OtherDirection+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflGlyphName)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'OtherDirection'+mkOtherDirection :: String -> OtherDirection+mkOtherDirection a = OtherDirection a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @other-notation@ /(complex)/+--+-- The other-notation type is used to define any notations not yet in the MusicXML format. It handles notations where more specific extension elements such as other-dynamics and other-technical are not appropriate. The smufl attribute can be used to specify a particular notation, allowing application interoperability without requiring every SMuFL glyph to have a MusicXML element equivalent. Using the other-notation type without the smufl attribute allows for extended representation, though without application interoperability.+data OtherNotation = + OtherNotation {+ otherNotationString :: String -- ^ text content+ , otherNotationType :: StartStopSingle -- ^ /type/ attribute+ , otherNotationNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , otherNotationPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , otherNotationDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , otherNotationDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , otherNotationRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , otherNotationRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , otherNotationFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , otherNotationFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , otherNotationFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , otherNotationFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , otherNotationColor :: (Maybe Color) -- ^ /color/ attribute+ , otherNotationPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , otherNotationSmufl :: (Maybe SmuflGlyphName) -- ^ /smufl/ attribute+ , otherNotationId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OtherNotation where+ emitXml (OtherNotation a b c d e f g h i j k l m n o p) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) p])+ []+parseOtherNotation :: P.XParse OtherNotation+parseOtherNotation = + OtherNotation+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseStartStopSingle)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflGlyphName)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'OtherNotation'+mkOtherNotation :: String -> StartStopSingle -> OtherNotation+mkOtherNotation a b = OtherNotation a b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @other-placement-text@ /(complex)/+--+-- The other-placement-text type represents a text element with print-style, placement, and smufl attribute groups. This type is used by MusicXML notation extension elements to allow specification of specific SMuFL glyphs without needed to add every glyph as a MusicXML element.+data OtherPlacementText = + OtherPlacementText {+ otherPlacementTextString :: String -- ^ text content+ , otherPlacementTextDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , otherPlacementTextDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , otherPlacementTextRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , otherPlacementTextRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , otherPlacementTextFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , otherPlacementTextFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , otherPlacementTextFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , otherPlacementTextFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , otherPlacementTextColor :: (Maybe Color) -- ^ /color/ attribute+ , otherPlacementTextPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , otherPlacementTextSmufl :: (Maybe SmuflGlyphName) -- ^ /smufl/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OtherPlacementText where+ emitXml (OtherPlacementText a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) l])+ []+parseOtherPlacementText :: P.XParse OtherPlacementText+parseOtherPlacementText = + OtherPlacementText+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflGlyphName)++-- | Smart constructor for 'OtherPlacementText'+mkOtherPlacementText :: String -> OtherPlacementText+mkOtherPlacementText a = OtherPlacementText a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @other-play@ /(complex)/+--+-- The other-play element represents other types of playback. The required type attribute indicates the type of playback to which the element content applies.+data OtherPlay = + OtherPlay {+ otherPlayString :: String -- ^ text content+ , otherPlayType :: Token -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OtherPlay where+ emitXml (OtherPlay a b) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)])+ []+parseOtherPlay :: P.XParse OtherPlay+parseOtherPlay = + OtherPlay+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseToken)++-- | Smart constructor for 'OtherPlay'+mkOtherPlay :: String -> Token -> OtherPlay+mkOtherPlay a b = OtherPlay a b++-- | @other-text@ /(complex)/+--+-- The other-text type represents a text element with a smufl attribute group. This type is used by MusicXML direction extension elements to allow specification of specific SMuFL glyphs without needed to add every glyph as a MusicXML element.+data OtherText = + OtherText {+ otherTextString :: String -- ^ text content+ , otherTextSmufl :: (Maybe SmuflGlyphName) -- ^ /smufl/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml OtherText where+ emitXml (OtherText a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) b])+ []+parseOtherText :: P.XParse OtherText+parseOtherText = + OtherText+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflGlyphName)++-- | Smart constructor for 'OtherText'+mkOtherText :: String -> OtherText+mkOtherText a = OtherText a Nothing++-- | @page-layout@ /(complex)/+--+-- Page layout can be defined both in score-wide defaults and in the print element. Page margins are specified either for both even and odd pages, or via separate odd and even page number values. The type is not needed when used as part of a print element. If omitted when used in the defaults element, "both" is the default.+data PageLayout = + PageLayout {+ pageLayoutPageLayout :: (Maybe SeqPageLayout)+ , pageLayoutPageMargins :: [PageMargins] -- ^ /page-margins/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PageLayout where+ emitXml (PageLayout a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ map (XElement (QN "page-margins" Nothing).emitXml) b)+parsePageLayout :: P.XParse PageLayout+parsePageLayout = + PageLayout+ <$> P.optional (parseSeqPageLayout)+ <*> P.many (P.xchild (P.name "page-margins") (parsePageMargins))++-- | Smart constructor for 'PageLayout'+mkPageLayout :: PageLayout+mkPageLayout = PageLayout Nothing []++-- | @page-margins@ /(complex)/+--+-- Page margins are specified either for both even and odd pages, or via separate odd and even page number values. The type attribute is not needed when used as part of a print element. If omitted when the page-margins type is used in the defaults element, "both" is the default value.+data PageMargins = + PageMargins {+ pageMarginsType :: (Maybe MarginType) -- ^ /type/ attribute+ , pageMarginsAllMargins :: AllMargins+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PageMargins where+ emitXml (PageMargins a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) a])+ ([emitXml b])+parsePageMargins :: P.XParse PageMargins+parsePageMargins = + PageMargins+ <$> P.optional (P.xattr (P.name "type") >>= parseMarginType)+ <*> parseAllMargins++-- | Smart constructor for 'PageMargins'+mkPageMargins :: AllMargins -> PageMargins+mkPageMargins b = PageMargins Nothing b++-- | @part@ /(complex)/+data CmpPart = + CmpPart {+ partId :: IDREF -- ^ /id/ attribute+ , partMeasure :: [Measure] -- ^ /measure/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml CmpPart where+ emitXml (CmpPart a b) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ (map (XElement (QN "measure" Nothing).emitXml) b)+parseCmpPart :: P.XParse CmpPart+parseCmpPart = + CmpPart+ <$> (P.xattr (P.name "id") >>= parseIDREF)+ <*> P.many (P.xchild (P.name "measure") (parseMeasure))++-- | Smart constructor for 'CmpPart'+mkCmpPart :: IDREF -> CmpPart+mkCmpPart a = CmpPart a []++-- | @part@ /(complex)/++-- mangled: 1+data Part = + Part {+ cmppartId :: IDREF -- ^ /id/ attribute+ , partMusicData :: MusicData+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Part where+ emitXml (Part a b) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ ([emitXml b])+parsePart :: P.XParse Part+parsePart = + Part+ <$> (P.xattr (P.name "id") >>= parseIDREF)+ <*> parseMusicData++-- | Smart constructor for 'Part'+mkPart :: IDREF -> MusicData -> Part+mkPart a b = Part a b++-- | @part-group@ /(complex)/+--+-- The part-group element indicates groupings of parts in the score, usually indicated by braces and brackets. Braces that are used for multi-staff parts should be defined in the attributes element for that part. The part-group start element appears before the first score-part in the group. The part-group stop element appears after the last score-part in the group.+-- +-- The number attribute is used to distinguish overlapping and nested part-groups, not the sequence of groups. As with parts, groups can have a name and abbreviation. Values for the child elements are ignored at the stop of a group.+-- +-- A part-group element is not needed for a single multi-staff part. By default, multi-staff parts include a brace symbol and (if appropriate given the bar-style) common barlines. The symbol formatting for a multi-staff part can be more fully specified using the part-symbol element.+data PartGroup = + PartGroup {+ partGroupType :: StartStop -- ^ /type/ attribute+ , partGroupNumber :: (Maybe Token) -- ^ /number/ attribute+ , partGroupGroupName :: (Maybe GroupName) -- ^ /group-name/ child element+ , partGroupGroupNameDisplay :: (Maybe NameDisplay) -- ^ /group-name-display/ child element+ , partGroupGroupAbbreviation :: (Maybe GroupName) -- ^ /group-abbreviation/ child element+ , partGroupGroupAbbreviationDisplay :: (Maybe NameDisplay) -- ^ /group-abbreviation-display/ child element+ , partGroupGroupSymbol :: (Maybe GroupSymbol) -- ^ /group-symbol/ child element+ , partGroupGroupBarline :: (Maybe GroupBarline) -- ^ /group-barline/ child element+ , partGroupGroupTime :: (Maybe Empty) -- ^ /group-time/ child element+ , partGroupEditorial :: Editorial+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PartGroup where+ emitXml (PartGroup a b c d e f g h i j) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b])+ ([maybe XEmpty (XElement (QN "group-name" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "group-name-display" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "group-abbreviation" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "group-abbreviation-display" Nothing).emitXml) f] +++ [maybe XEmpty (XElement (QN "group-symbol" Nothing).emitXml) g] +++ [maybe XEmpty (XElement (QN "group-barline" Nothing).emitXml) h] +++ [maybe XEmpty (XElement (QN "group-time" Nothing).emitXml) i] +++ [emitXml j])+parsePartGroup :: P.XParse PartGroup+parsePartGroup = + PartGroup+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "number") >>= parseToken)+ <*> P.optional (P.xchild (P.name "group-name") (parseGroupName))+ <*> P.optional (P.xchild (P.name "group-name-display") (parseNameDisplay))+ <*> P.optional (P.xchild (P.name "group-abbreviation") (parseGroupName))+ <*> P.optional (P.xchild (P.name "group-abbreviation-display") (parseNameDisplay))+ <*> P.optional (P.xchild (P.name "group-symbol") (parseGroupSymbol))+ <*> P.optional (P.xchild (P.name "group-barline") (parseGroupBarline))+ <*> P.optional (P.xchild (P.name "group-time") (parseEmpty))+ <*> parseEditorial++-- | Smart constructor for 'PartGroup'+mkPartGroup :: StartStop -> Editorial -> PartGroup+mkPartGroup a j = PartGroup a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing j++-- | @part-list@ /(complex)/+--+-- The part-list identifies the different musical parts in this movement. Each part has an ID that is used later within the musical data. Since parts may be encoded separately and combined later, identification elements are present at both the score and score-part levels. There must be at least one score-part, combined as desired with part-group elements that indicate braces and brackets. Parts are ordered from top to bottom in a score based on the order in which they appear in the part-list.+data PartList = + PartList {+ partListPartGroup :: [GrpPartGroup]+ , partListScorePart :: ScorePart+ , partListPartList :: [ChxPartList]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PartList where+ emitXml (PartList a b c) =+ XReps [emitXml a,emitXml b,emitXml c]+parsePartList :: P.XParse PartList+parsePartList = + PartList+ <$> P.many (parseGrpPartGroup)+ <*> parseScorePart+ <*> P.many (parseChxPartList)++-- | Smart constructor for 'PartList'+mkPartList :: ScorePart -> PartList+mkPartList b = PartList [] b []++-- | @part-name@ /(complex)/+--+-- The part-name type describes the name or abbreviation of a score-part element. Formatting attributes for the part-name element are deprecated in Version 2.0 in favor of the new part-name-display and part-abbreviation-display elements.+data PartName = + PartName {+ partNameString :: String -- ^ text content+ , partNameDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , partNameDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , partNameRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , partNameRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , partNameFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , partNameFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , partNameFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , partNameFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , partNameColor :: (Maybe Color) -- ^ /color/ attribute+ , partNamePrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , partNameJustify :: (Maybe LeftCenterRight) -- ^ /justify/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PartName where+ emitXml (PartName a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "justify" Nothing).emitXml) l])+ []+parsePartName :: P.XParse PartName+parsePartName = + PartName+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "justify") >>= parseLeftCenterRight)++-- | Smart constructor for 'PartName'+mkPartName :: String -> PartName+mkPartName a = PartName a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @part-symbol@ /(complex)/+--+-- The part-symbol type indicates how a symbol for a multi-staff part is indicated in the score; brace is the default value. The top-staff and bottom-staff elements are used when the brace does not extend across the entire part. For example, in a 3-staff organ part, the top-staff will typically be 1 for the right hand, while the bottom-staff will typically be 2 for the left hand. Staff 3 for the pedals is usually outside the brace.+data PartSymbol = + PartSymbol {+ partSymbolGroupSymbolValue :: GroupSymbolValue -- ^ text content+ , partSymbolTopStaff :: (Maybe StaffNumber) -- ^ /top-staff/ attribute+ , partSymbolBottomStaff :: (Maybe StaffNumber) -- ^ /bottom-staff/ attribute+ , partSymbolDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , partSymbolDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , partSymbolRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , partSymbolRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , partSymbolColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PartSymbol where+ emitXml (PartSymbol a b c d e f g h) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "top-staff" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "bottom-staff" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h])+ []+parsePartSymbol :: P.XParse PartSymbol+parsePartSymbol = + PartSymbol+ <$> (P.xtext >>= parseGroupSymbolValue)+ <*> P.optional (P.xattr (P.name "top-staff") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "bottom-staff") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'PartSymbol'+mkPartSymbol :: GroupSymbolValue -> PartSymbol+mkPartSymbol a = PartSymbol a Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @pedal@ /(complex)/+--+-- The pedal type represents piano pedal marks. In MusicXML 3.1 this includes sostenuto as well as damper pedal marks. The line attribute is yes if pedal lines are used. The sign attribute is yes if Ped, Sost, and * signs are used. For MusicXML 2.0 compatibility, the sign attribute is yes by default if the line attribute is no, and is no by default if the line attribute is yes. If the sign attribute is set to yes and the type is start or sostenuto, the abbreviated attribute is yes if the short P and S signs are used, and no if the full Ped and Sost signs are used. It is no by default. Otherwise the abbreviated attribute is ignored.+-- +-- The change and continue types are used when the line attribute is yes. The change type indicates a pedal lift and retake indicated with an inverted V marking. The continue type allows more precise formatting across system breaks and for more complex pedaling lines. The alignment attributes are ignored if the line attribute is yes.+data Pedal = + Pedal {+ pedalType :: PedalType -- ^ /type/ attribute+ , pedalNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , pedalLine :: (Maybe YesNo) -- ^ /line/ attribute+ , pedalSign :: (Maybe YesNo) -- ^ /sign/ attribute+ , pedalAbbreviated :: (Maybe YesNo) -- ^ /abbreviated/ attribute+ , pedalDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , pedalDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , pedalRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , pedalRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , pedalFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , pedalFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , pedalFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , pedalFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , pedalColor :: (Maybe Color) -- ^ /color/ attribute+ , pedalHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , pedalValign :: (Maybe Valign) -- ^ /valign/ attribute+ , pedalId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Pedal where+ emitXml (Pedal a b c d e f g h i j k l m n o p q) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "line" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "sign" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "abbreviated" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) q])+ []+parsePedal :: P.XParse Pedal+parsePedal = + Pedal+ <$> (P.xattr (P.name "type") >>= parsePedalType)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "line") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "sign") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "abbreviated") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Pedal'+mkPedal :: PedalType -> Pedal+mkPedal a = Pedal a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @pedal-tuning@ /(complex)/+--+-- The pedal-tuning type specifies the tuning of a single harp pedal.+data PedalTuning = + PedalTuning {+ pedalTuningPedalStep :: Step -- ^ /pedal-step/ child element+ , pedalTuningPedalAlter :: Semitones -- ^ /pedal-alter/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PedalTuning where+ emitXml (PedalTuning a b) =+ XContent XEmpty+ []+ ([XElement (QN "pedal-step" Nothing) (emitXml a)] +++ [XElement (QN "pedal-alter" Nothing) (emitXml b)])+parsePedalTuning :: P.XParse PedalTuning+parsePedalTuning = + PedalTuning+ <$> (P.xchild (P.name "pedal-step") (P.xtext >>= parseStep))+ <*> (P.xchild (P.name "pedal-alter") (P.xtext >>= parseSemitones))++-- | Smart constructor for 'PedalTuning'+mkPedalTuning :: Step -> Semitones -> PedalTuning+mkPedalTuning a b = PedalTuning a b++-- | @per-minute@ /(complex)/+--+-- The per-minute type can be a number, or a text description including numbers. If a font is specified, it overrides the font specified for the overall metronome element. This allows separate specification of a music font for the beat-unit and a text font for the numeric value, in cases where a single metronome font is not used.+data PerMinute = + PerMinute {+ perMinuteString :: String -- ^ text content+ , perMinuteFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , perMinuteFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , perMinuteFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , perMinuteFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PerMinute where+ emitXml (PerMinute a b c d e) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) e])+ []+parsePerMinute :: P.XParse PerMinute+parsePerMinute = + PerMinute+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)++-- | Smart constructor for 'PerMinute'+mkPerMinute :: String -> PerMinute+mkPerMinute a = PerMinute a Nothing Nothing Nothing Nothing++-- | @percussion@ /(complex)/+--+-- The percussion element is used to define percussion pictogram symbols. Definitions for these symbols can be found in Kurt Stone's "Music Notation in the Twentieth Century" on pages 206-212 and 223. Some values are added to these based on how usage has evolved in the 30 years since Stone's book was published.+data Percussion = + Percussion {+ percussionDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , percussionDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , percussionRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , percussionRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , percussionFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , percussionFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , percussionFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , percussionFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , percussionColor :: (Maybe Color) -- ^ /color/ attribute+ , percussionHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , percussionValign :: (Maybe Valign) -- ^ /valign/ attribute+ , percussionEnclosure :: (Maybe EnclosureShape) -- ^ /enclosure/ attribute+ , percussionId :: (Maybe ID) -- ^ /id/ attribute+ , percussionPercussion :: ChxPercussion+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Percussion where+ emitXml (Percussion a b c d e f g h i j k l m n) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "enclosure" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) m])+ ([emitXml n])+parsePercussion :: P.XParse Percussion+parsePercussion = + Percussion+ <$> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "enclosure") >>= parseEnclosureShape)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseChxPercussion++-- | Smart constructor for 'Percussion'+mkPercussion :: ChxPercussion -> Percussion+mkPercussion n = Percussion Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing n++-- | @pitch@ /(complex)/+--+-- Pitch is represented as a combination of the step of the diatonic scale, the chromatic alteration, and the octave.+data Pitch = + Pitch {+ pitchStep :: Step -- ^ /step/ child element+ , pitchAlter :: (Maybe Semitones) -- ^ /alter/ child element+ , pitchOctave :: Octave -- ^ /octave/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Pitch where+ emitXml (Pitch a b c) =+ XContent XEmpty+ []+ ([XElement (QN "step" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "alter" Nothing).emitXml) b] +++ [XElement (QN "octave" Nothing) (emitXml c)])+parsePitch :: P.XParse Pitch+parsePitch = + Pitch+ <$> (P.xchild (P.name "step") (P.xtext >>= parseStep))+ <*> P.optional (P.xchild (P.name "alter") (P.xtext >>= parseSemitones))+ <*> (P.xchild (P.name "octave") (P.xtext >>= parseOctave))++-- | Smart constructor for 'Pitch'+mkPitch :: Step -> Octave -> Pitch+mkPitch a c = Pitch a Nothing c++-- | @pitched@ /(complex)/+--+-- The pitched-value type represents pictograms for pitched percussion instruments. The smufl attribute is used to distinguish different SMuFL glyphs for a particular pictogram within the tuned mallet percussion pictograms range.+data Pitched = + Pitched {+ pitchedPitchedValue :: PitchedValue -- ^ text content+ , pitchedSmufl :: (Maybe SmuflPictogramGlyphName) -- ^ /smufl/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Pitched where+ emitXml (Pitched a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) b])+ []+parsePitched :: P.XParse Pitched+parsePitched = + Pitched+ <$> (P.xtext >>= parsePitchedValue)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflPictogramGlyphName)++-- | Smart constructor for 'Pitched'+mkPitched :: PitchedValue -> Pitched+mkPitched a = Pitched a Nothing++-- | @placement-text@ /(complex)/+--+-- The placement-text type represents a text element with print-style and placement attribute groups.+data PlacementText = + PlacementText {+ placementTextString :: String -- ^ text content+ , placementTextDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , placementTextDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , placementTextRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , placementTextRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , placementTextFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , placementTextFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , placementTextFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , placementTextFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , placementTextColor :: (Maybe Color) -- ^ /color/ attribute+ , placementTextPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PlacementText where+ emitXml (PlacementText a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ []+parsePlacementText :: P.XParse PlacementText+parsePlacementText = + PlacementText+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'PlacementText'+mkPlacementText :: String -> PlacementText+mkPlacementText a = PlacementText a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @play@ /(complex)/+--+-- The play type, new in Version 3.0, specifies playback techniques to be used in conjunction with the instrument-sound element. When used as part of a sound element, it applies to all notes going forward in score order. In multi-instrument parts, the affected instrument should be specified using the id attribute. When used as part of a note element, it applies to the current note only.+data Play = + Play {+ playId :: (Maybe IDREF) -- ^ /id/ attribute+ , playPlay :: [ChxPlay]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Play where+ emitXml (Play a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "id" Nothing).emitXml) a])+ ([emitXml b])+parsePlay :: P.XParse Play+parsePlay = + Play+ <$> P.optional (P.xattr (P.name "id") >>= parseIDREF)+ <*> P.many (parseChxPlay)++-- | Smart constructor for 'Play'+mkPlay :: Play+mkPlay = Play Nothing []++-- | @principal-voice@ /(complex)/+--+-- The principal-voice element represents principal and secondary voices in a score, either for analysis or for square bracket symbols that appear in a score. The symbol attribute indicates the type of symbol used at the start of the principal-voice. The content of the principal-voice element is used for analysis and may be any text value. When used for analysis separate from any printed score markings, the symbol attribute should be set to "none".+data PrincipalVoice = + PrincipalVoice {+ principalVoiceString :: String -- ^ text content+ , principalVoiceType :: StartStop -- ^ /type/ attribute+ , principalVoiceSymbol :: PrincipalVoiceSymbol -- ^ /symbol/ attribute+ , principalVoiceDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , principalVoiceDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , principalVoiceRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , principalVoiceRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , principalVoiceFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , principalVoiceFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , principalVoiceFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , principalVoiceFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , principalVoiceColor :: (Maybe Color) -- ^ /color/ attribute+ , principalVoiceHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , principalVoiceValign :: (Maybe Valign) -- ^ /valign/ attribute+ , principalVoiceId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml PrincipalVoice where+ emitXml (PrincipalVoice a b c d e f g h i j k l m n o) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [XAttr (QN "symbol" Nothing) (emitXml c)] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) o])+ []+parsePrincipalVoice :: P.XParse PrincipalVoice+parsePrincipalVoice = + PrincipalVoice+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> (P.xattr (P.name "symbol") >>= parsePrincipalVoiceSymbol)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'PrincipalVoice'+mkPrincipalVoice :: String -> StartStop -> PrincipalVoiceSymbol -> PrincipalVoice+mkPrincipalVoice a b c = PrincipalVoice a b c Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @print@ /(complex)/+--+-- The print type contains general printing parameters, including the layout elements defined in the layout.mod file. The part-name-display and part-abbreviation-display elements used in the score.mod file may also be used here to change how a part name or abbreviation is displayed over the course of a piece. They take effect when the current measure or a succeeding measure starts a new system.+-- +-- Layout elements in a print statement only apply to the current page, system, staff, or measure. Music that follows continues to take the default values from the layout included in the defaults element.+data Print = + Print {+ printStaffSpacing :: (Maybe Tenths) -- ^ /staff-spacing/ attribute+ , printNewSystem :: (Maybe YesNo) -- ^ /new-system/ attribute+ , printNewPage :: (Maybe YesNo) -- ^ /new-page/ attribute+ , printBlankPage :: (Maybe PositiveInteger) -- ^ /blank-page/ attribute+ , printPageNumber :: (Maybe Token) -- ^ /page-number/ attribute+ , printId :: (Maybe ID) -- ^ /id/ attribute+ , printLayout :: Layout+ , printMeasureLayout :: (Maybe MeasureLayout) -- ^ /measure-layout/ child element+ , printMeasureNumbering :: (Maybe MeasureNumbering) -- ^ /measure-numbering/ child element+ , printPartNameDisplay :: (Maybe NameDisplay) -- ^ /part-name-display/ child element+ , printPartAbbreviationDisplay :: (Maybe NameDisplay) -- ^ /part-abbreviation-display/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Print where+ emitXml (Print a b c d e f g h i j k) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "staff-spacing" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "new-system" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "new-page" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "blank-page" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "page-number" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) f])+ ([emitXml g] +++ [maybe XEmpty (XElement (QN "measure-layout" Nothing).emitXml) h] +++ [maybe XEmpty (XElement (QN "measure-numbering" Nothing).emitXml) i] +++ [maybe XEmpty (XElement (QN "part-name-display" Nothing).emitXml) j] +++ [maybe XEmpty (XElement (QN "part-abbreviation-display" Nothing).emitXml) k])+parsePrint :: P.XParse Print+parsePrint = + Print+ <$> P.optional (P.xattr (P.name "staff-spacing") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "new-system") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "new-page") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "blank-page") >>= parsePositiveInteger)+ <*> P.optional (P.xattr (P.name "page-number") >>= parseToken)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseLayout+ <*> P.optional (P.xchild (P.name "measure-layout") (parseMeasureLayout))+ <*> P.optional (P.xchild (P.name "measure-numbering") (parseMeasureNumbering))+ <*> P.optional (P.xchild (P.name "part-name-display") (parseNameDisplay))+ <*> P.optional (P.xchild (P.name "part-abbreviation-display") (parseNameDisplay))++-- | Smart constructor for 'Print'+mkPrint :: Layout -> Print+mkPrint g = Print Nothing Nothing Nothing Nothing Nothing Nothing g Nothing Nothing Nothing Nothing++-- | @repeat@ /(complex)/+--+-- The repeat type represents repeat marks. The start of the repeat has a forward direction while the end of the repeat has a backward direction. Backward repeats that are not part of an ending can use the times attribute to indicate the number of times the repeated section is played.+data Repeat = + Repeat {+ repeatDirection :: BackwardForward -- ^ /direction/ attribute+ , repeatTimes :: (Maybe NonNegativeInteger) -- ^ /times/ attribute+ , repeatWinged :: (Maybe Winged) -- ^ /winged/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Repeat where+ emitXml (Repeat a b c) =+ XContent XEmpty+ ([XAttr (QN "direction" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "times" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "winged" Nothing).emitXml) c])+ []+parseRepeat :: P.XParse Repeat+parseRepeat = + Repeat+ <$> (P.xattr (P.name "direction") >>= parseBackwardForward)+ <*> P.optional (P.xattr (P.name "times") >>= parseNonNegativeInteger)+ <*> P.optional (P.xattr (P.name "winged") >>= parseWinged)++-- | Smart constructor for 'Repeat'+mkRepeat :: BackwardForward -> Repeat+mkRepeat a = Repeat a Nothing Nothing++-- | @rest@ /(complex)/+--+-- The rest element indicates notated rests or silences. Rest elements are usually empty, but placement on the staff can be specified using display-step and display-octave elements. If the measure attribute is set to yes, this indicates this is a complete measure rest.+data Rest = + Rest {+ restMeasure :: (Maybe YesNo) -- ^ /measure/ attribute+ , restDisplayStepOctave :: (Maybe DisplayStepOctave)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Rest where+ emitXml (Rest a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "measure" Nothing).emitXml) a])+ ([emitXml b])+parseRest :: P.XParse Rest+parseRest = + Rest+ <$> P.optional (P.xattr (P.name "measure") >>= parseYesNo)+ <*> P.optional (parseDisplayStepOctave)++-- | Smart constructor for 'Rest'+mkRest :: Rest+mkRest = Rest Nothing Nothing++-- | @root@ /(complex)/+--+-- The root type indicates a pitch like C, D, E vs. a function indication like I, II, III. It is used with chord symbols in popular music. The root element has a root-step and optional root-alter element similar to the step and alter elements, but renamed to distinguish the different musical meanings.+data Root = + Root {+ rootRootStep :: RootStep -- ^ /root-step/ child element+ , rootRootAlter :: (Maybe RootAlter) -- ^ /root-alter/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Root where+ emitXml (Root a b) =+ XContent XEmpty+ []+ ([XElement (QN "root-step" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "root-alter" Nothing).emitXml) b])+parseRoot :: P.XParse Root+parseRoot = + Root+ <$> (P.xchild (P.name "root-step") (parseRootStep))+ <*> P.optional (P.xchild (P.name "root-alter") (parseRootAlter))++-- | Smart constructor for 'Root'+mkRoot :: RootStep -> Root+mkRoot a = Root a Nothing++-- | @root-alter@ /(complex)/+--+-- The root-alter type represents the chromatic alteration of the root of the current chord within the harmony element. In some chord styles, the text for the root-step element may include root-alter information. In that case, the print-object attribute of the root-alter element can be set to no. The location attribute indicates whether the alteration should appear to the left or the right of the root-step; it is right by default.+data RootAlter = + RootAlter {+ rootAlterSemitones :: Semitones -- ^ text content+ , rootAlterLocation :: (Maybe LeftRight) -- ^ /location/ attribute+ , rootAlterPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , rootAlterDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , rootAlterDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , rootAlterRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , rootAlterRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , rootAlterFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , rootAlterFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , rootAlterFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , rootAlterFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , rootAlterColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml RootAlter where+ emitXml (RootAlter a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "location" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l])+ []+parseRootAlter :: P.XParse RootAlter+parseRootAlter = + RootAlter+ <$> (P.xtext >>= parseSemitones)+ <*> P.optional (P.xattr (P.name "location") >>= parseLeftRight)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'RootAlter'+mkRootAlter :: Semitones -> RootAlter+mkRootAlter a = RootAlter a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @root-step@ /(complex)/+--+-- The root-step type represents the pitch step of the root of the current chord within the harmony element. The text attribute indicates how the root should appear in a score if not using the element contents.+data RootStep = + RootStep {+ rootStepStep :: Step -- ^ text content+ , rootStepText :: (Maybe Token) -- ^ /text/ attribute+ , rootStepDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , rootStepDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , rootStepRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , rootStepRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , rootStepFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , rootStepFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , rootStepFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , rootStepFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , rootStepColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml RootStep where+ emitXml (RootStep a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "text" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k])+ []+parseRootStep :: P.XParse RootStep+parseRootStep = + RootStep+ <$> (P.xtext >>= parseStep)+ <*> P.optional (P.xattr (P.name "text") >>= parseToken)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'RootStep'+mkRootStep :: Step -> RootStep+mkRootStep a = RootStep a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @scaling@ /(complex)/+--+-- Margins, page sizes, and distances are all measured in tenths to keep MusicXML data in a consistent coordinate system as much as possible. The translation to absolute units is done with the scaling type, which specifies how many millimeters are equal to how many tenths. For a staff height of 7 mm, millimeters would be set to 7 while tenths is set to 40. The ability to set a formula rather than a single scaling factor helps avoid roundoff errors.+data Scaling = + Scaling {+ scalingMillimeters :: Millimeters -- ^ /millimeters/ child element+ , scalingTenths :: Tenths -- ^ /tenths/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Scaling where+ emitXml (Scaling a b) =+ XContent XEmpty+ []+ ([XElement (QN "millimeters" Nothing) (emitXml a)] +++ [XElement (QN "tenths" Nothing) (emitXml b)])+parseScaling :: P.XParse Scaling+parseScaling = + Scaling+ <$> (P.xchild (P.name "millimeters") (P.xtext >>= parseMillimeters))+ <*> (P.xchild (P.name "tenths") (P.xtext >>= parseTenths))++-- | Smart constructor for 'Scaling'+mkScaling :: Millimeters -> Tenths -> Scaling+mkScaling a b = Scaling a b++-- | @scordatura@ /(complex)/+--+-- Scordatura string tunings are represented by a series of accord elements, similar to the staff-tuning elements. Strings are numbered from high to low.+data Scordatura = + Scordatura {+ scordaturaId :: (Maybe ID) -- ^ /id/ attribute+ , scordaturaAccord :: [Accord] -- ^ /accord/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Scordatura where+ emitXml (Scordatura a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "id" Nothing).emitXml) a])+ (map (XElement (QN "accord" Nothing).emitXml) b)+parseScordatura :: P.XParse Scordatura+parseScordatura = + Scordatura+ <$> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (P.xchild (P.name "accord") (parseAccord))++-- | Smart constructor for 'Scordatura'+mkScordatura :: Scordatura+mkScordatura = Scordatura Nothing []++-- | @score-instrument@ /(complex)/+--+-- The score-instrument type represents a single instrument within a score-part. As with the score-part type, each score-instrument has a required ID attribute, a name, and an optional abbreviation.+-- +-- A score-instrument type is also required if the score specifies MIDI 1.0 channels, banks, or programs. An initial midi-instrument assignment can also be made here. MusicXML software should be able to automatically assign reasonable channels and instruments without these elements in simple cases, such as where part names match General MIDI instrument names.+data ScoreInstrument = + ScoreInstrument {+ scoreInstrumentId :: ID -- ^ /id/ attribute+ , scoreInstrumentInstrumentName :: String -- ^ /instrument-name/ child element+ , scoreInstrumentInstrumentAbbreviation :: (Maybe String) -- ^ /instrument-abbreviation/ child element+ , scoreInstrumentInstrumentSound :: (Maybe String) -- ^ /instrument-sound/ child element+ , scoreInstrumentScoreInstrument :: (Maybe ChxScoreInstrument)+ , scoreInstrumentVirtualInstrument :: (Maybe VirtualInstrument) -- ^ /virtual-instrument/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ScoreInstrument where+ emitXml (ScoreInstrument a b c d e f) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ ([XElement (QN "instrument-name" Nothing) (emitXml b)] +++ [maybe XEmpty (XElement (QN "instrument-abbreviation" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "instrument-sound" Nothing).emitXml) d] +++ [emitXml e] +++ [maybe XEmpty (XElement (QN "virtual-instrument" Nothing).emitXml) f])+parseScoreInstrument :: P.XParse ScoreInstrument+parseScoreInstrument = + ScoreInstrument+ <$> (P.xattr (P.name "id") >>= parseID)+ <*> (P.xchild (P.name "instrument-name") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "instrument-abbreviation") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "instrument-sound") (P.xtext >>= return))+ <*> P.optional (parseChxScoreInstrument)+ <*> P.optional (P.xchild (P.name "virtual-instrument") (parseVirtualInstrument))++-- | Smart constructor for 'ScoreInstrument'+mkScoreInstrument :: ID -> String -> ScoreInstrument+mkScoreInstrument a b = ScoreInstrument a b Nothing Nothing Nothing Nothing++-- | @score-part@ /(complex)/+--+-- Each MusicXML part corresponds to a track in a Standard MIDI Format 1 file. The score-instrument elements are used when there are multiple instruments per track. The midi-device element is used to make a MIDI device or port assignment for the given track or specific MIDI instruments. Initial midi-instrument assignments may be made here as well.+data CmpScorePart = + CmpScorePart {+ scorePartId :: ID -- ^ /id/ attribute+ , scorePartIdentification :: (Maybe Identification) -- ^ /identification/ child element+ , scorePartPartName :: PartName -- ^ /part-name/ child element+ , scorePartPartNameDisplay :: (Maybe NameDisplay) -- ^ /part-name-display/ child element+ , scorePartPartAbbreviation :: (Maybe PartName) -- ^ /part-abbreviation/ child element+ , scorePartPartAbbreviationDisplay :: (Maybe NameDisplay) -- ^ /part-abbreviation-display/ child element+ , scorePartGroup :: [String] -- ^ /group/ child element+ , scorePartScoreInstrument :: [ScoreInstrument] -- ^ /score-instrument/ child element+ , scorePartScorePart :: [SeqScorePart]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml CmpScorePart where+ emitXml (CmpScorePart a b c d e f g h i) =+ XContent XEmpty+ ([XAttr (QN "id" Nothing) (emitXml a)])+ ([maybe XEmpty (XElement (QN "identification" Nothing).emitXml) b] +++ [XElement (QN "part-name" Nothing) (emitXml c)] +++ [maybe XEmpty (XElement (QN "part-name-display" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "part-abbreviation" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "part-abbreviation-display" Nothing).emitXml) f] +++ map (XElement (QN "group" Nothing).emitXml) g +++ map (XElement (QN "score-instrument" Nothing).emitXml) h +++ [emitXml i])+parseCmpScorePart :: P.XParse CmpScorePart+parseCmpScorePart = + CmpScorePart+ <$> (P.xattr (P.name "id") >>= parseID)+ <*> P.optional (P.xchild (P.name "identification") (parseIdentification))+ <*> (P.xchild (P.name "part-name") (parsePartName))+ <*> P.optional (P.xchild (P.name "part-name-display") (parseNameDisplay))+ <*> P.optional (P.xchild (P.name "part-abbreviation") (parsePartName))+ <*> P.optional (P.xchild (P.name "part-abbreviation-display") (parseNameDisplay))+ <*> P.many (P.xchild (P.name "group") (P.xtext >>= return))+ <*> P.many (P.xchild (P.name "score-instrument") (parseScoreInstrument))+ <*> P.many (parseSeqScorePart)++-- | Smart constructor for 'CmpScorePart'+mkCmpScorePart :: ID -> PartName -> CmpScorePart+mkCmpScorePart a c = CmpScorePart a Nothing c Nothing Nothing Nothing [] [] []++-- | @score-partwise@ /(complex)/+data ScorePartwise = + ScorePartwise {+ scorePartwiseVersion :: (Maybe Token) -- ^ /version/ attribute+ , scorePartwiseScoreHeader :: ScoreHeader+ , scorePartwisePart :: [CmpPart] -- ^ /part/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ScorePartwise where+ emitXml (ScorePartwise a b c) =+ XElement (QN "score-partwise" Nothing) $ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "version" Nothing).emitXml) a])+ ([emitXml b] +++ map (XElement (QN "part" Nothing).emitXml) c)+parseScorePartwise :: P.XParse ScorePartwise+parseScorePartwise = + ScorePartwise+ <$> P.optional (P.xattr (P.name "version") >>= parseToken)+ <*> parseScoreHeader+ <*> P.many (P.xchild (P.name "part") (parseCmpPart))++-- | Smart constructor for 'ScorePartwise'+mkScorePartwise :: ScoreHeader -> ScorePartwise+mkScorePartwise b = ScorePartwise Nothing b []++-- | @score-timewise@ /(complex)/+data ScoreTimewise = + ScoreTimewise {+ scoreTimewiseVersion :: (Maybe Token) -- ^ /version/ attribute+ , scoreTimewiseScoreHeader :: ScoreHeader+ , scoreTimewiseMeasure :: [CmpMeasure] -- ^ /measure/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ScoreTimewise where+ emitXml (ScoreTimewise a b c) =+ XElement (QN "score-timewise" Nothing) $ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "version" Nothing).emitXml) a])+ ([emitXml b] +++ map (XElement (QN "measure" Nothing).emitXml) c)+parseScoreTimewise :: P.XParse ScoreTimewise+parseScoreTimewise = + ScoreTimewise+ <$> P.optional (P.xattr (P.name "version") >>= parseToken)+ <*> parseScoreHeader+ <*> P.many (P.xchild (P.name "measure") (parseCmpMeasure))++-- | Smart constructor for 'ScoreTimewise'+mkScoreTimewise :: ScoreHeader -> ScoreTimewise+mkScoreTimewise b = ScoreTimewise Nothing b []++-- | @segno@ /(complex)/+--+-- The segno type is the visual indicator of a segno sign. The exact glyph can be specified with the smufl attribute. A sound element is also needed to guide playback applications reliably.+data Segno = + Segno {+ segnoSmufl :: (Maybe SmuflSegnoGlyphName) -- ^ /smufl/ attribute+ , segnoDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , segnoDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , segnoRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , segnoRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , segnoFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , segnoFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , segnoFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , segnoFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , segnoColor :: (Maybe Color) -- ^ /color/ attribute+ , segnoHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , segnoValign :: (Maybe Valign) -- ^ /valign/ attribute+ , segnoId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Segno where+ emitXml (Segno a b c d e f g h i j k l m) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) m])+ []+parseSegno :: P.XParse Segno+parseSegno = + Segno+ <$> P.optional (P.xattr (P.name "smufl") >>= parseSmuflSegnoGlyphName)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Segno'+mkSegno :: Segno+mkSegno = Segno Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @slash@ /(complex)/+--+-- The slash type is used to indicate that slash notation is to be used. If the slash is on every beat, use-stems is no (the default). To indicate rhythms but not pitches, use-stems is set to yes. The type attribute indicates whether this is the start or stop of a slash notation style. The use-dots attribute works as for the beat-repeat element, and only has effect if use-stems is no.+data CmpSlash = + CmpSlash {+ slashType :: StartStop -- ^ /type/ attribute+ , slashUseDots :: (Maybe YesNo) -- ^ /use-dots/ attribute+ , slashUseStems :: (Maybe YesNo) -- ^ /use-stems/ attribute+ , slashSlash :: (Maybe Slash)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml CmpSlash where+ emitXml (CmpSlash a b c d) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "use-dots" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "use-stems" Nothing).emitXml) c])+ ([emitXml d])+parseCmpSlash :: P.XParse CmpSlash+parseCmpSlash = + CmpSlash+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "use-dots") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "use-stems") >>= parseYesNo)+ <*> P.optional (parseSlash)++-- | Smart constructor for 'CmpSlash'+mkCmpSlash :: StartStop -> CmpSlash+mkCmpSlash a = CmpSlash a Nothing Nothing Nothing++-- | @slide@ /(complex)/+--+-- Glissando and slide types both indicate rapidly moving from one pitch to the other so that individual notes are not discerned. The distinction is similar to that between NIFF's glissando and portamento elements. A slide is continuous between two notes and defaults to a solid line. The optional text for a is printed alongside the line.+data Slide = + Slide {+ slideString :: String -- ^ text content+ , slideType :: StartStop -- ^ /type/ attribute+ , slideNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , slideLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , slideDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , slideSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , slideDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , slideDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , slideRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , slideRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , slideFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , slideFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , slideFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , slideFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , slideColor :: (Maybe Color) -- ^ /color/ attribute+ , slideAccelerate :: (Maybe YesNo) -- ^ /accelerate/ attribute+ , slideBeats :: (Maybe TrillBeats) -- ^ /beats/ attribute+ , slideFirstBeat :: (Maybe Percent) -- ^ /first-beat/ attribute+ , slideLastBeat :: (Maybe Percent) -- ^ /last-beat/ attribute+ , slideId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Slide where+ emitXml (Slide a b c d e f g h i j k l m n o p q r s t) =+ XContent (emitXml a)+ ([XAttr (QN "type" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "accelerate" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "beats" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "first-beat" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "last-beat" Nothing).emitXml) s] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) t])+ []+parseSlide :: P.XParse Slide+parseSlide = + Slide+ <$> (P.xtext >>= return)+ <*> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "accelerate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "beats") >>= parseTrillBeats)+ <*> P.optional (P.xattr (P.name "first-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "last-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Slide'+mkSlide :: String -> StartStop -> Slide+mkSlide a b = Slide a b Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @slur@ /(complex)/+--+-- Slur types are empty. Most slurs are represented with two elements: one with a start type, and one with a stop type. Slurs can add more elements using a continue type. This is typically used to specify the formatting of cross-system slurs, or to specify the shape of very complex slurs.+data Slur = + Slur {+ slurType :: StartStopContinue -- ^ /type/ attribute+ , slurNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , slurLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , slurDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , slurSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , slurDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , slurDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , slurRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , slurRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , slurPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , slurOrientation :: (Maybe OverUnder) -- ^ /orientation/ attribute+ , slurBezierX :: (Maybe Tenths) -- ^ /bezier-x/ attribute+ , slurBezierY :: (Maybe Tenths) -- ^ /bezier-y/ attribute+ , slurBezierX2 :: (Maybe Tenths) -- ^ /bezier-x2/ attribute+ , slurBezierY2 :: (Maybe Tenths) -- ^ /bezier-y2/ attribute+ , slurBezierOffset :: (Maybe Divisions) -- ^ /bezier-offset/ attribute+ , slurBezierOffset2 :: (Maybe Divisions) -- ^ /bezier-offset2/ attribute+ , slurColor :: (Maybe Color) -- ^ /color/ attribute+ , slurId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Slur where+ emitXml (Slur a b c d e f g h i j k l m n o p q r s) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "orientation" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "bezier-x" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "bezier-y" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "bezier-x2" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "bezier-y2" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "bezier-offset" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "bezier-offset2" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) s])+ []+parseSlur :: P.XParse Slur+parseSlur = + Slur+ <$> (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "orientation") >>= parseOverUnder)+ <*> P.optional (P.xattr (P.name "bezier-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-x2") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-y2") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-offset") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "bezier-offset2") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Slur'+mkSlur :: StartStopContinue -> Slur+mkSlur a = Slur a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @sound@ /(complex)/+--+-- The sound element contains general playback parameters. They can stand alone within a part/measure, or be a component element within a direction.+--+-- @+-- +-- Tempo is expressed in quarter notes per minute. If 0, the sound-generating program should prompt the user at the time of compiling a sound (MIDI) file.+-- +-- Dynamics (or MIDI velocity) are expressed as a percentage of the default forte value (90 for MIDI 1.0).+-- +-- Dacapo indicates to go back to the beginning of the movement. When used it always has the value "yes".+-- +-- Segno and dalsegno are used for backwards jumps to a segno sign; coda and tocoda are used for forward jumps to a coda sign. If there are multiple jumps, the value of these parameters can be used to name and distinguish them. If segno or coda is used, the divisions attribute can also be used to indicate the number of divisions per quarter note. Otherwise sound and MIDI generating programs may have to recompute this.+-- +-- By default, a dalsegno or dacapo attribute indicates that the jump should occur the first time through, while a tocoda attribute indicates the jump should occur the second time through. The time that jumps occur can be changed by using the time-only attribute.+-- +-- Forward-repeat is used when a forward repeat sign is implied, and usually follows a bar line. When used it always has the value of "yes".+-- +-- The fine attribute follows the final note or rest in a movement with a da capo or dal segno direction. If numeric, the value represents the actual duration of the final note or rest, which can be ambiguous in written notation and different among parts and voices. The value may also be "yes" to indicate no change to the final duration.+-- +-- If the sound element applies only particular times through a repeat, the time-only attribute indicates which times to apply the sound element.+-- +-- Pizzicato in a sound element effects all following notes. Yes indicates pizzicato, no indicates arco.+-- +-- The pan and elevation attributes are deprecated in Version 2.0. The pan and elevation elements in the midi-instrument element should be used instead. The meaning of the pan and elevation attributes is the same as for the pan and elevation elements. If both are present, the mid-instrument elements take priority.+-- +-- The damper-pedal, soft-pedal, and sostenuto-pedal attributes effect playback of the three common piano pedals and their MIDI controller equivalents. The yes value indicates the pedal is depressed; no indicates the pedal is released. A numeric value from 0 to 100 may also be used for half pedaling. This value is the percentage that the pedal is depressed. A value of 0 is equivalent to no, and a value of 100 is equivalent to yes.+-- +-- MIDI devices, MIDI instruments, and playback techniques are changed using the midi-device, midi-instrument, and play elements. When there are multiple instances of these elements, they should be grouped together by instrument using the id attribute values.+-- +-- The offset element is used to indicate that the sound takes place offset from the current score position. If the sound element is a child of a direction element, the sound offset element overrides the direction offset element if both elements are present. Note that the offset reflects the intended musical position for the change in sound. It should not be used to compensate for latency issues in particular hardware configurations.+-- @+data Sound = + Sound {+ soundTempo :: (Maybe NonNegativeDecimal) -- ^ /tempo/ attribute+ , soundDynamics :: (Maybe NonNegativeDecimal) -- ^ /dynamics/ attribute+ , soundDacapo :: (Maybe YesNo) -- ^ /dacapo/ attribute+ , soundSegno :: (Maybe Token) -- ^ /segno/ attribute+ , soundDalsegno :: (Maybe Token) -- ^ /dalsegno/ attribute+ , soundCoda :: (Maybe Token) -- ^ /coda/ attribute+ , soundTocoda :: (Maybe Token) -- ^ /tocoda/ attribute+ , soundDivisions :: (Maybe Divisions) -- ^ /divisions/ attribute+ , soundForwardRepeat :: (Maybe YesNo) -- ^ /forward-repeat/ attribute+ , soundFine :: (Maybe Token) -- ^ /fine/ attribute+ , soundTimeOnly :: (Maybe TimeOnly) -- ^ /time-only/ attribute+ , soundPizzicato :: (Maybe YesNo) -- ^ /pizzicato/ attribute+ , soundPan :: (Maybe RotationDegrees) -- ^ /pan/ attribute+ , soundElevation :: (Maybe RotationDegrees) -- ^ /elevation/ attribute+ , soundDamperPedal :: (Maybe YesNoNumber) -- ^ /damper-pedal/ attribute+ , soundSoftPedal :: (Maybe YesNoNumber) -- ^ /soft-pedal/ attribute+ , soundSostenutoPedal :: (Maybe YesNoNumber) -- ^ /sostenuto-pedal/ attribute+ , soundId :: (Maybe ID) -- ^ /id/ attribute+ , soundSound :: [SeqSound]+ , soundOffset :: (Maybe Offset) -- ^ /offset/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Sound where+ emitXml (Sound a b c d e f g h i j k l m n o p q r s t) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "tempo" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "dynamics" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "dacapo" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "segno" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "dalsegno" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "coda" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "tocoda" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "divisions" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "forward-repeat" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "fine" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "time-only" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "pizzicato" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "pan" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "elevation" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "damper-pedal" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "soft-pedal" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "sostenuto-pedal" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) r])+ ([emitXml s] +++ [maybe XEmpty (XElement (QN "offset" Nothing).emitXml) t])+parseSound :: P.XParse Sound+parseSound = + Sound+ <$> P.optional (P.xattr (P.name "tempo") >>= parseNonNegativeDecimal)+ <*> P.optional (P.xattr (P.name "dynamics") >>= parseNonNegativeDecimal)+ <*> P.optional (P.xattr (P.name "dacapo") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "segno") >>= parseToken)+ <*> P.optional (P.xattr (P.name "dalsegno") >>= parseToken)+ <*> P.optional (P.xattr (P.name "coda") >>= parseToken)+ <*> P.optional (P.xattr (P.name "tocoda") >>= parseToken)+ <*> P.optional (P.xattr (P.name "divisions") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "forward-repeat") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "fine") >>= parseToken)+ <*> P.optional (P.xattr (P.name "time-only") >>= parseTimeOnly)+ <*> P.optional (P.xattr (P.name "pizzicato") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "pan") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "elevation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "damper-pedal") >>= parseYesNoNumber)+ <*> P.optional (P.xattr (P.name "soft-pedal") >>= parseYesNoNumber)+ <*> P.optional (P.xattr (P.name "sostenuto-pedal") >>= parseYesNoNumber)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (parseSeqSound)+ <*> P.optional (P.xchild (P.name "offset") (parseOffset))++-- | Smart constructor for 'Sound'+mkSound :: Sound+mkSound = Sound Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing [] Nothing++-- | @staff-details@ /(complex)/+--+-- The staff-details element is used to indicate different types of staves. The optional number attribute specifies the staff number from top to bottom on the system, as with clef. The print-object attribute is used to indicate when a staff is not printed in a part, usually in large scores where empty parts are omitted. It is yes by default. If print-spacing is yes while print-object is no, the score is printed in cutaway format where vertical space is left for the empty part.+data StaffDetails = + StaffDetails {+ staffDetailsNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , staffDetailsShowFrets :: (Maybe ShowFrets) -- ^ /show-frets/ attribute+ , staffDetailsPrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , staffDetailsPrintSpacing :: (Maybe YesNo) -- ^ /print-spacing/ attribute+ , staffDetailsStaffType :: (Maybe StaffType) -- ^ /staff-type/ child element+ , staffDetailsStaffLines :: (Maybe NonNegativeInteger) -- ^ /staff-lines/ child element+ , staffDetailsStaffTuning :: [StaffTuning] -- ^ /staff-tuning/ child element+ , staffDetailsCapo :: (Maybe NonNegativeInteger) -- ^ /capo/ child element+ , staffDetailsStaffSize :: (Maybe NonNegativeDecimal) -- ^ /staff-size/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StaffDetails where+ emitXml (StaffDetails a b c d e f g h i) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "show-frets" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "print-spacing" Nothing).emitXml) d])+ ([maybe XEmpty (XElement (QN "staff-type" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "staff-lines" Nothing).emitXml) f] +++ map (XElement (QN "staff-tuning" Nothing).emitXml) g +++ [maybe XEmpty (XElement (QN "capo" Nothing).emitXml) h] +++ [maybe XEmpty (XElement (QN "staff-size" Nothing).emitXml) i])+parseStaffDetails :: P.XParse StaffDetails+parseStaffDetails = + StaffDetails+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "show-frets") >>= parseShowFrets)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "print-spacing") >>= parseYesNo)+ <*> P.optional (P.xchild (P.name "staff-type") (P.xtext >>= parseStaffType))+ <*> P.optional (P.xchild (P.name "staff-lines") (P.xtext >>= parseNonNegativeInteger))+ <*> P.many (P.xchild (P.name "staff-tuning") (parseStaffTuning))+ <*> P.optional (P.xchild (P.name "capo") (P.xtext >>= parseNonNegativeInteger))+ <*> P.optional (P.xchild (P.name "staff-size") (P.xtext >>= parseNonNegativeDecimal))++-- | Smart constructor for 'StaffDetails'+mkStaffDetails :: StaffDetails+mkStaffDetails = StaffDetails Nothing Nothing Nothing Nothing Nothing Nothing [] Nothing Nothing++-- | @staff-divide@ /(complex)/+--+-- The staff-divide element represents the staff division arrow symbols found at SMuFL code points U+E00B, U+E00C, and U+E00D.+data StaffDivide = + StaffDivide {+ staffDivideType :: StaffDivideSymbol -- ^ /type/ attribute+ , staffDivideDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , staffDivideDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , staffDivideRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , staffDivideRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , staffDivideFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , staffDivideFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , staffDivideFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , staffDivideFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , staffDivideColor :: (Maybe Color) -- ^ /color/ attribute+ , staffDivideHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , staffDivideValign :: (Maybe Valign) -- ^ /valign/ attribute+ , staffDivideId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StaffDivide where+ emitXml (StaffDivide a b c d e f g h i j k l m) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) m])+ []+parseStaffDivide :: P.XParse StaffDivide+parseStaffDivide = + StaffDivide+ <$> (P.xattr (P.name "type") >>= parseStaffDivideSymbol)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'StaffDivide'+mkStaffDivide :: StaffDivideSymbol -> StaffDivide+mkStaffDivide a = StaffDivide a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @staff-layout@ /(complex)/+--+-- Staff layout includes the vertical distance from the bottom line of the previous staff in this system to the top line of the staff specified by the number attribute. The optional number attribute refers to staff numbers within the part, from top to bottom on the system. A value of 1 is assumed if not present. When used in the defaults element, the values apply to all parts. This value is ignored for the first staff in a system.+data StaffLayout = + StaffLayout {+ staffLayoutNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , staffLayoutStaffDistance :: (Maybe Tenths) -- ^ /staff-distance/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StaffLayout where+ emitXml (StaffLayout a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a])+ ([maybe XEmpty (XElement (QN "staff-distance" Nothing).emitXml) b])+parseStaffLayout :: P.XParse StaffLayout+parseStaffLayout = + StaffLayout+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xchild (P.name "staff-distance") (P.xtext >>= parseTenths))++-- | Smart constructor for 'StaffLayout'+mkStaffLayout :: StaffLayout+mkStaffLayout = StaffLayout Nothing Nothing++-- | @staff-tuning@ /(complex)/+--+-- The staff-tuning type specifies the open, non-capo tuning of the lines on a tablature staff.+data StaffTuning = + StaffTuning {+ staffTuningLine :: (Maybe StaffLine) -- ^ /line/ attribute+ , staffTuningTuning :: Tuning+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StaffTuning where+ emitXml (StaffTuning a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "line" Nothing).emitXml) a])+ ([emitXml b])+parseStaffTuning :: P.XParse StaffTuning+parseStaffTuning = + StaffTuning+ <$> P.optional (P.xattr (P.name "line") >>= parseStaffLine)+ <*> parseTuning++-- | Smart constructor for 'StaffTuning'+mkStaffTuning :: Tuning -> StaffTuning+mkStaffTuning b = StaffTuning Nothing b++-- | @stem@ /(complex)/+--+-- Stems can be down, up, none, or double. For down and up stems, the position attributes can be used to specify stem length. The relative values specify the end of the stem relative to the program default. Default values specify an absolute end stem position. Negative values of relative-y that would flip a stem instead of shortening it are ignored. A stem element associated with a rest refers to a stemlet.+data Stem = + Stem {+ stemStemValue :: StemValue -- ^ text content+ , stemDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , stemDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , stemRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , stemRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , stemColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Stem where+ emitXml (Stem a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseStem :: P.XParse Stem+parseStem = + Stem+ <$> (P.xtext >>= parseStemValue)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'Stem'+mkStem :: StemValue -> Stem+mkStem a = Stem a Nothing Nothing Nothing Nothing Nothing++-- | @stick@ /(complex)/+--+-- The stick type represents pictograms where the material of the stick, mallet, or beater is included.The parentheses and dashed-circle attributes indicate the presence of these marks around the round beater part of a pictogram. Values for these attributes are "no" if not present.+data Stick = + Stick {+ stickTip :: (Maybe TipDirection) -- ^ /tip/ attribute+ , stickParentheses :: (Maybe YesNo) -- ^ /parentheses/ attribute+ , stickDashedCircle :: (Maybe YesNo) -- ^ /dashed-circle/ attribute+ , stickStickType :: StickType -- ^ /stick-type/ child element+ , stickStickMaterial :: StickMaterial -- ^ /stick-material/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Stick where+ emitXml (Stick a b c d e) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "tip" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "parentheses" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "dashed-circle" Nothing).emitXml) c])+ ([XElement (QN "stick-type" Nothing) (emitXml d)] +++ [XElement (QN "stick-material" Nothing) (emitXml e)])+parseStick :: P.XParse Stick+parseStick = + Stick+ <$> P.optional (P.xattr (P.name "tip") >>= parseTipDirection)+ <*> P.optional (P.xattr (P.name "parentheses") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "dashed-circle") >>= parseYesNo)+ <*> (P.xchild (P.name "stick-type") (P.xtext >>= parseStickType))+ <*> (P.xchild (P.name "stick-material") (P.xtext >>= parseStickMaterial))++-- | Smart constructor for 'Stick'+mkStick :: StickType -> StickMaterial -> Stick+mkStick d e = Stick Nothing Nothing Nothing d e++-- | @string@ /(complex)/+--+-- The string type is used with tablature notation, regular notation (where it is often circled), and chord diagrams. String numbers start with 1 for the highest pitched full-length string.+data CmpString = + CmpString {+ stringStringNumber :: StringNumber -- ^ text content+ , stringDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , stringDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , stringRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , stringRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , stringFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , stringFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , stringFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , stringFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , stringColor :: (Maybe Color) -- ^ /color/ attribute+ , stringPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml CmpString where+ emitXml (CmpString a b c d e f g h i j k) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k])+ []+parseCmpString :: P.XParse CmpString+parseCmpString = + CmpString+ <$> (P.xtext >>= parseStringNumber)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'CmpString'+mkCmpString :: StringNumber -> CmpString+mkCmpString a = CmpString a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @string-mute@ /(complex)/+--+-- The string-mute type represents string mute on and mute off symbols.+data StringMute = + StringMute {+ stringMuteType :: OnOff -- ^ /type/ attribute+ , stringMuteDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , stringMuteDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , stringMuteRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , stringMuteRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , stringMuteFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , stringMuteFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , stringMuteFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , stringMuteFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , stringMuteColor :: (Maybe Color) -- ^ /color/ attribute+ , stringMuteHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , stringMuteValign :: (Maybe Valign) -- ^ /valign/ attribute+ , stringMuteId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StringMute where+ emitXml (StringMute a b c d e f g h i j k l m) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) m])+ []+parseStringMute :: P.XParse StringMute+parseStringMute = + StringMute+ <$> (P.xattr (P.name "type") >>= parseOnOff)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'StringMute'+mkStringMute :: OnOff -> StringMute+mkStringMute a = StringMute a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @strong-accent@ /(complex)/+--+-- The strong-accent type indicates a vertical accent mark. The type attribute indicates if the point of the accent is down or up.+data StrongAccent = + StrongAccent {+ strongAccentEmptyPlacement :: StrongAccent+ , strongAccentType :: (Maybe UpDown) -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StrongAccent where+ emitXml (StrongAccent a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) b])+ ([emitXml a])+parseStrongAccent :: P.XParse StrongAccent+parseStrongAccent = + StrongAccent+ <$> parseStrongAccent+ <*> P.optional (P.xattr (P.name "type") >>= parseUpDown)++-- | Smart constructor for 'StrongAccent'+mkStrongAccent :: StrongAccent -> StrongAccent+mkStrongAccent a = StrongAccent a Nothing++-- | @style-text@ /(complex)/+--+-- The style-text type represents a text element with a print-style attribute group.+data StyleText = + StyleText {+ styleTextString :: String -- ^ text content+ , styleTextDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , styleTextDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , styleTextRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , styleTextRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , styleTextFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , styleTextFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , styleTextFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , styleTextFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , styleTextColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml StyleText where+ emitXml (StyleText a b c d e f g h i j) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) j])+ []+parseStyleText :: P.XParse StyleText+parseStyleText = + StyleText+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'StyleText'+mkStyleText :: String -> StyleText+mkStyleText a = StyleText a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @supports@ /(complex)/+--+-- The supports type indicates if a MusicXML encoding supports a particular MusicXML element. This is recommended for elements like beam, stem, and accidental, where the absence of an element is ambiguous if you do not know if the encoding supports that element. For Version 2.0, the supports element is expanded to allow programs to indicate support for particular attributes or particular values. This lets applications communicate, for example, that all system and/or page breaks are contained in the MusicXML file.+data Supports = + Supports {+ supportsType :: YesNo -- ^ /type/ attribute+ , supportsElement :: NMTOKEN -- ^ /element/ attribute+ , supportsAttribute :: (Maybe NMTOKEN) -- ^ /attribute/ attribute+ , supportsValue :: (Maybe Token) -- ^ /value/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Supports where+ emitXml (Supports a b c d) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [XAttr (QN "element" Nothing) (emitXml b)] +++ [maybe XEmpty (XAttr (QN "attribute" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "value" Nothing).emitXml) d])+ []+parseSupports :: P.XParse Supports+parseSupports = + Supports+ <$> (P.xattr (P.name "type") >>= parseYesNo)+ <*> (P.xattr (P.name "element") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "attribute") >>= parseNMTOKEN)+ <*> P.optional (P.xattr (P.name "value") >>= parseToken)++-- | Smart constructor for 'Supports'+mkSupports :: YesNo -> NMTOKEN -> Supports+mkSupports a b = Supports a b Nothing Nothing++-- | @system-dividers@ /(complex)/+--+-- The system-dividers element indicates the presence or absence of system dividers (also known as system separation marks) between systems displayed on the same page. Dividers on the left and right side of the page are controlled by the left-divider and right-divider elements respectively. The default vertical position is half the system-distance value from the top of the system that is below the divider. The default horizontal position is the left and right system margin, respectively.+-- +-- When used in the print element, the system-dividers element affects the dividers that would appear between the current system and the previous system.+data SystemDividers = + SystemDividers {+ systemDividersLeftDivider :: EmptyPrintObjectStyleAlign -- ^ /left-divider/ child element+ , systemDividersRightDivider :: EmptyPrintObjectStyleAlign -- ^ /right-divider/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SystemDividers where+ emitXml (SystemDividers a b) =+ XContent XEmpty+ []+ ([XElement (QN "left-divider" Nothing) (emitXml a)] +++ [XElement (QN "right-divider" Nothing) (emitXml b)])+parseSystemDividers :: P.XParse SystemDividers+parseSystemDividers = + SystemDividers+ <$> (P.xchild (P.name "left-divider") (parseEmptyPrintObjectStyleAlign))+ <*> (P.xchild (P.name "right-divider") (parseEmptyPrintObjectStyleAlign))++-- | Smart constructor for 'SystemDividers'+mkSystemDividers :: EmptyPrintObjectStyleAlign -> EmptyPrintObjectStyleAlign -> SystemDividers+mkSystemDividers a b = SystemDividers a b++-- | @system-layout@ /(complex)/+--+-- A system is a group of staves that are read and played simultaneously. System layout includes left and right margins and the vertical distance from the previous system. The system distance is measured from the bottom line of the previous system to the top line of the current system. It is ignored for the first system on a page. The top system distance is measured from the page's top margin to the top line of the first system. It is ignored for all but the first system on a page.+-- +-- Sometimes the sum of measure widths in a system may not equal the system width specified by the layout elements due to roundoff or other errors. The behavior when reading MusicXML files in these cases is application-dependent. For instance, applications may find that the system layout data is more reliable than the sum of the measure widths, and adjust the measure widths accordingly.+data SystemLayout = + SystemLayout {+ systemLayoutSystemMargins :: (Maybe SystemMargins) -- ^ /system-margins/ child element+ , systemLayoutSystemDistance :: (Maybe Tenths) -- ^ /system-distance/ child element+ , systemLayoutTopSystemDistance :: (Maybe Tenths) -- ^ /top-system-distance/ child element+ , systemLayoutSystemDividers :: (Maybe SystemDividers) -- ^ /system-dividers/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SystemLayout where+ emitXml (SystemLayout a b c d) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "system-margins" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "system-distance" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "top-system-distance" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "system-dividers" Nothing).emitXml) d])+parseSystemLayout :: P.XParse SystemLayout+parseSystemLayout = + SystemLayout+ <$> P.optional (P.xchild (P.name "system-margins") (parseSystemMargins))+ <*> P.optional (P.xchild (P.name "system-distance") (P.xtext >>= parseTenths))+ <*> P.optional (P.xchild (P.name "top-system-distance") (P.xtext >>= parseTenths))+ <*> P.optional (P.xchild (P.name "system-dividers") (parseSystemDividers))++-- | Smart constructor for 'SystemLayout'+mkSystemLayout :: SystemLayout+mkSystemLayout = SystemLayout Nothing Nothing Nothing Nothing++-- | @system-margins@ /(complex)/+--+-- System margins are relative to the page margins. Positive values indent and negative values reduce the margin size.+data SystemMargins = + SystemMargins {+ systemMarginsLeftRightMargins :: LeftRightMargins+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SystemMargins where+ emitXml (SystemMargins a) =+ XReps [emitXml a]+parseSystemMargins :: P.XParse SystemMargins+parseSystemMargins = + SystemMargins+ <$> parseLeftRightMargins++-- | Smart constructor for 'SystemMargins'+mkSystemMargins :: LeftRightMargins -> SystemMargins+mkSystemMargins a = SystemMargins a++-- | @tap@ /(complex)/+--+-- The tap type indicates a tap on the fretboard. The text content allows specification of the notation; + and T are common choices. If the element is empty, the hand attribute is used to specify the symbol to use. The hand attribute is ignored if the tap glyph is already specified by the text content. If neither text content nor the hand attribute are present, the display is application-specific.+data Tap = + Tap {+ tapString :: String -- ^ text content+ , tapHand :: (Maybe TapHand) -- ^ /hand/ attribute+ , tapDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , tapDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , tapRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , tapRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , tapFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , tapFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , tapFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , tapFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , tapColor :: (Maybe Color) -- ^ /color/ attribute+ , tapPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tap where+ emitXml (Tap a b c d e f g h i j k l) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "hand" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) l])+ []+parseTap :: P.XParse Tap+parseTap = + Tap+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "hand") >>= parseTapHand)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)++-- | Smart constructor for 'Tap'+mkTap :: String -> Tap+mkTap a = Tap a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @technical@ /(complex)/+--+-- Technical indications give performance information for individual instruments.+data Technical = + Technical {+ technicalId :: (Maybe ID) -- ^ /id/ attribute+ , technicalTechnical :: [ChxTechnical]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Technical where+ emitXml (Technical a b) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "id" Nothing).emitXml) a])+ ([emitXml b])+parseTechnical :: P.XParse Technical+parseTechnical = + Technical+ <$> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.many (parseChxTechnical)++-- | Smart constructor for 'Technical'+mkTechnical :: Technical+mkTechnical = Technical Nothing []++-- | @text-element-data@ /(complex)/+--+-- The text-element-data type represents a syllable or portion of a syllable for lyric text underlay. A hyphen in the string content should only be used for an actual hyphenated word. Language names for text elements come from ISO 639, with optional country subcodes from ISO 3166.+data TextElementData = + TextElementData {+ textElementDataString :: String -- ^ text content+ , textElementDataLang :: (Maybe Lang) -- ^ /xml:lang/ attribute+ , textElementDataFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , textElementDataFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , textElementDataFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , textElementDataFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , textElementDataColor :: (Maybe Color) -- ^ /color/ attribute+ , textElementDataUnderline :: (Maybe NumberOfLines) -- ^ /underline/ attribute+ , textElementDataOverline :: (Maybe NumberOfLines) -- ^ /overline/ attribute+ , textElementDataLineThrough :: (Maybe NumberOfLines) -- ^ /line-through/ attribute+ , textElementDataRotation :: (Maybe RotationDegrees) -- ^ /rotation/ attribute+ , textElementDataLetterSpacing :: (Maybe NumberOrNormal) -- ^ /letter-spacing/ attribute+ , textElementDataDir :: (Maybe TextDirection) -- ^ /dir/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TextElementData where+ emitXml (TextElementData a b c d e f g h i j k l m) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "lang" (Just "xml")).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "underline" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "overline" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "line-through" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "rotation" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "letter-spacing" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "dir" Nothing).emitXml) m])+ []+parseTextElementData :: P.XParse TextElementData+parseTextElementData = + TextElementData+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "xml:lang") >>= parseLang)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "underline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "overline") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "line-through") >>= parseNumberOfLines)+ <*> P.optional (P.xattr (P.name "rotation") >>= parseRotationDegrees)+ <*> P.optional (P.xattr (P.name "letter-spacing") >>= parseNumberOrNormal)+ <*> P.optional (P.xattr (P.name "dir") >>= parseTextDirection)++-- | Smart constructor for 'TextElementData'+mkTextElementData :: String -> TextElementData+mkTextElementData a = TextElementData a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @tie@ /(complex)/+--+-- The tie element indicates that a tie begins or ends with this note. If the tie element applies only particular times through a repeat, the time-only attribute indicates which times to apply it. The tie element indicates sound; the tied element indicates notation.+data Tie = + Tie {+ tieType :: StartStop -- ^ /type/ attribute+ , tieTimeOnly :: (Maybe TimeOnly) -- ^ /time-only/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tie where+ emitXml (Tie a b) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "time-only" Nothing).emitXml) b])+ []+parseTie :: P.XParse Tie+parseTie = + Tie+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "time-only") >>= parseTimeOnly)++-- | Smart constructor for 'Tie'+mkTie :: StartStop -> Tie+mkTie a = Tie a Nothing++-- | @tied@ /(complex)/+--+-- The tied element represents the notated tie. The tie element represents the tie sound.+-- +-- The number attribute is rarely needed to disambiguate ties, since note pitches will usually suffice. The attribute is implied rather than defaulting to 1 as with most elements. It is available for use in more complex tied notation situations.+-- +-- Ties that join two notes of the same pitch together should be represented with a tied element on the first note with type="start" and a tied element on the second note with type="stop". This can also be done if the two notes being tied are enharmonically equivalent, but have different step values. It is not recommended to use tied elements to join two notes with enharmonically inequivalent pitches.+-- +-- Ties that indicate that an instrument should be undamped are specified with a single tied element with type="let-ring".+-- +-- Ties that are visually attached to only one note, other than undamped ties, should be specified with two tied elements on the same note, first type="start" then type="stop". This can be used to represent ties into or out of repeated sections or codas.+data Tied = + Tied {+ tiedType :: TiedType -- ^ /type/ attribute+ , tiedNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , tiedLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , tiedDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , tiedSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , tiedDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , tiedDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , tiedRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , tiedRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , tiedPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , tiedOrientation :: (Maybe OverUnder) -- ^ /orientation/ attribute+ , tiedBezierX :: (Maybe Tenths) -- ^ /bezier-x/ attribute+ , tiedBezierY :: (Maybe Tenths) -- ^ /bezier-y/ attribute+ , tiedBezierX2 :: (Maybe Tenths) -- ^ /bezier-x2/ attribute+ , tiedBezierY2 :: (Maybe Tenths) -- ^ /bezier-y2/ attribute+ , tiedBezierOffset :: (Maybe Divisions) -- ^ /bezier-offset/ attribute+ , tiedBezierOffset2 :: (Maybe Divisions) -- ^ /bezier-offset2/ attribute+ , tiedColor :: (Maybe Color) -- ^ /color/ attribute+ , tiedId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tied where+ emitXml (Tied a b c d e f g h i j k l m n o p q r s) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "orientation" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "bezier-x" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "bezier-y" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "bezier-x2" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "bezier-y2" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "bezier-offset" Nothing).emitXml) p] +++ [maybe XEmpty (XAttr (QN "bezier-offset2" Nothing).emitXml) q] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) r] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) s])+ []+parseTied :: P.XParse Tied+parseTied = + Tied+ <$> (P.xattr (P.name "type") >>= parseTiedType)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "orientation") >>= parseOverUnder)+ <*> P.optional (P.xattr (P.name "bezier-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-x2") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-y2") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "bezier-offset") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "bezier-offset2") >>= parseDivisions)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Tied'+mkTied :: TiedType -> Tied+mkTied a = Tied a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @time@ /(complex)/+--+-- Time signatures are represented by the beats element for the numerator and the beat-type element for the denominator. The symbol attribute is used indicate common and cut time symbols as well as a single number display. Multiple pairs of beat and beat-type elements are used for composite time signatures with multiple denominators, such as 2/4 + 3/8. A composite such as 3+2/8 requires only one beat/beat-type pair.+-- +-- The print-object attribute allows a time signature to be specified but not printed, as is the case for excerpts from the middle of a score. The value is "yes" if not present. The optional number attribute refers to staff numbers within the part. If absent, the time signature applies to all staves in the part.+data Time = + Time {+ timeNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , timeSymbol :: (Maybe TimeSymbol) -- ^ /symbol/ attribute+ , timeSeparator :: (Maybe TimeSeparator) -- ^ /separator/ attribute+ , timeDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , timeDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , timeRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , timeRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , timeFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , timeFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , timeFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , timeFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , timeColor :: (Maybe Color) -- ^ /color/ attribute+ , timeHalign :: (Maybe LeftCenterRight) -- ^ /halign/ attribute+ , timeValign :: (Maybe Valign) -- ^ /valign/ attribute+ , timePrintObject :: (Maybe YesNo) -- ^ /print-object/ attribute+ , timeId :: (Maybe ID) -- ^ /id/ attribute+ , timeTime :: ChxTime+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Time where+ emitXml (Time a b c d e f g h i j k l m n o p q) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "symbol" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "separator" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "halign" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "valign" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "print-object" Nothing).emitXml) o] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) p])+ ([emitXml q])+parseTime :: P.XParse Time+parseTime = + Time+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "symbol") >>= parseTimeSymbol)+ <*> P.optional (P.xattr (P.name "separator") >>= parseTimeSeparator)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "halign") >>= parseLeftCenterRight)+ <*> P.optional (P.xattr (P.name "valign") >>= parseValign)+ <*> P.optional (P.xattr (P.name "print-object") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> parseChxTime++-- | Smart constructor for 'Time'+mkTime :: ChxTime -> Time+mkTime q = Time Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing q++-- | @time-modification@ /(complex)/+--+-- Time modification indicates tuplets, double-note tremolos, and other durational changes. A time-modification element shows how the cumulative, sounding effect of tuplets and double-note tremolos compare to the written note type represented by the type and dot elements. Nested tuplets and other notations that use more detailed information need both the time-modification and tuplet elements to be represented accurately.+data TimeModification = + TimeModification {+ timeModificationActualNotes :: NonNegativeInteger -- ^ /actual-notes/ child element+ , timeModificationNormalNotes :: NonNegativeInteger -- ^ /normal-notes/ child element+ , timeModificationTimeModification :: (Maybe SeqTimeModification)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TimeModification where+ emitXml (TimeModification a b c) =+ XContent XEmpty+ []+ ([XElement (QN "actual-notes" Nothing) (emitXml a)] +++ [XElement (QN "normal-notes" Nothing) (emitXml b)] +++ [emitXml c])+parseTimeModification :: P.XParse TimeModification+parseTimeModification = + TimeModification+ <$> (P.xchild (P.name "actual-notes") (P.xtext >>= parseNonNegativeInteger))+ <*> (P.xchild (P.name "normal-notes") (P.xtext >>= parseNonNegativeInteger))+ <*> P.optional (parseSeqTimeModification)++-- | Smart constructor for 'TimeModification'+mkTimeModification :: NonNegativeInteger -> NonNegativeInteger -> TimeModification+mkTimeModification a b = TimeModification a b Nothing++-- | @transpose@ /(complex)/+--+-- The transpose type represents what must be added to a written pitch to get a correct sounding pitch. The optional number attribute refers to staff numbers, from top to bottom on the system. If absent, the transposition applies to all staves in the part. Per-staff transposition is most often used in parts that represent multiple instruments.+data Transpose = + Transpose {+ transposeNumber :: (Maybe StaffNumber) -- ^ /number/ attribute+ , transposeId :: (Maybe ID) -- ^ /id/ attribute+ , transposeDiatonic :: (Maybe Int) -- ^ /diatonic/ child element+ , transposeChromatic :: Semitones -- ^ /chromatic/ child element+ , transposeOctaveChange :: (Maybe Int) -- ^ /octave-change/ child element+ , transposeDouble :: (Maybe Empty) -- ^ /double/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Transpose where+ emitXml (Transpose a b c d e f) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "number" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) b])+ ([maybe XEmpty (XElement (QN "diatonic" Nothing).emitXml) c] +++ [XElement (QN "chromatic" Nothing) (emitXml d)] +++ [maybe XEmpty (XElement (QN "octave-change" Nothing).emitXml) e] +++ [maybe XEmpty (XElement (QN "double" Nothing).emitXml) f])+parseTranspose :: P.XParse Transpose+parseTranspose = + Transpose+ <$> P.optional (P.xattr (P.name "number") >>= parseStaffNumber)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.optional (P.xchild (P.name "diatonic") (P.xtext >>= (P.xread "Integer")))+ <*> (P.xchild (P.name "chromatic") (P.xtext >>= parseSemitones))+ <*> P.optional (P.xchild (P.name "octave-change") (P.xtext >>= (P.xread "Integer")))+ <*> P.optional (P.xchild (P.name "double") (parseEmpty))++-- | Smart constructor for 'Transpose'+mkTranspose :: Semitones -> Transpose+mkTranspose d = Transpose Nothing Nothing Nothing d Nothing Nothing++-- | @tremolo@ /(complex)/+--+-- The tremolo ornament can be used to indicate single-note, double-note, or unmeasured tremolos. Single-note tremolos use the single type, double-note tremolos use the start and stop types, and unmeasured tremolos use the unmeasured type. The default is "single" for compatibility with Version 1.1. The text of the element indicates the number of tremolo marks and is an integer from 0 to 8. Note that the number of attached beams is not included in this value, but is represented separately using the beam element. The value should be 0 for unmeasured tremolos.+-- +-- When using double-note tremolos, the duration of each note in the tremolo should correspond to half of the notated type value. A time-modification element should also be added with an actual-notes value of 2 and a normal-notes value of 1. If used within a tuplet, this 2/1 ratio should be multiplied by the existing tuplet ratio.+-- +-- The smufl attribute specifies the glyph to use from the SMuFL tremolos range for an unmeasured tremolo. It is ignored for other tremolo types. The SMuFL buzzRoll glyph is used by default if the attribute is missing.+-- +-- Using repeater beams for indicating tremolos is deprecated as of MusicXML 3.0.+data Tremolo = + Tremolo {+ tremoloTremoloMarks :: TremoloMarks -- ^ text content+ , tremoloType :: (Maybe TremoloType) -- ^ /type/ attribute+ , tremoloDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , tremoloDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , tremoloRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , tremoloRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , tremoloFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , tremoloFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , tremoloFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , tremoloFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , tremoloColor :: (Maybe Color) -- ^ /color/ attribute+ , tremoloPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , tremoloSmufl :: (Maybe SmuflGlyphName) -- ^ /smufl/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tremolo where+ emitXml (Tremolo a b c d e f g h i j k l m) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "smufl" Nothing).emitXml) m])+ []+parseTremolo :: P.XParse Tremolo+parseTremolo = + Tremolo+ <$> (P.xtext >>= parseTremoloMarks)+ <*> P.optional (P.xattr (P.name "type") >>= parseTremoloType)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "smufl") >>= parseSmuflGlyphName)++-- | Smart constructor for 'Tremolo'+mkTremolo :: TremoloMarks -> Tremolo+mkTremolo a = Tremolo a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @tuplet@ /(complex)/+--+-- A tuplet element is present when a tuplet is to be displayed graphically, in addition to the sound data provided by the time-modification elements. The number attribute is used to distinguish nested tuplets. The bracket attribute is used to indicate the presence of a bracket. If unspecified, the results are implementation-dependent. The line-shape attribute is used to specify whether the bracket is straight or in the older curved or slurred style. It is straight by default.+-- +-- Whereas a time-modification element shows how the cumulative, sounding effect of tuplets and double-note tremolos compare to the written note type, the tuplet element describes how this is displayed. The tuplet element also provides more detailed representation information than the time-modification element, and is needed to represent nested tuplets and other complex tuplets accurately.+-- +-- The show-number attribute is used to display either the number of actual notes, the number of both actual and normal notes, or neither. It is actual by default. The show-type attribute is used to display either the actual type, both the actual and normal types, or neither. It is none by default.+data Tuplet = + Tuplet {+ tupletType :: StartStop -- ^ /type/ attribute+ , tupletNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , tupletBracket :: (Maybe YesNo) -- ^ /bracket/ attribute+ , tupletShowNumber :: (Maybe ShowTuplet) -- ^ /show-number/ attribute+ , tupletShowType :: (Maybe ShowTuplet) -- ^ /show-type/ attribute+ , tupletLineShape :: (Maybe LineShape) -- ^ /line-shape/ attribute+ , tupletDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , tupletDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , tupletRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , tupletRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , tupletPlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , tupletId :: (Maybe ID) -- ^ /id/ attribute+ , tupletTupletActual :: (Maybe TupletPortion) -- ^ /tuplet-actual/ child element+ , tupletTupletNormal :: (Maybe TupletPortion) -- ^ /tuplet-normal/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tuplet where+ emitXml (Tuplet a b c d e f g h i j k l m n) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "bracket" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "show-number" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "show-type" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "line-shape" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) l])+ ([maybe XEmpty (XElement (QN "tuplet-actual" Nothing).emitXml) m] +++ [maybe XEmpty (XElement (QN "tuplet-normal" Nothing).emitXml) n])+parseTuplet :: P.XParse Tuplet+parseTuplet = + Tuplet+ <$> (P.xattr (P.name "type") >>= parseStartStop)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "bracket") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "show-number") >>= parseShowTuplet)+ <*> P.optional (P.xattr (P.name "show-type") >>= parseShowTuplet)+ <*> P.optional (P.xattr (P.name "line-shape") >>= parseLineShape)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)+ <*> P.optional (P.xchild (P.name "tuplet-actual") (parseTupletPortion))+ <*> P.optional (P.xchild (P.name "tuplet-normal") (parseTupletPortion))++-- | Smart constructor for 'Tuplet'+mkTuplet :: StartStop -> Tuplet+mkTuplet a = Tuplet a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @tuplet-dot@ /(complex)/+--+-- The tuplet-dot type is used to specify dotted normal tuplet types.+data TupletDot = + TupletDot {+ tupletDotFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , tupletDotFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , tupletDotFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , tupletDotFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , tupletDotColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TupletDot where+ emitXml (TupletDot a b c d e) =+ XContent XEmpty+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) a] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) e])+ []+parseTupletDot :: P.XParse TupletDot+parseTupletDot = + TupletDot+ <$> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'TupletDot'+mkTupletDot :: TupletDot+mkTupletDot = TupletDot Nothing Nothing Nothing Nothing Nothing++-- | @tuplet-number@ /(complex)/+--+-- The tuplet-number type indicates the number of notes for this portion of the tuplet.+data TupletNumber = + TupletNumber {+ tupletNumberNonNegativeInteger :: NonNegativeInteger -- ^ text content+ , tupletNumberFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , tupletNumberFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , tupletNumberFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , tupletNumberFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , tupletNumberColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TupletNumber where+ emitXml (TupletNumber a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseTupletNumber :: P.XParse TupletNumber+parseTupletNumber = + TupletNumber+ <$> (P.xtext >>= parseNonNegativeInteger)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'TupletNumber'+mkTupletNumber :: NonNegativeInteger -> TupletNumber+mkTupletNumber a = TupletNumber a Nothing Nothing Nothing Nothing Nothing++-- | @tuplet-portion@ /(complex)/+--+-- The tuplet-portion type provides optional full control over tuplet specifications. It allows the number and note type (including dots) to be set for the actual and normal portions of a single tuplet. If any of these elements are absent, their values are based on the time-modification element.+data TupletPortion = + TupletPortion {+ tupletPortionTupletNumber :: (Maybe TupletNumber) -- ^ /tuplet-number/ child element+ , tupletPortionTupletType :: (Maybe TupletType) -- ^ /tuplet-type/ child element+ , tupletPortionTupletDot :: [TupletDot] -- ^ /tuplet-dot/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TupletPortion where+ emitXml (TupletPortion a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "tuplet-number" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "tuplet-type" Nothing).emitXml) b] +++ map (XElement (QN "tuplet-dot" Nothing).emitXml) c)+parseTupletPortion :: P.XParse TupletPortion+parseTupletPortion = + TupletPortion+ <$> P.optional (P.xchild (P.name "tuplet-number") (parseTupletNumber))+ <*> P.optional (P.xchild (P.name "tuplet-type") (parseTupletType))+ <*> P.many (P.xchild (P.name "tuplet-dot") (parseTupletDot))++-- | Smart constructor for 'TupletPortion'+mkTupletPortion :: TupletPortion+mkTupletPortion = TupletPortion Nothing Nothing []++-- | @tuplet-type@ /(complex)/+--+-- The tuplet-type type indicates the graphical note type of the notes for this portion of the tuplet.+data TupletType = + TupletType {+ tupletTypeNoteTypeValue :: NoteTypeValue -- ^ text content+ , tupletTypeFontFamily :: (Maybe CommaSeparatedText) -- ^ /font-family/ attribute+ , tupletTypeFontStyle :: (Maybe FontStyle) -- ^ /font-style/ attribute+ , tupletTypeFontSize :: (Maybe FontSize) -- ^ /font-size/ attribute+ , tupletTypeFontWeight :: (Maybe FontWeight) -- ^ /font-weight/ attribute+ , tupletTypeColor :: (Maybe Color) -- ^ /color/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TupletType where+ emitXml (TupletType a b c d e f) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "font-family" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "font-style" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "font-size" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "font-weight" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) f])+ []+parseTupletType :: P.XParse TupletType+parseTupletType = + TupletType+ <$> (P.xtext >>= parseNoteTypeValue)+ <*> P.optional (P.xattr (P.name "font-family") >>= parseCommaSeparatedText)+ <*> P.optional (P.xattr (P.name "font-style") >>= parseFontStyle)+ <*> P.optional (P.xattr (P.name "font-size") >>= parseFontSize)+ <*> P.optional (P.xattr (P.name "font-weight") >>= parseFontWeight)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)++-- | Smart constructor for 'TupletType'+mkTupletType :: NoteTypeValue -> TupletType+mkTupletType a = TupletType a Nothing Nothing Nothing Nothing Nothing++-- | @typed-text@ /(complex)/+--+-- The typed-text type represents a text element with a type attributes.+data TypedText = + TypedText {+ typedTextString :: String -- ^ text content+ , typedTextType :: (Maybe Token) -- ^ /type/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TypedText where+ emitXml (TypedText a b) =+ XContent (emitXml a)+ ([maybe XEmpty (XAttr (QN "type" Nothing).emitXml) b])+ []+parseTypedText :: P.XParse TypedText+parseTypedText = + TypedText+ <$> (P.xtext >>= return)+ <*> P.optional (P.xattr (P.name "type") >>= parseToken)++-- | Smart constructor for 'TypedText'+mkTypedText :: String -> TypedText+mkTypedText a = TypedText a Nothing++-- | @unpitched@ /(complex)/+--+-- The unpitched type represents musical elements that are notated on the staff but lack definite pitch, such as unpitched percussion and speaking voice.+data Unpitched = + Unpitched {+ unpitchedDisplayStepOctave :: (Maybe DisplayStepOctave)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Unpitched where+ emitXml (Unpitched a) =+ XReps [emitXml a]+parseUnpitched :: P.XParse Unpitched+parseUnpitched = + Unpitched+ <$> P.optional (parseDisplayStepOctave)++-- | Smart constructor for 'Unpitched'+mkUnpitched :: Unpitched+mkUnpitched = Unpitched Nothing++-- | @virtual-instrument@ /(complex)/+--+-- The virtual-instrument element defines a specific virtual instrument used for an instrument sound.+data VirtualInstrument = + VirtualInstrument {+ virtualInstrumentVirtualLibrary :: (Maybe String) -- ^ /virtual-library/ child element+ , virtualInstrumentVirtualName :: (Maybe String) -- ^ /virtual-name/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml VirtualInstrument where+ emitXml (VirtualInstrument a b) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "virtual-library" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "virtual-name" Nothing).emitXml) b])+parseVirtualInstrument :: P.XParse VirtualInstrument+parseVirtualInstrument = + VirtualInstrument+ <$> P.optional (P.xchild (P.name "virtual-library") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "virtual-name") (P.xtext >>= return))++-- | Smart constructor for 'VirtualInstrument'+mkVirtualInstrument :: VirtualInstrument+mkVirtualInstrument = VirtualInstrument Nothing Nothing++-- | @wavy-line@ /(complex)/+--+-- Wavy lines are one way to indicate trills. When used with a barline element, they should always have type="continue" set.+data WavyLine = + WavyLine {+ wavyLineType :: StartStopContinue -- ^ /type/ attribute+ , wavyLineNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , wavyLineDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , wavyLineDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , wavyLineRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , wavyLineRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , wavyLinePlacement :: (Maybe AboveBelow) -- ^ /placement/ attribute+ , wavyLineColor :: (Maybe Color) -- ^ /color/ attribute+ , wavyLineStartNote :: (Maybe StartNote) -- ^ /start-note/ attribute+ , wavyLineTrillStep :: (Maybe TrillStep) -- ^ /trill-step/ attribute+ , wavyLineTwoNoteTurn :: (Maybe TwoNoteTurn) -- ^ /two-note-turn/ attribute+ , wavyLineAccelerate :: (Maybe YesNo) -- ^ /accelerate/ attribute+ , wavyLineBeats :: (Maybe TrillBeats) -- ^ /beats/ attribute+ , wavyLineSecondBeat :: (Maybe Percent) -- ^ /second-beat/ attribute+ , wavyLineLastBeat :: (Maybe Percent) -- ^ /last-beat/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml WavyLine where+ emitXml (WavyLine a b c d e f g h i j k l m n o) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "placement" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "start-note" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "trill-step" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "two-note-turn" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "accelerate" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "beats" Nothing).emitXml) m] +++ [maybe XEmpty (XAttr (QN "second-beat" Nothing).emitXml) n] +++ [maybe XEmpty (XAttr (QN "last-beat" Nothing).emitXml) o])+ []+parseWavyLine :: P.XParse WavyLine+parseWavyLine = + WavyLine+ <$> (P.xattr (P.name "type") >>= parseStartStopContinue)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "placement") >>= parseAboveBelow)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "start-note") >>= parseStartNote)+ <*> P.optional (P.xattr (P.name "trill-step") >>= parseTrillStep)+ <*> P.optional (P.xattr (P.name "two-note-turn") >>= parseTwoNoteTurn)+ <*> P.optional (P.xattr (P.name "accelerate") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "beats") >>= parseTrillBeats)+ <*> P.optional (P.xattr (P.name "second-beat") >>= parsePercent)+ <*> P.optional (P.xattr (P.name "last-beat") >>= parsePercent)++-- | Smart constructor for 'WavyLine'+mkWavyLine :: StartStopContinue -> WavyLine+mkWavyLine a = WavyLine a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @wedge@ /(complex)/+--+-- The wedge type represents crescendo and diminuendo wedge symbols. The type attribute is crescendo for the start of a wedge that is closed at the left side, and diminuendo for the start of a wedge that is closed on the right side. Spread values are measured in tenths; those at the start of a crescendo wedge or end of a diminuendo wedge are ignored. The niente attribute is yes if a circle appears at the point of the wedge, indicating a crescendo from nothing or diminuendo to nothing. It is no by default, and used only when the type is crescendo, or the type is stop for a wedge that began with a diminuendo type. The line-type is solid by default.+data Wedge = + Wedge {+ wedgeType :: WedgeType -- ^ /type/ attribute+ , wedgeNumber :: (Maybe NumberLevel) -- ^ /number/ attribute+ , wedgeSpread :: (Maybe Tenths) -- ^ /spread/ attribute+ , wedgeNiente :: (Maybe YesNo) -- ^ /niente/ attribute+ , wedgeLineType :: (Maybe LineType) -- ^ /line-type/ attribute+ , wedgeDashLength :: (Maybe Tenths) -- ^ /dash-length/ attribute+ , wedgeSpaceLength :: (Maybe Tenths) -- ^ /space-length/ attribute+ , wedgeDefaultX :: (Maybe Tenths) -- ^ /default-x/ attribute+ , wedgeDefaultY :: (Maybe Tenths) -- ^ /default-y/ attribute+ , wedgeRelativeX :: (Maybe Tenths) -- ^ /relative-x/ attribute+ , wedgeRelativeY :: (Maybe Tenths) -- ^ /relative-y/ attribute+ , wedgeColor :: (Maybe Color) -- ^ /color/ attribute+ , wedgeId :: (Maybe ID) -- ^ /id/ attribute+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Wedge where+ emitXml (Wedge a b c d e f g h i j k l m) =+ XContent XEmpty+ ([XAttr (QN "type" Nothing) (emitXml a)] +++ [maybe XEmpty (XAttr (QN "number" Nothing).emitXml) b] +++ [maybe XEmpty (XAttr (QN "spread" Nothing).emitXml) c] +++ [maybe XEmpty (XAttr (QN "niente" Nothing).emitXml) d] +++ [maybe XEmpty (XAttr (QN "line-type" Nothing).emitXml) e] +++ [maybe XEmpty (XAttr (QN "dash-length" Nothing).emitXml) f] +++ [maybe XEmpty (XAttr (QN "space-length" Nothing).emitXml) g] +++ [maybe XEmpty (XAttr (QN "default-x" Nothing).emitXml) h] +++ [maybe XEmpty (XAttr (QN "default-y" Nothing).emitXml) i] +++ [maybe XEmpty (XAttr (QN "relative-x" Nothing).emitXml) j] +++ [maybe XEmpty (XAttr (QN "relative-y" Nothing).emitXml) k] +++ [maybe XEmpty (XAttr (QN "color" Nothing).emitXml) l] +++ [maybe XEmpty (XAttr (QN "id" Nothing).emitXml) m])+ []+parseWedge :: P.XParse Wedge+parseWedge = + Wedge+ <$> (P.xattr (P.name "type") >>= parseWedgeType)+ <*> P.optional (P.xattr (P.name "number") >>= parseNumberLevel)+ <*> P.optional (P.xattr (P.name "spread") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "niente") >>= parseYesNo)+ <*> P.optional (P.xattr (P.name "line-type") >>= parseLineType)+ <*> P.optional (P.xattr (P.name "dash-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "space-length") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "default-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-x") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "relative-y") >>= parseTenths)+ <*> P.optional (P.xattr (P.name "color") >>= parseColor)+ <*> P.optional (P.xattr (P.name "id") >>= parseID)++-- | Smart constructor for 'Wedge'+mkWedge :: WedgeType -> Wedge+mkWedge a = Wedge a Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing++-- | @work@ /(complex)/+--+-- Works are optionally identified by number and title. The work type also may indicate a link to the opus document that composes multiple scores into a collection.+data Work = + Work {+ workWorkNumber :: (Maybe String) -- ^ /work-number/ child element+ , workWorkTitle :: (Maybe String) -- ^ /work-title/ child element+ , workOpus :: (Maybe Opus) -- ^ /opus/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Work where+ emitXml (Work a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "work-number" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "work-title" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "opus" Nothing).emitXml) c])+parseWork :: P.XParse Work+parseWork = + Work+ <$> P.optional (P.xchild (P.name "work-number") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "work-title") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "opus") (parseOpus))++-- | Smart constructor for 'Work'+mkWork :: Work+mkWork = Work Nothing Nothing Nothing++-- | @arrow@ /(choice)/+data ChxArrow = + ArrowArrowDirection {+ arrowArrowDirection :: ArrowDirection -- ^ /arrow-direction/ child element+ , arrowArrowStyle :: (Maybe ArrowStyle) -- ^ /arrow-style/ child element+ , arrowArrowhead :: (Maybe Empty) -- ^ /arrowhead/ child element+ }+ | ArrowCircularArrow {+ arrowCircularArrow :: CircularArrow -- ^ /circular-arrow/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxArrow where+ emitXml (ArrowArrowDirection a b c) =+ XContent XEmpty+ []+ ([XElement (QN "arrow-direction" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "arrow-style" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "arrowhead" Nothing).emitXml) c])+ emitXml (ArrowCircularArrow a) =+ XContent XEmpty+ []+ ([XElement (QN "circular-arrow" Nothing) (emitXml a)])+parseChxArrow :: P.XParse ChxArrow+parseChxArrow = + ArrowArrowDirection+ <$> (P.xchild (P.name "arrow-direction") (P.xtext >>= parseArrowDirection))+ <*> P.optional (P.xchild (P.name "arrow-style") (P.xtext >>= parseArrowStyle))+ <*> P.optional (P.xchild (P.name "arrowhead") (parseEmpty))+ <|> ArrowCircularArrow+ <$> (P.xchild (P.name "circular-arrow") (P.xtext >>= parseCircularArrow))++-- | Smart constructor for 'ArrowArrowDirection'+mkArrowArrowDirection :: ArrowDirection -> ChxArrow+mkArrowArrowDirection a = ArrowArrowDirection a Nothing Nothing+-- | Smart constructor for 'ArrowCircularArrow'+mkArrowCircularArrow :: CircularArrow -> ChxArrow+mkArrowCircularArrow a = ArrowCircularArrow a++-- | @articulations@ /(choice)/+data ChxArticulations = + ArticulationsAccent {+ articulationsAccent :: EmptyPlacement -- ^ /accent/ child element+ }+ | ArticulationsStrongAccent {+ articulationsStrongAccent :: StrongAccent -- ^ /strong-accent/ child element+ }+ | ArticulationsStaccato {+ articulationsStaccato :: EmptyPlacement -- ^ /staccato/ child element+ }+ | ArticulationsTenuto {+ articulationsTenuto :: EmptyPlacement -- ^ /tenuto/ child element+ }+ | ArticulationsDetachedLegato {+ articulationsDetachedLegato :: EmptyPlacement -- ^ /detached-legato/ child element+ }+ | ArticulationsStaccatissimo {+ articulationsStaccatissimo :: EmptyPlacement -- ^ /staccatissimo/ child element+ }+ | ArticulationsSpiccato {+ articulationsSpiccato :: EmptyPlacement -- ^ /spiccato/ child element+ }+ | ArticulationsScoop {+ articulationsScoop :: EmptyLine -- ^ /scoop/ child element+ }+ | ArticulationsPlop {+ articulationsPlop :: EmptyLine -- ^ /plop/ child element+ }+ | ArticulationsDoit {+ articulationsDoit :: EmptyLine -- ^ /doit/ child element+ }+ | ArticulationsFalloff {+ articulationsFalloff :: EmptyLine -- ^ /falloff/ child element+ }+ | ArticulationsBreathMark {+ articulationsBreathMark :: BreathMark -- ^ /breath-mark/ child element+ }+ | ArticulationsCaesura {+ articulationsCaesura :: Caesura -- ^ /caesura/ child element+ }+ | ArticulationsStress {+ articulationsStress :: EmptyPlacement -- ^ /stress/ child element+ }+ | ArticulationsUnstress {+ articulationsUnstress :: EmptyPlacement -- ^ /unstress/ child element+ }+ | ArticulationsSoftAccent {+ articulationsSoftAccent :: EmptyPlacement -- ^ /soft-accent/ child element+ }+ | ArticulationsOtherArticulation {+ articulationsOtherArticulation :: OtherPlacementText -- ^ /other-articulation/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxArticulations where+ emitXml (ArticulationsAccent a) =+ XContent XEmpty+ []+ ([XElement (QN "accent" Nothing) (emitXml a)])+ emitXml (ArticulationsStrongAccent a) =+ XContent XEmpty+ []+ ([XElement (QN "strong-accent" Nothing) (emitXml a)])+ emitXml (ArticulationsStaccato a) =+ XContent XEmpty+ []+ ([XElement (QN "staccato" Nothing) (emitXml a)])+ emitXml (ArticulationsTenuto a) =+ XContent XEmpty+ []+ ([XElement (QN "tenuto" Nothing) (emitXml a)])+ emitXml (ArticulationsDetachedLegato a) =+ XContent XEmpty+ []+ ([XElement (QN "detached-legato" Nothing) (emitXml a)])+ emitXml (ArticulationsStaccatissimo a) =+ XContent XEmpty+ []+ ([XElement (QN "staccatissimo" Nothing) (emitXml a)])+ emitXml (ArticulationsSpiccato a) =+ XContent XEmpty+ []+ ([XElement (QN "spiccato" Nothing) (emitXml a)])+ emitXml (ArticulationsScoop a) =+ XContent XEmpty+ []+ ([XElement (QN "scoop" Nothing) (emitXml a)])+ emitXml (ArticulationsPlop a) =+ XContent XEmpty+ []+ ([XElement (QN "plop" Nothing) (emitXml a)])+ emitXml (ArticulationsDoit a) =+ XContent XEmpty+ []+ ([XElement (QN "doit" Nothing) (emitXml a)])+ emitXml (ArticulationsFalloff a) =+ XContent XEmpty+ []+ ([XElement (QN "falloff" Nothing) (emitXml a)])+ emitXml (ArticulationsBreathMark a) =+ XContent XEmpty+ []+ ([XElement (QN "breath-mark" Nothing) (emitXml a)])+ emitXml (ArticulationsCaesura a) =+ XContent XEmpty+ []+ ([XElement (QN "caesura" Nothing) (emitXml a)])+ emitXml (ArticulationsStress a) =+ XContent XEmpty+ []+ ([XElement (QN "stress" Nothing) (emitXml a)])+ emitXml (ArticulationsUnstress a) =+ XContent XEmpty+ []+ ([XElement (QN "unstress" Nothing) (emitXml a)])+ emitXml (ArticulationsSoftAccent a) =+ XContent XEmpty+ []+ ([XElement (QN "soft-accent" Nothing) (emitXml a)])+ emitXml (ArticulationsOtherArticulation a) =+ XContent XEmpty+ []+ ([XElement (QN "other-articulation" Nothing) (emitXml a)])+parseChxArticulations :: P.XParse ChxArticulations+parseChxArticulations = + ArticulationsAccent+ <$> (P.xchild (P.name "accent") (parseEmptyPlacement))+ <|> ArticulationsStrongAccent+ <$> (P.xchild (P.name "strong-accent") (parseStrongAccent))+ <|> ArticulationsStaccato+ <$> (P.xchild (P.name "staccato") (parseEmptyPlacement))+ <|> ArticulationsTenuto+ <$> (P.xchild (P.name "tenuto") (parseEmptyPlacement))+ <|> ArticulationsDetachedLegato+ <$> (P.xchild (P.name "detached-legato") (parseEmptyPlacement))+ <|> ArticulationsStaccatissimo+ <$> (P.xchild (P.name "staccatissimo") (parseEmptyPlacement))+ <|> ArticulationsSpiccato+ <$> (P.xchild (P.name "spiccato") (parseEmptyPlacement))+ <|> ArticulationsScoop+ <$> (P.xchild (P.name "scoop") (parseEmptyLine))+ <|> ArticulationsPlop+ <$> (P.xchild (P.name "plop") (parseEmptyLine))+ <|> ArticulationsDoit+ <$> (P.xchild (P.name "doit") (parseEmptyLine))+ <|> ArticulationsFalloff+ <$> (P.xchild (P.name "falloff") (parseEmptyLine))+ <|> ArticulationsBreathMark+ <$> (P.xchild (P.name "breath-mark") (parseBreathMark))+ <|> ArticulationsCaesura+ <$> (P.xchild (P.name "caesura") (parseCaesura))+ <|> ArticulationsStress+ <$> (P.xchild (P.name "stress") (parseEmptyPlacement))+ <|> ArticulationsUnstress+ <$> (P.xchild (P.name "unstress") (parseEmptyPlacement))+ <|> ArticulationsSoftAccent+ <$> (P.xchild (P.name "soft-accent") (parseEmptyPlacement))+ <|> ArticulationsOtherArticulation+ <$> (P.xchild (P.name "other-articulation") (parseOtherPlacementText))++-- | Smart constructor for 'ArticulationsAccent'+mkArticulationsAccent :: EmptyPlacement -> ChxArticulations+mkArticulationsAccent a = ArticulationsAccent a+-- | Smart constructor for 'ArticulationsStrongAccent'+mkArticulationsStrongAccent :: StrongAccent -> ChxArticulations+mkArticulationsStrongAccent a = ArticulationsStrongAccent a+-- | Smart constructor for 'ArticulationsStaccato'+mkArticulationsStaccato :: EmptyPlacement -> ChxArticulations+mkArticulationsStaccato a = ArticulationsStaccato a+-- | Smart constructor for 'ArticulationsTenuto'+mkArticulationsTenuto :: EmptyPlacement -> ChxArticulations+mkArticulationsTenuto a = ArticulationsTenuto a+-- | Smart constructor for 'ArticulationsDetachedLegato'+mkArticulationsDetachedLegato :: EmptyPlacement -> ChxArticulations+mkArticulationsDetachedLegato a = ArticulationsDetachedLegato a+-- | Smart constructor for 'ArticulationsStaccatissimo'+mkArticulationsStaccatissimo :: EmptyPlacement -> ChxArticulations+mkArticulationsStaccatissimo a = ArticulationsStaccatissimo a+-- | Smart constructor for 'ArticulationsSpiccato'+mkArticulationsSpiccato :: EmptyPlacement -> ChxArticulations+mkArticulationsSpiccato a = ArticulationsSpiccato a+-- | Smart constructor for 'ArticulationsScoop'+mkArticulationsScoop :: EmptyLine -> ChxArticulations+mkArticulationsScoop a = ArticulationsScoop a+-- | Smart constructor for 'ArticulationsPlop'+mkArticulationsPlop :: EmptyLine -> ChxArticulations+mkArticulationsPlop a = ArticulationsPlop a+-- | Smart constructor for 'ArticulationsDoit'+mkArticulationsDoit :: EmptyLine -> ChxArticulations+mkArticulationsDoit a = ArticulationsDoit a+-- | Smart constructor for 'ArticulationsFalloff'+mkArticulationsFalloff :: EmptyLine -> ChxArticulations+mkArticulationsFalloff a = ArticulationsFalloff a+-- | Smart constructor for 'ArticulationsBreathMark'+mkArticulationsBreathMark :: BreathMark -> ChxArticulations+mkArticulationsBreathMark a = ArticulationsBreathMark a+-- | Smart constructor for 'ArticulationsCaesura'+mkArticulationsCaesura :: Caesura -> ChxArticulations+mkArticulationsCaesura a = ArticulationsCaesura a+-- | Smart constructor for 'ArticulationsStress'+mkArticulationsStress :: EmptyPlacement -> ChxArticulations+mkArticulationsStress a = ArticulationsStress a+-- | Smart constructor for 'ArticulationsUnstress'+mkArticulationsUnstress :: EmptyPlacement -> ChxArticulations+mkArticulationsUnstress a = ArticulationsUnstress a+-- | Smart constructor for 'ArticulationsSoftAccent'+mkArticulationsSoftAccent :: EmptyPlacement -> ChxArticulations+mkArticulationsSoftAccent a = ArticulationsSoftAccent a+-- | Smart constructor for 'ArticulationsOtherArticulation'+mkArticulationsOtherArticulation :: OtherPlacementText -> ChxArticulations+mkArticulationsOtherArticulation a = ArticulationsOtherArticulation a++-- | @bend@ /(choice)/+data ChxBend = + BendPreBend {+ bendPreBend :: Empty -- ^ /pre-bend/ child element+ }+ | BendRelease {+ bendRelease :: Empty -- ^ /release/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxBend where+ emitXml (BendPreBend a) =+ XContent XEmpty+ []+ ([XElement (QN "pre-bend" Nothing) (emitXml a)])+ emitXml (BendRelease a) =+ XContent XEmpty+ []+ ([XElement (QN "release" Nothing) (emitXml a)])+parseChxBend :: P.XParse ChxBend+parseChxBend = + BendPreBend+ <$> (P.xchild (P.name "pre-bend") (parseEmpty))+ <|> BendRelease+ <$> (P.xchild (P.name "release") (parseEmpty))++-- | Smart constructor for 'BendPreBend'+mkBendPreBend :: Empty -> ChxBend+mkBendPreBend a = BendPreBend a+-- | Smart constructor for 'BendRelease'+mkBendRelease :: Empty -> ChxBend+mkBendRelease a = BendRelease a++-- | @credit@ /(choice)/+data ChxCredit0 = + CreditCreditWords {+ creditCreditWords :: FormattedTextId -- ^ /credit-words/ child element+ }+ | CreditCreditSymbol {+ creditCreditSymbol :: FormattedSymbolId -- ^ /credit-symbol/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxCredit0 where+ emitXml (CreditCreditWords a) =+ XContent XEmpty+ []+ ([XElement (QN "credit-words" Nothing) (emitXml a)])+ emitXml (CreditCreditSymbol a) =+ XContent XEmpty+ []+ ([XElement (QN "credit-symbol" Nothing) (emitXml a)])+parseChxCredit0 :: P.XParse ChxCredit0+parseChxCredit0 = + CreditCreditWords+ <$> (P.xchild (P.name "credit-words") (parseFormattedTextId))+ <|> CreditCreditSymbol+ <$> (P.xchild (P.name "credit-symbol") (parseFormattedSymbolId))++-- | Smart constructor for 'CreditCreditWords'+mkCreditCreditWords :: FormattedTextId -> ChxCredit0+mkCreditCreditWords a = CreditCreditWords a+-- | Smart constructor for 'CreditCreditSymbol'+mkCreditCreditSymbol :: FormattedSymbolId -> ChxCredit0+mkCreditCreditSymbol a = CreditCreditSymbol a++-- | @credit@ /(choice)/++-- mangled: 1+data ChxCredit1 = + ChxCreditCreditWords {+ chxcreditCreditWords :: FormattedTextId -- ^ /credit-words/ child element+ }+ | ChxCreditCreditSymbol {+ chxcreditCreditSymbol :: FormattedSymbolId -- ^ /credit-symbol/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxCredit1 where+ emitXml (ChxCreditCreditWords a) =+ XContent XEmpty+ []+ ([XElement (QN "credit-words" Nothing) (emitXml a)])+ emitXml (ChxCreditCreditSymbol a) =+ XContent XEmpty+ []+ ([XElement (QN "credit-symbol" Nothing) (emitXml a)])+parseChxCredit1 :: P.XParse ChxCredit1+parseChxCredit1 = + ChxCreditCreditWords+ <$> (P.xchild (P.name "credit-words") (parseFormattedTextId))+ <|> ChxCreditCreditSymbol+ <$> (P.xchild (P.name "credit-symbol") (parseFormattedSymbolId))++-- | Smart constructor for 'ChxCreditCreditWords'+mkChxCreditCreditWords :: FormattedTextId -> ChxCredit1+mkChxCreditCreditWords a = ChxCreditCreditWords a+-- | Smart constructor for 'ChxCreditCreditSymbol'+mkChxCreditCreditSymbol :: FormattedSymbolId -> ChxCredit1+mkChxCreditCreditSymbol a = ChxCreditCreditSymbol a++-- | @credit@ /(choice)/++-- mangled: 2+data ChxCredit = + CreditCreditImage {+ creditCreditImage :: Image -- ^ /credit-image/ child element+ }+ | CreditCredit {+ chxcreditCredit :: ChxCredit0+ , creditCredit1 :: [SeqCredit]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxCredit where+ emitXml (CreditCreditImage a) =+ XContent XEmpty+ []+ ([XElement (QN "credit-image" Nothing) (emitXml a)])+ emitXml (CreditCredit a b) =+ XReps [emitXml a,emitXml b]+parseChxCredit :: P.XParse ChxCredit+parseChxCredit = + CreditCreditImage+ <$> (P.xchild (P.name "credit-image") (parseImage))+ <|> CreditCredit+ <$> parseChxCredit0+ <*> P.many (parseSeqCredit)++-- | Smart constructor for 'CreditCreditImage'+mkCreditCreditImage :: Image -> ChxCredit+mkCreditCreditImage a = CreditCreditImage a+-- | Smart constructor for 'CreditCredit'+mkCreditCredit :: ChxCredit0 -> ChxCredit+mkCreditCredit a = CreditCredit a []++-- | @direction-type@ /(choice)/+data ChxDirectionType0 = + DirectionTypeWords {+ directionTypeWords :: FormattedTextId -- ^ /words/ child element+ }+ | DirectionTypeSymbol {+ directionTypeSymbol :: FormattedSymbolId -- ^ /symbol/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxDirectionType0 where+ emitXml (DirectionTypeWords a) =+ XContent XEmpty+ []+ ([XElement (QN "words" Nothing) (emitXml a)])+ emitXml (DirectionTypeSymbol a) =+ XContent XEmpty+ []+ ([XElement (QN "symbol" Nothing) (emitXml a)])+parseChxDirectionType0 :: P.XParse ChxDirectionType0+parseChxDirectionType0 = + DirectionTypeWords+ <$> (P.xchild (P.name "words") (parseFormattedTextId))+ <|> DirectionTypeSymbol+ <$> (P.xchild (P.name "symbol") (parseFormattedSymbolId))++-- | Smart constructor for 'DirectionTypeWords'+mkDirectionTypeWords :: FormattedTextId -> ChxDirectionType0+mkDirectionTypeWords a = DirectionTypeWords a+-- | Smart constructor for 'DirectionTypeSymbol'+mkDirectionTypeSymbol :: FormattedSymbolId -> ChxDirectionType0+mkDirectionTypeSymbol a = DirectionTypeSymbol a++-- | @direction-type@ /(choice)/++-- mangled: 1+data ChxDirectionType = + DirectionTypeRehearsal {+ directionTypeRehearsal :: [FormattedTextId] -- ^ /rehearsal/ child element+ }+ | DirectionTypeSegno {+ directionTypeSegno :: [Segno] -- ^ /segno/ child element+ }+ | DirectionTypeCoda {+ directionTypeCoda :: [Coda] -- ^ /coda/ child element+ }+ | DirectionTypeDirectionType {+ chxdirectionTypeDirectionType :: [ChxDirectionType0]+ }+ | DirectionTypeWedge {+ directionTypeWedge :: Wedge -- ^ /wedge/ child element+ }+ | DirectionTypeDynamics {+ directionTypeDynamics :: [Dynamics] -- ^ /dynamics/ child element+ }+ | DirectionTypeDashes {+ directionTypeDashes :: Dashes -- ^ /dashes/ child element+ }+ | DirectionTypeBracket {+ directionTypeBracket :: Bracket -- ^ /bracket/ child element+ }+ | DirectionTypePedal {+ directionTypePedal :: Pedal -- ^ /pedal/ child element+ }+ | DirectionTypeMetronome {+ directionTypeMetronome :: Metronome -- ^ /metronome/ child element+ }+ | DirectionTypeOctaveShift {+ directionTypeOctaveShift :: OctaveShift -- ^ /octave-shift/ child element+ }+ | DirectionTypeHarpPedals {+ directionTypeHarpPedals :: HarpPedals -- ^ /harp-pedals/ child element+ }+ | DirectionTypeDamp {+ directionTypeDamp :: EmptyPrintStyleAlignId -- ^ /damp/ child element+ }+ | DirectionTypeDampAll {+ directionTypeDampAll :: EmptyPrintStyleAlignId -- ^ /damp-all/ child element+ }+ | DirectionTypeEyeglasses {+ directionTypeEyeglasses :: EmptyPrintStyleAlignId -- ^ /eyeglasses/ child element+ }+ | DirectionTypeStringMute {+ directionTypeStringMute :: StringMute -- ^ /string-mute/ child element+ }+ | DirectionTypeScordatura {+ directionTypeScordatura :: Scordatura -- ^ /scordatura/ child element+ }+ | DirectionTypeImage {+ directionTypeImage :: Image -- ^ /image/ child element+ }+ | DirectionTypePrincipalVoice {+ directionTypePrincipalVoice :: PrincipalVoice -- ^ /principal-voice/ child element+ }+ | DirectionTypePercussion {+ directionTypePercussion :: [Percussion] -- ^ /percussion/ child element+ }+ | DirectionTypeAccordionRegistration {+ directionTypeAccordionRegistration :: AccordionRegistration -- ^ /accordion-registration/ child element+ }+ | DirectionTypeStaffDivide {+ directionTypeStaffDivide :: StaffDivide -- ^ /staff-divide/ child element+ }+ | DirectionTypeOtherDirection {+ directionTypeOtherDirection :: OtherDirection -- ^ /other-direction/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxDirectionType where+ emitXml (DirectionTypeRehearsal a) =+ XContent XEmpty+ []+ (map (XElement (QN "rehearsal" Nothing).emitXml) a)+ emitXml (DirectionTypeSegno a) =+ XContent XEmpty+ []+ (map (XElement (QN "segno" Nothing).emitXml) a)+ emitXml (DirectionTypeCoda a) =+ XContent XEmpty+ []+ (map (XElement (QN "coda" Nothing).emitXml) a)+ emitXml (DirectionTypeDirectionType a) =+ XReps [emitXml a]+ emitXml (DirectionTypeWedge a) =+ XContent XEmpty+ []+ ([XElement (QN "wedge" Nothing) (emitXml a)])+ emitXml (DirectionTypeDynamics a) =+ XContent XEmpty+ []+ (map (XElement (QN "dynamics" Nothing).emitXml) a)+ emitXml (DirectionTypeDashes a) =+ XContent XEmpty+ []+ ([XElement (QN "dashes" Nothing) (emitXml a)])+ emitXml (DirectionTypeBracket a) =+ XContent XEmpty+ []+ ([XElement (QN "bracket" Nothing) (emitXml a)])+ emitXml (DirectionTypePedal a) =+ XContent XEmpty+ []+ ([XElement (QN "pedal" Nothing) (emitXml a)])+ emitXml (DirectionTypeMetronome a) =+ XContent XEmpty+ []+ ([XElement (QN "metronome" Nothing) (emitXml a)])+ emitXml (DirectionTypeOctaveShift a) =+ XContent XEmpty+ []+ ([XElement (QN "octave-shift" Nothing) (emitXml a)])+ emitXml (DirectionTypeHarpPedals a) =+ XContent XEmpty+ []+ ([XElement (QN "harp-pedals" Nothing) (emitXml a)])+ emitXml (DirectionTypeDamp a) =+ XContent XEmpty+ []+ ([XElement (QN "damp" Nothing) (emitXml a)])+ emitXml (DirectionTypeDampAll a) =+ XContent XEmpty+ []+ ([XElement (QN "damp-all" Nothing) (emitXml a)])+ emitXml (DirectionTypeEyeglasses a) =+ XContent XEmpty+ []+ ([XElement (QN "eyeglasses" Nothing) (emitXml a)])+ emitXml (DirectionTypeStringMute a) =+ XContent XEmpty+ []+ ([XElement (QN "string-mute" Nothing) (emitXml a)])+ emitXml (DirectionTypeScordatura a) =+ XContent XEmpty+ []+ ([XElement (QN "scordatura" Nothing) (emitXml a)])+ emitXml (DirectionTypeImage a) =+ XContent XEmpty+ []+ ([XElement (QN "image" Nothing) (emitXml a)])+ emitXml (DirectionTypePrincipalVoice a) =+ XContent XEmpty+ []+ ([XElement (QN "principal-voice" Nothing) (emitXml a)])+ emitXml (DirectionTypePercussion a) =+ XContent XEmpty+ []+ (map (XElement (QN "percussion" Nothing).emitXml) a)+ emitXml (DirectionTypeAccordionRegistration a) =+ XContent XEmpty+ []+ ([XElement (QN "accordion-registration" Nothing) (emitXml a)])+ emitXml (DirectionTypeStaffDivide a) =+ XContent XEmpty+ []+ ([XElement (QN "staff-divide" Nothing) (emitXml a)])+ emitXml (DirectionTypeOtherDirection a) =+ XContent XEmpty+ []+ ([XElement (QN "other-direction" Nothing) (emitXml a)])+parseChxDirectionType :: P.XParse ChxDirectionType+parseChxDirectionType = + DirectionTypeRehearsal+ <$> P.some (P.xchild (P.name "rehearsal") (parseFormattedTextId))+ <|> DirectionTypeSegno+ <$> P.some (P.xchild (P.name "segno") (parseSegno))+ <|> DirectionTypeCoda+ <$> P.some (P.xchild (P.name "coda") (parseCoda))+ <|> DirectionTypeDirectionType+ <$> P.many (parseChxDirectionType0)+ <|> DirectionTypeWedge+ <$> (P.xchild (P.name "wedge") (parseWedge))+ <|> DirectionTypeDynamics+ <$> P.some (P.xchild (P.name "dynamics") (parseDynamics))+ <|> DirectionTypeDashes+ <$> (P.xchild (P.name "dashes") (parseDashes))+ <|> DirectionTypeBracket+ <$> (P.xchild (P.name "bracket") (parseBracket))+ <|> DirectionTypePedal+ <$> (P.xchild (P.name "pedal") (parsePedal))+ <|> DirectionTypeMetronome+ <$> (P.xchild (P.name "metronome") (parseMetronome))+ <|> DirectionTypeOctaveShift+ <$> (P.xchild (P.name "octave-shift") (parseOctaveShift))+ <|> DirectionTypeHarpPedals+ <$> (P.xchild (P.name "harp-pedals") (parseHarpPedals))+ <|> DirectionTypeDamp+ <$> (P.xchild (P.name "damp") (parseEmptyPrintStyleAlignId))+ <|> DirectionTypeDampAll+ <$> (P.xchild (P.name "damp-all") (parseEmptyPrintStyleAlignId))+ <|> DirectionTypeEyeglasses+ <$> (P.xchild (P.name "eyeglasses") (parseEmptyPrintStyleAlignId))+ <|> DirectionTypeStringMute+ <$> (P.xchild (P.name "string-mute") (parseStringMute))+ <|> DirectionTypeScordatura+ <$> (P.xchild (P.name "scordatura") (parseScordatura))+ <|> DirectionTypeImage+ <$> (P.xchild (P.name "image") (parseImage))+ <|> DirectionTypePrincipalVoice+ <$> (P.xchild (P.name "principal-voice") (parsePrincipalVoice))+ <|> DirectionTypePercussion+ <$> P.some (P.xchild (P.name "percussion") (parsePercussion))+ <|> DirectionTypeAccordionRegistration+ <$> (P.xchild (P.name "accordion-registration") (parseAccordionRegistration))+ <|> DirectionTypeStaffDivide+ <$> (P.xchild (P.name "staff-divide") (parseStaffDivide))+ <|> DirectionTypeOtherDirection+ <$> (P.xchild (P.name "other-direction") (parseOtherDirection))++-- | Smart constructor for 'DirectionTypeRehearsal'+mkDirectionTypeRehearsal :: ChxDirectionType+mkDirectionTypeRehearsal = DirectionTypeRehearsal []+-- | Smart constructor for 'DirectionTypeSegno'+mkDirectionTypeSegno :: ChxDirectionType+mkDirectionTypeSegno = DirectionTypeSegno []+-- | Smart constructor for 'DirectionTypeCoda'+mkDirectionTypeCoda :: ChxDirectionType+mkDirectionTypeCoda = DirectionTypeCoda []+-- | Smart constructor for 'DirectionTypeDirectionType'+mkDirectionTypeDirectionType :: ChxDirectionType+mkDirectionTypeDirectionType = DirectionTypeDirectionType []+-- | Smart constructor for 'DirectionTypeWedge'+mkDirectionTypeWedge :: Wedge -> ChxDirectionType+mkDirectionTypeWedge a = DirectionTypeWedge a+-- | Smart constructor for 'DirectionTypeDynamics'+mkDirectionTypeDynamics :: ChxDirectionType+mkDirectionTypeDynamics = DirectionTypeDynamics []+-- | Smart constructor for 'DirectionTypeDashes'+mkDirectionTypeDashes :: Dashes -> ChxDirectionType+mkDirectionTypeDashes a = DirectionTypeDashes a+-- | Smart constructor for 'DirectionTypeBracket'+mkDirectionTypeBracket :: Bracket -> ChxDirectionType+mkDirectionTypeBracket a = DirectionTypeBracket a+-- | Smart constructor for 'DirectionTypePedal'+mkDirectionTypePedal :: Pedal -> ChxDirectionType+mkDirectionTypePedal a = DirectionTypePedal a+-- | Smart constructor for 'DirectionTypeMetronome'+mkDirectionTypeMetronome :: Metronome -> ChxDirectionType+mkDirectionTypeMetronome a = DirectionTypeMetronome a+-- | Smart constructor for 'DirectionTypeOctaveShift'+mkDirectionTypeOctaveShift :: OctaveShift -> ChxDirectionType+mkDirectionTypeOctaveShift a = DirectionTypeOctaveShift a+-- | Smart constructor for 'DirectionTypeHarpPedals'+mkDirectionTypeHarpPedals :: HarpPedals -> ChxDirectionType+mkDirectionTypeHarpPedals a = DirectionTypeHarpPedals a+-- | Smart constructor for 'DirectionTypeDamp'+mkDirectionTypeDamp :: EmptyPrintStyleAlignId -> ChxDirectionType+mkDirectionTypeDamp a = DirectionTypeDamp a+-- | Smart constructor for 'DirectionTypeDampAll'+mkDirectionTypeDampAll :: EmptyPrintStyleAlignId -> ChxDirectionType+mkDirectionTypeDampAll a = DirectionTypeDampAll a+-- | Smart constructor for 'DirectionTypeEyeglasses'+mkDirectionTypeEyeglasses :: EmptyPrintStyleAlignId -> ChxDirectionType+mkDirectionTypeEyeglasses a = DirectionTypeEyeglasses a+-- | Smart constructor for 'DirectionTypeStringMute'+mkDirectionTypeStringMute :: StringMute -> ChxDirectionType+mkDirectionTypeStringMute a = DirectionTypeStringMute a+-- | Smart constructor for 'DirectionTypeScordatura'+mkDirectionTypeScordatura :: Scordatura -> ChxDirectionType+mkDirectionTypeScordatura a = DirectionTypeScordatura a+-- | Smart constructor for 'DirectionTypeImage'+mkDirectionTypeImage :: Image -> ChxDirectionType+mkDirectionTypeImage a = DirectionTypeImage a+-- | Smart constructor for 'DirectionTypePrincipalVoice'+mkDirectionTypePrincipalVoice :: PrincipalVoice -> ChxDirectionType+mkDirectionTypePrincipalVoice a = DirectionTypePrincipalVoice a+-- | Smart constructor for 'DirectionTypePercussion'+mkDirectionTypePercussion :: ChxDirectionType+mkDirectionTypePercussion = DirectionTypePercussion []+-- | Smart constructor for 'DirectionTypeAccordionRegistration'+mkDirectionTypeAccordionRegistration :: AccordionRegistration -> ChxDirectionType+mkDirectionTypeAccordionRegistration a = DirectionTypeAccordionRegistration a+-- | Smart constructor for 'DirectionTypeStaffDivide'+mkDirectionTypeStaffDivide :: StaffDivide -> ChxDirectionType+mkDirectionTypeStaffDivide a = DirectionTypeStaffDivide a+-- | Smart constructor for 'DirectionTypeOtherDirection'+mkDirectionTypeOtherDirection :: OtherDirection -> ChxDirectionType+mkDirectionTypeOtherDirection a = DirectionTypeOtherDirection a++-- | @dynamics@ /(choice)/+data ChxDynamics = + DynamicsP {+ dynamicsP :: Empty -- ^ /p/ child element+ }+ | DynamicsPp {+ dynamicsPp :: Empty -- ^ /pp/ child element+ }+ | DynamicsPpp {+ dynamicsPpp :: Empty -- ^ /ppp/ child element+ }+ | DynamicsPppp {+ dynamicsPppp :: Empty -- ^ /pppp/ child element+ }+ | DynamicsPpppp {+ dynamicsPpppp :: Empty -- ^ /ppppp/ child element+ }+ | DynamicsPppppp {+ dynamicsPppppp :: Empty -- ^ /pppppp/ child element+ }+ | DynamicsF {+ dynamicsF :: Empty -- ^ /f/ child element+ }+ | DynamicsFf {+ dynamicsFf :: Empty -- ^ /ff/ child element+ }+ | DynamicsFff {+ dynamicsFff :: Empty -- ^ /fff/ child element+ }+ | DynamicsFfff {+ dynamicsFfff :: Empty -- ^ /ffff/ child element+ }+ | DynamicsFffff {+ dynamicsFffff :: Empty -- ^ /fffff/ child element+ }+ | DynamicsFfffff {+ dynamicsFfffff :: Empty -- ^ /ffffff/ child element+ }+ | DynamicsMp {+ dynamicsMp :: Empty -- ^ /mp/ child element+ }+ | DynamicsMf {+ dynamicsMf :: Empty -- ^ /mf/ child element+ }+ | DynamicsSf {+ dynamicsSf :: Empty -- ^ /sf/ child element+ }+ | DynamicsSfp {+ dynamicsSfp :: Empty -- ^ /sfp/ child element+ }+ | DynamicsSfpp {+ dynamicsSfpp :: Empty -- ^ /sfpp/ child element+ }+ | DynamicsFp {+ dynamicsFp :: Empty -- ^ /fp/ child element+ }+ | DynamicsRf {+ dynamicsRf :: Empty -- ^ /rf/ child element+ }+ | DynamicsRfz {+ dynamicsRfz :: Empty -- ^ /rfz/ child element+ }+ | DynamicsSfz {+ dynamicsSfz :: Empty -- ^ /sfz/ child element+ }+ | DynamicsSffz {+ dynamicsSffz :: Empty -- ^ /sffz/ child element+ }+ | DynamicsFz {+ dynamicsFz :: Empty -- ^ /fz/ child element+ }+ | DynamicsN {+ dynamicsN :: Empty -- ^ /n/ child element+ }+ | DynamicsPf {+ dynamicsPf :: Empty -- ^ /pf/ child element+ }+ | DynamicsSfzp {+ dynamicsSfzp :: Empty -- ^ /sfzp/ child element+ }+ | DynamicsOtherDynamics {+ dynamicsOtherDynamics :: OtherText -- ^ /other-dynamics/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxDynamics where+ emitXml (DynamicsP a) =+ XContent XEmpty+ []+ ([XElement (QN "p" Nothing) (emitXml a)])+ emitXml (DynamicsPp a) =+ XContent XEmpty+ []+ ([XElement (QN "pp" Nothing) (emitXml a)])+ emitXml (DynamicsPpp a) =+ XContent XEmpty+ []+ ([XElement (QN "ppp" Nothing) (emitXml a)])+ emitXml (DynamicsPppp a) =+ XContent XEmpty+ []+ ([XElement (QN "pppp" Nothing) (emitXml a)])+ emitXml (DynamicsPpppp a) =+ XContent XEmpty+ []+ ([XElement (QN "ppppp" Nothing) (emitXml a)])+ emitXml (DynamicsPppppp a) =+ XContent XEmpty+ []+ ([XElement (QN "pppppp" Nothing) (emitXml a)])+ emitXml (DynamicsF a) =+ XContent XEmpty+ []+ ([XElement (QN "f" Nothing) (emitXml a)])+ emitXml (DynamicsFf a) =+ XContent XEmpty+ []+ ([XElement (QN "ff" Nothing) (emitXml a)])+ emitXml (DynamicsFff a) =+ XContent XEmpty+ []+ ([XElement (QN "fff" Nothing) (emitXml a)])+ emitXml (DynamicsFfff a) =+ XContent XEmpty+ []+ ([XElement (QN "ffff" Nothing) (emitXml a)])+ emitXml (DynamicsFffff a) =+ XContent XEmpty+ []+ ([XElement (QN "fffff" Nothing) (emitXml a)])+ emitXml (DynamicsFfffff a) =+ XContent XEmpty+ []+ ([XElement (QN "ffffff" Nothing) (emitXml a)])+ emitXml (DynamicsMp a) =+ XContent XEmpty+ []+ ([XElement (QN "mp" Nothing) (emitXml a)])+ emitXml (DynamicsMf a) =+ XContent XEmpty+ []+ ([XElement (QN "mf" Nothing) (emitXml a)])+ emitXml (DynamicsSf a) =+ XContent XEmpty+ []+ ([XElement (QN "sf" Nothing) (emitXml a)])+ emitXml (DynamicsSfp a) =+ XContent XEmpty+ []+ ([XElement (QN "sfp" Nothing) (emitXml a)])+ emitXml (DynamicsSfpp a) =+ XContent XEmpty+ []+ ([XElement (QN "sfpp" Nothing) (emitXml a)])+ emitXml (DynamicsFp a) =+ XContent XEmpty+ []+ ([XElement (QN "fp" Nothing) (emitXml a)])+ emitXml (DynamicsRf a) =+ XContent XEmpty+ []+ ([XElement (QN "rf" Nothing) (emitXml a)])+ emitXml (DynamicsRfz a) =+ XContent XEmpty+ []+ ([XElement (QN "rfz" Nothing) (emitXml a)])+ emitXml (DynamicsSfz a) =+ XContent XEmpty+ []+ ([XElement (QN "sfz" Nothing) (emitXml a)])+ emitXml (DynamicsSffz a) =+ XContent XEmpty+ []+ ([XElement (QN "sffz" Nothing) (emitXml a)])+ emitXml (DynamicsFz a) =+ XContent XEmpty+ []+ ([XElement (QN "fz" Nothing) (emitXml a)])+ emitXml (DynamicsN a) =+ XContent XEmpty+ []+ ([XElement (QN "n" Nothing) (emitXml a)])+ emitXml (DynamicsPf a) =+ XContent XEmpty+ []+ ([XElement (QN "pf" Nothing) (emitXml a)])+ emitXml (DynamicsSfzp a) =+ XContent XEmpty+ []+ ([XElement (QN "sfzp" Nothing) (emitXml a)])+ emitXml (DynamicsOtherDynamics a) =+ XContent XEmpty+ []+ ([XElement (QN "other-dynamics" Nothing) (emitXml a)])+parseChxDynamics :: P.XParse ChxDynamics+parseChxDynamics = + DynamicsP+ <$> (P.xchild (P.name "p") (parseEmpty))+ <|> DynamicsPp+ <$> (P.xchild (P.name "pp") (parseEmpty))+ <|> DynamicsPpp+ <$> (P.xchild (P.name "ppp") (parseEmpty))+ <|> DynamicsPppp+ <$> (P.xchild (P.name "pppp") (parseEmpty))+ <|> DynamicsPpppp+ <$> (P.xchild (P.name "ppppp") (parseEmpty))+ <|> DynamicsPppppp+ <$> (P.xchild (P.name "pppppp") (parseEmpty))+ <|> DynamicsF+ <$> (P.xchild (P.name "f") (parseEmpty))+ <|> DynamicsFf+ <$> (P.xchild (P.name "ff") (parseEmpty))+ <|> DynamicsFff+ <$> (P.xchild (P.name "fff") (parseEmpty))+ <|> DynamicsFfff+ <$> (P.xchild (P.name "ffff") (parseEmpty))+ <|> DynamicsFffff+ <$> (P.xchild (P.name "fffff") (parseEmpty))+ <|> DynamicsFfffff+ <$> (P.xchild (P.name "ffffff") (parseEmpty))+ <|> DynamicsMp+ <$> (P.xchild (P.name "mp") (parseEmpty))+ <|> DynamicsMf+ <$> (P.xchild (P.name "mf") (parseEmpty))+ <|> DynamicsSf+ <$> (P.xchild (P.name "sf") (parseEmpty))+ <|> DynamicsSfp+ <$> (P.xchild (P.name "sfp") (parseEmpty))+ <|> DynamicsSfpp+ <$> (P.xchild (P.name "sfpp") (parseEmpty))+ <|> DynamicsFp+ <$> (P.xchild (P.name "fp") (parseEmpty))+ <|> DynamicsRf+ <$> (P.xchild (P.name "rf") (parseEmpty))+ <|> DynamicsRfz+ <$> (P.xchild (P.name "rfz") (parseEmpty))+ <|> DynamicsSfz+ <$> (P.xchild (P.name "sfz") (parseEmpty))+ <|> DynamicsSffz+ <$> (P.xchild (P.name "sffz") (parseEmpty))+ <|> DynamicsFz+ <$> (P.xchild (P.name "fz") (parseEmpty))+ <|> DynamicsN+ <$> (P.xchild (P.name "n") (parseEmpty))+ <|> DynamicsPf+ <$> (P.xchild (P.name "pf") (parseEmpty))+ <|> DynamicsSfzp+ <$> (P.xchild (P.name "sfzp") (parseEmpty))+ <|> DynamicsOtherDynamics+ <$> (P.xchild (P.name "other-dynamics") (parseOtherText))++-- | Smart constructor for 'DynamicsP'+mkDynamicsP :: Empty -> ChxDynamics+mkDynamicsP a = DynamicsP a+-- | Smart constructor for 'DynamicsPp'+mkDynamicsPp :: Empty -> ChxDynamics+mkDynamicsPp a = DynamicsPp a+-- | Smart constructor for 'DynamicsPpp'+mkDynamicsPpp :: Empty -> ChxDynamics+mkDynamicsPpp a = DynamicsPpp a+-- | Smart constructor for 'DynamicsPppp'+mkDynamicsPppp :: Empty -> ChxDynamics+mkDynamicsPppp a = DynamicsPppp a+-- | Smart constructor for 'DynamicsPpppp'+mkDynamicsPpppp :: Empty -> ChxDynamics+mkDynamicsPpppp a = DynamicsPpppp a+-- | Smart constructor for 'DynamicsPppppp'+mkDynamicsPppppp :: Empty -> ChxDynamics+mkDynamicsPppppp a = DynamicsPppppp a+-- | Smart constructor for 'DynamicsF'+mkDynamicsF :: Empty -> ChxDynamics+mkDynamicsF a = DynamicsF a+-- | Smart constructor for 'DynamicsFf'+mkDynamicsFf :: Empty -> ChxDynamics+mkDynamicsFf a = DynamicsFf a+-- | Smart constructor for 'DynamicsFff'+mkDynamicsFff :: Empty -> ChxDynamics+mkDynamicsFff a = DynamicsFff a+-- | Smart constructor for 'DynamicsFfff'+mkDynamicsFfff :: Empty -> ChxDynamics+mkDynamicsFfff a = DynamicsFfff a+-- | Smart constructor for 'DynamicsFffff'+mkDynamicsFffff :: Empty -> ChxDynamics+mkDynamicsFffff a = DynamicsFffff a+-- | Smart constructor for 'DynamicsFfffff'+mkDynamicsFfffff :: Empty -> ChxDynamics+mkDynamicsFfffff a = DynamicsFfffff a+-- | Smart constructor for 'DynamicsMp'+mkDynamicsMp :: Empty -> ChxDynamics+mkDynamicsMp a = DynamicsMp a+-- | Smart constructor for 'DynamicsMf'+mkDynamicsMf :: Empty -> ChxDynamics+mkDynamicsMf a = DynamicsMf a+-- | Smart constructor for 'DynamicsSf'+mkDynamicsSf :: Empty -> ChxDynamics+mkDynamicsSf a = DynamicsSf a+-- | Smart constructor for 'DynamicsSfp'+mkDynamicsSfp :: Empty -> ChxDynamics+mkDynamicsSfp a = DynamicsSfp a+-- | Smart constructor for 'DynamicsSfpp'+mkDynamicsSfpp :: Empty -> ChxDynamics+mkDynamicsSfpp a = DynamicsSfpp a+-- | Smart constructor for 'DynamicsFp'+mkDynamicsFp :: Empty -> ChxDynamics+mkDynamicsFp a = DynamicsFp a+-- | Smart constructor for 'DynamicsRf'+mkDynamicsRf :: Empty -> ChxDynamics+mkDynamicsRf a = DynamicsRf a+-- | Smart constructor for 'DynamicsRfz'+mkDynamicsRfz :: Empty -> ChxDynamics+mkDynamicsRfz a = DynamicsRfz a+-- | Smart constructor for 'DynamicsSfz'+mkDynamicsSfz :: Empty -> ChxDynamics+mkDynamicsSfz a = DynamicsSfz a+-- | Smart constructor for 'DynamicsSffz'+mkDynamicsSffz :: Empty -> ChxDynamics+mkDynamicsSffz a = DynamicsSffz a+-- | Smart constructor for 'DynamicsFz'+mkDynamicsFz :: Empty -> ChxDynamics+mkDynamicsFz a = DynamicsFz a+-- | Smart constructor for 'DynamicsN'+mkDynamicsN :: Empty -> ChxDynamics+mkDynamicsN a = DynamicsN a+-- | Smart constructor for 'DynamicsPf'+mkDynamicsPf :: Empty -> ChxDynamics+mkDynamicsPf a = DynamicsPf a+-- | Smart constructor for 'DynamicsSfzp'+mkDynamicsSfzp :: Empty -> ChxDynamics+mkDynamicsSfzp a = DynamicsSfzp a+-- | Smart constructor for 'DynamicsOtherDynamics'+mkDynamicsOtherDynamics :: OtherText -> ChxDynamics+mkDynamicsOtherDynamics a = DynamicsOtherDynamics a++-- | @encoding@ /(choice)/+data ChxEncoding = + EncodingEncodingDate {+ encodingEncodingDate :: YyyyMmDd -- ^ /encoding-date/ child element+ }+ | EncodingEncoder {+ encodingEncoder :: TypedText -- ^ /encoder/ child element+ }+ | EncodingSoftware {+ encodingSoftware :: String -- ^ /software/ child element+ }+ | EncodingEncodingDescription {+ encodingEncodingDescription :: String -- ^ /encoding-description/ child element+ }+ | EncodingSupports {+ encodingSupports :: Supports -- ^ /supports/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxEncoding where+ emitXml (EncodingEncodingDate a) =+ XContent XEmpty+ []+ ([XElement (QN "encoding-date" Nothing) (emitXml a)])+ emitXml (EncodingEncoder a) =+ XContent XEmpty+ []+ ([XElement (QN "encoder" Nothing) (emitXml a)])+ emitXml (EncodingSoftware a) =+ XContent XEmpty+ []+ ([XElement (QN "software" Nothing) (emitXml a)])+ emitXml (EncodingEncodingDescription a) =+ XContent XEmpty+ []+ ([XElement (QN "encoding-description" Nothing) (emitXml a)])+ emitXml (EncodingSupports a) =+ XContent XEmpty+ []+ ([XElement (QN "supports" Nothing) (emitXml a)])+parseChxEncoding :: P.XParse ChxEncoding+parseChxEncoding = + EncodingEncodingDate+ <$> (P.xchild (P.name "encoding-date") (P.xtext >>= parseYyyyMmDd))+ <|> EncodingEncoder+ <$> (P.xchild (P.name "encoder") (parseTypedText))+ <|> EncodingSoftware+ <$> (P.xchild (P.name "software") (P.xtext >>= return))+ <|> EncodingEncodingDescription+ <$> (P.xchild (P.name "encoding-description") (P.xtext >>= return))+ <|> EncodingSupports+ <$> (P.xchild (P.name "supports") (parseSupports))++-- | Smart constructor for 'EncodingEncodingDate'+mkEncodingEncodingDate :: YyyyMmDd -> ChxEncoding+mkEncodingEncodingDate a = EncodingEncodingDate a+-- | Smart constructor for 'EncodingEncoder'+mkEncodingEncoder :: TypedText -> ChxEncoding+mkEncodingEncoder a = EncodingEncoder a+-- | Smart constructor for 'EncodingSoftware'+mkEncodingSoftware :: String -> ChxEncoding+mkEncodingSoftware a = EncodingSoftware a+-- | Smart constructor for 'EncodingEncodingDescription'+mkEncodingEncodingDescription :: String -> ChxEncoding+mkEncodingEncodingDescription a = EncodingEncodingDescription a+-- | Smart constructor for 'EncodingSupports'+mkEncodingSupports :: Supports -> ChxEncoding+mkEncodingSupports a = EncodingSupports a++-- | @full-note@ /(choice)/+data FullNote = + FullNotePitch {+ fullNotePitch :: Pitch -- ^ /pitch/ child element+ }+ | FullNoteUnpitched {+ fullNoteUnpitched :: Unpitched -- ^ /unpitched/ child element+ }+ | FullNoteRest {+ fullNoteRest :: Rest -- ^ /rest/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml FullNote where+ emitXml (FullNotePitch a) =+ XContent XEmpty+ []+ ([XElement (QN "pitch" Nothing) (emitXml a)])+ emitXml (FullNoteUnpitched a) =+ XContent XEmpty+ []+ ([XElement (QN "unpitched" Nothing) (emitXml a)])+ emitXml (FullNoteRest a) =+ XContent XEmpty+ []+ ([XElement (QN "rest" Nothing) (emitXml a)])+parseFullNote :: P.XParse FullNote+parseFullNote = + FullNotePitch+ <$> (P.xchild (P.name "pitch") (parsePitch))+ <|> FullNoteUnpitched+ <$> (P.xchild (P.name "unpitched") (parseUnpitched))+ <|> FullNoteRest+ <$> (P.xchild (P.name "rest") (parseRest))++-- | Smart constructor for 'FullNotePitch'+mkFullNotePitch :: Pitch -> FullNote+mkFullNotePitch a = FullNotePitch a+-- | Smart constructor for 'FullNoteUnpitched'+mkFullNoteUnpitched :: Unpitched -> FullNote+mkFullNoteUnpitched a = FullNoteUnpitched a+-- | Smart constructor for 'FullNoteRest'+mkFullNoteRest :: Rest -> FullNote+mkFullNoteRest a = FullNoteRest a++-- | @harmonic@ /(choice)/+data ChxHarmonic = + HarmonicNatural {+ harmonicNatural :: Empty -- ^ /natural/ child element+ }+ | HarmonicArtificial {+ harmonicArtificial :: Empty -- ^ /artificial/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxHarmonic where+ emitXml (HarmonicNatural a) =+ XContent XEmpty+ []+ ([XElement (QN "natural" Nothing) (emitXml a)])+ emitXml (HarmonicArtificial a) =+ XContent XEmpty+ []+ ([XElement (QN "artificial" Nothing) (emitXml a)])+parseChxHarmonic :: P.XParse ChxHarmonic+parseChxHarmonic = + HarmonicNatural+ <$> (P.xchild (P.name "natural") (parseEmpty))+ <|> HarmonicArtificial+ <$> (P.xchild (P.name "artificial") (parseEmpty))++-- | Smart constructor for 'HarmonicNatural'+mkHarmonicNatural :: Empty -> ChxHarmonic+mkHarmonicNatural a = HarmonicNatural a+-- | Smart constructor for 'HarmonicArtificial'+mkHarmonicArtificial :: Empty -> ChxHarmonic+mkHarmonicArtificial a = HarmonicArtificial a++-- | @harmonic@ /(choice)/++-- mangled: 1+data ChxHarmonic1 = + HarmonicBasePitch {+ harmonicBasePitch :: Empty -- ^ /base-pitch/ child element+ }+ | HarmonicTouchingPitch {+ harmonicTouchingPitch :: Empty -- ^ /touching-pitch/ child element+ }+ | HarmonicSoundingPitch {+ harmonicSoundingPitch :: Empty -- ^ /sounding-pitch/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxHarmonic1 where+ emitXml (HarmonicBasePitch a) =+ XContent XEmpty+ []+ ([XElement (QN "base-pitch" Nothing) (emitXml a)])+ emitXml (HarmonicTouchingPitch a) =+ XContent XEmpty+ []+ ([XElement (QN "touching-pitch" Nothing) (emitXml a)])+ emitXml (HarmonicSoundingPitch a) =+ XContent XEmpty+ []+ ([XElement (QN "sounding-pitch" Nothing) (emitXml a)])+parseChxHarmonic1 :: P.XParse ChxHarmonic1+parseChxHarmonic1 = + HarmonicBasePitch+ <$> (P.xchild (P.name "base-pitch") (parseEmpty))+ <|> HarmonicTouchingPitch+ <$> (P.xchild (P.name "touching-pitch") (parseEmpty))+ <|> HarmonicSoundingPitch+ <$> (P.xchild (P.name "sounding-pitch") (parseEmpty))++-- | Smart constructor for 'HarmonicBasePitch'+mkHarmonicBasePitch :: Empty -> ChxHarmonic1+mkHarmonicBasePitch a = HarmonicBasePitch a+-- | Smart constructor for 'HarmonicTouchingPitch'+mkHarmonicTouchingPitch :: Empty -> ChxHarmonic1+mkHarmonicTouchingPitch a = HarmonicTouchingPitch a+-- | Smart constructor for 'HarmonicSoundingPitch'+mkHarmonicSoundingPitch :: Empty -> ChxHarmonic1+mkHarmonicSoundingPitch a = HarmonicSoundingPitch a++-- | @harmony-chord@ /(choice)/+data ChxHarmonyChord = + HarmonyChordRoot {+ harmonyChordRoot :: Root -- ^ /root/ child element+ }+ | HarmonyChordFunction {+ harmonyChordFunction :: StyleText -- ^ /function/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxHarmonyChord where+ emitXml (HarmonyChordRoot a) =+ XContent XEmpty+ []+ ([XElement (QN "root" Nothing) (emitXml a)])+ emitXml (HarmonyChordFunction a) =+ XContent XEmpty+ []+ ([XElement (QN "function" Nothing) (emitXml a)])+parseChxHarmonyChord :: P.XParse ChxHarmonyChord+parseChxHarmonyChord = + HarmonyChordRoot+ <$> (P.xchild (P.name "root") (parseRoot))+ <|> HarmonyChordFunction+ <$> (P.xchild (P.name "function") (parseStyleText))++-- | Smart constructor for 'HarmonyChordRoot'+mkHarmonyChordRoot :: Root -> ChxHarmonyChord+mkHarmonyChordRoot a = HarmonyChordRoot a+-- | Smart constructor for 'HarmonyChordFunction'+mkHarmonyChordFunction :: StyleText -> ChxHarmonyChord+mkHarmonyChordFunction a = HarmonyChordFunction a++-- | @key@ /(choice)/+data ChxKey = + KeyTraditionalKey {+ keyTraditionalKey :: TraditionalKey+ }+ | KeyNonTraditionalKey {+ keyNonTraditionalKey :: [NonTraditionalKey]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxKey where+ emitXml (KeyTraditionalKey a) =+ XReps [emitXml a]+ emitXml (KeyNonTraditionalKey a) =+ XReps [emitXml a]+parseChxKey :: P.XParse ChxKey+parseChxKey = + KeyTraditionalKey+ <$> parseTraditionalKey+ <|> KeyNonTraditionalKey+ <$> P.many (parseNonTraditionalKey)++-- | Smart constructor for 'KeyTraditionalKey'+mkKeyTraditionalKey :: TraditionalKey -> ChxKey+mkKeyTraditionalKey a = KeyTraditionalKey a+-- | Smart constructor for 'KeyNonTraditionalKey'+mkKeyNonTraditionalKey :: ChxKey+mkKeyNonTraditionalKey = KeyNonTraditionalKey []++-- | @lyric@ /(choice)/+data ChxLyric = + LyricSyllabic {+ lyricSyllabic :: (Maybe Syllabic) -- ^ /syllabic/ child element+ , lyricText :: TextElementData -- ^ /text/ child element+ , chxlyricLyric :: [SeqLyric]+ , lyricExtend :: (Maybe Extend) -- ^ /extend/ child element+ }+ | LyricExtend {+ lyricExtend1 :: Extend -- ^ /extend/ child element+ }+ | LyricLaughing {+ lyricLaughing :: Empty -- ^ /laughing/ child element+ }+ | LyricHumming {+ lyricHumming :: Empty -- ^ /humming/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxLyric where+ emitXml (LyricSyllabic a b c d) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "syllabic" Nothing).emitXml) a] +++ [XElement (QN "text" Nothing) (emitXml b)] +++ [emitXml c] +++ [maybe XEmpty (XElement (QN "extend" Nothing).emitXml) d])+ emitXml (LyricExtend a) =+ XContent XEmpty+ []+ ([XElement (QN "extend" Nothing) (emitXml a)])+ emitXml (LyricLaughing a) =+ XContent XEmpty+ []+ ([XElement (QN "laughing" Nothing) (emitXml a)])+ emitXml (LyricHumming a) =+ XContent XEmpty+ []+ ([XElement (QN "humming" Nothing) (emitXml a)])+parseChxLyric :: P.XParse ChxLyric+parseChxLyric = + LyricSyllabic+ <$> P.optional (P.xchild (P.name "syllabic") (P.xtext >>= parseSyllabic))+ <*> (P.xchild (P.name "text") (parseTextElementData))+ <*> P.many (parseSeqLyric)+ <*> P.optional (P.xchild (P.name "extend") (parseExtend))+ <|> LyricExtend+ <$> (P.xchild (P.name "extend") (parseExtend))+ <|> LyricLaughing+ <$> (P.xchild (P.name "laughing") (parseEmpty))+ <|> LyricHumming+ <$> (P.xchild (P.name "humming") (parseEmpty))++-- | Smart constructor for 'LyricSyllabic'+mkLyricSyllabic :: TextElementData -> ChxLyric+mkLyricSyllabic b = LyricSyllabic Nothing b [] Nothing+-- | Smart constructor for 'LyricExtend'+mkLyricExtend :: Extend -> ChxLyric+mkLyricExtend a = LyricExtend a+-- | Smart constructor for 'LyricLaughing'+mkLyricLaughing :: Empty -> ChxLyric+mkLyricLaughing a = LyricLaughing a+-- | Smart constructor for 'LyricHumming'+mkLyricHumming :: Empty -> ChxLyric+mkLyricHumming a = LyricHumming a++-- | @measure-style@ /(choice)/+data ChxMeasureStyle = + MeasureStyleMultipleRest {+ measureStyleMultipleRest :: MultipleRest -- ^ /multiple-rest/ child element+ }+ | MeasureStyleMeasureRepeat {+ measureStyleMeasureRepeat :: MeasureRepeat -- ^ /measure-repeat/ child element+ }+ | MeasureStyleBeatRepeat {+ measureStyleBeatRepeat :: BeatRepeat -- ^ /beat-repeat/ child element+ }+ | MeasureStyleSlash {+ measureStyleSlash :: CmpSlash -- ^ /slash/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxMeasureStyle where+ emitXml (MeasureStyleMultipleRest a) =+ XContent XEmpty+ []+ ([XElement (QN "multiple-rest" Nothing) (emitXml a)])+ emitXml (MeasureStyleMeasureRepeat a) =+ XContent XEmpty+ []+ ([XElement (QN "measure-repeat" Nothing) (emitXml a)])+ emitXml (MeasureStyleBeatRepeat a) =+ XContent XEmpty+ []+ ([XElement (QN "beat-repeat" Nothing) (emitXml a)])+ emitXml (MeasureStyleSlash a) =+ XContent XEmpty+ []+ ([XElement (QN "slash" Nothing) (emitXml a)])+parseChxMeasureStyle :: P.XParse ChxMeasureStyle+parseChxMeasureStyle = + MeasureStyleMultipleRest+ <$> (P.xchild (P.name "multiple-rest") (parseMultipleRest))+ <|> MeasureStyleMeasureRepeat+ <$> (P.xchild (P.name "measure-repeat") (parseMeasureRepeat))+ <|> MeasureStyleBeatRepeat+ <$> (P.xchild (P.name "beat-repeat") (parseBeatRepeat))+ <|> MeasureStyleSlash+ <$> (P.xchild (P.name "slash") (parseCmpSlash))++-- | Smart constructor for 'MeasureStyleMultipleRest'+mkMeasureStyleMultipleRest :: MultipleRest -> ChxMeasureStyle+mkMeasureStyleMultipleRest a = MeasureStyleMultipleRest a+-- | Smart constructor for 'MeasureStyleMeasureRepeat'+mkMeasureStyleMeasureRepeat :: MeasureRepeat -> ChxMeasureStyle+mkMeasureStyleMeasureRepeat a = MeasureStyleMeasureRepeat a+-- | Smart constructor for 'MeasureStyleBeatRepeat'+mkMeasureStyleBeatRepeat :: BeatRepeat -> ChxMeasureStyle+mkMeasureStyleBeatRepeat a = MeasureStyleBeatRepeat a+-- | Smart constructor for 'MeasureStyleSlash'+mkMeasureStyleSlash :: CmpSlash -> ChxMeasureStyle+mkMeasureStyleSlash a = MeasureStyleSlash a++-- | @metronome@ /(choice)/+data ChxMetronome0 = + MetronomePerMinute {+ metronomePerMinute :: PerMinute -- ^ /per-minute/ child element+ }+ | MetronomeBeatUnit {+ metronomeBeatUnit :: BeatUnit+ , metronomeBeatUnitTied :: [BeatUnitTied] -- ^ /beat-unit-tied/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxMetronome0 where+ emitXml (MetronomePerMinute a) =+ XContent XEmpty+ []+ ([XElement (QN "per-minute" Nothing) (emitXml a)])+ emitXml (MetronomeBeatUnit a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ map (XElement (QN "beat-unit-tied" Nothing).emitXml) b)+parseChxMetronome0 :: P.XParse ChxMetronome0+parseChxMetronome0 = + MetronomePerMinute+ <$> (P.xchild (P.name "per-minute") (parsePerMinute))+ <|> MetronomeBeatUnit+ <$> parseBeatUnit+ <*> P.many (P.xchild (P.name "beat-unit-tied") (parseBeatUnitTied))++-- | Smart constructor for 'MetronomePerMinute'+mkMetronomePerMinute :: PerMinute -> ChxMetronome0+mkMetronomePerMinute a = MetronomePerMinute a+-- | Smart constructor for 'MetronomeBeatUnit'+mkMetronomeBeatUnit :: BeatUnit -> ChxMetronome0+mkMetronomeBeatUnit a = MetronomeBeatUnit a []++-- | @metronome@ /(choice)/++-- mangled: 1+data ChxMetronome = + ChxMetronomeBeatUnit {+ chxmetronomeBeatUnit :: BeatUnit+ , chxmetronomeBeatUnitTied :: [BeatUnitTied] -- ^ /beat-unit-tied/ child element+ , chxmetronomeMetronome :: ChxMetronome0+ }+ | MetronomeMetronomeArrows {+ metronomeMetronomeArrows :: (Maybe Empty) -- ^ /metronome-arrows/ child element+ , metronomeMetronomeNote :: [MetronomeNote] -- ^ /metronome-note/ child element+ , metronomeMetronome1 :: (Maybe SeqMetronome)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxMetronome where+ emitXml (ChxMetronomeBeatUnit a b c) =+ XContent XEmpty+ []+ ([emitXml a] +++ map (XElement (QN "beat-unit-tied" Nothing).emitXml) b +++ [emitXml c])+ emitXml (MetronomeMetronomeArrows a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "metronome-arrows" Nothing).emitXml) a] +++ map (XElement (QN "metronome-note" Nothing).emitXml) b +++ [emitXml c])+parseChxMetronome :: P.XParse ChxMetronome+parseChxMetronome = + ChxMetronomeBeatUnit+ <$> parseBeatUnit+ <*> P.many (P.xchild (P.name "beat-unit-tied") (parseBeatUnitTied))+ <*> parseChxMetronome0+ <|> MetronomeMetronomeArrows+ <$> P.optional (P.xchild (P.name "metronome-arrows") (parseEmpty))+ <*> P.many (P.xchild (P.name "metronome-note") (parseMetronomeNote))+ <*> P.optional (parseSeqMetronome)++-- | Smart constructor for 'ChxMetronomeBeatUnit'+mkChxMetronomeBeatUnit :: BeatUnit -> ChxMetronome0 -> ChxMetronome+mkChxMetronomeBeatUnit a c = ChxMetronomeBeatUnit a [] c+-- | Smart constructor for 'MetronomeMetronomeArrows'+mkMetronomeMetronomeArrows :: ChxMetronome+mkMetronomeMetronomeArrows = MetronomeMetronomeArrows Nothing [] Nothing++-- | @music-data@ /(choice)/+data ChxMusicData = + MusicDataNote {+ musicDataNote :: Note -- ^ /note/ child element+ }+ | MusicDataBackup {+ musicDataBackup :: Backup -- ^ /backup/ child element+ }+ | MusicDataForward {+ musicDataForward :: Forward -- ^ /forward/ child element+ }+ | MusicDataDirection {+ musicDataDirection :: Direction -- ^ /direction/ child element+ }+ | MusicDataAttributes {+ musicDataAttributes :: Attributes -- ^ /attributes/ child element+ }+ | MusicDataHarmony {+ musicDataHarmony :: Harmony -- ^ /harmony/ child element+ }+ | MusicDataFiguredBass {+ musicDataFiguredBass :: FiguredBass -- ^ /figured-bass/ child element+ }+ | MusicDataPrint {+ musicDataPrint :: Print -- ^ /print/ child element+ }+ | MusicDataSound {+ musicDataSound :: Sound -- ^ /sound/ child element+ }+ | MusicDataBarline {+ musicDataBarline :: Barline -- ^ /barline/ child element+ }+ | MusicDataGrouping {+ musicDataGrouping :: Grouping -- ^ /grouping/ child element+ }+ | MusicDataLink {+ musicDataLink :: Link -- ^ /link/ child element+ }+ | MusicDataBookmark {+ musicDataBookmark :: Bookmark -- ^ /bookmark/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxMusicData where+ emitXml (MusicDataNote a) =+ XContent XEmpty+ []+ ([XElement (QN "note" Nothing) (emitXml a)])+ emitXml (MusicDataBackup a) =+ XContent XEmpty+ []+ ([XElement (QN "backup" Nothing) (emitXml a)])+ emitXml (MusicDataForward a) =+ XContent XEmpty+ []+ ([XElement (QN "forward" Nothing) (emitXml a)])+ emitXml (MusicDataDirection a) =+ XContent XEmpty+ []+ ([XElement (QN "direction" Nothing) (emitXml a)])+ emitXml (MusicDataAttributes a) =+ XContent XEmpty+ []+ ([XElement (QN "attributes" Nothing) (emitXml a)])+ emitXml (MusicDataHarmony a) =+ XContent XEmpty+ []+ ([XElement (QN "harmony" Nothing) (emitXml a)])+ emitXml (MusicDataFiguredBass a) =+ XContent XEmpty+ []+ ([XElement (QN "figured-bass" Nothing) (emitXml a)])+ emitXml (MusicDataPrint a) =+ XContent XEmpty+ []+ ([XElement (QN "print" Nothing) (emitXml a)])+ emitXml (MusicDataSound a) =+ XContent XEmpty+ []+ ([XElement (QN "sound" Nothing) (emitXml a)])+ emitXml (MusicDataBarline a) =+ XContent XEmpty+ []+ ([XElement (QN "barline" Nothing) (emitXml a)])+ emitXml (MusicDataGrouping a) =+ XContent XEmpty+ []+ ([XElement (QN "grouping" Nothing) (emitXml a)])+ emitXml (MusicDataLink a) =+ XContent XEmpty+ []+ ([XElement (QN "link" Nothing) (emitXml a)])+ emitXml (MusicDataBookmark a) =+ XContent XEmpty+ []+ ([XElement (QN "bookmark" Nothing) (emitXml a)])+parseChxMusicData :: P.XParse ChxMusicData+parseChxMusicData = + MusicDataNote+ <$> (P.xchild (P.name "note") (parseNote))+ <|> MusicDataBackup+ <$> (P.xchild (P.name "backup") (parseBackup))+ <|> MusicDataForward+ <$> (P.xchild (P.name "forward") (parseForward))+ <|> MusicDataDirection+ <$> (P.xchild (P.name "direction") (parseDirection))+ <|> MusicDataAttributes+ <$> (P.xchild (P.name "attributes") (parseAttributes))+ <|> MusicDataHarmony+ <$> (P.xchild (P.name "harmony") (parseHarmony))+ <|> MusicDataFiguredBass+ <$> (P.xchild (P.name "figured-bass") (parseFiguredBass))+ <|> MusicDataPrint+ <$> (P.xchild (P.name "print") (parsePrint))+ <|> MusicDataSound+ <$> (P.xchild (P.name "sound") (parseSound))+ <|> MusicDataBarline+ <$> (P.xchild (P.name "barline") (parseBarline))+ <|> MusicDataGrouping+ <$> (P.xchild (P.name "grouping") (parseGrouping))+ <|> MusicDataLink+ <$> (P.xchild (P.name "link") (parseLink))+ <|> MusicDataBookmark+ <$> (P.xchild (P.name "bookmark") (parseBookmark))++-- | Smart constructor for 'MusicDataNote'+mkMusicDataNote :: Note -> ChxMusicData+mkMusicDataNote a = MusicDataNote a+-- | Smart constructor for 'MusicDataBackup'+mkMusicDataBackup :: Backup -> ChxMusicData+mkMusicDataBackup a = MusicDataBackup a+-- | Smart constructor for 'MusicDataForward'+mkMusicDataForward :: Forward -> ChxMusicData+mkMusicDataForward a = MusicDataForward a+-- | Smart constructor for 'MusicDataDirection'+mkMusicDataDirection :: Direction -> ChxMusicData+mkMusicDataDirection a = MusicDataDirection a+-- | Smart constructor for 'MusicDataAttributes'+mkMusicDataAttributes :: Attributes -> ChxMusicData+mkMusicDataAttributes a = MusicDataAttributes a+-- | Smart constructor for 'MusicDataHarmony'+mkMusicDataHarmony :: Harmony -> ChxMusicData+mkMusicDataHarmony a = MusicDataHarmony a+-- | Smart constructor for 'MusicDataFiguredBass'+mkMusicDataFiguredBass :: FiguredBass -> ChxMusicData+mkMusicDataFiguredBass a = MusicDataFiguredBass a+-- | Smart constructor for 'MusicDataPrint'+mkMusicDataPrint :: Print -> ChxMusicData+mkMusicDataPrint a = MusicDataPrint a+-- | Smart constructor for 'MusicDataSound'+mkMusicDataSound :: Sound -> ChxMusicData+mkMusicDataSound a = MusicDataSound a+-- | Smart constructor for 'MusicDataBarline'+mkMusicDataBarline :: Barline -> ChxMusicData+mkMusicDataBarline a = MusicDataBarline a+-- | Smart constructor for 'MusicDataGrouping'+mkMusicDataGrouping :: Grouping -> ChxMusicData+mkMusicDataGrouping a = MusicDataGrouping a+-- | Smart constructor for 'MusicDataLink'+mkMusicDataLink :: Link -> ChxMusicData+mkMusicDataLink a = MusicDataLink a+-- | Smart constructor for 'MusicDataBookmark'+mkMusicDataBookmark :: Bookmark -> ChxMusicData+mkMusicDataBookmark a = MusicDataBookmark a++-- | @name-display@ /(choice)/+data ChxNameDisplay = + NameDisplayDisplayText {+ nameDisplayDisplayText :: FormattedText -- ^ /display-text/ child element+ }+ | NameDisplayAccidentalText {+ nameDisplayAccidentalText :: AccidentalText -- ^ /accidental-text/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxNameDisplay where+ emitXml (NameDisplayDisplayText a) =+ XContent XEmpty+ []+ ([XElement (QN "display-text" Nothing) (emitXml a)])+ emitXml (NameDisplayAccidentalText a) =+ XContent XEmpty+ []+ ([XElement (QN "accidental-text" Nothing) (emitXml a)])+parseChxNameDisplay :: P.XParse ChxNameDisplay+parseChxNameDisplay = + NameDisplayDisplayText+ <$> (P.xchild (P.name "display-text") (parseFormattedText))+ <|> NameDisplayAccidentalText+ <$> (P.xchild (P.name "accidental-text") (parseAccidentalText))++-- | Smart constructor for 'NameDisplayDisplayText'+mkNameDisplayDisplayText :: FormattedText -> ChxNameDisplay+mkNameDisplayDisplayText a = NameDisplayDisplayText a+-- | Smart constructor for 'NameDisplayAccidentalText'+mkNameDisplayAccidentalText :: AccidentalText -> ChxNameDisplay+mkNameDisplayAccidentalText a = NameDisplayAccidentalText a++-- | @notations@ /(choice)/+data ChxNotations = + NotationsTied {+ notationsTied :: Tied -- ^ /tied/ child element+ }+ | NotationsSlur {+ notationsSlur :: Slur -- ^ /slur/ child element+ }+ | NotationsTuplet {+ notationsTuplet :: Tuplet -- ^ /tuplet/ child element+ }+ | NotationsGlissando {+ notationsGlissando :: Glissando -- ^ /glissando/ child element+ }+ | NotationsSlide {+ notationsSlide :: Slide -- ^ /slide/ child element+ }+ | NotationsOrnaments {+ notationsOrnaments :: Ornaments -- ^ /ornaments/ child element+ }+ | NotationsTechnical {+ notationsTechnical :: Technical -- ^ /technical/ child element+ }+ | NotationsArticulations {+ notationsArticulations :: Articulations -- ^ /articulations/ child element+ }+ | NotationsDynamics {+ notationsDynamics :: Dynamics -- ^ /dynamics/ child element+ }+ | NotationsFermata {+ notationsFermata :: Fermata -- ^ /fermata/ child element+ }+ | NotationsArpeggiate {+ notationsArpeggiate :: Arpeggiate -- ^ /arpeggiate/ child element+ }+ | NotationsNonArpeggiate {+ notationsNonArpeggiate :: NonArpeggiate -- ^ /non-arpeggiate/ child element+ }+ | NotationsAccidentalMark {+ notationsAccidentalMark :: AccidentalMark -- ^ /accidental-mark/ child element+ }+ | NotationsOtherNotation {+ notationsOtherNotation :: OtherNotation -- ^ /other-notation/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxNotations where+ emitXml (NotationsTied a) =+ XContent XEmpty+ []+ ([XElement (QN "tied" Nothing) (emitXml a)])+ emitXml (NotationsSlur a) =+ XContent XEmpty+ []+ ([XElement (QN "slur" Nothing) (emitXml a)])+ emitXml (NotationsTuplet a) =+ XContent XEmpty+ []+ ([XElement (QN "tuplet" Nothing) (emitXml a)])+ emitXml (NotationsGlissando a) =+ XContent XEmpty+ []+ ([XElement (QN "glissando" Nothing) (emitXml a)])+ emitXml (NotationsSlide a) =+ XContent XEmpty+ []+ ([XElement (QN "slide" Nothing) (emitXml a)])+ emitXml (NotationsOrnaments a) =+ XContent XEmpty+ []+ ([XElement (QN "ornaments" Nothing) (emitXml a)])+ emitXml (NotationsTechnical a) =+ XContent XEmpty+ []+ ([XElement (QN "technical" Nothing) (emitXml a)])+ emitXml (NotationsArticulations a) =+ XContent XEmpty+ []+ ([XElement (QN "articulations" Nothing) (emitXml a)])+ emitXml (NotationsDynamics a) =+ XContent XEmpty+ []+ ([XElement (QN "dynamics" Nothing) (emitXml a)])+ emitXml (NotationsFermata a) =+ XContent XEmpty+ []+ ([XElement (QN "fermata" Nothing) (emitXml a)])+ emitXml (NotationsArpeggiate a) =+ XContent XEmpty+ []+ ([XElement (QN "arpeggiate" Nothing) (emitXml a)])+ emitXml (NotationsNonArpeggiate a) =+ XContent XEmpty+ []+ ([XElement (QN "non-arpeggiate" Nothing) (emitXml a)])+ emitXml (NotationsAccidentalMark a) =+ XContent XEmpty+ []+ ([XElement (QN "accidental-mark" Nothing) (emitXml a)])+ emitXml (NotationsOtherNotation a) =+ XContent XEmpty+ []+ ([XElement (QN "other-notation" Nothing) (emitXml a)])+parseChxNotations :: P.XParse ChxNotations+parseChxNotations = + NotationsTied+ <$> (P.xchild (P.name "tied") (parseTied))+ <|> NotationsSlur+ <$> (P.xchild (P.name "slur") (parseSlur))+ <|> NotationsTuplet+ <$> (P.xchild (P.name "tuplet") (parseTuplet))+ <|> NotationsGlissando+ <$> (P.xchild (P.name "glissando") (parseGlissando))+ <|> NotationsSlide+ <$> (P.xchild (P.name "slide") (parseSlide))+ <|> NotationsOrnaments+ <$> (P.xchild (P.name "ornaments") (parseOrnaments))+ <|> NotationsTechnical+ <$> (P.xchild (P.name "technical") (parseTechnical))+ <|> NotationsArticulations+ <$> (P.xchild (P.name "articulations") (parseArticulations))+ <|> NotationsDynamics+ <$> (P.xchild (P.name "dynamics") (parseDynamics))+ <|> NotationsFermata+ <$> (P.xchild (P.name "fermata") (parseFermata))+ <|> NotationsArpeggiate+ <$> (P.xchild (P.name "arpeggiate") (parseArpeggiate))+ <|> NotationsNonArpeggiate+ <$> (P.xchild (P.name "non-arpeggiate") (parseNonArpeggiate))+ <|> NotationsAccidentalMark+ <$> (P.xchild (P.name "accidental-mark") (parseAccidentalMark))+ <|> NotationsOtherNotation+ <$> (P.xchild (P.name "other-notation") (parseOtherNotation))++-- | Smart constructor for 'NotationsTied'+mkNotationsTied :: Tied -> ChxNotations+mkNotationsTied a = NotationsTied a+-- | Smart constructor for 'NotationsSlur'+mkNotationsSlur :: Slur -> ChxNotations+mkNotationsSlur a = NotationsSlur a+-- | Smart constructor for 'NotationsTuplet'+mkNotationsTuplet :: Tuplet -> ChxNotations+mkNotationsTuplet a = NotationsTuplet a+-- | Smart constructor for 'NotationsGlissando'+mkNotationsGlissando :: Glissando -> ChxNotations+mkNotationsGlissando a = NotationsGlissando a+-- | Smart constructor for 'NotationsSlide'+mkNotationsSlide :: Slide -> ChxNotations+mkNotationsSlide a = NotationsSlide a+-- | Smart constructor for 'NotationsOrnaments'+mkNotationsOrnaments :: Ornaments -> ChxNotations+mkNotationsOrnaments a = NotationsOrnaments a+-- | Smart constructor for 'NotationsTechnical'+mkNotationsTechnical :: Technical -> ChxNotations+mkNotationsTechnical a = NotationsTechnical a+-- | Smart constructor for 'NotationsArticulations'+mkNotationsArticulations :: Articulations -> ChxNotations+mkNotationsArticulations a = NotationsArticulations a+-- | Smart constructor for 'NotationsDynamics'+mkNotationsDynamics :: Dynamics -> ChxNotations+mkNotationsDynamics a = NotationsDynamics a+-- | Smart constructor for 'NotationsFermata'+mkNotationsFermata :: Fermata -> ChxNotations+mkNotationsFermata a = NotationsFermata a+-- | Smart constructor for 'NotationsArpeggiate'+mkNotationsArpeggiate :: Arpeggiate -> ChxNotations+mkNotationsArpeggiate a = NotationsArpeggiate a+-- | Smart constructor for 'NotationsNonArpeggiate'+mkNotationsNonArpeggiate :: NonArpeggiate -> ChxNotations+mkNotationsNonArpeggiate a = NotationsNonArpeggiate a+-- | Smart constructor for 'NotationsAccidentalMark'+mkNotationsAccidentalMark :: AccidentalMark -> ChxNotations+mkNotationsAccidentalMark a = NotationsAccidentalMark a+-- | Smart constructor for 'NotationsOtherNotation'+mkNotationsOtherNotation :: OtherNotation -> ChxNotations+mkNotationsOtherNotation a = NotationsOtherNotation a++-- | @note@ /(choice)/+data ChxNote0 = + NoteFullNote {+ noteFullNote :: GrpFullNote+ , noteTie :: [Tie] -- ^ /tie/ child element+ }+ | NoteCue {+ noteCue :: Empty -- ^ /cue/ child element+ , noteFullNote1 :: GrpFullNote+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxNote0 where+ emitXml (NoteFullNote a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ map (XElement (QN "tie" Nothing).emitXml) b)+ emitXml (NoteCue a b) =+ XContent XEmpty+ []+ ([XElement (QN "cue" Nothing) (emitXml a)] +++ [emitXml b])+parseChxNote0 :: P.XParse ChxNote0+parseChxNote0 = + NoteFullNote+ <$> parseGrpFullNote+ <*> P.many (P.xchild (P.name "tie") (parseTie))+ <|> NoteCue+ <$> (P.xchild (P.name "cue") (parseEmpty))+ <*> parseGrpFullNote++-- | Smart constructor for 'NoteFullNote'+mkNoteFullNote :: GrpFullNote -> ChxNote0+mkNoteFullNote a = NoteFullNote a []+-- | Smart constructor for 'NoteCue'+mkNoteCue :: Empty -> GrpFullNote -> ChxNote0+mkNoteCue a b = NoteCue a b++-- | @note@ /(choice)/++-- mangled: 1+data ChxNote = + NoteGrace {+ noteGrace :: Grace -- ^ /grace/ child element+ , chxnoteNote :: ChxNote0+ }+ | ChxNoteCue {+ chxnoteCue :: Empty -- ^ /cue/ child element+ , chxnoteFullNote :: GrpFullNote+ , noteDuration :: Duration+ }+ | ChxNoteFullNote {+ chxnoteFullNote1 :: GrpFullNote+ , noteDuration1 :: Duration+ , chxnoteTie :: [Tie] -- ^ /tie/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxNote where+ emitXml (NoteGrace a b) =+ XContent XEmpty+ []+ ([XElement (QN "grace" Nothing) (emitXml a)] +++ [emitXml b])+ emitXml (ChxNoteCue a b c) =+ XContent XEmpty+ []+ ([XElement (QN "cue" Nothing) (emitXml a)] +++ [emitXml b] +++ [emitXml c])+ emitXml (ChxNoteFullNote a b c) =+ XContent XEmpty+ []+ ([emitXml a] +++ [emitXml b] +++ map (XElement (QN "tie" Nothing).emitXml) c)+parseChxNote :: P.XParse ChxNote+parseChxNote = + NoteGrace+ <$> (P.xchild (P.name "grace") (parseGrace))+ <*> parseChxNote0+ <|> ChxNoteCue+ <$> (P.xchild (P.name "cue") (parseEmpty))+ <*> parseGrpFullNote+ <*> parseDuration+ <|> ChxNoteFullNote+ <$> parseGrpFullNote+ <*> parseDuration+ <*> P.many (P.xchild (P.name "tie") (parseTie))++-- | Smart constructor for 'NoteGrace'+mkNoteGrace :: Grace -> ChxNote0 -> ChxNote+mkNoteGrace a b = NoteGrace a b+-- | Smart constructor for 'ChxNoteCue'+mkChxNoteCue :: Empty -> GrpFullNote -> Duration -> ChxNote+mkChxNoteCue a b c = ChxNoteCue a b c+-- | Smart constructor for 'ChxNoteFullNote'+mkChxNoteFullNote :: GrpFullNote -> Duration -> ChxNote+mkChxNoteFullNote a b = ChxNoteFullNote a b []++-- | @notehead-text@ /(choice)/+data ChxNoteheadText = + NoteheadTextDisplayText {+ noteheadTextDisplayText :: FormattedText -- ^ /display-text/ child element+ }+ | NoteheadTextAccidentalText {+ noteheadTextAccidentalText :: AccidentalText -- ^ /accidental-text/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxNoteheadText where+ emitXml (NoteheadTextDisplayText a) =+ XContent XEmpty+ []+ ([XElement (QN "display-text" Nothing) (emitXml a)])+ emitXml (NoteheadTextAccidentalText a) =+ XContent XEmpty+ []+ ([XElement (QN "accidental-text" Nothing) (emitXml a)])+parseChxNoteheadText :: P.XParse ChxNoteheadText+parseChxNoteheadText = + NoteheadTextDisplayText+ <$> (P.xchild (P.name "display-text") (parseFormattedText))+ <|> NoteheadTextAccidentalText+ <$> (P.xchild (P.name "accidental-text") (parseAccidentalText))++-- | Smart constructor for 'NoteheadTextDisplayText'+mkNoteheadTextDisplayText :: FormattedText -> ChxNoteheadText+mkNoteheadTextDisplayText a = NoteheadTextDisplayText a+-- | Smart constructor for 'NoteheadTextAccidentalText'+mkNoteheadTextAccidentalText :: AccidentalText -> ChxNoteheadText+mkNoteheadTextAccidentalText a = NoteheadTextAccidentalText a++-- | @ornaments@ /(choice)/+data ChxOrnaments = + OrnamentsTrillMark {+ ornamentsTrillMark :: EmptyTrillSound -- ^ /trill-mark/ child element+ }+ | OrnamentsTurn {+ ornamentsTurn :: HorizontalTurn -- ^ /turn/ child element+ }+ | OrnamentsDelayedTurn {+ ornamentsDelayedTurn :: HorizontalTurn -- ^ /delayed-turn/ child element+ }+ | OrnamentsInvertedTurn {+ ornamentsInvertedTurn :: HorizontalTurn -- ^ /inverted-turn/ child element+ }+ | OrnamentsDelayedInvertedTurn {+ ornamentsDelayedInvertedTurn :: HorizontalTurn -- ^ /delayed-inverted-turn/ child element+ }+ | OrnamentsVerticalTurn {+ ornamentsVerticalTurn :: EmptyTrillSound -- ^ /vertical-turn/ child element+ }+ | OrnamentsInvertedVerticalTurn {+ ornamentsInvertedVerticalTurn :: EmptyTrillSound -- ^ /inverted-vertical-turn/ child element+ }+ | OrnamentsShake {+ ornamentsShake :: EmptyTrillSound -- ^ /shake/ child element+ }+ | OrnamentsWavyLine {+ ornamentsWavyLine :: WavyLine -- ^ /wavy-line/ child element+ }+ | OrnamentsMordent {+ ornamentsMordent :: Mordent -- ^ /mordent/ child element+ }+ | OrnamentsInvertedMordent {+ ornamentsInvertedMordent :: Mordent -- ^ /inverted-mordent/ child element+ }+ | OrnamentsSchleifer {+ ornamentsSchleifer :: EmptyPlacement -- ^ /schleifer/ child element+ }+ | OrnamentsTremolo {+ ornamentsTremolo :: Tremolo -- ^ /tremolo/ child element+ }+ | OrnamentsHaydn {+ ornamentsHaydn :: EmptyTrillSound -- ^ /haydn/ child element+ }+ | OrnamentsOtherOrnament {+ ornamentsOtherOrnament :: OtherPlacementText -- ^ /other-ornament/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxOrnaments where+ emitXml (OrnamentsTrillMark a) =+ XContent XEmpty+ []+ ([XElement (QN "trill-mark" Nothing) (emitXml a)])+ emitXml (OrnamentsTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "turn" Nothing) (emitXml a)])+ emitXml (OrnamentsDelayedTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "delayed-turn" Nothing) (emitXml a)])+ emitXml (OrnamentsInvertedTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "inverted-turn" Nothing) (emitXml a)])+ emitXml (OrnamentsDelayedInvertedTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "delayed-inverted-turn" Nothing) (emitXml a)])+ emitXml (OrnamentsVerticalTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "vertical-turn" Nothing) (emitXml a)])+ emitXml (OrnamentsInvertedVerticalTurn a) =+ XContent XEmpty+ []+ ([XElement (QN "inverted-vertical-turn" Nothing) (emitXml a)])+ emitXml (OrnamentsShake a) =+ XContent XEmpty+ []+ ([XElement (QN "shake" Nothing) (emitXml a)])+ emitXml (OrnamentsWavyLine a) =+ XContent XEmpty+ []+ ([XElement (QN "wavy-line" Nothing) (emitXml a)])+ emitXml (OrnamentsMordent a) =+ XContent XEmpty+ []+ ([XElement (QN "mordent" Nothing) (emitXml a)])+ emitXml (OrnamentsInvertedMordent a) =+ XContent XEmpty+ []+ ([XElement (QN "inverted-mordent" Nothing) (emitXml a)])+ emitXml (OrnamentsSchleifer a) =+ XContent XEmpty+ []+ ([XElement (QN "schleifer" Nothing) (emitXml a)])+ emitXml (OrnamentsTremolo a) =+ XContent XEmpty+ []+ ([XElement (QN "tremolo" Nothing) (emitXml a)])+ emitXml (OrnamentsHaydn a) =+ XContent XEmpty+ []+ ([XElement (QN "haydn" Nothing) (emitXml a)])+ emitXml (OrnamentsOtherOrnament a) =+ XContent XEmpty+ []+ ([XElement (QN "other-ornament" Nothing) (emitXml a)])+parseChxOrnaments :: P.XParse ChxOrnaments+parseChxOrnaments = + OrnamentsTrillMark+ <$> (P.xchild (P.name "trill-mark") (parseEmptyTrillSound))+ <|> OrnamentsTurn+ <$> (P.xchild (P.name "turn") (parseHorizontalTurn))+ <|> OrnamentsDelayedTurn+ <$> (P.xchild (P.name "delayed-turn") (parseHorizontalTurn))+ <|> OrnamentsInvertedTurn+ <$> (P.xchild (P.name "inverted-turn") (parseHorizontalTurn))+ <|> OrnamentsDelayedInvertedTurn+ <$> (P.xchild (P.name "delayed-inverted-turn") (parseHorizontalTurn))+ <|> OrnamentsVerticalTurn+ <$> (P.xchild (P.name "vertical-turn") (parseEmptyTrillSound))+ <|> OrnamentsInvertedVerticalTurn+ <$> (P.xchild (P.name "inverted-vertical-turn") (parseEmptyTrillSound))+ <|> OrnamentsShake+ <$> (P.xchild (P.name "shake") (parseEmptyTrillSound))+ <|> OrnamentsWavyLine+ <$> (P.xchild (P.name "wavy-line") (parseWavyLine))+ <|> OrnamentsMordent+ <$> (P.xchild (P.name "mordent") (parseMordent))+ <|> OrnamentsInvertedMordent+ <$> (P.xchild (P.name "inverted-mordent") (parseMordent))+ <|> OrnamentsSchleifer+ <$> (P.xchild (P.name "schleifer") (parseEmptyPlacement))+ <|> OrnamentsTremolo+ <$> (P.xchild (P.name "tremolo") (parseTremolo))+ <|> OrnamentsHaydn+ <$> (P.xchild (P.name "haydn") (parseEmptyTrillSound))+ <|> OrnamentsOtherOrnament+ <$> (P.xchild (P.name "other-ornament") (parseOtherPlacementText))++-- | Smart constructor for 'OrnamentsTrillMark'+mkOrnamentsTrillMark :: EmptyTrillSound -> ChxOrnaments+mkOrnamentsTrillMark a = OrnamentsTrillMark a+-- | Smart constructor for 'OrnamentsTurn'+mkOrnamentsTurn :: HorizontalTurn -> ChxOrnaments+mkOrnamentsTurn a = OrnamentsTurn a+-- | Smart constructor for 'OrnamentsDelayedTurn'+mkOrnamentsDelayedTurn :: HorizontalTurn -> ChxOrnaments+mkOrnamentsDelayedTurn a = OrnamentsDelayedTurn a+-- | Smart constructor for 'OrnamentsInvertedTurn'+mkOrnamentsInvertedTurn :: HorizontalTurn -> ChxOrnaments+mkOrnamentsInvertedTurn a = OrnamentsInvertedTurn a+-- | Smart constructor for 'OrnamentsDelayedInvertedTurn'+mkOrnamentsDelayedInvertedTurn :: HorizontalTurn -> ChxOrnaments+mkOrnamentsDelayedInvertedTurn a = OrnamentsDelayedInvertedTurn a+-- | Smart constructor for 'OrnamentsVerticalTurn'+mkOrnamentsVerticalTurn :: EmptyTrillSound -> ChxOrnaments+mkOrnamentsVerticalTurn a = OrnamentsVerticalTurn a+-- | Smart constructor for 'OrnamentsInvertedVerticalTurn'+mkOrnamentsInvertedVerticalTurn :: EmptyTrillSound -> ChxOrnaments+mkOrnamentsInvertedVerticalTurn a = OrnamentsInvertedVerticalTurn a+-- | Smart constructor for 'OrnamentsShake'+mkOrnamentsShake :: EmptyTrillSound -> ChxOrnaments+mkOrnamentsShake a = OrnamentsShake a+-- | Smart constructor for 'OrnamentsWavyLine'+mkOrnamentsWavyLine :: WavyLine -> ChxOrnaments+mkOrnamentsWavyLine a = OrnamentsWavyLine a+-- | Smart constructor for 'OrnamentsMordent'+mkOrnamentsMordent :: Mordent -> ChxOrnaments+mkOrnamentsMordent a = OrnamentsMordent a+-- | Smart constructor for 'OrnamentsInvertedMordent'+mkOrnamentsInvertedMordent :: Mordent -> ChxOrnaments+mkOrnamentsInvertedMordent a = OrnamentsInvertedMordent a+-- | Smart constructor for 'OrnamentsSchleifer'+mkOrnamentsSchleifer :: EmptyPlacement -> ChxOrnaments+mkOrnamentsSchleifer a = OrnamentsSchleifer a+-- | Smart constructor for 'OrnamentsTremolo'+mkOrnamentsTremolo :: Tremolo -> ChxOrnaments+mkOrnamentsTremolo a = OrnamentsTremolo a+-- | Smart constructor for 'OrnamentsHaydn'+mkOrnamentsHaydn :: EmptyTrillSound -> ChxOrnaments+mkOrnamentsHaydn a = OrnamentsHaydn a+-- | Smart constructor for 'OrnamentsOtherOrnament'+mkOrnamentsOtherOrnament :: OtherPlacementText -> ChxOrnaments+mkOrnamentsOtherOrnament a = OrnamentsOtherOrnament a++-- | @part-list@ /(choice)/+data ChxPartList = + PartListPartGroup {+ chxpartListPartGroup :: GrpPartGroup+ }+ | PartListScorePart {+ chxpartListScorePart :: ScorePart+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxPartList where+ emitXml (PartListPartGroup a) =+ XReps [emitXml a]+ emitXml (PartListScorePart a) =+ XReps [emitXml a]+parseChxPartList :: P.XParse ChxPartList+parseChxPartList = + PartListPartGroup+ <$> parseGrpPartGroup+ <|> PartListScorePart+ <$> parseScorePart++-- | Smart constructor for 'PartListPartGroup'+mkPartListPartGroup :: GrpPartGroup -> ChxPartList+mkPartListPartGroup a = PartListPartGroup a+-- | Smart constructor for 'PartListScorePart'+mkPartListScorePart :: ScorePart -> ChxPartList+mkPartListScorePart a = PartListScorePart a++-- | @percussion@ /(choice)/+data ChxPercussion = + PercussionGlass {+ percussionGlass :: Glass -- ^ /glass/ child element+ }+ | PercussionMetal {+ percussionMetal :: Metal -- ^ /metal/ child element+ }+ | PercussionWood {+ percussionWood :: Wood -- ^ /wood/ child element+ }+ | PercussionPitched {+ percussionPitched :: Pitched -- ^ /pitched/ child element+ }+ | PercussionMembrane {+ percussionMembrane :: Membrane -- ^ /membrane/ child element+ }+ | PercussionEffect {+ percussionEffect :: Effect -- ^ /effect/ child element+ }+ | PercussionTimpani {+ percussionTimpani :: Empty -- ^ /timpani/ child element+ }+ | PercussionBeater {+ percussionBeater :: Beater -- ^ /beater/ child element+ }+ | PercussionStick {+ percussionStick :: Stick -- ^ /stick/ child element+ }+ | PercussionStickLocation {+ percussionStickLocation :: StickLocation -- ^ /stick-location/ child element+ }+ | PercussionOtherPercussion {+ percussionOtherPercussion :: OtherText -- ^ /other-percussion/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxPercussion where+ emitXml (PercussionGlass a) =+ XContent XEmpty+ []+ ([XElement (QN "glass" Nothing) (emitXml a)])+ emitXml (PercussionMetal a) =+ XContent XEmpty+ []+ ([XElement (QN "metal" Nothing) (emitXml a)])+ emitXml (PercussionWood a) =+ XContent XEmpty+ []+ ([XElement (QN "wood" Nothing) (emitXml a)])+ emitXml (PercussionPitched a) =+ XContent XEmpty+ []+ ([XElement (QN "pitched" Nothing) (emitXml a)])+ emitXml (PercussionMembrane a) =+ XContent XEmpty+ []+ ([XElement (QN "membrane" Nothing) (emitXml a)])+ emitXml (PercussionEffect a) =+ XContent XEmpty+ []+ ([XElement (QN "effect" Nothing) (emitXml a)])+ emitXml (PercussionTimpani a) =+ XContent XEmpty+ []+ ([XElement (QN "timpani" Nothing) (emitXml a)])+ emitXml (PercussionBeater a) =+ XContent XEmpty+ []+ ([XElement (QN "beater" Nothing) (emitXml a)])+ emitXml (PercussionStick a) =+ XContent XEmpty+ []+ ([XElement (QN "stick" Nothing) (emitXml a)])+ emitXml (PercussionStickLocation a) =+ XContent XEmpty+ []+ ([XElement (QN "stick-location" Nothing) (emitXml a)])+ emitXml (PercussionOtherPercussion a) =+ XContent XEmpty+ []+ ([XElement (QN "other-percussion" Nothing) (emitXml a)])+parseChxPercussion :: P.XParse ChxPercussion+parseChxPercussion = + PercussionGlass+ <$> (P.xchild (P.name "glass") (parseGlass))+ <|> PercussionMetal+ <$> (P.xchild (P.name "metal") (P.xtext >>= parseMetal))+ <|> PercussionWood+ <$> (P.xchild (P.name "wood") (P.xtext >>= parseWood))+ <|> PercussionPitched+ <$> (P.xchild (P.name "pitched") (parsePitched))+ <|> PercussionMembrane+ <$> (P.xchild (P.name "membrane") (P.xtext >>= parseMembrane))+ <|> PercussionEffect+ <$> (P.xchild (P.name "effect") (P.xtext >>= parseEffect))+ <|> PercussionTimpani+ <$> (P.xchild (P.name "timpani") (parseEmpty))+ <|> PercussionBeater+ <$> (P.xchild (P.name "beater") (parseBeater))+ <|> PercussionStick+ <$> (P.xchild (P.name "stick") (parseStick))+ <|> PercussionStickLocation+ <$> (P.xchild (P.name "stick-location") (P.xtext >>= parseStickLocation))+ <|> PercussionOtherPercussion+ <$> (P.xchild (P.name "other-percussion") (parseOtherText))++-- | Smart constructor for 'PercussionGlass'+mkPercussionGlass :: Glass -> ChxPercussion+mkPercussionGlass a = PercussionGlass a+-- | Smart constructor for 'PercussionMetal'+mkPercussionMetal :: Metal -> ChxPercussion+mkPercussionMetal a = PercussionMetal a+-- | Smart constructor for 'PercussionWood'+mkPercussionWood :: Wood -> ChxPercussion+mkPercussionWood a = PercussionWood a+-- | Smart constructor for 'PercussionPitched'+mkPercussionPitched :: Pitched -> ChxPercussion+mkPercussionPitched a = PercussionPitched a+-- | Smart constructor for 'PercussionMembrane'+mkPercussionMembrane :: Membrane -> ChxPercussion+mkPercussionMembrane a = PercussionMembrane a+-- | Smart constructor for 'PercussionEffect'+mkPercussionEffect :: Effect -> ChxPercussion+mkPercussionEffect a = PercussionEffect a+-- | Smart constructor for 'PercussionTimpani'+mkPercussionTimpani :: Empty -> ChxPercussion+mkPercussionTimpani a = PercussionTimpani a+-- | Smart constructor for 'PercussionBeater'+mkPercussionBeater :: Beater -> ChxPercussion+mkPercussionBeater a = PercussionBeater a+-- | Smart constructor for 'PercussionStick'+mkPercussionStick :: Stick -> ChxPercussion+mkPercussionStick a = PercussionStick a+-- | Smart constructor for 'PercussionStickLocation'+mkPercussionStickLocation :: StickLocation -> ChxPercussion+mkPercussionStickLocation a = PercussionStickLocation a+-- | Smart constructor for 'PercussionOtherPercussion'+mkPercussionOtherPercussion :: OtherText -> ChxPercussion+mkPercussionOtherPercussion a = PercussionOtherPercussion a++-- | @play@ /(choice)/+data ChxPlay = + PlayIpa {+ playIpa :: String -- ^ /ipa/ child element+ }+ | PlayMute {+ playMute :: Mute -- ^ /mute/ child element+ }+ | PlaySemiPitched {+ playSemiPitched :: SemiPitched -- ^ /semi-pitched/ child element+ }+ | PlayOtherPlay {+ playOtherPlay :: OtherPlay -- ^ /other-play/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxPlay where+ emitXml (PlayIpa a) =+ XContent XEmpty+ []+ ([XElement (QN "ipa" Nothing) (emitXml a)])+ emitXml (PlayMute a) =+ XContent XEmpty+ []+ ([XElement (QN "mute" Nothing) (emitXml a)])+ emitXml (PlaySemiPitched a) =+ XContent XEmpty+ []+ ([XElement (QN "semi-pitched" Nothing) (emitXml a)])+ emitXml (PlayOtherPlay a) =+ XContent XEmpty+ []+ ([XElement (QN "other-play" Nothing) (emitXml a)])+parseChxPlay :: P.XParse ChxPlay+parseChxPlay = + PlayIpa+ <$> (P.xchild (P.name "ipa") (P.xtext >>= return))+ <|> PlayMute+ <$> (P.xchild (P.name "mute") (P.xtext >>= parseMute))+ <|> PlaySemiPitched+ <$> (P.xchild (P.name "semi-pitched") (P.xtext >>= parseSemiPitched))+ <|> PlayOtherPlay+ <$> (P.xchild (P.name "other-play") (parseOtherPlay))++-- | Smart constructor for 'PlayIpa'+mkPlayIpa :: String -> ChxPlay+mkPlayIpa a = PlayIpa a+-- | Smart constructor for 'PlayMute'+mkPlayMute :: Mute -> ChxPlay+mkPlayMute a = PlayMute a+-- | Smart constructor for 'PlaySemiPitched'+mkPlaySemiPitched :: SemiPitched -> ChxPlay+mkPlaySemiPitched a = PlaySemiPitched a+-- | Smart constructor for 'PlayOtherPlay'+mkPlayOtherPlay :: OtherPlay -> ChxPlay+mkPlayOtherPlay a = PlayOtherPlay a++-- | @score-instrument@ /(choice)/+data ChxScoreInstrument = + ScoreInstrumentSolo {+ scoreInstrumentSolo :: Empty -- ^ /solo/ child element+ }+ | ScoreInstrumentEnsemble {+ scoreInstrumentEnsemble :: PositiveIntegerOrEmpty -- ^ /ensemble/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxScoreInstrument where+ emitXml (ScoreInstrumentSolo a) =+ XContent XEmpty+ []+ ([XElement (QN "solo" Nothing) (emitXml a)])+ emitXml (ScoreInstrumentEnsemble a) =+ XContent XEmpty+ []+ ([XElement (QN "ensemble" Nothing) (emitXml a)])+parseChxScoreInstrument :: P.XParse ChxScoreInstrument+parseChxScoreInstrument = + ScoreInstrumentSolo+ <$> (P.xchild (P.name "solo") (parseEmpty))+ <|> ScoreInstrumentEnsemble+ <$> (P.xchild (P.name "ensemble") (P.xtext >>= parsePositiveIntegerOrEmpty))++-- | Smart constructor for 'ScoreInstrumentSolo'+mkScoreInstrumentSolo :: Empty -> ChxScoreInstrument+mkScoreInstrumentSolo a = ScoreInstrumentSolo a+-- | Smart constructor for 'ScoreInstrumentEnsemble'+mkScoreInstrumentEnsemble :: PositiveIntegerOrEmpty -> ChxScoreInstrument+mkScoreInstrumentEnsemble a = ScoreInstrumentEnsemble a++-- | @technical@ /(choice)/+data ChxTechnical = + TechnicalUpBow {+ technicalUpBow :: EmptyPlacement -- ^ /up-bow/ child element+ }+ | TechnicalDownBow {+ technicalDownBow :: EmptyPlacement -- ^ /down-bow/ child element+ }+ | TechnicalHarmonic {+ technicalHarmonic :: Harmonic -- ^ /harmonic/ child element+ }+ | TechnicalOpenString {+ technicalOpenString :: EmptyPlacement -- ^ /open-string/ child element+ }+ | TechnicalThumbPosition {+ technicalThumbPosition :: EmptyPlacement -- ^ /thumb-position/ child element+ }+ | TechnicalFingering {+ technicalFingering :: Fingering -- ^ /fingering/ child element+ }+ | TechnicalPluck {+ technicalPluck :: PlacementText -- ^ /pluck/ child element+ }+ | TechnicalDoubleTongue {+ technicalDoubleTongue :: EmptyPlacement -- ^ /double-tongue/ child element+ }+ | TechnicalTripleTongue {+ technicalTripleTongue :: EmptyPlacement -- ^ /triple-tongue/ child element+ }+ | TechnicalStopped {+ technicalStopped :: EmptyPlacementSmufl -- ^ /stopped/ child element+ }+ | TechnicalSnapPizzicato {+ technicalSnapPizzicato :: EmptyPlacement -- ^ /snap-pizzicato/ child element+ }+ | TechnicalFret {+ technicalFret :: Fret -- ^ /fret/ child element+ }+ | TechnicalString {+ technicalString :: CmpString -- ^ /string/ child element+ }+ | TechnicalHammerOn {+ technicalHammerOn :: HammerOnPullOff -- ^ /hammer-on/ child element+ }+ | TechnicalPullOff {+ technicalPullOff :: HammerOnPullOff -- ^ /pull-off/ child element+ }+ | TechnicalBend {+ technicalBend :: Bend -- ^ /bend/ child element+ }+ | TechnicalTap {+ technicalTap :: Tap -- ^ /tap/ child element+ }+ | TechnicalHeel {+ technicalHeel :: HeelToe -- ^ /heel/ child element+ }+ | TechnicalToe {+ technicalToe :: HeelToe -- ^ /toe/ child element+ }+ | TechnicalFingernails {+ technicalFingernails :: EmptyPlacement -- ^ /fingernails/ child element+ }+ | TechnicalHole {+ technicalHole :: Hole -- ^ /hole/ child element+ }+ | TechnicalArrow {+ technicalArrow :: Arrow -- ^ /arrow/ child element+ }+ | TechnicalHandbell {+ technicalHandbell :: Handbell -- ^ /handbell/ child element+ }+ | TechnicalBrassBend {+ technicalBrassBend :: EmptyPlacement -- ^ /brass-bend/ child element+ }+ | TechnicalFlip {+ technicalFlip :: EmptyPlacement -- ^ /flip/ child element+ }+ | TechnicalSmear {+ technicalSmear :: EmptyPlacement -- ^ /smear/ child element+ }+ | TechnicalOpen {+ technicalOpen :: EmptyPlacementSmufl -- ^ /open/ child element+ }+ | TechnicalHalfMuted {+ technicalHalfMuted :: EmptyPlacementSmufl -- ^ /half-muted/ child element+ }+ | TechnicalHarmonMute {+ technicalHarmonMute :: HarmonMute -- ^ /harmon-mute/ child element+ }+ | TechnicalGolpe {+ technicalGolpe :: EmptyPlacement -- ^ /golpe/ child element+ }+ | TechnicalOtherTechnical {+ technicalOtherTechnical :: OtherPlacementText -- ^ /other-technical/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxTechnical where+ emitXml (TechnicalUpBow a) =+ XContent XEmpty+ []+ ([XElement (QN "up-bow" Nothing) (emitXml a)])+ emitXml (TechnicalDownBow a) =+ XContent XEmpty+ []+ ([XElement (QN "down-bow" Nothing) (emitXml a)])+ emitXml (TechnicalHarmonic a) =+ XContent XEmpty+ []+ ([XElement (QN "harmonic" Nothing) (emitXml a)])+ emitXml (TechnicalOpenString a) =+ XContent XEmpty+ []+ ([XElement (QN "open-string" Nothing) (emitXml a)])+ emitXml (TechnicalThumbPosition a) =+ XContent XEmpty+ []+ ([XElement (QN "thumb-position" Nothing) (emitXml a)])+ emitXml (TechnicalFingering a) =+ XContent XEmpty+ []+ ([XElement (QN "fingering" Nothing) (emitXml a)])+ emitXml (TechnicalPluck a) =+ XContent XEmpty+ []+ ([XElement (QN "pluck" Nothing) (emitXml a)])+ emitXml (TechnicalDoubleTongue a) =+ XContent XEmpty+ []+ ([XElement (QN "double-tongue" Nothing) (emitXml a)])+ emitXml (TechnicalTripleTongue a) =+ XContent XEmpty+ []+ ([XElement (QN "triple-tongue" Nothing) (emitXml a)])+ emitXml (TechnicalStopped a) =+ XContent XEmpty+ []+ ([XElement (QN "stopped" Nothing) (emitXml a)])+ emitXml (TechnicalSnapPizzicato a) =+ XContent XEmpty+ []+ ([XElement (QN "snap-pizzicato" Nothing) (emitXml a)])+ emitXml (TechnicalFret a) =+ XContent XEmpty+ []+ ([XElement (QN "fret" Nothing) (emitXml a)])+ emitXml (TechnicalString a) =+ XContent XEmpty+ []+ ([XElement (QN "string" Nothing) (emitXml a)])+ emitXml (TechnicalHammerOn a) =+ XContent XEmpty+ []+ ([XElement (QN "hammer-on" Nothing) (emitXml a)])+ emitXml (TechnicalPullOff a) =+ XContent XEmpty+ []+ ([XElement (QN "pull-off" Nothing) (emitXml a)])+ emitXml (TechnicalBend a) =+ XContent XEmpty+ []+ ([XElement (QN "bend" Nothing) (emitXml a)])+ emitXml (TechnicalTap a) =+ XContent XEmpty+ []+ ([XElement (QN "tap" Nothing) (emitXml a)])+ emitXml (TechnicalHeel a) =+ XContent XEmpty+ []+ ([XElement (QN "heel" Nothing) (emitXml a)])+ emitXml (TechnicalToe a) =+ XContent XEmpty+ []+ ([XElement (QN "toe" Nothing) (emitXml a)])+ emitXml (TechnicalFingernails a) =+ XContent XEmpty+ []+ ([XElement (QN "fingernails" Nothing) (emitXml a)])+ emitXml (TechnicalHole a) =+ XContent XEmpty+ []+ ([XElement (QN "hole" Nothing) (emitXml a)])+ emitXml (TechnicalArrow a) =+ XContent XEmpty+ []+ ([XElement (QN "arrow" Nothing) (emitXml a)])+ emitXml (TechnicalHandbell a) =+ XContent XEmpty+ []+ ([XElement (QN "handbell" Nothing) (emitXml a)])+ emitXml (TechnicalBrassBend a) =+ XContent XEmpty+ []+ ([XElement (QN "brass-bend" Nothing) (emitXml a)])+ emitXml (TechnicalFlip a) =+ XContent XEmpty+ []+ ([XElement (QN "flip" Nothing) (emitXml a)])+ emitXml (TechnicalSmear a) =+ XContent XEmpty+ []+ ([XElement (QN "smear" Nothing) (emitXml a)])+ emitXml (TechnicalOpen a) =+ XContent XEmpty+ []+ ([XElement (QN "open" Nothing) (emitXml a)])+ emitXml (TechnicalHalfMuted a) =+ XContent XEmpty+ []+ ([XElement (QN "half-muted" Nothing) (emitXml a)])+ emitXml (TechnicalHarmonMute a) =+ XContent XEmpty+ []+ ([XElement (QN "harmon-mute" Nothing) (emitXml a)])+ emitXml (TechnicalGolpe a) =+ XContent XEmpty+ []+ ([XElement (QN "golpe" Nothing) (emitXml a)])+ emitXml (TechnicalOtherTechnical a) =+ XContent XEmpty+ []+ ([XElement (QN "other-technical" Nothing) (emitXml a)])+parseChxTechnical :: P.XParse ChxTechnical+parseChxTechnical = + TechnicalUpBow+ <$> (P.xchild (P.name "up-bow") (parseEmptyPlacement))+ <|> TechnicalDownBow+ <$> (P.xchild (P.name "down-bow") (parseEmptyPlacement))+ <|> TechnicalHarmonic+ <$> (P.xchild (P.name "harmonic") (parseHarmonic))+ <|> TechnicalOpenString+ <$> (P.xchild (P.name "open-string") (parseEmptyPlacement))+ <|> TechnicalThumbPosition+ <$> (P.xchild (P.name "thumb-position") (parseEmptyPlacement))+ <|> TechnicalFingering+ <$> (P.xchild (P.name "fingering") (parseFingering))+ <|> TechnicalPluck+ <$> (P.xchild (P.name "pluck") (parsePlacementText))+ <|> TechnicalDoubleTongue+ <$> (P.xchild (P.name "double-tongue") (parseEmptyPlacement))+ <|> TechnicalTripleTongue+ <$> (P.xchild (P.name "triple-tongue") (parseEmptyPlacement))+ <|> TechnicalStopped+ <$> (P.xchild (P.name "stopped") (parseEmptyPlacementSmufl))+ <|> TechnicalSnapPizzicato+ <$> (P.xchild (P.name "snap-pizzicato") (parseEmptyPlacement))+ <|> TechnicalFret+ <$> (P.xchild (P.name "fret") (parseFret))+ <|> TechnicalString+ <$> (P.xchild (P.name "string") (parseCmpString))+ <|> TechnicalHammerOn+ <$> (P.xchild (P.name "hammer-on") (parseHammerOnPullOff))+ <|> TechnicalPullOff+ <$> (P.xchild (P.name "pull-off") (parseHammerOnPullOff))+ <|> TechnicalBend+ <$> (P.xchild (P.name "bend") (parseBend))+ <|> TechnicalTap+ <$> (P.xchild (P.name "tap") (parseTap))+ <|> TechnicalHeel+ <$> (P.xchild (P.name "heel") (parseHeelToe))+ <|> TechnicalToe+ <$> (P.xchild (P.name "toe") (parseHeelToe))+ <|> TechnicalFingernails+ <$> (P.xchild (P.name "fingernails") (parseEmptyPlacement))+ <|> TechnicalHole+ <$> (P.xchild (P.name "hole") (parseHole))+ <|> TechnicalArrow+ <$> (P.xchild (P.name "arrow") (parseArrow))+ <|> TechnicalHandbell+ <$> (P.xchild (P.name "handbell") (parseHandbell))+ <|> TechnicalBrassBend+ <$> (P.xchild (P.name "brass-bend") (parseEmptyPlacement))+ <|> TechnicalFlip+ <$> (P.xchild (P.name "flip") (parseEmptyPlacement))+ <|> TechnicalSmear+ <$> (P.xchild (P.name "smear") (parseEmptyPlacement))+ <|> TechnicalOpen+ <$> (P.xchild (P.name "open") (parseEmptyPlacementSmufl))+ <|> TechnicalHalfMuted+ <$> (P.xchild (P.name "half-muted") (parseEmptyPlacementSmufl))+ <|> TechnicalHarmonMute+ <$> (P.xchild (P.name "harmon-mute") (parseHarmonMute))+ <|> TechnicalGolpe+ <$> (P.xchild (P.name "golpe") (parseEmptyPlacement))+ <|> TechnicalOtherTechnical+ <$> (P.xchild (P.name "other-technical") (parseOtherPlacementText))++-- | Smart constructor for 'TechnicalUpBow'+mkTechnicalUpBow :: EmptyPlacement -> ChxTechnical+mkTechnicalUpBow a = TechnicalUpBow a+-- | Smart constructor for 'TechnicalDownBow'+mkTechnicalDownBow :: EmptyPlacement -> ChxTechnical+mkTechnicalDownBow a = TechnicalDownBow a+-- | Smart constructor for 'TechnicalHarmonic'+mkTechnicalHarmonic :: Harmonic -> ChxTechnical+mkTechnicalHarmonic a = TechnicalHarmonic a+-- | Smart constructor for 'TechnicalOpenString'+mkTechnicalOpenString :: EmptyPlacement -> ChxTechnical+mkTechnicalOpenString a = TechnicalOpenString a+-- | Smart constructor for 'TechnicalThumbPosition'+mkTechnicalThumbPosition :: EmptyPlacement -> ChxTechnical+mkTechnicalThumbPosition a = TechnicalThumbPosition a+-- | Smart constructor for 'TechnicalFingering'+mkTechnicalFingering :: Fingering -> ChxTechnical+mkTechnicalFingering a = TechnicalFingering a+-- | Smart constructor for 'TechnicalPluck'+mkTechnicalPluck :: PlacementText -> ChxTechnical+mkTechnicalPluck a = TechnicalPluck a+-- | Smart constructor for 'TechnicalDoubleTongue'+mkTechnicalDoubleTongue :: EmptyPlacement -> ChxTechnical+mkTechnicalDoubleTongue a = TechnicalDoubleTongue a+-- | Smart constructor for 'TechnicalTripleTongue'+mkTechnicalTripleTongue :: EmptyPlacement -> ChxTechnical+mkTechnicalTripleTongue a = TechnicalTripleTongue a+-- | Smart constructor for 'TechnicalStopped'+mkTechnicalStopped :: EmptyPlacementSmufl -> ChxTechnical+mkTechnicalStopped a = TechnicalStopped a+-- | Smart constructor for 'TechnicalSnapPizzicato'+mkTechnicalSnapPizzicato :: EmptyPlacement -> ChxTechnical+mkTechnicalSnapPizzicato a = TechnicalSnapPizzicato a+-- | Smart constructor for 'TechnicalFret'+mkTechnicalFret :: Fret -> ChxTechnical+mkTechnicalFret a = TechnicalFret a+-- | Smart constructor for 'TechnicalString'+mkTechnicalString :: CmpString -> ChxTechnical+mkTechnicalString a = TechnicalString a+-- | Smart constructor for 'TechnicalHammerOn'+mkTechnicalHammerOn :: HammerOnPullOff -> ChxTechnical+mkTechnicalHammerOn a = TechnicalHammerOn a+-- | Smart constructor for 'TechnicalPullOff'+mkTechnicalPullOff :: HammerOnPullOff -> ChxTechnical+mkTechnicalPullOff a = TechnicalPullOff a+-- | Smart constructor for 'TechnicalBend'+mkTechnicalBend :: Bend -> ChxTechnical+mkTechnicalBend a = TechnicalBend a+-- | Smart constructor for 'TechnicalTap'+mkTechnicalTap :: Tap -> ChxTechnical+mkTechnicalTap a = TechnicalTap a+-- | Smart constructor for 'TechnicalHeel'+mkTechnicalHeel :: HeelToe -> ChxTechnical+mkTechnicalHeel a = TechnicalHeel a+-- | Smart constructor for 'TechnicalToe'+mkTechnicalToe :: HeelToe -> ChxTechnical+mkTechnicalToe a = TechnicalToe a+-- | Smart constructor for 'TechnicalFingernails'+mkTechnicalFingernails :: EmptyPlacement -> ChxTechnical+mkTechnicalFingernails a = TechnicalFingernails a+-- | Smart constructor for 'TechnicalHole'+mkTechnicalHole :: Hole -> ChxTechnical+mkTechnicalHole a = TechnicalHole a+-- | Smart constructor for 'TechnicalArrow'+mkTechnicalArrow :: Arrow -> ChxTechnical+mkTechnicalArrow a = TechnicalArrow a+-- | Smart constructor for 'TechnicalHandbell'+mkTechnicalHandbell :: Handbell -> ChxTechnical+mkTechnicalHandbell a = TechnicalHandbell a+-- | Smart constructor for 'TechnicalBrassBend'+mkTechnicalBrassBend :: EmptyPlacement -> ChxTechnical+mkTechnicalBrassBend a = TechnicalBrassBend a+-- | Smart constructor for 'TechnicalFlip'+mkTechnicalFlip :: EmptyPlacement -> ChxTechnical+mkTechnicalFlip a = TechnicalFlip a+-- | Smart constructor for 'TechnicalSmear'+mkTechnicalSmear :: EmptyPlacement -> ChxTechnical+mkTechnicalSmear a = TechnicalSmear a+-- | Smart constructor for 'TechnicalOpen'+mkTechnicalOpen :: EmptyPlacementSmufl -> ChxTechnical+mkTechnicalOpen a = TechnicalOpen a+-- | Smart constructor for 'TechnicalHalfMuted'+mkTechnicalHalfMuted :: EmptyPlacementSmufl -> ChxTechnical+mkTechnicalHalfMuted a = TechnicalHalfMuted a+-- | Smart constructor for 'TechnicalHarmonMute'+mkTechnicalHarmonMute :: HarmonMute -> ChxTechnical+mkTechnicalHarmonMute a = TechnicalHarmonMute a+-- | Smart constructor for 'TechnicalGolpe'+mkTechnicalGolpe :: EmptyPlacement -> ChxTechnical+mkTechnicalGolpe a = TechnicalGolpe a+-- | Smart constructor for 'TechnicalOtherTechnical'+mkTechnicalOtherTechnical :: OtherPlacementText -> ChxTechnical+mkTechnicalOtherTechnical a = TechnicalOtherTechnical a++-- | @time@ /(choice)/+data ChxTime = + TimeTimeSignature {+ timeTimeSignature :: [TimeSignature]+ , timeInterchangeable :: (Maybe Interchangeable) -- ^ /interchangeable/ child element+ }+ | TimeSenzaMisura {+ timeSenzaMisura :: String -- ^ /senza-misura/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ChxTime where+ emitXml (TimeTimeSignature a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ [maybe XEmpty (XElement (QN "interchangeable" Nothing).emitXml) b])+ emitXml (TimeSenzaMisura a) =+ XContent XEmpty+ []+ ([XElement (QN "senza-misura" Nothing) (emitXml a)])+parseChxTime :: P.XParse ChxTime+parseChxTime = + TimeTimeSignature+ <$> P.many (parseTimeSignature)+ <*> P.optional (P.xchild (P.name "interchangeable") (parseInterchangeable))+ <|> TimeSenzaMisura+ <$> (P.xchild (P.name "senza-misura") (P.xtext >>= return))++-- | Smart constructor for 'TimeTimeSignature'+mkTimeTimeSignature :: ChxTime+mkTimeTimeSignature = TimeTimeSignature [] Nothing+-- | Smart constructor for 'TimeSenzaMisura'+mkTimeSenzaMisura :: String -> ChxTime+mkTimeSenzaMisura a = TimeSenzaMisura a++-- | @credit@ /(sequence)/+data SeqCredit = + SeqCredit {+ seqcreditLink :: [Link] -- ^ /link/ child element+ , seqcreditBookmark :: [Bookmark] -- ^ /bookmark/ child element+ , seqcreditCredit :: ChxCredit1+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqCredit where+ emitXml (SeqCredit a b c) =+ XContent XEmpty+ []+ (map (XElement (QN "link" Nothing).emitXml) a +++ map (XElement (QN "bookmark" Nothing).emitXml) b +++ [emitXml c])+parseSeqCredit :: P.XParse SeqCredit+parseSeqCredit = + SeqCredit+ <$> P.many (P.xchild (P.name "link") (parseLink))+ <*> P.many (P.xchild (P.name "bookmark") (parseBookmark))+ <*> parseChxCredit1++-- | Smart constructor for 'SeqCredit'+mkSeqCredit :: ChxCredit1 -> SeqCredit+mkSeqCredit c = SeqCredit [] [] c++-- | @lyric@ /(sequence)/+data SeqLyric0 = + SeqLyric0 {+ lyricElision :: Elision -- ^ /elision/ child element+ , seqlyricSyllabic :: (Maybe Syllabic) -- ^ /syllabic/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqLyric0 where+ emitXml (SeqLyric0 a b) =+ XContent XEmpty+ []+ ([XElement (QN "elision" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "syllabic" Nothing).emitXml) b])+parseSeqLyric0 :: P.XParse SeqLyric0+parseSeqLyric0 = + SeqLyric0+ <$> (P.xchild (P.name "elision") (parseElision))+ <*> P.optional (P.xchild (P.name "syllabic") (P.xtext >>= parseSyllabic))++-- | Smart constructor for 'SeqLyric0'+mkSeqLyric0 :: Elision -> SeqLyric0+mkSeqLyric0 a = SeqLyric0 a Nothing++-- | @lyric@ /(sequence)/++-- mangled: 1+data SeqLyric = + SeqLyric {+ seqlyricLyric :: (Maybe SeqLyric0)+ , seqlyricText :: TextElementData -- ^ /text/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqLyric where+ emitXml (SeqLyric a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ [XElement (QN "text" Nothing) (emitXml b)])+parseSeqLyric :: P.XParse SeqLyric+parseSeqLyric = + SeqLyric+ <$> P.optional (parseSeqLyric0)+ <*> (P.xchild (P.name "text") (parseTextElementData))++-- | Smart constructor for 'SeqLyric'+mkSeqLyric :: TextElementData -> SeqLyric+mkSeqLyric b = SeqLyric Nothing b++-- | @metronome@ /(sequence)/+data SeqMetronome = + SeqMetronome {+ metronomeMetronomeRelation :: String -- ^ /metronome-relation/ child element+ , seqmetronomeMetronomeNote :: [MetronomeNote] -- ^ /metronome-note/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqMetronome where+ emitXml (SeqMetronome a b) =+ XContent XEmpty+ []+ ([XElement (QN "metronome-relation" Nothing) (emitXml a)] +++ map (XElement (QN "metronome-note" Nothing).emitXml) b)+parseSeqMetronome :: P.XParse SeqMetronome+parseSeqMetronome = + SeqMetronome+ <$> (P.xchild (P.name "metronome-relation") (P.xtext >>= return))+ <*> P.many (P.xchild (P.name "metronome-note") (parseMetronomeNote))++-- | Smart constructor for 'SeqMetronome'+mkSeqMetronome :: String -> SeqMetronome+mkSeqMetronome a = SeqMetronome a []++-- | @metronome-tuplet@ /(sequence)/+data SeqMetronomeTuplet = + SeqMetronomeTuplet {+ metronomeTupletNormalType :: NoteTypeValue -- ^ /normal-type/ child element+ , metronomeTupletNormalDot :: [Empty] -- ^ /normal-dot/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqMetronomeTuplet where+ emitXml (SeqMetronomeTuplet a b) =+ XContent XEmpty+ []+ ([XElement (QN "normal-type" Nothing) (emitXml a)] +++ map (XElement (QN "normal-dot" Nothing).emitXml) b)+parseSeqMetronomeTuplet :: P.XParse SeqMetronomeTuplet+parseSeqMetronomeTuplet = + SeqMetronomeTuplet+ <$> (P.xchild (P.name "normal-type") (P.xtext >>= parseNoteTypeValue))+ <*> P.many (P.xchild (P.name "normal-dot") (parseEmpty))++-- | Smart constructor for 'SeqMetronomeTuplet'+mkSeqMetronomeTuplet :: NoteTypeValue -> SeqMetronomeTuplet+mkSeqMetronomeTuplet a = SeqMetronomeTuplet a []++-- | @ornaments@ /(sequence)/+data SeqOrnaments = + SeqOrnaments {+ seqornamentsOrnaments :: ChxOrnaments+ , ornamentsAccidentalMark :: [AccidentalMark] -- ^ /accidental-mark/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqOrnaments where+ emitXml (SeqOrnaments a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ map (XElement (QN "accidental-mark" Nothing).emitXml) b)+parseSeqOrnaments :: P.XParse SeqOrnaments+parseSeqOrnaments = + SeqOrnaments+ <$> parseChxOrnaments+ <*> P.many (P.xchild (P.name "accidental-mark") (parseAccidentalMark))++-- | Smart constructor for 'SeqOrnaments'+mkSeqOrnaments :: ChxOrnaments -> SeqOrnaments+mkSeqOrnaments a = SeqOrnaments a []++-- | @page-layout@ /(sequence)/+data SeqPageLayout = + SeqPageLayout {+ pageLayoutPageHeight :: Tenths -- ^ /page-height/ child element+ , pageLayoutPageWidth :: Tenths -- ^ /page-width/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqPageLayout where+ emitXml (SeqPageLayout a b) =+ XContent XEmpty+ []+ ([XElement (QN "page-height" Nothing) (emitXml a)] +++ [XElement (QN "page-width" Nothing) (emitXml b)])+parseSeqPageLayout :: P.XParse SeqPageLayout+parseSeqPageLayout = + SeqPageLayout+ <$> (P.xchild (P.name "page-height") (P.xtext >>= parseTenths))+ <*> (P.xchild (P.name "page-width") (P.xtext >>= parseTenths))++-- | Smart constructor for 'SeqPageLayout'+mkSeqPageLayout :: Tenths -> Tenths -> SeqPageLayout+mkSeqPageLayout a b = SeqPageLayout a b++-- | @score-part@ /(sequence)/+data SeqScorePart = + SeqScorePart {+ scorePartMidiDevice :: (Maybe MidiDevice) -- ^ /midi-device/ child element+ , scorePartMidiInstrument :: (Maybe MidiInstrument) -- ^ /midi-instrument/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqScorePart where+ emitXml (SeqScorePart a b) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "midi-device" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "midi-instrument" Nothing).emitXml) b])+parseSeqScorePart :: P.XParse SeqScorePart+parseSeqScorePart = + SeqScorePart+ <$> P.optional (P.xchild (P.name "midi-device") (parseMidiDevice))+ <*> P.optional (P.xchild (P.name "midi-instrument") (parseMidiInstrument))++-- | Smart constructor for 'SeqScorePart'+mkSeqScorePart :: SeqScorePart+mkSeqScorePart = SeqScorePart Nothing Nothing++-- | @slash@ /(sequence)/+data SeqSlash = + SeqSlash {+ slashSlashType :: NoteTypeValue -- ^ /slash-type/ child element+ , slashSlashDot :: [Empty] -- ^ /slash-dot/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqSlash where+ emitXml (SeqSlash a b) =+ XContent XEmpty+ []+ ([XElement (QN "slash-type" Nothing) (emitXml a)] +++ map (XElement (QN "slash-dot" Nothing).emitXml) b)+parseSeqSlash :: P.XParse SeqSlash+parseSeqSlash = + SeqSlash+ <$> (P.xchild (P.name "slash-type") (P.xtext >>= parseNoteTypeValue))+ <*> P.many (P.xchild (P.name "slash-dot") (parseEmpty))++-- | Smart constructor for 'SeqSlash'+mkSeqSlash :: NoteTypeValue -> SeqSlash+mkSeqSlash a = SeqSlash a []++-- | @sound@ /(sequence)/+data SeqSound = + SeqSound {+ soundMidiDevice :: (Maybe MidiDevice) -- ^ /midi-device/ child element+ , soundMidiInstrument :: (Maybe MidiInstrument) -- ^ /midi-instrument/ child element+ , soundPlay :: (Maybe Play) -- ^ /play/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqSound where+ emitXml (SeqSound a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "midi-device" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "midi-instrument" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "play" Nothing).emitXml) c])+parseSeqSound :: P.XParse SeqSound+parseSeqSound = + SeqSound+ <$> P.optional (P.xchild (P.name "midi-device") (parseMidiDevice))+ <*> P.optional (P.xchild (P.name "midi-instrument") (parseMidiInstrument))+ <*> P.optional (P.xchild (P.name "play") (parsePlay))++-- | Smart constructor for 'SeqSound'+mkSeqSound :: SeqSound+mkSeqSound = SeqSound Nothing Nothing Nothing++-- | @time-modification@ /(sequence)/+data SeqTimeModification = + SeqTimeModification {+ timeModificationNormalType :: NoteTypeValue -- ^ /normal-type/ child element+ , timeModificationNormalDot :: [Empty] -- ^ /normal-dot/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml SeqTimeModification where+ emitXml (SeqTimeModification a b) =+ XContent XEmpty+ []+ ([XElement (QN "normal-type" Nothing) (emitXml a)] +++ map (XElement (QN "normal-dot" Nothing).emitXml) b)+parseSeqTimeModification :: P.XParse SeqTimeModification+parseSeqTimeModification = + SeqTimeModification+ <$> (P.xchild (P.name "normal-type") (P.xtext >>= parseNoteTypeValue))+ <*> P.many (P.xchild (P.name "normal-dot") (parseEmpty))++-- | Smart constructor for 'SeqTimeModification'+mkSeqTimeModification :: NoteTypeValue -> SeqTimeModification+mkSeqTimeModification a = SeqTimeModification a []++-- | @all-margins@ /(group)/+data AllMargins = + AllMargins {+ allMarginsLeftRightMargins :: LeftRightMargins+ , allMarginsTopMargin :: Tenths -- ^ /top-margin/ child element+ , allMarginsBottomMargin :: Tenths -- ^ /bottom-margin/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml AllMargins where+ emitXml (AllMargins a b c) =+ XContent XEmpty+ []+ ([emitXml a] +++ [XElement (QN "top-margin" Nothing) (emitXml b)] +++ [XElement (QN "bottom-margin" Nothing) (emitXml c)])+parseAllMargins :: P.XParse AllMargins+parseAllMargins = + AllMargins+ <$> parseLeftRightMargins+ <*> (P.xchild (P.name "top-margin") (P.xtext >>= parseTenths))+ <*> (P.xchild (P.name "bottom-margin") (P.xtext >>= parseTenths))++-- | Smart constructor for 'AllMargins'+mkAllMargins :: LeftRightMargins -> Tenths -> Tenths -> AllMargins+mkAllMargins a b c = AllMargins a b c++-- | @beat-unit@ /(group)/+data BeatUnit = + BeatUnit {+ beatUnitBeatUnit :: NoteTypeValue -- ^ /beat-unit/ child element+ , beatUnitBeatUnitDot :: [Empty] -- ^ /beat-unit-dot/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml BeatUnit where+ emitXml (BeatUnit a b) =+ XContent XEmpty+ []+ ([XElement (QN "beat-unit" Nothing) (emitXml a)] +++ map (XElement (QN "beat-unit-dot" Nothing).emitXml) b)+parseBeatUnit :: P.XParse BeatUnit+parseBeatUnit = + BeatUnit+ <$> (P.xchild (P.name "beat-unit") (P.xtext >>= parseNoteTypeValue))+ <*> P.many (P.xchild (P.name "beat-unit-dot") (parseEmpty))++-- | Smart constructor for 'BeatUnit'+mkBeatUnit :: NoteTypeValue -> BeatUnit+mkBeatUnit a = BeatUnit a []++-- | @display-step-octave@ /(group)/+data DisplayStepOctave = + DisplayStepOctave {+ displayStepOctaveDisplayStep :: Step -- ^ /display-step/ child element+ , displayStepOctaveDisplayOctave :: Octave -- ^ /display-octave/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml DisplayStepOctave where+ emitXml (DisplayStepOctave a b) =+ XContent XEmpty+ []+ ([XElement (QN "display-step" Nothing) (emitXml a)] +++ [XElement (QN "display-octave" Nothing) (emitXml b)])+parseDisplayStepOctave :: P.XParse DisplayStepOctave+parseDisplayStepOctave = + DisplayStepOctave+ <$> (P.xchild (P.name "display-step") (P.xtext >>= parseStep))+ <*> (P.xchild (P.name "display-octave") (P.xtext >>= parseOctave))++-- | Smart constructor for 'DisplayStepOctave'+mkDisplayStepOctave :: Step -> Octave -> DisplayStepOctave+mkDisplayStepOctave a b = DisplayStepOctave a b++-- | @duration@ /(group)/+data Duration = + Duration {+ durationDuration :: PositiveDivisions -- ^ /duration/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Duration where+ emitXml (Duration a) =+ XContent XEmpty+ []+ ([XElement (QN "duration" Nothing) (emitXml a)])+parseDuration :: P.XParse Duration+parseDuration = + Duration+ <$> (P.xchild (P.name "duration") (P.xtext >>= parsePositiveDivisions))++-- | Smart constructor for 'Duration'+mkDuration :: PositiveDivisions -> Duration+mkDuration a = Duration a++-- | @editorial@ /(group)/+data Editorial = + Editorial {+ editorialFootnote :: (Maybe Footnote)+ , editorialLevel :: (Maybe GrpLevel)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Editorial where+ emitXml (Editorial a b) =+ XReps [emitXml a,emitXml b]+parseEditorial :: P.XParse Editorial+parseEditorial = + Editorial+ <$> P.optional (parseFootnote)+ <*> P.optional (parseGrpLevel)++-- | Smart constructor for 'Editorial'+mkEditorial :: Editorial+mkEditorial = Editorial Nothing Nothing++-- | @editorial-voice@ /(group)/+data EditorialVoice = + EditorialVoice {+ editorialVoiceFootnote :: (Maybe Footnote)+ , editorialVoiceLevel :: (Maybe GrpLevel)+ , editorialVoiceVoice :: (Maybe Voice)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EditorialVoice where+ emitXml (EditorialVoice a b c) =+ XReps [emitXml a,emitXml b,emitXml c]+parseEditorialVoice :: P.XParse EditorialVoice+parseEditorialVoice = + EditorialVoice+ <$> P.optional (parseFootnote)+ <*> P.optional (parseGrpLevel)+ <*> P.optional (parseVoice)++-- | Smart constructor for 'EditorialVoice'+mkEditorialVoice :: EditorialVoice+mkEditorialVoice = EditorialVoice Nothing Nothing Nothing++-- | @editorial-voice-direction@ /(group)/+data EditorialVoiceDirection = + EditorialVoiceDirection {+ editorialVoiceDirectionFootnote :: (Maybe Footnote)+ , editorialVoiceDirectionLevel :: (Maybe GrpLevel)+ , editorialVoiceDirectionVoice :: (Maybe Voice)+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml EditorialVoiceDirection where+ emitXml (EditorialVoiceDirection a b c) =+ XReps [emitXml a,emitXml b,emitXml c]+parseEditorialVoiceDirection :: P.XParse EditorialVoiceDirection+parseEditorialVoiceDirection = + EditorialVoiceDirection+ <$> P.optional (parseFootnote)+ <*> P.optional (parseGrpLevel)+ <*> P.optional (parseVoice)++-- | Smart constructor for 'EditorialVoiceDirection'+mkEditorialVoiceDirection :: EditorialVoiceDirection+mkEditorialVoiceDirection = EditorialVoiceDirection Nothing Nothing Nothing++-- | @footnote@ /(group)/+data Footnote = + Footnote {+ footnoteFootnote :: FormattedText -- ^ /footnote/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Footnote where+ emitXml (Footnote a) =+ XContent XEmpty+ []+ ([XElement (QN "footnote" Nothing) (emitXml a)])+parseFootnote :: P.XParse Footnote+parseFootnote = + Footnote+ <$> (P.xchild (P.name "footnote") (parseFormattedText))++-- | Smart constructor for 'Footnote'+mkFootnote :: FormattedText -> Footnote+mkFootnote a = Footnote a++-- | @full-note@ /(group)/+data GrpFullNote = + GrpFullNote {+ fullNoteChord :: (Maybe Empty) -- ^ /chord/ child element+ , fullNoteFullNote :: FullNote+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GrpFullNote where+ emitXml (GrpFullNote a b) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "chord" Nothing).emitXml) a] +++ [emitXml b])+parseGrpFullNote :: P.XParse GrpFullNote+parseGrpFullNote = + GrpFullNote+ <$> P.optional (P.xchild (P.name "chord") (parseEmpty))+ <*> parseFullNote++-- | Smart constructor for 'GrpFullNote'+mkGrpFullNote :: FullNote -> GrpFullNote+mkGrpFullNote b = GrpFullNote Nothing b++-- | @harmony-chord@ /(group)/+data HarmonyChord = + HarmonyChord {+ harmonyChordHarmonyChord :: ChxHarmonyChord+ , harmonyChordKind :: Kind -- ^ /kind/ child element+ , harmonyChordInversion :: (Maybe Inversion) -- ^ /inversion/ child element+ , harmonyChordBass :: (Maybe Bass) -- ^ /bass/ child element+ , harmonyChordDegree :: [Degree] -- ^ /degree/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml HarmonyChord where+ emitXml (HarmonyChord a b c d e) =+ XContent XEmpty+ []+ ([emitXml a] +++ [XElement (QN "kind" Nothing) (emitXml b)] +++ [maybe XEmpty (XElement (QN "inversion" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "bass" Nothing).emitXml) d] +++ map (XElement (QN "degree" Nothing).emitXml) e)+parseHarmonyChord :: P.XParse HarmonyChord+parseHarmonyChord = + HarmonyChord+ <$> parseChxHarmonyChord+ <*> (P.xchild (P.name "kind") (parseKind))+ <*> P.optional (P.xchild (P.name "inversion") (parseInversion))+ <*> P.optional (P.xchild (P.name "bass") (parseBass))+ <*> P.many (P.xchild (P.name "degree") (parseDegree))++-- | Smart constructor for 'HarmonyChord'+mkHarmonyChord :: ChxHarmonyChord -> Kind -> HarmonyChord+mkHarmonyChord a b = HarmonyChord a b Nothing Nothing []++-- | @layout@ /(group)/+data Layout = + Layout {+ layoutPageLayout :: (Maybe PageLayout) -- ^ /page-layout/ child element+ , layoutSystemLayout :: (Maybe SystemLayout) -- ^ /system-layout/ child element+ , layoutStaffLayout :: [StaffLayout] -- ^ /staff-layout/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Layout where+ emitXml (Layout a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "page-layout" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "system-layout" Nothing).emitXml) b] +++ map (XElement (QN "staff-layout" Nothing).emitXml) c)+parseLayout :: P.XParse Layout+parseLayout = + Layout+ <$> P.optional (P.xchild (P.name "page-layout") (parsePageLayout))+ <*> P.optional (P.xchild (P.name "system-layout") (parseSystemLayout))+ <*> P.many (P.xchild (P.name "staff-layout") (parseStaffLayout))++-- | Smart constructor for 'Layout'+mkLayout :: Layout+mkLayout = Layout Nothing Nothing []++-- | @left-right-margins@ /(group)/+data LeftRightMargins = + LeftRightMargins {+ leftRightMarginsLeftMargin :: Tenths -- ^ /left-margin/ child element+ , leftRightMarginsRightMargin :: Tenths -- ^ /right-margin/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml LeftRightMargins where+ emitXml (LeftRightMargins a b) =+ XContent XEmpty+ []+ ([XElement (QN "left-margin" Nothing) (emitXml a)] +++ [XElement (QN "right-margin" Nothing) (emitXml b)])+parseLeftRightMargins :: P.XParse LeftRightMargins+parseLeftRightMargins = + LeftRightMargins+ <$> (P.xchild (P.name "left-margin") (P.xtext >>= parseTenths))+ <*> (P.xchild (P.name "right-margin") (P.xtext >>= parseTenths))++-- | Smart constructor for 'LeftRightMargins'+mkLeftRightMargins :: Tenths -> Tenths -> LeftRightMargins+mkLeftRightMargins a b = LeftRightMargins a b++-- | @level@ /(group)/+data GrpLevel = + GrpLevel {+ levelLevel :: Level -- ^ /level/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GrpLevel where+ emitXml (GrpLevel a) =+ XContent XEmpty+ []+ ([XElement (QN "level" Nothing) (emitXml a)])+parseGrpLevel :: P.XParse GrpLevel+parseGrpLevel = + GrpLevel+ <$> (P.xchild (P.name "level") (parseLevel))++-- | Smart constructor for 'GrpLevel'+mkGrpLevel :: Level -> GrpLevel+mkGrpLevel a = GrpLevel a++-- | @music-data@ /(group)/+data MusicData = + MusicData {+ musicDataMusicData :: [ChxMusicData]+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml MusicData where+ emitXml (MusicData a) =+ XReps [emitXml a]+parseMusicData :: P.XParse MusicData+parseMusicData = + MusicData+ <$> P.many (parseChxMusicData)++-- | Smart constructor for 'MusicData'+mkMusicData :: MusicData+mkMusicData = MusicData []++-- | @non-traditional-key@ /(group)/+data NonTraditionalKey = + NonTraditionalKey {+ nonTraditionalKeyKeyStep :: Step -- ^ /key-step/ child element+ , nonTraditionalKeyKeyAlter :: Semitones -- ^ /key-alter/ child element+ , nonTraditionalKeyKeyAccidental :: (Maybe KeyAccidental) -- ^ /key-accidental/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml NonTraditionalKey where+ emitXml (NonTraditionalKey a b c) =+ XContent XEmpty+ []+ ([XElement (QN "key-step" Nothing) (emitXml a)] +++ [XElement (QN "key-alter" Nothing) (emitXml b)] +++ [maybe XEmpty (XElement (QN "key-accidental" Nothing).emitXml) c])+parseNonTraditionalKey :: P.XParse NonTraditionalKey+parseNonTraditionalKey = + NonTraditionalKey+ <$> (P.xchild (P.name "key-step") (P.xtext >>= parseStep))+ <*> (P.xchild (P.name "key-alter") (P.xtext >>= parseSemitones))+ <*> P.optional (P.xchild (P.name "key-accidental") (parseKeyAccidental))++-- | Smart constructor for 'NonTraditionalKey'+mkNonTraditionalKey :: Step -> Semitones -> NonTraditionalKey+mkNonTraditionalKey a b = NonTraditionalKey a b Nothing++-- | @part-group@ /(group)/+data GrpPartGroup = + GrpPartGroup {+ partGroupPartGroup :: PartGroup -- ^ /part-group/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml GrpPartGroup where+ emitXml (GrpPartGroup a) =+ XContent XEmpty+ []+ ([XElement (QN "part-group" Nothing) (emitXml a)])+parseGrpPartGroup :: P.XParse GrpPartGroup+parseGrpPartGroup = + GrpPartGroup+ <$> (P.xchild (P.name "part-group") (parsePartGroup))++-- | Smart constructor for 'GrpPartGroup'+mkGrpPartGroup :: PartGroup -> GrpPartGroup+mkGrpPartGroup a = GrpPartGroup a++-- | @score-header@ /(group)/+data ScoreHeader = + ScoreHeader {+ scoreHeaderWork :: (Maybe Work) -- ^ /work/ child element+ , scoreHeaderMovementNumber :: (Maybe String) -- ^ /movement-number/ child element+ , scoreHeaderMovementTitle :: (Maybe String) -- ^ /movement-title/ child element+ , scoreHeaderIdentification :: (Maybe Identification) -- ^ /identification/ child element+ , scoreHeaderDefaults :: (Maybe Defaults) -- ^ /defaults/ child element+ , scoreHeaderCredit :: [Credit] -- ^ /credit/ child element+ , scoreHeaderPartList :: PartList -- ^ /part-list/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ScoreHeader where+ emitXml (ScoreHeader a b c d e f g) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "work" Nothing).emitXml) a] +++ [maybe XEmpty (XElement (QN "movement-number" Nothing).emitXml) b] +++ [maybe XEmpty (XElement (QN "movement-title" Nothing).emitXml) c] +++ [maybe XEmpty (XElement (QN "identification" Nothing).emitXml) d] +++ [maybe XEmpty (XElement (QN "defaults" Nothing).emitXml) e] +++ map (XElement (QN "credit" Nothing).emitXml) f +++ [XElement (QN "part-list" Nothing) (emitXml g)])+parseScoreHeader :: P.XParse ScoreHeader+parseScoreHeader = + ScoreHeader+ <$> P.optional (P.xchild (P.name "work") (parseWork))+ <*> P.optional (P.xchild (P.name "movement-number") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "movement-title") (P.xtext >>= return))+ <*> P.optional (P.xchild (P.name "identification") (parseIdentification))+ <*> P.optional (P.xchild (P.name "defaults") (parseDefaults))+ <*> P.many (P.xchild (P.name "credit") (parseCredit))+ <*> (P.xchild (P.name "part-list") (parsePartList))++-- | Smart constructor for 'ScoreHeader'+mkScoreHeader :: PartList -> ScoreHeader+mkScoreHeader g = ScoreHeader Nothing Nothing Nothing Nothing Nothing [] g++-- | @score-part@ /(group)/+data ScorePart = + ScorePart {+ grpscorePartScorePart :: CmpScorePart -- ^ /score-part/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml ScorePart where+ emitXml (ScorePart a) =+ XContent XEmpty+ []+ ([XElement (QN "score-part" Nothing) (emitXml a)])+parseScorePart :: P.XParse ScorePart+parseScorePart = + ScorePart+ <$> (P.xchild (P.name "score-part") (parseCmpScorePart))++-- | Smart constructor for 'ScorePart'+mkScorePart :: CmpScorePart -> ScorePart+mkScorePart a = ScorePart a++-- | @slash@ /(group)/+data Slash = + Slash {+ grpslashSlash :: (Maybe SeqSlash)+ , slashExceptVoice :: [String] -- ^ /except-voice/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Slash where+ emitXml (Slash a b) =+ XContent XEmpty+ []+ ([emitXml a] +++ map (XElement (QN "except-voice" Nothing).emitXml) b)+parseSlash :: P.XParse Slash+parseSlash = + Slash+ <$> P.optional (parseSeqSlash)+ <*> P.many (P.xchild (P.name "except-voice") (P.xtext >>= return))++-- | Smart constructor for 'Slash'+mkSlash :: Slash+mkSlash = Slash Nothing []++-- | @staff@ /(group)/+data Staff = + Staff {+ staffStaff :: PositiveInteger -- ^ /staff/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Staff where+ emitXml (Staff a) =+ XContent XEmpty+ []+ ([XElement (QN "staff" Nothing) (emitXml a)])+parseStaff :: P.XParse Staff+parseStaff = + Staff+ <$> (P.xchild (P.name "staff") (P.xtext >>= parsePositiveInteger))++-- | Smart constructor for 'Staff'+mkStaff :: PositiveInteger -> Staff+mkStaff a = Staff a++-- | @time-signature@ /(group)/+data TimeSignature = + TimeSignature {+ timeSignatureBeats :: String -- ^ /beats/ child element+ , timeSignatureBeatType :: String -- ^ /beat-type/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TimeSignature where+ emitXml (TimeSignature a b) =+ XContent XEmpty+ []+ ([XElement (QN "beats" Nothing) (emitXml a)] +++ [XElement (QN "beat-type" Nothing) (emitXml b)])+parseTimeSignature :: P.XParse TimeSignature+parseTimeSignature = + TimeSignature+ <$> (P.xchild (P.name "beats") (P.xtext >>= return))+ <*> (P.xchild (P.name "beat-type") (P.xtext >>= return))++-- | Smart constructor for 'TimeSignature'+mkTimeSignature :: String -> String -> TimeSignature+mkTimeSignature a b = TimeSignature a b++-- | @traditional-key@ /(group)/+data TraditionalKey = + TraditionalKey {+ traditionalKeyCancel :: (Maybe Cancel) -- ^ /cancel/ child element+ , traditionalKeyFifths :: Fifths -- ^ /fifths/ child element+ , traditionalKeyMode :: (Maybe Mode) -- ^ /mode/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml TraditionalKey where+ emitXml (TraditionalKey a b c) =+ XContent XEmpty+ []+ ([maybe XEmpty (XElement (QN "cancel" Nothing).emitXml) a] +++ [XElement (QN "fifths" Nothing) (emitXml b)] +++ [maybe XEmpty (XElement (QN "mode" Nothing).emitXml) c])+parseTraditionalKey :: P.XParse TraditionalKey+parseTraditionalKey = + TraditionalKey+ <$> P.optional (P.xchild (P.name "cancel") (parseCancel))+ <*> (P.xchild (P.name "fifths") (P.xtext >>= parseFifths))+ <*> P.optional (P.xchild (P.name "mode") (P.xtext >>= parseMode))++-- | Smart constructor for 'TraditionalKey'+mkTraditionalKey :: Fifths -> TraditionalKey+mkTraditionalKey b = TraditionalKey Nothing b Nothing++-- | @tuning@ /(group)/+data Tuning = + Tuning {+ tuningTuningStep :: Step -- ^ /tuning-step/ child element+ , tuningTuningAlter :: (Maybe Semitones) -- ^ /tuning-alter/ child element+ , tuningTuningOctave :: Octave -- ^ /tuning-octave/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Tuning where+ emitXml (Tuning a b c) =+ XContent XEmpty+ []+ ([XElement (QN "tuning-step" Nothing) (emitXml a)] +++ [maybe XEmpty (XElement (QN "tuning-alter" Nothing).emitXml) b] +++ [XElement (QN "tuning-octave" Nothing) (emitXml c)])+parseTuning :: P.XParse Tuning+parseTuning = + Tuning+ <$> (P.xchild (P.name "tuning-step") (P.xtext >>= parseStep))+ <*> P.optional (P.xchild (P.name "tuning-alter") (P.xtext >>= parseSemitones))+ <*> (P.xchild (P.name "tuning-octave") (P.xtext >>= parseOctave))++-- | Smart constructor for 'Tuning'+mkTuning :: Step -> Octave -> Tuning+mkTuning a c = Tuning a Nothing c++-- | @voice@ /(group)/+data Voice = + Voice {+ voiceVoice :: String -- ^ /voice/ child element+ }+ deriving (Eq,Typeable,Generic,Show)+instance EmitXml Voice where+ emitXml (Voice a) =+ XContent XEmpty+ []+ ([XElement (QN "voice" Nothing) (emitXml a)])+parseVoice :: P.XParse Voice+parseVoice = + Voice+ <$> (P.xchild (P.name "voice") (P.xtext >>= return))++-- | Smart constructor for 'Voice'+mkVoice :: String -> Voice+mkVoice a = Voice a
src/Fadno/Xml/Codegen.hs view
@@ -422,5 +422,5 @@ , "import qualified Fadno.Xml.XParse as P" , "import qualified Control.Applicative as P" , "import Control.Applicative ((<|>))"- , "import Control.Arrow as A"+ , "import qualified Control.Arrow as A" ]