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

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