lilypond-user
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Coda

From: Mats Bengtsson
Subject: Re: Coda
Date: Wed, 14 May 2003 10:52:31 +0200
User-agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.1) Gecko/20021003 
Please always specify what Lilypond version you use when you send
questions. The syntax and handling of text markups has changed in
the latest development version 1.7.xx, but it seems that you use
1.6.x, so the answer corresponds to the stable version.

Please read in the users manual on "Text Markup" which lets
you combine ordinary text and musical symbols, both in ordinary
text scripts that are attached to notes and in \mark commands that
are attached to bar lines.

For example, to put a coda on top of a bar line, use
\mark #'(music "scripts-coda")
and for the dal segno indication use
c^#'(columns "D.S. al " (music "scripts-coda"))

You may want to fine tune the spacing and alignment, see the
manual for more instructions. The name of all available symbols
in the music font can be found in the appendix of the reference
manual, at least in the PS and PDF versions (the list in the HTML
version is unfortunately truncated).

   /Mats

Jan Kohnert wrote:
I want to write a piece with coda. Now I found out the commands \coda and \segno. But there are still two questions: 
1. How do I get the \coda above the bar line?
2. How do I write "D.S. al Coda"? I would like to have the same sign "\coda" in this comment. This does't work using \mark, also I cannot place it in the right position, it is either in front of the bar or afterwards (I have only a single note in this bar) 

Regards Jan Kohnert


------------------------------------------------------------------------

\include "paper13.ly"
\paper  {
  linewidth = 433.619940\pt
}

\header {
  title = "Poison"
  composer = "Alice Cooper"
}

melody = \notes \relative c' {
  \time 4/4
  \key f \major
  \clef treble
  R1*16
  \repeat volta 2 {
  r4 f4 f2 | r4 f4 f2 | r4 a4 a2 | r4 g4 a2 | r4 bes4 bes2 | r4 bes4 bes2 | r4 
d4 d2 | r4 c4 d2 | ~ d1 |
  r8^\segno bes bes bes bes bes g a | bes bes c4 a2 | r8 es' es es es es c d | 
es4 es4 \times 2/3 { d c bes } |
  c8 c c c c c a b | c c d4 b2 | r8 f' f f f f d e | f4 f e8 d e4 |
  f4 d2. | ~ d2 r4 e | f f f8 f ~ f f | ~ f f ~ f e ~ e4  e | f d2. | ~ d2 r2 | 
f4 f f8 f ~ f f | ~ f f ~ f e ~ e4  e^\coda | }
  \alternative {
    { f4 d2. | ~ d2 r2 | }
    { \property Score.currentBarNumber = #69
      f4 d2. | ~ d2 r2 | R1*8
      r4 bes4 bes2 | r4 bes4 bes2 | r4 d4 d2 | r4 c4 d2 | ~ d1 \mark "D.S. al Coda"\bar 
":|" }
  }
  \property Score.currentBarNumber = #100
  f4 d2.( | ) f2 r2 |
r8 f f f f f d e | f f g4 e2 | r8 f f f f f d e | f4 f \times 2/3 { e d e } | f8 f f f f f d e | f f g4 e2 | r8 f f f f f d e | f4 f e8 d e4 | 
  f4 d2. | ~ d2 r4 e | f f f8 f ~ f f | ~ f f ~ f e ~ e4  e | f d2. | ~ d2 r2 | 
f4 f f8 f ~ f f | ~ f f ~ f e ~ e4  e |
  f4 d2. | ~ d2 r2 \bar "|."
}

