]> git.donarmstrong.com Git - lilypond.git/commitdiff
* lily/parser.yy (step_number): semitones for chord entry too.
authorHan-Wen Nienhuys <hanwen@xs4all.nl>
Wed, 24 Sep 2003 12:28:00 +0000 (12:28 +0000)
committerHan-Wen Nienhuys <hanwen@xs4all.nl>
Wed, 24 Sep 2003 12:28:00 +0000 (12:28 +0000)
(make_chord_step): more robust code, semitones.

* input/regression/breathing-sign.ly (texidoc): split ancient and
normal breathing signs.

* scm/define-grobs.scm (all-grob-descriptions): swap
beamed-extreme-minimum-free-lengths and
beamed-minimum-free-lengths; the 'extreme' case should allow
shorter stems. This fixes forced directions on beamed 32nd and
shorter notes.

* ly/engraver-init.ly (ScoreContext): keyAccidentalOrder is in
quartertones, not semitones.
(NoteNamesContext): swallow more event types

* Documentation/topdocs/NEWS.texi (Top): insert close brace.

14 files changed:
ChangeLog
Documentation/topdocs/NEWS.texi
GNUmakefile.in
input/regression/accidentals.ly
input/regression/beam-chord.ly [deleted file]
input/regression/beam-default-lengths.ly
input/regression/beam-manual.ly [deleted file]
input/regression/beam-position.ly
input/regression/breathing-sign.ly
lily/parser.yy
ly/engraver-init.ly
ly/scale-definitions-init.ly
scm/chord-entry.scm
scm/define-grobs.scm

index ed81ab4a7c6d6752c9310dd8e0801339b589e8ef..978f1a1872a3e8e635ae17038637c8cafdf4133e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,33 @@
+2003-09-24  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * lily/parser.yy (step_number): semitones for chord entry too.
+       (make_chord_step): more robust code, semitones. 
+
+       * input/regression/breathing-sign-ancient.ly (texidoc): new file.
+
+       * input/regression/breathing-sign.ly (texidoc): split ancient and
+       normal breathing signs.
+
+       * scm/define-grobs.scm (all-grob-descriptions): swap
+       beamed-extreme-minimum-free-lengths and
+       beamed-minimum-free-lengths; the 'extreme' case should allow
+       shorter stems. This fixes forced directions on beamed 32nd and
+       shorter notes.
+
+       * ly/engraver-init.ly (ScoreContext): keyAccidentalOrder is in
+       quartertones, not semitones.
+       (NoteNamesContext): swallow more event types
+
+
+       * Documentation/topdocs/NEWS.texi (Top): insert close brace.
+
+       * VERSION (PACKAGE_NAME): release 1.9.10
+
 2003-09-23  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * lily/rhythmic-column-engraver.cc (process_acknowledged_grobs):
        set note head as cause of note-column.  This gives a better error
-       message
+       message.
 
 2003-09-23  Jan Nieuwenhuizen  <janneke@gnu.org>
 
index be8ab195b008240dfd00fbbcdb29de8aed75ed00..bd9426472906cc97ebcb21c5d1cfa740df5cf23e 100644 (file)
@@ -67,7 +67,7 @@ alongside, but figured bass mode was not  changed, i.e.:
 
 @example
   \markup @{ \center <@var{..list of markups..}> @}
