Re: MusicXML exporter (was Re: Lilypond lobbying?)

[Jan Nieuwenhuizen]

Pierre THIERRY writes:

[cc lilypond-devel]

> If memory serves, so far we have US$200, C$100 and €200. If I were to
> work alone on this bounty, that would allow me to allocate
> approximately 20hrs, which should clearly be enough to write a nice
> XML exporting in some schema mimicking Lilypond's representation, and
> probably also the XSLT transformation to MusicXML (I'm not sure how
> much time figuring it and then debugging it will take, it has been
> ages since I played with XSLT).

To fix this bug, what we need is a very clear bug report to know when we
can close it.  Actually, we require that for all bugs, so #665 should
never have been entered into the bug database like this.

What I would like to see attached to #665 is at least one .ly with
corresponding .xml with bonusses attached.

Possibly it's best to delay #665 and split it up into several different
issues (and attached bounties), each with it's own .ly -- and starting
with a most simple one.

It's only about an hour of work (see below) to convert a simple and
prepared .ly score to musicxml, see below.

Jan

>From 8dd82d867fcf9b7b9a554016de02109ab6486a0c Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <address@hidden>
Date: Wed, 24 Aug 2011 15:46:34 +0200
Subject: [PATCH 1/3] [MusicXML]: Hello world xslt stylesheet for MusicXML 
output.

---
 xml/GNUmakefile |    2 ++
 xml/test-1.xml  |   28 ++++++++++++++++++++++++++++
 xml/to-xml.html |   17 +++++++++++++++++
 xml/xml.ly      |   16 ++++++++++++++++
 xml/xml.xml     |   38 ++++++++++++++++++++++++++++++++++++++
 5 files changed, 101 insertions(+), 0 deletions(-)
 create mode 100644 xml/GNUmakefile
 create mode 100644 xml/test-1.xml
 create mode 100644 xml/to-xml.html
 create mode 100644 xml/xml.ly
 create mode 100644 xml/xml.xml

diff --git a/xml/GNUmakefile b/xml/GNUmakefile
new file mode 100644
index 0000000..83d803c
--- /dev/null
+++ b/xml/GNUmakefile
@@ -0,0 +1,2 @@
+test:
+       xsltproc to-xml.html test-1.xml 
\ No newline at end of file
diff --git a/xml/test-1.xml b/xml/test-1.xml
new file mode 100644
index 0000000..3c33cc8
--- /dev/null
+++ b/xml/test-1.xml
@@ -0,0 +1,28 @@
+<music>
+<NoteEvent>
+<pitch
+   octave="1"
+   notename="0"
+   alteration="0">
+</pitch>
+<duration
+   log="2"
+   dots="0"
+   numer="1"
+   denom="1">
+</duration>
+</NoteEvent>
+<NoteEvent>
+<pitch
+   octave="2"
+   notename="1"
+   alteration="0">
+</pitch>
+<duration
+   log="2"
+   dots="0"
+   numer="1"
+   denom="1">
+</duration>
+</NoteEvent>
+</music>
\ No newline at end of file
diff --git a/xml/to-xml.html b/xml/to-xml.html
new file mode 100644
index 0000000..f1da85a
--- /dev/null
+++ b/xml/to-xml.html
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform";>
+
+  <xsl:template match="/">
+    <xml>
+      <score-partwise>
+       <xsl:for-each select="music">
+         <xsl:for-each select="NoteEvent">
+           <pitch><xsl:value-of select="pitch"/>
+             <octave><xsl:value-of select="pitch"/></octave>
+           </pitch>
+         </xsl:for-each>
+       </xsl:for-each>
+      </score-partwise>
+    </xml>
+  </xsl:template>
+</xsl:stylesheet>
diff --git a/xml/xml.ly b/xml/xml.ly
new file mode 100644
index 0000000..2ade547
--- /dev/null
+++ b/xml/xml.ly
@@ -0,0 +1,16 @@
+\version "2.14.0"
+
+testMusic =  { << c''4 \\ g'4 >> }
+
+#(use-modules (scm to-xml))
+
+#(ly:progress "\nXML:\n\n~A\n" (call-with-output-string (lambda (p) 
(music-to-xml testMusic p))))
+
+
+\header {
+  texidoc =
+  "The input representation is generic, and may be translated to XML. "
+}
+
+
+{ \testMusic }
diff --git a/xml/xml.xml b/xml/xml.xml
new file mode 100644
index 0000000..12ca68a
--- /dev/null
+++ b/xml/xml.xml
@@ -0,0 +1,38 @@
+<music
+   type="score">
+<SequentialMusic>
+<SimultaneousMusic>
+<EventChord>
+<NoteEvent>
+<pitch
+   octave="1"
+   notename="0"
+   alteration="0">
+</pitch>
+<duration
+   log="2"
+   dots="0"
+   numer="1"
+   denom="1">
+</duration>
+</NoteEvent>
+</EventChord>
+<VoiceSeparator>
+</VoiceSeparator>
+<EventChord>
+<NoteEvent>
+<pitch
+   octave="0"
+   notename="4"
+   alteration="0">
+</pitch>
+<duration
+   log="2"
+   dots="0"
+   numer="1"
+   denom="1">
+</duration>
+</NoteEvent>
+</EventChord>
+</SimultaneousMusic>
+</SequentialMusic></music>
-- 
1.7.4.1

