Add multiple Jazz songs

* All of Me
* As Time Goes By
* La Vie en Rose
* Nature Boy

src/includes/functions.ly

@@ -37,7 +37,26 @@
            (ly:music-set-property! music 'pitch p)))
      music))
 
-naturalizeMusic =
+naturalizeMusic = #(define-music-function (parser location m)
-#(define-music-function (parser location m)
    (ly:music?)
    (naturalize m))
+
+#(define (scoop-stencil grob)
+    (ly:stencil-add
+        (ly:note-head::print grob)
+        (grob-interpret-markup grob
+            (markup #:with-dimensions '(0 . 0) '(0 . 0)
+                #:translate '(-1.5 . -0.1)
+                #:path 0.25 '((moveto 0 0)
+                    (curveto 0 -1 -1 -1.5 -2.0 -2.0)
+                )
+            )
+        )
+    )
+)
+
+scoop = \once \override NoteHead #'stencil = #scoop-stencil
+
+toCoda = \markup {
+    \fontsize #-2 \lower #1 "TO" \musicglyph #"scripts.coda"
+}

src/scores/clarinet-solo/all-of-me.ly

@@ -0,0 +1,101 @@
+% Taken from "The Best of Essential Eleemnts for Jazz"
+% pgs. 2-3
+
+\include "globals.ly"
+
+\header {
+    title = "All of Me"
+    composer = "by Seymour Simons, Gerald Marks"
+    arranger = "arr. Michael Sweeney"
+}
+
+melody = \relative c'' {
+    \tempo "MEDIUM SWING"
+    \numericTimeSignature \time 4/4
+    \key c \major
+
+    c4-> g8-- e-^ r2 |
+    r2 c'8-- d-> c4-^ |
+    \scoop b2. gs8-- e-^ | % line 1
+    r1 |
+    a4-> g8-- e-^ r2 |
+    r4 ef4-^ e8-- bf'-> a4-. |
+    g2 g8( e) g-- f->( f2.) r4 |
+    e4-. ef8-- d->( d2) | % line 2
+    r2 e8-- gs-> b-- d->( |
+    d2.) cs8-- c-^ |
+    r1 |
+    r2 b4-. bf8-- a->( |
+    a2) a8-- d-> b-- a->( |
+    a2.) a8-- b( | % line 3
+    b2.) r4 |
+    r1 \segno |
+    r8 g4.-> g4-. r |
+    r1 |
+    r4 gs8-- gs-- gs-- gs-^ r4 |
+    r2 r4 a8( g) |
+    bf8-- a-^ r4 r2 | % line 4
+    r4 d8-- d->( d4) a8-- a->( |
+    a4) d,8 e f g a c |
+    d2 c4-. b8-- d->( |
+    d2) r8 c4.-> |
+    b2 e,4-. g8-- b->( |
+    b2) r8 \mark \toCoda  a4. | % line 5
+    c2 a4-. c8-- e->( |
+    e2) e4. c8-^ |
+    r1 |
+    r1 | % line 6 up to the solo
+
+    \mark \markup { \fontsize #-2 "SOLO" }
+    r4 c4-. a8 ef e g |
+    a8 c a c( c4) a-. |
+    b2( b8) gs-> f-- e->( |
+    e2.) r4 |
+    r2 r4 f8( e) | % pg 3, solo, line 1
+    a4-. af8-- g->( g2) |
+    r2 f4 a8( g) |
+    d'4-. cs8-- c->( c2) |
+    gs8 a b a gs2( |
+    g4) r4 r e-. | % pg 3, solo, line 2
+    a8 b c b a2( |
+    a4) r4 r2 |
+    b4-. bf8-- a( a2) |
+    r4 a8 fs a d b8-. |
+    a2 d,8 e f a |
+    c8 a bf b( b4) r \mark \markup { "D.S." } \bar "||" | % pg 3, solo, line 3
+}
+
+coda = \relative c'' {
+    \mark \markup { \musicglyph #"scripts.coda" }
+    \numericTimeSignature \time 4/4
+    \key c \major
+
+    c2 a4-. c8-- e->( |
+    e1) | % line 8 starting from coda
+    r1 |
+    r2 r4 a,4-. |
+    c2 a4-. c8-- e->( |
+    e2) e4. c8-^ |
+    r1 |
+    r2 r4 b->( |
+    b1) \fermata \bar "|." |
+}
+
+\book {
+    \score {
+        \new Staff \with {
+            instrumentName = "Clarinet"
+        } {
+            \melody
+        }
+    }
+
+    \score {
+        \layout {
+            indent = 0
+        }
+        \new Staff {
+            \coda
+        }
+    }
+}

src/scores/clarinet-solo/as-time-goes-by.ly

@@ -0,0 +1,41 @@
+\include "globals.ly"
+
+\header {
+    title = "As Time Goes By"
+    subtitle = "From Casablanca"
+    composer = "Herman Hupfeld"
+}
+
+melody = \relative c'' {
+    \tempo Andante
+    \numericTimeSignature \time 4/4
+    \key ef \major
+
+    s2. r8 g
+
+    \repeat volta 2 {
+        af8 g f ef f4. g8 | bf8 af g f af4. bf8 | ef8 d c bf c2 | r2 r4 d4 |
+        f8 ef d c d4 ef | bf4 bf ef, f |
+    }
+
+    \alternative {{
+        g1( | g2) r4 r8 g |
+    } {
+        g1( | g2) r2
+    }}
+
+    ef8 f ef c'( c4) c | c8 df c b c2 | f,8 g f c'( c4) c | c8 df c b c2 |
+    g8 af g ef'( ef4) ef | ef8 d ef d f4 d | c4 c g g | bf2. r8 g \bar "||" |
+    af8 g f ef f4. g8 | bf8 af g f af4. bf8 | ef8 d c bf c2 | r2 r4 d |
+    f8 ef d c d4 ef | bf4 bf2 g4 | bf2 bf | ef1 \bar "|." |
+}
+
+\book {
+    \score {
+        \new Staff \with {
+            instrumentName = "Clarinet"
+        } {
+            \melody
+        }
+    }
+}

src/scores/clarinet-solo/la-vie-en-rose.ly

@@ -0,0 +1,34 @@
+\include "globals.ly"
+
+\header {
+    title = "La Vie En Rose"
+    composer = "Edith Piaf"
+}
+
+melody = \relative c'' {
+    \tempo Sweetly
+    \numericTimeSignature \time 4/4
+    \key f \major
+
+    \repeat volta 2 {
+        f4( f8) e d c a f' | e4( e8) d c a f e' | d4( d8) c a e f e' | d2 c |
+        g'4( g8) f e d bf f' | e4( e8) d c bf g f' | d4( d8) c bf fs g e' | d2 c |
+        f4( f8) e d c a f' | e4( e8) d c a f e' |
+    }
+    \alternative {{
+        d4( d8) c a e f f' | f1 | g8 g4 f8 g g4 f8 | g g4 f8 c2 |
+        g'8 g4 f8 g g4 f8 | g g4 f8 a4 g |
+    } {
+        d4( d8) c d4 e | f1 |
+    }}
+}
+
+\book {
+    \score {
+        \new Staff \with {
+            instrumentName = "Clarinet"
+        } {
+            \melody
+        }
+    }
+}

src/scores/clarinet-solo/nature-boy.ly

@@ -0,0 +1,47 @@
+\include "globals.ly"
+
+\header {
+    title = "Nature Boy"
+    composer = "music by: Eden Ahbez"
+    poet = "sung by: Nat King Cole"
+}
+
+melody = \relative c' {
+    \tempo Slowly
+    \key g \major
+    \time 3/4
+
+    s2 s8 b            | b'8. g16 e2(       | e8) b fs' g a c | b8. g16 e2(     |
+    e8) b fs' g a c    | b8 e ds2           | b8 d cs2        | b8 c b4( b8) e, |
+    fs2.               | b8 a fs2(          | fs2) r8 b,      | a'8 g e2(       |
+    e2) r8 as,8        | g'8 fs cs2(        | cs2) d4         | ds2.(           |
+    d2) r8 b           | b'8. g16 e2(       | e8) b fs' g a c | b8. g16 e2(     |
+    e8) b fs' g a c    | b8 e ds2           | b8 d cs2        | b8 c b4( b8) e, |
+    fs2.               | b8 a fs2(          | fs2) r8 b,8     | a'8 g e2(       |
+    e2) r8 as,8        | g'8 fs cs4( cs8) c | e8 ds4. c8. b16 | e2.(            |
+    e2) r4             |
+}
+
+decoration = \relative c' {
+    \time 3/4
+
+    s2 s4 \bar "||"    | s2 s4              | s2 s4           | s2 s4           |
+    s2 s4              | s2 s4              | s2 s4           | s2 s4           |
+    s2 s4              | s2 s4              | s2 s4           | s2 s4           |
+    s2 s4              | s2 s4              | s2 s4           | s2 s4           |
+    s2 s4 \bar "||"    | s2 s4              | s2 s4           | s2 s4           |
+    s2 s4              | s2 s4              | s2 s4           | s2 s4           |
+    s2 s4              | s2 s4              | s2 s4           | s2 s4           |
+    s2 s4              | s2 s4              | s2 s4           | s2 s4           |
+    s2 s4 \bar "|."    |
+}
+
+\book {
+    \score {
+        \new Staff \with {
+            instrumentName = "Clarinet"
+        } {
+            << \melody \decoration >>
+        }
+    }
+}

src/scores/clarinet-solo/who-am-i.ly

@@ -40,13 +40,12 @@ words = \lyricmode {
 	I? Two, Four, Six, Oh, One!
 }
 
-
 \book {
     \score {
-        \new Staff {
+        \new Staff \with {
-            \naturalizeMusic
+            instrumentName = "Clarinet"
-			\transpose bf c'
+        } {
-			\melody
+			\transpose bf c' \melody
 
 			\addlyrics {
 				\set fontSize = #-1
@@ -54,8 +53,4 @@ words = \lyricmode {
 			}
         }
     }
-
-    \paper {
-%         page-count = #2
-    }
 }