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