X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fletter-tablature-formatting.ly;fp=input%2Flsr%2Fletter-tablature-formatting.ly;h=0000000000000000000000000000000000000000;hb=e90f0536f9be39ada0bef0aeb0d275dec3b2fb5b;hp=9b247dcb22a25b4317399d389b2add2bb6bf2112;hpb=a8c9e8a7ca320ab0df5fd32e717fd62cd7635ce6;p=lilypond.git

diff --git a/input/lsr/letter-tablature-formatting.ly b/input/lsr/letter-tablature-formatting.ly
deleted file mode 100644
index 9b247dcb22..0000000000
--- a/input/lsr/letter-tablature-formatting.ly
+++ /dev/null
@@ -1,42 +0,0 @@
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
-%% This file is in the public domain.
-\version "2.12.3"
-
-\header {
-  lsrtags = "staff-notation, fretted-strings"
-
-  texidoc = "
-Tablature can be formatted using letters instead of numbers. 
-
-"
-  doctitle = "Letter tablature formatting"
-} % begin verbatim
-
-#(define (letter-tablature-format str context event)
-  (let ((tuning (ly:context-property context 'stringTunings))
-        (pitch (ly:event-property event 'pitch)))
-    (make-whiteout-markup
-     (make-vcenter-markup
-      (string (integer->char
-         (+ (char->integer #\a)
-            (- (ly:pitch-semitones pitch)
-            (list-ref tuning (- str 1))))))))))
-
-music = \relative c {
-  c4 d e f
-  g4 a b c
-  d4 e f g
-}
-
-<<
-  \new Staff {
-    \clef "G_8"
-    \music
-  }
-  \new TabStaff \with { 
-    tablatureFormat = #letter-tablature-format
-  }
-  {
-    \music
-  }
->>