set-chord-name-style. Use \property chordNameFunction.
* Documentation/user/refman.itely (Vocal music): update documentation.
* scm/define-translator-properties.scm (chordNoteNamer): remove
* Documentation/user/refman.itely (Vocal music): update documentation.
* scm/define-translator-properties.scm (chordNoteNamer): remove
+ chordNameStyle, use chordNameFunction
* scm/chord-name.scm (set-chord-name-style): remove
* scm/chord-name.scm (set-chord-name-style): remove
+ set-chord-name-style. Use \property chordNameFunction.
2003-06-12 Han-Wen Nienhuys <hanwen@cs.uu.nl>
2003-06-12 Han-Wen Nienhuys <hanwen@cs.uu.nl>
aid in future changes to input/test/ files.
2003-05-28 Graham Percival <gperlist@shaw.ca>
aid in future changes to input/test/ files.
2003-05-28 Graham Percival <gperlist@shaw.ca>
* Documentation/user/refman.itely: fixed build problem (missing
file) caused by previous renaming.
2003-05-28 Graham Percival <gperlist@shaw.ca>
* Documentation/user/refman.itely: fixed build problem (missing
file) caused by previous renaming.
2003-05-28 Graham Percival <gperlist@shaw.ca>
* input/test/[a,b]*.ly: added texinfo index and added comments to
aid in future changes to input/test/ files.
* input/test/bar-number-every-5-reset.ly: renamed to
* input/test/[a,b]*.ly: added texinfo index and added comments to
aid in future changes to input/test/ files.
* input/test/bar-number-every-5-reset.ly: renamed to
to Voice.
* lily/glissando-engraver.cc (acknowledge_grob): new file: split
to Voice.
* lily/glissando-engraver.cc (acknowledge_grob): new file: split
- out note-line and glissando functionality.
+ out note-line and glissando functionality.
* lily/line-spanner.cc (brew_molecule): cleanup.
2003-05-27 Jan Nieuwenhuizen <janneke@gnu.org>
* lily/line-spanner.cc (brew_molecule): cleanup.
2003-05-27 Jan Nieuwenhuizen <janneke@gnu.org>
@appendix Reference manual details
@menu
@appendix Reference manual details
@menu
-* Lyrics mode definition::
* American Chords ::
* Jazz chords::
* MIDI instruments::
* The Feta font::
@end menu
* American Chords ::
* Jazz chords::
* MIDI instruments::
* The Feta font::
@end menu
-@node Lyrics mode definition
-@section Lyrics mode definition
-
@node American Chords
@section American Chords
@node American Chords
@section American Chords
PACKAGE_NAME=LilyPond
MAJOR_VERSION=1
MINOR_VERSION=7
PACKAGE_NAME=LilyPond
MAJOR_VERSION=1
MINOR_VERSION=7
MY_PATCH_LEVEL=
# Use the above to send patches: MY_PATCH_LEVEL is always empty for a
MY_PATCH_LEVEL=
# Use the above to send patches: MY_PATCH_LEVEL is always empty for a
;;;
;;; source file of the GNU LilyPond music typesetter
;;;
;;;
;;; source file of the GNU LilyPond music typesetter
;;;
-;;; (c) 2000--2003 Han-Wen Nienhuys
+;;; (c) 2000--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; source file of the GNU LilyPond music typesetter
;;;
;;; (c) 2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
;;; source file of the GNU LilyPond music typesetter
;;;
;;; (c) 2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;
+;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
(define (natural-chord-alteration p)
"Return the natural alteration for step P."
(define (natural-chord-alteration p)
"Return the natural alteration for step P."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
-(define-public (sequential-music-to-chord-exceptions seq omit-root)
+;; fixme we should standardize on omit-root (or the other one.)
+;; perhaps the default should also be reversed --hwn
+(define-public (sequential-music-to-chord-exceptions seq . rest)
"Transform sequential music SEQ of type <<c d e>>-\markup{ foobar }
to (cons CDE-PITCHES FOOBAR-MARKUP), or to (cons DE-PITCHES
"Transform sequential music SEQ of type <<c d e>>-\markup{ foobar }
to (cons CDE-PITCHES FOOBAR-MARKUP), or to (cons DE-PITCHES
-FOOBAR-MARKUP) if OMIT-ROOT.
+FOOBAR-MARKUP) if OMIT-ROOT is given and non-false.
(define (chord-to-exception-entry m)
(let* ((elts (ly:get-mus-property m 'elements))
(define (chord-to-exception-entry m)
(let* ((elts (ly:get-mus-property m 'elements))
+ (omit-root (and (pair? rest) (car rest)))
(pitches (map (lambda (x) (ly:get-mus-property x 'pitch))
(filter-list
(lambda (y) (memq 'note-event
(pitches (map (lambda (x) (ly:get-mus-property x 'pitch))
(filter-list
(lambda (y) (memq 'note-event
elts)))
(sorted (sort pitches ly:pitch<?))
(root (car sorted))
elts)))
(sorted (sort pitches ly:pitch<?))
(root (car sorted))
;; ugh?
;;(diff (ly:pitch-diff root (ly:make-pitch -1 0 0)))
;; FIXME. This results in #<Pitch c> ...,
;; ugh?
;;(diff (ly:pitch-diff root (ly:make-pitch -1 0 0)))
;; FIXME. This results in #<Pitch c> ...,
(lambda (y) (memq 'text-script-event
(ly:get-mus-property y 'types)))
elts)))
(lambda (y) (memq 'text-script-event
(ly:get-mus-property y 'types)))
elts)))
- ;;(text (if (null? texts) #f (if (= length texts) 1)
- ;; (car texts) (reverse texts))))
(text (if (null? texts) #f (if omit-root (car texts) texts))))
(cons (if omit-root (cdr normalized) normalized) text)))
(text (if (null? texts) #f (if omit-root (car texts) texts))))
(cons (if omit-root (cdr normalized) normalized) text)))