input/lsr/marking-notes-of-spoken-parts-with-a-cross-on-the-stem.ly

   1 %% Do not edit this file; it is auto-generated from input/new
   2 %% This file is in the public domain.
   3 \version "2.11.62"
   4
   5 \header {
   6   lsrtags = "editorial-annotations, vocal-music"
   7
   8   texidoc = "
   9 This example shows how to put crosses on stems. Mark the beginning
  10 of a spoken section with the @code{\\speakOn} keyword, and end it
  11 with the @code{\\speakOff} keyword.  Remember to end cross sections
  12 before entering any rest: this function also adds crosses to the
  13 invisible stems of rests.
  14 "
  15   doctitle = "Marking notes of spoken parts with a cross on the stem"
  16 } % begin verbatim
  17
  18 speakOn = {
  19   \override Stem #'stencil = #(lambda (grob)
  20   (ly:stencil-combine-at-edge
  21     (ly:stem::print grob)
  22     Y
  23     (- (ly:grob-property grob 'direction))
  24     (grob-interpret-markup grob
  25       (markup #:hspace -1.025 #:fontsize -4
  26         #:musicglyph "noteheads.s2cross"))
  27     -2.3 0))
  28 }
  29
  30 speakOff = {
  31   \revert Stem #'stencil
  32 }
  33
  34 \score {
  35   \new Staff {
  36     \relative c'' {
  37       a4 b a c
  38       \speakOn
  39       g4 f r g
  40       b4 r d e
  41       \speakOff
  42       c4 a g f
  43     }
  44   }
  45 }