Nice :) You're welcome!
Jan-Peter
Am 02.12.2010 um 15:13 schrieb "Br. Athanasius Pelletier" <athp...@gmail.com>:
> Thanks for your help! I now have it exactly how I wanted it.
>
> Ath
>
>
>
> On Thu, Dec 2, 2010 at 5:20 AM, Jan-Peter Voigt <jp.vo...@gmx.de> wrote:
> Hello Athanasius,
>
> I removed the hidden notes ... then I changed the verse-number-function:
>
>
> verseNumber = #(define-music-function (parser location number name
> shortname) (string? string? string?)
> #{
> \set stanza = \markup \smaller \italic $number
> \set vocalName = \markup $name
> % same markup as stanza
> \set shortVocalName = \markup \smaller $shortname
>
> \override InstrumentName #'font-series = #'bold
> \override InstrumentName #'font-shape = #'italic
> \override InstrumentName #'font-size = #'0.1
> \override InstrumentName #'self-alignment-X = #LEFT
> % shift numbers to the left
> \override InstrumentName #'X-offset = #-1.5
> #})
>
> Now the numbers are all of equal size (same markup for stanza and
> shortVocalName) and the numbers a shiftet left.
>
> Regards,
> Jan-Peter
>
>
>
> On 02.12.2010 05:29, Athanasius wrote:
> Eluze or whoever,
>
> So I have added a hidden note, otherwise the verse text was over the verse
> numbers. Is there a way to modify the verse numbers, first, to match the
> size of the ones on top and also to maybe move them to the left a little
> bit? Below is the modified file. (is there stuff in the verseNumber
> section that I don't need?)
>
> \version "2.13.35"
>
> \include "gregorian.ly"
>
> \header {
> subtitle = "Veni Creator Spiritus"
> % Remove default LilyPond tagline
> tagline = ##f
> }
>
> \paper{
> paper-width=5.5\in
> }
>
> verseNumber = #(define-music-function (parser location number name
> shortname) (string? string? string?)
> #{
> \set stanza = \markup \smaller \italic $number
> \set vocalName = \markup $name
> \set shortVocalName = \markup \teeny $shortname
> \override InstrumentName #'font-series = #'bold
> \override InstrumentName #'font-shape = #'italic
> \override InstrumentName #'font-size = #'0.1
> \override InstrumentName #'self-alignment-X = #LEFT
> \override InstrumentName #'X-offset = #3.2
> #})
>
> chant = \relative c' {
> \key a \major
> e4 fis e ( d) e fis (e) a b a2 \break \divisioMaior
> \hideNotes e \unHideNotes
> a4 e fis a b ( a) b cis b \break \divisioMaior
> \hideNotes e \unHideNotes
> a,4 b ( cis) a ( gis) fis ( e) a ( b) e, fis a2 \break \divisioMaior
> \hideNotes e \unHideNotes
> gis4 ( a) fis e (d) fis fis ( gis fis) e d e2 \divisioMaxima
> \hideNotes e \unHideNotes
> e4 ( fis e) d2 ( e) \finalis
> }
>
> verbaOne = \lyricmode {
> \verseNumber #"1." #"" #"1."
> Ve -- ni Cre -- á -- tor __ Spí -- ri -- tus,
> "" men -- tes tu -- ó -- rum vi -- sí -- ta,
> "" im -- ple __ su -- pér -- na __ grá -- ti -- a
> "" quae tu cre -- á -- sti __ pé -- cto -- ra.
> }
>
> verbaTwo = \lyricmode {
> \verseNumber #"2." #"" #"2."
> Qui dí -- ce -- ris Pa -- rá -- cli -- tus,
> "" al -- tís -- si -- mi do -- num De -- i,
> "" fons vi -- vus, i -- gnis, ca -- ri -- tas,
> "" et __ spi -- ri -- tá -- lis __ ún -- cti -- o.
> }
>
> verbaThree = \lyricmode {
> \verseNumber #"3." #"" #"3."
> Tu se -- pti -- fór -- mis __ mú -- ne -- re,
> "" Dex -- trae De -- i tu __ dí -- gi -- tus,
> "" Tu ri -- te pro -- mís -- sum Pa -- tris,
> "" Ser -- mó -- ne __ di -- tans __ gút -- tu -- ra.
> }
>
> verbaFour = \lyricmode {
> \verseNumber #"4." #"" #"4."
> Ac -- cén -- de lu -- men sén -- si -- bus,
> "" In -- fúnde a -- mó -- rem __ cór -- di -- bus,
> "" In -- fír -- ma __ no -- stri __ cór -- po -- ris
> "" Vir -- tú -- te __ fir -- mans __ pér -- pe -- ti.
> }
>
> verbaFive = \lyricmode {
> \verseNumber #"5." #"" #"5."
> Hos -- tem re -- pél -- las __ lón -- gi -- us,
> "" pa -- cém -- que do -- nes __ pró -- ti -- nus;
> "" Du -- ctó -- re sic __ te __ praé -- vi -- o,
> "" Vi -- té -- mus __ o -- mne __ nó -- xi -- um.
> }
>
> verbaSix = \lyricmode {
> \verseNumber #"6." #"" #"6."
> Per te sci -- á -- mus __ da Pa -- trem,
> "" No -- scá -- mus at -- que __ Fí -- li -- um,
> "" Te u -- tri -- ús -- que __ Spí -- ri -- tum
> "" Cre -- dá -- mus o -- mni __ tém -- po -- re.
> }
>
> verbaSeven = \lyricmode {
> \verseNumber #"7." #"" #"7."
> De -- o Pa -- tri sit __ gló -- ri -- a,
> "" Et Fí -- li -- o qui~a mór -- tu -- is,
> "" Sur -- ré -- xit, __ ac __ Pa -- rá -- cli -- to,
> "" In __ sae -- cu -- ló -- rum __ saé -- cu -- la. A -- men. __
>
> }
>
> \score {
> \new Staff { \chant }
> \addlyrics { \verbaOne }
> \addlyrics { \verbaTwo }
> \addlyrics { \verbaThree }
> \addlyrics { \verbaFour }
> \addlyrics { \verbaFive }
> \addlyrics { \verbaSix }
> \addlyrics { \verbaSeven }
> \layout {
> ragged-last=##f
>
> \context {
> \Staff
> \remove "Time_signature_engraver"
> \remove "Bar_engraver"
> \override Stem #'transparent = ##t
> }
> }
> }
>
>
>
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