gita = \notes {
  \time 4/4
  \key f \major
  \clef treble
  \property Voice.autoBeamSettings \override #'(end * * * *) = #(make-moment 1 
4)
  \property Staff.voltaSpannerDuration = #(make-moment 1 1)
   r1 | r1 | d'8 ( a' d'' d' e'' d' d'' ) a' | fis' ( g' c'' fis' g' c'' e' d' 
~  | ) d'8 ( a' d'' d' e'' d' d'' ) a' | fis' ( g' c'' fis' g' c'' e' d' ~ |
   ) d'8 ( a' d'' d' e'' d' d'' ) a' | fis' ( g' c'' fis' g' c'' e' d' ~  | ) 
d'8 ( a' d'' d' e'' d' d'' ) a' | fis' ( g' c'' fis' g' c'' e' d' ~ |
  ) d'8 ( a' d'' d' e'' d' d'' ) a' | ges' ( g' c'' fis' g' c'' e' d' ~ | ) d'8 ( a' d'' d' 
e'' d' d'' a' | d' a' e'' d' d'' a' d' ) a' | < d'1 a'1 d''1 > | ~ < d'1 a'1 d''1 
> |
  \repeat volta 2 {
  r1 | r1 | r1 | r1 | r1 | r1 | r1 | r1 |
  < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 
a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > |
  < g4. d'4. g'4.^\segno > < es'8 bes'8 es''8 > ~ < es'4 bes'4 es''4 > r4 | < bes4. f'4. 
bes'4. > < f8 c'8 f'8 > ~ < f4 c'4 f'4 > r4 |
  < c'4. g'4. c''4. > < as8 es'8 as'8 > ~ < as4 es'4 as'4 > r4 | < es'2 bes'2 es''2 > 
< bes2 f'2 bes'2 > |
  < a4. e'4. a'4. > < f8 c'8 f'8 > ~ < f4 c'4 f'4 > r4 | < c'4. g'4. c''4. > < g8 d'8 
g'8 > ~ < g4 d'4 g'4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2^\coda > | }
  \alternative {
    { d'8 ( a' d'' d' e'' d' d'' a' | d' a' e'' d' d'' a' d' ) a' | }
    { d'8 ( a' d'' d' e'' d' d'' a' | d' a' e'' d' d'' a' d' ) a' |
      d'8 ( a' d'' d' e'' d' d'' ) a' | fis' ( g' c'' fis' g' c'' e' d' ~  | ) 
d'8 ( a' d'' d' e'' d' d'' ) a' | fis' ( g' c'' fis' g' c'' e' d' ~ |
      ) d'8 ( a' d'' d' e'' d' d'' ) a' | fis' ( g' c'' fis' g' c'' e' d' ~  | 
) d'8 ( a' d'' d' e'' d' d'' ) a' | fis' ( g' c'' fis' g' c'' e' ) d' |
r1 | r1 | r1 | r1 | < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > \bar ":|" } 
  }
  \break
  d'8^\coda ( a' d'' d' e'' d' d'' a' | d' a' e'' d' d'' a' d' ) a' |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < bes1 f'1 bes'1 > | ~ < bes1 f'1 bes'1 > \bar "|."
}

gitb = \notes {
  \time 4/4
  \key f \major
  \clef treble
  \property Voice.autoBeamSettings \override #'(end * * * *) = #(make-moment 1 
4)
  \property Staff.voltaSpannerDuration = #(make-moment 1 1)
  < d'1 a'1 d''1 > | ~ < d'1 a'1 d''1 > | < d'8 a'8 d''8 > < d'8 a'8 d''8 > r2. | r1| < 
d'8 a'8 d''8 > < d'8 a'8 d''8 > r2. | r1 |
  < bes1 f'1 bes'1 > | < d'1 a'1 d''1 > | < bes1 f'1 bes'1 > | < d'1 a'1 d''1 > 
|
  < bes1 f'1 bes'1 > | < d'1 a'1 d''1 > | < bes1 f'1 bes'1 > | < bes1 f'1 bes'1 > | < 
