1 %% Do not edit this file; it is auto-generated from input/new
2 %% This file is in the public domain.
4 \layout { ragged-right= ##t }
6 lsrtags = "paper-and-layout" % a new tag like "Mixing text and music" or
7 % "Special output" might be more adequate -jm
9 This code shows how to clip (extract) snippets from a full score.
11 This file needs to be run separately with @code{-dclip-systems}; the
12 snippets page may not adequately show the results.
14 The result will be files named
15 @file{@var{base}-from-@var{start}-to-@var{end}[-@var{count}].eps}.
19 If system starts and ends are included, they include extents of the
20 System grob, e.g., instrument names.
23 Grace notes at the end point of the region are not included.
26 Regions can span multiple systems. In this case, multiple EPS files
31 doctitle = "Clip systems"
34 #(ly:set-option 'clip-systems)
35 #(set! output-count 1)
39 \set Staff.instrumentName = #"bla"
55 % Each clip-region is a (START . END) pair
56 % where both are rhythmic-locations.
58 % (make-rhythmic-locations BAR-NUMBER NUM DEN)
59 % means NUM/DEN whole-notes into bar numbered BAR-NUMBER
63 (make-rhythmic-location 2 0 1)
64 (make-rhythmic-location 4 0 1))
67 (make-rhythmic-location 0 0 1)
68 (make-rhythmic-location 4 0 1))
71 (make-rhythmic-location 0 0 1)
72 (make-rhythmic-location 6 0 1))
78 #(set! output-count 0)
79 #(ly:set-option 'clip-systems #f)
83 \markup { \bold \fontsize #6 clips }
86 \markup { from-2.0.1-to-4.0.1-clip.eps }
88 \epsfile #X #30.0 #(format #f "~a-1-from-2.0.1-to-4.0.1-clip.eps"
89 (ly:parser-output-name parser)) }