Documentation/snippets/clip-systems.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.14.2"
   8
   9 \header {
  10   lsrtags = "paper-and-layout"
  11
  12 %% Translation of GIT committish: 6977ddc9a3b63ea810eaecb864269c7d847ccf98
  13   texidoces = "
  14 Este código muestra cómo recortar (extraer) fragmentos a partir de una
  15 partitura completa.
  16
  17 Este archivo tiene que procesarse de forma separada con la opción
  18 @option{-dclip-systems}; la página de fragmentos de código podría no
  19 mostrar el resultado adecuadamente.
  20
  21 La salida consiste en archivos con los nombres
  22 @samp{base-from-inicio-to-final[-número].eps}.
  23
  24
  25 Si se incluyen los comienzos y finales de los sistemas, incluyen las
  26 dimensiones del grob del sistema, por ejemplo los nombres de
  27 instrumento.
  28
  29
  30 Las notas de adorno en el punto final de la región no se incluyen.
  31
  32
  33 Las regiones pueden abarcar varios sistemas.  En este caso, se generan
  34 varios archivos EPS.
  35
  36 "
  37   doctitlees = "Recorte de sistemas"
  38
  39   texidoc = "
  40 This code shows how to clip (extract) snippets from a full score.
  41
  42 This file needs to be run separately with @code{-dclip-systems}; the
  43 snippets page may not adequately show the results.
  44
  45 The result will be files named
  46 @samp{base-from-start-to-end[-count].eps}.
  47
  48
  49 If system starts and ends are included, they include extents of the
  50 System grob, e.g., instrument names.
  51
  52
  53 Grace notes at the end point of the region are not included.
  54
  55
  56 Regions can span multiple systems.  In this case, multiple EPS files
  57 are generated.
  58
  59 "
  60   doctitle = "Clip systems"
  61 } % begin verbatim
  62
  63
  64 #(ly:set-option 'clip-systems)
  65 #(define output-suffix "1")
  66
  67 origScore = \score {
  68   \relative c' {
  69     \set Staff.instrumentName = #"bla"
  70     c1
  71     d1
  72     \grace c16 e1
  73     \key d \major
  74     f1 \break
  75     \clef bass
  76     g,1
  77     fis1
  78   }
  79 }
  80
  81 \book {
  82   \score {
  83     \origScore
  84     \layout {
  85       % Each clip-region is a (START . END) pair
  86       % where both are rhythmic-locations.
  87
  88       % (make-rhythmic-locations BAR-NUMBER NUM DEN)
  89       % means NUM/DEN whole-notes into bar numbered BAR-NUMBER
  90
  91       clip-regions = #(list
  92       (cons
  93        (make-rhythmic-location 2 0 1)
  94        (make-rhythmic-location 4 0 1))
  95
  96       (cons
  97        (make-rhythmic-location 0 0 1)
  98        (make-rhythmic-location 4 0 1))
  99
 100       (cons
 101        (make-rhythmic-location 0 0 1)
 102        (make-rhythmic-location 6 0 1))
 103       )
 104     }
 105   }
 106 }
 107
 108 #(ly:set-option 'clip-systems #f)
 109 #(define output-suffix #f)
 110
 111 \book {
 112   \score { \origScore }
 113   \markup { \bold \fontsize #6 clips }
 114   \score {
 115     \lyrics {
 116       \markup { from-2.0.1-to-4.0.1-clip.eps }
 117       \markup {
 118         \epsfile #X #30.0 #(format #f "~a-1-from-2.0.1-to-4.0.1-clip.eps"
 119                             (ly:parser-output-name parser)) }
 120     }
 121   }
 122 }