Re: First attempt at new accidentals in git

[Rune Zedeler]

Rune Zedeler skrev:

> %%% BEGIN
> \version "2.11.32"
>
> #(define (start-of-measure-acc-rule context pitch barnum measurepos)
>   (cons #f (equal? measurepos (ly:make-moment 0 1))))
>
> mus = {
>   \key des \major
>   \transpose c c' {
>     g16 g g g' g' d' d' d' g' g' f f gis gis g g' ges1
>   }
> }
> <<
>   \new Staff {
>     \set Staff.autoCautionaries = #(list 'Staff start-of-measure-acc-rule)
>     \relative c' { c4 d e f g gis a ais b2 c }
>   }
>  >>
> %%% END

Hmm, eh, make that

%%% BEGIN
\version "2.11.32"

#(define (start-of-measure-acc-rule context pitch barnum measurepos)
  (cons #f (equal? measurepos (ly:make-moment 0 1))))

<<
  \new Staff {
    \set Staff.autoCautionaries = #(list 'Staff start-of-measure-acc-rule)
    \relative c' { c4 d e f g gis a ais b2 c }
  }
>>
%%% END


> TODO:
...

* Implement the old c++-function in scheme instead of using a callback. 
(Unless it gives too much overhead)

-Rune