CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/10/17 00:48:17
Modified files:
lily : span-arpeggio-engraver.cc
ly : bagpipe.ly gregorian-init.ly property-init.ly
Log message:
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/lily/span-arpeggio-engraver.cc.diff?tr1=1.49&tr2=1.50&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ly/bagpipe.ly.diff?tr1=1.6&tr2=1.7&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ly/gregorian-init.ly.diff?tr1=1.34&tr2=1.35&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ly/property-init.ly.diff?tr1=1.79&tr2=1.80&r1=text&r2=text
Patches:
Index: lilypond/lily/span-arpeggio-engraver.cc
diff -u lilypond/lily/span-arpeggio-engraver.cc:1.49
lilypond/lily/span-arpeggio-engraver.cc:1.50
--- lilypond/lily/span-arpeggio-engraver.cc:1.49 Sat Aug 13 21:35:22 2005
+++ lilypond/lily/span-arpeggio-engraver.cc Mon Oct 17 00:48:17 2005
@@ -85,7 +85,7 @@
we can't kill the children, since we don't want to the
previous note to bump into the span arpeggio; so we make
it transparent. */
- arpeggios_[j]->set_property ("print-function", SCM_EOL);
+ arpeggios_[j]->set_callback (ly_symbol2scm ("stencil"), SCM_EOL);
}
span_arpeggio_ = 0;
Index: lilypond/ly/bagpipe.ly
diff -u lilypond/ly/bagpipe.ly:1.6 lilypond/ly/bagpipe.ly:1.7
--- lilypond/ly/bagpipe.ly:1.6 Tue Aug 23 03:04:09 2005
+++ lilypond/ly/bagpipe.ly Mon Oct 17 00:48:17 2005
@@ -6,10 +6,10 @@
Sven Axelsson, the Murray Pipes & Drums of Gothenburg
(http://www.murrays.nu)
- $Id: bagpipe.ly,v 1.6 2005/08/23 03:04:09 gpercival Exp $
+ $Id: bagpipe.ly,v 1.7 2005/10/17 00:48:17 hanwen Exp $
%}
-\version "2.6.0"
+\version "2.7.13"
% Notes of the scale of the Great Highland Bagpipe. Extra high notes for
bombarde.
% Flat notes used mainly in some modern music.
@@ -38,14 +38,14 @@
hideKeySignature = {
% We normally don't want to show the key signature.
- \override Staff.KeySignature #'print-function = ##f
+ \override Staff.KeySignature #'callbacks #'stencil = ##f
\set Staff.extraNatural = ##f
\key d \major
#(set-accidental-style 'forget)
}
showKeySignature = {
% Show the key signature e.g. for BMW compatibility.
- \override Staff.KeySignature #'print-function =
#'Key_signature_interface::print
+ \override Staff.KeySignature #'callbacks #'stencil =
#'Key_signature_interface::print
\set Staff.extraNatural = ##f
\key d \major
#(set-accidental-style 'forget)
Index: lilypond/ly/gregorian-init.ly
diff -u lilypond/ly/gregorian-init.ly:1.34 lilypond/ly/gregorian-init.ly:1.35
--- lilypond/ly/gregorian-init.ly:1.34 Fri Jul 8 17:53:41 2005
+++ lilypond/ly/gregorian-init.ly Mon Oct 17 00:48:17 2005
@@ -1,4 +1,4 @@
-\version "2.6.0"
+\version "2.7.13"
%%%%%%%%
%%%%%%%% shortcuts common for all styles of gregorian chant notation
@@ -56,7 +56,7 @@
\breathe
}
divisioMinima = {
- \once \override BreathingSign #'print-function =
#Breathing_sign::divisio_minima
+ \once \override BreathingSign #'callbacks #'stencil =
#Breathing_sign::divisio_minima
% Workaround: add padding. Correct fix would be spacing engine handle this.
\once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
@@ -64,7 +64,7 @@
\breathe
}
divisioMaior = {
- \once \override BreathingSign #'print-function =
#Breathing_sign::divisio_maior
+ \once \override BreathingSign #'callbacks #'stencil =
#Breathing_sign::divisio_maior
\once \override BreathingSign #'Y-offset-callbacks = #'()
% Workaround: add padding. Correct fix would be spacing engine handle this.
@@ -73,7 +73,7 @@
\breathe
}
divisioMaxima = {
- \once \override BreathingSign #'print-function =
#Breathing_sign::divisio_maxima
+ \once \override BreathingSign #'callbacks #'stencil =
#Breathing_sign::divisio_maxima
\once \override BreathingSign #'Y-offset-callbacks = #'()
% Workaround: add padding. Correct fix would be spacing engine handle this.
@@ -82,7 +82,7 @@
\breathe
}
finalis = {
- \once \override BreathingSign #'print-function = #Breathing_sign::finalis
+ \once \override BreathingSign #'callbacks #'stencil =
#Breathing_sign::finalis
\once \override BreathingSign #'Y-offset-callbacks = #'()
% Workaround: add padding. Correct fix would be spacing engine handle this.
@@ -138,7 +138,7 @@
%#(define (add-staccato m)
% (add-script m "staccato"))
%
-% % \applymusic #(lambda (x) (music-map add-staccato x)) { c c }
+% % \applyMusic #(lambda (x) (music-map add-staccato x)) { c c }
%
% % \climacus { x y z ... }:
% % \[ \virga x \inclinatum y \inclinatum z ... \]
Index: lilypond/ly/property-init.ly
diff -u lilypond/ly/property-init.ly:1.79 lilypond/ly/property-init.ly:1.80
--- lilypond/ly/property-init.ly:1.79 Tue Aug 23 03:04:09 2005
+++ lilypond/ly/property-init.ly Mon Oct 17 00:48:17 2005
@@ -1,6 +1,6 @@
% property-init.ly
-\version "2.6.0"
+\version "2.7.13"
stemUp = \override Stem #'direction = #UP
stemDown = \override Stem #'direction = #DOWN
@@ -52,7 +52,7 @@
}
setEasyHeads = \sequential {
- \override NoteHead #'print-function = #Note_head::brew_ez_stencil
+ \override NoteHead #'callbacks #'stencil = #Note_head::brew_ez_stencil
\override NoteHead #'font-size = #-7
\override NoteHead #'font-family = #'sans
\override NoteHead #'font-series = #'bold
@@ -139,19 +139,22 @@
arpeggio = #(make-music 'ArpeggioEvent)
arpeggioUp = \sequential {
- \revert Arpeggio #'print-function
+ \revert Arpeggio #'callbacks % stencil
+
\override Arpeggio #'arpeggio-direction = #UP
}
arpeggioDown = \sequential {
- \revert Arpeggio #'print-function
+ \revert Arpeggio #'callbacks % stencil
+
\override Arpeggio #'arpeggio-direction = #DOWN
}
arpeggioNeutral = \sequential {
- \revert Arpeggio #'print-function
+ \revert Arpeggio #'callbacks % stencil
+
\revert Arpeggio #'arpeggio-direction
}
arpeggioBracket = \sequential {
- \override Arpeggio #'print-function = #Arpeggio::brew_chord_bracket
+ \override Arpeggio #'callbacks #'stencil = #Arpeggio::brew_chord_bracket
}
glissando = #(make-music 'GlissandoEvent)
_______________________________________________
Lilypond-cvs mailing list
Lilypond-cvs@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
