Documentation/snippets/clip-systems.ly

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