input/lsr/nonmusic/clip-systems.ly

   1 %%  Do not edit this file; it is auto-generated from LSR!
   2 \header {
   3   texidoc = "Clipping snippets from a finished score
   4
   5 Notes:
   6
   7 @itemize @bullet
   8 @item If system starts and ends are included, they include extents of the System grob, eg. instrument names.
   9 @item Grace notes  at the end point of the region are not included
  10 @item Regions can span multiple systems. In this case, multiple EPS files are generated.
  11 @end itemize
  12
  13 This file needs to be run separately with @code{-dclip-systems}; the
  14 collated-files.html of the regression test does not adequately show
  15 the results.
  16
  17 The result will be files named
  18 @file{@var{base}-from-@var{start}-to-@var{end}[-@var{count}].eps}.
  19 "
  20
  21 }
  22
  23 \version "2.11.23"
  24
  25 #(ly:set-option 'clip-systems)
  26
  27 #(set! output-count 1)
  28
  29 origScore = \score{
  30     \relative {
  31       \set Staff.instrumentName = #"bla"
  32       c1
  33       d
  34       \grace c16
  35       e1
  36       \key d\major
  37
  38       f
  39       \break  \clef bass
  40       g,
  41       fis
  42     }
  43 }
  44
  45 \book {
  46   \score {
  47     \origScore
  48     \layout {
  49
  50       %% each clip-region is a (START . END) pair
  51       %% where both are rhythmic-locations.
  52
  53       %% (make-rhythmic-locations BAR-NUMBER NUM DEN)
  54       %% means NUM/DEN whole-notes into bar numbered BAR-NUMBER
  55
  56       clip-regions
  57       = #(list
  58           (cons
  59            (make-rhythmic-location 2 0 1)
  60            (make-rhythmic-location 4 0 1))
  61
  62           (cons
  63            (make-rhythmic-location 0 0 1)
  64            (make-rhythmic-location 4 0 1))
  65
  66           (cons
  67            (make-rhythmic-location 0 0 1)
  68            (make-rhythmic-location 6 0 1))
  69         )
  70     }
  71   }
  72 }
  73
  74 #(set! output-count 0)
  75 #(ly:set-option 'clip-systems #f)
  76
  77 \book {
  78   \score { \origScore }
  79   \markup { \bold \fontsize #6 clips }
  80   \score {
  81     \lyrics {
  82       \markup { from-2.0.1-to-4.0.1-clip.eps }
  83       \markup { \epsfile #X #30.0 #(format #f "~a-1-from-2.0.1-to-4.0.1-clip.eps" (ly:parser-output-name parser)) }
  84     }
  85   }
  86 }