texidoc = "Identifiers following a chordmode section are not
interpreted as chordmode tokens. In the following snippet, the
-identifier `m' is not interpreted by the lexer as as a minor chord
+identifier `m' is not interpreted by the lexer as a minor chord
modifier."
}
"With @code{music-map}, you can apply functions operating on a
single piece of music to an entire music expression. In this example,
-the the function @code{notes-to-skip} changes a note to a skip. When
+the function @code{notes-to-skip} changes a note to a skip. When
applied to an entire music expression in the 1st measure, the scripts
and dynamics are left over. These are put onto the 2nd measure."
\layout { ragged-right= ##t }
-foobar = \transpose c c' { c4\>-^ c4-^ c4\!-^ c4-^ }
+foobar = \transpose c c' { c4\>-^ c4-^ c4\!-^ c4-^ }
\relative c'' \context Voice {
<< \applyMusic #(lambda (x) (music-map notes-to-skip x))
\foobar
- { d8 d d d d d d d } >>
+ { d8 d d d d d d d } >>
}
void stop_translation_timestep ();
void process_acknowledged ();
-
+
virtual void finalize ();
virtual void derived_mark () const;
bool cautionary = to_boolean (note->get_property ("cautionary"));
if (caut.score () > acc.score ())
{
- acc.need_acc |= caut.need_acc;
- acc.need_restore |= caut.need_restore;
+ acc.need_acc |= caut.need_acc;
+ acc.need_restore |= caut.need_restore;
cautionary = true;
}
*/
if (!note->in_event_class ("trill-span-event"))
{
- if (acc.need_acc)
+ if (acc.need_acc)
create_accidental (&accidentals_[i], acc.need_restore, cautionary);
if (forced || cautionary)
Accidental_placement::add_accidental (accidental_placement_, a);
note_head->set_object ("accidental-grob", a->self_scm ());
-
+
return a;
}
}
for (vsize i = accidentals_.size (); i--;)
- {
+ {
Stream_event *note = accidentals_[i].melodic_;
Context *origin = accidentals_[i].origin_;
else
{
/*
- not really really correct if there is more than one
+ not really correct if there is more than one
note head with the same notename.
*/
localsig = ly_assoc_prepend_x (localsig, key,
SCM s = me->get_property ("glyph-name");
SCM barsize = me->get_property ("bar-size");
-
+
if (scm_is_string (s) && scm_is_number (barsize))
{
string str = ly_scm2string (s);
if (fabs (line_thick + (count -1) * ss - h) < 0.1) // ugh.
{
- Real blot =
+ Real blot =
me->layout ()->get_dimension (ly_symbol2scm ("blot-diameter"));
Real half_space = ss/2;
Stencil bar;
-
+
for (int i = (count-1); i >= -(count-1); i -= 2)
{
Real top_y = min ((i + dash_size) * half_space,
int dashes = int (rint (h / ss));
Real total_dash_size = h / dashes;
Real factor = (dash_size - thick) / ss;
-
+
SCM at = scm_list_n (ly_symbol2scm ("dashed-line"),
scm_from_double (thick),
scm_from_double (factor * total_dash_size),
" a thick double repeat, a thin-thick-thin double repeat,"
" a thin-thick double repeat, a thick bar, a double bar, a start bar,"
" an end bar, a thick double bar, a thin-thick-thin bar,"
- " a dotted bar, a dashed bar and a tick as bar bar line."
+ " a dotted bar, a dashed bar, and a tick."
" In addition, there is an option"
" @code{||:} which is equivalent to @code{|:} except at line"
" breaks, where it produces a double bar (@code{||}) at the"
smobify_self ();
description_ = s.description_;
- input_location_ = make_input (*s.origin ());
+ input_location_ = make_input (*s.origin ());
default_child_ = s.default_child_;
accept_mods_ = s.accept_mods_;
property_ops_ = s.property_ops_;
Context_def::mark_smob (SCM smob)
{
ASSERT_LIVE_IS_ALLOWED ();
-
+
Context_def *me = (Context_def *) SCM_CELL_WORD_1 (smob);
scm_gc_mark (me->description_);
- the first element in the list defines a context that is a valid child of
the context defined by this Context_def
- each subsequent element in the list defines a context that is a valid child
- of the the context defined by the preceding element in the list
+ of the context defined by the preceding element in the list
- the last element in the list defines a context with the given name
The ADDITIONAL_ACCEPTS parameter is a list of additional contexts that this
alist defined in a parent context. BASED-ON should always be a tail
of ALIST.
- Push or pop (depending on value of VAL) a single entry entry from a
+ Push or pop (depending on value of VAL) a single entry from a
translator property list by name of PROP. GROB_PROPERTY_PATH
indicates nested alists, eg. '(beamed-stem-lengths details)
-
+
*/
void
execute_override_property (Context *context,
SCM new_value)
{
SCM current_context_val = SCM_EOL;
-
+
Context *where = context->where_defined (context_property,
¤t_context_val);
SCM symbol = scm_car (grob_property_path);
if (scm_is_pair (scm_cdr (grob_property_path)))
{
- new_value = nested_property_alist (ly_assoc_get (symbol, target_alist,
+ new_value = nested_property_alist (ly_assoc_get (symbol, target_alist,
SCM_EOL),
scm_cdr (grob_property_path),
new_value);
programming_error ("Grob property path should be list of symbols.");
return;
}
-
+
SCM symbol = scm_car (grob_property_path);
if (scm_is_pair (scm_cdr (grob_property_path)))
{
SCM new_val
= nested_property_revert_alist (current_sub_alist,
scm_cdr (grob_property_path));
-
+
if (scm_is_pair (current_alist)
&& scm_caar (current_alist) == symbol
&& current_alist != daddy)
else
{
SCM new_alist = evict_from_alist (symbol, current_alist, daddy);
-
+
if (new_alist == daddy)
context->unset_property (context_property);
else
scm_list_1 (grob_property),
new_value);
}
-
+
/*
PRE_INIT_OPS is in the order specified, and hence must be reversed.
*/
LY_DEFINE (ly_otf_glyph_count, "ly:otf-glyph-count", 1, 0, 0,
(SCM font),
- "Return the the number of glyphs in @var{font}.")
+ "Return the number of glyphs in @var{font}.")
{
Modified_font_metric *fm
= dynamic_cast<Modified_font_metric *> (unsmob_metrics (font));
constructor preserve equality.
Perhaps it would be better to use a more strict definition of
- equality; e.g., that that two probs are equal iff they can be
+ equality; e.g., that two probs are equal iff they can be
distinguished by calls to ly:prob-property.
*/
Prob *probs[2] = {unsmob_prob (sa), unsmob_prob (sb)};
if (scm_caar (aprop) != scm_caar (bprop) ||
(
!(unsmob_input (aval) && unsmob_input (bval))
- &&
+ &&
!to_boolean (scm_equal_p (aval, bval))))
return SCM_BOOL_F;
}
Prob::mark_smob (SCM smob)
{
ASSERT_LIVE_IS_ALLOWED ();
-
+
Prob *system = (Prob *) SCM_CELL_WORD_1 (smob);
scm_gc_mark (system->mutable_property_alist_);
system->derived_mark ();
-
+
return system->immutable_property_alist_;
}
scm_puts (p->class_name (), port);
scm_display (p->mutable_property_alist_, port);
scm_display (p->immutable_property_alist_, port);
-
+
scm_puts (" >\n", port);
return 1;
}
}
void
-Prob::internal_set_property (SCM sym, SCM val)
+Prob::internal_set_property (SCM sym, SCM val)
{
if (do_internal_type_checking_global)
type_check_assignment (sym, val);
-
+
mutable_property_alist_ = scm_assq_set_x (mutable_property_alist_, sym, val);
}
LY_DEFINE (ly_position_on_line_p, "ly:position-on-line?",
2, 0, 0, (SCM sg, SCM spos),
"Return whether @var{spos} is on a line of the staff associated"
- " with the the grob @var{sg} (even on an extender line).")
+ " with the grob @var{sg} (even on an extender line).")
{
LY_ASSERT_SMOB (Grob, sg, 1);
LY_ASSERT_TYPE (scm_is_number, spos, 2);
\version "2.12.0"
-% Add ninth chords to to predefined fret diagrams for standard guitar tunings
+% Add ninth chords to predefined fret diagrams for standard guitar tunings
\addChordShape #'c:9 #guitar-tuning #"x;3-2;2-1;3-3-(;3-3;3-3-);"
\addChordShape #'f:9 #guitar-tuning #"1-1-(;3-3;1-1;2-2;1-1-);3-4;"
%
-% These numbers were taken from a part that that the EJE violas played
+% These numbers were taken from a part that the EJE violas played in
% 1997 -- Probably Mendelssohn's ouverture `Heimkehr aus der Fremde'.
%
stafflines := 5;
%
-% The design size of a staff should really be the
+% The design size of a staff should really be the
% staff_space, but we use staffsize for historical reasons.
-%
+%
staff_space# := staffsize# / (stafflines - 1);
staff_space_rounded# := staff_space#;
fixed_line_thickness + variable_line_factor * 4.125 pt# = 0.47 pt#;
stafflinethickness# := fixed_line_thickness
- + variable_line_factor * staff_space#;
+ + variable_line_factor * staff_space#;
stafflinethickness_rounded# := stafflinethickness#;
%
-% The following tunes the general blackness of the glyphs.
+% The following tunes the general blackness of the glyphs.
%
linethickness# := stafflinethickness#; %% 0.5 pt#;
ledgerlinethickness_rounded := 2 stafflinethickness_rounded;
fi;
-%
+%
% Because of the engraving/stamping process, no traditional
% characters have sharp edges and corners.
% The following variable controls the amount of `roundness'.
% . Restore height and decrease `d' by 1.
%
% o The glyph is centered between two or four staff lines, and the origin is
-% the middle of the whitespace. Assuming that the the whitespace consists
-% of an odd number of pixels, we have this:
+% the middle of the whitespace. Assuming that the whitespace consists of
+% an odd number of pixels, we have this:
%
% -----------
% b
def print_before_note (self, printer):
if self.span_direction == -1:
printer.dump ('\[')
- # the the bracket after the last note
+ # the bracket after the last note
def print_after_note (self, printer):
if self.span_direction == 1:
printer.dump ('\]')
projects / lilypond.git / commitdiff