input/bugs/context-weirdness.ly

   1 \version "1.3.148"
   2 \header {
   3 texidoc = "context level weirdness.  after some commands, explicit
   4  \context Voice commands must be inserted otherwise subsequent property
   5  settings fail silently"
   6 }
   7
   8 % from les-nereides.ly
   9
  10  #(define (make-text-checker text)
  11   (lambda (elt) (equal? text (ly-get-grob-property elt 'text))))
  12
  13 \score {
  14   \context PianoStaff <
  15     \context Staff=upper \notes\relative c' {
  16         \property Score.timing = ##f
  17
  18         output = property #(make-text-checker "foe") #'extra-offset = #'(-2 . 4)
  19         c-"foe"
  20
  21         \translator Staff=lower
  22
  23         % staff switch moves us
  24         % implicitely to staff level: text-checker won't see "foe"
  25         output = property #(make-text-checker "foe") #'extra-offset = #'(-2 . 4)
  26         c-"foe"
  27
  28         % get back to Voice level: it works again
  29         \context Voice
  30         output = property #(make-text-checker "foe") #'extra-offset = #'(-2 . 4)
  31         c-"foe"
  32
  33         \clef treble
  34
  35         % clef change moves us
  36         % implicitely to staff level: text-checker won't see "foe"
  37         output = property #(make-text-checker "foe") #'extra-offset = #'(-2 . 4)
  38         c-"foe"
  39
  40         % get back to Voice level: it works again
  41         \context Voice
  42         output = property #(make-text-checker "foe") #'extra-offset = #'(-2 . 4)
  43         c-"foe"
  44
  45     }
  46     \context Staff=lower \notes\relative c' {
  47       s
  48     }
  49   >
  50   \paper {
  51     linewidth = -1.0
  52   }
  53 }