-  \figure @{ <@var{figures> @}
+  \figure @{ <@var{figures}> @}
 @end example
 
 As chords the more often used than simultaneous music, this change will
@@ -115,9 +115,9 @@ This will put the fingering for the lowest note below the chord, and the
 rest to the left.
 
 @item
-The script previously known as @file{ly2dvi} has been renamed to
-@file{lilypond}. The binary itself is now installed as
-@file{lilypond-bin}.
+The script previously known as @code{ly2dvi} has been renamed to
+@code{lilypond}. The binary itself is now installed as
+@code{lilypond-bin}.
 
 @item
 Markup text (ie. general text formatting) may now be used for lyrics too. 
index 343fe3101946e2b5fc2411157238b09deea40bc8..5286a881089cec0595a17d993dca1256d9606a60 100644 (file)
@@ -149,7 +149,7 @@ rsync-web:
        cd out-www &&  mkdir web && tar  -xzf web.tar.gz -C web
        cd out-www/web && \
        chgrp -R lilypond . && \
-       chmod -R g+w  && \
+       chmod -R g+w  && \
        chmod 2775 `find -type d` . && \
        rsync --delete --stats --progress -gorltvu -e ssh . x:/var/www/lilypond/doc/v1.9/
        cd out-www && rm -rf web/
index 103d51585127ff0fbb6fb80f600c159767090a38..835aa8708e64bdb097f37dd69686b95b09074d80 100644 (file)
@@ -42,30 +42,8 @@ mel = \notes { \key d \major \time 4/4
 
 \score { \notes
  <<
-  \context Staff \transpose c c'' {
-   \mel
-%   \property Score.oneMeasureLazy = ##t
-   \property Score.autoAccidentals = #'(Staff (same-octave . 0))
-   << s1^"$\\backslash$property Score.autoAccidentals = \\#'((same-octave . 0))" \mel >>
-   \property Score.autoAccidentals = #'(Staff (same-octave . 1))
-   << s1^"$\\backslash$property Score.autoAccidentals = \\#'((same-octave . 1))" \mel >>
-   \property Score.autoAccidentals = #'(Staff (any-octave . 0))
-   << s1^"$\\backslash$property Score.autoAccidentals = \\#'((any-octave . 0))" \mel >>
-   \property Score.autoAccidentals = #'(Staff (any-octave . 1))
-   << s1^"$\\backslash$property Score.autoAccidentals = \\#'((any-octave . 1))" \mel >>
-   \modernAccidentals
-   << s1^"$\\backslash$modernAccidentals" \mel >>
-   \modernCautionaries
-   << s1^"$\\backslash$modernCautionaries" \mel >>
-   \noResetKey
-   << s1^"$\\backslash$noResetKey" \mel >>
-   \forgetAccidentals
-   << s1^"$\\backslash$forgetAccidentals" \mel >>
-  }
-  \context NoteNames \repeat unfold 9 \apply #no-octaves \mel
+  \context Staff \transpose c c'' \mel
+  \context NoteNames  \apply #no-octaves \mel
  >>
- \paper {
-  indent = 0.0
- }
 }
 
diff --git a/input/regression/beam-chord.ly b/input/regression/beam-chord.ly
deleted file mode 100644 (file)
index 24886c4..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-\version "1.9.8"
-\header {
-    
-texidoc = "If the first and last outer notes of a beam are the same,
-the beam should be be horizontal.  "
-
-}
-\score{
-       \notes  \transpose c' c'{
-
-                a'8[ <a' g''>]
-                a'16[ <a' g''>]
-                a'32[ <a' g''>]
-                a'8[ <f' c''>]
-                a'16[ <f' c''>]
-                a'32[ <f' c''>]
-                a'16[ <f' c''>]
-                c8[ <c e,>]
-                c16[ <c e,>]
-                c32[ <c e,>]
-       }
-       \paper{
-           raggedright = ##t 
-       }
-}
-
index b59d7354bbaa9cea61c6cec42b9c3530105fb997..5f0395ed8fafaaf2fb48ca9df16a5d482d970e23 100644 (file)
@@ -2,7 +2,7 @@
 \version "1.9.8"
 
 \header{
-    texidoc="Beamed stems have standard lengths if possible."
+    texidoc="Beamed stems have standard lengths if possible. Quantization is switched off in this example."
     }
 
 \score{
diff --git a/input/regression/beam-manual.ly b/input/regression/beam-manual.ly
deleted file mode 100644 (file)
index 7e5e12b..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-
-\version "1.9.8"
-
-\header {
-
-    texidoc = "Beam positions may be set by hand by overriding
-    positions.  No processing (quanting, damping) whatsoever is done."
-
-}
-
-\score {
-   \notes\relative c'{
-    \property Voice.Beam \override #'auto-knee-gap = ##f
-    \property Voice.Beam \override #'positions = #'(-10 . 10)
-       \stemUp
-   c16[ c'' a f]
-
-   }
-  \paper{
-    raggedright = ##t
-  }
-}
index bcff4a06376aab915fb17c1379f3057750a7884e..2ff6c1db1a21e4dbbba2b11066d750f1c95a0ec0 100644 (file)
@@ -1,12 +1,12 @@
 
 \version "1.9.8"
 \header{
-texidoc="
-Beams should always reach the middle staff line.  The second beam
-counting from the note head side, should never be lower than the
-second staff line.  This does not hold for grace note beams.
-Override with @code{noStemExtend}.
-"
+
+texidoc=" Beams on ledgered notes should always reach the middle staff
+line.  The second beam counting from the note head side, should never
+be lower than the second staff line.  This does not hold for grace
+note beams.  Override with @code{no-stem-extend}.  "
+
 }
 
 
