+1.3.96.jcn3
+===========
+
+* Fixed (added actually, it got lost?) word-space for chords.
+
1.3.96.jcn1
===========
MAJOR_VERSION=1
MINOR_VERSION=3
PATCH_LEVEL=96
-MY_PATCH_LEVEL=jcn2
+MY_PATCH_LEVEL=jcn3
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
# released version.
chord::names-alist-american))
chord = \notes\transpose c''\chords{
-\property ChordNames.chordNameStyle = "american"
+ \property ChordNames.ChordName \push #'style = #"american"
c
cs:m
df:m5-
>
\paper
{
- \translator { \ChordNameContext chordNameWordSpace = #1 }
- \translator { \LyricsContext textScriptWordSpace = #0.3 }
+ \translator {
+ \ChordNameContext
+ ChordName \push #'word-space = #1
+ }
}
}
>
\paper{
linewidth = -1.0;
- \translator { \ChordNameContext chordNameWordSpace = #1 }
- \translator { \LyricsContext textScriptWordSpace = #0.3 }
+ \translator {
+ \ChordNameContext
+ ChordName \push #'word-space = #1
+ }
}
}
\context ChordNames \scales
\context Staff < \scales \keys >
>
+ \paper{
+ \translator {
+ \ChordNameContext
+ ChordName \push #'word-space = #1
+ }
+ }
}
-%
-% Make sure the correct msamxx.tfm is where lily can find it
-% (ie cwd or lily's tfm dir).
-%
-% For normal (20pt) paper, do
-%
-% cp locate `msam9.tfm` $LILYPONDPREFIX/tfm
-%
+%% This should only be necessary if your kpathsea setup is broken
+%%
+%% Make sure the correct msamxx.tfm is where lily can find it
+%% (ie cwd or lily's tfm dir).
+%%
+%% For normal (20pt) paper, do
+%%
+%% cp locate `msam9.tfm` $LILYPONDPREFIX/tfm
#(set! chord::names-alist-american
(append
chord::names-alist-american))
chord = \notes\transpose c''\chords{
-\property ChordNames.chordNameStyle = "american"
-c:m5-.7-
-c:m5-.7
+ \property ChordNames.ChordName \push #'style = #"american"
+ c:m5-.7-
+ c:m5-.7
}
\score{
-<
-\context ChordNames \chord
-\context Staff \chord
->
+ <
+ \context ChordNames \chord
+ \context Staff \chord
+ >
\paper
{
- \translator { \ChordNameContext chordNameWordSpace = #1 }
- \translator { \LyricsContext textScriptWordSpace = #0.3 }
+ \translator {
+ \ChordNameContext
+ ChordName \push #'word-space = #1
+ }
}
}
#include "score-element.hh"
#include "paper-column.hh"
#include "line-of-score.hh"
+#include "staff-symbol-referencer.hh"
/*
TODO: move text lookup out of Chord_name
SCM func = me->get_elt_property (ly_symbol2scm ("chord-name-function"));
SCM text = gh_call3 (func, style, pitches, gh_cons (inversion, bass));
- return ly_text2molecule (me, text).create_scheme ();
+ Molecule mol = ly_text2molecule (me, text);
+
+ SCM space = me->get_elt_property ("word-space");
+ if (gh_number_p (space))
+ {
+ Molecule m;
+ m.set_empty (false);
+ mol.add_at_edge (X_AXIS, RIGHT, m, gh_scm2double (space)*
+ Staff_symbol_referencer::staff_space (me));
+ }
+
+ return mol.create_scheme ();
}