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