+1.3.45.jcn2
+
+* Fixed chord-name customisation and made small chord-name build fixes.
+
1.3.45.jcn1
===========
@mudelafile{staccato-pos.ly}
+@section Chord names
+
+Chord names are generated from a list pitches, and are customisable
+from guile. For some unlogical names, guile customisation is used
+by default.
+
+@mudelafile{chord-names.ly}
+
@section Grace notes
Grace notes are typeset as an encapsulated piece of music. You can
MAJOR_VERSION=1
MINOR_VERSION=3
PATCH_LEVEL=45
-MY_PATCH_LEVEL=jcn1
+MY_PATCH_LEVEL=jcn2
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
# released version.
--- /dev/null
+chord = \notes\transpose c''\chords{
+ c1
+ c:m
+ c:m5-
+ c:m5-.7-
+ c:7+
+ c:m5-.7
+ c:5-.7+
+ c:m7
+ c:7
+}
+
+\score{
+ <
+ \context ChordNames \chord
+ \context Staff \chord
+ >
+ \paper{
+ linewidth = -1.0;
+ \translator { \ChordNameContext chordNameWordSpace = #1 }
+ \translator { \LyricsContext textScriptWordSpace = #0.3 }
+ }
+}
+
String style;
if (gh_pair_p (scm))
{
- style = ly_scm2string (gh_car (scm));
+ SCM s = gh_car (scm);
+ if (gh_string_p (s))
+ style = ly_scm2string (s);
scm = gh_cdr (scm);
}
- String text = ly_scm2string (scm);
- return lookup_l ()->text (style, text, paper_l ());
+ if (gh_string_p (scm))
+ return lookup_l ()->text (style, ly_scm2string (scm), paper_l ());
+ return Molecule ();
}
/*
{
while (gh_cdr (scm) != SCM_EOL)
{
- mol.add_at_edge (X_AXIS, RIGHT, ly_word2molecule (gh_car (scm)), 0);
+ Molecule m = ly_word2molecule (gh_car (scm));
+ if (!m.empty_b ())
+ mol.add_at_edge (X_AXIS, RIGHT, m, 0);
scm = gh_cdr (scm);
}
scm = gh_car (scm);
}
- mol.add_at_edge (X_AXIS, RIGHT, ly_word2molecule (scm), 0);
+ Molecule m = ly_word2molecule (scm);
+ if (!m.empty_b ())
+ mol.add_at_edge (X_AXIS, RIGHT, m, 0);
return mol;
}
note-names-alist))
(define (pitch->note-name pitch)
- (cons (car pitch) (cadr pitch)))
+ (cons (cadr pitch) (caddr pitch)))
(define (user-pitch-name pitch)
(let ((entry (assoc (pitch->note-name pitch) note-names-alist)))
(append
'(
; C iso C.no3.no5
- (((0 . 0)) . ("" . ""))
+ (((0 . 0)) . (#f . #f))
; C iso C.no5
- (((0 . 0) (2 . 0)) . ("" . ""))
+ (((0 . 0) (2 . 0)) . (#f . #f))
; Cm iso Cm.no5
- (((0 . 0) (2 . -1)) . ("m" . ""))
+ (((0 . 0) (2 . -1)) . ("m" . #f))
; Cdim iso Cm5-
- (((0 . 0) (2 . -1) (4 . -1)) . ("dim" . ""))
+ (((0 . 0) (2 . -1) (4 . -1)) . ("dim" . #f))
; Co iso Cm5-7-
; urg
; (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("feta-1" . ".")))
- (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("script" . "o")))
+ (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (#f . ("script" . "o")))
; Cdim9
(((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1)) . ("dim" . ("script" . "9")))
(((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1) (3 . -1)) . ("dim" . ("script" . "11")))