%2_11_my_dynamics.ly

#(define dynamic-char?
  (lambda (c)
	 (or (eq? #\f c) (eq? #\m c) (eq? #\p c)
	     (eq? #\r c) (eq? #\s c) (eq? #\v c) (eq? #\z c))))

#(define dynamic?
  (lambda (str)
    (let ((i (string-length str)))
      (case i
        ((0) #f)
        ((1) (dynamic-char? (string-ref str 0)))
        (else (and (dynamic-char? (string-ref str (- i 1)))
                   (dynamic? (substring str 0 (- i 1)))))))))

#(define make-custom-dynamic-script
  (lambda (a b)
   (cond
    ((dynamic? a)
     (make-dynamic-script
      (markup #:line (#:dynamic a #:normal-text #:italic b))))
    ((dynamic? b)
     (make-dynamic-script
      (markup #:line (#:normal-text #:italic a #:dynamic b))))
    (else (ly:error "no dynamics found in make-custom-dynamic-script")))))


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


pppsempre = #(make-custom-dynamic-script "ppp" "sempre")
ppsempre = #(make-custom-dynamic-script "pp" "sempre")
psempre = #(make-custom-dynamic-script "p" "sempre")
mpsempre = #(make-custom-dynamic-script "mp" "sempre")
mfsempre = #(make-custom-dynamic-script "mf" "sempre")
fsempre = #(make-custom-dynamic-script "f" "sempre")
ffsempre = #(make-custom-dynamic-script "ff" "sempre")
fffsempre = #(make-custom-dynamic-script "fff" "sempre")	

pppsubito = #(make-custom-dynamic-script "ppp" "subito")
ppsubito = #(make-custom-dynamic-script "pp" "subito")
psubito = #(make-custom-dynamic-script "p" "subito")
mpsubito = #(make-custom-dynamic-script "mp" "subito")
mfsubito = #(make-custom-dynamic-script "mf" "subito")
fsubito = #(make-custom-dynamic-script "f" "subito")
ffsubito = #(make-custom-dynamic-script "ff" "subito")
fffsubito = #(make-custom-dynamic-script "fff" "subito")	

ppptresExpr = #(make-custom-dynamic-script "ppp" "très expr.")
pptresExpr = #(make-custom-dynamic-script "pp" "très expr.")
ptresExpr = #(make-custom-dynamic-script "p" "très expr.")
mptresExpr = #(make-custom-dynamic-script "mp" "très expr.")
mftresExpr = #(make-custom-dynamic-script "mf" "très expr.")
ftresExpr = #(make-custom-dynamic-script "f" "très expr.")
fftresExpr = #(make-custom-dynamic-script "ff" "très expr.")
ffftresExpr = #(make-custom-dynamic-script "fff" "très expr.")

menoppp = #(make-custom-dynamic-script "meno" "ppp")
menopp = #(make-custom-dynamic-script "meno" "pp")
menop = #(make-custom-dynamic-script "meno" "p")
menomp = #(make-custom-dynamic-script "meno" "mp")
menomf = #(make-custom-dynamic-script "meno" "mf")
menof = #(make-custom-dynamic-script "meno" "f")
menoff = #(make-custom-dynamic-script "meno" "ff")
menofff = #(make-custom-dynamic-script "meno" "fff")

pocoppp = #(make-custom-dynamic-script "poco" "ppp")
pocopp = #(make-custom-dynamic-script "poco" "pp")
pocop = #(make-custom-dynamic-script "poco" "p")
pocomp = #(make-custom-dynamic-script "poco" "mp")
pocomf = #(make-custom-dynamic-script "poco" "mf")
pocof = #(make-custom-dynamic-script "poco" "f")
pocoff = #(make-custom-dynamic-script "poco" "ff")
pocofff = #(make-custom-dynamic-script "poco" "fff")

piuppp = #(make-custom-dynamic-script "più" "ppp")
piupp = #(make-custom-dynamic-script "più" "pp")
piup = #(make-custom-dynamic-script "più" "p")
piump = #(make-custom-dynamic-script "più" "mp")
piumf = #(make-custom-dynamic-script "più" "mf")
piuf = #(make-custom-dynamic-script "più" "f")
piuff = #(make-custom-dynamic-script "più" "ff")
piufff = #(make-custom-dynamic-script "più" "fff")

sempreppp = #(make-custom-dynamic-script "sempre" "ppp")
semprepp = #(make-custom-dynamic-script "sempre" "pp")
semprep = #(make-custom-dynamic-script "sempre" "p")
sempremp = #(make-custom-dynamic-script "sempre" "mp")
sempremf = #(make-custom-dynamic-script "sempre" "mf")
sempref = #(make-custom-dynamic-script "sempre" "f")
sempreff = #(make-custom-dynamic-script "sempre" "ff")
semprefff = #(make-custom-dynamic-script "sempre" "fff")

subitoppp = #(make-custom-dynamic-script "subito" "ppp")
subitopp = #(make-custom-dynamic-script "subito" "pp")
subitop = #(make-custom-dynamic-script "subito" "p")
subitomp = #(make-custom-dynamic-script "subito" "mp")
subitomf = #(make-custom-dynamic-script "subito" "mf")
subitof = #(make-custom-dynamic-script "subito" "f")
subitoff = #(make-custom-dynamic-script "subito" "ff")
subitofff = #(make-custom-dynamic-script "subito" "fff")