Re: AccidentalSuggestion only for cautionary accidentals?

[Alexander Kobel]

Hi Malte,

I second your opinion about cautionary accidentals as used in musica
ficta. As a workaround, the following probably produces what you want:

- automatic accidentals are untouched (which might actually _not_ be
what you want)
- ! gets typeset as Accidental
- ? gets typeset as AccidentalSuggestion

Not heavily tested, but it does the job for me. YMMV.


cautionaryAsSuggestions =
#(define-music-function (m) (ly:music?)
   ;; Caveat: not usable for chords!
   (music-map
    (lambda (ev)
      (if (and (ly:music-property ev 'force-accidental #f)
               (ly:music-property ev 'cautionary #f))
          (make-music 'SequentialMusic
            'elements (list (make-music 'ContextSpeccedMusic
'context-type 'Bottom
                              'element (make-music 'PropertySet 'once #t
'value #t 'symbol 'suggestAccidentals))
                        (music-map (lambda (orig)
                                     (ly:music-set-property! orig
'cautionary #f)
                                     orig)
                          ev)))
          ev))
    m))

#(set! toplevel-music-functions
       (cons cautionaryAsSuggestions toplevel-music-functions))


HTH,
Alexander


On 31.08.19 20:37, Malte Meyn wrote:
> Hi list,
> 
> currently setting suggestAccidentals to ##t lets the Accidental_engraver
> make AccidentalSuggestion grobs instead of both Accidental and
> AccidentalCautionary grobs. Shouldn’t this replacement be done only for
> cautionary accidentals? When transcribing mensural music, one needs both
> Accidental grobs (for accidentals present in the facsimile) and
> AccidentalSuggestion grobs (for implicit musical ficta accidentals). Any
> opinions on that?
> 
> Cheers,
> Malte
> 
> %%%%%%%%%%%%%%%%%%%%%%
> 
> \version "2.19.83"
> 
> \markup { without suggestAccidentals: }
> \relative {
>   \time 2/1
>   \set Staff.timeSignatureFraction = 2/2
>   c''1 d
>   bes1 a2 g
>   a d1 cis?2
>   d\breve
> }
> 
> \markup { current output: }
> \relative {
>   \set suggestAccidentals = ##t
>   \time 2/1
>   \set Staff.timeSignatureFraction = 2/2
>   c''1 d
>   bes1 a2 g
>   a d1 cis?2
>   d\breve
> }
> 
> \markup { suggested output: }
> \relative {
>   \time 2/1
>   \set Staff.timeSignatureFraction = 2/2
>   c''1 d
>   bes1 a2 g
>   a d1 \once \set suggestAccidentals = ##t cis?2
>   d\breve
> }
> 
> _______________________________________________
> bug-lilypond mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/bug-lilypond

smime.p7s
Description: S/MIME Cryptographic Signature