Re: [LSR v-2.18] "Easy Rhythm Template Creation" does not compile.

[Pierre Perol-Schneider]

In order to move a little forward, I've followed advices from Jay and Alard
(snip contributors) and here I am:

rhyA = #(define-music-function (parser location p1 p2 p3)

(ly:pitch? ly:pitch? ly:pitch?)

#{ $p1 8. -> $p2 16 $p3 8 #})


rhyB = #(define-music-function (parser location p1 p2 p3)

(ly:pitch? ly:pitch? ly:pitch?)

#{ $p1 8 [ r16 $p2 $p3 8] #})


rhchordC = #(define-music-function

(parser location p1 p2)

(ly:pitch? ly:pitch?)

#{ < $p1 $p2 > 16

< $p1 $p2 > 16 ~

< $p1 $p2 > 4 #})


rhyD = #(define-music-function

(parser location p)

(ly:pitch?)

#{ \tuplet 3/2 { $p 8 $p 8 $p 8 } $p 4 $p 4 $p 8 $p 8 $p 4 #})


rhchordE = #(define-music-function

(parser location p1 p2 p3)

(ly:pitch? ly:pitch? ly:pitch?)

 #{

\tuplet 3/2 { < $p1 $p2 $p3 > 8 -- -\pp < $p1 $p2 $p3 >-- < $p1 $p2 $p3 >--
}

< $p1 $p2 $p3 > 4 --

< $p1 $p2 $p3 > --

< $p1 $p2 $p3 > 8 -- < $p1 $p2 $p3 > --

< $p1 $p2 $p3 > 4 -- #})


rhyF = #(define-music-function (parser location p1 p2 p3 p4 p5)

(ly:pitch? ly:pitch? ly:pitch? ly:pitch? ly:pitch?)

#{ \tuplet 3/2 { $p1 4 \tuplet 3/2 { $p2 8 $p3 -> $p4 } $p5 4 } #})


%%%%%%%%%% EXAMPLE %%%%%%%%%%%%%%%%


\transpose c c' {

\time 6/8

\rhyA c d e \rhyB c d e

<< { \rhyA c d e } { \rhyA e f g } >> << { \rhyB c d e } { \rhyB f g a } >>

\rhchordC c e \rhchordC c d

\time 5/4

\rhyD c \rhyD f

\rhchordE c f a

\time 4/4

\rhyF c d d d e \rhyF d e e e f

}