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.14.0"
   8
   9 \header {
  10   lsrtags = "winds"
  11
  12 %% Translation of GIT committish: 59caa3adce63114ca7972d18f95d4aadc528ec3d
  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     \consists "Horizontal_bracket_engraver"
  56   }
  57   {
  58     \clef bass
  59     \set Score.timing = ##f
  60     f,1*1/4 \glissando
  61     \clef violin
  62     gis'1*1/4
  63     \stemDown a'4^\markup{1)}
  64     \centermarkup
  65     \once \override TextScript #'padding = #2
  66     bes'1*1/4_\markup{\override #'(baseline-skip . 1.7) \column
  67       { \fontsize #-5 \slashed-digit #0 \finger 1 \finger 2 \finger 3 \finger 4
  68     \finger 5 \finger 6 \finger 7} }
  69     b'1*1/4
  70     c''4^\markup{1)}
  71     \centermarkup
  72     \once \override TextScript #'padding = #2
  73     cis''1*1/4
  74     deh''1*1/4
  75     \centermarkup
  76     \once \override TextScript #'padding = #2
  77     \once \override Staff.HorizontalBracket #'direction = #UP
  78     e''1*1/4_\markup{\override #'(baseline-skip . 1.7) \column
  79       { \fontsize #-5 \slashed-digit #0 \finger 1 \finger 2 \finger 4
  80     \finger 5} }\startGroup
  81     f''1*1/4^\markup{2)}\stopGroup
  82   }
  83 }
  84
  85