2025-09-08 01:39

Author: SilverRainZ

notes/man/lily/.gitignore

@@ -0,0 +1,3 @@
+*.pdf
+*.png
+*.svg

notes/man/lily.rst renamed to notes/man/lily/index.rst

@@ -0,0 +1,36 @@
+% https://lists.gnu.org/archive/html/lilypond-user/2023-03/msg00001.html
+
+\version "2.24.0"
+
+#(define (romanNumeralChordEngraver cx)
+   (let ((tonic #{ c #}))
+     (make-engraver
+       ((initialize engraver)
+        (ly:context-set-property! cx 'chordRootNamer
+        (lambda
+          (pitch capitalized)
+          (let
+            ((degree (1+ (ly:pitch-notename (ly:pitch-diff pitch tonic))))
+             (style (if capitalized 'roman-lower 'roman-upper)))
+            (number-format style degree)))))
+       (listeners
+         ((key-change-event engraver event)
+          (set! tonic (ly:event-property event 'tonic)))))))
+
+\layout {
+  \context {
+    \ChordNames
+    \consists #romanNumeralChordEngraver
+  }
+}
+
+\score {
+  <<
+    \new ChordNames {
+      \set chordNameLowercaseMinor = ##t
+      \set chordChanges = ##t \chordmode {
+        c1 d:m e:m f g:7 a:m b:7
+      }
+    }
+  >>
+}