Re: Incipits

[Karl Hammar]

Han-Wen:
> Sorry for looking at this so late.
> 
> General comments:
> 
> - you're adding an enormous bunch of code to the instrument name
> engraver. That's a bad idea. If this idea merits an engraver, it
> should be a separate one.
...
> - If I'm reading this correctly, this is all a grand hack to add a
> little staff to an instrument name.   I don't see the essential
> difference between this and
> 
>   \set instrumentName = \markup { \score { .. } the-real-name }
> 
> except that this is longer, more error prone and less flexible. Again,
> what problem are you trying to solve?
> 
> 2008/2/9, Nicolas Sceaux <address@hidden>:
> > > Here is draft patch: the Instrument_name engraver is used to create an
> > > Incipit grob before the first line when an incipit has been specified.
> > > There are several problems in it:
...
> > Both these problems are solved in the following patch.
> > Do core developpers see a problem with it?

Inicipits can be done with the code below.

Regards,
/Karl

%-----------------------------------

\version "2.6.4"

men = {
  \override Accidental  #'style = #'mensural
  \override NoteHead  #'style = #'petrucci
  \override Rest  #'style = #'neomensural
  \override Staff.TimeSignature  #'style = #'mensural
  \override Stem #'flag-style = #'mensural
  \override Stem #'thickness = #0.8
%  \set Score.timing = ##f
  \set Staff.defaultBarType = ""
  #(set-accidental-style 'forget)
}
nor = {
  \override Accidental  #'style = #'default
  \override NoteHead  #'style = #'default
  \override Rest  #'style = #'default
  \override Staff.TimeSignature  #'style = #'default
  \override NoteHead #'font-size = #'0
  \override Stem #'flag-style = #'default
  \override Stem #'thickness = #1.9
  \override TimeSignature #'style = #'default
  #(set-accidental-style 'default)
%  \set Score.timing = ##t
}

staa = {
  \override Score.SpanBar #'print-function = ##f
  \override Score.BarLine #'print-function = ##f
  \men
}

jump = {
  \stopStaff
  \once \override Score.TimeSignature #'print-function = ##f
  \nor
  \time 3/8
  s4.
  \revert Score.SpanBar #'print-function
  \revert Score.BarLine #'print-function
  \startStaff
  \once \override Score.TimeSignature #'print-function = ##f
  \time 1/16
  s16
  \override Score.SpanBar #'print-function = ##f
  \once \override Staff.Clef #'full-size-change = ##t
  \set Staff.forceClef = ##t
  \clef bass
  \time 4/4
  \bar ""
}

%----------------------------------------
% Music and lyrics

clefic = { \clef "petrucci-c1" }
vic = \relative c' { c1 c }
lic = \lyricmode { A B }

clefmc = { \clef soprano }
vmc = \relative c' { \vic d }
lmc = \lyricmode { \lic c d e f g }

clefib = { \clef "petrucci-f" }
vib = \relative c { a1 a }
lib = \lyricmode { A B }

clefmb = { \clef bass }
vmb = \relative c { \vib g }
lmb = \lyricmode { \lib c d e f g }

%----------------------------------------

\score {
  \new ChoirStaff \with {
    % a pain to set? Thats Right!!!
    \override SystemStartBracket #'extra-offset = #'( 38.8 . 0 )
  } {
    <<
      \new Staff {
        \set Staff.instrument = \markup { "Cantus" }
        \context Voice = vc { \clefic \staa \vic  \jump  \clefmc \vmc }
      }
      \context Lyrics = lc \lyricsto vc { \lic \lmc }

      \new Staff {
        \set Staff.instrument = \markup { "Bassus" }
        \context Voice = vb { \clefib \staa \vib  \jump  \clefmb \vmb }
      }
      \context Lyrics = lb \lyricsto vb { \lib \lmb }
    >>
  }
  \layout {
    \context {
      \Score
      \consists Span_bar_engraver
      \remove System_start_delimiter_engraver
    }
  }
}

c.pdf
Description: c.pdf