X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fclip-systems.ly;h=8db309ebb886bd43fe0c7c0ced9a7a6edce79613;hb=fb09f28821ce6ce66ec508ddaa8c9320d2813695;hp=b9861c292ae129dd2312e46b1adb18fdd4a19a1b;hpb=d80964027b03ec524debefcc6cbf4e23ed12e2e1;p=lilypond.git diff --git a/input/lsr/clip-systems.ly b/input/lsr/clip-systems.ly index b9861c292a..8db309ebb8 100644 --- a/input/lsr/clip-systems.ly +++ b/input/lsr/clip-systems.ly @@ -1,72 +1,74 @@ -%% Do not edit this file; it is auto-generated from input/new -\version "2.11.35" -\layout { ragged-right= ##t } +%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it +%% This file is in the public domain. +\version "2.12.3" + \header { - doctitle = "Clip systems" - lsrtags = "paper-and-layout" % a new tag like "Mixing text and music" or -% "Special output" might be more adequate -jm + lsrtags = "paper-and-layout" + texidoc = " -This code shows how to clip (extracts) snippets from a full score. +This code shows how to clip (extract) snippets from a full score. This file needs to be run separately with @code{-dclip-systems}; the snippets page may not adequately show the results. The result will be files named -@file{@var{base}-from-@var{start}-to-@var{end}[-@var{count}].eps}. +@samp{base-from-start-to-end[-count].eps}. + + +If system starts and ends are included, they include extents of the +System grob, e.g., instrument names. + + +Grace notes at the end point of the region are not included. + + +Regions can span multiple systems. In this case, multiple EPS files +are generated. -@itemize @bullet -@item If system starts and ends are included, they include extents of the System grob, eg. instrument names. -@item Grace notes at the end point of the region are not included. -@item Regions can span multiple systems. In this case, multiple EPS files are generated. -@end itemize " -} -% begin verbatim -#(ly:set-option 'clip-systems) + doctitle = "Clip systems" +} % begin verbatim +#(ly:set-option 'clip-systems) #(set! output-count 1) -origScore = \score{ - \relative { - \set Staff.instrumentName = #"bla" - c1 - d - \grace c16 - e1 - \key d\major - - f - \break \clef bass - g, - fis - } +origScore = \score { + \relative c' { + \set Staff.instrumentName = #"bla" + c1 + d1 + \grace c16 e1 + \key d \major + f1 \break + \clef bass + g,1 + fis1 + } } -\book { +\book { \score { \origScore \layout { + % Each clip-region is a (START . END) pair + % where both are rhythmic-locations. + + % (make-rhythmic-locations BAR-NUMBER NUM DEN) + % means NUM/DEN whole-notes into bar numbered BAR-NUMBER - %% each clip-region is a (START . END) pair - %% where both are rhythmic-locations. + clip-regions = #(list + (cons + (make-rhythmic-location 2 0 1) + (make-rhythmic-location 4 0 1)) - %% (make-rhythmic-locations BAR-NUMBER NUM DEN) - %% means NUM/DEN whole-notes into bar numbered BAR-NUMBER - - clip-regions - = #(list - (cons - (make-rhythmic-location 2 0 1) - (make-rhythmic-location 4 0 1)) - - (cons - (make-rhythmic-location 0 0 1) - (make-rhythmic-location 4 0 1)) - - (cons - (make-rhythmic-location 0 0 1) - (make-rhythmic-location 6 0 1)) - ) + (cons + (make-rhythmic-location 0 0 1) + (make-rhythmic-location 4 0 1)) + + (cons + (make-rhythmic-location 0 0 1) + (make-rhythmic-location 6 0 1)) + ) } } } @@ -80,7 +82,10 @@ origScore = \score{ \score { \lyrics { \markup { from-2.0.1-to-4.0.1-clip.eps } - \markup { \epsfile #X #30.0 #(format #f "~a-1-from-2.0.1-to-4.0.1-clip.eps" (ly:parser-output-name parser)) } + \markup { + \epsfile #X #30.0 #(format #f "~a-1-from-2.0.1-to-4.0.1-clip.eps" + (ly:parser-output-name parser)) } } } } +