Re: [Gnu-music-discuss] cue context?

[Scott Ballantyne]

Han-Wen Nienhuys <address@hidden> writes:
> 
> address@hidden writes:
> > Well, hmmm.. it turns out my macros only work some of the time... No
> > errors are printed, but sometimes the smaller fonts are used and
> > sometimes they are not. Can anyone shed a clue as to what I did wrong?
> 
> example please?
> 

See the comments below for where they work and where they don't.
---------------------------------------------------------------
\header{
filename = "elevy.ly";
title = "Concerto";
date = "1947";
composer = "Ernst Levy";
%latexheaders = "mydefs";
}
\paper{
   papersize="legal";
}
\include "paper20.ly"
\include "english.ly"

startcue = {
        \property Voice.basicStemProperties \push  #'stem-length = #6.0
        \property Voice.basicNoteHeadProperties \push #'font-size = #-1
        \property Voice.basicStemProperties \push #'font-size = #-1
        \property Voice.basicBeamProperties \push #'font-size = #-1
        \property Voice.basicTextScriptProperties \push #'font-size = #-1
        \property Voice.basicSlurProperties \push #'font-size = #-1
        \property Voice.basicLocalKeyProperties \push #'font-size = #-1
}
endcue = {
        \property basicStemProperties \pop  #'stem-length
        \property basicNoteHeadProperties \pop #'font-size
        \property basicStemProperties \pop #'font-size
        \property basicBeamProperties \pop #'font-size
        \property basicTextScriptProperties \pop #'font-size
        \property basicSlurProperties \pop #'font-size
        \property basicLocalKeyProperties \pop #'font-size
}

barfermata = \mark "\\font\\fetafont=feta20\\fetafont\char40";

