MAJOR_VERSION=1
MINOR_VERSION=3
PATCH_LEVEL=96
-MY_PATCH_LEVEL=jcn7
+MY_PATCH_LEVEL=jcn8
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
# released version.
\include "paper20.ly"
-\version "1.3.93";
+\version "1.3.96";
oden = \lyrics{
O |
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
one = \notes\relative c{
c'' d e f
indent = 0.0\mm;
linewidth = 100.0\mm;
\translator{
- \ChordNameContext
+ \ChordNamesContext
barAuto = "1";
\consists Bar_engraver;
\consists "Repeat_engraver";
}
}
-\version "1.3.93";
+\version "1.3.96";
* organ staff...
%}
-\version "1.3.93";
+\version "1.3.96";
-\version "1.3.93";
+\version "1.3.96";
ritme = \notes\transpose c'' {
\time 4/4;
-\version "1.3.93";
+\version "1.3.96";
rh=\property Thread.NoteHead \push #'style = #'default
lh=\property Thread.NoteHead \push #'style = #'diamond
http://www.Arkkra.com/doc/star.ps
%}
-\version "1.3.93";
+\version "1.3.96";
% TODO:
%
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
linewidth=-1.0;
}
\midi { }
-}
\ No newline at end of file
+}
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
\score {
\notes \context PianoStaff <
\context Staff = "up" {
-\version "1.3.80";
+\version "1.3.96";
% bagpipe music.
\header
\translator {
\GraceContext
- basicNoteHeadProperties \push #'font-size = #-2
- basicNoteHeadProperties \push #'font-size = #-2
- basicStemProperties \push #'flag-style = ##f
+ NoteHead \push #'font-size = #-2
+ NoteHead \push #'font-size = #-2
+ Stem \push #'flag-style = ##f
% The following determines the length of stems without beams
% default is between 2.8 and 4.0 depending on the number of flags
- basicStemProperties \push #'length = #6
- basicStemProperties \push #'font-size = #-2
- basicGraceAlignItemProperties \push #'horizontal-space = #1
- basicStemProperties \push #'flag-style = #""
+ Stem \push #'length = #6
+ Stem \push #'font-size = #-2
+ GraceAlignItem \push #'horizontal-space = #1
+ Stem \push #'flag-style = #""
}
\translator { \StaffContext
- basicTimeSignatureProperties \push #'style = #"C4/4"
- basicTimeSignatureProperties \push #'visibility-function = #begin-of-line-visible
+ TimeSignature \push #'style = #"C4/4"
+ TimeSignature \push #'visibility-function = #begin-of-line-visible
}
}
\score {
\notes { \time 6/8; \partial 4;
\property Voice.tieVerticalDirection = \up
- \slurup
+ \slurUp
f4 |
\gg f4 e8 \thrd d4. |
\eg a4.()a4 d8 |
-\version "1.3.93";
+\version "1.3.96";
\header{
enteredby = "jcn";
-\version "1.3.93";
+\version "1.3.96";
onestaff = \context Staff = foo\notes {
\property Staff.instr = instr
-\version "1.3.93";
+\version "1.3.96";
\score {
\context Voice \notes\relative c {
c'1:16
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes\transpose c'{
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
>
}
-\version "1.3.93";
+\version "1.3.96";
linewidth=-1.;
}
}
-\version "1.3.93";
+\version "1.3.96";
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes\relative c''{
[g8 c c,]
}
}
-\version "1.3.93";
+\version "1.3.96";
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
linewidth=-1.0;
}
\midi { }
-}
\ No newline at end of file
+}
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes\relative c'{
\stemUp
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes\relative c'{
\stemUp
TestedFeatures = "beams and beamflags";
}
-\version "1.3.93";
+\version "1.3.96";
\score{
<
-\version "1.3.93";
+\version "1.3.96";
\score {
\notes \relative c' {
"(Feta definitively is not an abbreviation of Font-En-TjA)";
}
-\version "1.3.93";
+\version "1.3.96";
shortlong = \notes{
c4()c( c c |
>
}
-\version "1.3.93";
+\version "1.3.96";
}
-\version "1.3.93";
+\version "1.3.96";
-\version "1.3.93";
+\version "1.3.96";
%{
Would this be acceptable/good enough/convenient for entry?
>
\paper{
\translator {
- \ChordNameContext
- ChordName \push #'word-space = #1
+ \ChordNamesContext
+ ChordNames \push #'word-space = #1
}
}
}
-\version "1.3.93";
+\version "1.3.96";
\score {
\notes{
-\version "1.3.93";
+\version "1.3.96";
\score {
\context Voice \notes\relative c {
copyright = "public domain";
Tested = "test the Collision resolution ";
}
-\version "1.3.93";
+\version "1.3.96";
twovoice = \context Staff \notes <
\context Voice=i { \stemDown c4 d e f g2~ g4 a [c8 d e f] c2| }
-\version "1.3.93";
+\version "1.3.96";
\score {
-\version "1.3.93";
+\version "1.3.96";
\score {
\context Voice \notes\relative c'' {
\time 6/8;
-\version "1.3.93";
+\version "1.3.96";
%{
Would this be acceptable/good enough/convenient for entry?
\paper{
% \paper_as_nine
\translator {
- \ChordNameContext
+ \ChordNamesContext
}
}
}
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
}
-\version "1.3.93";
+\version "1.3.96";
-\version "1.3.93";
+\version "1.3.96";
FontBody= \notes\transpose c''{
\bar "|:";
% "(Feta definitively is not an abbreviation of Font-En-TjA)";
}
-\version "1.3.93";
+\version "1.3.96";
\include "font-body.ly"
\score{
% "(Feta definitively is not an abbreviation of Font-En-TjA)";
}
-\version "1.3.93";
+\version "1.3.96";
\include "paper16.ly"
\include "font-body.ly"
gourlay_maxmeasures =5.;
}
}
-\version "1.3.93";
+\version "1.3.96";
-\version "1.3.93";
+\version "1.3.96";
\score {
\context Voice \notes\relative c {
-\version "1.3.93";
+\version "1.3.96";
\score {
\notes \relative c'' \context Voice {
% perhaps the current modifier approach is too simplistic
-\version "1.3.93";
+\version "1.3.96";
gmsus=\notes\relative c \chords{
g1
-\version "1.3.93";
+\version "1.3.96";
%{
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
zager = \context Staff = zager \notes \relative c'' {
\clef treble;
c1
-\version "1.3.93";
+\version "1.3.96";
voiceOne = \notes \relative c'' {
a1 a a
-\version "1.3.93";
+\version "1.3.96";
toeter_i = \notes\relative c <{
\property Staff.instrument = #"Toeters"
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
/Mats B
%}
-\version "1.3.93";
+\version "1.3.96";
incipit = \notes\relative c'{
<b1 fis' b d>
-\version "1.3.93";
+\version "1.3.96";
\score {
\notes \relative c''
-\version "1.3.93";
+\version "1.3.96";
blah = \notes {
}
}
-\version "1.3.93";
+\version "1.3.96";
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes\relative c'{
[c16 \stemDown c'' \stemBoth c,, d]
copyright = "public domain";
}
-\version "1.3.93";
+\version "1.3.96";
m =\notes \relative c'' {
\property Staff.automaticMelismata = ##t
>
}
-\version "1.3.93";
+\version "1.3.96";
>
}
-\version "1.3.93";
+\version "1.3.96";
copyright = "public domain";
}
-\version "1.3.93";
+\version "1.3.96";
m =\notes \relative c'' {
\property Staff.automaticMelismata = ##t
\paper {
}
-}
\ No newline at end of file
+}
% * Stanza_number_engraver
% * Automatic melismata on beamed notes
-\version "1.3.93";
+\version "1.3.96";
\include "english.ly"
\header{
-\version "1.3.93";
+\version "1.3.96";
$somewhat_long = \lyrics{
\property Lyrics . textStyle = "roman"
-\version "1.3.93";
+\version "1.3.96";
global = \notes {
s1 | \mark "A";
>
\paper { Gourlay_maxmeaures = 2.; }
}
-\version "1.3.93";
+\version "1.3.96";
-\version "1.3.93";
+\version "1.3.96";
\score { \notes { \time 3/4; \key cis \major;
R2.*15 R2. R2.*7 }
-\version "1.3.93";
+\version "1.3.96";
voice_one = \notes\transpose c''{ \stemUp
R1 * 2 | f'4-. r r2 | R1 * 3 |
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes\relative c''{
linewidth=-1.0;
}
\midi { }
-}
\ No newline at end of file
+}
}
}
-\version "1.3.93";
+\version "1.3.96";
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes \transpose c''{
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
m = \notes \relative c''{
-\version "1.3.93";
+\version "1.3.96";
\score {
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
%{
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
}
}
-\version "1.3.93";
+\version "1.3.96";
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
blah = \notes{ \transpose c'' {
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
"(Feta definitively is not an abbreviation of Font-En-TjA)";
}
-\version "1.3.93";
+\version "1.3.96";
shortlong = \notes{
c4()c( c c |
>
}
-\version "1.3.93";
+\version "1.3.96";
% test damping
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes\relative c'{
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes{
-\version "1.3.93";
+\version "1.3.96";
\score {
\context Voice \notes\relative c {
% CASE 3
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes\relative c''{
\time 3/4;
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes\transpose c'{
}
}
-\version "1.3.93";
+\version "1.3.96";
TestedFeatures = "This file tests various spacings";
}
-\version "1.3.93";
+\version "1.3.96";
multipart = \notes \relative c'{
\context StaffGroup <
-\version "1.3.93";
+\version "1.3.96";
nt = \notes { c1 \break c1 c1 }
stuff = \notes \relative c'' <
\context Staff = stone { \nt }
linewidth=-1.0;
}
\midi { }
-}
\ No newline at end of file
+}
% test staff margin with partial measure.
-\version "1.3.93";
+\version "1.3.96";
\score {
\notes { \property Staff.instrument = "foo" \partial 4; c4 c1 }
-\version "1.3.93";
+\version "1.3.96";
\score {
}
-\version "1.3.93";
+\version "1.3.96";
>
\paper { linewidth = -1.; }
}
-\version "1.3.93";
+\version "1.3.96";
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
linewidth=-1.0;
}
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
\score{
\context Voice\notes \relative c''{
%%?
}
-\version "1.3.93";
+\version "1.3.96";
beamintervals = \notes{
\time 7/4;
instrument= "Violoncello";
}
-\version "1.3.93";
+\version "1.3.96";
% this is an example of extreme dynamics
% the thumb-script is used in cello music to indicate a note that should
% be played with your thumb.
-\version "1.3.93";
+\version "1.3.96";
\score { \notes \relative c'' {
[<a8_\thumb a'8-3(> <)b_\thumb b'-3>
linewidth=-1.0;
}
\midi { }
-}
\ No newline at end of file
+}
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
instrument= "Instrument";
}
-\version "1.3.93";
+\version "1.3.96";
\score{
\notes
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
}
-\version "1.3.93";
+\version "1.3.96";
vOne = \notes \relative c''{
\clef"violin";
}
}
-\version "1.3.93";
+\version "1.3.96";
-\version "1.3.93"
+\version "1.3.96"
\score {
\context Voice \notes\relative c'' {
copyright = "public domain";
}
-\version "1.3.93";
+\version "1.3.96";
\include "paper-as5.ly"
-\version "1.3.93";
+\version "1.3.96";
%
% We'd want to combine the stems, but have two slurs too...
% Looks like the a-due engraver
{\voiceTwo c}>
- \version "1.3.93";
+ \version "1.3.96";
}
\paper { }
\midi { }
-}
\ No newline at end of file
+}
-\version "1.3.93";
+\version "1.3.96";
\score {
\notes <
}
}
-\version "1.3.93";
+\version "1.3.96";
%}
-\version "1.3.93";
+\version "1.3.96";
praeludiumRight = \notes {
\key e \major;
\clef violin;
copyright = "public domain";
}
-\version "1.3.93";
+\version "1.3.96";
melodie = \notes\relative c'' {
\clef "violin";
auto beaming, adding lyrics to notes, hyphens
%}
-\version "1.3.93";
+\version "1.3.96";
melody = \notes \relative c'' {
\clef violin;
Chord_name_engraver::create_chord_name ()
{
assert (chord_p_);
- chord_name_p_ = new Item (get_property ("ChordName"));
+ chord_name_p_ = new Item (get_property ("ChordNames"));
/*
Hmm, why not represent complete chord as list?
((tonic third fifth) (inversion bass))
% Toplevel initialisation file.
-\version "1.3.93";
+\version "1.3.96";
\include "declarations.ly"
% Toplevel initialisation file.
-\version "1.3.93";
+\version "1.3.96";
\include "declarations.ly";
-\version "1.3.93";
+\version "1.3.96";
% Toplevel initialisation file.
-\version "1.3.93";
+\version "1.3.96";
\include "declarations.ly"
% Toplevel initialisation file.
-\version "1.3.93";
+\version "1.3.96";
\include "declarations.ly"
-\version "1.3.93";
+\version "1.3.96";
(bss . ( -1 6 2 ))
)
-\version "1.3.93";
+\version "1.3.96";
-\version "1.3.93"
+\version "1.3.96"
%
% setup for Request->Element conversion. Guru-only
%
\accepts "LyricVoice";
}
-ChordNameVoiceContext = \translator {
+ChordNamesVoiceContext = \translator {
\type "Engraver_group_engraver";
- \name ChordNameVoice ;
+ \name ChordNamesVoice ;
\consists "Output_property_engraver";
\consistsend "Axis_group_engraver";
\consists "Separating_line_group_engraver";
\consists "Chord_name_engraver";
}
-ChordNameContext = \translator {
+ChordNamesContext = \translator {
\type "Engraver_group_engraver";
\name ChordNames;
Generic_property_list = #generic-chord-staff-properties
\consists "Property_engraver";
\consists "Output_property_engraver";
- \accepts "ChordNameVoice";
+ \accepts "ChordNamesVoice";
\consistsend "Axis_group_engraver";
}
(name . "Clef")
)
- ChordName = #`(
+ ChordNames = #`(
(molecule-callback . ,Chord_name::brew_molecule)
(interfaces . (chord-name-interface))
(after-line-breaking-callback . ,Chord_name::after_line_breaking)
(chord-name-function . ,default-chord-name-function)
- (name . "ChordName")
+ (properties-to-font-name . ,properties-to-font-name)
+ (style-to-font-name . ,style-to-font-name)
+ (markup-to-properties . ,markup-to-properties)
+ (font-family . roman)
+ (name . "ChordNames")
)
NoteCollision = #`(
% Toplevel initialisation file.
-\version "1.3.93";
+\version "1.3.96";
\include "declarations.ly"
% Toplevel AsciiScript initialisation file.
-\version "1.3.93";
+\version "1.3.97";
\include "declarations-as.ly"
% Toplevel AsciiScript initialisation file.
-\version "1.3.93";
+\version "1.3.96";
\include "declarations-as.ly"
% Toplevel initialisation file.
-\version "1.3.93";
+\version "1.3.97";
\include "declarations.ly"
% Toplevel initialisation file.
-\version "1.3.93";
+\version "1.3.96";
\include "declarations.ly";
% Toplevel initialisation file.
-\version "1.3.93";
+\version "1.3.97";
\include "declarations.ly"
(sidd . ( -1 6 2 ))
)
-\version "1.3.93";
+\version "1.3.96";
-\version "1.3.93";
+\version "1.3.96";
% paper-as5.ly
-\version "1.3.93";
+\version "1.3.96";
paper_as_five = \paper {
staffheight = 5.\char;
% paper-as9.ly
-\version "1.3.93";
+\version "1.3.96";
paper_as_nine = \paper {
staffheight = 9.\char;
% paper11.ly
-\version "1.3.93";
+\version "1.3.96";
paper_eleven = \paper {
staffheight = 11.0\pt;
% paper13.ly
-\version "1.3.93";
+\version "1.3.96";
paper_thirteen = \paper {
staffheight = 13.0\pt;
% paper16.ly
-
-
-\version "1.3.93";
+\version "1.3.96";
paper_sixteen = \paper {
staffheight = 16.0\pt;
- style_sheet = "paper20";
+ style_sheet = "paper16";
0 = \font "feta16"
-1 = \font "feta13"
% paper20.ly
-\version "1.3.93";
+\version "1.3.96";
paper_twenty = \paper {
staffheight = 20.0\pt;
% paper23.ly
-\version "1.3.93";
+\version "1.3.96";
paper_twentythree = \paper {
staffheight = 23.0\pt;
% paper26.ly
-\version "1.3.93";
+\version "1.3.96";
paper_twentysix = \paper {
staffheight = 26.0\pt;
\translator { \StaffContext }
\translator { \VoiceContext}
\translator { \StaffGroupContext }
-\translator { \ChordNameContext }
-\translator { \ChordNameVoiceContext}
+\translator { \ChordNamesContext }
+\translator { \ChordNamesVoiceContext}
\translator { \GrandStaffContext}
\translator { \LyricsContext }
\translator { \ThreadContext}
% property.ly
-\version "1.3.93";
+\version "1.3.96";
stemUp = \property Voice.Stem \push #'direction = #1
stemDown = \property Voice.Stem \push #'direction = #-1
(hiss . ( -1 6 1 ))
(hississ . ( -1 6 2 ))
)
-\version "1.3.93";
+\version "1.3.96";
; C iso C.no5
(((0 . 0) (2 . 0)) . #f)
; Cm iso Cm.no5
- (((0 . 0) (2 . -1)) . ("m"))
+ (((0 . 0) (2 . -1)) . (("m")))
; C2 iso C2.no3
- (((0 . 0) (1 . 0) (4 . 0)) . (("2" (type . "super"))))
+ (((0 . 0) (1 . 0) (4 . 0)) . (super "2"))
; C4 iso C4.no3
- (((0 . 0) (3 . 0) (4 . 0)) . (("4" (type . "super"))))
+ (((0 . 0) (3 . 0) (4 . 0)) . (super "4"))
; Cdim iso Cm5-
(((0 . 0) (2 . -1) (4 . -1)) . ("dim"))
; Co iso Cm5-7-
; urg
- (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (("o" (type . "super"))))
+ (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (super "o"))
; Cdim9
- (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1)) . ("dim" ("9" (type . "super"))))
- (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1) (3 . -1)) . ("dim" ("11" (type . "super"))))
+ (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1)) . ("dim" (super "9")))
+ (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1) (3 . -1)) . ("dim" (super "11")))
)
chord::names-alist-banter))
(bold . (font-series . "bold"))
(italic . (font-shape . "italic"))
(named . (lookup . name))
- (text . (lookup . value)))
+ (text . (lookup . value))
+ (super . (font-size . -1)))
(map (lambda (x) (cons (car x) (cons 'font-style (car x))))
style-to-font-alist)))
'property definiton case (eg. onevoice -> oneVoice)')
+if 1:
+ def conv (str):
+ str = re.sub ('ChordNames*', 'ChordNames', str)
+ return str
+
+ conversions.append ((1,3,97), conv, 'ChordName -> ChordNames')
############################