index 2d3f939fa2918c09ca89a02b2588c2bee1c7db3a..dbf04c18952ae76adddaa0575efe058491f090eb 100644 (file)
@@ -2,23 +2,10 @@
 \version "1.9.8"
 \header{
 texidoc="
-Breathing signs, also used for phrasing, do normally not influence
-global spacing -- only if space gets tight, notes are shifted to make
-room for the breathing sign. Breathing signs break beams running
-through their voice. In the following example, the notes in the first
-two measures all have the same distance from each other.
-
 Breathing signs are available in different tastes: commas (default),
-ticks, vees and `railroad tracks' (caesura).
-
-Gregorian chant notation sometimes also uses commas and ticks, but in
-smaller font size (we call it 'virgula' and 'caesura').  However, the
-most common breathing signs are divisio minima/maior/maxima and
-finalis, the latter three looking similar to bar glyphs.
+ticks, vees and `railroad tracks' (caesura)."
+ }
 
-" }
-
-\include "gregorian-init.ly"
 
 \score {
 
@@ -67,43 +54,5 @@ finalis, the latter three looking similar to bar glyphs.
        es2 r4 \bar "||" \break
       }
     }
-
-    %
-    % Gregorian notation:
-    %
-    \context VaticanaStaff {
-      \notes \relative c' {
-
-       % we turn bars and bar numbers off for Gregorian stuff
-       \property Staff.BarLine \set #'transparent = ##t
-       \property Score.BarNumber \set #'transparent = ##t
-
-       % here is no \breathe
-       c g c
-
-       % \virgula applies rcomma, but in a smaller font
-       c \virgula g c
-
-       % \caesura applies rvarcomma, but in a smaller font
-       c \caesura g c
-
-       % \divisioMinima is a simple vertical stroke through the
-       % uppermost staffline, just like the original implementation
-       % of breathing signs.
-       c \divisioMinima g c
-
-       % \divisio{maior,maxima} and \finalis look like bars and are
-       % vertically centered on the staff; the direction property has
-       % no effect
-       c \divisioMaior g c
-       c \divisioMaxima g c
-
-       % this one looks almost like a "||" type bar
-       \finalis
-      }
-    }
-  }
-  \paper {
-    \translator { \RemoveEmptyStaffContext }
   }
 }
index 88a815741b5afba58bcfe920b5070e320ddc89d0..ee022a618511671e0ee5e9b8629e10f845e4ef70 100644 (file)
@@ -163,10 +163,11 @@ SCM
 make_chord_step (int step, int alter)
 {
        if (step == 7)
-               alter--;
+               alter += FLAT;
 
-       /* ugh: fucks up above 13 */
-       Pitch m(step > 7 ? 1 : 0,(step - 1) % 7, alter);
+       while(step < 0)
+               step += 7;
+       Pitch m((step -1) / 7 , (step - 1) % 7, alter);
        return m.smobbed_copy ();
 }
 
@@ -2150,10 +2151,10 @@ step_number:
                $$ = make_chord_step ($1, 0);
         } 
        | bare_unsigned '+' {
-               $$ = make_chord_step ($1, 1);
+               $$ = make_chord_step ($1, SHARP);
        }
        | bare_unsigned CHORD_MINUS {
-               $$ = make_chord_step ($1,-1);
+               $$ = make_chord_step ($1, FLAT);
        }
         ;      
 
