Documentation/snippets/clip-systems.ly

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