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: b482c3e5b56c3841a88d957e0ca12964bd3e64fa
  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 %% Translation of GIT committish: f5cfaf8ef4ac347702f554af0944ef0d8396e73a
  40   texidocfr = "
  41 Le code ci-dessous permet de réaliser des découpes à l'emporte pièce,
  42 autrement dit d'extraire des fragments, au sein d'une partition.
  43
  44 Dans la mesure où le rendu inclus dans ce manuel pourrait ne pas être
  45 des plus évidents, nous vous conseillons de traiter ce fichier
  46 individuellement, avec l'option @code{-dclip-systems}.
  47
  48 Les fichiers résultants sont de la forme
  49 @samp{base-from-début-to-fin[-compteur].eps}.
  50
  51
  52 Lorsque sont inclus le début ou la fin d'un système, l'extraction
  53 comportera les objets rattachés au système, comme le nom d'instrument.
  54
  55 Les notes d'ornement qui se trouveraient en fin de fragment ne sont pas
  56 incluses.
  57
  58 La découpe peut couvrir plusieurs systèmes, auquel cas seront générés
  59 plusieurs fichiers EPS.
  60
  61 "
  62   doctitlefr = "Découpe de systèmes"
  63
  64   texidoc = "
  65 This code shows how to clip (extract) snippets from a full score.
  66
  67 This file needs to be run separately with @code{-dclip-systems}; the
  68 snippets page may not adequately show the results.
  69
  70 The result will be files named
  71 @samp{base-from-start-to-end[-count].eps}.
  72
  73
  74 If system starts and ends are included, they include extents of the
  75 System grob, e.g., instrument names.
  76
  77
  78 Grace notes at the end point of the region are not included.
  79
  80
  81 Regions can span multiple systems.  In this case, multiple EPS files
  82 are generated.
  83
  84 "
  85   doctitle = "Clip systems"
  86 } % begin verbatim
  87
  88
  89 #(ly:set-option 'clip-systems)
  90 #(define output-suffix "1")
  91
  92 origScore = \score {
  93   \relative c' {
  94     \set Staff.instrumentName = #"bla"
  95     c1
  96     d1
  97     \grace c16 e1
  98     \key d \major
  99     f1 \break
 100     \clef bass
 101     g,1
 102     fis1
 103   }
 104 }
 105
 106 \book {
 107   \score {
 108     \origScore
 109     \layout {
 110       % Each clip-region is a (START . END) pair
 111       % where both are rhythmic-locations.
 112
 113       % (make-rhythmic-locations BAR-NUMBER NUM DEN)
 114       % means NUM/DEN whole-notes into bar numbered BAR-NUMBER
 115
 116       clip-regions = #(list
 117       (cons
 118        (make-rhythmic-location 2 0 1)
 119        (make-rhythmic-location 4 0 1))
 120
 121       (cons
 122        (make-rhythmic-location 0 0 1)
 123        (make-rhythmic-location 4 0 1))
 124
 125       (cons
 126        (make-rhythmic-location 0 0 1)
 127        (make-rhythmic-location 6 0 1))
 128       )
 129     }
 130   }
 131 }
 132
 133 #(ly:set-option 'clip-systems #f)
 134 #(define output-suffix #f)
 135
 136 \book {
 137   \score { \origScore }
 138   \markup { \bold \fontsize #6 clips }
 139   \score {
 140     \lyrics {
 141       \markup { from-2.0.1-to-4.0.1-clip.eps }
 142       \markup {
 143         \epsfile #X #30.0 #(format #f "~a-1-from-2.0.1-to-4.0.1-clip.eps"
 144                             (ly:parser-output-name parser)) }
 145     }
 146   }
 147 }