>From ec8bf2adb089f4c1c38462afc1e8ec3fb0e33a60 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <address@hidden>
Date: Wed, 24 Aug 2011 15:58:33 +0200
Subject: [PATCH 2/3] [MusicXML]: use apply-templates.

---
 xml/to-xml.html |   35 ++++++++++++++++++++++++++++-------
 1 files changed, 28 insertions(+), 7 deletions(-)

diff --git a/xml/to-xml.html b/xml/to-xml.html
index f1da85a..3768641 100644
--- a/xml/to-xml.html
+++ b/xml/to-xml.html
@@ -4,14 +4,35 @@
   <xsl:template match="/">
     <xml>
       <score-partwise>
-       <xsl:for-each select="music">
-         <xsl:for-each select="NoteEvent">
-           <pitch><xsl:value-of select="pitch"/>
-             <octave><xsl:value-of select="pitch"/></octave>
-           </pitch>
-         </xsl:for-each>
-       </xsl:for-each>
+       <xsl:apply-templates/>
       </score-partwise>
     </xml>
   </xsl:template>
+
+
+  <xsl:template match="EventChord">
+    <xsl:apply-templates/>
+  </xsl:template>
+
+  <xsl:template match="NoteEvent">
+    <xsl:apply-templates/>
+  </xsl:template>
+
+  <xsl:template match="SequentialMusic">
+    <xsl:apply-templates/>
+  </xsl:template>
+
+  <xsl:template match="SimultaneousMusic">
+    <xsl:apply-templates/>
+  </xsl:template>
+
+  <xsl:template match="pitch">
+    <pitch><xsl:value-of select="pitch"/>
+      <octave><xsl:value-of select="pitch"/></octave>
+    </pitch>
+  </xsl:template>
+
+  <xsl:template match="duration">
+  </xsl:template>
+
 </xsl:stylesheet>
-- 
1.7.4.1

>From e44e345fc6cc718a5ea7560caf1245db7e8f3745 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <address@hidden>
Date: Wed, 24 Aug 2011 22:48:27 +0200
Subject: [PATCH 3/3] [MusicXML]: convert simple .ly to working .mxml

---
 xml/GNUmakefile       |   22 +++++++++++++++-
 xml/lyxml-to-mxml.xsl |   62 +++++++++++++++++++++++++++++++++++++++++++++++++
 xml/test-1.ly         |   14 +++++++++++
 xml/test-1.xml        |   28 ----------------------
 xml/to-xml.html       |   38 ------------------------------
 xml/xml.xml           |   38 ------------------------------
 6 files changed, 96 insertions(+), 106 deletions(-)
 create mode 100644 xml/lyxml-to-mxml.xsl
 create mode 100644 xml/test-1.ly
 delete mode 100644 xml/test-1.xml
 delete mode 100644 xml/to-xml.html
 delete mode 100644 xml/xml.xml

