Imported Upstream version 2.14.2

[lilypond.git] / input / lsr / letter-tablature-formatting.ly

diff --git a/input/lsr/letter-tablature-formatting.ly b/input/lsr/letter-tablature-formatting.ly
deleted file mode 100644 (file)
index 9b247dc..0000000
--- 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
-  }
->>