Documentation/snippets/recorder-fingering-chart.ly

   1 %% Do not edit this file; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% This file is in the public domain.
   4 \version "2.12.2"
   5
   6 \header {
   7   lsrtags = "winds"
   8
   9 %% Translation of GIT committish: fa19277d20f8ab0397c560eb0e7b814bd804ecec
  10
  11   texidoces = "
  12 El ejemplo siguiente muestra cómo se pueden realizar diagramas de
  13 digitación para instrumentos de viento.
  14
  15 "
  16
  17   doctitlees = "Diagramas de digitación para la flauta dulce"
  18
  19 %% Translation of GIT committish: 496c48f1f2e4d345ae3637b2c38ec748a55cda1d
  20   texidocfr = "
  21 Cet exemple illustre la manière de créer et afficher des indications de
  22 doigté pour instrument à vent.
  23
  24 "
  25   doctitlefr = "Doigtés pour flûte à bec"
  26
  27
  28   texidoc = "
  29 The following example demonstrates how fingering charts for wind
  30 instruments can be realized.
  31
  32 "
  33   doctitle = "Recorder fingering chart"
  34 } % begin verbatim
  35
  36 % range chart for paetzold contrabass recorder
  37
  38 centermarkup = {
  39   \once \override TextScript #'self-alignment-X = #CENTER
  40   \once \override TextScript #'X-offset =#(ly:make-simple-closure
  41   `(,+
  42   ,(ly:make-simple-closure (list
  43   ly:self-alignment-interface::centered-on-x-parent))
  44   ,(ly:make-simple-closure (list
  45   ly:self-alignment-interface::x-aligned-on-self))))
  46 }
  47
  48 \score {
  49   \new Staff \with {
  50     \remove "Time_signature_engraver"
  51     \override Stem #'stencil = ##f
  52     \consists "Horizontal_bracket_engraver"
  53   }
  54   {
  55     \clef bass
  56     \set Score.timing = ##f
  57     f,1*1/4 \glissando
  58     \clef violin
  59     gis'1*1/4
  60     \stemDown a'4^\markup{1)}
  61     \centermarkup
  62     \once \override TextScript #'padding = #2
  63     bes'1*1/4_\markup{\override #'(baseline-skip . 1.7) \column
  64       { \fontsize #-5 \slashed-digit #0 \finger 1 \finger 2 \finger 3 \finger 4
  65     \finger 5 \finger 6 \finger 7} }
  66     b'1*1/4
  67     c''4^\markup{1)}
  68     \centermarkup
  69     \once \override TextScript #'padding = #2
  70     cis''1*1/4
  71     deh''1*1/4
  72     \centermarkup
  73     \once \override TextScript #'padding = #2
  74     \once \override Staff.HorizontalBracket #'direction = #UP
  75     e''1*1/4_\markup{\override #'(baseline-skip . 1.7) \column
  76       { \fontsize #-5 \slashed-digit #0 \finger 1 \finger 2 \finger 4
  77     \finger 5} }\startGroup
  78     f''1*1/4^\markup{2)}\stopGroup
  79   }
  80 }
  81
  82