%{
SlurTie
Testblatt
%}
\version "2.12.3"

%PREPROCESS:	C:\Programme_privat_32\Spezial\close_acrobat -c ${BASENAME}

storeAutoCautionaries = \applyContext #(lambda (ctx)
 (let* ((wo (ly:context-property-where-defined ctx 'autoCautionaries))
        (ac (ly:context-property wo 'autoCautionaries)))
  (ly:context-set-property! wo 'AutoCautionariesToRecall ac)))

recallAutoCautionaries = \applyContext #(lambda (ctx)
 (let* ((wo (ly:context-property-where-defined ctx 'autoCautionaries))
        (ac (ly:context-property wo 'AutoCautionariesToRecall)))
  (ly:context-set-property! wo 'autoCautionaries ac)))



FootLeft = #(string-append "Music engraving by LILYPOND, Version " (lilypond-version))
FootRight = #(string-append "compiled at " (strftime "%Y-%m-%d %H:%M:%S" (localtime (current-time))))

\paper {
  oddFooterMarkup = \markup \fill-line {
    \abs-fontsize #6.5 { \FootLeft }
    \abs-fontsize #9.0 { \bold { "Versuche/SlurTie" } }
    \abs-fontsize #6.5 { \FootRight }
  }
  indent = 0 \mm
}

test¹ = {
  \time 3/4
  \key f \major
  \partial 4
  cis''4(
  \once \override AccidentalCautionary #'color = #red
  c'') 
  r8 as' cis''4( <cis'' a'>)
  r8 as' cis''4( 
  \once \override AccidentalCautionary #'color = #red
  <c'' a'>)
  \bar "|."
}

test² = {
  \time 3/4
  \key f \major
  \partial 4
  cis''4(
  \once \override AccidentalCautionary #'color = #red
  \once \override AccidentalCautionary #'parenthesized = ##f
  c'') 
  r8 as' cis''4( <cis'' a'>)
  r8 as' cis''4( 
  \once \override AccidentalCautionary #'color = #red
  \once \override AccidentalCautionary #'parenthesized = ##f
  <c'' a'>)
  \bar "|."
}

test³ = {
  \time 3/4
  \key f \major
  \partial 4
  cis''4(
  \storeAutoCautionaries
  \set Staff.autoCautionaries = #'()
  \once \override Accidental #'color = #red
  c''!) 
  \recallAutoCautionaries
  r8 as' cis''4( <cis'' a'>)
  r8 as' cis''4(
  \storeAutoCautionaries
  \set Staff.autoCautionaries = #'()
  \once \override Accidental #'color = #red
  \once \override AccidentalCautionary #'color = #blue
  <c''! a'?>)
  \recallAutoCautionaries
  \bar "|."
}

\header{
  title = "special accidental conditions"
  tagline = ""
}

\markup {
  \justify {
    A »short« slur (or phrasing slur) crossing the bar line can be read as an tie.
    This may force the need of accidentals to cancel the previous accidental,
    and those accidentals have to be printed without parenthesis
    (or you'll think it's an editor's suggestion).
  }
}

\score {
  \new Staff {
    #(set-accidental-style 'modern-cautionary)
    \test¹
  }
  \header { piece = "accidental-style: modern-cautionary - »out of the box«" }
  
}

\score {
  \new Staff {
    #(set-accidental-style 'modern-cautionary)
    \test²
  }
  \header { piece = "accidental-style: modern-cautionary - simple workaround" }
  
}

\score {
  \new Staff {
    #(set-accidental-style 'modern-cautionary)
    \test³
  }
  \header { piece = "accidental-style: modern-cautionary - complex workaround" }
  
}