input/lsr/clip-systems.ly

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