\version "2.23.9"
\language "english"

#(set-object-property! 'scordaturaTuning 'translation-type? list?)

%% Converted from articulations.cc
#(use-modules (ice-9 match))
#(define (articulation-list note-events articulation-events type)
  (let loop ((note-events note-events)
             (articulation-events articulation-events)
             (acc '()))
   (match note-events
    (()
     (reverse! acc))
    ((note-event . rest)
     (let ((found (find (lambda (ev)
                         (memq type (ly:event-property ev 'class)))
                   (ly:event-property note-event 'articulations))))
      (cond
       (found
        (loop rest
         articulation-events
         (cons found acc)))
       ((pair? articulation-events)
        (loop rest
         (cdr articulation-events)
         (cons (car articulation-events)
          acc)))
       (else
        (loop rest
         '()
         (cons '() acc)))))))))


#(define (Scordaturize_performer context)
  (let ((note-evs '())
        (string-number-evs '())
        (fingering-evs '()))
   (make-performer
    (listeners
     ((note-event engraver event)
      (set! note-evs (cons event note-evs)))
     ((string-number-event engraver event)
      (set! string-number-evs (cons event string-number-evs)))
     ((fingering-event engraver event)
      (set! fingering-evs (cons event fingering-evs))))
    ((pre-process-music engraver)

     (let* ((tab-strings (articulation-list note-evs string-number-evs 'string-number-event))               (defined-fingers (articulation-list note-evs fingering-evs 'fingering-event))

            (func (ly:context-property context 'noteToFretFunction))

            (string-fret-finger (func context note-evs (list tab-strings defined-fingers)))               (scordatura-tuning (ly:context-property context 'scordaturaTuning)))

      (for-each
       (lambda (ev elems)
        (match-let*
         (((string-number fret-number _) elems)

          (tuning-base (list-ref scordatura-tuning (1- string-number)))


          ;; Don't care about enharmony, it's about MIDI.
          (fret-diff (ly:make-pitch 0 0 (* 1/2 fret-number)))

          (sounding-pitch (ly:pitch-transpose tuning-base fret-diff)))

         (ly:event-set-property! ev 'pitch sounding-pitch)))
       note-evs
       string-fret-finger)))
    ((stop-translation-timestep engraver)
     (set! note-evs '())
     (set! string-number-evs '())
     (set! fingering-evs '())))))


\midi {
 \context {
  \Voice
  \consists #Scordaturize_performer
  noteToFretFunction = #determine-frets
  predefinedDiagramTable = ##f
  stringTunings = #guitar-tuning
 }
}




%%------------------------------------------------------------------------------
markDC ={
  %\override Score.RehearsalMark.break-visibility =  #end-of-line-visible
  \tweak self-alignment-X #RIGHT
  \mark \markup \tiny \bold "D.C."
}

global = {
  \undo \omit Staff.TimeSignature
  \set Staff.forceClef = ##t
  \clef "G_8"
  \key d \major
  \time 2/4
}


guitarI =  \relative c' {
  \set Staff.midiInstrument = "acoustic guitar (nylon)"
  \set fingeringOrientations = #'(up)
  \set strokeFingerOrientations = #'(up)
  \voiceOne
  %\stemUp
  \mergeDifferentlyDottedOn
  \mergeDifferentlyHeadedOn
  %\compressEmptyMeasures
  \override Rest.staff-position= #6
  %\incipit
  \global
  <fs-2>4 fs
  <g-4>4.  <fs-1>8
  e4 <d-3>8 e
  <d fs-2>2
  %5
  r8 e <d-4> <cs-3>
  <d-4>4 <e-4>8 <d-4>
  <cs-2>8[ <a-1>_( <d-4>) cs]
  <d-4>4. e8
  <fs-3>8[ e fs <g-4>]
  <a-4>8[ a <g-2> <fs-1>]
  <g-2>[ g <fs-2> <g-3>]
  <g, cs! e>4. <g cs e>8
  <g cs! e>8[ <g cs e> <g cs e> <g cs e>]
  <g b g'-3>4 <g cs! e>
  %%ligne 2
 % \break
  <g b g'>2 %15
  <g cs! e>4. <g cs e>8
  <g cs e>8[ <g cs e> <g cs e> <g cs e>]
  <g b g'>4 <g cs! e>
  <g b g'-4>2
  <a d fs-2>4 <a d fs> %20
  <a cs e>4 <a cs e>

 %\break
  <d-4>4 cs8 <d-4>
  e8[ <d-4> cs b]%22
  <cs-2>[ <a-1> <d-4> cs]\mordent
  <d-4>4. e8 %25
  <fs-3>8[ e fs <g-4>]
  <a-4>8[ a <g-2> <fs-1>]
  <g-2>8[ g <fs-1> <g-3>]
  <g, cs! e>4. <g cs e>8 %29
  %%ligne 3
 % \break
  <g cs e>8[ q q q] %30
  <g b g'-3>4 <g cs! e> %31
  <g b g'>2 %32
  <g cs! e>4. <g cs e>8 %33
  <g cs! e>8[ q q q] %34
  <g b g'>4 <g cs! e> %35
  <g b g'-4>2 %36
  <a d fs-2>2 %37
 % \break
  \set stringNumberOrientations = #'(left)
  \set fingeringOrientations = #'(left)
  <b d-3\3 b'-4>4 q %38
  <b d b'>2 %39
  <b c! a'>8 <b-4 gs'-4> <a b fs'-4>4 %40
  <cs! e>4. b8 %41
  cs!8[ ds e fs] %42
  <g,! b gs'-4>2 %43
  %%ligne 4
 % \break
  <b e>2 %44
  <b d-3\3 b'-4>4 q %45
  <b d b'>2 %46
  <b c! a'-4>8 <b b gs'> <a b fs'>4 %47
  <g b cs! e>4. b8 %48
  <cs!>8[ ds e fs] %49
  <g,! b gs'!>2 %50
 %\break
  s2  %51
  <c fs>2 %52
  r4 <fs-4-\2>8 <es-3> %53
  <a,-2_~ cs!-1~ fs-3~>2 q2 %55
  \markDC
  \bar "|."
}

%---GII
guitarII =  \relative c' {
  \set Staff.midiInstrument = "acoustic guitar (nylon)"
  \set fingeringOrientations = #'(left)
  %\set Timing.beamExceptions = #'()
  \voiceOne
  %\stemUp
  %\mergeDifferentlyDottedOn
  \mergeDifferentlyHeadedOn
  %\override Rest.staff-position= #-6
  %\slurDashed
  %  \rhythmMark #"" \rhyMarkIIEighths \rhyMarkTriplets
  %\nullincipit
  \global
  <a d>2 <g b> %2
  g2 s2 %4
  %5
  a2
  s2 s2
  a2 <g b!>2
  \arpeggioBracket
  %\once \override Arpeggio.positions = #'(-5 . 3)
  <a cs>2\arpeggio
  <g b>2
  s2
  s2
  %%ligne 2
  s2 s2 s2 s2 s2 s2 s2 s2
  <d g>2
  g2 s2
  a2 <g b>
  <a cs>\arpeggio
  <g b>
  s2
%%% linge 3
  s2 s2 s2 s2 s2 s2 %35
  s2 s2 s2 s2 s2 %40
  g2 g2 %42
  \stemDown
  \tweak Rest.extra-offset #'(0 . -10)
  r8 d[ <e-1> <fs-3>] %43
  %%Ligne 4
  g8[ a <b-3> <c!-3>] %44
  s2 s2 %46
  s2 %47
  s2 %48
  g2 %49
  \tweak Rest.extra-offset #'(0 . -10)
  r8 d[ e fs] %50
  %\stemDown
  <g-0>8[ <a-1> b c!] %51
 <b-4\3>4
 \once \override HorizontalBracketText.font-size = #-2
 \once\override HorizontalBracketText.text = \markup \bold "1"
   a\startGroup %52
  e4 \stopGroup \tweak Rest.staff-position #-6 r4 %53
  s2 s2 %55
  \bar "|."
}

%---GIII
guitarIII =  \relative c {
  \set Staff.midiInstrument = "acoustic guitar (nylon)"
  \set fingeringOrientations = #'(left)

  \voiceFour
  %\mergeDifferentlyDottedOn
  \mergeDifferentlyHeadedOn
  \override Rest.staff-position= #-6
  %\slurDashed
  %  \rhythmMark #"" \rhyMarkIIEighths \rhyMarkTriplets
  % \nullincipit
  \global
  d2 e,
  <c'!-2> d8[ <e-1> <f!-4> g]
  s2
  %5
  d8 e,4.
  a2
  d4 <c!-3>
  <bf-1>2 a  e2
  <c'-2>4. c8 | c!8[ c c c]
  e,4 <c'!-2>
  %%ligne 2
  e,2 %15
  c'!4. c8
  c!8[ c c c]
  e,4 c'!
  e,8[ a <bf-1> <c!-3>]
  <d-0>2
  a2
  <bf-1>
  e,2 %23
  a2
  d4 c!
  bf2
  a2
  e2
  c'!4. c8
  %%ligne 3
  c!8[ c c c] %30
  e,4 c'! %31
  e,2 %32
  c'!4. c8 %33
  c!8[ c c c] %34
  e,4 c'! %35
  e,8[ a bf-1 c!-3] %36
  d2 d2 d2 d2 %40
  <c!-2>2 c! %42
  e,2%43
  %ligne4
  s2 %44
  d'2 d2 d2 %47
  <c!-2>2 %48
  c!2 %49
  e,2 %50
  s2 s2 s2 s2 %54
  a2-0
  \bar "|."
}
%------------------------------------------------------------------------------
guitarRedobles = {   << \guitarI \\ \guitarII \\  \guitarIII   >> }
%%-----------------------------------------------------------------------------


NomdesCordes = \markup {
 \fontsize #-5 \bold \column { "E""B""E""B""F#""E" }
}


\score {
 <<
 \new Staff \with {
  scordaturaTuning = \stringTuning <e, fs, b, e b e'>
 } \guitarRedobles

 %{
 \new TabStaff
\with { instrumentName = \markup \NomdesCordes }
 \guitarRedobles
 %}
 >>
% \midi { \tempo 4=120 }
 \layout { }
}

\header { title = "Redobles" }
\score {
 \new Staff  \with {
  scordaturaTuning = \stringTuning <e, fs, b, e b e'>
 }
\unfoldRepeats  \guitarRedobles
\midi { \tempo 4=80 }
}