diff --git a/xml/GNUmakefile b/xml/GNUmakefile
index 83d803c..565baad 100644
--- a/xml/GNUmakefile
+++ b/xml/GNUmakefile
@@ -1,2 +1,20 @@
-test:
-       xsltproc to-xml.html test-1.xml 
\ No newline at end of file
+test: test-1.mxml.pdf
+
+LILYPOND=../out/bin/lilypond
+MUSICXML2LY=../out/bin/musicxml2ly
+XSLT2=saxonb-xslt -ext:on
+
+%.mxml.ly: %.mxml
+       $(MUSICXML2LY) --output=$@ $<
+
+%.mxml.pdf: %.mxml.ly
+       $(LILYPOND) $<
+
+%.lyxml: %.ly
+       $(LILYPOND) $< > $@
+
+%.mxml: %.lyxml lyxml-to-mxml.xsl
+       $(XSLT2) $< lyxml-to-mxml.xsl > $@
+
+clean:
+       rm -f *.lyxml *.mxml *.xml *.pdf *.*.*
diff --git a/xml/lyxml-to-mxml.xsl b/xml/lyxml-to-mxml.xsl
new file mode 100644
index 0000000..a9c341d
--- /dev/null
+++ b/xml/lyxml-to-mxml.xsl
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<xsl:stylesheet version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform";
+               xmlns:Math="http://www.math.org/";
+               xmlns:xs="http://www.w3.org/2001/XMLSchema";>
+
+  <xsl:template match="/">
+    <score-partwise>
+      <part-list>
+       <score-part id="P1">
+         <part-name>P1</part-name>
+       </score-part>
+      </part-list>
+      <part id="P1">
+       <measure number="1">
+         <xsl:apply-templates/>
+       </measure>
+      </part>
+    </score-partwise>
+  </xsl:template>
+
+  <xsl:template match="EventChord">
+    <xsl:apply-templates/>
+  </xsl:template>
+
+  <xsl:template match="NoteEvent">
+    <note>
+      <xsl:apply-templates/>
+    </note>
+  </xsl:template>
+
+  <xsl:template match="SequentialMusic">
+    <xsl:apply-templates/>
+  </xsl:template>
+
+  <xsl:template match="SimultaneousMusic">
+    <xsl:apply-templates/>
+  </xsl:template>
+
+  <xsl:template match="pitch">
+    <pitch>
+      <step><xsl:value-of select="codepoints-to-string (xs:integer (65 + 
((number (@notename) + 2) mod 7)))"/></step>
+      <octave><xsl:value-of select="sum (4, @octave)"/></octave>
+    </pitch>
+  </xsl:template>
+
+  <xsl:template match="duration">
+    <duration>1</duration>
+    <!--
+    <duration><xsl:value-of select="8 div Math:pow (2, @log)"
+                           xmlns:Math="java:java.lang.Math"/></duration>
+    !-->
+    <type>
+      <xsl:choose>
+       <xsl:when test="@log = 0">whole</xsl:when>
+       <xsl:when test="@log = 1">halve</xsl:when>
+       <xsl:when test="@log = 2">quarter</xsl:when>
+       <xsl:when test="@log = 3">eighth</xsl:when>
+      </xsl:choose>
+    </type>
+  </xsl:template>
+
+</xsl:stylesheet>
diff --git a/xml/test-1.ly b/xml/test-1.ly
new file mode 100644
index 0000000..7e12a3c
--- /dev/null
+++ b/xml/test-1.ly
@@ -0,0 +1,14 @@
+\version "2.14.0"
+
+\header {
+  texidoc =
+  "The input representation is generic, and may be translated to XML. "
+}
+
+testMusic =  { c' d' e'8 f g a b}
+
+#(use-modules (scm to-xml))
+
+#(display (call-with-output-string (lambda (p) (music-to-xml testMusic p))))
+
+{ \testMusic }
diff --git a/xml/test-1.xml b/xml/test-1.xml
deleted file mode 100644
index 3c33cc8..0000000
--- a/xml/test-1.xml
+++ /dev/null
@@ -1,28 +0,0 @@
-<music>
-<NoteEvent>
-<pitch
-   octave="1"
-   notename="0"
-   alteration="0">
-</pitch>
-<duration
-   log="2"
-   dots="0"
-   numer="1"
-   denom="1">
-</duration>
-</NoteEvent>
-<NoteEvent>
-<pitch
-   octave="2"
-   notename="1"
-   alteration="0">
-</pitch>
-<duration
-   log="2"
-   dots="0"
-   numer="1"
-   denom="1">
-</duration>
-</NoteEvent>
-</music>
\ No newline at end of file
diff --git a/xml/to-xml.html b/xml/to-xml.html
deleted file mode 100644
index 3768641..0000000
--- a/xml/to-xml.html
+++ /dev/null
@@ -1,38 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform";>
-
-  <xsl:template match="/">
-    <xml>
-      <score-partwise>
-       <xsl:apply-templates/>
-      </score-partwise>
-    </xml>
-  </xsl:template>
-
-
-  <xsl:template match="EventChord">
-    <xsl:apply-templates/>
-  </xsl:template>
-
-  <xsl:template match="NoteEvent">
-    <xsl:apply-templates/>
-  </xsl:template>
-
-  <xsl:template match="SequentialMusic">
-    <xsl:apply-templates/>
-  </xsl:template>
-
-  <xsl:template match="SimultaneousMusic">
-    <xsl:apply-templates/>
-  </xsl:template>
-
-  <xsl:template match="pitch">
-    <pitch><xsl:value-of select="pitch"/>
-      <octave><xsl:value-of select="pitch"/></octave>
-    </pitch>
-  </xsl:template>
-
-  <xsl:template match="duration">
-  </xsl:template>
-
-</xsl:stylesheet>
diff --git a/xml/xml.xml b/xml/xml.xml
deleted file mode 100644
index 12ca68a..0000000
--- a/xml/xml.xml
+++ /dev/null
@@ -1,38 +0,0 @@
-<music
-   type="score">
-<SequentialMusic>
-<SimultaneousMusic>
-<EventChord>
-<NoteEvent>
-<pitch
-   octave="1"
-   notename="0"
-   alteration="0">
-</pitch>
-<duration
-   log="2"
-   dots="0"
-   numer="1"
-   denom="1">
-</duration>
-</NoteEvent>
-</EventChord>
-<VoiceSeparator>
-</VoiceSeparator>
-<EventChord>
-<NoteEvent>
-<pitch
-   octave="0"
-   notename="4"
-   alteration="0">
-</pitch>
-<duration
-   log="2"
-   dots="0"
-   numer="1"
-   denom="1">
-</duration>
-</NoteEvent>
-</EventChord>
-</SimultaneousMusic>
-</SequentialMusic></music>
-- 
1.7.4.1

-- 
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl