input/regression/figured-bass-slashed-numbers.ly

   1 \version "2.11.51"
   2
   3 bassfigures = \figuremode {
   4   <0/ 1/ 2/> <3/ 4/ 5/> <6/ 7/ 8/> <9/ 10/ 11/> <12/ 13/ 100/>
   5   <0\\ 1\\ 2\\> <3\\ 4\\ 5\\> <6\\ 7\\ 8\\> <9\\ 10\\ 11\\> <12\\ 13\\ 100\\>
   6   <3\\\+ 6\\/ 7\\+! >
   7 }
   8
   9 <<
  10   \new FiguredBass \bassfigures
  11 >>
  12
  13 %{
  14 % Override the exceptions:
  15
  16 #(define (horizontal-slash-interval-default num forward number-interval mag)
  17     (interval-widen number-interval (* mag 0.25)))
  18
  19 #(define (adjust-slash-stencil-default num forward stencil mag)
  20     stencil)
  21
  22 unsetExceptions = #(define-music-function (parser location) ()
  23 ;  (set! horizontal-slash-interval horizontal-slash-interval-default)
  24 ;  (set! adjust-slash-stencil adjust-slash-stencil-default)
  25   (make-music 'Music 'void #t)
  26 )
  27
  28 <<
  29   \unsetExceptions
  30   \new FiguredBass <<\unsetExceptions \bassfigures>>
  31 >>
  32 %}