input/lsr/clip-systems.ly

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