index 6e3a51c62be935ecae6a621671a65ac45b0377b6..0f70dc52a8a020d16c80ca8c5b447b0a5e559074 100644 (file)
@@ -325,6 +325,10 @@ NoteNamesContext = \translator {
        verticalExtent = ##f 
 
        
+       \consists "Rest_swallow_translator" 
+       \consists "Skip_event_swallow_translator"
+       \consists "Tie_engraver"
+       \consists "Note_swallow_translator"
        \consists "Note_name_engraver"
        \consists "Separating_line_group_engraver"
 }
@@ -480,11 +484,11 @@ ScoreContext = \translator {
        autoAccidentals = #'(Staff (same-octave . 0))
        autoCautionaries = #'()  
 
-       keyAccidentalOrder = #'(
-         (6 . -1) (2  . -1) (5 . -1 ) (1  . -1) (4  . -1) (0  . -1) (3  . -1)
-        (3  . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
-         (6 . -2) (2  . -2) (5 . -2 ) (1  . -2) (4  . -2) (0  . -2) (3 . -2)
-         (3  . 2) (0 . 2) (4 . 2) (2 . 2) (5 . 2) (2 . 2) (6 . 2)
+       keyAccidentalOrder = #`(
+         (6 . ,FLAT) (2  . ,FLAT) (5 . ,FLAT ) (1  . ,FLAT) (4  . ,FLAT) (0  . ,FLAT) (3  . ,FLAT)
+        (3  . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
+         (6 . ,DOUBLE-FLAT) (2  . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1  . ,DOUBLE-FLAT) (4  . ,DOUBLE-FLAT) (0  . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
+         (3  . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
         )
        breakAlignOrder = #'(
          instrument-name
index f48941729b7ac6b5b07094035b71375ba8582bc6..81a2641907c729f18864048ea17e0a7f913d9dc7 100644 (file)
@@ -70,7 +70,7 @@ lydian = #`(
     (0 . 0)
     (1 . 0)
     (2 . 0)
-    (3 . 1)
+    (3 . SHARP)
     (4 . 0)
     (5 . 0)
     (6 . 0)
index d70e8f0a44ddff6306f61b9c50d6256419af4f15..670ff646eb21a24c96947d41ae648a57e9f7510a 100644 (file)
@@ -14,16 +14,14 @@ Entry point for the parser.
 
 "
   (let*
-      (
-       (flat-mods (flatten-list modifications))
+      ((flat-mods (flatten-list modifications))
        (base-chord (stack-thirds (ly:make-pitch 0 4 0) the-canonical-chord))
        (complete-chord '())
        (bass #f)
        (inversion #f)
        (lead-mod #f)
        (explicit-11 #f)
-       (start-additions #t)
-       )
+       (start-additions #t))
 
     (define (interpret-inversion chord mods)
       "Read /FOO   part. Side effect: INVERSION is set."
index 07e382a70befb7bb846ae8935801e1ac8734d17d..7135a0d92ac336b3b90858c88ac11704f22124d4 100644 (file)
        (beamed-lengths . (3.26 3.26 1.5))
        
        ;; [Wanske] lists three sets of minimum lengths.  One
-       ;; set for the nomal case, and one set for beams with `der
-       ;; Balkenendpunkt weiter "uber bzw. unter die Systemgrenze
-       ;; hinaus (bei Gruppen mit grossem Tonumfang)' and the extreme
+       ;; set for the nomal case, and one set for beams with "der
+       ;; Balkenendpunkt weiter uber bzw. unter die Systemgrenze
+       ;; hinaus (bei Gruppen mit grossem Tonumfang)" and the extreme
        ;; case.
 
        ;; Note that Wanske lists numbers lengths starting from top of
        ;; and the extreme minima as abolute minimum length.
        
        ;; The 'normal' minima
-       (beamed-minimum-free-lengths . (2.5 2.0 1.0))
+       (beamed-minimum-free-lengths . (1.83 1.5 1.25))
        
        ;; The 'extreme case' minima
-       (beamed-extreme-minimum-free-lengths . (1.83 1.5 1.25))
+       (beamed-extreme-minimum-free-lengths . (2.5 2.0 1.0))
 
        (X-offset-callbacks . (,Stem::off_callback))
        (X-extent-callback . ,Stem::dim_callback)