| <?xml version="1.0"?> |
| <!-- |
| Licensed to the Apache Software Foundation (ASF) under one or more |
| contributor license agreements. See the NOTICE file distributed with |
| this work for additional information regarding copyright ownership. |
| The ASF licenses this file to You under the Apache License, Version 2.0 |
| (the "License"); you may not use this file except in compliance with |
| the License. You may obtain a copy of the License at |
| |
| http://www.apache.org/licenses/LICENSE-2.0 |
| |
| Unless required by applicable law or agreed to in writing, software |
| distributed under the License is distributed on an "AS IS" BASIS, |
| WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| See the License for the specific language governing permissions and |
| limitations under the License. |
| --> |
| <xsl:stylesheet version="1.0" |
| xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> |
| |
| <xsl:template match="MTrk"> |
| <xsl:copy> |
| <xsl:apply-templates select="@*"/> |
| <xsl:variable name="deltas" select="DELTA[descendant::NOTE_ON]"/> |
| <xsl:variable name="deltaCount" select="count($deltas)"/> |
| <xsl:comment>Count: <xsl:value-of select="$deltaCount"/></xsl:comment> |
| <xsl:for-each select="DELTA"> |
| <xsl:choose> |
| <xsl:when test="descendant::NOTE_ON"> |
| <xsl:variable name="position" select="count(preceding-sibling::DELTA[descendant::NOTE_ON]) + 1"/> |
| <xsl:variable name="newPosition" select="($deltaCount - $position) + 1"/> |
| <xsl:comment>Position: <xsl:value-of select="$position"/>, New: <xsl:value-of select="$newPosition"/></xsl:comment> |
| <xsl:copy> |
| <xsl:variable name="followingDelta" select="following-sibling::DELTA[descendant::NOTE_ON]"/> |
| <xsl:attribute name="DTIME"> |
| <xsl:choose> |
| <xsl:when test="$position = 1">00000000</xsl:when> |
| <xsl:when test="$followingDelta"> |
| <xsl:value-of select="$followingDelta/@DTIME"/> |
| </xsl:when> |
| <xsl:otherwise>00000000</xsl:otherwise> |
| </xsl:choose> |
| </xsl:attribute> |
| <xsl:comment>The DTIME was <xsl:value-of select="@DTIME"/>, and is <xsl:value-of select="$followingDelta/@DTIME"/></xsl:comment> |
| <xsl:copy-of select="$deltas[$newPosition]/*"/> |
| </xsl:copy> |
| </xsl:when> |
| <xsl:otherwise> |
| <xsl:copy> |
| <xsl:apply-templates select="@*"/> |
| <xsl:apply-templates/> |
| </xsl:copy> |
| </xsl:otherwise> |
| </xsl:choose> |
| </xsl:for-each> |
| </xsl:copy> |
| </xsl:template> |
| |
| <xsl:template match="node()|@*"> |
| <xsl:copy> |
| <xsl:apply-templates select="node()|@*"/> |
| </xsl:copy> |
| </xsl:template> |
| |
| </xsl:stylesheet> |
| |