Re: On popular demand: Free Meter :-)

[Rune Zedeler]

Valentin Villenave skrev:

> Thanks for the snippet Rune.

You're welcome

> Approved (a few typos fixed, and HTML tags added).

Thanks.
Unfortunately I cannot modify the snippet after you approved it.
There was a bug in it so accidentals worked correctly but printed bar 
numbers did not.
Will you please substitute code with:

%%% BEGIN %%%
increaseBarNumber = \applyContext
#(lambda (x)
  (if (ly:moment<?
       (ly:make-moment 0 1 0 1)
       (ly:context-property x 'measurePosition))
   (begin
    (ly:context-set-property!
     (ly:context-property-where-defined x 'internalBarNumber)
     'internalBarNumber
     (1+ (ly:context-property x 'internalBarNumber)))
    (ly:context-set-property!
     (ly:context-property-where-defined x 'currentBarNumber)
     'currentBarNumber
     (1+ (ly:context-property x 'currentBarNumber)))
    (ly:context-set-property!
     (ly:context-property-where-defined x 'measurePosition)
     'measurePosition
     (ly:make-moment 0 1 0 1)))))

hardbar = {
  \bar "|"
  \increaseBarNumber
}

{
  \new Staff \with { \remove Time_signature_engraver } \cadenzaOn {
    #(set-accidental-style 'modern-cautionary)
    \key a \major
    \repeat unfold 2 {
      c'8 dis' eis'  eis' \hardbar
      c'4 dis'  e' eis' \hardbar
      c' dis' eis'8 dis' eis' \hardbar
      c'1 dis' eis' eis'2 \hardbar
    }
  }
}
%%% END %%%

-Rune