From 153cd2cfb872b541e3c209c022f8ac4dc21d2912 Mon Sep 17 00:00:00 2001
From: Klaus <klaus.rettinghaus@gmail.com>
Date: Thu, 30 Jan 2020 13:31:36 +0100
Subject: [PATCH] add support for mensural durations

---
 README.md   |  2 +-
 mei2pae.xsl | 26 +++++++++++++++++++++++++-
 2 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 720707c..9723ad6 100644
--- a/README.md
+++ b/README.md
@@ -3,7 +3,7 @@
 Little XSLT to extract short incipits from MEI files encoded with [Plaine and Easie Code](https://www.iaml.info/plaine-easie-code).
 
 ### Usage
-The template takes the first `<score>` element in the file as basis. 
+The stylesheet takes the first `<score>` element in the file as basis. 
 It takes following parameters: 
 * `staff` – selects the staff in the MEI file (default is 1)
 * `layer` – selects the layer in the MEI file (default is 1)
diff --git a/mei2pae.xsl b/mei2pae.xsl
index b5c16a1..6731e61 100644
--- a/mei2pae.xsl
+++ b/mei2pae.xsl
@@ -354,8 +354,9 @@
 
   <xsl:template name="setDuration">
     <xsl:param name="durval" select="@dur" />
-    <!-- data.DURATION.cmn -->
+    <!-- data.DURATION -->
     <xsl:choose>
+      <!-- data.DURATION.cmn -->
       <xsl:when test="@dur = 'long'">
         <xsl:text>0</xsl:text>
       </xsl:when>
@@ -386,6 +387,29 @@
       <xsl:when test="@dur = '128'">
         <xsl:text>7</xsl:text>
       </xsl:when>
+      <!-- data.DURATION.mensural -->
+      <xsl:when test="@dur = 'maxima'"></xsl:when>
+      <xsl:when test="@dur = 'longa'">
+        <xsl:text>0</xsl:text>
+      </xsl:when>
+      <xsl:when test="@dur = 'brevis'">
+        <xsl:text>9</xsl:text>
+      </xsl:when>
+      <xsl:when test="@dur = 'semibrevis'">
+        <xsl:text>1</xsl:text>
+      </xsl:when>
+      <xsl:when test="@dur = 'minima'">
+        <xsl:text>2</xsl:text>
+      </xsl:when>
+      <xsl:when test="@dur = 'semiminima'">
+        <xsl:text>4</xsl:text>
+      </xsl:when>
+      <xsl:when test="@dur = 'fusa'">
+        <xsl:text>8</xsl:text>
+      </xsl:when>
+      <xsl:when test="@dur = 'semifusa'">
+        <xsl:text>6</xsl:text>
+      </xsl:when>
       <xsl:otherwise>
         <xsl:message>Shorter durations than 128th are not supported.</xsl:message>
       </xsl:otherwise>