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