Documentation/snippets/recorder-fingering-chart.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.dsi.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.16.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 =#(ly:make-simple-closure
  25   `(,+
  26   ,(ly:make-simple-closure (list
  27   ly:self-alignment-interface::centered-on-x-parent))
  28   ,(ly:make-simple-closure (list
  29   ly:self-alignment-interface::x-aligned-on-self))))
  30 }
  31
  32 \score {
  33   \new Staff \with {
  34     \remove "Time_signature_engraver"
  35     \override Stem #'stencil = ##f
  36     \override Flag #'stencil = ##f
  37     \consists "Horizontal_bracket_engraver"
  38   }
  39   {
  40     \clef bass
  41     \set Score.timing = ##f
  42     f,1*1/4 \glissando
  43     \clef violin
  44     gis'1*1/4
  45     \stemDown a'4^\markup{1)}
  46     \centermarkup
  47     \once \override TextScript #'padding = #2
  48     bes'1*1/4_\markup{\override #'(baseline-skip . 1.7) \column
  49       { \fontsize #-5 \slashed-digit #0 \finger 1 \finger 2 \finger 3 \finger 4
  50     \finger 5 \finger 6 \finger 7} }
  51     b'1*1/4
  52     c''4^\markup{1)}
  53     \centermarkup
  54     \once \override TextScript #'padding = #2
  55     cis''1*1/4
  56     deh''1*1/4
  57     \centermarkup
  58     \once \override TextScript #'padding = #2
  59     \once \override Staff.HorizontalBracket #'direction = #UP
  60     e''1*1/4_\markup{\override #'(baseline-skip . 1.7) \column
  61       { \fontsize #-5 \slashed-digit #0 \finger 1 \finger 2 \finger 4
  62     \finger 5} }\startGroup
  63     f''1*1/4^\markup{2)}\stopGroup
  64   }
  65 }