]> git.donarmstrong.com Git - lilypond.git/blobdiff - Documentation/snippets/ancient-fonts.ly
Add '-dcrop' option to ps and svg backends
[lilypond.git] / Documentation / snippets / ancient-fonts.ly
index c1b62d8ec0dcd3c7d2132561504f790564ad2263..70537f268162aa27f3926ca3671950d39bee0128 100644 (file)
@@ -1,33 +1,17 @@
-%% Do not edit this file; it is automatically
-%% generated from LSR http://lsr.dsi.unimi.it
+%% DO NOT EDIT this file manually; it is automatically
+%% generated from LSR http://lsr.di.unimi.it
+%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
+%% and then run scripts/auxiliar/makelsr.py
+%%
 %% This file is in the public domain.
-\version "2.13.16"
+\version "2.18.0"
 
 \header {
-  lsrtags = "ancient-notation"
-
-%% Translation of GIT committish: 5a7301fc350ffc3ab5bd3a2084c91666c9e9a549
-  texidoces = "
-Aquí se muestran muchos de (¿o quizá todos?) los símbolos que
-están contemplados por la capacidad de LilyPond para la música
-antigua.
-"
-
-  doctitlees = "Tipografía de música antigua"
-
-%% Translation of GIT committish: 9a65042d49324f2e3dff18c4b0858def81232eea
-  texidocfr ="
-Voici comment graver la plupart, sinon tous les symboles que
-LilyPond prend en charge en matière de musique ancienne.
-
-"
-  doctitlefr = "Gravure de musique ancienne"
+  lsrtags = "ancient-notation, symbols-and-glyphs"
 
   texidoc = "
-Shown here are many (all?) of the symbols that are included in
-LilyPond's support for ancient notation.
-
-
+Shown here are many of the symbols that are included in LilyPond's
+ancient notation.
 
 "
   doctitle = "Ancient fonts"
@@ -37,95 +21,90 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
   \context VaticanaVoice <<
     \transpose c c {
 
-      \override NoteHead #'style = #'vaticana.punctum
+      \override NoteHead.style = #'vaticana.punctum
       \key es \major
       \clef "vaticana-fa2"
       c1 des e f ges
 
-      \override NoteHead #'style = #'vaticana.inclinatum
+      \override NoteHead.style = #'vaticana.inclinatum
       a! b ces'
       \bar "|"
-      % \break % 1 (8*1)
 
-      \override NoteHead #'style = #'vaticana.quilisma
+      \override NoteHead.style = #'vaticana.quilisma
       b! des'! ges! fes!
       \breathe
       \clef "vaticana-fa1"
-      \override NoteHead #'style = #'vaticana.plica
+      \override NoteHead.style = #'vaticana.plica
       es d
-      \override NoteHead #'style = #'vaticana.reverse.plica
+      \override NoteHead.style = #'vaticana.reverse.plica
       c d
       \bar "|"
-      % \break %2 (8*1)
 
-      \override NoteHead #'style = #'vaticana.punctum.cavum
+      \override NoteHead.style = #'vaticana.punctum.cavum
       es f
-      \override NoteHead #'style = #'vaticana.lpes
+      \override NoteHead.style = #'vaticana.lpes
       g as
-      \override NoteHead #'style = #'vaticana.upes
+      \override NoteHead.style = #'vaticana.upes
       bes as
-      \override NoteHead #'style = #'vaticana.vupes
+      \override NoteHead.style = #'vaticana.vupes
       g f
-      \override NoteHead #'style = #'vaticana.linea.punctum
-      \once \override Staff.BarLine #'bar-size = #2.0 \bar "|"
-      % \break % 3 (8*1)
+      \override NoteHead.style = #'vaticana.linea.punctum
+      \once \override Staff.BarLine.bar-extent = #'(-1 . 1) \bar "|"
 
       es d
-      \override NoteHead #'style = #'vaticana.epiphonus
+      \override NoteHead.style = #'vaticana.epiphonus
       c d
-      \override NoteHead #'style = #'vaticana.cephalicus
+      \override NoteHead.style = #'vaticana.cephalicus
       es f
 
-      \override Staff.KeySignature #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
-      \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
-      \override Staff.Custos #'style = #'medicaea
-      \override NoteHead #'style = #'medicaea.punctum
+      \override Staff.KeySignature.glyph-name-alist =
+        #alteration-medicaea-glyph-name-alist
+      \override Staff.Accidental.glyph-name-alist =
+        #alteration-medicaea-glyph-name-alist
+      \override Staff.Custos.style = #'medicaea
+      \override NoteHead.style = #'medicaea.punctum
       \clef "medicaea-fa2"
       ces des
       \bar "|"
-      % \break % 4 (8*1)
 
       e! f! ges
       \clef "medicaea-do2"
-      \override NoteHead #'style = #'medicaea.inclinatum
+      \override NoteHead.style = #'medicaea.inclinatum
       a! b! ces'
-      \override NoteHead #'style = #'medicaea.virga
+      \override NoteHead.style = #'medicaea.virga
       b! a!
       \bar "|"
-      % \break % 5 (8*1)
 
       ges fes
       \clef "medicaea-fa1"
-      \override NoteHead #'style = #'medicaea.rvirga
+      \override NoteHead.style = #'medicaea.rvirga
       e des ces
 
-      \override Staff.KeySignature #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
-      \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
-      \override Staff.Custos #'style = #'hufnagel
-      \override NoteHead #'style = #'hufnagel.punctum
+      \override Staff.KeySignature.glyph-name-alist =
+        #alteration-hufnagel-glyph-name-alist
+      \override Staff.Accidental.glyph-name-alist =
+        #alteration-hufnagel-glyph-name-alist
+      \override Staff.Custos.style = #'hufnagel
+      \override NoteHead.style = #'hufnagel.punctum
       \clef "hufnagel-fa2"
       ces des es
       \bar "|"
-      % \break % 6 (8*1)
 
       fes ges
       \clef "hufnagel-do2"
-      \override NoteHead #'style = #'hufnagel.lpes
+      \override NoteHead.style = #'hufnagel.lpes
       as! bes! ces'
-      \override NoteHead #'style = #'hufnagel.virga
+      \override NoteHead.style = #'hufnagel.virga
       bes! as!
       \bar "|"
-      % \break % 7 (8*1)
 
       ges! fes!
       \clef "hufnagel-do-fa"
-      \override NoteHead #'style = #'hufnagel.punctum
+      \override NoteHead.style = #'hufnagel.punctum
       es! des ces des! es! fes!
       \bar "||"
-      % \break % 8 (8*1)
 
       s32*1
-      % \break % 12 (32*1)
     }
   >>
 >>
@@ -140,12 +119,10 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
       \clef "neomensural-c2"
       cis1
       \bar "|"
-      % \break % 2 (16*1)
 
       \[ g\breve dis''\longa \]
       b\breve \[ a\longa d\longa \]
       \clef "petrucci-c2"
-      % \break % 4 (16*1)
 
       fis1 ces1
       \clef "petrucci-c2"
@@ -154,13 +131,12 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
       \clef "mensural-c2"
       r\breve
       \bar "|"
-      % \break % 5 (8*1)
 
       r2
       \clef "mensural-g"
       r4 r8 r16 r16
-      \override NoteHead #'style = #'mensural
-      \override Rest #'style = #'mensural
+      \override NoteHead.style = #'mensural
+      \override Rest.style = #'mensural
       \clef "petrucci-f"
       c8 b, c16 b, c32 b, c64 b, c64 b,
       d8 e d16 e d32 e d64 e d64 e
@@ -169,7 +145,6 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
       \clef "petrucci-f"
       r\breve
       \bar "|"
-      % \break % 6 (8*1)
 
       r\breve
       \clef "mensural-f"
@@ -179,18 +154,15 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
       \clef "mensural-f"
       e\breve f g a1
       \clef "mensural-g"
-      % \break % 7 (8*1)
 
       \[ bes'!\longa a'!\longa c''!\longa \]
       e'1 d' c' d' \bar "|"
       \bar "|"
-      % \break % 9 (16*1)
 
       bes'!\longa fis'!1 as'!1 ges'!\longa % lig
       \set Staff.forceClef = ##t
       \clef "mensural-g"
       e'2 d' c' \bar "|"
-      % \break % 11 (16*1)
 
       \set Staff.forceClef = ##t
       \clef "petrucci-g"
@@ -201,7 +173,6 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
       \set Staff.forceClef = ##t
       \clef "mensural-g"
       es'! des'! cis'!1 \bar "||"
-      % \break % 12 (8*1)
     }
   >>
 >>
