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