[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Staff bracket and figured bass
From: |
Klaus Blum |
Subject: |
Re: Staff bracket and figured bass |
Date: |
Fri, 22 Apr 2016 14:53:23 -0700 (MST) |
Hi Marcin,
here is a way to replace the standard SystemStartSquare:
% -----------------------------------------------------
\version "2.18.2"
voiceone = \relative c' {
c c g' g a a g2 \bar "|."
}
voicetwo = \relative c {
\clef "bass"
c'4 c c, c f f c2
}
space = \markup \transparent "I"
\score {
\new StaffGroup \with {
systemStartDelimiter =
#'SystemStartSquare
}{
<<
\new Staff \voiceone
\new FiguredBass {
\figuremode {
<5 3>4 \skip4 <5 3>4 \skip4 <\space \space 3>4 \skip4 <8 5 3>2
}
}
\new Staff
\voicetwo
>>
}
}
\layout {
\context {
\StaffGroup
\override SystemStartSquare.padding = #0.2 % adjust this value as you
like...
\override SystemStartSquare.stencil =
#(lambda (grob)
(let* ((area (ly:system-start-delimiter::print grob))
(thickness 0.3) ; adjust this value as you
like...
(x-ext (ly:stencil-extent area X))
(left (+ (car x-ext) (- 0.9 thickness)))
(right (cdr x-ext)))
(make-filled-box-stencil
(cons left right)
(cons
(+ (car (ly:stencil-extent area Y)) 0.05)
(- (cdr (ly:stencil-extent area Y)) 0.05)))))
}
}
% -----------------------------------------------------
I hope this is what you are looking for.
Cheers,
Klaus
--
View this message in context:
http://lilypond.1069038.n5.nabble.com/Staff-bracket-and-figured-bass-tp189868p189880.html
Sent from the User mailing list archive at Nabble.com.