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