lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Is "short-indent" resettable? (formerly "How Force a Brace?")


From: harm6
Subject: Re: Is "short-indent" resettable? (formerly "How Force a Brace?")
Date: Thu, 18 Aug 2011 17:58:52 -0700 (PDT)


PMA-2 wrote:
> 
> After more docs-sniffing & experiments, I think my recent query
> to Harm probably boils down to --
> 
> Given a (global) "short-indent" setting under \paper, is it possible
> to "\once \override..." this value for individual score systems?
> 
> Regards,
> Pete
> 

Hi Pete,

I'm not aware of any possibility to \once\override short-indent or to repeat
the SystemStartDelimiter in the middle of a line or something else, to do
what you intend.

But to force a brace, I created a workaround adding a brace to a barline,
with the possibility to stretch it over the whole score. 

I wasn't able to catch the actual extent of the score, so you have to tune
manually. 
Perhaps someone else could do so?

\version "2.14.2"

rochadeOmega = {
\once\override Score.BreakAlignment #'break-align-orders = 
        #'#(    
        ;; end of line
          (left-edge 
          ambitus 
          breathing-sign 
          clef
          staff-bar
          key-cancellation 
          key-signature 
          time-signature 
          custos) 
        ;; middle of line
         (left-edge 
          ambitus 
          breathing-sign
          staff-bar
          clef 
          key-cancellation   
          key-signature 
          time-signature 
          custos)
        ;; begin of line
         (left-edge 
          ambitus 
          breathing-sign 
          clef 
          key-cancellation 
          key-signature 
          time-signature 
          staff-bar 
          custos))
}

move = {
        \rochadeOmega
        \once \override Score.BarLine #'extra-offset = #'(-0.6 . 0)
        \once \override Score.SpanBar #'extra-offset = #'(-0.6 . 0)
        \once \override Score.Clef #'extra-offset = #'(-0.6 . 0)
        \once \override Score.Clef #'font-size = #'2
        \once \override Score.KeyCancellation #'extra-offset = #'(-0.6 . 0)
        \once \override Score.KeySignature #'extra-offset = #'(-0.6 . 0)
        \once \override Score.TimeSignature #'extra-offset = #'(-0.6 . 0)
}       

trnsprnt = {
        \once \override Score.Clef #'transparent = ##t
        \once \override Score.BarNumber #'transparent = ##t
        \once \override Score.KeyCancellation #'transparent = ##t
        \once \override Score.KeySignature #'transparent = ##t
        \once \override Score.TimeSignature #'transparent = ##t
}

staffStop = {
        \stopStaff
        \trnsprnt
        s1
        \startStaff
}

braceBar =
#(define-music-function (parser location number)(number?)
  #{
  
      #(define ((braceBarLine markup) grob)
        (ly:stencil-combine-at-edge (ly:bar-line::print grob)
          X LEFT (grob-interpret-markup grob markup) 0.4 0))   
       
      #(define braceMarkup
      (make-line-markup 
        (list
          (make-translate-markup (cons 0 (+ 0.2 (/ $number -10)))
            (make-with-dimensions-markup '(0 . 0) '(0 . 0) 
              (make-left-brace-markup (+ $number 20)))))))
                  
      \once \override Staff.BarLine #'stencil = #(braceBarLine braceMarkup)
      \move
  #})

%------------------- Test
------------------------------------------------------

one =   
  \relative c'' { 
          \key c\major
          a1 b c d
          \break
          \staffStop
          \braceBar #47
          \set Staff.forceClef = ##t 
          \time 4/4
          \key c\major
          e f
          \staffStop
          \bar ""
          \break
          a b c d
  }

two =   
  \relative c { 
          \clef bass
          a1 b c d
          \staffStop
          \set Staff.forceClef = ##t 
          b c
          \staffStop
          a b c d
  }

\score {
        \new PianoStaff 
        <<
          \new Staff \one
          \new Staff \two
        >>
}

Cheers,
  Harm

-- 
View this message in context: 
http://old.nabble.com/%5CRemoveEmptyStaffContext-%28-%29-tp32266657p32291864.html
Sent from the Gnu - Lilypond - User mailing list archive at Nabble.com.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]