]> git.donarmstrong.com Git - lilypond.git/commitdiff
*** empty log message ***
authorHan-Wen Nienhuys <hanwen@xs4all.nl>
Sat, 19 Jul 2003 09:53:22 +0000 (09:53 +0000)
committerHan-Wen Nienhuys <hanwen@xs4all.nl>
Sat, 19 Jul 2003 09:53:22 +0000 (09:53 +0000)
input/test/add-staccato.ly
input/test/hymn.ly
input/test/improv.ly
input/test/part-combine-moments.ly
input/test/rests.ly
input/test/script-abbreviations.ly
input/test/script-chart.ly
input/test/vaticana.ly

index 996196b5110388ae3ebf97aa4ec57a20cc4066fa..9b65422ea3f3040f6c098426587373baea214813 100644 (file)
@@ -1,5 +1,5 @@
-\version "1.7.18"  %% or actually: 1.7.1 ...
-% FIXME: doesn't work with 1.7.19.  Check with more recent version.
+\version "1.7.18
+
 \header {
 
 texidoc= "@cindex Add Stacato
@@ -15,16 +15,11 @@ one would not use scm constructs.  See separate-staccato.ly first.
      m))
     
 #(define (add-script m x)
-   (if (equal? (ly:get-mus-property m 'name) 'RequestChord)
-       (ly:set-mus-property! m 'elements
-                           (cons (make-script x)
-                                 (ly:get-mus-property m 'elements)))
-
-       (let ((es (ly:get-mus-property m 'elements))
-            (e (ly:get-mus-property m 'element)) )
-        (map (lambda (y) (add-script y x)) es)
-        (if (ly:music? e)
-            (add-script e x))))
+   (if
+    (equal? (ly:get-mus-property m 'name) 'EventChord)
+    (ly:set-mus-property! m 'elements
+                         (cons (make-script x)
+                               (ly:get-mus-property m 'elements))))
    m)
 
 #(define (add-staccato m)
@@ -32,10 +27,9 @@ one would not use scm constructs.  See separate-staccato.ly first.
 
 \score {
   \notes\relative c'' {
-    a b \apply #add-staccato { c c } 
-    a b \apply #add-staccato { c c } 
+    a b \apply #(lambda (x) (music-map add-staccato x)) { c c } 
   }
-       \paper{ raggedright = ##t }
+  \paper{ raggedright = ##t }
 }
 
 
index e916091699625e9d62b20afd724b6922860a24ee..f60d1ddcece5834b2f42a92b011929893bd1579a 100644 (file)
@@ -1,15 +1,12 @@
 \version "1.7.18"
-%  We have other examples of partcombine.  Candidate for delete.  -gp
-%  leave it for now; I need to check some things.
-% FIXMEsoon -gp
-%{
-Jan:
-> Why remove this?  Do we have another hymn with part-combiner?  Maybe
-> move to template?
-%}
 
-\header { texidoc = "@cindex Hymn
-You can combine two parts on the same staff. " }
+\header { texidoc = "
+
+You can combine two parts on the same staff using the part
+combiner. For vocal scores (hymns), there is no need to add solo/a2
+texts, so they should be switched off.
+
+" }
 
 \score{
        \context Staff <
index efa4a7cd5d9709c0ebef27a2d34a6b87352017d9..fc8faf52cb90df494a8b0a352d2f787b04d738e4 100644 (file)
@@ -1,9 +1,16 @@
 \version "1.7.18"
-\header { texidoc = "@cindex Improv
-Noteheads for improvisation have a different shape. " }
+\header {
 
-%{ TODO: the construct with separet SquashVoice context is a little
- gory. FIXME.  %}
+texidoc =
+
+
+"@cindex improvisation
+
+
+Noteheads for improvisation have a different shape.
+
+
+" }
 
 
 improOn = \notes {\translator Voice = impro }
@@ -29,20 +36,15 @@ global = \notes { s1*3 \bar "|." }
       \name SquashVoice
       \alias Voice
       \consists Pitch_squash_engraver
-      \consists "Accidental_engraver"
       squashedPosition = #0
       NoteHead \override #'style = #'slash
-      Accidental \override #'transparent = ##t
     }
+
     \translator {
       \VoiceContext
       \alias SquashVoice
-      \consists "Accidental_engraver"
-    }
-    \translator {
-      \ScoreContext
-      \accepts SquashVoice
     }
+    
     \translator {
       \StaffContext
       \remove "Accidental_engraver"
index 1574efbb2449a19a1cc383281657d8c86608d18a..af96f80f5451f6bae399a7c53e6e086b653b1621 100644 (file)
@@ -91,11 +91,8 @@ only have one stem. "
                        \accepts "StaffCombineStaff"
                        skipBars = ##t 
 
-                       %%FIXME barScriptPadding = #2.0 % dimension \pt
                        RehearsalMark \override #'padding = #4
                        BarNumber \override #'padding = #3
-                       %% URG: this changes dynamics too
-                       %%textStyle = #"italic"
                        TimeSignature \override #'style = #'C
                        RestCollision \set #'maximum-rest-count = #1
                }
index c4805f0811c9f40302567b2e807079e6edeafcd0..4dcab82ce2073bb9351bc2bb81922053b36bfc7f 100644 (file)
@@ -1,7 +1,10 @@
 \version "1.7.18"
 \header {
     texidoc = "@cindex Rests
-Rests in various styles."
+
+Rests in various styles.
+
+"
 }
 
 % FIXME: Currently, this file produces "warning: flag `d-3' not found"
@@ -10,6 +13,7 @@ Rests in various styles."
 
 \score { 
     \context Staff \notes\relative c {
+       \property Score.timing = ##f
        \property Staff.Rest \set #'style = #'mensural
        r\maxima^"Rest style = \#'mensural"
        r\longa r\breve r1 r2 r4 r8 r16 r32 r64 r128 r128 
@@ -18,29 +22,17 @@ Rests in various styles."
        \property Staff.Rest \set #'style = #'neo_mensural
        r\maxima^"Rest style = \#'neo\\_mensural"
        r\longa r\breve r1 r2 r4 r8 r16 r32 r64 r128 r128 
-       \break
+       \bar empty      \break
 
        \property Staff.Rest \set #'style = #'classical
        r\maxima^"Rest style = \#'classical"
        r\longa r\breve r1 r2 r4 r8 r16 r32 r64 r128 r128 
-       \break
+\break
 
        \property Staff.Rest \set #'style = #'default
        r\maxima^"Rest style = \#'default"
        r\longa r\breve r1 r2 r4 r8 r16 r32 r64 r128 r128 
        \break
     }
-    \paper {
-       \translator {
-           \StaffContext
-           %%%% FIXME: The following looks good, but produces
-           %%%% lots of warnings:
-           % \remove Bar_engraver
-       }
-       \translator {
-           \ScoreContext
-           \remove Bar_number_engraver
-       }
-    }
 }
 
index d7ae6461ab5c4cbc538c3beedd5d09914a4753c8..5832d4d967a8b373962e844b9f233ca2c1237872 100644 (file)
@@ -1,7 +1,13 @@
+
+% this chart is used in the manual too.
+
 \version "1.7.18"
-% FIXMEsoon: check if test/ is the right place.
 \header { texidoc = "@cindex Script Abbreviations
-Some scripts may be entered using an abbreviation. "
+
+Some scripts may be entered using an abbreviation.
+
+"
+         
 }
 
 \score {
index 406817f17f26b709b298d7ddeb37358191228768..ef3974f782a79d3283f1386c873bbea7fb5d012c 100644 (file)
@@ -1,8 +1,13 @@
 \version "1.7.18"
-% FIXMEsoon: check if test/ is the best place.
+
+% this chart is used in the manual too.
+
 \header {
     texidoc ="@cindex Feta scripts
-A chart showing all feta scripts. "
+
+A chart showing all feta scripts.
+
+"
 }
 
 \score {
index c6c80d279468b2b734566385b29fc659bf0972dd..fab7d160206f6e05cf4d1585691f3261a721f3a5 100644 (file)
@@ -43,10 +43,7 @@ verba = \context Lyrics = verba \lyrics {
     indent = 0.0
        raggedright = ##t
 %
-% FIXME: ragged-right alignment is currently broken
-       % I don't think it is any more.  -gp
-%   width = 12.0 \cm
-%   gourlay_maxmeasures = 30.
+% FIXME: packed alignment is currently broken
 %
 
     \translator {
@@ -67,7 +64,6 @@ verba = \context Lyrics = verba \lyrics {
       \remove Bar_engraver
       \consists Custos_engraver
       StaffSymbol \set #'line-count = #4
-%     StaffSymbol \set #'width = #60.0 % FIXME: how to get same as \linewidth?
       TimeSignature \set #'transparent = ##t
       KeySignature \set #'style = #'vaticana
       Accidental \set #'style = #'vaticana