@@ -217,31 +188,31 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
   >>
   \layout {
     indent = 0.0
-    line-width = 17.25\cm
     \context {
       \Score
       timing = ##f
     }
     \context {
       \MensuralVoice
-      \override NoteHead #'style = #'neomensural
-      \override Rest #'style = #'neomensural
-      \override Stem #'flag-style = #'mensural
-      \override Stem #'thickness = #1.0
+      \override NoteHead.style = #'neomensural
+      \override Rest.style = #'neomensural
+      \override Flag.style = #'mensural
+      \override Stem.thickness = #1.0
     }
     \context {
       \MensuralStaff
-      \revert  BarLine #'transparent
-      \override KeySignature #'glyph-name-alist = #alteration-mensural-glyph-name-alist
+      \revert  BarLine.transparent
+      \override KeySignature.glyph-name-alist =
+        #alteration-mensural-glyph-name-alist
       clefGlyph = #"clefs.petrucci.c2"
     }
     \context {
       \VaticanaStaff
-      \revert  BarLine #'transparent
-      \override StaffSymbol #'thickness = #2.0
-      \override KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
-      \override Custos #'neutral-position = #4
+      \revert  BarLine.transparent
+      \override StaffSymbol.thickness = #2.0
+      \override KeySignature.glyph-name-alist =
+        #alteration-vaticana-glyph-name-alist
+      \override Custos.neutral-position = #4
     }
   }
 }
-