Adding MusicXML tests

Author: aminya

Project.toml

@@ -21,7 +21,8 @@ DataFrames = "a93c6f00-e57d-5684-b7b6-d8193f3e46c0"
 Dates = "ade2ca70-3891-5945-98fb-dc099432e06a"
 EzXML = "8f5d6c58-4d21-5cfd-889c-e3ad7ee6a615"
 Suppressor = "fd094767-a336-5f1f-9728-57cf17d0bbfb"
+MusicXML = "521615e9-e573-4eb2-bc7e-702d55c0bb95"
 Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
 
 [targets]
-test = ["Test", "Suppressor", "DataFrames", "Dates", "EzXML"]
+test = ["Test", "Suppressor", "DataFrames", "Dates", "EzXML", "MusicXML"]

test/Test.toml

@@ -3,4 +3,5 @@ DataFrames = "a93c6f00-e57d-5684-b7b6-d8193f3e46c0"
 Suppressor = "fd094767-a336-5f1f-9728-57cf17d0bbfb"
 Dates = "ade2ca70-3891-5945-98fb-dc099432e06a"
 EzXML = "8f5d6c58-4d21-5cfd-889c-e3ad7ee6a615"
+MusicXML = "521615e9-e573-4eb2-bc7e-702d55c0bb95"
 Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"

test/musicxml/creating.jl

@@ -0,0 +1,105 @@
+using MusicXML
+
+## Part List
+### Piano
+midiinstrument_piano = MidiInstrument(channel= 1, program =1, volume = 100, pan =0, id = "P1-I1")
+scorepart_piano = ScorePart(name = "Piano", midiinstrument = midiinstrument_piano, id = "P1")
+
+### Acoustic Guitar
+midiinstrument_guitar = MidiInstrument(channel= 1, program =26, volume = 100, pan =0, id = "P2-I1")
+scorepart_guitar = ScorePart(name = "Acoustic Guitar", midiinstrument = midiinstrument_guitar, id = "P2")
+
+###
+partlist = PartList(scoreparts = [scorepart_piano, scorepart_guitar])
+
+## Part
+### Piano
+
+attributes1_piano = Attributes(
+   time = Time(beats = 4, beattype = 4), # 4/4
+   divisions = 4, # we want to use 16th notes at minimum
+   clef = [Clef(number = 1, sign = "G", line = 2), Clef(number = 2, sign = "F", line = 4)], # Piano clefs
+   staves = 2, # Piano staves
+   key = Key(fifths = 0, mode = "major"), # no accidentals, major key
+)
+
+measure1_notes_piano = [
+NoteX(pitch = Pitch(step = "C", alter = 0, octave = 4), duration =  4),
+NoteX(pitch = Pitch(step = "D", alter = 0, octave = 4), duration =  4),
+NoteX(pitch = Pitch(step = "E", alter = 0, octave = 4), duration =  4),
+NoteX(pitch = Pitch(step = "F", alter = +1, octave = 4), duration =  4),
+]
+
+measure2_notes_piano = [
+NoteX(pitch = Pitch(step = "G", alter = 0, octave = 5), duration =  1),
+NoteX(pitch = Pitch(step = "G", alter = +1, octave = 5), duration =  1),
+NoteX(pitch = Pitch(step = "B", alter = 0, octave = 5), duration =  1),
+NoteX(pitch = Pitch(step = "A", alter = +1, octave = 5), duration =  1),
+NoteX(rest = Rest(), duration =  4), # Rest
+NoteX(pitch = Pitch(step = "A", alter = 0, octave = 5), duration =  4),
+NoteX(pitch = Pitch(step = "B", alter = 0, octave = 5), duration =  4),
+]
+
+measures_piano = [
+Measure(attributes = attributes1_piano, notes = measure1_notes_piano) # measure 1 has attributes
+Measure(notes = measure2_notes_piano)
+]
+
+
+part_piano = Part(measures = measures_piano, id = "P1")
+
+
+### Guitar
+
+attributes1_guitar = Attributes(
+   time = Time(beats = 4, beattype = 4), # 4/4
+   divisions = 4, # we want to use 16th notes at minimum
+   clef = [Clef(number = 1, sign = "G", line = 2), Clef(number = 2, sign = "TAB", line = 6)], # Guitar Clefs
+   staves = 2, # Guitar staves
+   key = Key(fifths = 0, mode = "major"), # no accidentals, major key
+)
+
+measure1_notes_guitar = [
+# G Major chord for a bar
+NoteX(pitch = Pitch(step = "G", alter = 0, octave = 2), duration =  16, chord = Chord()),
+NoteX(pitch = Pitch(step = "B", alter = 0, octave = 2), duration =  16, chord = Chord()),
+NoteX(pitch = Pitch(step = "D", alter = 0, octave = 3), duration =  16, chord = Chord()),
+NoteX(pitch = Pitch(step = "G", alter = 0, octave = 3), duration =  16, chord = Chord()),
+NoteX(pitch = Pitch(step = "D", alter = 0, octave = 4), duration =  16, chord = Chord()),
+NoteX(pitch = Pitch(step = "G", alter = 0, octave = 4), duration =  16, chord = Chord()),
+]
+
+measure2_notes_guitar = [
+# G Major chord for half a bar
+NoteX(pitch = Pitch(step = "G", alter = 0, octave = 2), duration =  8, chord = Chord()),
+NoteX(pitch = Pitch(step = "B", alter = 0, octave = 2), duration =  8, chord = Chord()),
+NoteX(pitch = Pitch(step = "D", alter = 0, octave = 3), duration =  8, chord = Chord()),
+NoteX(pitch = Pitch(step = "G", alter = 0, octave = 3), duration =  8, chord = Chord()),
+NoteX(pitch = Pitch(step = "D", alter = 0, octave = 4), duration =  8, chord = Chord()),
+NoteX(pitch = Pitch(step = "G", alter = 0, octave = 4), duration =  8, chord = Chord()),
+
+# G Major chord for half a bar
+NoteX(pitch = Pitch(step = "G", alter = 0, octave = 2), duration =  8, chord = Chord()),
+NoteX(pitch = Pitch(step = "B", alter = 0, octave = 2), duration =  8, chord = Chord()),
+NoteX(pitch = Pitch(step = "D", alter = 0, octave = 3), duration =  8, chord = Chord()),
+NoteX(pitch = Pitch(step = "G", alter = 0, octave = 3), duration =  8, chord = Chord()),
+NoteX(pitch = Pitch(step = "D", alter = 0, octave = 4), duration =  8, chord = Chord()),
+NoteX(pitch = Pitch(step = "G", alter = 0, octave = 4), duration =  8, chord = Chord()),
+]
+
+measures_guitar = [
+Measure(attributes = attributes1_guitar, notes = measure1_notes_guitar) # measure 1 has attributes
+Measure(notes = measure2_notes_guitar)
+]
+
+
+part_guitar = Part(measures = measures_guitar, id = "P2")
+
+##
+score = ScorePartwise(
+partlist = partlist,
+parts =  [part_piano, part_guitar],
+)
+
+
+writemusicxml("myscore.musicxml", score)