Hi Michae,
Well actually I've hesitated to do that. It depends on how you read it. I
finally choose to stick to :
\version "2.19.35"
\relative c'' {
\set countPercentRepeats = ##t
\repeat percent 8 { c1 }
}
But ok, it's a personal choice, maybe not the best.
Cheers,
Pierre
2016-01-22 23:59 GMT+01:00 Michael Gerdau <m...@qata.de>:
> Hi Pierre,
>
> > \version "2.19.35"
> >
> > compressPercentRepeat =
> > #(define-music-function (repeats notes) (integer? ly:music?)
> > (let* (
> > (mea (ly:music-length notes))
> > (num (ly:moment-main-numerator mea))
> > (den (ly:moment-main-denominator mea))
> > (dur (ly:make-duration 0 0 (* num (1- repeats)) den)))
> > #{
> > #notes
> > \set Score.restNumberThreshold = #1
> > \set Score.skipBars = ##t
> > \temporary\override MultiMeasureRest.stencil =
> > #ly:multi-measure-rest::percent
> > \temporary\override MultiMeasureRestNumber.stencil =
> > #(lambda (grob)
> > (grob-interpret-markup grob
> > (markup #:concat
> > ( ;; Optional:
> > ;#:fontsize -3 "x"
> > #:fontsize -2 (number->string repeats)))))
>
> Shouldn't this be
> #:fontsize -2 (number->string (- repeats 1))))))
>
> > \temporary\override MultiMeasureRest.thickness = #0.48
> > \temporary\override MultiMeasureRest.Y-offset = #0
> > #(make-music 'MultiMeasureRestMusic 'duration dur)
> > \revert MultiMeasureRest.Y-offset
> > \revert MultiMeasureRest.thickness
> > \revert MultiMeasureRestNumber.stencil
> > \revert MultiMeasureRest.stencil
> > \unset Score.skipBars
> > \unset Score.restNumberThreshold
> > #}))
> >
> > %%%% Test:
> > soloInstrumentOne = \relative {
> > \time 4/4
> > c'4 c c c
> > \compressPercentRepeat #8 { c'4 c c c }
> > \break
> > c,4 c c c
> > \bar "|."
> > }
> >
> > soloInstrumentTwo = \relative {
> > \repeat unfold 10 { c''4 c c c }
> > }
> >
> > \markup\italic "Orchestral score:"
> > \score {
> > \new StaffGroup <<
> > \new Staff
> > \with { instrumentName = "Inst 1" }
> > \soloInstrumentOne
> > \new Staff
> > \with { instrumentName = "Inst 2" }
> > \soloInstrumentTwo
> >
> > }
> >
> > \markup\italic "Solo score:"
> > \score {
> > \new Staff
> > \with { instrumentName = "Inst 1" }
> > \soloInstrumentOne
> > }
> >
> > \layout {
> > ragged-last = ##t
> > }
>
> Kind regards,
> Michael
> --
> Michael Gerdau email: m...@qata.de
> GPG-keys available on request or at public keyserver
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
