CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/07/19 15:42:40
Modified files:
. : ChangeLog
input/regression: pedal-bracket.ly property-once.ly
scm : define-grobs.scm define-markup-commands.scm
define-music-types.scm
Log message:
* scm/define-markup-commands.scm (beam): use polygon in beam
command.
* scm/define-grobs.scm (all-grob-descriptions): add a 'class meta
field for each grob description.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3896&tr2=1.3897&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/input/regression/pedal-bracket.ly.diff?tr1=1.14&tr2=1.15&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/input/regression/property-once.ly.diff?tr1=1.28&tr2=1.29&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/define-grobs.scm.diff?tr1=1.213&tr2=1.214&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/define-markup-commands.scm.diff?tr1=1.102&tr2=1.103&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/define-music-types.scm.diff?tr1=1.60&tr2=1.61&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3896 lilypond/ChangeLog:1.3897
--- lilypond/ChangeLog:1.3896 Tue Jul 19 15:03:20 2005
+++ lilypond/ChangeLog Tue Jul 19 15:42:40 2005
@@ -1,5 +1,8 @@
2005-07-19 Han-Wen Nienhuys <[EMAIL PROTECTED]>
+ * scm/define-markup-commands.scm (beam): use polygon in beam
+ command.
+
* lily/grob-pq-engraver.cc (stop_translation_timestep): save up
all acknowledged grobs, and do potentially expensive merge and
write in one go.
Index: lilypond/input/regression/pedal-bracket.ly
diff -u lilypond/input/regression/pedal-bracket.ly:1.14
lilypond/input/regression/pedal-bracket.ly:1.15
--- lilypond/input/regression/pedal-bracket.ly:1.14 Sun Jun 26 22:39:14 2005
+++ lilypond/input/regression/pedal-bracket.ly Tue Jul 19 15:42:40 2005
@@ -13,7 +13,7 @@
\set Staff.pedalSustainStyle = #'bracket
c4 d e \sustainDown b c c, \sustainUp \sustainDown d8[ c] e8[
- e \sustainUp \sustainDown] f4 d
+ e \sustainUp \sustainDown] f4 d
\sustainUp g \sustainDown b b, \sustainUp c'
\set Staff.pedalUnaCordaStyle = #'mixed
Index: lilypond/input/regression/property-once.ly
diff -u lilypond/input/regression/property-once.ly:1.28
lilypond/input/regression/property-once.ly:1.29
--- lilypond/input/regression/property-once.ly:1.28 Sun Jun 26 22:39:14 2005
+++ lilypond/input/regression/property-once.ly Tue Jul 19 15:42:40 2005
@@ -8,9 +8,8 @@
\relative c' {
c4
- \once \set Stem = #'()
+ \once \override Stem #'thickness = #5.0
c4
- \once \override Stem #'thickness = #5.0
c4
c4
}
Index: lilypond/scm/define-grobs.scm
diff -u lilypond/scm/define-grobs.scm:1.213 lilypond/scm/define-grobs.scm:1.214
--- lilypond/scm/define-grobs.scm:1.213 Mon Jul 18 23:37:26 2005
+++ lilypond/scm/define-grobs.scm Tue Jul 19 15:42:40 2005
@@ -525,7 +525,7 @@
(X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
,Self_alignment_interface::centered_on_parent))
(layer . 0)
- (meta . ((class . Spanner)
+ (meta . ((class . Item)
(interfaces . (self-alignment-interface grid-line-interface)))
)))
Index: lilypond/scm/define-markup-commands.scm
diff -u lilypond/scm/define-markup-commands.scm:1.102
lilypond/scm/define-markup-commands.scm:1.103
--- lilypond/scm/define-markup-commands.scm:1.102 Tue Jul 12 20:46:24 2005
+++ lilypond/scm/define-markup-commands.scm Tue Jul 19 15:42:40 2005
@@ -82,10 +82,13 @@
(half (/ thickness 2)))
(ly:make-stencil
- (list 'beam width
- slope
- thickness
- (ly:output-def-lookup layout 'blotdiameter))
+ `(polygon ',(list
+ 0 (/ thickness -2)
+ width (+ (* width slope) (/ thickness -2))
+ width (+ (* width slope) (/ thickness 2))
+ 0 (/ thickness 2))
+ ,(ly:output-def-lookup layout 'blotdiameter)
+ #t)
(cons 0 width)
(cons (+ (- half) (car yext))
(+ half (cdr yext))))))
Index: lilypond/scm/define-music-types.scm
diff -u lilypond/scm/define-music-types.scm:1.60
lilypond/scm/define-music-types.scm:1.61
--- lilypond/scm/define-music-types.scm:1.60 Tue Jul 19 12:57:33 2005
+++ lilypond/scm/define-music-types.scm Tue Jul 19 15:42:40 2005
@@ -595,19 +595,19 @@
(SustainEvent
. (
(description . "Depress or release sustain pedal. ")
- (types . (general-music pedal-event sustain-pedal-event))
+ (types . (general-music event pedal-event sustain-pedal-event))
))
(SostenutoEvent
. (
(description . "Depress or release sostenuto pedal. ")
- (types . (general-music pedal-event sostenuto-pedal-event))
+ (types . (general-music event pedal-event sostenuto-pedal-event))
))
(UnaCordaEvent
. (
(description . "Depress or release una-corda pedal.")
- (types . (general-music pedal-event una-corda-pedal-event))
+ (types . (general-music event pedal-event una-corda-pedal-event))
))
(StringNumberEvent
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