first = \context Staff \notes\relative c {
      \time 4/4;
      \clef bass;
       \property Voice.basicStemProperties \push #'default-neutral-direction = 
#-1
      d4.(^"\bf Tranquillo"-\p e8 fs4 )d |
      c( [a8 )c ] d2 |
      e4.( g8 a4 )c  |
      d( [c8 )b] [a()g] [e()g] |
      a1 | R |
      e4.-\mf e8()a2~ |
      \time 9/8;
      [a8 b8(] [a8 g )e]  g4()e~  |
      e8\< r8\! b'4~[b8 a(] [g8 e )g] |
      \time 4/4;
      e4.()d8 
      c4()e \> |
      fs4( [a8 )fs ] <e2 { s4 \! s4 } >
      R1 |
      a2-\f b8->()a4. |
      [b16->(d] )b4.\<~ b8 \! e8~ \times 4/5 { [e16( ds cs a cs] } |
      )as2 d! \cr  |
      ~d4  \times 2/3 {[ \! fs8( f )df] } c2~ |
      \times 4/5 { [ c8 ef( df bf af ]} )b4. [bf16( g] |
      )bf4\cr \! d2 |
      <
      \context Voice = vone {
            cs4 ( b )as gs( )c! |
             a1 |
            }
      \context Voice = vtwo {
           s4 s2.\< s8 \!s8 |
           }
      >
      \clef treble;
      % This one works properly 
      \startcue
      [a''8--^"Trpts." fs--] e4. d8-- \times 2/3 {[e-- fs-- d--] }
      [a'8 fs] e4 \times 2/3{[d8_"\it accelerando"-- e-- fs--]} \times 2/3{ 
[d-- a'-- fs--]}
      [e8-- d--] \times 2/3 {[ e-- fs-- d--]} [a'8-- fs--] \times 2/3 {[e-- 
fs-- d--]} |
      [a'8-- fs--] \times 2/3 {[ e-- fs-- d-- ]}       [a'8-- fs--] \times 2/3 
{[ e-- fs-- d-- ]} |
      \endcue
      \clef treble;
      e,1^"Solo"_"\bf\it molto f" |
      ~e4 f( gs )f |
      \times 2/3 { [ e8( ds d ] }
      \clef bass;
      \times 2/3 { [gs, c )d ] }
      \clef treble;
      e2~ |
      e4 d8-> c4. e4 |
      fs [a8( )fs] [bf()a] [fs()f] |
      [af()g] [e()ef] fs4.
      \clef bass;
      <
         \context Voice = vone {
              b,8( )d4 ef,2. |
                     af2 g |
                     }
        \context Voice = vtwo {
            s8 s4 s2.\> s2. \!s4 }
      >
       d4.(-\p e8 fs4 )d |
      c( [ a8 )c ] d2 |
      e4.( g8 a4 )c |
      d( [ c8 )b] [ a()g ] [e( )g ] |
      a2 [c8( d] )e4~ |
      e [ fs8( )f ] [e()b] d4~ |
      d e()d [b8()d] |
      b4.( )a8 g2-"\it cresc." |
      ~g4 a c2~ |
      c4.       \clef treble;
      d8( e4 )c |
      fs2.( )gs4 |
      as4.(\f )b8 cs4()as |
      gs [ as8()fs] e4. ds8( |
      )b'4 d,!2-"dim." e4 |
      g [c,8( d ] [e )fs a( )fs ] |
      e1 |
      d4.()e8 fs2~ |
      [ fs8( )a ]
      \clef bass;
      [ a,() c ] d2~ |
      [d8()e ] [e,()g] a2~ |
      [a8()c ] [ c,-._"rit." ()d-.] e4 [fs8-.()g-.] |
      a2^"\bf Piu mosso" r2 |
      \clef treble;
      % This one have any effect.
      \startcue
      [c8-.^"Vln. II" a-.] d4. [e16( g] )a4~ |
      [a8 c16( b] [)a8 g-.] [e16( g] )a4 [c16( )d] |
      \endcue
      \clef bass;
      [a,8.^"Solo"_"\it\bf quasi f cresc." b16-.] [c8-. a-.]
      \clef treble;
      [d-. e16( g] )a4~ |
      [ a16 b( a )g ] [ e( g )a8~ ] [a16 df( af c] [ g gf bf )f] |
      \time 3/4;
      <
         \context Voice = vone {
               [a!8 af] g2
               }
         \context Voice = vtwo {
              s4\< s4. \!s8-\f
              }
       >
      \time 4/4;
      \clef bass;
      g,4-\mf af8-. g4 [b16()cs] g4~ |
      [g8 e'] \times 4/5 { [ ef16( df b! g b ] } )d4 
      \clef treble;
      f~ |
      f8 [ af16()g] e4. g8 [ef16()d8 df16(] |
      [)gf8 df] [c16()b f'8~] [f16(e b )ef] [bf( a df )af] |
      g8 r8 r2-"\it cresc." g'4 |
      af8 g4 [b16( )cs] g4. e'8 |
      \times 4/5 { [ ef16( df b! g )b ] } d4 f4. [af,16()g] |
      e'4. g,8 [ ef'16()d8 df16(] [)df,8 gf16 df~] |
      [df d( g )ef]  [e( f c )fs] [e( f bf )fs ] ] [g()af ef a] |
      f'4.-\ff e8 ef4 b! |
      <
      \context Voice = vone {
            r16 [f8 e!16] a2\breathe
            % This one only works within this voice context
            % resuming normal fonts at the !!! mark
            \startcue
            \clef treble;
            bf'4^"Vlns."~ [bf8 bf-.]
            }
      \context Voice = vtwo {
           s4 s4\< s8 \!s8 s4 s4
           }
      >
      % !!! (normal fonts resume, they shouldn't
      [gf16()f8 ef16(] [)bf'8-. f-.] r8 bf-. |
      [gf16()f8 ef16(] )bf'8-.
      \endcue
      \clef bass;
      a,,8-\ff [ds16^"Solo" ds8 cs16( ]
      \clef treble;
      [ )a'8 b ]
      \startcue
      \time 5/8;
      r8^"Trpts." b8~ [b8. b16 b b] |
      b4 a g8 |
      \time 7/8;
      r8 b4 [cs8 e16 cs] b4
      \time 5/8;
      r8 b8~ [b8. b16 b b] |
      b4 cs e8 |
      \time 6/8;
      r8 cs4 b [a16 a] |
      \endcue
      \clef bass;
      \time 5/8;
      r8^"Solo" [e,8-\f( fs16 a] )b8 r8 |
}

\score{
  \notes \context Voice
      {
%       \first
        \second
%       \third
      }
  \paper
   {
   \translator{
     \StaffContext
     \remove "Time_signature_engraver";
    }
    \translator{
      \VoiceContext
      \remove "Auto_beam_engraver";
     }
    \translator {
      \ScoreContext
         barScriptPadding = #2.0
         markScriptPadding = #4.0
         barNumberScriptPadding = #15
   }
   }
}