Re: Psalm notation

[Georg Dummer]

Hi Zoltan,

thank you for your code. I've already searched the list for umpteen 
times but just now I found this thread:
http://thread.gmane.org/gmane.comp.gnu.lilypond.general/18415/focus=18420

And now your code expands to:

\version "2.10.33"
\paper{ ragged-right=##t }

#(define (vertline-stencil stencil thickness padding)
 "Add vertical lines around STENCIL, producing a new stencil."
 (let* ((x-ext (interval-widen (ly:stencil-extent stencil 0) padding))
        (y-ext (interval-widen (ly:stencil-extent stencil 1) padding))
        (y-rule (make-filled-box-stencil (cons 0 thickness) y-ext))
        (x-rule (make-filled-box-stencil
                 (interval-widen x-ext thickness) (cons 0 thickness))))
   (set! stencil (ly:stencil-combine-at-edge stencil X 1 y-rule padding))
   (set! stencil (ly:stencil-combine-at-edge stencil X -1 y-rule padding))
   stencil))
#(define (make-stencil-vertline thickness padding callback)
 "Return function that adds vertical lines around the grob passed as 
argument."
 (lambda (grob) (vertline-stencil (callback grob) thickness padding)))

repeatableNote = {
 \once\override NoteHead #'stencil = #(make-stencil-vertline 0.05 0.05 
ly:note-head::print)
}

\score{
<<
 \new Voice \relative e' {
   \set Staff.instrumentName = "IV  "
   \cadenzaOn
   \override Stem #'transparent = ##t

   s4 e4 g \bar "dashed" a\breve
   \set fontSize = #-2
   s4
   \repeatableNote < \parenthesize g >
   a\breve
   \set fontSize = #+2
   g4_- a
   \once \override TextScript #'extra-offset = #'(0.7 . 0.0) 
\repeatableNote b^\markup{\fontsize #-7 "/"}
   \repeatableNote < \parenthesize a >
   \bar "|" \once \override Score.RehearsalMark #'extra-offset = #'(0.0 
. -7.0) \mark "*"
   a\breve g4_- a b
   \once \override TextScript #'extra-offset = #'(0.7 . 0.0) 
\repeatableNote g^\markup{\fontsize #-7 "/"}
   \repeatableNote e \bar "||"

   \cadenzaOff
 }
>>
 \layout{
   \context{
     \Staff
       \remove "Time_signature_engraver"
       \remove "Clef_engraver"
   }
 }
}

Zoltan Selyem schrieb:
> Hi Georg,
>
>   
> > I am scoring some psalms like:
> > http://de.wikipedia.org/wiki/Bild:Psalm01111.jpg
> > and wonder, how to get these noteheads for repeatable notes, these
> > stemless quarters on the left with vertical lines on each side.
> >     
>
> I don't know how to put vertical lines around quarters, but for the
> rest you can try something like the following (until somebody can show
> a better solution):
>
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> \version "2.11.34"
> \paper{ ragged-right=##t }
>
> \score{
> <<
>   \new Voice \relative e' {
>     \set Staff.instrumentName = "IV  "
>     \cadenzaOn
>     \override Stem #'transparent = ##t
>
>     s4 e4 g \bar "dashed" a\breve
>     \set fontSize = #-2
>     s4
>     < \parenthesize g >
>     a\breve
>     \set fontSize = #+2
>     g4_- a
>     \once \override TextScript #'extra-offset = #'(0.7 . 0.0) b^\markup{\fontsize #-7 
> "/"}
>     < \parenthesize a >
>     \bar "|" \once \override Score.RehearsalMark #'extra-offset = #'(0.0 . -7.0) \mark 
> "*"
>     a\breve g4_- a b
>     \once \override TextScript #'extra-offset = #'(0.7 . 0.0) g^\markup{\fontsize #-7 
> "/"}
>     e \bar "||"
>
>     \cadenzaOff
>   }
>   
>   \layout{
>     \context{
>       \Staff
>         \remove "Time_signature_engraver"
>         \remove "Clef_engraver"
>     }
>   }
> }
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>
>
> Bye,
>
> Zoltán
>
>
>
>
>