From 532991560c5ae08f1e73a24f57ae5ab0c0c750b8 Mon Sep 17 00:00:00 2001
From: Eric Rangell <erangell@gmail.com>
Date: Sat, 26 Jun 2021 19:04:05 -0400
Subject: [PATCH] Fixed rendering order: dot before accidental,
 time-modification before beam

---
 MusicXML.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/MusicXML.scm b/MusicXML.scm
index 46f70c3..4a5c611 100644
--- a/MusicXML.scm
+++ b/MusicXML.scm
@@ -148,12 +148,11 @@
 
            (writeln "<voice>~A</voice>" voice)
            (writetype dur)
+           (writedots (if (ly:duration? dur) (ly:duration-dot-count dur) 0))
            (if accidental
                (writeln "<accidental>~A</accidental>" (acctext accidental)))
-           (writedots (if (ly:duration? dur) (ly:duration-dot-count dur) 0))
-
-           (if (symbol? beam) (writeln "<beam number=\"1\">~A</beam>" beam))
            (writetimemod dur)
+           (if (symbol? beam) (writeln "<beam number=\"1\">~A</beam>" beam))
            (writetuplet tuplet)
            (if (and (not chord) (list? lyrics))
                (for-each