Documentation/snippets/recorder-fingering-chart.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 = "winds"
  11
  12   texidoc = "
  13 The following example demonstrates how fingering charts for wind
  14 instruments can be realized.
  15
  16 "
  17   doctitle = "Recorder fingering chart"
  18 } % begin verbatim
  19
  20 % range chart for paetzold contrabass recorder
  21
  22 centermarkup = {
  23   \once \override TextScript.self-alignment-X = #CENTER
  24   \once \override TextScript.X-offset =#(lambda (g)
  25   (+ (ly:self-alignment-interface::centered-on-x-parent g)
  26      (ly:self-alignment-interface::x-aligned-on-self g)))
  27 }
  28
  29 \score {
  30   \new Staff \with {
  31     \remove "Time_signature_engraver"
  32     \omit Stem
  33     \omit Flag
  34     \consists "Horizontal_bracket_engraver"
  35   }
  36   {
  37     \clef bass
  38     \set Score.timing = ##f
  39     f,1*1/4 \glissando
  40     \clef violin
  41     gis'1*1/4
  42     \stemDown a'4^\markup{1)}
  43     \centermarkup
  44     \once \override TextScript.padding = #2
  45     bes'1*1/4_\markup{\override #'(baseline-skip . 1.7) \column
  46       { \fontsize #-5 \slashed-digit #0 \finger 1 \finger 2 \finger 3 \finger 4
  47     \finger 5 \finger 6 \finger 7} }
  48     b'1*1/4
  49     c''4^\markup{1)}
  50     \centermarkup
  51     \once \override TextScript.padding = #2
  52     cis''1*1/4
  53     deh''1*1/4
  54     \centermarkup
  55     \once \override TextScript.padding = #2
  56     \once \override Staff.HorizontalBracket.direction = #UP
  57     e''1*1/4_\markup{\override #'(baseline-skip . 1.7) \column
  58       { \fontsize #-5 \slashed-digit #0 \finger 1 \finger 2 \finger 4
  59     \finger 5} }\startGroup
  60     f''1*1/4^\markup{2)}\stopGroup
  61   }
  62 }