d'1 a'1 d''1 > | ~ < d'1 a'1 d''1 > |
  \repeat volta 2 {
  r1 | r1 | r1 | r1 |
  g8 ( d' g' g bes' g' d' ) g' | es' ( bes' es'' es' f'' es'' bes' ) es'' | bes 
( f' bes' bes d'' bes' f' ) bes' | d' ( a' d'' d' fis'' d'' a' ) d'' |
  < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 
a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > |
  < g4. d'4. g'4.^\segno > < es'8 bes'8 es''8 > ~ < es'4 bes'4 es''4 > r4 | < bes4. f'4. 
bes'4. > < f8 c'8 f'8 > ~ < f4 c'4 f'4 > r4 |
  < c'4. g'4. c''4. > < as8 es'8 as'8 > ~ < as4 es'4 as'4 > r4 | < es'2 bes'2 es''2 > 
< bes2 f'2 bes'2 > |
  < a4. e'4. a'4. > < f8 c'8 f'8 > ~ < f4 c'4 f'4 > r4 | < c'4. g'4. c''4. > < g8 d'8 
g'8 > ~ < g4 d'4 g'4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2^\coda > | }
  \alternative {
    { < bes1 f'1 bes'1 > | ~ < bes1 f'1 bes'1 > | }
{ < bes1 f'1 bes'1 > | ~ < bes1 f'1 bes'1 > | r1 | r1 | r1 | r1 | r1 | r1 | r1 | r1 | g8 ( d' g' g bes' g' d' ) g' | es' ( bes' es'' es' f'' es'' bes' ) es'' | bes ( f' bes' bes d'' bes' f' ) bes' | d' ( a' d'' d' fis'' d'' a' ) d'' | 
      < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > < d'8 a'8 
d''8 > < d'8 a'8 d''8 > < d'8 a'8 d''8 > \bar ":|" }
  }
  \break
  < g1 d'1 g'1^\coda > | < bes1 f'1 bes'1 >
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f4. c'4. f'4. > < 
c'8 g'8 c''8 > ~ < c'4 g'4 c''4 > r4 |
  < d'4. a'4. d''4. > < bes8 f'8 bes'8 > ~ < bes4 f'4 bes'4 > r4 | < f2 c'2 f'2 > 
< c'2 g'2 c''2 > |
  < bes1 f'1 bes'1 > | ~ < bes1 f'1 bes'1 > \bar "|."
}

bass = \notes {
  \time 4/4
  \key f \major
  \clef bass
  \property Voice.autoBeamSettings \override #'(end * * * *) = #(make-moment 1 
4)
  \property Staff.voltaSpannerDuration = #(make-moment 1 1)
  d1 | ~ d | d8 d8 r2. | r1 | d8 d8 r2. | r1 |
  bes, | d | bes, | d | bes, | d | bes, | bes, | d | ~ d |
  \repeat volta 2 {
  d | bes, | f, | c | g, | es | bes, | d | d8 d d d d d d d |
  g,4.^\segno es8 ~ es4 r4 | bes,4. f,8 ~ f,4 r4 | c4. as,8 ~ as,4 r4 | es2 
bes,2 |
  a,4. f,8 ~ f,4 r4 | c4. g,8 ~ g,4 r4 | d4. bes,8 ~ bes,4 r4 | f,2 c2 |
  d4. bes,8 ~ bes,4 r4 | f,4. c8 ~ c4 r4 | d4. bes,8 ~ bes,4 r4 | f,2 c2 |
  d4. bes,8 ~ bes,4 r4 | f,4. c8 ~ c4 r4 | d4. bes,8 ~ bes,4 r4 | f,2 c2^\coda 
| }
  \alternative {
    { bes,1 | ~ bes,1 | }
    { bes,1 | ~ bes,1 |
      bes,1 | d1 | bes,1 | d1 | bes,1 | d1 | bes,1 | d1 |
      g, | es | bes, | d | d8 d d d d d d d \bar ":|" }
  }
  \break
  g,1^\coda | bes,1 |
   d4. bes,8 ~ bes,4 r4 | f,4. c8 ~ c4 r4 | d4. bes,8 ~ bes,4 r4 | f,2 c2 |
   d4. bes,8 ~ bes,4 r4 | f,4. c8 ~ c4 r4 | d4. bes,8 ~ bes,4 r4 | f,2 c2 |
   d4. bes,8 ~ bes,4 r4 | f,4. c8 ~ c4 r4 | d4. bes,8 ~ bes,4 r4 | f,2 c2 |
   d4. bes,8 ~ bes,4 r4 | f,4. c8 ~ c4 r4 | d4. bes,8 ~ bes,4 r4 | f,2 c2 |
   bes,1 ~ | bes,1 \bar "|."
}

text = \lyrics { <
  \context LyricsVoice = "sop-1" {
    \property LyricsVoice . stanza ="1."
    Your cruel de- vice your blood, like ice
    One look, could kill My pain, your thrill...
    I wan- na love you but I bet- ter not touch
    I wan- na hold you, but my sen- ses tell me to stop
    I wan- na kiss you but I want it too much
    I wan- na taste you but your lips are ve- no- mous poi- son
    You're poi- son, run- ning through my veins. You're poi- son
    I don't wan- na play these games. You're poi- son...  poi- son...
    One look, could kill My pain, your thrill... poi- son...
    I wan- na love you but I bet- ter not touch
    I wan- na hold you, but my sen- ses tell me to stop
    I wan- na kiss you but I want it too much
    I wan- na taste you but your lips are ve- no- mous poi- son
    You're poi- son, run- ning through my veins. You're poi- son
    I don't wan- na play these games. You're poi- son...
  }
  \context LyricsVoice = "sop-2" {
    \property LyricsVoice . stanza ="2."
    Your mouth, so hot Your web, I'm caught
    Your skin, so wet Black lace, on sweat....
    I hear you cal- ling and it's need- les and pins
    I wan- na hurt you just to hear you scream- ing my name
    Don't wan- na touch you but you're un- der my skin
    I wan- na taste you but your lips are ve- no- mous poi- son
    You're poi- son, run- ning through my veins. You're poi- son
    I don't wan- na break these chains.
} > } 

accompaniment = \chords {
  \skip 1*16
  d1:min bes f c g:min es bes d d
  g4.:min es \skip 4 bes4. f \skip 4 c4.:min as \skip 4 es2 bes
  a4.:min f  \skip 4 c4. g4. \skip 4 d4.:min bes4. \skip 4 f2 c
  d4.:min bes \skip 4 f4. c \skip 4 d4.:min bes \skip 4 f2 c
  d4.:min bes \skip 4 f4. c \skip 4 d4.:min bes \skip 4 f2 c
  bes1 bes bes bes bes d bes d bes d bes d g:min es bes d d
  g:min bes
  d4.:min bes \skip 4 f4. c \skip 4 d4.:min bes \skip 4 f2 c
  d4.:min bes \skip 4 f4. c \skip 4 d4.:min bes \skip 4 f2 c
  d4.:min bes \skip 4 f4. c \skip 4 d4.:min bes \skip 4 f2 c
  d4.:min bes \skip 4 f4. c \skip 4 d4.:min bes \skip 4 f2 c
  bes1 bes
}

\score {
  <
    \context ChordNames \accompaniment
    \addlyrics
      \context Staff = one {
        \property Voice.autoBeamSettings \override #'(end * * * *) = 
#(make-moment 1 32)
        \property Staff.automaticMelismata = ##t
        \property Staff.voltaSpannerDuration = #(make-moment 1 1)
        \melody
      }
      \context Lyrics = sop <
        \text
      >
      \context PianoStaff { <
        \context Staff = gita \gita
        \context Staff = gitb \gitb
        \context Staff = bass \bass
      > }
  >
\paper { papersize = "a4" 
   \translator { \HaraKiriStaffContext }
  }
  \midi  { \tempo 4 = 120 }
}



------------------------------------------------------------------------

_______________________________________________
Lilypond-user mailing list
address@hidden
http://mail.gnu.org/mailman/listinfo/lilypond-user



--
=============================================
        Mats Bengtsson
        Signal Processing
        Signals, Sensors and Systems
        Royal Institute of Technology
        SE-100 44  STOCKHOLM
        Sweden
        Phone: (+46) 8 790 8463                         
        Fax:   (+46) 8 790 7260
        Email: address@hidden
        WWW: http://www.s3.kth.se/~mabe
=============================================
reply via email to
[Prev in Thread] Current Thread [Next in Thread]