Documentation/snippets/fretted-string-harmonics-in-tablature.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.di.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.18.0"
   8
   9 \header {
  10   lsrtags = "fretted-strings"
  11
  12   texidoc = "
  13 Demonstrates fretted-string harmonics in tablature
  14
  15 "
  16   doctitle = "Fretted-string harmonics in tablature"
  17 } % begin verbatim
  18
  19 pinchedHarmonics = {
  20    \textSpannerDown
  21    \override TextSpanner.bound-details.left.text =
  22       \markup {\halign #-0.5 \teeny "PH" }
  23       \override TextSpanner.style =
  24          #'dashed-line
  25    \override TextSpanner.dash-period = #0.6
  26    \override TextSpanner.bound-details.right.attach-dir = #1
  27    \override TextSpanner.bound-details.right.text =
  28       \markup { \draw-line #'(0 . 1) }
  29    \override TextSpanner.bound-details.right.padding = #-0.5
  30 }
  31
  32 harmonics = {
  33   %artificial harmonics (AH)
  34   \textLengthOn
  35   <\parenthesize b b'\harmonic>4_\markup{ \teeny "AH 16" }
  36   <\parenthesize g g'\harmonic>4_\markup{ \teeny "AH 17" }
  37   <\parenthesize d' d''\harmonic>2_\markup{ \teeny "AH 19" }
  38   %pinched harmonics (PH)
  39   \pinchedHarmonics
  40   <a'\harmonic>2\startTextSpan
  41   <d''\harmonic>4
  42   <e'\harmonic>4\stopTextSpan
  43   %tapped harmonics (TH)
  44   <\parenthesize g\4 g'\harmonic>4_\markup{ \teeny "TH 17" }
  45   <\parenthesize a\4 a'\harmonic>4_\markup{ \teeny "TH 19" }
  46   <\parenthesize c'\3 c''\harmonic>2_\markup{ \teeny "TH 17" }
  47   %touch harmonics (TCH)
  48   a4( <e''\harmonic>2. )_\markup{ \teeny "TCH" }
  49 }
  50
  51 frettedStrings = {
  52   %artificial harmonics (AH)
  53   \harmonicByFret #4 g4\3
  54   \harmonicByFret #5 d4\4
  55   \harmonicByFret #7 g2\3
  56   %pinched harmonics (PH)
  57   \harmonicByFret #7 d2\4
  58   \harmonicByFret #5 d4\4
  59   \harmonicByFret #7 a4\5
  60   %tapped harmonics (TH)
  61   \harmonicByFret #5 d4\4
  62   \harmonicByFret #7 d4\4
  63   \harmonicByFret #5 g2\3
  64   %touch harmonics (TCH)
  65   a4 \harmonicByFret #9 g2.\3
  66 }
  67
  68 \score {
  69   <<
  70     \new Staff
  71     \with { \omit StringNumber } {
  72       \new Voice {
  73         \clef "treble_8"
  74         \harmonics
  75       }
  76     }
  77     \new TabStaff {
  78       \new TabVoice {
  79         \frettedStrings
  80       }
  81     }
  82   >>
  83 }