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