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 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
10 This code shows how to clip (extracts) snippets from a full score.
12 This file needs to be run separately with @code{-dclip-systems}; the
13 snippets page may not adequately show the results.
15 The result will be files named
16 @file{@var{base}-from-@var{start}-to-@var{end}[-@var{count}].eps}.
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.
26 #(ly:set-option 'clip-systems)
28 #(set! output-count 1)
32 \set Staff.instrumentName = #"bla"
51 %% each clip-region is a (START . END) pair
52 %% where both are rhythmic-locations.
54 %% (make-rhythmic-locations BAR-NUMBER NUM DEN)
55 %% means NUM/DEN whole-notes into bar numbered BAR-NUMBER
60 (make-rhythmic-location 2 0 1)
61 (make-rhythmic-location 4 0 1))
64 (make-rhythmic-location 0 0 1)
65 (make-rhythmic-location 4 0 1))
68 (make-rhythmic-location 0 0 1)
69 (make-rhythmic-location 6 0 1))
75 #(set! output-count 0)
76 #(ly:set-option 'clip-systems #f)
80 \markup { \bold \fontsize #6 clips }
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)) }