input/lsr/scheme/automatically-durations-diminution.ly

   1 %%  Do not edit this file; it is auto-generated from LSR!
   2 \version "2.11.23"
   3
   4 \header { texidoc = "
   5 If you want to see what a piece looks like twice faster, or slower,
   6 without having to correct every duration manually, here is an easy way
   7 to do it.
   8 " }
   9
  10 \paper { indent = 0 }
  11
  12
  13 music = {a4. b4 c b8 a g a4 b8 a}
  14
  15 looksFaster = #(define-music-function (parser location music)
  16                                    (ly:music?)
  17            (let ((new-music (ly:music-deep-copy music)))
  18             (shift-duration-log new-music 1 0)
  19             new-music))
  20
  21 looksSlower = #(define-music-function (parser location music)
  22                                    (ly:music?)
  23            (let ((new-music (ly:music-deep-copy music)))
  24             (shift-duration-log new-music -1 0)
  25             new-music))
  26
  27 \score { \new Voice { \time 7/8 \music
  28 \break \looksFaster { \time 7/16 \music }
  29 \break \looksSlower { \time 7/4 \music }}}