From 3b88471ab8ed28ff66657957c2a3f3882cc6aeac Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Wed, 1 Jun 2022 21:41:57 -0300
Subject: Generate LilyPond files in dynamic.mk

---
 music/guitar.ly.include | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 music/guitar.ly.include

(limited to 'music/guitar.ly.include')

diff --git a/music/guitar.ly.include b/music/guitar.ly.include
new file mode 100644
index 0000000..592ad5c
--- /dev/null
+++ b/music/guitar.ly.include
@@ -0,0 +1,33 @@
+
+pestanaPrivate = \markup {
+  \fontsize #-2
+  \combine
+    \roman C
+    \translate #'(0.6 . -0.4) \draw-line #'(0 . 2.0)
+}
+
+pestanaSingle =
+  #(define-music-function (fret-number music) (string? ly:music?)
+     #{
+       $music ^\markup { \pestanaPrivate \fontsize #-2 $fret-number }
+     #})
+
+pestanaSpan =
+  #(define-music-function (fret-number) (string?)
+     #{
+       \once \override TextSpanner.font-shape = #'upright
+       \once \override TextSpanner.style = #'solid
+       \once \override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
+       \once \override TextSpanner.bound-details.right.text = \markup { \draw-line #'(0 . -.5) }
+       \once \override TextSpanner.bound-details.left.text = \markup { \pestanaPrivate \fontsize #-2 $fret-number }
+     #})
+
+corda =
+  #(define-music-function (string-number) (string?)
+    #{
+      \once \override TextSpanner.style = #'solid
+      \once \override TextSpanner.font-size = #-5
+      \once \override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
+      \once \override TextSpanner.bound-details.right.text = \markup { \draw-line #'( 0 . -.5) }
+      \once \override TextSpanner.bound-details.left.text = \markup { \circle \number $string-number }
+    #})
-- 
cgit v1.2.3