* lily/grob-property.cc (del_property): new function.
2005-10-21 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * lily/grob.cc: remove is_empty()
+
+ * lily/grob-property.cc: remove add_to_list_property().
+
* scripts/convert-ly.py (datadir): add prefix switching hack to
.py too.
(self-alignment-X . 0)
(self-alignment-Y . 0)
(script-priority . 100)
- (callbacks . ((stencil . ,Text_interface::print)
- (direction . ,Script_interface::calc_direction)))
+ (stencil . ,Text_interface::print)
+ (direction . ,Script_interface::calc_direction)
(font-encoding . fetaNumber)
(font-size . -5) ; don't overlap when next to heads.
(meta . ((class . Item)
(if (and (memq 'note-head-interface interfaces)
(memq pos '(-2 -3 -5)))
(begin
- (ly:grob-set-callback! grob 'stencil Text_interface::print)
+ (ly:grob-set-property! grob 'stencil Text_interface::print)
(ly:grob-set-property! grob 'font-family 'roman)
(ly:grob-set-property!
grob 'text
#ifndef NDEBUG
#include "protected-scm.hh"
Protected_scm grob_property_callback_stack = SCM_EOL;
-bool debug_property_callbacks = 1;
+bool debug_property_callbacks = 0;
#endif
SCM
Sven Axelsson, the Murray Pipes & Drums of Gothenburg
(http://www.murrays.nu)
- $Id: bagpipe.ly,v 1.7 2005/10/17 00:48:17 hanwen Exp $
+ $Id: bagpipe.ly,v 1.8 2005/10/21 14:07:47 hanwen Exp $
%}
-\version "2.7.13"
+\version "2.7.14"
% Notes of the scale of the Great Highland Bagpipe. Extra high notes for bombarde.
% Flat notes used mainly in some modern music.
hideKeySignature = {
% We normally don't want to show the key signature.
- \override Staff.KeySignature #'callbacks #'stencil = ##f
+ \override Staff.KeySignature #'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 #'callbacks #'stencil = #'Key_signature_interface::print
+ \override Staff.KeySignature #'stencil = #'Key_signature_interface::print
\set Staff.extraNatural = ##f
\key d \major
#(set-accidental-style 'forget)
-\version "2.7.13"
+\version "2.7.14"
%%%%%%%%
%%%%%%%% shortcuts common for all styles of gregorian chant notation
\breathe
}
divisioMinima = {
- \once \override BreathingSign #'callbacks #'stencil = #Breathing_sign::divisio_minima
+ \once \override BreathingSign #'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)
\breathe
}
divisioMaior = {
- \once \override BreathingSign #'callbacks #'stencil = #Breathing_sign::divisio_maior
+ \once \override BreathingSign #'stencil = #Breathing_sign::divisio_maior
\once \override BreathingSign #'Y-offset-callbacks = #'()
% Workaround: add padding. Correct fix would be spacing engine handle this.
\breathe
}
divisioMaxima = {
- \once \override BreathingSign #'callbacks #'stencil = #Breathing_sign::divisio_maxima
+ \once \override BreathingSign #'stencil = #Breathing_sign::divisio_maxima
\once \override BreathingSign #'Y-offset-callbacks = #'()
% Workaround: add padding. Correct fix would be spacing engine handle this.
\breathe
}
finalis = {
- \once \override BreathingSign #'callbacks #'stencil = #Breathing_sign::finalis
+ \once \override BreathingSign #'stencil = #Breathing_sign::finalis
\once \override BreathingSign #'Y-offset-callbacks = #'()
% Workaround: add padding. Correct fix would be spacing engine handle this.
% property-init.ly
-\version "2.7.13"
+\version "2.7.14"
stemUp = \override Stem #'direction = #UP
stemDown = \override Stem #'direction = #DOWN
}
setEasyHeads = \sequential {
- \override NoteHead #'callbacks #'stencil = #Note_head::brew_ez_stencil
+ \override NoteHead #'stencil = #Note_head::brew_ez_stencil
\override NoteHead #'font-size = #-7
\override NoteHead #'font-family = #'sans
\override NoteHead #'font-series = #'bold
arpeggio = #(make-music 'ArpeggioEvent)
arpeggioUp = \sequential {
- \revert Arpeggio #'callbacks % stencil
-
+ \revert Arpeggio #'stencil
\override Arpeggio #'arpeggio-direction = #UP
}
arpeggioDown = \sequential {
- \revert Arpeggio #'callbacks % stencil
-
+ \revert Arpeggio #'stencil
\override Arpeggio #'arpeggio-direction = #DOWN
}
arpeggioNeutral = \sequential {
- \revert Arpeggio #'callbacks % stencil
-
+ \revert Arpeggio #'stencil
\revert Arpeggio #'arpeggio-direction
}
arpeggioBracket = \sequential {
- \override Arpeggio #'callbacks #'stencil = #Arpeggio::brew_chord_bracket
+ \override Arpeggio #'stencil = #Arpeggio::brew_chord_bracket
}
glissando = #(make-music 'GlissandoEvent)