+*** WARNING(reminder): all output via TeX (ie: using ly2dvi or plain
+*** lilypond) still yields broken stems, bars and staff lines.
+
+1.5.1.jcn1
+==========
+
+* Beam knee fix.
+
+* Now really included lexer-gcc-3.0.patch.
+
+* Make Voice context accept Thread again; this fixes MIDI output for music
+that uses Thread contexts.
+
+* Removed debug printing from chord-name.scm.
+
+1.5.0
+=====
+
1.5.0.jcn1
==========
cd winsup/cinstall
patch < ../../cygwin-installer.patch
cp /home/cygwin/cygwin-1.3.2/usr/lib/mingw/crt2.o .
- cd ../bzip
+ cd ../bz2lib
MINGW32=yes CFLAGS='-mno-cygwin' ./configure
make
cd -
README_FILES = DEDICATION COPYING NEWS CHANGES ROADMAP
README_TXT_FILES = AUTHORS.txt README.txt INSTALL.txt FAQ.txt
IN_FILES := $(wildcard *.in)
-EXTRA_DIST_FILES = lilypond-font-lock.el lilypond-mode.el lilypond-init.el vimrc VERSION $(README_FILES) $(SCRIPTS) $(IN_FILES) emacsclient.patch mktexnam.patch
+EXTRA_DIST_FILES = lilypond-font-lock.el lilypond-mode.el lilypond-init.el vimrc VERSION $(README_FILES) $(SCRIPTS) $(IN_FILES) emacsclient.patch mktexnam.patch lexer-gcc-3.0.patch
NON_ESSENTIAL_DIST_FILES = $(README_TXT_FILES)
INSTALLATION_DIR=$(datadir)
INSTALLATION_FILES=$(configuration) VERSION
MAJOR_VERSION=1
MINOR_VERSION=5
PATCH_LEVEL=1
-MY_PATCH_LEVEL=
+MY_PATCH_LEVEL=jcn1
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
# released version.
\score{
\notes\relative c'{
+ \property Voice.Beam \override #'auto-knee-gap = ##f
[c16 \stemDown c'' \stemBoth c,, d]
\stemDown [d'' a \stemBoth c,, g,]
\stemUp [g c' \stemBoth a'' d']
--- /dev/null
+--- ./lily/out-gcc-3.0/lexer.cc~ Tue Jun 26 13:12:26 2001
++++ ./lily/out-gcc-3.0/lexer.cc Tue Jun 26 13:11:56 2001
+@@ -21,7 +21,7 @@
+ #ifdef __cplusplus
+
+ #include <stdlib.h>
+-class istream;
++#include <iostream.h>
+ #include <unistd.h>
+
+ /* Use prototypes in function declarations. */
continue;
Real stem_y = calc_stem_y_f (me, s, y, dy);
-
- stem_y += Stem::get_direction (s)
- * gh_scm2double (me->get_grob_property ("thickness")) / 2;
+ //stem_y += Stem::get_direction (s)
+ if (Stem::get_direction (s) == Directional_element_interface::get (me))
+ stem_y += Stem::get_direction (s)
+ * gh_scm2double (me->get_grob_property ("thickness")) / 2;
/* caution: stem measures in staff-positions */
Real id = me->relative_coordinate (common, Y_AXIS)
easyPlay = ##t
}
-% retain for compatibility reasons.
+% retain for compatibility reasons (FIXME: convert-ly)
GraceContext = \translator {
\type "Engraver_group_engraver"
}
VoiceContext = \translator {
\type "Performer_group_performer"
\name Voice
-% All notes fall to Grace if you leave Thread out (huh?)
\consists "Dynamic_performer"
\consists "Span_dynamic_performer"
\consists "Piano_pedal_performer"
- \consists "Note_performer"
- \consists "Tie_performer"
+ \accepts "Thread"
}
\translator { \VoiceContext }
ThreadContext = \translator {
\type "Performer_group_performer"
\name Thread
+ \consists "Note_performer"
+ \consists "Tie_performer"
}
\translator { \ThreadContext }
+% retain for compatibility reasons (FIXME: convert-ly)
\translator {
\type "Performer_group_performer"
\name Grace
%
% Functions for direct and embedded PostScript
-
-% FIXME: set with individual symbols
-% round cappings
-1 setlinecap
-
/euclidean_length
{
1 copy mul exch 1 copy mul add sqrt
/draw_repeat_slash % width slope thick
{
- /beamthick exch def
- /slope exch def
- /width exch def
- beamthick beamthick slope div euclidean_length
- /xwid exch def
- 0 0 moveto
- xwid 0 rlineto
- width slope width mul rlineto
- xwid neg 0 rlineto
-% width neg width angle sin mul neg rlineto
- closepath fill
+ 1 setlinecap
+ 1 setlinejoin
+
+ /beamthick exch def
+ /slope exch def
+ /width exch def
+ beamthick beamthick slope div euclidean_length
+ /xwid exch def
+ 0 0 moveto
+ xwid 0 rlineto
+ width slope width mul rlineto
+ xwid neg 0 rlineto
+ % width neg width angle sin mul neg rlineto
+ closepath fill
} bind def
/draw_hairpin % width start_h end_h thick
{
- setlinewidth
- /end_h exch def
- /start_h exch def
- /wid exch def
- 0 start_h moveto
- wid end_h lineto
- stroke
- 0 start_h neg moveto
- wid end_h neg lineto
- stroke
+ 1 setlinecap
+ 1 setlinejoin
+
+ setlinewidth
+ /end_h exch def
+ /start_h exch def
+ /wid exch def
+ 0 start_h moveto
+ wid end_h lineto
+ stroke
+ 0 start_h neg moveto
+ wid end_h neg lineto
+ stroke
} bind def
/draw_tuplet % height gap dx dy thick dir
{
- /dir exch def
- setlinewidth
1 setlinecap
1 setlinejoin
+
+ /dir exch def
+ setlinewidth
/tuplet_dy exch def
/tuplet_dx exch def
/tuplet_gapx exch def
/draw_volta % h w thick vert_start vert_end
{
+ 1 setlinecap
+ 1 setlinejoin
+
/vert_end exch def
/vert_start exch def
setlinewidth
/volta_w exch def
/volta_h exch def
- 1 setlinecap
- 1 setlinejoin
vert_start 0 eq {
0 0 moveto
0 volta_h lineto
* TODO: any uneven step that's lower than an uneven step which is
chromatically altered
"
- (write-me "adds: "
(let ((evens (filter-list (lambda (x) (!= 0 (modulo (cadr x) 2))) steps))
(altered-unevens
(filter-list (lambda (x)
'()))))
;; Hmm, what if we have a step twice, can we ignore that?
(uniq-list (sort (apply append evens altered-unevens highest)
- pitch::<)))))
+ pitch::<))))
;; FIXME: unLOOP, see ::additions
;; find the pitches that are missing from `normal' chord
(define (chord::subtractions chord-pitches)
- (write-me "subs: " (let ((tonic (car chord-pitches)))
+ (let ((tonic (car chord-pitches)))
(let loop ((step 1) (pitches chord-pitches) (subtractions '()))
(if (pair? pitches)
(let* ((pitch (car pitches))
(if (= p-step step)
(loop (+ step 2) (cdr pitches) subtractions)
(loop step (cdr pitches) subtractions)))))
- (reverse subtractions))))))
+ (reverse subtractions)))))
(define (chord::additions->text-banter additions subtractions)
(if (pair? additions)
;; return (MATCHED-EXCEPTION . BASE-CHORD-WITH-UNMATCHED-STEPS)
;; BASE-CHORD-WITH-UNMATCHED-STEPS always includes (tonic 3 5)
(define (chord::exceptions-lookup style steps)
- (write-me "xl: " (let* ((result (chord::exceptions-lookup-helper
+ (let* ((result (chord::exceptions-lookup-helper
(chord::restyle 'chord::names-alist- style)
steps '() #f))
(exception-part (car result))
((= i 0) base)
())
unmatched-steps)))
- (list exception-part unmatched-with-1-3-5))))
+ (list exception-part unmatched-with-1-3-5)))
(define (chord::name->text style tonic steps bass-and-inversion)