App-Music-ChordPro-6.050.7/ 0000755 0004000 0004000 00000000000 14567360040 013010 5 ustar jv jv App-Music-ChordPro-6.050.7/lib/ 0000755 0004000 0004000 00000000000 14567360037 013564 5 ustar jv jv App-Music-ChordPro-6.050.7/lib/ChordPro/ 0000755 0004000 0004000 00000000000 14567360037 015304 5 ustar jv jv App-Music-ChordPro-6.050.7/lib/ChordPro/res/ 0000755 0004000 0004000 00000000000 14567360037 016075 5 ustar jv jv App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/ 0000755 0004000 0004000 00000000000 14567360037 016622 5 ustar jv jv App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/ 0000755 0004000 0004000 00000000000 14567360037 020151 5 ustar jv jv App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/roman-1.js 0000644 0004000 0004000 00000007206 14565315274 021767 0 ustar jv jv // abc2svg - roman.js - convert the chord symbols to the RNN
// (Roman Numeral Notation)
//
// Copyright (C) 2021-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded by %%roman.
//
// Parameters
// %%roman int
//
// = '1': use uppercase letters with 'm' for minor chords
// = '2': user lowercase letters for minor chords
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.roman = {
note_nm: "CDEFGAB",
// chord names
nm_M: ["I", "♯I", "II", "♭III", "III", "IV", "♯IV",
"V", "♯V", "VI", "♭VII", "VII"],
nm_m: ["I", "♭II", "II", "III", "♯III", "IV", "♭V",
"V", "VI", "♯VI", "VII", "♯VII"],
// inversions: 1st: (upper)6, 2nd: (upper)6 (lower) 4
gch_build: function(of, s) {
var gch, ix, t,
ty = this.cfmt().roman
// transpose the chord back to "C"
function set_nm(p) {
var i, o, o2, a, n,
csa = []
i = p.indexOf('/') // get the bass if any
while (i > 0) {
if (p[i - 1] != '<') // if not .
//
// Code adapted from Chris Fargen.
// https://gist.github.com/chrisfargen/4324c6cf6fed2c8f9a6eae1680e53169
//
// This module is loaded by %%jazzchord.
//
// Parameters
// %%jazzchord [ string '=' replacement-string ]*
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.jazzchord = {
// default replacements
defrep: {
"-": "–",
"°": "o",
"º": "o",
"ᵒ": "o",
"0": "ø",
// "6/9": "⁶⁄₉",
// "maj": "Δ",
// "M": "Δ",
// "min": "–",
// "m": "–",
"^": "∆"
},
gch_build: function(of, s) {
var gch, ix, r, t,
fmt = s.fmt
if (!fmt.jazzchord) {
of(s)
return
}
// jazzify a chord
function jzch(t) {
var r = '',
a = t.match(/(\[?[A-G])([#♯b♭]?)([^/]*)\/?(.*)\)?/)
// a[1]=note, a[2]=acc, a[3]=quality, a[4]=bass
if (!a)
return t
if (a[2])
r = "$7" + a[2]
if (a[3][0] == 'm' // if minor
&& a[3].slice(0, 3) != "maj") {
if (!r)
r += "$7"
if (a[3].slice(0, 3) == "min") {
r += a[3].slice(0, 3)
a[3] = a[3].slice(3)
} else { // assume 'm'
r += 'm'
a[3] = a[3].slice(1)
}
}
if (a[3])
r += (r ? "$0" : '') + "$8" + a[3]
if (a[4])
r += (r ? "$0" : '') + "$9/" + a[4]
if (!r)
return t
return a[1] + r + "$0"
} // jzch()
for (ix = 0; ix < s.a_gch.length; ix++) {
gch = s.a_gch[ix]
t = gch.text
if (gch.type != 'g'
|| t.indexOf('$') >= 0) // if some formatting already
continue
switch (t) {
case "/": gch.text = "\ue101"; continue
case "%": gch.text = "\ue500"; continue
case "%%": gch.text = "\ue501"; continue
}
if (fmt.jzreg) { // if replacement list
t = t.replace(fmt.jzRE,
function(x) {
return fmt.jzrep[x]
})
}
if (fmt.jazzchord == 1) {
if (t[0] == '(')
t = t.slice(1, -1)
t = t.split('(') // possible "ch1(ch2)"
r = jzch(t[0])
if (t.length > 1)
r += '(' + jzch(t[1])
} else {
r = t
}
if (gch.text[0] == '(')
gch.text = '(' + r + ')'
else
gch.text = r
}
of(s) // build the chord symbols
}, // gch_build()
set_fmt: function(of, cmd, parm) {
var i, k, s,
cfmt = this.cfmt()
if (cmd == "jazzchord") {
cfmt.jazzchord = this.get_bool(parm)
if (!cfmt.jazzchord)
return
if (parm[0] == '2')
cfmt.jazzchord = 2 // no style
if(!cfmt.jzreg) { // if new definition
// cfmt.jzreg = "-|°|º|ᵒ|0|6/9|maj|M|min|m|\\^"
cfmt.jzreg = "-|°|º|ᵒ|0|\\^"
cfmt.jzrep = Object.create(abc2svg.jazzchord.defrep)
cfmt.jzRE = new RegExp(cfmt.jzreg, 'g')
}
if (parm && parm.indexOf('=') > 0) {
parm = parm.split(/[\s]+/)
for (cmd = 0; cmd < parm.length; cmd++) {
k = parm[cmd].split('=')
if (k.length != 2)
//fixme: error
continue
s = k[1] // replacement
k = k[0] // key
i = cfmt.jzreg.indexOf(k)
if (i >= 0) { // if old key
if (s) { // new value
cfmt.jzrep[k] = s
} else {
cfmt.jzreg = cfmt.jzreg.replace(k, '')
cfmt.jzreg = cfmt.jzreg.replace('||', '|')
delete cfmt.jzrep[k]
}
} else {
cfmt.jzreg += '|' + k
cfmt.jzrep[k] = s
}
cfmt.jzRE = new RegExp(cfmt.jzreg, 'g')
}
}
return
}
of(cmd, parm)
}, // set_fmt()
set_hooks: function(abc) {
abc.gch_build = abc2svg.jazzchord.gch_build.bind(abc, abc.gch_build)
abc.set_format = abc2svg.jazzchord.set_fmt.bind(abc, abc.set_format)
abc.add_style("\
\n.jc7{font-size:90%}\
\n.jc8{baseline-shift:25%;font-size:75%;letter-spacing:-0.05em}\
\n.jc9{font-size:75%;letter-spacing:-0.05em}\
")
abc.param_set_font("setfont-7", "* * class=jc7")
abc.param_set_font("setfont-8", "* * class=jc8")
abc.param_set_font("setfont-9", "* * class=jc9")
} // set_hooks()
} // jazzchord
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.jazzchord = abc2svg.jazzchord.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/equalbars-1.js 0000644 0004000 0004000 00000007612 14565315274 022633 0 ustar jv jv // equalbars.js - module to set equal spaced measure bars
//
// Copyright (C) 2018-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%equalbars" appears in a ABC source.
//
// Parameters
// %%equalbars bool
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.equalbars = {
// new tune - clear the width of the start of the staff
output_music: function(of) {
this.equalbars_d = 0;
of()
},
// get the equalbars parameter
set_fmt: function(of, cmd, parm) {
if (cmd != "equalbars") {
of(cmd, parm)
return
}
var fmt = this.cfmt()
fmt.equalbars = this.get_bool(parm)
fmt.stretchlast = 1
},
// adjust the symbol offsets of a music line
// only the bars of the first voice are treated
set_sym_glue: function(of, width) {
var C = abc2svg.C,
s, s2, d, w, i, n, x, g, t, t0,
bars = [],
tsfirst = this.get_tsfirst();
of(width) // compute the x offset of the symbols
if (!this.cfmt().equalbars)
return
// search the first note/rest/space
for (s2 = tsfirst; s2; s2 = s2.next) {
switch (s2.type) {
default:
continue
case C.GRACE:
case C.MREST:
case C.NOTE:
case C.REST:
case C.SPACE:
break
}
break
}
if (!s2)
return
// build an array of the bars
t0 = t = s2.time
for (s = s2; s.next; s = s.next) {
if (s.type == C.BAR && s.seqst && s.time != t) {
bars.push([s, s.time - t]);
t = s.time
}
}
// push the last bar or replace it in the array
if (s.time != t)
bars.push([s, s.time - t])
else
bars[bars.length - 1][0] = s // replace the last bar
t = s.time
if (s.dur)
t += s.dur;
n = bars.length
if (n <= 1)
return // one or no bar
// if small width, get the widest measure
if (s.x < width) {
w = 0
x = 0
for (i = 0; i < n; i++) {
s = bars[i][0]
if (s.x - x > w)
w = s.x - x
x = s.x
}
if (w * n < width)
width = w * n
this.set_realwidth(width)
}
// set the measure parameters
x = s2.type == C.GRACE ? s2.extra.x : (s2.x - s2.wl)
if (this.equalbars_d < x)
this.equalbars_d = x // new offset of the first note/rest
d = this.equalbars_d
w = (width - d) / (t - t0) // width per time unit
// loop on the bars
for (i = 0; i < n; i++) {
do { // don't shift the 1st note from the bar
if (s2.type == C.GRACE) {
for (g = s2.extra; g; g = g.next)
g.x = d + g.x - x
} else {
s2.x = d + s2.x - x
}
s2 = s2.ts_next
} while (!s2.seqst)
s = bars[i][0]; // next bar
f = w * bars[i][1] / (s.x - x)
// and update the x offsets
for ( ; s2 != s; s2 = s2.ts_next) {
if (s2.type == C.GRACE) {
for (g = s2.extra; g; g = g.next)
g.x = d + (g.x - x) * f
// } else if (s2.x) {
} else {
s2.x = d + (s2.x - x) * f
}
}
d += w * bars[i][1];
x = s2.x
while (1) {
s2.x = d;
s2 = s2.ts_next
if (!s2 || s2.seqst)
break
}
if (!s2)
break
}
}, // set_sym_glue()
set_hooks: function(abc) {
abc.output_music = abc2svg.equalbars.output_music.bind(abc, abc.output_music);
abc.set_format = abc2svg.equalbars.set_fmt.bind(abc, abc.set_format);
abc.set_sym_glue = abc2svg.equalbars.set_sym_glue.bind(abc, abc.set_sym_glue)
}
} // equalbars
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.equalbars = abc2svg.equalbars.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/README.FIRST 0000644 0004000 0004000 00000000347 14564715177 021731 0 ustar jv jv This directory contains a subset of the ABC2SVG software.
It is intended to be used by Chordpro and may not be useful for other purposes.
For more info, https://chiselapp.com/user/moinejf/repository/abc2svg/doc/trunk/README.md.
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/mdnn-1.js 0000644 0004000 0004000 00000017365 14565315274 021616 0 ustar jv jv // mdnn.js - module to output Modernised Diatonic Numerical Notation
// (https://medium.com/@info_70544/the-case-for-numerical-music-notation-part-1-introduction-and-history-5f1543ca8a95)
//
// Copyright (C) 2020-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%mdnn" appears in a ABC source.
//
// Parameters
// (none)
//
//fixme:nsk
// - Non Standard Key signature - other way to display the accidentals on key change
// polyfill
if (typeof Object.assign !== 'function') {
// Must be writable: true, enumerable: false, configurable: true
Object.defineProperty(Object, "assign", {
value: function assign(target, varArgs) { // .length of function is 2
'use strict';
if (target === null || target === undefined) {
throw new TypeError('Cannot convert undefined or null to object');
}
var to = Object(target);
for (var index = 1; index < arguments.length; index++) {
var nextSource = arguments[index];
if (nextSource !== null && nextSource !== undefined) {
for (var nextKey in nextSource) {
// Avoid bugs when hasOwnProperty is shadowed
if (Object.prototype.hasOwnProperty.call(nextSource, nextKey)) {
to[nextKey] = nextSource[nextKey];
}
}
}
}
return to;
},
writable: true,
configurable: true
});
}
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.mdnn = {
cde2fcg: new Int8Array([0, 2, 4, -1, 1, 3, 5]),
cgd2cde: new Int8Array([0, -4, -1, -5, -2, -6, -3,
0, -4, -1, -5, -2, -6, -3, 0]),
acc_tb: ["aff", "af", "n", "s", "ss"],
glyphs: {
n1: '1',
n2: '2',
n3: '3',
n4: '4',
n5: '5',
n6: '6',
n7: '7',
nq: '\'',
nc: ',',
nh: '',
nw: '',
aff: '',
af: '',
nn: '',
ns: '',
nss: ''
}, //glyphs
decos: {
n1: "9 n1 0 0 0",
n2: "9 n2 0 0 0",
n3: "9 n3 0 0 0",
n4: "9 n4 0 0 0",
n5: "9 n5 0 0 0",
n6: "9 n6 0 0 0",
n7: "9 n7 0 0 0",
q: "0 nq 0 0 0",
c: "0 nc 0 0 0",
h: "0 nh 0 0 0",
w: "0 nw 0 0 0",
aff: "0 aff 0 0 0",
af: "0 af 0 0 0",
n: "0 nn 0 0 0",
s: "0 ns 0 0 0",
ss: "0 nss 0 0 0"
}, // decos
// change the voices into MDNN
//fixme: actually, one voice only
output_music: function(of) {
var C = abc2svg.C,
abc = this,
cfmt = abc.cfmt(),
cur_sy = abc.get_cur_sy(),
voice_tb = abc.get_voice_tb(),
sf = voice_tb[0].key.k_sf,
delta = abc2svg.mdnn.cgd2cde[sf + 7] - 2
var s, s2, note, pit, nn, p, a, i,
prev_oct = -10
if (!cfmt.mdnn) {
of()
return
}
delete voice_tb[0].key.k_a_acc // no accidental
voice_tb[0].clef.invis = true // no (visible) clef
cur_sy.staves[0].stafflines = "..." // empty staff
// scan the first voice of the tune
for (s = voice_tb[0].sym; s; s = s.next) {
switch (s.type) {
case C.CLEF:
s.invis = true
continue
case C.KEY:
//fixme:nsk
// delete s.k_a_acc // don't display the accidentals
sf = s.k_sf
delta = abc2svg.mdnn.cgd2cde[sf + 7] - 2
nn = sf - s.k_old_sf // delta accidentals
//fixme:nsk
// if (!nn) {
// s.k_old_sf = s.k_sf = 0 // don't display the accidentals
// continue
// }
//fixme:comment if nsk
// display normal accidentals
s.k_old_sf = 0
s.k_sf = nn
continue
//fixme:nsk
// // display '[' 0 ?
//// "\u266f\u266f\u266f\u266f\u266f\u266f".slice(0, nn) :
//// "\u266d\u266d\u266d\u266d\u266d\u266d".slice(0, -nn)) +
//// ']'
// text: '[' + (nn > 0 ?
// nn + '\u266f' : (-nn) + '\u266d') +
// ']'
// }
// s2.width = abc.strwh(s2.a_gch[0].text + ' ')[0]
// s2.a_gch[0].x = -s2.width / 2
// s = s2
// continue
default:
continue
case C.NOTE: // change the notes
break
}
note = s.notes[0]
// note head
p = note.pit
pit = p + delta
nn = ((pit + 77) % 7) + 1 // note number
abc.dh_put('n' + nn, s, note)
// display the note as C5 with stem up
note.pit = 23 // 'c'
s.stem = 1
// octave
nn = (pit / 7) | 0
if (nn > prev_oct) {
if (prev_oct != -10)
abc.dh_put('q', s, note)
prev_oct = nn
} else if (nn < prev_oct) {
abc.dh_put('c', s, note)
prev_oct = nn
}
// half and whole notes
if (s.dur >= C.BLEN / 2)
abc.dh_put(s.dur >= C.BLEN ? 'w' : 'h', s, note)
// accidentals
a = note.acc
if (a) {
note.acc = 0
nn = abc2svg.mdnn.cde2fcg[(p + 5 + 16 * 7) % 7] - sf
if (a != 3)
nn += a * 7
nn = ((((nn + 1 + 21) / 7) | 0) + 2 - 3 + 32 * 5) % 5
abc.dh_put(abc2svg.mdnn.acc_tb[nn], s, note)
}
// set the slurs and ties up
if (s.sls) {
for (i = 0; i < s.sls.length; i++)
s.sls[i].ty = C.SL_ABOVE
}
if (note.sls) {
for (i = 0; i < note.sls.length; i++)
note.sls[i].ty = C.SL_ABOVE
}
if (note.tie_ty != undefined)
note.tie_ty = C.SL_ABOVE
}
of()
}, // output_music()
set_fmt: function(of, cmd, param) {
if (cmd == "mdnn")
this.cfmt().mdnn = param
else
of(cmd, param)
}, // set_fmt()
// don't display the key signature at start of staff
set_pitch: function(of, last_s) {
of(last_s)
if (!last_s // first time
|| !this.cfmt().mdnn)
return
var C = abc2svg.C,
s = this.get_tsfirst()
if (s && s.next && s.next.type == C.KEY)
//fixme:nsk
delete s.next.k_a_acc
// s.next.a_gch = null
}, // set_pitch()
set_hooks: function(abc) {
abc.output_music = abc2svg.mdnn.output_music.bind(abc, abc.output_music)
abc.set_format = abc2svg.mdnn.set_fmt.bind(abc, abc.set_format)
abc.set_pitch = abc2svg.mdnn.set_pitch.bind(abc, abc.set_pitch)
Object.assign(abc.get_glyphs(), abc2svg.mdnn.glyphs)
Object.assign(abc.get_decos(), abc2svg.mdnn.decos)
abc.add_style("\n.bn {font-family:sans-serif; font-size:15px}")
}
} // mdnn
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.mdnn = abc2svg.mdnn.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/pedline-1.js 0000644 0004000 0004000 00000005445 14565315274 022276 0 ustar jv jv // pedline.js - module to draw pedal lines instead of 'Ped .. *'
//
// Copyright (C) 2020-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%pedline" appears in a ABC source.
//
// Parameters
// %%pedline 1
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.pedline = {
draw_all_deco: function(of) {
var de, i, x, dp, ds,
a_de = this.a_de()
if (!a_de.length)
return // no decoration in this music line
if (this.cfmt().pedline) {
for (i = 0; i < a_de.length; i++) {
de = a_de[i]
if (de.dd.name != "ped)")
continue
ds = de.start
dp = de.prev
// ( .. ) ( .. )
// \ de
// \ de.start
// \ de.prev
// \ de.prev.start
// |_____/\____|
if (dp && dp.dd.name == "ped)"
&& dp.s.v == ds.s.v) {
de.defl.nost = // /\
dp.defl.noen = 2
de.x = ds.s.x - 10
de.val = de.s.x - ds.s.x - 3
dp.val = de.x - dp.x
if (de.y > dp.y)
de.y = dp.y
dp.y = de.y
} else {
de.x = ds.s.x - 8
if (!de.defl.noen)
de.val = de.s.x - ds.s.x - de.s.wl
}
}
}
of()
}, // draw_all_deco()
out_lped: function(of, x, y, val, defl) {
if (!this.cfmt().pedline) {
of(x, y, val, defl)
return
}
this.xypath(x, y + 8)
if (defl.nost) {
if (defl.nost == 2) { // \
this.out_svg("l2.5 6")
val -= 2.5
} else {
this.out_svg("m0 6")
}
} else {
this.out_svg("v6")
}
if (defl.noen) {
if (defl.noen == 2) { // /
val -= 2.5
this.out_svg("h" + val.toFixed(1) + 'l2.5 -6')
} else {
this.out_svg("h" + val.toFixed(1))
}
} else {
this.out_svg("h" + val.toFixed(1) + 'v-6')
}
this.out_svg('"/>\n')
}, // out_lped()
set_fmt: function(of, cmd, param) {
if (cmd == "pedline")
this.cfmt().pedline = this.get_bool(param)
else
of(cmd, param)
}, // set_fmt()
set_hooks: function(abc) {
abc.draw_all_deco = abc2svg.pedline.draw_all_deco.bind(abc, abc.draw_all_deco)
abc.out_lped = abc2svg.pedline.out_lped.bind(abc, abc.out_lped)
abc.set_format = abc2svg.pedline.set_fmt.bind(abc, abc.set_format)
} // set_hooks()
} // pedline
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.pedline = abc2svg.pedline.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/perc-1.js 0000644 0004000 0004000 00000013117 14565315274 021602 0 ustar jv jv // perc.js - module to handle %%percmap
//
// Copyright (C) 2018-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%percmap" appears in a ABC source.
//
// Parameters (from W. Vree)
// %%percmap ABC_note percussion [note_head]
// The percussion may be a number (MIDI percussion number range 35..81),
// a ABC note or a possibly abbreviated percussion name.
// See https://wim.vree.org/js2/tabDrumDoc.html for more information.
// Using this command creates a voicemap named "MIDIdrum".
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.perc = {
// parse %%percmap
do_perc: function(parm) {
var pits = new Int8Array([0, 0, 1, 2, 2, 3, 3, 4, 5, 5, 6, 6]),
accs = new Int8Array([3, 1, 3, -1, 3, 3, 1, 3, -1, 3, -1, 3])
// GM drum
// 35 B,,, Acoustic Bass Drum a-b-d
// 36 C,, Bass Drum 1 b-d-1
// 37 ^C,, Side Stick s-s
// 38 D,, Acoustic Snare a-s
// 39 ^D,, Hand Clap h-c
// 40 E,, Electric Snare e-s
// 41 F,, Low Floor Tom l-f-t
// 42 ^F,, Closed Hi Hat c-h-h
// 43 G,, High Floor Tom h-f-t
// 44 ^G,, Pedal Hi-Hat p-h-h
// 45 A,, Low Tom l-to
// 46 ^A,, Open Hi-Hat o-h-h
// 47 B,, Low-Mid Tom l-m-t
// 48 C, Hi Mid Tom h-m-t
// 49 ^C, Crash Cymbal 1 c-c-1
// 50 D, High Tom h-to
// 51 ^D, Ride Cymbal 1 r-c-1
// 52 E, Chinese Cymbal c-c
// 53 F, Ride Bell r-b
// 54 ^F, Tambourine t
// 55 G, Splash Cymbal s-c
// 56 ^G, Cowbell co
// 57 A, Crash Cymbal 2 c-c-2
// 58 ^A, Vibraslap v
// 59 B, Ride Cymbal 2 r-c-2
// 60 C Hi Bongo h-b
// 61 ^C Low Bongo l-b
// 62 D Mute Hi Conga m-h-c
// 63 ^D Open Hi Conga o-h-c
// 64 E Low Conga l-c
// 65 F High Timbale h-ti
// 66 ^F Low Timbale l-ti
// 67 G High Agogo h-a
// 68 ^G Low Agogo l-a
// 69 A Cabasa ca
// 70 ^A Maracas m
// 71 B Short Whistle s-w
// 72 c Long Whistle l-w
// 73 ^c Short Guiro s-g
// 74 d Long Guiro l-g
// 75 ^d Claves cl
// 76 e Hi Wood Block h-w-b
// 77 f Low Wood Block l-w-b
// 78 ^f Mute Cuica m-c
// 79 g Open Cuica o-c
// 80 ^g Mute Triangle m-t
// 81 a Open Triangle o-t
// percussion reduced names (alphabetic order)
var prn = {
"a-b-d": 35,
"a-s": 38,
"b-d-1": 36,
"ca": 69,
"cl": 75,
"co": 56,
"c-c": 52,
"c-c-1": 49,
"c-c-2": 57,
"c-h-h": 42,
"e-s": 40,
"h-a": 67,
"h-b": 60,
"h-c": 39,
"h-f-t": 43,
"h-m-t": 48,
"h-ti": 65,
"h-to": 50,
"h-w-b": 76,
"l-a": 68,
"l-b": 61,
"l-c": 64,
"l-f-t": 41,
"l-g": 74,
"l-m-t": 47,
"l-ti": 66,
"l-to": 45,
"l-w": 72,
"l-w-b": 77,
"m": 70,
"m-c": 78,
"m-h-c": 62,
"m-t": 80,
"o-c": 79,
"o-h-c": 63,
"o-h-h": 46,
"o-t": 81,
"p-h-h": 44,
"r-b": 53,
"r-c-1": 51,
"r-c-2": 59,
"s-c": 55,
"s-g": 73,
"s-s": 37,
"s-w": 71,
"t": 54,
"v": 58
}
// convert a drum instrument to a ABC note
function toabc(p) {
var i, j, s, pit
if (/^[_^]*[A-Ga-g][,']*$/.test(p)) // '
return p // ABC note
// if not a MIDI pitch, try a drum instrument name
pit = Number(p)
if (isNaN(pit)) {
p = p.toLowerCase(p);
s = p[0]; // get the 1st letters after '-'
i = 0
while (1) {
j = p.indexOf('-', i)
if (j < 0)
break
i = j + 1;
s += '-' + p[i]
}
pit = prn[s]
// solve some specific cases
if (!pit) {
switch (p[0]) {
case 'c':
switch (p[1]) {
case 'a': pit = prn.ca; break
case 'l': pit = prn.cl; break
case 'o': pit = prn.co; break
}
break
case 'h':
case 'l':
i = p.indexOf('-')
if (p[i + 1] != 't')
break
switch (p[i + 2]) {
case 'i':
case 'o':
pit = prn[s + p[i + 2]]
break
}
break
}
if (!pit)
return
}
}
p = ["C","^C","D","_E","E","F","^F","G","^G","A","_B","B"][pit % 12]
while (pit < 60) {
p += ','
pit += 12
}
while (pit >= 72) {
p += "'"
pit -= 12
}
return p
} // toabc()
// do_perc()
var a = parm.split(/\s+/),
p = a[1].replace(/[=_^]/, '')
this.do_pscom("map MIDIdrum " + a[1] +
" play=" + toabc(a[2]) +
" print=" + p +
(a[3] ? (" heads=" + a[3]) : ''))
this.set_v_param("perc", "MIDIdrum")
}, // do_perc()
// set the MIDI parameters in the current voice
set_perc: function(a) {
var i, item, s,
curvoice = this.get_curvoice()
for (i = 0; i < a.length; i++) {
switch (a[i]) {
case "perc=": // %%percmap
if (!curvoice.map)
curvoice.map = {}
curvoice.map = a[i + 1];
s = this.new_block("midiprog")
s.play = s.invis = 1 //true
curvoice.chn = s.chn = 9 // channel 10
break
}
}
}, // set_perc()
do_pscom: function(of, text) {
if (text.slice(0, 8) == "percmap ")
abc2svg.perc.do_perc.call(this, text)
else
of(text)
},
set_vp: function(of, a) {
abc2svg.perc.set_perc.call(this, a);
of(a)
},
set_hooks: function(abc) {
abc.do_pscom = abc2svg.perc.do_pscom.bind(abc, abc.do_pscom);
abc.set_vp = abc2svg.perc.set_vp.bind(abc, abc.set_vp)
}
} // perc
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.perc = abc2svg.perc.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/combine-1.js 0000644 0004000 0004000 00000015202 14565315274 022262 0 ustar jv jv // combine.js - module to add a combine chord line
//
// Copyright (C) 2018-2024 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%voicecombine" appears in a ABC source.
//
// Parameters
// %%voicecombine n 'n' is the combine level
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.combine = {
// function called at start of the generation when multi-voices
comb_v: function() {
var C = abc2svg.C,
abc = this
// get the symbol of the note to combine
function get_cmb(s) {
var p,
s2 = s.ts_next,
i = s.p_v.id.indexOf('.') // '.' is the group separator
if (i >= 0) {
p = s.p_v.id.slice(0, i) // group
while (s2 && s2.time == s.time) {
if (s2.p_v.id.indexOf(p) == 0)
break
s2 = s2.ts_next
}
}
return s2
} // get_cmb()
// check if voice combine may occur
function may_combine(s) {
var nhd2,
s2 = get_cmb(s)
if (!s2 || (s2.type != C.NOTE && s2.type != C.REST))
return false
if (s2.st != s.st
|| s2.time != s.time
|| s2.dur != s.dur)
return false
if (s.combine <= 0
&& s2.type != s.type)
return false
// if (s2.a_dd) { //fixme: should check the double decorations
// return false
// }
if (s.a_gch && s2.a_gch)
return false
if (s.type == C.REST) {
if (s.type == s2.type) {
if (s.invis && !s2.invis)
return //false
} else if (s.combine <= 2) {
return //false
}
return true
}
if (s2.a_ly)
return false
if (s2.beam_st != s.beam_st
|| s2.beam_end != s.beam_end)
return false;
nhd2 = s2.nhd
if (s.combine <= 1
&& s.notes[0].pit <= s2.notes[nhd2].pit + 1)
return false
return true
} // may_combine()
// combine two notes
function combine_notes(s, s2) {
var nhd, type, m, not
// put the notes of the 2nd voice into the 1st one
for (m = 0; m <= s2.nhd; m++) {
not = abc.clone(s2.notes[m])
not.noplay = true // and don't play it
s.notes.push(not)
}
s.nhd = nhd = s.notes.length - 1;
s.notes.sort(abc2svg.pitcmp) // sort the notes by pitch
if (s.combine >= 3) { // remove unison heads
//fixme: KO for playback
for (m = nhd; m > 0; m--) {
if (s.notes[m].pit == s.notes[m - 1].pit
&& s.notes[m].acc == s.notes[m - 1].acc)
s.notes.splice(m, 1)
}
s.nhd = nhd = s.notes.length - 1
}
s.ymx = 3 * (s.notes[nhd].pit - 18) + 4;
s.ymn = 3 * (s.notes[0].pit - 18) - 4;
// force the tie directions
type = s.notes[0].tie_ty
if ((type & 0x07) == C.SL_AUTO)
s.notes[0].tie_ty = C.SL_BELOW | (type & C.SL_DOTTED);
type = s.notes[nhd].tie_ty
if ((type & 0x07) == C.SL_AUTO)
s.notes[nhd].tie_ty = C.SL_ABOVE | (type & C.SL_DOTTED)
} // combine_notes()
// combine 2 voices
// return the remaining one
function do_combine(s) {
var s2, s3, type, i, n, sl
s2 = get_cmb(s)
// there may be more voices
if (!s.in_tuplet
&& s2.combine != undefined && s2.combine >= 0
&& may_combine(s2))
s2 = do_combine(s2)
if (s.type != s2.type) { // if note and rest
if (s2.type != C.REST) {
s2 = s;
s = s2.ts_next
}
} else if (s.type == C.REST) {
if (s.invis
&& !s2.invis)
delete s.invis
s.multi = 0
} else {
combine_notes(s, s2)
if (s2.ti1)
s.ti1 = true
if (s2.ti2)
s.ti2 = true
}
// if some slurs start on the second symbol
// move them to the combined symbol
// also, set a flag in the symbols of the ending slurs
if (s2.sls) {
if (s.sls)
Array.prototype.push.apply(s.sls, s2.sls)
else
s.sls = s2.sls
for (i = 0; i < s2.sls.length; i++) {
sl = s2.sls[i]
if (sl.se)
sl.se.slsr = s // reverse pointer
sl.ty = C.SL_BELOW
}
delete s2.sls
}
// if a combined slur is ending on the second symbol,
// update its starting symbol
s3 = s2.slsr // pointer to the starting symbol
if (s3) {
for (i = 0; i < s3.sls.length; i++) {
sl = s3.sls[i]
if (sl.se == s2)
sl.se = s
}
}
if (s2.a_gch)
s.a_gch = s2.a_gch
if (s2.a_dd) {
if (!s.a_dd)
s.a_dd = s2.a_dd
else
Array.prototype.push.apply(s.a_dd, s2.a_dd)
}
s2.play = s2.invis = true // don't display, but play
return s
} // do_combine()
// code of comb_v()
var s, s2, g, i, r
for (s = abc.get_tsfirst(); s; s = s.ts_next) {
switch (s.type) {
case C.REST:
if (s.combine == undefined || s.combine < 0)
continue
if (may_combine(s))
s = do_combine(s)
// continue // fall thru
default:
continue
case C.NOTE:
if (s.combine == undefined || s.combine <= 0)
continue
break
}
if (!s.beam_st)
continue
s2 = s
while (1) {
if (!may_combine(s2)) {
s2 = null
break
}
//fixme: may have rests in beam
if (s2.beam_end)
break
do {
s2 = s2.next
} while (s2.type != C.NOTE && s2.type != C.REST)
}
if (!s2)
continue
s2 = s
while (1) {
s2 = do_combine(s2)
//fixme: may have rests in beam
if (s2.beam_end)
break
do {
s2 = s2.next
} while (s2.type != C.NOTE && s2.type != C.REST)
}
}
}, // comb_v()
do_pscom: function(of, text) {
if (text.slice(0, 13) == "voicecombine ")
this.set_v_param("combine", text.split(/[ \t]/)[1])
else
of(text)
},
new_note: function(of, gr, tp) {
var curvoice = this.get_curvoice()
var s = of(gr, tp)
if (s && s.notes && curvoice.combine != undefined)
s.combine = curvoice.combine
return s
},
set_stem_dir: function(of) {
of();
abc2svg.combine.comb_v.call(this)
},
// set the combine parameter in the current voice
set_vp: function(of, a) {
var i,
curvoice = this.get_curvoice()
for (i = 0; i < a.length; i++) {
if (a[i] == "combine=") { // %%voicecombine
curvoice.combine = a[i + 1]
break
}
}
of(a)
},
set_hooks: function(abc) {
abc.do_pscom = abc2svg.combine.do_pscom.bind(abc, abc.do_pscom);
abc.new_note = abc2svg.combine.new_note.bind(abc, abc.new_note);
abc.set_stem_dir = abc2svg.combine.set_stem_dir.bind(abc, abc.set_stem_dir);
abc.set_vp = abc2svg.combine.set_vp.bind(abc, abc.set_vp)
}
} // combine
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.combine = abc2svg.combine.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/sth-1.js 0000644 0004000 0004000 00000007241 14565315274 021450 0 ustar jv jv // sth.js - module to set the stem heights
//
// Copyright (C) 2018-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%sth" appears in a ABC source.
//
// Parameters
// %%sth h1 h2 h3 ...
// The values h1, h2, .. are applied to the following notes which
// have a stem and which are not inside a beam.
// The value may be '*' for keeping the original stem length.
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.sth = {
// function called after beam calculation
recal_beam: function(bm, s) {
var staff_tb = this.get_staff_tb(),
y = staff_tb[s.st].y,
s2 = bm.s2,
y2 = staff_tb[s2.st].y
if (s.sth != undefined)
s.ys = s.sth
if (s2.sth != undefined)
s2.ys = s2.sth;
bm.a = (s.ys + y - s2.ys - y2) / (s.xs - s2.xs);
bm.b = s.ys - s.xs * bm.a + y
while (1) {
s.ys = bm.a * s.xs + bm.b - y
if (s.stem > 0)
s.ymx = s.ys + 2.5
else
s.ymn = s.ys - 2.5;
s = s.next
if (s == s2)
break
}
},
// function called after the stem heights have been computed
set_sth: function() {
var s, h, v, sth_a, p_voice,
voice_tb = this.get_voice_tb()
for (v = 0; v < voice_tb.length; v++) {
p_voice = voice_tb[v]
if (p_voice.sth != null) // if no stem length in this voice
continue
sth_a = []
for (s = p_voice.sym; s; s = s.next) {
if (s.sth) {
sth_a = s.sth;
s.sth = null
}
if (sth_a.length == 0
|| s.nflags <= -2 || s.stemless
|| !(s.beam_st || s.beam_end))
continue
h = sth_a.shift()
if (h == '*')
continue // no change
if (h == '|') { // skip to the next measure bar
for (s = s.next; s; s = s.next) {
if (s.bar_type)
break
}
continue
}
h = Number(h)
if (isNaN(h) || !h)
continue // fixme: error
if (s.stem >= 0) {
s.ys = s.y + h;
s.ymx = (s.ys + 2.5) | 0
} else {
s.ys = s.y - h;
s.ymn = (s.ys - 2.5) | 0
}
s.sth = s.ys
}
}
}, // set_sth()
calculate_beam: function(of, bm, s1) {
var done = of(bm, s1)
if (done && bm.s2 && (s1.sth || bm.s2.sth))
abc2svg.sth.recal_beam.call(this, bm, s1)
return done
},
new_note: function(of, grace, tp_fact) {
var C = abc2svg.C,
s = of(grace, tp_fact),
curvoice = this.get_curvoice()
if (curvoice.sth && s && s.type == C.NOTE) {
s.sth = curvoice.sth;
curvoice.sth = null // some stem widths in this voice
}
return s
},
set_fmt: function(of, cmd, param) {
if (cmd == "sth") {
var curvoice = this.get_curvoice()
if (curvoice)
curvoice.sth = param.split(/[ \t;-]+/)
return
}
of(cmd, param)
},
set_stems: function(of) {
of();
abc2svg.sth.set_sth.call(this)
},
set_hooks: function(abc) {
abc.calculate_beam = abc2svg.sth.calculate_beam.bind(abc, abc.calculate_beam);
abc.new_note = abc2svg.sth.new_note.bind(abc, abc.new_note);
abc.set_format = abc2svg.sth.set_fmt.bind(abc, abc.set_format);
abc.set_stems = abc2svg.sth.set_stems.bind(abc, abc.set_stems)
}
} // sth
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.sth = abc2svg.sth.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/break-1.js 0000644 0004000 0004000 00000005740 14565315274 021740 0 ustar jv jv // break.js - module to handle the %%break command
//
// Copyright (C) 2018-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%break" appears in a ABC source.
//
// Parameters
// %%break measure_nb [":" num "/" den] [" " measure ...]*
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.break = {
// get the %%break parameters
get_break: function(parm) {
var C = abc2svg.C,
b, c, d, sq,
a = parm.split(/[ ,]/),
cfmt = this.cfmt()
if (!cfmt.break)
cfmt.break = []
for (n = 1; n < a.length; n++) {
b = a[n];
c = b.match(/(\d+)([a-z]?)(:\d+\/\d+)?/)
if (!c) {
this.syntax(1, this.errs.bad_val, "%%break")
continue
}
if (c[2])
sq = c[2].charCodeAt(0) - 0x61
if (!c[3]) {
cfmt.break.push({ // on measure bar
m: c[1],
t: 0,
sq: sq})
continue
}
d = c[3].match(/:(\d+)\/(\d+)/)
if (!d || d[2] < 1) {
this.syntax(1, "Bad denominator in %%break")
continue
}
cfmt.break.push({
m: c[1],
t: d[1] * C.BLEN / d[2],
sq: sq})
}
}, // get_break()
// insert the EOLs of %%break
do_break: function() {
var i, m, t, brk, seq,
voice_tb = this.get_voice_tb()
v = this.get_cur_sy().top_voice,
s1 = voice_tb[v].sym,
cfmt = this.cfmt()
for (i = 0; i < cfmt.break.length; i++) {
brk = cfmt.break[i];
m = brk.m
for (s = s1; s; s = s.next) {
if (s.bar_num == m)
break
}
if (!s)
continue
if (brk.sq) {
seq = brk.sq
for (s = s.ts_next; s; s = s.ts_next) {
if (s.bar_num == m) {
if (--seq == 0)
break
}
}
if (!s)
continue
}
t = brk.t
if (t) {
t = s.time + t
for ( ; s; s = s.next) {
if (s.time >= t)
break
}
} else {
s = s.next
}
if (s)
s.soln = true
}
}, // do_break()
do_pscom: function (of, text) {
if (text.slice(0, 6) == "break ")
abc2svg.break.get_break.call(this, text)
else
of(text)
},
set_bar_num: function(of) {
of()
if (this.cfmt().break)
abc2svg.break.do_break.call(this)
},
set_hooks: function(abc) {
abc.do_pscom = abc2svg.break.do_pscom.bind(abc, abc.do_pscom);
abc.set_bar_num = abc2svg.break.set_bar_num.bind(abc, abc.set_bar_num)
}
} // break
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.break = abc2svg.break.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/grid-1.js 0000644 0004000 0004000 00000031740 14565315274 021600 0 ustar jv jv // abc2svg - grid.js - module to insert a chord grid before or after a tune
//
// Copyright (C) 2018-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%grid" appears in a ABC source.
//
// Parameters
// %%grid [include=] [nomusic] [norepeat] [repbrk] [parts]
// = number of columns (1: auto)
// > 0: above the tune, < 0: under the tune
// = comma separated list of (continuous) measure numbers
// 'nomusic' displays only the grid
// 'norepeat' omits the ':' indications
// 'repbrk' starts a new grid line on start/stop repeat
// 'parts' displays the parts on the left side of the grid
// %%gridfont font_name size (default: 'serif 16')
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.grid = {
pl: ' 1) {
abc.out_svg(abc2svg.grid.pl) // / line
abc.out_sxsy(x - wmx / 2, ' ', yl)
abc.out_svg('l' +
wmx.toFixed(1) + ' -' + hr.toFixed(1) +
'"/>\n')
if (cell[1]) {
abc.out_svg(abc2svg.grid.pl) // \ left line
abc.out_sxsy(x - wmx / 2, ' ', yl + hr)
abc.out_svg('l' +
(wmx / 2).toFixed(1) + ' ' + (hr / 2).toFixed(1) +
'"/>\n')
abc.set_font('gs') // small font
abc.xy_str(x - wmx / 3, y, cell[0])
abc.xy_str(x, y + hr / 3, cell[1])
} else {
abc.set_font('gs')
abc.xy_str(x - wmx * .2, y + hr / 4, cell[0])
}
if (cell.length >= 3) {
if (cell[3]) {
abc.out_svg(abc2svg.grid.pl) // \ right line
abc.out_sxsy(x, ' ', yl + hr / 2)
abc.out_svg('l' +
(wmx / 2).toFixed(1) + ' ' + (hr / 2).toFixed(1) +
'"/>\n')
abc.set_font('gs')
abc.xy_str(x, y - hr / 3, cell[2])
abc.xy_str(x + wmx / 3, y, cell[3])
} else {
abc.set_font('gs')
abc.xy_str(x + wmx * .2, y - hr / 4, cell[2])
}
}
} else {
abc.set_font('grid')
abc.xy_str(x, y, cell[0])
}
} // build_cell()
// draw the horizontal lines
function draw_hl() {
var i, i1, j, x,
y = -1
for (i = 0; i <= nr + 1; i++) {
j = 0
i1 = i > 0 ? i - 1 : 0
while (1) {
while (j <= nc && !d[i1][j])
j++
if (j > nc)
break
x = wmx * j
while (j <= nc && d[i1][j])
j++
if (i && i1 < nr) {
while (j <= nc && d[i1 + 1][j])
j++
}
abc.out_svg('M')
abc.out_sxsy(x0 + x, ' ', y)
abc.out_svg('h' + (wmx * j - x).toFixed(1)+ '\n')
}
y -= hr
}
} // draw_hl()
// draw the vertical lines
function draw_vl() {
var i, i1, j, y,
x = x0
for (i = 0; i <= nc; i++) {
j = 0
i1 = i > 0 ? i - 1 : 0
while (1) {
while (j <= nr && !d[j][i1])
j++
if (j > nr)
break
y = hr * j
while (j <= nr && d[j][i1])
j++
abc.out_svg('M')
abc.out_sxsy(x, ' ', -y - .5)
abc.out_svg('v' + (hr * j - y + 1).toFixed(1) + '\n')
}
x += wmx
}
} // draw_vl()
// ------- build_grid() -------
// set some chords in each cell
set_chords()
// build the content of the cells
if (!grid.ls) {
cells = chords
} else { // with list of mesure numbers
bar = bars;
bars = [ ]
ps = parts
parts = []
for (i = 0; i < grid.ls.length; i++) {
l = grid.ls[i]
if (l.indexOf('-') < 0)
l = [l, l]
else
l = l.split('-')
for (k = l[0] - 1; k < l[1]; k++) {
if (!chords[k]) // error
break
cells.push(chords[k]);
bars.push(bar[k])
parts.push(ps[k])
}
}
bars.push(bar[k]) // ending bar
}
// get the number of columns
if (nc < 0)
nc = -nc
if (nc < 3) // auto
nc = cells.length % 6 == 0 ? 6 : 8
if (nc > cells.length)
nc = cells.length;
hr = font.size * 2
if (wmx < hr * 1.5)
wmx = hr * 1.5 // cell width
x0 = img.width - img.lm - img.rm // staff width
w = wmx * nc
if (w > x0) {
nc /= 2;
w /= 2
}
// generate the cells
yl = -1
y = -1 + font.size * .6
nr = -1
x0 = (x0 / cfmt.scale - w) / 2
d = []
for (i = 0; i < cells.length; i++) {
if (i == 0
|| (grid.repbrk
&& (bars[i].slice(-1) == ':' || bars[i][0] == ':'))
|| parts[i]
|| k >= nc) {
y -= hr // new row
yl -= hr
x = x0 + wmx / 2
k = 0
nr++
d[nr] = []
}
d[nr][k] = 1
k++
build_cell(cells[i], x, y, yl, hr)
x += wmx
}
// draw the lines
abc.out_svg('\n')
// show the repeat signs and the parts
y = -1 + font.size * .7
x = x0
for (i = 0; i < bars.length; i++) {
bar = bars[i]
if (bar[0] == ':') {
abc.out_svg(':\n')
}
if (i == 0
|| (grid.repbrk
&& (bar.slice(-1) == ':' || bar[0] == ':'))
|| parts[i]
|| k >= nc) {
y -= hr; // new row
x = x0
k = 0
if (parts[i]) {
w = abc.strwh(parts[i])[0]
abc.out_svg('' +
parts[i] + '\n')
}
}
k++
if (bar.slice(-1) == ':') {
abc.out_svg(':\n')
}
x += wmx
}
abc.vskip(hr * (nr + 1) + 6)
} // build_grid()
// ----- block_gen() -----
var p_voice, n, font, f2
abc.set_page()
img = abc.get_img()
// set the text style
font = abc.get_font('grid')
if (font.class)
font.class += ' mid'
else
font.class = 'mid'
cls = abc.font_class(font)
// define a smaller font
abc.param_set_font("gsfont",
font.name + ' ' + (font.size * .7).toFixed(1))
f2 = cfmt.gsfont
if (font.weight)
f2.weight = font.weight
if (font.style)
f2.style = font.style
f2.class = font.class
abc.add_style("\n.mid {text-anchor:middle}")
// create the grid
abc.blk_flush()
build_grid(s, font)
abc.blk_flush()
}, // block_gen()
set_stems: function(of) {
var C = abc2svg.C,
abc = this,
tsfirst = abc.get_tsfirst(),
voice_tb = abc.get_voice_tb(),
cfmt = abc.cfmt(),
grid = cfmt.grid
// extract one of the chord symbols
// With chords as "[yyy];xxx"
// (!sel - default) returns "yyy" and (sel) returns "xxx"
function cs_filter(a_cs) {
var i, cs, t
for (i = 0; i < a_cs.length; i++) {
cs = a_cs[i]
if (cs.type != 'g')
continue
t = cs.text
if (cfmt.altchord) {
for (i++; i < a_cs.length; i++) {
cs = a_cs[i]
if (cs.type != 'g')
continue
t = cs.text
break
}
}
return t.replace(/\[|\]/g, '')
}
} // cs_filter()
function get_beat(s) {
var beat = C.BLEN / 4
if (!s.a_meter[0] || s.a_meter[0].top[0] == 'C'
|| !s.a_meter[0].bot)
return beat
beat = C.BLEN / s.a_meter[0].bot[0] |0
if (s.a_meter[0].bot[0] == 8
&& s.a_meter[0].top[0] % 3 == 0)
beat = C.BLEN / 8 * 3
return beat
} // get_beat()
// build the arrays of chords and bars
function build_chords(sb) { // block 'grid'
var s, i, w, bt, rep,
bars = [],
chords = [],
parts = [],
chord = [],
beat = get_beat(voice_tb[0].meter),
wm = voice_tb[0].meter.wmeasure,
cur_beat = 0,
beat_i = 0,
wmx = 0,
some_chord = 0
// scan the music symbols
bars.push('|')
for (s = tsfirst; s; s = s.ts_next) {
while (s.time > cur_beat) {
if (beat_i < 3) // only 2, 3 or 4 beats / measure...
beat_i++
cur_beat += beat
}
if (s.part)
parts[chords.length] = s.part.text
switch (s.type) {
case C.NOTE:
case C.REST:
case C.SPACE:
if (!s.a_gch || chord[beat_i])
break
bt = cs_filter(s.a_gch)
if (!bt)
break
w = abc.strwh(bt.replace(
/<[^>]+>/gm,''))
if (w[0] > wmx)
wmx = w[0]
bt = new String(bt)
bt.wh = w
chord[beat_i] = bt
break
case C.BAR:
i = s.bar_num // check if normal measure bar
bt = s.bar_type
while (s.ts_next && s.ts_next.time == s.time) {
if (s.ts_next.dur
|| s.ts_next.type == C.SPACE)
break
s = s.ts_next
if (s.type == C.METER) {
beat = get_beat(s)
wm = s.wmeasure
continue
}
if (s.type != C.BAR)
continue
if (s.bar_type[0] == ':'
&& bt[0] != ':')
bt = ':' + bt
if (s.bar_type.slice(-1) == ':'
&& bt.slice(-1) != ':')
bt += ':'
if (s.bar_num)
i = s.bar_num
if (s.part)
parts[chords.length + 1] = s.part.text
}
if (grid.norep)
bt = '|'
if (s.time < wm) { // if anacrusis
if (chord.length) {
chords.push(chord)
bars.push(bt)
} else {
bars[0] = bt
}
} else {
if (!i) // if not normal measure bar
break
chords.push(chord)
bars.push(bt)
}
if (chord.length)
some_chord++
chord = []
cur_beat = s.time // synchronize in case of error
beat_i = 0
if (bt.indexOf(':') >= 0)
rep = true // some repeat
break
case C.METER:
beat = get_beat(s)
wm = s.wmeasure
break
}
}
if (chord.length) {
bars.push('')
chords.push(chord)
}
if (!some_chord)
return // no chord in this tune
wmx += abc.strwh(rep ? ' ' : ' ')[0]
sb.chords = chords
sb.bars = bars
if (grid.parts && parts.length)
sb.parts = parts
sb.wmx = wmx
} // build_chords
// -------- set_stems --------
// create a specific block
if (grid) {
var C = abc2svg.C,
tsfirst = this.get_tsfirst(),
fmt = tsfirst.fmt,
voice_tb = this.get_voice_tb(),
p_v = voice_tb[this.get_top_v()],
s = {
type: C.BLOCK,
subtype: 'grid',
dur: 0,
time: 0,
p_v: p_v,
v: p_v.v,
st: p_v.st
}
if (!cfmt.gridfont)
abc.param_set_font("gridfont", "serif 16")
abc.set_font('grid')
build_chords(s) // build the array of the chords
// and insert it in the tune
if (!s.chords) { // if no chord
;
} else if (grid.nomusic) { // if just the grid
this.set_tsfirst(s)
} else if (grid.n < 0) { // below
for (var s2 = tsfirst; s2.ts_next; s2 = s2.ts_next)
;
s.time = s2.time
s.prev = p_v.last_sym.prev // before the last symbol
s.prev.next = s
s.next = p_v.last_sym
p_v.last_sym.prev = s
s.ts_prev = s2.ts_prev
s.ts_prev.ts_next = s
s.ts_next = s2
s2.ts_prev = s
if (s2.seqst) {
s.seqst = true
s2.seqst = false
}
} else { // above
s.next = p_v.sym
s.ts_next = tsfirst
tsfirst.ts_prev = s
this.set_tsfirst(s)
p_v.sym.prev = s
p_v.sym = s
}
s.fmt = s.prev ? s.prev.fmt : fmt
}
of()
}, // set_stems()
set_fmt: function(of, cmd, parm) {
if (cmd == "grid") {
if (!parm)
parm = "1";
parm = parm.split(/\s+/)
var grid = {n: Number(parm.shift())}
if (isNaN(grid.n)) {
if (parm.length) {
this.syntax(1, this.errs.bad_val, "%%grid")
return
}
grid.n = 1
}
while (parm.length) {
var item = parm.shift()
if (item == "norepeat")
grid.norep = true
else if (item == "nomusic")
grid.nomusic = true
else if (item == "parts")
grid.parts = true
else if (item == "repbrk")
grid.repbrk = true
else if (item.slice(0, 8) == "include=")
grid.ls = item.slice(8).split(',')
}
this.cfmt().grid = grid
return
}
of(cmd, parm)
},
set_hooks: function(abc) {
abc.block_gen = abc2svg.grid.block_gen.bind(abc, abc.block_gen)
abc.set_stems = abc2svg.grid.set_stems.bind(abc, abc.set_stems)
abc.set_format = abc2svg.grid.set_fmt.bind(abc, abc.set_format)
}
} // grid
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.grid = abc2svg.grid.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/grid3-1.js 0000644 0004000 0004000 00000024230 14565315274 021657 0 ustar jv jv // grid3.js - module to insert a manual chords
//
// Copyright (C) 2020-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%begingrid" appears in a ABC source.
//
// Parameters
// %%begingrid [ chord-define [ noprint ] ]
// list of chords, '-' or '.', measure bars ('|') and ':' for repeat
// %%endgrid
//
// %%gridfont font_name size (default: 'serif 16')
//
// When this command appears inside a tune and when 'chord-define' is present,
// the chords are used to define the chord symbols that are displayed
// above the staff system.
// When 'noprint' is also present, the grid itself is not displayed.
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.grid3 = {
// generate the grid
block_gen: function(of, s) {
if (s.subtype != "grid3") {
of(s)
return
}
this.set_page()
this.blk_flush()
var abc = this,
cfmt = abc.cfmt(),
img = abc.get_img(),
posy = abc.get_posy(),
txt = s.text,
font, font_cl, cls, w,
ln, i,
lines = [],
cl = [],
bars = [],
cells = [],
nr = 0, // number of rows
nc = 0, // number of columns
wc = 0 // width of a cell
// generate the grid
function build_grid() {
var i, k, l, line, bl, bar, w, hr, x0, x, y, yl, cl, cell,
lc = '',
path = '' +
cell[n] + '\n'
} // build_ch()
function build_cell(cell, x, y, yl, hr) {
var line
if (cell.length > 1) {
line = path +
(x - wc / 2).toFixed(1) + ' ' +
yl.toFixed(1) + 'l' +
wc.toFixed(1) + ' -' + hr.toFixed(1) +
'"/>\n'
if (cell[1]) {
line += path +
(x - wc / 2).toFixed(1) + ' ' +
(yl - hr).toFixed(1) + 'l' +
(wc / 2).toFixed(1) + ' ' + (hr / 2).toFixed(1) +
'"/>\n' +
build_ch(cls + sf, x - wc / 3, y, 0) +
build_ch(cls + sf, x, y - hr * .32, 1)
} else {
line += build_ch(cls + sf,
x - wc * .2, y - hr / 4, 0)
}
if (cell.length >= 3) {
if (cell[3]) {
line += path +
x.toFixed(1) + ' ' +
(yl - hr / 2).toFixed(1) + 'l' +
(wc / 2).toFixed(1) + ' ' + (hr / 2).toFixed(1) +
'"/>\n' +
build_ch(cls + sf, x, y + hr * .3, 2) +
build_ch(cls + sf, x + wc / 3, y, 3)
} else {
line += build_ch(cls + sf,
x + wc * .2, y + hr / 4, 2)
}
}
} else {
line = build_ch(cls, x, y, 0)
}
return line
} // build_cell()
// -- build_grid() --
// build the content of the cells
hr = font.size * 2.1
if (wc < hr * 1.4)
wc = hr * 1.4 // cell width
w = wc * nc // grid width
// generate the cells
yl = posy + 3
y = posy + 3 - font.size * .7
x0 = (img.width / cfmt.scale - w) / 2
while (1) {
cl = cells.shift()
if (!cl)
break
y += hr
yl += hr
x = x0 + wc / 2
while (1) {
cell = cl.shift()
if (!cell)
break
lc += build_cell(cell, x, y, yl, hr)
x += wc
}
}
// draw the lines
line = '\n'
// insert the cells
line += lc
// show the repeat signs
y = posy + 3 - font.size * .7
while (1) {
bl = bars.shift()
if (!bl)
break
x = x0
y += hr
while (1) {
bar = bl.shift()
if (!bar)
break
if (bar[0] == ':')
line += ':\n'
if (bar.slice(-1) == ':')
line += ':\n'
x += wc
}
}
abc.out_svg(line)
abc.vskip(hr * nr + 6)
} // build_grid()
// ----- block_gen ----
// set the text style
if (!cfmt.gridfont)
abc.param_set_font("gridfont", "serif 16")
font = abc.get_font('grid')
font_cl = abc.font_class(font)
cls = font_cl + " mid"
abc.add_style("\n.mid {text-anchor:middle}")
abc.set_font('grid') // (for strwh())
// scan the grid content
txt = txt.split('\n')
while (1) {
ln = txt.shift() // line
if (!ln)
break
// extract the bars and the chords
ln = ln.match(/[|:]+|[^|:\s]+/g)
bars[nr] = []
cells[nr] = []
i = -1
while (1) {
cl = ln.shift()
if (!cl)
break
if (cl.match(/[:|]+/)) {
bars[nr][++i] = cl
cells[nr][i] = []
} else {
if (!cells[nr][i]) { // if starting '|' is missing
bars[nr][++i] = '|'
cells[nr][i] = []
}
if (cl == '.' || cl == '-')
cl = ''
cells[nr][i].push(cl)
}
}
if (cells[nr][i].length)
bars[nr][++i] = '|' // missing ending bar
else
cells[nr][i] = null // keep just the measure bar
if (i > nc)
nc = i
i = 0
while (1) {
cl = cells[nr][i++]
if (!cl)
break
if (cl.length == 2) {
cl[2] = cl[1] // "| A B |" => "|A - B|"
cl[1] = ''
}
w = abc.strwh(cl.join(''))[0]
if (w > wc)
wc = w
}
nr++
}
wc += abc.strwh(' ')[0]
// build the grid and insert it in the music
build_grid()
abc.blk_flush()
}, // block_gen()
// handle %%begingrid
do_begin_end: function(of, type, opt, txt) {
var vt = this.get_voice_tb()
if (type != "grid") {
of(type, opt, txt)
return
}
// replace the accidentals
txt = txt.replace(/#|=|b/g,
function(x) {
switch (x) {
case '#': return "\u266f"
case '=': return "\u266e"
// case 'b': return "\u266d"
}
return "\u266d"
})
if (opt.indexOf("chord-define") >= 0)
this.cfmt().csdef = txt
if (opt.indexOf("noprint") < 0) {
type += "3"
if (this.parse.state >= 2) {
s = this.new_block(type)
s.text = txt
} else {
abc2svg.grid3.block_gen.call(this, null, {
subtype: type,
text: txt
})
}
}
}, // do_begin_end()
output_music: function(of) {
var ln, i, dt, ss, ntim, p_vc, s3,
C = abc2svg.C,
abc = this,
s = abc.get_tsfirst(),
vt = abc.get_voice_tb(),
t = abc.cfmt().csdef,
cs = []
// add a chord symbol
function add_cs(ss, ch) {
var s = { // invisible rest in the voice "grid3"
type: C.REST,
fname: ss.fname,
istart: ss.istart,
iend: ss.iend,
v: p_vc.v,
p_v: p_vc,
time: ntim,
st: 0,
fmt: ss.fmt,
dur: 0,
dur_orig: 0,
invis: true,
seqst: true,
nhd: 0,
notes: [{
pit: 18,
dur: 0
}]
}
if (ch != '.' && ch != '-') {
abc.set_a_gch(s, [{ // define the chord symbol
type: 'g',
text: ch,
otext: ch,
istart: ss.istart,
iend: ss.iend,
font: abc.get_font("gchord"),
pos: p_vc.pos.gch || C.SL_ABOVE
}])
}
// insert the rest
if (!p_vc.last_sym) {
p_vc.sym = s
} else {
s.prev = p_vc.last_sym
s.prev.next = s
}
p_vc.last_sym = s
s.ts_next = ss
s.ts_prev = ss.ts_prev
s.ts_prev.ts_next = s
ss.ts_prev = s
if (s.time == ss.time)
delete ss.seqst
return s
} // add_cs()
if (t) { // if chord-define
p_vc = {
id: "grid3",
v: vt.length,
time: 0,
pos: {
gst: 0
},
scale: 1,
st: 0,
second: true,
sls: []
}
vt.push(p_vc) // add the voice supporting the chord symbols
t = t.split('\n')
while (1) { // scan the grid content
ln = t.shift() // line
if (!ln)
break
ln = ln.trimLeft()
if (ln[0] == '|')
ln = ln.slice(ln[1] == ':' ? 2 : 1)
if (ln[ln.length - 1] != '|')
ln = ln + '|'
// extract the bars and the chords
ln = ln.match(/[|:]+|[^|:\s]+/g)
while (1) {
cl = ln.shift()
if (!cl)
break
if (cl[0] == '|' || cl[0] == ':') {
while (s && !s.dur)
s = s.ts_next
if (!s)
break
ss = s // first note/rest
while (s && !s.bar_type)
s = s.ts_next // end of measure
if (!cs.length)
cs = ['.']
ntim = ss.time
dt = (s.time - ntim) / cs.length
s3 = null
for (i = 0; i < cs.length; i++) {
if ((cs[i] != '.'
&& cs[i] != '-')
|| !s3) {
while (ss.time < ntim)
ss = ss.ts_next
s3 = add_cs(ss, cs[i])
}
s3.dur += dt
s3.dur_orig =
s3.notes[0].dur = s3.dur
ntim += dt
}
while (s && s.type != C.BAR)
s = s.ts_next
ss = {
type: C.BAR,
bar_type: "|",
fname: s.fname,
istart: s.istart,
iend: s.iend,
v: p_vc.v,
p_v: p_vc,
st: 0,
time: s.time,
dur: 0,
nhd: 0,
notes: [{
pit: 18
}],
next: s,
ts_next: s,
prev: s.prev,
ts_prev: s.ts_prev
}
if (!s)
break
ss.fmt = s.fmt
if (s.seqst) {
ss.seqst = true
delete s.seqst
}
ss.prev.next =
ss.ts_prev.ts_next =
s.prev =
s.ts_prev = ss
cs = []
} else {
cs.push(cl)
}
}
}
}
of()
}, // output_music()
set_hooks: function(abc) {
abc.block_gen = abc2svg.grid3.block_gen.bind(abc, abc.block_gen)
abc.do_begin_end = abc2svg.grid3.do_begin_end.bind(abc, abc.do_begin_end)
abc.output_music = abc2svg.grid3.output_music.bind(abc, abc.output_music)
}
} // grid3
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.grid3 = abc2svg.grid3.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/ambitus-1.js 0000644 0004000 0004000 00000007002 14565315274 022311 0 ustar jv jv // ambitus.js - module to insert an ambitus at start of a voice
//
// Copyright (C) 2018-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%ambitus" appears in a ABC source.
//
// Parameters
// %%ambitus 1
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.ambitus = {
do_ambitus: function() {
var C = abc2svg.C,
s, v, p_v, min, max,
voice_tb = this.get_voice_tb()
for (v = 0; v < voice_tb.length; v++) {
p_v = voice_tb[v];
if (p_v.second)
continue
min = 100;
max = -100
// search the top and bottom pitches
for (s = p_v.sym; s; s = s.next) {
if (s.type != C.NOTE)
continue
if (s.notes[s.nhd].pit > max)
max = s.notes[s.nhd].pit
if (s.notes[0].pit < min)
min = s.notes[0].pit
}
if (min == 100)
continue // no note
s = p_v.clef;
s.stem = 1;
s.head = C.FULL;
s.stemless = true;
s.nhd = 1;
s.notes = [{
dur: C.BLEN / 4,
pit: min,
shhd: 0
},{
dur: C.BLEN / 4,
pit: max,
shhd: 0
}]
}
}, // do_ambitus()
draw_symbols: function(of, p_voice) {
var staff_tb = this.get_staff_tb(),
s = p_voice.sym
if (s.clef_type != undefined && s.nhd > 0) {
s.x -= 26;
this.set_scale(s);
this.draw_note(s)
if (s.notes[1].pit - s.notes[0].pit > 4) {
this.xypath(s.x, 3 * (s.notes[1].pit - 18) + staff_tb[s.st].y);
this.out_svg('v' +
((s.notes[1].pit - s.notes[0].pit) * 3).toFixed(1) +
'" stroke-width=".6"/>\n');
}
s.x += 26;
s.nhd = 0
p_voice.clef.nhd = 0
}
of(p_voice)
}, // draw_symbols()
set_pitch: function(of, last_s) {
of(last_s)
if (!last_s && this.cfmt().ambitus)
abc2svg.ambitus.do_ambitus.call(this)
},
set_fmt: function(of, cmd, param) {
if (cmd == "ambitus") {
this.cfmt().ambitus = param
return
}
of(cmd, param)
},
set_glue: function(of, w) {
var v, s,
voice_tb = this.get_voice_tb()
of(w)
if (this.cfmt().ambitus) {
for (v = 0; v < voice_tb.length; v++) {
s = voice_tb[v].sym
while (!s.time && !s.clef_type)
s = s.next
if (s && s.nhd) { // draw the helper lines if any
s.x -= 26
this.draw_hl(s)
s.ymn = 3 * (s.notes[0].pit - 18) - 2
s.ymx = 3 * (s.notes[1].pit - 18) + 2
s.x += 26
}
}
}
}, // set_glue()
set_width: function(of, s) {
if (s.clef_type != undefined && s.nhd > 0) {
s.wl = 40;
s.wr = 12
} else {
of(s)
}
},
set_hooks: function(abc) {
abc.draw_symbols = abc2svg.ambitus.draw_symbols.bind(abc, abc.draw_symbols);
abc.set_pitch = abc2svg.ambitus.set_pitch.bind(abc, abc.set_pitch);
abc.set_format = abc2svg.ambitus.set_fmt.bind(abc, abc.set_format);
abc.set_sym_glue = abc2svg.ambitus.set_glue.bind(abc, abc.set_sym_glue)
abc.set_width = abc2svg.ambitus.set_width.bind(abc, abc.set_width)
}
} // ambitus
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.ambitus = abc2svg.ambitus.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/grid2-1.js 0000644 0004000 0004000 00000006374 14565315274 021667 0 ustar jv jv // grid2.js - module to replace a voice in the music by a chord grid
//
// Copyright (C) 2018-2023 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%grid2" appears in a ABC source.
//
// Parameters
// %%grid2 y
// This command may appear globally or in a voice.
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.grid2 = {
// function called before tune generation
do_grid: function() {
var s, v, p_v, ix, cs, c_a_cs, bt, gch,
voice_tb = this.get_voice_tb()
if (this.cfmt().grid2)
for (v = 0; v < voice_tb.length; v++)
if (voice_tb[v].grid2 == undefined)
voice_tb[v].grid2 = 1
for (v = 0; v < voice_tb.length; v++) {
p_v = voice_tb[v]
if (!p_v.grid2)
continue
curvoice = p_v
this.set_v_param("stafflines", "...") // no staff
p_v.clef.invis = true; // no clef
p_v.key.k_sf = 0 // no key signature
delete p_v.key.k_a_acc
p_v.staffnonote = 2 // draw the staff
for (s = p_v.sym; s; s = s.next) {
delete s.a_dd // no decoration
if (!s.dur) {
if (s.bar_type)
bt = s.time
continue
}
// set all notes
s.invis = true; // as invisible
delete s.sl1; // with no slur
delete s.ti1 // and no tie
delete s.ti2
for (ix = 0; ix <= s.nhd; ix++)
delete s.notes[ix].tie_ty
if (s.tf) // don't show the tuplets
s.tf[0] = 1
if (!s.a_gch) {
if (s.time == bt)
s.a_gch = [ this.clone(c_a_cs) ]
continue
}
for (ix = 0; ix < s.a_gch.length; ix++) {
gch = s.a_gch[ix]
if (gch.type == 'g') {
c_a_cs = gch
break
}
}
}
}
}, // do_grid()
// draw the chord symbol in the middle of the staff
draw_gchord: function(of, i, s, x, y) {
var an
if (s.p_v.grid2) {
this.set_dscale(s.st)
an = s.a_gch[i]
if (an.type == 'g') {
this.use_font(an.font)
this.set_font(an.font)
this.xy_str(s.x + an.x, 12 - an.font.size * .5,
an.text)
}
} else {
of(i, s, x, y)
}
},
output_music: function(of) {
abc2svg.grid2.do_grid.call(this);
of()
},
set_fmt: function(of, cmd, param) {
if (cmd == "grid2") {
var curvoice = this.get_curvoice(),
v = this.get_bool(param)
if (curvoice)
curvoice.grid2 = v
else
this.cfmt().grid2 = v
return
}
of(cmd, param)
},
set_hooks: function(abc) {
abc.draw_gchord = abc2svg.grid2.draw_gchord.bind(abc, abc.draw_gchord);
abc.output_music = abc2svg.grid2.output_music.bind(abc, abc.output_music);
abc.set_format = abc2svg.grid2.set_fmt.bind(abc, abc.set_format)
}
} // grid2
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.grid2 = abc2svg.grid2.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/jianpu-1.js 0000644 0004000 0004000 00000031155 14565315274 022141 0 ustar jv jv // jianpu.js - module to output jiănpŭ (简谱) music sheets
//
// Copyright (C) 2020-2024 Jean-Francois Moine
//
// This file is part of abc2svg.
//
// abc2svg is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg. If not, see .
//
// This module is loaded when "%%jianpu" appears in a ABC source.
//
// Parameters (none)
// %%jianpu 1
if (typeof abc2svg == "undefined")
var abc2svg = {}
abc2svg.jianpu = {
k_tb: [ "Cb", "Gb", "Db", "Ab", "Eb", "Bb", "F",
"C",
"G", "D", "A", "E", "B", "F#", "C#" ],
cde2fcg: new Int8Array([0, 2, 4, -1, 1, 3, 5]),
cgd2cde: new Int8Array([0, -4, -1, -5, -2, -6, -3,
0, -4, -1, -5, -2, -6, -3, 0]),
acc2: new Int8Array([-2, -1, 3, 1, 2]),
acc_tb: ["\ue264", "\ue260", , "\ue262", "\ue263", "\ue261"],
// don't calculate the beams
calc_beam: function(of, bm, s1) {
if (!s1.p_v.jianpu)
return of(bm, s1)
// return 0
}, // calc_beam()
// adjust some symbols before the generation
output_music: function(of) {
var p_v, v,
C = abc2svg.C,
abc = this,
cur_sy = abc.get_cur_sy(),
voice_tb = abc.get_voice_tb()
// handle the overlay voices
function ov_def(v) {
var s1, tim,
s = p_v.sym
while (s) {
s1 = s.ts_prev
if (!s.invis
&& s.dur
&& s1.v != v
&& s1.st == s.st // overlay start
&& s1.time == s.time) {
while (1) { // go back to the previous bar
if (!s1.prev
|| s1.prev.bar_type)
break
s1 = s1.prev
}
//add deco '{' on s1
while (!s1.bar_type) {
s1.dy = 14
s1.notes[0].pit = 30
if (s1.type == C.REST)
s1.combine = -1
s1 = s1.next
}
// add deco '}' on s1
while (1) {
s.dy = -14
s.notes[0].pit = 20
if (!s.next
|| s.next.bar_type
|| s.next.time >= s1.time)
break
s = s.next
}
}
s = s.next
}
} // ov_def()
// output the key and time signatures
function set_head() {
var v, p_v, mt, s2, sk, s,
tsfirst = abc.get_tsfirst()
// search a jianpu voice
for (v = 0; v < voice_tb.length; v++) {
p_v = voice_tb[v]
if (p_v.jianpu)
break
}
if (v >= voice_tb.length)
return
mt = p_v.meter.a_meter[0]
sk = p_v.key
s2 = p_v.sym
s = {
type: C.BLOCK,
subtype: "text",
time: s2.time,
dur: 0,
v: 0,
p_v: p_v,
st: 0,
fmt: s2.fmt,
seqst: true,
text: (sk.k_mode + 1) + "=" +
(abc2svg.jianpu.k_tb[sk.k_sf + 7 +
abc2svg.jianpu.cde2fcg[sk.k_mode]]),
font: abc.get_font("text")
}
if (mt)
s.text += ' ' + (mt.bot ? (mt.top + '/' + mt.bot) : mt.top)
// insert the block after the first %%staves
s2 = tsfirst
s.next = s2.next
if (s.next)
s.next.prev = s
s.prev = s2
s2.next = s
s.ts_next = s2.ts_next
s.ts_next.ts_prev = s
s.ts_prev = s2
s2.ts_next = s
} // set head()
// expand a long note/rest
function slice(s) {
var n, s2, s3,
jn = s.type == C.REST ? 0 : 8 // '0' or '-'
if (s.dur >= C.BLEN)
n = 3
else if (s.dur == C.BLEN / 2)
n = 1
else
n = 2
// duplicate the note/rest for display
s2 = abc.clone(s)
s2.invis =
s2.play = 1 //true
s2.next = s
if (s2.prev)
s2.prev.next = s2
s.prev = s2
s2.ts_next = s
if (s2.ts_prev)
s2.ts_prev.ts_next = s2
s.ts_prev = s2
delete s.seqst
s.noplay = 1 // true
// create the continuation symbols
// s.notes[0].dur =
s.dur = s.dur_orig = C.BLEN / 4
delete s.fmr
while (--n >= 0) {
s2 = {
type: C.REST,
v: s.v,
p_v: s.p_v,
st: s.st,
dur: C.BLEN / 4,
dur_orig: C.BLEN / 4,
fmt: s.fmt,
stem: 0,
multi: 0,
nhd: 0,
notes: [{
dur: s.dur,
pit: s.notes[0].pit,
jn: jn
}],
xmx: 0,
noplay: true,
time: s.time + C.BLEN / 4,
prev: s,
next: s.next
}
s.next = s2
if (s2.next)
s2.next.prev = s2
if (!s.ts_next) {
s.ts_next = s2
if (s.soln)
s.soln = false
s2.ts_prev = s
s2.seqst = true
} else {
for (s3 = s.ts_next; s3; s3 = s3.ts_next) {
if (s3.time < s2.time)
continue
if (s3.time > s2.time) {
s2.seqst = true
s3 = s3.ts_prev
}
s2.ts_next = s3.ts_next
s2.ts_prev = s3
if (s2.ts_next)
s2.ts_next.ts_prev = s2
s3.ts_next = s2
break
}
}
s = s2
}
} // slice()
function set_note(s, sf) {
var i, m, note, p, pit, a, nn,
delta = abc2svg.jianpu.cgd2cde[sf + 7] - 2
s.stem = -1
s.stemless = true
if (s.sls) {
for (i = 0; i < s.sls.length; i++)
s.sls[i].ty = C.SL_ABOVE
}
for (m = 0; m <= s.nhd; m++) {
note = s.notes[m]
// note head
p = note.pit
pit = p + delta
note.jn = ((pit + 77) % 7) + 1 // note number
// set a fixed offset to the note for the decorations
note.pit = 25 // "e"
note.jo = (pit / 7) | 0 // octave number
// accidentals
a = note.acc
if (a) {
nn = abc2svg.jianpu.cde2fcg[(p + 5 + 16 * 7) % 7] - sf
if (a != 3)
nn += a * 7
nn = ((((nn + 1 + 21) / 7) | 0) + 2 - 3 + 32 * 5) % 5
note.acc = abc2svg.jianpu.acc2[nn]
}
// set the slurs and ties up
if (note.sls) {
for (i = 0; i < note.sls.length; i++)
note.sls[i].ty = C.SL_ABOVE
}
if (note.tie_ty)
note.tie_ty = C.SL_ABOVE
}
// change the long notes
if (s.dur >= C.BLEN / 2
&& !s.invis)
slice(s)
// replace the staccato dot
if (s.a_dd) {
for (i = 0; i < s.a_dd.length; i++) {
if (s.a_dd[i].glyph == "stc") {
abc.deco_put("gstc", s)
s.a_dd[i] = s.a_dd.pop()
}
}
}
} // set_note()
function set_sym(p_v) {
var s, g,
sf = p_v.key.k_sf
delete p_v.key.k_a_acc // no accidental
// no (visible) clef
s = p_v.clef
s.invis = true
s.clef_type = 't'
s.clef_line = 2
// scan the voice
for (s = p_v.sym; s; s = s.next) {
s.st = p_v.st
switch (s.type) {
case C.CLEF:
s.invis = true
s.clef_type = 't'
s.clef_line = 2
// continue
default:
continue
case C.KEY:
sf = s.k_sf
s.a_gch = [{
type: '@',
font: abc.get_font("annotation"),
wh: [10, 10],
x: -5,
y: 26,
text: (s.k_mode + 1) + "=" +
(abc2svg.jianpu.k_tb[sf + 7 +
abc2svg.jianpu.cde2fcg[s.k_mode]])
}]
continue
case C.REST:
if (s.notes[0].jn)
continue
s.notes[0].jn = 0
if (s.dur >= C.BLEN / 2
&& !s.invis)
slice(s)
continue
case C.NOTE: // change the notes
set_note(s, sf)
break
case C.GRACE:
for (g = s.extra; g; g = g.next)
set_note(g, sf)
break
}
}
} // set_sym()
// -- output_music --
set_head()
for (v = 0; v < voice_tb.length; v++) {
p_v = voice_tb[v]
if (p_v.jianpu) {
set_sym(p_v)
if (p_v.second)
ov_def(v)
}
}
of()
}, // output_music()
draw_symbols: function(of, p_voice) {
var s, s2, nl, y,
C = abc2svg.C,
abc = this,
dot = "\ue1e7",
anno_a = abc.anno_a,
staff_tb = abc.get_staff_tb(),
out_svg = abc.out_svg,
out_sxsy = abc.out_sxsy,
xypath = abc.xypath
if (!p_voice.jianpu) {
of(p_voice)
return
}
// draw the duration lines under the notes
function draw_dur(s1, x, y, s2, n, nl) {
var s, s3,
sc = s1.grace ? .5 : 1
xypath(x - 3, y + 5)
out_svg('h' + ((s2.x - s1.x) / sc + 8).toFixed(1) + '"/>\n') // "
y -= 2.5
while (++n <= nl) {
s = s1
while (1) {
if (s.nflags && s.nflags >= n) {
s3 = s
while (s != s2) {
if (s.next.beam_br1
|| (s.next.beam_br2 && n > 2)
|| (s.next.nflags
&& s.next.nflags < n))
break
s = s.next
}
draw_dur(s3, s3.x, y, s, n, nl)
}
if (s == s2)
break
s = s.next
}
}
} // draw_dur()
function out_mus(x, y, p) {
out_svg('' + p + '\n')
} // out_mus()
function out_txt(x, y, p) {
out_svg('' + p + '\n')
} // out_txt()
function draw_hd(s, x, y) {
var m, note, ym
for (m = 0; m <= s.nhd; m++) {
note = s.notes[m]
out_txt(x - 3.5, y + 8, "01234567-"[note.jn])
if (note.acc)
out_mus(x - 12, y + 12,
abc2svg.jianpu.acc_tb[note.acc + 2])
if (note.jo > 2) {
out_mus(x - 1, y + 22, dot)
if (note.jo > 3) {
y += 3
out_mus(x - 1, y + 22, dot)
}
} else if (note.jo < 2) {
ym = y + 4
if (m == 0 && s.nflags > 0)
ym -= 2.5 * s.nflags
out_mus(x - 1, ym, dot)
if (note.jo < 1) {
ym -= 3
out_mus(x - 1, ym, dot)
}
}
y += 20
}
} // draw_hd()
function draw_note(s) {
var sc = 1,
x = s.x,
y = staff_tb[s.st].y
if (s.dy)
y += s.dy // voice overlay
if (s.grace) {
out_svg('\n')
abc.stv_g().g++ // in container
x = 0
y = 0
sc = .5
}
draw_hd(s, x, y)
if (s.nflags >= 0 && s.dots)
out_mus(x + 8 * sc, y + 13 * sc, dot)
if (s.grace) {
out_svg('\n')
abc.stv_g().g--
}
anno_a.push(s)
} // draw_note()
// -- draw_symbols --
for (s = p_voice.sym; s; s = s.next) {
if (s.invis)
continue
switch (s.type) {
case C.METER:
abc.draw_meter(s)
break
case C.NOTE:
case C.REST:
draw_note(s)
break
case C.GRACE:
for (g = s.extra; g; g = g.next)
draw_note(g)
break
}
}
// draw the (pseudo) beams
for (s = p_voice.sym; s; s = s.next) {
if (s.invis)
continue
switch (s.type) {
case C.NOTE:
case C.REST:
nl = s.nflags
if (nl <= 0)
continue
y = staff_tb[s.st].y
s2 = s
while (s.next && s.next.nflags > 0) {
s = s.next
if (s.nflags > nl)
nl = s.nflags
if (s.beam_end)
break
}
if (s.dy)
y += s.dy
draw_dur(s2, s2.x, y, s, 1, nl)
break
}
}
}, // draw_symbols()
// set some parameters
set_fmt: function(of, cmd, param) {
if (cmd == "jianpu") {
this.set_v_param("jianpu", param)
return
}
of(cmd, param)
}, // set_fmt()
// adjust some values
set_pitch: function(of, last_s) {
of(last_s)
if (!last_s)
return // first time
var C = abc2svg.C
for (var s = this.get_tsfirst(); s; s = s.ts_next) {
if (!s.p_v.jianpu)
continue
switch (s.type) {
// draw the key signature only in the first voice
// and not at start of the staff
case C.KEY:
if (s.prev.type == C.CLEF
|| s.v != 0)
s.a_gch = null
break
// adjust the vertical spacing above the note heads
case C.NOTE:
s.ymx = 20 * s.nhd + 22
if (s.notes[s.nhd].jo > 2) {
s.ymx += 3
if (s.notes[s.nhd].jo > 3)
s.ymx += 2
}
s.ymn = 0 // bottom of line
break
}
}
}, // set_pitch()
set_vp: function(of, a) {
var i,
p_v = this.get_curvoice()
for (i = 0; i < a.length; i++) {
if (a[i] == "jianpu=") {
p_v.jianpu = this.get_bool(a[++i])
if (p_v.jianpu)
this.set_vp([
"staffsep=", "20",
"sysstaffsep=", "14",
"stafflines=", "...",
"tuplets=", "0 1 0 1"
// [auto, slur, number, above]
])
break
}
}
of(a)
}, // set_vp()
// set the width of some symbols
set_width: function(of, s) {
of(s)
if (!s.p_v // (if voice_tb[v].clef/key/meter)
|| !s.p_v.jianpu)
return
var w, m, note,
C = abc2svg.C
switch (s.type) {
case C.CLEF:
case C.KEY:
// case C.METER:
s.wl = s.wr = .1 // (must not be null)
break
case C.NOTE:
for (m = 0; m <= s.nhd; m++) {
note = s.notes[m]
if (note.acc && s.wl < 14) // room for the accidental
s.wl = 14
}
break
}
}, // set_width()
set_hooks: function(abc) {
abc.calculate_beam = abc2svg.jianpu.calc_beam.bind(abc, abc.calculate_beam)
abc.draw_symbols = abc2svg.jianpu.draw_symbols.bind(abc, abc.draw_symbols)
abc.output_music = abc2svg.jianpu.output_music.bind(abc, abc.output_music)
abc.set_format = abc2svg.jianpu.set_fmt.bind(abc, abc.set_format)
abc.set_pitch = abc2svg.jianpu.set_pitch.bind(abc, abc.set_pitch)
abc.set_vp = abc2svg.jianpu.set_vp.bind(abc, abc.set_vp)
abc.set_width = abc2svg.jianpu.set_width.bind(abc, abc.set_width)
// big staccato dot
abc.get_glyphs().gstc = ''
abc.get_decos().gstc = "0 gstc 5 1 1"
abc.add_style("\n.fj{font:15px sans-serif}")
} // set_hooks()
} // jianpu
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.jianpu = abc2svg.jianpu.set_hooks
App-Music-ChordPro-6.050.7/lib/ChordPro/res/abc/abc2svg/abc2svg-1.js 0000644 0004000 0004000 00001771222 14565315274 022211 0 ustar jv jv // abc2svg - abc2svg.js
//
// Copyright (C) 2014-2022 Jean-Francois Moine
//
// This file is part of abc2svg-core.
//
// abc2svg-core is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg-core is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg-core. If not, see .
// define the abc2svg object is not yet done
if (typeof abc2svg == "undefined")
var abc2svg = {};
// constants
abc2svg.C = {
BLEN: 1536,
// symbol types
BAR: 0,
CLEF: 1,
CUSTOS: 2,
SM: 3, // sequence marker (transient)
GRACE: 4,
KEY: 5,
METER: 6,
MREST: 7,
NOTE: 8,
PART: 9,
REST: 10,
SPACE: 11,
STAVES: 12,
STBRK: 13,
TEMPO: 14,
BLOCK: 16,
REMARK: 17,
// note heads
FULL: 0,
EMPTY: 1,
OVAL: 2,
OVALBARS: 3,
SQUARE: 4,
// position types
SL_ABOVE: 0x01, // position (3 bits)
SL_BELOW: 0x02,
SL_AUTO: 0x03,
SL_HIDDEN: 0x04,
SL_DOTTED: 0x08, // modifiers
SL_ALI_MSK: 0x70, // align
SL_ALIGN: 0x10,
SL_CENTER: 0x20,
SL_CLOSE: 0x40
};
// !! tied to the symbol types in abc2svg.js !!
abc2svg.sym_name = ['bar', 'clef', 'custos', 'smark', 'grace',
'key', 'meter', 'Zrest', 'note', 'part',
'rest', 'yspace', 'staves', 'Break', 'tempo',
'', 'block', 'remark']
// key table - index = number of accidentals + 7
abc2svg.keys = [
new Int8Array([-1,-1,-1,-1,-1,-1,-1 ]), // 7 flat signs
new Int8Array([-1,-1,-1, 0,-1,-1,-1 ]), // 6 flat signs
new Int8Array([ 0,-1,-1, 0,-1,-1,-1 ]), // 5 flat signs
new Int8Array([ 0,-1,-1, 0, 0,-1,-1 ]), // 4 flat signs
new Int8Array([ 0, 0,-1, 0, 0,-1,-1 ]), // 3 flat signs
new Int8Array([ 0, 0,-1, 0, 0, 0,-1 ]), // 2 flat signs
new Int8Array([ 0, 0, 0, 0, 0, 0,-1 ]), // 1 flat signs
new Int8Array([ 0, 0, 0, 0, 0, 0, 0 ]), // no accidental
new Int8Array([ 0, 0, 0, 1, 0, 0, 0 ]), // 1 sharp signs
new Int8Array([ 1, 0, 0, 1, 0, 0, 0 ]), // 2 sharp signs
new Int8Array([ 1, 0, 0, 1, 1, 0, 0 ]), // 3 sharp signs
new Int8Array([ 1, 1, 0, 1, 1, 0, 0 ]), // 4 sharp signs
new Int8Array([ 1, 1, 0, 1, 1, 1, 0 ]), // 5 sharp signs
new Int8Array([ 1, 1, 1, 1, 1, 1, 0 ]), // 6 sharp signs
new Int8Array([ 1, 1, 1, 1, 1, 1, 1 ]) // 7 sharp signs
]
// base-40 representation of musical pitch
// (http://www.ccarh.org/publications/reprints/base40/)
abc2svg.p_b40 = new Int8Array( // staff pitch to base-40
// C D E F G A B
[ 2, 8, 14, 19, 25, 31, 37 ])
abc2svg.b40_p = new Int8Array( // base-40 to staff pitch
// C D
[0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1,
// E F G
2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4,
// A B
5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6 ])
abc2svg.b40_a = new Int8Array( // base-40 to accidental
// C D
[-2, -1, 0, 1, 2, -3, -2, -1, 0, 1, 2, -3,
// E F G
-2, -1, 0, 1, 2, -2, -1, 0, 1, 2, -3, -2, -1, 0, 1, 2, -3,
// A B
-2, -1, 0, 1, 2, -3, -2, -1, 0, 1, 2 ])
abc2svg.b40_m = new Int8Array( // base-40 to midi
// C D
[-2, -1, 0, 1, 2, 0, 0, 1, 2, 3, 4, 0,
// E F G
2, 3, 4, 5, 6, 3, 4, 5, 6, 7, 0, 5, 6, 7, 8, 9, 0,
// A B
7, 8, 9, 10, 11, 0, 9, 10, 11, 12, 13 ])
abc2svg.b40l5 = new Int8Array([ // base-40 to line of fifth
// C D
-14, -7, 0, 7, 14, 0,-12, -5, 2, 9, 16, 0,
// E F G
-10, -3, 4, 11, 18,-15, -8, -1, 6, 13, 0,-13, -6, 1, 8, 15, 0,
// A B
-11, -4, 3, 10, 17, 0, -9, -2, 5, 12, 19 ])
abc2svg.isb40 = new Int8Array( // interval with sharp to base-40 interval
[0, 1, 6,7,12,17,18,23,24,29,30,35])
abc2svg.pab40 = function(p, a) {
p += 19 // staff pitch from C-1
var b40 = ((p / 7) | 0) * 40 + abc2svg.p_b40[p % 7]
if (a && a != 3) // if some accidental, but not natural
b40 += a
return b40
} // pit2b40()
abc2svg.b40p = function(b) {
return ((b / 40) | 0) * 7 + abc2svg.b40_p[b % 40] - 19
} // b40p()
abc2svg.b40a = function(b) {
return abc2svg.b40_a[b % 40]
} // b40a()
abc2svg.b40m = function(b) {
return ((b / 40) | 0) * 12 + abc2svg.b40_m[b % 40]
} // b40m()
// chord table
// This table is used in various modules
// to convert the types of chord symbols to a minimum set.
// More chord types may be added by the command %%chordalias.
abc2svg.ch_alias = {
"maj": "",
"min": "m",
"-": "m",
"°": "dim",
"+": "aug",
"+5": "aug",
"maj7": "M7",
"Δ7": "M7",
"Δ": "M7",
"min7": "m7",
"-7": "m7",
"ø7": "m7b5",
"°7": "dim7",
"min+7": "m+7",
"aug7": "+7",
"7+5": "+7",
"7#5": "+7",
"sus": "sus4",
"7sus": "7sus4"
} // ch_alias
// global fonts
abc2svg.font_tb = [] // fonts - index = font.fid
abc2svg.font_st = {} // font style => font_tb index for incomplete user fonts
// font weight
// reference:
// https://developer.mozilla.org/en-US/docs/Web/CSS/font-weight
abc2svg.ft_w = {
thin: 100,
extralight: 200,
light: 300,
regular: 400,
medium: 500,
semi: 600,
demi: 600,
semibold: 600,
demibold: 600,
bold: 700,
extrabold: 800,
ultrabold: 800,
black: 900,
heavy: 900
}
abc2svg.ft_re = new RegExp('\
-?Thin|-?Extra Light|-?Light|-?Regular|-?Medium|\
-?[DS]emi|-?[DS]emi[ -]?Bold|\
-?Bold|-?Extra[ -]?Bold|-?Ultra[ -]?Bold|-?Black|-?Heavy/',
"i")
// simplify a rational number n/d
abc2svg.rat = function(n, d) {
var a, t,
n0 = 0,
d1 = 0,
n1 = 1,
d0 = 1
while (1) {
if (d == 0)
break
t = d
a = (n / d) | 0
d = n % d
n = t
t = n0 + a * n1
n0 = n1
n1 = t
t = d0 + a * d1
d0 = d1
d1 = t
}
return [n1, d1]
} // rat()
// compare pitches
// This function is used to sort the note pitches
abc2svg.pitcmp = function(n1, n2) { return n1.pit - n2.pit }
// start of the Abc object
abc2svg.Abc = function(user) {
"use strict";
// constants
var C = abc2svg.C;
// mask some unsafe functions
var require = empty_function,
system = empty_function,
write = empty_function,
XMLHttpRequest = empty_function,
std = null,
os = null
// -- constants --
// staff system
var OPEN_BRACE = 0x01,
CLOSE_BRACE = 0x02,
OPEN_BRACKET = 0x04,
CLOSE_BRACKET = 0x08,
OPEN_PARENTH = 0x10,
CLOSE_PARENTH = 0x20,
STOP_BAR = 0x40,
FL_VOICE = 0x80,
OPEN_BRACE2 = 0x0100,
CLOSE_BRACE2 = 0x0200,
OPEN_BRACKET2 = 0x0400,
CLOSE_BRACKET2 = 0x0800,
MASTER_VOICE = 0x1000,
IN = 96, // resolution 96 PPI
CM = 37.8, // 1 inch = 2.54 centimeter
YSTEP // number of steps for y offsets
// error texts
var errs = {
bad_char: "Bad character '$1'",
bad_grace: "Bad character in grace note sequence",
bad_transp: "Bad transpose value",
bad_val: "Bad value in $1",
bar_grace: "Cannot have a bar in grace notes",
ignored: "$1: inside tune - ignored",
misplaced: "Misplaced '$1' in %%score",
must_note: "!$1! must be on a note",
must_note_rest: "!$1! must be on a note or a rest",
nonote_vo: "No note in voice overlay",
not_ascii: "Not an ASCII character",
not_enough_n: 'Not enough notes/rests for %%repeat',
not_enough_m: 'Not enough measures for %%repeat',
not_enough_p: "Not enough parameters in %%map",
not_in_tune: "Cannot have '$1' inside a tune",
notransp: "Cannot transpose with a temperament"
}
var self = this, // needed for modules
glovar = {
meter: {
type: C.METER, // meter in tune header
wmeasure: 1, // no M:
a_meter: [] // default: none
},
},
info = {}, // information fields
parse = {
ctx: {},
prefix: '%',
state: 0,
ottava: [],
line: new scanBuf
},
tunes = [], // first time symbol and voice array per tune for playing
psvg // PostScript
// utilities
function clone(obj, lvl) {
if (!obj)
return obj
var tmp = new obj.constructor
for (var k in obj)
if (obj.hasOwnProperty(k)) {
if (lvl && typeof obj[k] == "object")
tmp[k] = clone(obj[k], lvl - 1)
else
tmp[k] = obj[k]
}
return tmp
}
function errbld(sev, txt, fn, idx) {
var i, j, l, c, h
if (user.errbld) {
switch (sev) {
case 0: sev = "warn"; break
case 1: sev = "error"; break
default: sev= "fatal"; break
}
user.errbld(sev, txt, fn, idx)
return
}
if (idx != undefined && idx >= 0) {
i = l = 0
while (1) {
j = parse.file.indexOf('\n', i)
if (j < 0 || j > idx)
break
l++;
i = j + 1
}
c = idx - i
}
h = ""
if (fn) {
h = fn
if (l)
h += ":" + (l + 1) + ":" + (c + 1);
h += " "
}
switch (sev) {
case 0: h += "Warning: "; break
case 1: h += "Error: "; break
default: h += "Internal bug: "; break
}
user.errmsg(h + txt, l, c)
}
function error(sev, s, msg, a1, a2, a3, a4) {
var i, j, regex, tmp
if (!sev && cfmt.quiet)
return
if (s) {
if (s.err) // only one error message per symbol
return
s.err = true
}
if (user.textrans) {
tmp = user.textrans[msg]
if (tmp)
msg = tmp
}
if (arguments.length > 3)
msg = msg.replace(/\$./g, function(a) {
switch (a) {
case '$1': return a1
case '$2': return a2
case '$3': return a3
default : return a4
}
})
if (s && s.fname)
errbld(sev, msg, s.fname, s.istart)
else
errbld(sev, msg)
}
// scanning functions
function scanBuf() {
// this.buffer = buffer
this.index = 0;
scanBuf.prototype.char = function() {
return this.buffer[this.index]
}
scanBuf.prototype.next_char = function() {
return this.buffer[++this.index]
}
scanBuf.prototype.get_int = function() {
var val = 0,
c = this.buffer[this.index]
while (c >= '0' && c <= '9') {
val = val * 10 + Number(c);
c = this.next_char()
}
return val
}
}
function syntax(sev, msg, a1, a2, a3, a4) {
var s = {
fname: parse.fname,
istart: parse.istart + parse.line.index
}
error(sev, s, msg, a1, a2, a3, a4)
}
// inject javascript code
function js_inject(js) {
eval('"use strict";\n' + js)
}
// abc2svg - deco.js - decorations
//
// Copyright (C) 2014-2024 Jean-Francois Moine
//
// This file is part of abc2svg-core.
//
// abc2svg-core is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg-core is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg-core. If not, see .
// Decoration objects
// dd { // decoration definition (static)
// dd_en, // definition of the ending decoration
// dd_st, // definition of the starting decoration
// func, // function
// glyph, // glyph
// h, // height / ascent
// hd, // descent
// inv, // inverted glyph
// name, // name
// str, // string
// wl, // left width
// wr, // right width
// }
// de { // decoration elements (in an array - one list per music line)
// dd, // definition of the decoration
// defl { // flags
// noen, // no end of this decoration
// nost, // no start of this decoration
// },
// has_val, // defined value
// ix, // index of the decoration in the 'de' list
// lden, // end of a long decoration
// ldst, // start of a long decoration if true
// m, // note index when note decoration
// prev, // previous decoration (hack for 'tr~~~~~')
// s, // symbol
// start, // start of the decoration (in the ending element)
// up, // above the symbol
// val, // value
// x, // x offset
// y, // y offset
// }
var dd_tb = {}, // definition of the decorations
a_de, // array of the decoration elements
cross // cross voice decorations
// decorations - populate with standard decorations
var decos = {
dot: "0 stc 6 1.5 1",
tenuto: "0 emb 6 4 3",
slide: "1 sld 3 7 1",
arpeggio: "2 arp 12 10 3",
roll: "3 roll 5,4 5 6",
lowermordent: "3 lmrd 6,5 4 6",
uppermordent: "3 umrd 6,5 4 6",
trill: "3 trl 14 5 8",
upbow: "3 upb 10,2 3 7",
downbow: "3 dnb 9 4 6",
gmark: "3 grm 7 4 6",
wedge: "0 wedge 8 1.5 1", // (staccatissimo or spiccato)
longphrase: "5 lphr 0 1 16",
mediumphrase: "5 mphr 0 1 16",
shortphrase: "5 sphr 0 1 16",
turnx: "3 turnx 7,2.5 5 6",
invertedturn: "3 turn 7,2 5 6",
"0": "3 fng 5,5 3 3 0",
"1": "3 fng 5,5 3 3 1",
"2": "3 fng 5,5 3 3 2",
"3": "3 fng 5,5 3 3 3",
"4": "3 fng 5,5 3 3 4",
"5": "3 fng 5,5 3 3 5",
plus: "3 dplus 8,2 2 4",
"+": "3 dplus 8,2 2 4",
">": "5 accent 3.5,3.5 4 4",
accent: "5 accent 3.5,3.5 4 4",
emphasis: "5 accent 3.5,3.5 4 4",
marcato: "3 marcato 9 5 5",
"^": "3 marcato 9 5 5",
mordent: "3 lmrd 6,5 4 6",
open: "3 opend 8 3 3",
snap: "3 snap 10 3 3",
thumb: "3 thumb 10 3 3",
turn: "3 turn 7,2.5 5 6",
"trill(": "5 ltr 8 0 0",
"trill)": "5 ltr 8 0 0",
"8va(": "5 8va 12 6 6",
"8va)": "5 8va 12 6 6",
"8vb(": "4 8vb 10,5 6 6",
"8vb)": "4 8vb 10,5 6 6",
"15ma(": "5 15ma 12 9 9",
"15ma)": "5 15ma 12 9 9",
"15mb(": "4 15mb 12 9 9",
"15mb)": "4 15mb 12 9 9",
breath: "5 brth 0 1 16",
caesura: "5 caes 0 1 20",
short: "5 short 0 1 16",
tick: "5 tick 0 1 16",
coda: "5 coda 22,5 10 10",
dacapo: "5 dacs 16 20 20 Da Capo",
dacoda: "5 dacs 16 20 20 Da Coda",
"D.C.": "5 dcap 16,3 6 6",
"D.S.": "5 dsgn 16,3 6 6",
"D.C.alcoda": "5 dacs 16 32 32 D.C. al Coda",
"D.S.alcoda": "5 dacs 16 32 32 D.S. al Coda",
"D.C.alfine": "5 dacs 16 32 32 D.C. al Fine",
"D.S.alfine": "5 dacs 16 32 32 D.S. al Fine",
fermata: "5 hld 12 7.5 7.5",
fine: "5 dacs 16 12 12 Fine",
invertedfermata: "7 hld 12 8 8",
segno: "5 sgno 22,2 5 5",
f: "6 f 12,5 3 4",
ff: "6 ff 12,5 8 5",
fff: "6 fff 12,5 11 9",
ffff: "6 ffff 12,5 15 12",
mf: "6 mf 12,5 8 10",
mp: "6 mp 12,5 9 10",
p: "6 p 12,5 3 6",
pp: "6 pp 12,5 8 9",
ppp: "6 ppp 12,5 14 11",
pppp: "6 pppp 12,5 14 17",
pralltriller: "3 umrd 6,5 4 6",
sfz: "6 sfz 12,5 9 9",
ped: "6 ped 9 6 10",
"ped-up": "6 pedoff 9 4 4",
"ped(": "7 lped 14 1 1",
"ped)": "7 lped 14 1 1",
"crescendo(": "6 cresc 15,2 0 0",
"crescendo)": "6 cresc 15,2 0 0",
"<(": "6 cresc 15,2 0 0",
"<)": "6 cresc 15,2 0 0",
"diminuendo(": "6 dim 15,2 0 0",
"diminuendo)": "6 dim 15,2 0 0",
">(": "6 dim 15,2 0 0",
">)": "6 dim 15,2 0 0",
"-(": "8 gliss 0 0 0",
"-)": "8 gliss 0 0 0",
"~(": "8 glisq 0 0 0",
"~)": "8 glisq 0 0 0",
// internal
// color: "10 0 0 0 0",
invisible: "32 0 0 0 0",
beamon: "33 0 0 0 0",
trem1: "34 0 0 0 0",
trem2: "34 0 0 0 0",
trem3: "34 0 0 0 0",
trem4: "34 0 0 0 0",
xstem: "35 0 0 0 0",
beambr1: "36 0 0 0 0",
beambr2: "36 0 0 0 0",
rbstop: "37 0 0 0 0",
"/": "38 0 0 6 6",
"//": "38 0 0 6 6",
"///": "38 0 0 6 6",
"beam-accel": "39 0 0 0 0",
"beam-rall": "39 0 0 0 0",
stemless: "40 0 0 0 0",
rbend: "41 0 0 0 0",
editorial: "42 0 0 0 0",
"sacc-1": "3 sacc-1 6,4 4 4",
sacc3: "3 sacc3 6,5 4 4",
sacc1: "3 sacc1 6,4 4 4",
courtesy: "43 0 0 0 0",
"cacc-1": "3 cacc-1 0 0 0",
cacc3: "3 cacc3 0 0 0",
cacc1: "3 cacc1 0 0 0",
"tie(": "44 0 0 0 0",
"tie)": "44 0 0 0 0"},
// types of decoration per function
f_near = [
d_near, // 0 - near the note
d_slide, // 1
d_arp // 2
],
f_note = [
null, null, null,
d_upstaff, // 3 - tied to note
d_upstaff // 4 (below the staff)
],
f_staff = [
null, null, null, null, null,
d_upstaff, // 5 (above the staff)
d_upstaff, // 6 - tied to staff (dynamic marks)
d_upstaff // 7 (below the staff)
]
/* -- get the max/min vertical offset -- */
function y_get(st, up, x, w) {
var y,
p_staff = staff_tb[st],
i = (x / 2) | 0,
j = ((x + w) / 2) | 0
if (i < 0)
i = 0
if (j >= YSTEP) {
j = YSTEP - 1
if (i > j)
i = j
}
if (up) {
y = p_staff.top[i++]
while (i <= j) {
if (y < p_staff.top[i])
y = p_staff.top[i];
i++
}
} else {
y = p_staff.bot[i++]
while (i <= j) {
if (y > p_staff.bot[i])
y = p_staff.bot[i];
i++
}
}
return y
}
/* -- adjust the vertical offsets -- */
function y_set(st, up, x, w, y) {
var p_staff = staff_tb[st],
i = (x / 2) | 0,
j = ((x + w) / 2) | 0
/* (may occur when annotation on 'y' at start of an empty staff) */
if (i < 0)
i = 0
if (j >= YSTEP) {
j = YSTEP - 1
if (i > j)
i = j
}
if (up) {
while (i <= j) {
if (p_staff.top[i] < y)
p_staff.top[i] = y;
i++
}
} else {
while (i <= j) {
if (p_staff.bot[i] > y)
p_staff.bot[i] = y;
i++
}
}
}
// get the staff position
// - of the ornements
function up3(s, pos) {
switch (pos & 0x07) {
case C.SL_ABOVE:
return 1 // true
case C.SL_BELOW:
return 0 // false
}
// if (s.multi)
// return s.multi > 0
// return 1 // true
return !s.second
} // up3()
// - of the dynamic and volume marks
function up6(s, pos) {
switch (pos & 0x07) {
case C.SL_ABOVE:
return true
case C.SL_BELOW:
return false
}
if (s.multi)
return s.multi > 0
if (!s.p_v.have_ly)
return false
/* above if the lyrics are below the staff */
return (s.pos.voc & 0x07) != C.SL_ABOVE
}
/* -- drawing functions -- */
/* 2: special case for arpeggio */
function d_arp(de) {
var m, h, dx,
s = de.s,
dd = de.dd,
xc = dd.wr
if (s.type == C.NOTE) {
for (m = 0; m <= s.nhd; m++) {
if (s.notes[m].acc) {
dx = s.notes[m].shac
} else {
dx = 1 - s.notes[m].shhd
switch (s.head) {
case C.SQUARE:
dx += 3.5
break
case C.OVALBARS:
case C.OVAL:
dx += 2
break
}
}
if (dx > xc)
xc = dx
}
}
h = 3 * (s.notes[s.nhd].pit - s.notes[0].pit) + 4;
m = dd.h /* minimum height */
if (h < m)
h = m;
de.has_val = true;
de.val = h;
// de.x = s.x - xc;
de.x -= xc;
de.y = 3 * ((s.notes[0].pit + s.notes[s.nhd].pit) / 2 - 18) - h / 2 - 3
}
/* 0: near the note (dot, tenuto) */
function d_near(de) {
var y,
up = de.up,
s = de.s,
dd = de.dd
y = up ? s.ymx : s.ymn
if (y > 0 && y < 24) {
y = (((y + 9) / 6) | 0) * 6 - 6 // between lines
}
if (up) {
y += dd.hd
s.ymx = y + dd.h
} else if (dd.name[0] == 'w') { // wedge (no descent)
de.inv = true
y -= dd.h
s.ymn = y
} else {
y -= dd.h
s.ymn = y - dd.hd
}
de.x -= dd.wl
de.y = y
if (s.type == C.NOTE)
de.x += s.notes[s.stem >= 0 ? 0 : s.nhd].shhd
if (dd.name[0] == 'd') { // if dot (staccato)
if (!(s.beam_st && s.beam_end)) { // if in a beam sequence
if (up) {
if (s.stem > 0)
de.x += 3.5 // stem_xoff
} else {
if (s.stem < 0)
de.x -= 3.5
}
} else {
if (up && s.stem > 0) {
y = s.y + (y - s.y) * .6
if (y >= 27) {
de.y = y // put the dot a bit lower
s.ymx = de.y + dd.h
}
}
}
}
}
/* 1: special case for slide */
function d_slide(de) {
var m, dx,
s = de.s,
yc = s.notes[0].pit,
xc = 5
for (m = 0; m <= s.nhd; m++) {
if (s.notes[m].acc) {
dx = 4 + s.notes[m].shac
} else {
dx = 5 - s.notes[m].shhd
switch (s.head) {
case C.SQUARE:
dx += 3.5
break
case C.OVALBARS:
case C.OVAL:
dx += 2
break
}
}
if (s.notes[m].pit <= yc + 3 && dx > xc)
xc = dx
}
// de.x = s.x - xc;
de.x -= xc;
de.y = 3 * (yc - 18)
}
// special case for long decoration
function d_trill(de) {
if (de.ldst)
return
var y, w, tmp,
dd = de.dd,
de2 = de.prev,
up = de.start.up,
s2 = de.s,
st = s2.st,
s = de.start.s,
x = s.x
// shift the starting point of a long decoration
// in the cases "T!trill(!" and "!pp!!<(!"
// (side effect on x)
function sh_st() {
var de3,
de2 = de.start, // start of the decoration
s = de2.s,
i = de2.ix // index of the current decoration
while (--i >= 0) {
de3 = a_de[i]
if (!de3 || de3.s != s)
break
}
while (1) { // loop on the decorations of the symbol
i++
de3 = a_de[i]
if (!de3 || de3.s != s)
break
if (de3 == de2)
continue
if (!(up ^ de3.up)
&& (de3.dd.name == "trill"
|| de3.dd.func == 6)) { // dynamic
x += de3.dd.wr + 2
break
}
}
} // sh_st()
// shift the ending point of a long decoration
// (side effect on w)
function sh_en() {
var de3,
i = de.ix // index of the current decoration
while (--i > 0) {
de3 = a_de[i]
if (!de3 || de3.s != s2)
break
}
while (1) { // loop on the decorations of the symbol
i++
de3 = a_de[i]
if (!de3 || de3.s != s2)
break
// if (de3 == de || de3 == de2)
if (de3 == de)
continue
if (!(up ^ de3.up)
&& de3.dd.func == 6) { // if dynamic mark
w -= de3.dd.wl
break
}
}
} //sh_en()
// d_trill()
if (de2) { // same height
x = de2.s.x + de.dd.wl + 2
de2.val -= de2.dd.wr
if (de2.val < 8)
de2.val = 8
}
de.st = st
de.up = up
sh_st() // shift the starting point?
if (de.defl.noen) { /* if no decoration end */
w = de.x - x
if (w < 20) {
x = de.x - 20 - 3;
w = 20
}
} else {
w = s2.x - x - 4
sh_en(de) // shift the ending point?
if (w < 20)
w = 20
}
y = y_get(st, up, x - dd.wl, w)
if (up) {
tmp = staff_tb[s.st].topbar + 2
if (y < tmp)
y = tmp
} else {
tmp = staff_tb[s.st].botbar - 2
if (y > tmp)
y = tmp
y -= dd.h
}
if (de2) { // if same height
if (up) {
if (y < de2.y)
y = de2.y // (only on one note)
} else {
if (y >= de2.y) {
y = de2.y
} else {
do {
de2.y = y
de2 = de2.prev // go backwards
} while (de2)
}
}
}
de.lden = false;
de.has_val = true;
de.val = w;
de.x = x;
de.y = y
if (up)
y += dd.h;
else
y -= dd.hd
y_set(st, up, x, w, y)
if (up)
s.ymx = s2.ymx = y
else
s.ymn = s2.ymn = y
}
/* 3, 4, 5, 7: above (or below) the staff */
function d_upstaff(de) {
// don't treat here the long decorations
if (de.ldst) // if long deco start
return
if (de.start) { // if long decoration
d_trill(de)
return
}
var y, inv,
up = de.up,
s = de.s,
dd = de.dd,
x = de.x,
w = dd.wl + dd.wr
// glyphs inside the staff
switch (dd.glyph) {
case "brth":
case "caes":
case "lphr":
case "mphr":
case "sphr":
case "short":
case "tick":
y = staff_tb[s.st].topbar + 2 + dd.hd
if (s.type == C.BAR) {
s.invis = 1
} else {
if (dd.glyph == "brth" && y < s.ymx)
y = s.ymx
for (s = s.ts_next; s; s = s.ts_next)
if (s.seqst)
break
x += ((s ? s.x : realwidth) - x) * .45
}
de.x = x
de.y = y
return
}
if (s.nhd)
x += s.notes[s.stem >= 0 ? 0 : s.nhd].shhd;
switch (dd.ty) {
case '@':
case '<':
case '>':
y = de.y
break
}
if (y == undefined) {
if (up) {
y = y_get(s.st, true, x - dd.wl, w)
+ dd.hd
if (de.y > y)
y = de.y
s.ymx = y + dd.h
} else {
y = y_get(s.st, false, x - dd.wl, w)
- dd.h
if (de.y < y)
y = de.y
if (dd.name == "fermata"
|| dd.glyph == "accent"
|| dd.glyph == "roll")
de.inv = 1
s.ymn = y - dd.hd
}
}
if (dd.wr > 5 && x > realwidth - dd.wr)
de.x = x = realwidth - dd.wr
// if (dd.func == 6
// && ((de.pos & C.SL_ALI_MSK) == C.SL_ALIGN
// || ((de.pos & C.SL_ALI_MSK) == 0
// && de.s.fmt.dynalign > 0))) // if align
// ;
// else
if (up)
y_set(s.st, 1, x - dd.wl, w, y + dd.h)
else
y_set(s.st, 0, x - dd.wl, w, y - dd.hd)
de.y = y
}
// add a decoration
/* syntax:
* %%deco []
* "" may be followed by "," (descent)
*/
function deco_add(param) {
var dv = param.match(/(\S*)\s+(.*)/);
decos[dv[1]] = dv[2]
}
// define a decoration
// nm is the name of the decoration
// nmd is the name of the definition in the table 'decos'
function deco_def(nm, nmd) {
if (!nmd)
nmd = nm
var a, dd, dd2, nm2, c, i, elts, str, hd,
text = decos[nmd]
// check if a long decoration with number
if (!text && /\d[()]$/.test(nmd))
text = decos[nmd.replace(/\d/, '')]
if (!text) {
if (cfmt.decoerr)
error(1, null, "Unknown decoration '$1'", nm)
return //undefined
}
// extract the values
a = text.match(/(\d+)\s+(.+?)\s+([0-9.,]+)\s+([0-9.]+)\s+([0-9.]+)/)
if (!a) {
error(1, null, "Invalid decoration '$1'", nm)
return //undefined
}
var c_func = Number(a[1]),
// glyph = a[2],
h = a[3],
wl = parseFloat(a[4]),
wr = parseFloat(a[5])
if (isNaN(c_func)) {
error(1, null, "%%deco: bad C function value '$1'", a[1])
return //undefined
}
if (c_func > 10
&& (c_func < 32 || c_func > 44)) {
error(1, null, "%%deco: bad C function index '$1'", c_func)
return //undefined
}
// if (c_func == 5) // old !trill(!
// c_func = 3
// if (c_func == 7) // old !cresc(!
// c_func = 6
if (h.indexOf(',') > 0) {
h = h.split(',')
hd = h[1]
h = h[0]
} else {
hd = 0
}
if (h > 50 || wl > 80 || wr > 80) {
error(1, null, "%%deco: abnormal h/wl/wr value '$1'", text)
return //undefined
}
// create/redefine the decoration
dd = dd_tb[nm]
if (!dd) {
dd = {
name: nm
}
dd_tb[nm] = dd
}
/* set the values */
dd.func = nm.indexOf("head-") == 0 ? 9 : c_func;
dd.glyph = a[2];
dd.h = Number(h)
dd.hd = Number(hd)
dd.wl = wl;
dd.wr = wr;
str = text.replace(a[0], '').trim()
if (str) { // optional string
if (str[0] == '"')
str = str.slice(1, -1);
if (str[0] == '@') {
c = str.match(/^@([0-9.-]+),([0-9.-]+);?/)
if (!c) {
error(1, null, "%%deco: bad position '$1'", str)
return
}
dd.dx = +c[1] // x and y offsets
dd.dy = +c[2]
str = str.replace(c[0], '')
}
dd.str = str
}
/* compatibility */
if (dd.func == 6 && dd.str == undefined)
dd.str = nm
// link the start and end of long decorations
c = nm.slice(-1)
if (c == '(' ||
(c == ')' && nm.indexOf('(') < 0)) { // not (#)
dd.str = null; // (no string)
nm2 = nm.slice(0, -1) + (c == '(' ? ')' : '(');
dd2 = dd_tb[nm2]
if (dd2) {
if (c == '(') {
dd.dd_en = dd2;
dd2.dd_st = dd
} else {
dd.dd_st = dd2;
dd2.dd_en = dd
}
}
}
return dd
}
// define a cross-voice tie
// @nm = decoration name
// @s = note symbol
// @nt1 = note
function do_ctie(nm, s, nt1) {
var nt2 = cross[nm],
nm2 = nm.slice(0, -1) + (nm.slice(-1) == '(' ? ')' : '(')
if (nt2) {
error(1, s, "Conflict on !$1!", nm)
return
}
nt1.s = s
nt2 = cross[nm2]
if (!nt2) {
cross[nm] = nt1 // keep the start/end
return
}
if (nm.slice(-1) == ')') {
nt2 = nt1
nt1 = cross[nm2]
}
cross[nm2] = null
if (nt1.midi != nt2.midi
|| nt1.s.time + nt1.s.dur != nt2.s.time) {
error(1, s, "Bad tie")
} else {
nt1.tie_ty = C.SL_AUTO
nt1.tie_e = nt2
nt2.tie_s = nt1
nt1.s.ti1 = nt2.s.ti2 = true
}
} // do_ctie()
// get/create the definition of a decoration
function get_dd(nm) {
var ty, p,
dd = dd_tb[nm]
if (dd)
return dd
if ("<>^_@".indexOf(nm[0]) >= 0 // if position
&& !/^([>^]|[<>]\d?[()])$/.test(nm)) {
ty = nm[0]
if (ty == '@') {
p = nm.match(/@([-\d]+),([-\d]+)/)
if (p)
ty = p[0]
else
ty = '' // accept decorations starting with '@'
}
dd = deco_def(nm, nm.replace(ty, ''))
} else {
dd = deco_def(nm)
}
if (!dd)
return
if (ty) {
if (ty[0] == '@') { // if with x,y
dd.x = Number(p[1])
dd.y = Number(p[2])
ty = '@'
}
dd.ty = ty
}
return dd
} // get_dd()
/* -- convert the decorations -- */
function deco_cnv(s, prev) {
var i, j, dd, nm, note, s1, court
while (1) {
nm = a_dcn.shift()
if (!nm)
break
dd = get_dd(nm)
if (!dd)
continue
/* special decorations */
switch (dd.func) {
case 0: // near
if (s.type == C.BAR && nm == "dot") {
s.bar_dotted = true
continue
}
// fall thru
case 1: // slide
case 2: // arp
// if (s.type != C.NOTE && s.type != C.REST) {
if (!s.notes) {
error(1, s, errs.must_note_rest, nm)
continue
}
break
case 4: // below the staff
case 5: // above the staff
i = nm.match(/1?[85]([vm])([ab])([()])/)
if (i) { // if ottava
j = i[1] == 'v' ? 1 : 2
if (i[2] == 'b')
j = -j
if (!s.ottava)
s.ottava = []
s.ottava[i[3] == '(' ? 0 : 1] = j
glovar.ottava = 1 //true
}
break
case 8: // gliss
if (s.type != C.NOTE) {
error(1, s, errs.must_note, nm)
continue
}
note = s.notes[s.nhd] // move to the upper note of the chord
if (!note.a_dd)
note.a_dd = []
note.a_dd.push(dd)
continue
case 9: // alternate head
if (!s.notes) {
error(1, s, errs.must_note_rest, nm)
continue
}
// move the alternate head of the chord to the notes
for (j = 0; j <= s.nhd; j++) {
note = s.notes[j]
note.invis = true
if (!note.a_dd)
note.a_dd = []
note.a_dd.push(dd)
}
continue
case 10: /* color */
if (s.notes) {
for (j = 0; j <= s.nhd; j++)
s.notes[j].color = nm
} else {
s.color = nm
}
break
case 32: /* invisible */
s.invis = true
break
case 33: /* beamon */
if (s.type != C.BAR) {
error(1, s, "!beamon! must be on a bar")
continue
}
s.beam_on = true
break
case 34: /* trem1..trem4 */
if (s.type != C.NOTE
|| !prev
|| prev.type != C.NOTE
|| s.dur != prev.dur) {
error(1, s,
"!$1! must be on the last of a couple of notes",
nm)
continue
}
s.trem2 = true;
s.beam_end = true;
s.beam_st = false;
prev.beam_st = true;
prev.beam_end = false;
s.ntrem = prev.ntrem = Number(nm[4]);
for (j = 0; j <= s.nhd; j++)
s.notes[j].dur *= 2;
for (j = 0; j <= prev.nhd; j++)
prev.notes[j].dur *= 2
break
case 35: /* xstem */
if (s.type != C.NOTE) {
error(1, s, errs.must_note, nm)
continue
}
s.xstem = true;
break
case 36: /* beambr1 / beambr2 */
if (s.type != C.NOTE) {
error(1, s, errs.must_note, nm)
continue
}
if (nm[6] == '1')
s.beam_br1 = true
else
s.beam_br2 = true
break
case 37: /* rbstop */
s.rbstop = 1 // open
break
case 38: /* /, // and /// = tremolo */
if (s.type != C.NOTE) {
error(1, s, errs.must_note, nm)
continue
}
s.trem1 = true;
s.ntrem = nm.length /* 1, 2 or 3 */
break
case 39: /* beam-accel/beam-rall */
if (s.type != C.NOTE) {
error(1, s, errs.must_note, nm)
continue
}
s.feathered_beam = nm[5] == 'a' ? 1 : -1;
break
case 40: /* stemless */
s.stemless = true
break
case 41: /* rbend */
s.rbstop = 2 // with end
break
case 42: // editorial
if (s.type != C.NOTE) {
error(1, s, errs.must_note, nm)
continue
}
if (!s.notes[0].acc)
continue
nm = "sacc" + s.notes[0].acc.toString() // small accidental
dd = dd_tb[nm]
if (!dd) {
dd = deco_def(nm)
if (!dd) {
error(1, s, errs.bad_val, "!editorial!")
continue
}
}
delete s.notes[0].acc
curvoice.acc[s.notes[0].pit + 19] = 0 // ignore the accidental
break
case 43: // courtesy
if (s.type != C.NOTE) {
error(1, s, errs.must_note, nm)
continue
}
j = curvoice.acc[s.notes[0].pit + 19]
if (s.notes[0].acc || !j)
continue
court = 1 // defer
break
case 44: // cross-voice ties
if (s.type != C.NOTE) {
error(1, s, errs.must_note, nm)
continue
}
do_ctie(nm, s, s.notes[0]) // (only one note for now)
continue
// default:
// break
}
// add the decoration in the symbol
if (!s.a_dd)
s.a_dd = []
s.a_dd.push(dd)
}
// handle the possible courtesy accidental
if (court) {
a_dcn.push("cacc" + j)
dh_cnv(s, s.notes[0])
}
}
// -- convert head decorations --
// The decorations are in the global array a_dcn
function dh_cnv(s, nt) {
var k, nm, dd
while (1) {
nm = a_dcn.shift()
if (!nm)
break
dd = get_dd(nm)
if (!dd)
continue
switch (dd.func) {
case 0:
case 1:
case 3:
case 4:
case 8: // gliss
break
default:
// case 2: // arpeggio
// case 5: // trill
// case 7: // d_cresc
error(1, s, "Cannot have !$1! on a head", nm)
continue
case 9: // head replacement
nt.invis = true
break
case 32: // invisible
nt.invis = true
continue
case 10: // color
nt.color = nm
continue
case 40: // stemless chord (abcm2ps behaviour)
s.stemless = true
continue
case 44: // cross-voice ties
do_ctie(nm, s, nt)
continue
}
// add the decoration in the note
if (!nt.a_dd)
nt.a_dd = []
nt.a_dd.push(dd)
}
} // dh_cnv()
/* -- update the x position of a decoration -- */
// used to center the rests
function deco_update(s, dx) {
var i, de,
nd = a_de.length
for (i = 0; i < nd; i++) {
de = a_de[i]
if (de.s == s)
de.x += dx
}
}
/* -- adjust the symbol width -- */
function deco_width(s, wlnt) {
var dd, i, w,
wl = wlnt,
wr = s.wr,
a_dd = s.a_dd,
nd = a_dd.length
for (i = 0; i < nd; i++) {
dd = a_dd[i]
switch (dd.func) {
case 1: /* slide */
case 2: /* arpeggio */
if (wl < 12)
wl = 12
break
case 3:
switch (dd.glyph) {
case "brth":
case "lphr":
case "mphr":
case "sphr":
if (s.wr < 20)
s.wr = 20
break
default:
w = dd.wl + 2
if (wl < w)
wl = w
break
}
// fall thru
default:
switch (dd.ty) {
case '<':
w = wlnt + dd.wl + dd.wr + 6
if (wl < w)
wl = w
break
case '>':
w = wr + dd.wl + dd.wr + 6
if (s.wr < w)
s.wr = w
break
}
break
}
}
return wl
}
// compute the width of decorations in chord
function deco_wch(nt) {
var i, w, dd,
wl = 0,
n = nt.a_dd.length
for (i = 0; i < n; i++) {
dd = nt.a_dd[i]
if (dd.ty == '<') {
w = dd.wl + dd.wr + 4
if (w > wl)
wl = w
}
}
return wl
} // deco_wch()
/* -- draw the decorations -- */
/* (the staves are defined) */
Abc.prototype.draw_all_deco = function() {
if (!a_de.length)
return
var de, dd, s, note, f, st, x, y, y2, ym, uf, i, str, a,
new_de = [],
ymid = []
st = nstaff;
y = staff_tb[st].y
while (--st >= 0) {
y2 = staff_tb[st].y;
ymid[st] = (y + 24 + y2) * .5;
y = y2
}
while (1) {
de = a_de.shift()
if (!de)
break
dd = de.dd
if (!dd)
continue // deleted
if (dd.dd_en) // start of long decoration
continue
// handle the stem direction
s = de.s
f = dd.glyph;
i = f.indexOf('/')
if (i > 0) {
if (s.stem >= 0)
f = f.slice(0, i)
else
f = f.slice(i + 1)
}
// no voice scale if staff decoration
if (f_staff[dd.func])
set_sscale(s.st)
else
set_scale(s);
st = de.st;
if (!staff_tb[st].topbar)
continue // invisible staff
x = de.x + (dd.dx || 0)
y = de.y + staff_tb[st].y + (dd.dy || 0)
// update the coordinates if head decoration
if (de.m != undefined) {
note = s.notes[de.m];
if (note.shhd)
x += note.shhd * stv_g.scale;
/* center the dynamic marks between two staves */
/*fixme: KO when deco on other voice and same direction*/
} else if (dd.func == 6
&& ((de.pos & C.SL_ALI_MSK) == C.SL_CENTER
|| ((de.pos & C.SL_ALI_MSK) == 0
&& !s.fmt.dynalign))
&& ((de.up && st > 0)
|| (!de.up && st < nstaff))) {
if (de.up)
ym = ymid[--st]
else
ym = ymid[st++];
ym -= dd.h * .5
if ((de.up && y < ym)
|| (!de.up && y > ym)) {
// if (s.st > st) {
// while (s.st != st)
// s = s.ts_prev
// } else if (s.st < st) {
// while (s.st != st)
// s = s.ts_next
// }
y2 = y_get(st, !de.up, de.x, de.val)
+ staff_tb[st].y
if (de.up)
y2 -= dd.h
//fixme: y_set is not used later!
if ((de.up && y2 > ym)
|| (!de.up && y2 < ym)) {
y = ym;
// y_set(st, de.up, de.x, de.val,
// (de.up ? y + dd.h : y)
// - staff_tb[st].y)
if (stv_g.scale != 1)
y += stv_g.dy / 2
}
}
}
// check if user JS decoration
if (user.deco) {
uf = user.deco[f]
if (uf && typeof(uf) == "function") {
uf.call(self, x, y, de)
continue
}
}
// check if user PS definition
if (self.psdeco(x, y, de))
continue
anno_start(s, 'deco')
// if (de.flags.grace) {
// g_open(x, y, 0, .7, de.inv ? -.7 : 0);
// x = y = 0
// } else
if (de.inv) {
y = y + dd.h - dd.hd
g_open(x, y, 0, 1, -1);
x = y = 0
}
if (de.has_val) {
if (dd.func != 2 // if not !arpeggio!
|| stv_g.st < 0) // or not staff scale
// || voice_tb[s.v].scale != 1)
out_deco_val(x, y, f, de.val / stv_g.scale, de.defl)
else
out_deco_val(x, y, f, de.val, de.defl)
if (de.cont)
new_de.push(de.start) // to be continued next line
} else if (dd.str != undefined // string
&& !tgls[dd.glyph]
&& !glyphs[dd.glyph]) { // with a class
out_deco_str(x, y, // - dd.h * .2,
de)
} else if (de.lden) {
out_deco_long(x, y, de)
} else {
xygl(x, y, f)
}
if (stv_g.g)
g_close();
anno_stop(s, 'deco')
}
// keep the long decorations which continue on the next line
a_de = new_de
}
/* -- create the decorations and define the ones near the notes -- */
/* (the staves are not yet defined) */
/* (delayed output) */
/* this function must be called first as it builds the deco element table */
function draw_deco_near() {
var s, g
// update starting old decorations
function ldeco_update(s) {
var i, de,
// x = s.ts_prev.x + s.ts_prev.wr
x = s.x - s.wl,
nd = a_de.length
for (i = 0; i < nd; i++) {
de = a_de[i];
de.ix = i;
de.s.x = de.x = x;
de.defl.nost = true
}
}
/* -- create the deco elements, and treat the near ones -- */
function create_deco(s) {
var dd, k, pos, de, x, y, up,
nd = s.a_dd.length
if (s.y == undefined)
s.y = 0 // (no y in measure bars)
/*fixme:pb with decorations above the staff*/
for (k = 0; k < nd; k++) {
dd = s.a_dd[k]
// adjust the position
x = s.x
y = s.y
switch (dd.func) {
default:
if (dd.func >= 10)
continue
pos = 0
break
case 3: /* d_upstaff */
case 4:
case 5: // after slurs
pos = s.pos.orn
break
case 6: /* dynamic */
pos = s.pos.dyn
break
}
switch (dd.ty) { // explicit position
case '^':
pos = (pos & ~0x07) | C.SL_ABOVE
break
case '_':
pos = (pos & ~0x07) | C.SL_BELOW
break
case '<':
case '>':
pos = (pos & 0x07) | C.SL_CLOSE
if (dd.ty == '<') {
x -= dd.wr + 8
if (s.notes[0].acc)
x -= 8
} else {
x += dd.wl + 8
}
y = 3 * (s.notes[0].pit - 18)
- (dd.h - dd.hd) / 2
break
case '@':
x += dd.x
y += dd.y
break
}
if ((pos & 0x07) == C.SL_HIDDEN)
continue
de = {
s: s,
dd: dd,
st: s.st,
ix: a_de.length,
defl: {},
x: x,
y: y
}
if (pos)
de.pos = pos
up = 0 //false
if (dd.ty == '^') {
up = 1 //true
} else if (dd.ty == '_') {
;
} else {
switch (dd.func) {
case 0:
if (s.multi)
up = s.multi > 0
else
up = s.stem < 0
break
case 3:
case 5:
up = up3(s, pos)
break
case 6:
case 7:
up = up6(s, pos)
break
}
}
de.up = up
if (dd.name.indexOf("inverted") >= 0)
de.inv = 1
if (s.type == C.BAR && !dd.ty)
de.x -= s.wl / 2 - 2
a_de.push(de)
if (dd.dd_en) {
de.ldst = true
} else if (dd.dd_st) {
//fixme: pb with "()"
de.lden = true;
de.defl.nost = true
}
if (f_near[dd.func])
f_near[dd.func](de)
}
} // create_deco()
// create the decorations of note heads
function create_dh(s, m) {
var de, k, dd,
note = s.notes[m],
nd = note.a_dd.length,
x = s.x
for (k = 0; k < nd; k++) {
dd = note.a_dd[k]
//fixme: check if hidden?
de = {
s: s,
dd: dd,
st: s.st,
m: m,
ix: 0,
defl: {},
x: x,
y: 3 * (note.pit - 18) - (dd.h - dd.hd) / 2
// dy: 0
}
if (dd.ty) { // if explicit position
if (dd.ty == '@') {
de.x += dd.x
de.y += dd.y
} else {
de.y -= (dd.h - dd.hd) / 2 // center
if (dd.ty == '<') {
de.x -= dd.wr + 8
if (s.notes[m].acc)
x -= 8
} else if (dd.ty == '>') {
de.x += dd.wl + 8
}
}
}
a_de.push(de)
if (dd.dd_en) {
de.ldst = true
} else if (dd.dd_st) {
de.lden = true;
de.defl.nost = true
}
}
} // create_dh()
// create all decorations of a note (chord and heads)
function create_all(s) {
if (s.invis && s.play) // play sequence: no decoration
return
if (s.a_dd)
create_deco(s)
if (s.notes) {
for (var m = 0; m < s.notes.length; m++) {
if (s.notes[m].a_dd)
create_dh(s, m)
}
}
} // create_all()
// link the long decorations
function ll_deco() {
var i, j, de, de2, de3, dd, dd2, v, s, st,
n_de = a_de.length
// add ending decorations
for (i = 0; i < n_de; i++) {
de = a_de[i]
if (!de.ldst) // not the start of long decoration
continue
dd = de.dd;
dd2 = dd.dd_en;
s = de.s;
v = s.v // search later in the voice
for (j = i + 1; j < n_de; j++) {
de2 = a_de[j]
if (!de2.start
&& de2.dd == dd2 && de2.s.v == v)
break
}
if (j == n_de) { // no end, search in the staff
st = s.st;
for (j = i + 1; j < n_de; j++) {
de2 = a_de[j]
if (!de2.start
&& de2.dd == dd2 && de2.s.st == st)
break
}
}
if (j == n_de) { // no end, insert one
de2 = {
s: s,
st: de.st,
dd: dd2,
ix: a_de.length - 1,
x: realwidth - 6,
y: s.y,
cont: true, // keep for next line
lden: true,
defl: {
noen: true
}
}
if (de2.x < s.x + 10)
de2.x = s.x + 10
if (de.m != undefined)
de2.m = de.m;
a_de.push(de2)
}
de2.start = de;
de2.defl.nost = de.defl.nost
// handle same decoration ending at a same time
j = i
while (--j >= 0) {
de3 = a_de[j]
if (!de3.start)
continue
if (de3.s.time < s.time)
break
if (de3.dd.name == de2.dd.name) {
de2.prev = de3
break
}
}
}
// add starting decorations
for (i = 0; i < n_de; i++) {
de2 = a_de[i]
if (!de2.lden // not the end of long decoration
|| de2.start) // start already found
continue
s = de2.s;
de = {
s: prev_scut(s),
st: de2.st,
dd: de2.dd.dd_st,
ix: a_de.length - 1,
// x: s.x - s.wl - 4,
y: s.y,
ldst: true
}
de.x = de.s.x + de.s.wr
if (de2.m != undefined)
de.m = de2.m;
a_de.push(de);
de2.start = de
}
} // ll_deco
// update the long decorations started in the previous line
for (s = tsfirst ; s; s = s.ts_next) {
switch (s.type) {
case C.CLEF:
case C.KEY:
case C.METER:
continue
}
break
}
if (a_de.length)
ldeco_update(s)
for ( ; s; s = s.ts_next) {
switch (s.type) {
case C.BAR:
case C.MREST:
case C.NOTE:
case C.REST:
case C.SPACE:
break
case C.GRACE:
for (g = s.extra; g; g = g.next)
create_all(g)
break
default:
continue
}
create_all(s)
}
ll_deco() // link the long decorations
}
/* -- define the decorations tied to a note -- */
/* (the staves are not yet defined) */
/* (delayed output) */
function draw_deco_note() {
var i, de, dd, f,
nd = a_de.length
for (i = 0; i < nd; i++) {
de = a_de[i];
dd = de.dd;
f = dd.func
if (f_note[f]
&& de.m == undefined)
f_note[f](de)
}
}
// -- define the music elements tied to the staff --
// - decoration tied to the staves
// - chord symbols
// - repeat brackets
/* (the staves are not yet defined) */
/* (unscaled delayed output) */
function draw_deco_staff() {
var s, p_voice, y, i, v, de, dd, w,
minmax = new Array(nstaff + 1),
nd = a_de.length
/* draw the repeat brackets */
function draw_repbra(p_voice) {
var s, s1, x, y, y2, i, p, w, wh, first_repeat;
// search the max y offset of the line
y = staff_tb[p_voice.st].topbar + 15 // 10 (vert bar) + 5 (room)
for (s = p_voice.sym; s; s = s.next) {
if (s.type != C.BAR)
continue
if (!s.rbstart || s.norepbra)
continue
/*fixme: line cut on repeat!*/
if (!s.next)
break
if (!first_repeat) {
first_repeat = s;
set_font("repeat")
}
s1 = s
for (;;) {
if (!s.next)
break
s = s.next
if (s.rbstop)
break
}
x = s1.x
if (s1.xsh) // volta shift
x += s1.xsh
y2 = y_get(p_voice.st, true, x, s.x - x) + 2
if (y < y2)
y = y2
// have room for the vertical lines and the repeat numbers
if (s1.rbstart == 2) {
y2 = y_get(p_voice.st, true, x, 3) + 10
if (y < y2)
y = y2
}
if (s.rbstop == 2) {
y2 = y_get(p_voice.st, true, s.x - 3, 3) + 10
if (y < y2)
y = y2
}
if (s1.text) {
wh = strwh(s1.text);
y2 = y_get(p_voice.st, true, x + 4, wh[0]) +
wh[1]
if (y < y2)
y = y2
}
if (s.rbstart)
s = s.prev
}
/* draw the repeat indications */
s = first_repeat
if (!s)
return
set_dscale(p_voice.st, true);
y2 = y * staff_tb[p_voice.st].staffscale
for ( ; s; s = s.next) {
if (!s.rbstart || s.norepbra)
continue
s1 = s
while (1) {
if (!s.next)
break
s = s.next
if (s.rbstop)
break
}
if (s1 == s)
break
x = s1.x
if (s1.xsh) // volta shift
x += s1.xsh
if (cfmt.measurenb > 0 & s.bar_num
&& s.bar_num % cfmt.measurenb)
x += 6
if (s.type != C.BAR) {
w = s.rbstop ? 0 : s.x - realwidth + 4
} else if ((s.bar_type.length > 1 // if complex bar
&& s.bar_type != "[]")
|| s.bar_type == "]") {
// if (s.bar_type == "]")
// s.invis = true
//fixme:%%staves: cur_sy moved?
if (s1.st > 0
&& !(cur_sy.staves[s1.st - 1].flags & STOP_BAR))
w = s.wl
else if (s.bar_type.slice(-1) == ':')
w = 12
else if (s.bar_type[0] != ':')
// || s.bar_type == "]")
w = 0 /* explicit repeat end */
else
w = 8
} else {
w = (s.rbstop && !s.rbstart) ? 0 : 8
}
w = (s.x - x - w) // / staff_tb[p_voice.st].staffscale;
if (!s.next // 2nd ending at end of line
&& !s.rbstop
&& !p_voice.bar_start) { // continue on next line
p_voice.bar_start = _bar(s)
p_voice.bar_start.bar_type = ""
p_voice.bar_start.rbstart = 1
}
if (s1.text)
xy_str(x + 4, y2 - gene.curfont.size,
s1.text);
xypath(x, y2);
if (s1.rbstart == 2)
output += 'm0 10v-10';
output+= 'h' + w.toFixed(1)
if (s.rbstop == 2)
output += 'v10';
output += '"/>\n';
y_set(s1.st, true, x, w, y + 2)
if (s.rbstart)
s = s.prev
}
} // draw_repbra()
/* create the decorations tied to the staves */
for (i = 0; i <= nstaff; i++)
minmax[i] = {
ymin: 0,
ymax: 0
}
for (i = 0; i < nd; i++) {
de = a_de[i];
dd = de.dd
if (!dd) // if error
continue
if (!f_staff[dd.func] /* if not tied to the staff */
|| de.m != undefined // or head decoration
|| dd.ty == '<' || dd.ty == '>' || dd.ty == '@')
continue
f_staff[dd.func](de)
if (dd.func != 6
|| dd.dd_en) // if start
continue
if ((de.pos & C.SL_ALI_MSK) == C.SL_ALIGN
|| ((de.pos & C.SL_ALI_MSK) == 0
&& de.s.fmt.dynalign > 0)) { // if align
if (de.up) {
if (de.y > minmax[de.st].ymax)
minmax[de.st].ymax = de.y
} else {
if (de.y < minmax[de.st].ymin)
minmax[de.st].ymin = de.y
}
}
}
// set the same vertical offset of the dynamic marks
for (i = 0; i < nd; i++) {
de = a_de[i];
dd = de.dd
if (!dd) // if error
continue
// if @x,y offsets, update the top and bottom of the staff
if (dd.ty == '@') {
var y2
y = de.y
if (y > 0) {
y2 = y + dd.h + 2
if (y2 > staff_tb[de.st].ann_top)
staff_tb[de.st].ann_top = y2
} else {
y2 = y - dd.hd - 2
if (y2 < staff_tb[de.st].ann_bot)
staff_tb[de.st].ann_bot = y2
}
continue
}
if (dd.func != 6
|| dd.ty == '<' || dd.ty == '>'
|| dd.dd_en) // if start
continue
w = de.val || (dd.wl + dd.wr)
if ((de.pos & C.SL_ALI_MSK) == C.SL_ALIGN
|| ((de.pos & C.SL_ALI_MSK) == 0
&& de.s.fmt.dynalign > 0)) { // if align
if (de.up)
y = minmax[de.st].ymax
else
y = minmax[de.st].ymin;
de.y = y
} else {
y = de.y
}
if (de.up)
y += dd.h;
else
y -= dd.hd
y_set(de.st, de.up, de.x, w, y)
}
// second pass for pedal (under the staff)
for (i = 0; i < nd; i++) {
de = a_de[i]
dd = de.dd
if (!dd) // if error
continue
if (dd.dd_en // if start
|| dd.name.slice(0, 3) != "ped")
continue
w = de.val || 10
de.y = y_get(de.st, 0, de.x, w)
- (dd.dd_st && cfmt.pedline ? 10 : dd.h)
y_set(de.st, 0, de.x, w, de.y) // (no descent)
}
draw_all_chsy() // draw all chord symbols
/* draw the repeat brackets */
for (v = 0; v < voice_tb.length; v++) {
p_voice = voice_tb[v]
if (p_voice.second || !p_voice.sym || p_voice.ignore)
continue
draw_repbra(p_voice)
}
}
/* -- draw the measure bar numbers -- */
/* (scaled delayed output) */
function draw_measnb() {
var s, st, bar_num, x, y, w, any_nb, font_size, w0,
sy = cur_sy
/* search the top staff */
for (st = 0; st <= nstaff; st++) {
if (sy.st_print[st])
break
}
if (st > nstaff)
return /* no visible staff */
set_dscale(st)
/* leave the measure numbers as unscaled */
if (staff_tb[st].staffscale != 1) {
font_size = get_font("measure").size;
param_set_font("measurefont", "* " +
(font_size / staff_tb[st].staffscale).toString())
}
set_font("measure");
w0 = cwidf('0'); // (greatest) width of a number
s = tsfirst; /* clef */
bar_num = gene.nbar
if (bar_num > 1) {
if (cfmt.measurenb == 0) {
any_nb = true;
y = y_get(st, true, 0, 20)
if (y < staff_tb[st].topbar + 14)
y = staff_tb[st].topbar + 14;
xy_str(0, y - gene.curfont.size * .2, bar_num.toString())
y_set(st, true, 0, 20, y + gene.curfont.size + 2)
} else if (bar_num % cfmt.measurenb == 0) {
for ( ; ; s = s.ts_next) {
switch (s.type) {
case C.CLEF:
case C.KEY:
case C.METER:
case C.STBRK:
continue
}
break
}
// don't display the number twice
if (s.type != C.BAR || !s.bar_num) {
any_nb = true;
w = w0
if (bar_num >= 10)
w *= bar_num >= 100 ? 3 : 2
if (gene.curfont.pad)
w += gene.curfont.pad * 2
x = (s.prev
? s.prev.x + s.prev.wr / 2
: s.x - s.wl) - w
y = y_get(st, true, x, w) + 5
if (y < staff_tb[st].topbar + 6)
y = staff_tb[st].topbar + 6;
y += gene.curfont.pad
xy_str(x, y - gene.curfont.size * .2, bar_num.toString())
y += gene.curfont.size + gene.curfont.pad
y_set(st, true, x, w, y);
// s.ymx = y
}
}
}
for ( ; s; s = s.ts_next) {
switch (s.type) {
case C.STAVES:
sy = s.sy
for (st = 0; st < nstaff; st++) {
if (sy.st_print[st])
break
}
set_dscale(st)
continue
default:
continue
case C.BAR:
if (!s.bar_num || s.bar_num <= 1)
continue
break
}
bar_num = s.bar_num
if (cfmt.measurenb == 0
|| (bar_num % cfmt.measurenb) != 0
|| !s.next
|| s.bar_mrep)
continue
if (!any_nb)
any_nb = true;
w = w0
if (bar_num >= 10)
w *= bar_num >= 100 ? 3 : 2
if (gene.curfont.pad)
w += gene.curfont.pad * 2
x = s.x
y = y_get(st, true, x, w)
if (y < staff_tb[st].topbar + 6)
y = staff_tb[st].topbar + 6
if (s.next.type == C.NOTE) {
if (s.next.stem > 0) {
if (y < s.next.ys - gene.curfont.size)
y = s.next.ys - gene.curfont.size
} else {
if (y < s.next.y)
y = s.next.y
}
}
y += 2 + gene.curfont.pad
xy_str(x, y - gene.curfont.size * .2, bar_num.toString())
y += gene.curfont.size + gene.curfont.pad
y_set(st, true, x, w, y);
// s.ymx = y
}
gene.nbar = bar_num
if (font_size)
param_set_font("measurefont", "* " + font_size.toString());
}
/* -- draw the parts and the tempo information -- */
// (unscaled delayed output)
function draw_partempo() {
var s, s2, some_part, some_tempo, h, w, y, st,
sy = cur_sy
// search the top staff
for (st = 0; st <= nstaff; st++) {
if (sy.st_print[st])
break
}
if (st > nstaff)
return // no visible staff
set_dscale(st, 1) // no scale
/* get the minimal y offset */
var ymin = staff_tb[st].topbar + 2,
dosh = 0,
shift = 1,
x = -100, // (must be negative for %%soloffs)
yn = 0 // y min when x < 0
// output the parts
for (s = tsfirst; s; s = s.ts_next) {
s2 = s.part
if (!s2 || s2.invis)
continue
if (!some_part) {
some_part = s;
set_font("parts");
h = gene.curfont.size + 2 +
gene.curfont.pad * 2
}
if (s2.x == undefined)
s2.x = s.x - 10
w = strwh(s2.text)[0]
y = y_get(st, true, s2.x, w + 3)
if (ymin < y)
ymin = y
}
if (some_part) {
set_sscale(-1)
ymin *= staff_tb[st].staffscale
for (s = some_part; s; s = s.ts_next) {
s2 = s.part
if (!s2 || s2.invis)
continue
w = strwh(s2.text)[0]
if (user.anno_start || user.anno_stop) {
s2.wl = 0
s2.wr = w
s2.ymn = ymin
s2.ymx = s2.ymn + h
anno_start(s2)
}
xy_str(s2.x,
ymin + 2 + gene.curfont.pad + gene.curfont.size * .22,
s2.text)
y_set(st, 1, s2.x, w + 3, ymin + 2 + h)
if (s2.x < 0)
yn = ymin + 2 + h
anno_stop(s2)
}
}
// output the tempos
ymin = staff_tb[st].topbar + 6
for (s = tsfirst; s; s = s.ts_next) {
if (s.type != C.TEMPO || s.invis)
continue
if (!some_tempo)
some_tempo = s
w = s.tempo_wh[0]
// if (s.time == 0 && s.x > 40) // at start of tune and no %%soloffs,
// s.x = 40 // shift the tempo over the key signature
y = y_get(st, true, s.x - 16, w)
if (s.x - 16 < 0)
y = yn
if (y > ymin)
ymin = y
if (x >= s.x - 16 && !(dosh & (shift >> 1)))
dosh |= shift
shift <<= 1
x = s.x - 16 + w
}
if (some_tempo) {
set_sscale(-1)
set_font("tempo")
h = gene.curfont.size
ymin += 2
ymin *= staff_tb[st].staffscale
/* draw the tempo indications */
for (s = some_tempo; s; s = s.ts_next) {
if (s.type != C.TEMPO
|| s.invis) // (displayed by %%titleformat)
continue
w = s.tempo_wh[0]
y = ymin
if (dosh & 1)
y += h
if (user.anno_start || user.anno_stop) {
s.wl = 16
// s.wr = 30
s.wr = w - 16
s.ymn = y
s.ymx = s.ymn + 14
anno_start(s)
}
writempo(s, s.x - 16, y)
anno_stop(s)
y_set(st, 1, s.x - 16, w, y + h + 2)
dosh >>= 1
}
}
}
// abc2svg - draw.js - draw functions
//
// Copyright (C) 2014-2023 Jean-Francois Moine
//
// This file is part of abc2svg-core.
//
// abc2svg-core is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg-core is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg-core. If not, see .
// constants
var STEM_MIN = 16, /* min stem height under beams */
STEM_MIN2 = 14, /* ... for notes with two beams */
STEM_MIN3 = 12, /* ... for notes with three beams */
STEM_MIN4 = 10, /* ... for notes with four beams */
STEM_CH_MIN = 14, /* min stem height for chords under beams */
STEM_CH_MIN2 = 10, /* ... for notes with two beams */
STEM_CH_MIN3 = 9, /* ... for notes with three beams */
STEM_CH_MIN4 = 9, /* ... for notes with four beams */
BEAM_DEPTH = 3.2, /* width of a beam stroke */
BEAM_OFFSET = .25, /* pos of flat beam relative to staff line */
BEAM_SHIFT = 5, /* shift of second and third beams */
BEAM_STUB = 7, /* length of stub for flag under beam */
SLUR_SLOPE = .5, /* max slope of a slur */
GSTEM = 15, /* grace note stem length */
GSTEM_XOFF = 2.3 /* x offset for grace note stem */
var cache,
anno_a = [] // symbols with annotations
/* -- compute the best vertical offset for the beams -- */
function b_pos(grace, stem, nflags, b) {
var top, bot, d1, d2,
shift = !grace ? BEAM_SHIFT : 3.5,
depth = !grace ? BEAM_DEPTH : 1.8
/* -- up/down shift needed to get k*6 -- */
function rnd6(y) {
var iy = Math.round((y + 12) / 6) * 6 - 12
return iy - y
} // rnd6()
if (stem > 0) {
bot = b - (nflags - 1) * shift - depth
if (bot > 26)
return 0
top = b
} else {
top = b + (nflags - 1) * shift + depth
if (top < -2)
return 0
bot = b
}
d1 = rnd6(top - BEAM_OFFSET);
d2 = rnd6(bot + BEAM_OFFSET)
return d1 * d1 > d2 * d2 ? d2 : d1
}
/* duplicate a note for beaming continuation */
function sym_dup(s) {
var m, note
s = clone(s)
s.invis = true
delete s.extra;
delete s.text
delete s.a_gch
delete s.a_ly
delete s.a_dd;
delete s.tp
s.notes = clone(s.notes)
for (m = 0; m <= s.nhd; m++) {
note = s.notes[m] = clone(s.notes[m])
delete note.a_dd
}
return s
}
/* -- calculate a beam -- */
/* (the staves may be defined or not) */
var min_tb = [
[STEM_MIN, STEM_MIN,
STEM_MIN2, STEM_MIN3, STEM_MIN4, STEM_MIN4],
[STEM_CH_MIN, STEM_CH_MIN,
STEM_CH_MIN2, STEM_CH_MIN3, STEM_CH_MIN4, STEM_CH_MIN4]
]
// (possible hook)
Abc.prototype.calculate_beam = function(bm, s1) {
var s, s2, g, notes, nflags, st, v, two_staves, two_dir,
n, x, y, ys, a, b, stem_err, max_stem_err,
p_min, p_max, s_closest,
stem_xoff, scale,
visible, dy
if (!s1.beam_st) { /* beam from previous music line */
s = sym_dup(s1);
lkvsym(s, s1);
lktsym(s, s1);
s.x -= 12
if (s.x > s1.prev.x + 12)
s.x = s1.prev.x + 12;
s.beam_st = true
delete s.beam_end;
s.tmp = true
delete s.sls;
s1 = s
}
/* search last note in beam */
notes = nflags = 0; /* set x positions, count notes and flags */
two_staves = two_dir = false;
st = s1.st;
v = s1.v;
stem_xoff = s1.grace ? GSTEM_XOFF : 3.5
for (s2 = s1; ;s2 = s2.next) {
if (s2.type == C.NOTE) {
if (s2.nflags > nflags)
nflags = s2.nflags;
notes++
if (s2.st != st)
two_staves = true
if (s2.stem != s1.stem)
two_dir = true
if (!visible && !s2.invis
&& (!s2.stemless || s2.trem2))
visible = true
if (s2.beam_end)
break
}
if (!s2.next) { /* beam towards next music line */
for (; ; s2 = s2.prev) {
if (s2.type == C.NOTE)
break
}
s = sym_dup(s2);
s.next = s2.next
if (s.next)
s.next.prev = s;
s2.next = s;
s.prev = s2;
s.ts_next = s2.ts_next
if (s.ts_next)
s.ts_next.ts_prev = s;
s2.ts_next = s;
s.ts_prev = s2
delete s.beam_st;
s.beam_end = true;
s.tmp = true
delete s.sls;
s.x += 12
if (s.x < realwidth - 12)
s.x = realwidth - 12;
s2 = s;
notes++
break
}
}
// at least, must have a visible note with a stem
if (!visible)
return false;
bm.s2 = s2 /* (don't display the flags) */
if (staff_tb[st].y == 0) { /* staves not defined */
if (two_staves)
return false
} else { /* staves defined */
// if (!two_staves && !s1.grace) {
if (!two_staves) {
bm.s1 = s1; /* beam already calculated */
bm.a = (s1.ys - s2.ys) / (s1.xs - s2.xs);
bm.b = s1.ys - s1.xs * bm.a + staff_tb[st].y;
bm.nflags = nflags
return true
}
}
s_closest = s1;
p_min = 100;
p_max = 0
for (s = s1; ; s = s.next) {
if (s.type != C.NOTE)
continue
if ((scale = s.p_v.scale) == 1)
scale = staff_tb[s.st].staffscale
if (s.stem >= 0) {
x = stem_xoff + s.notes[0].shhd
if (s.notes[s.nhd].midi > p_max) {
p_max = s.notes[s.nhd].midi
s_closest = s
}
} else {
x = -stem_xoff + s.notes[s.nhd].shhd
if (s.notes[0].midi < p_min) {
p_min = s.notes[0].midi
s_closest = s
}
}
s.xs = s.x + x * scale;
if (s == s2)
break
}
// have flat beams on grace notes when asked
if (s.grace && s1.fmt.flatbeams)
a = 0
// if a note inside the beam is the closest to the beam, the beam is flat
else if (!two_dir
&& notes >= 3
&& s_closest != s1 && s_closest != s2)
a = 0
y = s1.ys + staff_tb[st].y
if (a == undefined) {
if (two_dir
&& s1.stem != s2.stem
&& s1.st == s2.st) { // if inverted stems,
y -= 5 * s1.stem // remove the beam depth
s2.ys -= 5 * s2.stem
}
a = (s2.ys + staff_tb[s2.st].y - y) / (s2.xs - s1.xs)
}
if (a != 0) {
a = s1.fmt.beamslope * a /
(s1.fmt.beamslope + Math.abs(a)) // max steepness for beam
if (a > -.04 && a < .04)
a = 0 // slope too low
}
// center the main beam
b = (y + s2.ys + staff_tb[s2.st].y) / 2 - a * (s2.xs + s1.xs) / 2
/* have room for the symbols in the staff */
max_stem_err = 0; /* check stem lengths */
// when 2 directions, check if all beams are on the same side of the main beam
s = s1
if (two_dir) {
n = 1
while (1) {
if (s.stem != s1.stem
&& (s.nflags == 1
|| s.beam_br1 || s.beam_br2)) {
n = 0
break
}
if (s == s2)
break
s = s.next
}
if (n) // same side
n = (s1.nflags + s2.nflags)
* (s1.nflags >= s2.nflags ? s1.stem : s2.stem)
/ 4
else // different sides
n = -(s1.nflags * s1.stem + s2.nflags * s2.stem)
/ 2
b += ((s1.grace ? 3.5 : BEAM_SHIFT) * n
+ BEAM_DEPTH * s1.stem) / 2
} else if (!s1.grace) { /* normal notes */
var beam_h = BEAM_DEPTH + BEAM_SHIFT * (nflags - 1)
//--fixme: added for abc2svg
while (s.ts_prev
&& s.ts_prev.type == C.NOTE
&& s.ts_prev.time == s.time
&& s.ts_prev.x > s1.xs)
s = s.ts_prev
for (; s && s.time <= s2.time; s = s.ts_next) {
if (s.type != C.NOTE
|| s.invis
|| (s.st != st
&& s.v != v)) {
continue
}
x = s.v == v ? s.xs : s.x;
ys = a * x + b - staff_tb[s.st].y
if (s.v == v) {
stem_err = min_tb[s.nhd == 0 ? 0 : 1][s.nflags]
if (s.stem > 0) {
if (s.notes[s.nhd].pit > 26) {
stem_err -= 2
if (s.notes[s.nhd].pit > 28)
stem_err -= 2
}
stem_err -= ys - 3 * (s.notes[s.nhd].pit - 18)
} else {
if (s.notes[0].pit < 18) {
stem_err -= 2
if (s.notes[0].pit < 16)
stem_err -= 2
}
stem_err -= 3 * (s.notes[0].pit - 18) - ys
}
stem_err += BEAM_DEPTH + BEAM_SHIFT * (s.nflags - 1)
} else {
/*fixme: KO when two_staves*/
if (s1.stem > 0) {
if (s.stem > 0) {
/*fixme: KO when the voice numbers are inverted*/
if (s.ymn > ys + 4
|| s.ymx < ys - beam_h - 2)
continue
if (s.v > v)
stem_err = s.ymx - ys
else
stem_err = s.ymn + 8 - ys
} else {
stem_err = s.ymx - ys
}
} else {
if (s.stem < 0) {
if (s.ymx < ys - 4
|| s.ymn > ys - beam_h - 2)
continue
if (s.v < v)
stem_err = ys - s.ymn
else
stem_err = ys - s.ymx + 8
} else {
stem_err = ys - s.ymn
}
}
stem_err += 2 + beam_h
}
if (stem_err > max_stem_err)
max_stem_err = stem_err
}
} else { /* grace notes */
for ( ; ; s = s.next) {
ys = a * s.xs + b - staff_tb[s.st].y;
stem_err = GSTEM - 2
if (s.stem > 0)
stem_err -= ys - (3 * (s.notes[s.nhd].pit - 18))
else
stem_err += ys - (3 * (s.notes[0].pit - 18));
stem_err += 3 * (s.nflags - 1)
if (stem_err > max_stem_err)
max_stem_err = stem_err
if (s == s2)
break
}
}
if (max_stem_err > 0) /* shift beam if stems too short */
b += s1.stem * max_stem_err
// have room for the gracenotes and clefs
if (!two_staves && !two_dir)
for (s = s1.next; ; s = s.next) {
switch (s.type) {
case C.REST: /* cannot move rests in multi-voices */
if (!s.multi)
break
g = s.ts_next
if (!g || g.st != st
|| (g.type != C.NOTE && g.type != C.REST))
break
//fixme:too much vertical shift if some space above the note
//fixme:this does not fix rest under beam in second voice (ts_prev)
/*fall thru*/
// case C.BAR:
if (s.invis)
break
/*fall thru*/
case C.CLEF:
y = a * s.x + b
if (s1.stem > 0) {
y = s.ymx - y
+ BEAM_DEPTH + BEAM_SHIFT * (nflags - 1)
+ 2
if (y > 0)
b += y
} else {
y = s.ymn - y
- BEAM_DEPTH - BEAM_SHIFT * (nflags - 1)
- 2
if (y < 0)
b += y
}
break
case C.GRACE:
for (g = s.extra; g; g = g.next) {
y = a * g.x + b
if (s1.stem > 0) {
y = g.ymx - y
+ BEAM_DEPTH + BEAM_SHIFT * (nflags - 1)
+ 2
if (y > 0)
b += y
} else {
y = g.ymn - y
- BEAM_DEPTH - BEAM_SHIFT * (nflags - 1)
- 2
if (y < 0)
b += y
}
}
break
}
if (s == s2)
break
}
if (a == 0) /* shift flat beams onto staff lines */
b += b_pos(s1.grace, s1.stem, nflags, b - staff_tb[st].y)
/* adjust final stems and rests under beam */
for (s = s1; ; s = s.next) {
switch (s.type) {
case C.NOTE:
s.ys = a * s.xs + b - staff_tb[s.st].y
if (s.stem > 0) {
s.ymx = s.ys + 2.5
//fixme: hack
if (s.ts_prev
&& s.ts_prev.stem > 0
&& s.ts_prev.st == s.st
&& s.ts_prev.ymn < s.ymx
&& s.ts_prev.x == s.x
&& s.notes[0].shhd == 0) {
s.ts_prev.x -= 3; /* fix stem clash */
s.ts_prev.xs -= 3
}
} else {
s.ymn = s.ys - 2.5
}
break
case C.REST:
y = a * s.x + b - staff_tb[s.st].y
dy = BEAM_DEPTH + BEAM_SHIFT * (nflags - 1)
+ (s.head != C.FULL ? 4 : 9)
if (s1.stem > 0) {
y -= dy
if (s1.multi == 0 && y > 12)
y = 12
if (s.y <= y)
break
} else {
y += dy
if (s1.multi == 0 && y < 12)
y = 12
if (s.y >= y)
break
}
if (s.head != C.FULL)
y = (((y + 3 + 12) / 6) | 0) * 6 - 12;
s.y = y
break
}
if (s == s2)
break
}
/* save beam parameters */
if (staff_tb[st].y == 0) /* if staves not defined */
return false
bm.s1 = s1;
bm.a = a;
bm.b = b;
bm.nflags = nflags
return true
}
/* -- draw the beams for one word -- */
/* (the staves are defined) */
function draw_beams(bm) {
var s, i, beam_dir, shift, bshift, bstub, bh, da, bsh,
k, k1, k2, x1,
osh = 0, // shift other side
s1 = bm.s1,
s2 = bm.s2
/* -- draw a single beam -- */
function draw_beam(x1, x2, dy, h, bm,
n) { /* beam number (1..n) */
var y1, dy2,
s = bm.s1,
nflags = s.nflags
if (s.ntrem)
nflags -= s.ntrem
if (s.trem2 && n > nflags) {
if (s.dur >= C.BLEN / 2) {
x1 = s.x + 6;
x2 = bm.s2.x - 6
} else if (s.dur < C.BLEN / 4) {
var dx = x2 - x1
if (dx < 16) {
x1 += dx / 4
x2 -= dx / 4
} else {
x1 += 5
x2 -= 6
}
}
}
y1 = bm.a * x1 + bm.b - dy;
x2 -= x1;
x2 /= stv_g.scale;
dy2 = bm.a * x2 * stv_g.scale
xypath(x1, y1, true);
output += 'l' + x2.toFixed(1) + ' ' + (-dy2).toFixed(1) +
'v' + h.toFixed(1) +
'l' + (-x2).toFixed(1) + ' ' + dy2.toFixed(1) +
'z"/>\n'
} // draw_beam()
anno_start(s1, 'beam')
/*fixme: KO if many staves with different scales*/
// set_scale(s1)
if (!s1.grace) {
bshift = BEAM_SHIFT;
bstub = BEAM_STUB;
shift = .34; /* (half width of the stem) */
bh = BEAM_DEPTH
} else {
bshift = 3.5;
bstub = 3.2;
shift = .29;
bh = 1.8
}
bh /= stv_g.scale
/*fixme: quick hack for stubs at end of beam and different stem directions*/
beam_dir = s1.stem
if (s1.stem != s2.stem
&& s1.nflags > s2.nflags)
beam_dir = s2.stem
if (beam_dir < 0)
bh = -bh;
/* make first beam over whole word and adjust the stem lengths */
draw_beam(s1.xs - shift, s2.xs + shift, 0, bh, bm, 1);
da = 0
for (s = s1; ; s = s.next) {
if (s.type == C.NOTE
&& s.stem != beam_dir)
s.ys = bm.a * s.xs + bm.b
- staff_tb[s.st].y
+ bshift * (s.nflags - 1) * s.stem
- bh
if (s == s2)
break
}
if (s1.feathered_beam) {
da = bshift / (s2.xs - s1.xs)
if (s1.feathered_beam > 0) {
da = -da;
bshift = da * s1.xs
} else {
bshift = da * s2.xs
}
da = da * beam_dir
}
/* other beams with two or more flags */
shift = 0
for (i = 2; i <= bm.nflags; i++) {
shift += bshift
if (da != 0)
bm.a += da
for (s = s1; ; s = s.next) {
if (s.type != C.NOTE
|| s.nflags < i) {
if (s == s2)
break
continue
}
if (s.trem1
&& i > s.nflags - s.ntrem) {
x1 = (s.dur >= C.BLEN / 2) ? s.x : s.xs;
draw_beam(x1 - 5, x1 + 5,
(shift + 2.5) * beam_dir,
bh, bm, i)
if (s == s2)
break
continue
}
k1 = s
while (1) {
if (s == s2)
break
k = s.next
if (k.type == C.NOTE || k.type == C.REST) {
if (k.trem1){
if (k.nflags - k.ntrem < i)
break
} else if (k.nflags < i) {
break
}
}
if (k.beam_br1
|| (k.beam_br2 && i > 2))
break
s = k
}
k2 = s
while (k2.type != C.NOTE)
k2 = k2.prev;
x1 = k1.xs
bsh = shift * beam_dir
if (k1 == k2) {
if (k1 == s1) {
x1 += bstub
} else if (k1 == s2) {
x1 -= bstub
} else if (k1.beam_br1
|| (k1.beam_br2
&& i > 2)) {
x1 += bstub
} else {
k = k1.next
while (k.type != C.NOTE)
k = k.next
if (k.beam_br1
|| (k.beam_br2 && i > 2)) {
x1 -= bstub
} else {
k1 = k1.prev
while (k1.type != C.NOTE)
k1 = k1.prev
if (k1.nflags < k.nflags
|| (k1.nflags == k.nflags
&& k1.dots < k.dots))
x1 += bstub
else
x1 -= bstub
}
}
if (k1.stem != beam_dir) {
osh -= bshift
bsh = osh * beam_dir
k1.ys = bm.a * k1.xs + bm.b
- staff_tb[k1.st].y - bh
}
} else if (k1.stem == k2.stem && k1.stem != beam_dir) {
// inverted stems: put the beam on the other side
osh -= bshift
bsh = osh * beam_dir
for (s = k1; ; s = s.next) {
if (s.type == C.NOTE)
s.ys = bm.a * s.xs + bm.b
- staff_tb[s.st].y
- bh
if (s == k2)
break
}
}
draw_beam(x1, k2.xs,
bsh,
bh, bm, i)
if (s == s2)
break
}
}
if (s1.tmp)
unlksym(s1)
else if (s2.tmp)
unlksym(s2)
anno_stop(s1, 'beam')
}
/* -- draw the left side of the staves -- */
function draw_lstaff(x) {
var i, j, yb, h, fl,
nst = cur_sy.nstaff,
l = 0
/* -- draw a system brace or bracket -- */
function draw_sysbra(x, st, flag) {
var i, st_end, yt, yb
while (!cur_sy.st_print[st]) {
if (cur_sy.staves[st].flags & flag)
return
st++
}
i = st_end = st
while (1) {
if (cur_sy.st_print[i])
st_end = i
if (cur_sy.staves[i].flags & flag)
break
i++
}
yt = staff_tb[st].y + staff_tb[st].topbar
* staff_tb[st].staffscale;
yb = staff_tb[st_end].y + staff_tb[st_end].botbar
* staff_tb[st_end].staffscale
if (flag & (CLOSE_BRACE | CLOSE_BRACE2))
out_brace(x, yb, yt - yb)
else
out_bracket(x, yt, yt - yb)
}
for (i = 0; ; i++) {
fl = cur_sy.staves[i].flags
if (fl & (OPEN_BRACE | OPEN_BRACKET))
l++
if (cur_sy.st_print[i])
break
if (fl & (CLOSE_BRACE | CLOSE_BRACKET))
l--
if (i == nst)
break
}
for (j = nst; j > i; j--) {
if (cur_sy.st_print[j])
break
}
if (i == j && l == 0)
return
yb = staff_tb[j].y + staff_tb[j].botbar * staff_tb[j].staffscale;
h = staff_tb[i].y + staff_tb[i].topbar * staff_tb[i].staffscale - yb;
xypath(x, yb);
output += "v" + (-h).toFixed(1) + '"/>\n'
for (i = 0; i <= nst; i++) {
fl = cur_sy.staves[i].flags
if (fl & OPEN_BRACE)
draw_sysbra(x, i, CLOSE_BRACE)
if (fl & OPEN_BRACKET)
draw_sysbra(x, i, CLOSE_BRACKET)
if (fl & OPEN_BRACE2)
draw_sysbra(x - 6, i, CLOSE_BRACE2)
if (fl & OPEN_BRACKET2)
draw_sysbra(x - 6, i, CLOSE_BRACKET2)
}
}
/* -- draw the time signature -- */
function draw_meter(s) {
if (!s.a_meter)
return
var dx, i, j, meter, x,
st = s.st,
p_staff = staff_tb[st],
y = p_staff.y;
// adjust the vertical offset according to the staff definition
if (p_staff.stafflines != '|||||')
y += (p_staff.topbar + p_staff.botbar) / 2 - 12 // bottom
for (i = 0; i < s.a_meter.length; i++) {
meter = s.a_meter[i];
x = s.x + s.x_meter[i]
if (meter.bot) {
out_XYAB('\
\n\
A\n\
B\n\
\n', x, y + 6, m_gl(meter.top), m_gl(meter.bot))
} else {
out_XYAB('\
A\n',
x, y + 12, m_gl(meter.top))
}
}
}
var acc_nd = {} // cache of the microtonal accidentals
/* -- draw an accidental -- */
function draw_acc(x, y, a) {
if (typeof a == "object") { // if microtone
var c,
n = a[0],
d = a[1]
c = n + '_' + d
a = acc_nd[c]
if (!a) {
a = abc2svg.rat(Math.abs(n), d)
d = a[1]
a = (n < 0 ? -a[0] : a[0]).toString()
if (d != 1)
a += '_' + d
acc_nd[c] = a
}
}
xygl(x, y, "acc" + a)
}
// memorize the helper/ledger lines
function set_hl(p_st, n, x, dx1, dx2) {
var i, hl
if (n >= 0) {
hl = p_st.hlu[n]
if (!hl)
hl = p_st.hlu[n] = []
} else {
hl = p_st.hld[-n]
if (!hl)
hl = p_st.hld[-n] = []
}
for (i = 0; i < hl.length; i++) {
if (x >= hl[i][0])
break
}
if (i == hl.length) {
hl.push([x, dx1, dx2])
} else if (x > hl[i][0]) {
hl.splice(++i, 0, [x, dx1, dx2])
} else {
if (dx1 < hl[i][1])
hl[i][1] = dx1
if (dx2 > hl[i][2])
hl[i][2] = dx2
}
} // set_hl()
// draw helper lines
// (possible hook)
Abc.prototype.draw_hl = function(s) {
var i, j, n, note,
hla = [],
st = s.st,
p_staff = staff_tb[st]
// check if any helper line
if (!p_staff.hll
|| s.invis)
return // no helper line (no line)
for (i = 0; i <= s.nhd; i++) {
note = s.notes[i]
if (!p_staff.hlmap[note.pit - p_staff.hll])
hla.push([note.pit - 18,
note.shhd * stv_g.scale])
}
n = hla.length
if (!n)
return // no
// handle the helper lines out of the staff
var dx1, dx2, hl, shhd,hlp,
stafflines = p_staff.stafflines,
top = stafflines.length - 1,
yu = top,
bot = p_staff.botline / 6,
yl = bot,
dx = s.grace ? 4 : hw_tb[s.head] * 1.3
// get the x start and x stop of the intermediate helper lines
note = s.notes[s.stem < 0 ? s.nhd : 0]
shhd = note.shhd
for (i = 0; i < hla.length; i++) {
hlp = hla[i][0]
dx1 = (hla[i][1] < shhd ? hla[i][1] : shhd) - dx
dx2 = (hla[i][1] > shhd ? hla[i][1] : shhd) + dx
if (hlp < bot * 2) {
if (hlp < yl * 2)
yl = ++hlp >> 1
n--
} else if (hlp > top * 2) {
yu = hlp >> 1
n--
}
set_hl(p_staff, hlp >> 1, s.x, dx1, dx2)
}
dx1 = shhd - dx
dx2 = shhd + dx
while (++yl < bot)
set_hl(p_staff, yl,
s.x, dx1, dx2)
while (--yu > top)
set_hl(p_staff, yu,
s.x, dx1, dx2)
if (!n)
return // no more helper lines
// draw the helper lines inside the staff
i = yl;
j = yu
while (i > bot && stafflines[i] == '-')
i--
while (j < top && stafflines[j] == '-')
j++
for ( ; i < j; i++) {
if (stafflines[i] == '-')
set_hl(p_staff, i, s.x, dx1, dx2)
}
}
/* -- draw a key signature -- */
// (possible hook)
var sharp_cl = new Int8Array([24, 9, 15, 21, 6, 12, 18]),
flat_cl = new Int8Array([12, 18, 24, 9, 15, 21, 6]),
sharp1 = new Int8Array([-9, 12, -9, -9, 12, -9]),
sharp2 = new Int8Array([12, -9, 12, -9, 12, -9]),
flat1 = new Int8Array([9, -12, 9, -12, 9, -12]),
flat2 = new Int8Array([-12, 9, -12, 9, -12, 9])
Abc.prototype.draw_keysig = function(x, s) {
var old_sf = s.k_old_sf,
st = s.st,
staffb = staff_tb[st].y,
i, shift, p_seq,
clef_ix = s.k_y_clef,
a_acc = s.k_a_acc // accidental list [pit, acc]
// set the accidentals when K: with modified accidentals
function set_k_acc(a_acc, sf) {
var i, j, n, nacc, p_acc,
accs = [],
pits = []
if (sf > 0) {
for (nacc = 0; nacc < sf; nacc++) {
accs[nacc] = 1 // sharp
pits[nacc] = [26, 23, 27, 24, 21, 25, 22][nacc]
}
} else {
for (nacc = 0; nacc < -sf; nacc++) {
accs[nacc] = -1 // flat
pits[nacc] = [22, 25, 21, 24, 20, 23, 26][nacc]
}
}
n = a_acc.length
for (i = 0; i < n; i++) {
p_acc = a_acc[i]
for (j = 0; j < nacc; j++) {
if (pits[j] == p_acc.pit) {
accs[j] = p_acc.acc
break
}
}
if (j == nacc) {
accs[j] = p_acc.acc
pits[j] = p_acc.pit
nacc++
}
}
for (i = 0; i < nacc; i++) {
p_acc = a_acc[i]
if (!p_acc)
p_acc = a_acc[i] = {}
p_acc.acc = accs[i]
p_acc.pit = pits[i]
}
} // set_k_acc()
// ---- draw_keysig ---
if (clef_ix & 1)
clef_ix += 7;
clef_ix /= 2
while (clef_ix < 0)
clef_ix += 7;
clef_ix %= 7
/* normal accidentals */
if (a_acc && !s.exp) // if added accidentals
set_k_acc(a_acc, s.k_sf) // merge them into the key
if (!a_acc) {
/* put neutrals if 'accidental cancel' */
if (s.fmt.cancelkey || s.k_sf == 0) {
/* when flats to sharps, or sharps to flats, */
if (s.k_sf == 0
|| old_sf * s.k_sf < 0) {
/* old sharps */
shift = sharp_cl[clef_ix];
p_seq = shift > 9 ? sharp1 : sharp2
for (i = 0; i < old_sf; i++) {
xygl(x, staffb + shift, "acc3");
shift += p_seq[i];
x += 5.5
}
/* old flats */
shift = flat_cl[clef_ix];
p_seq = shift < 18 ? flat1 : flat2
for (i = 0; i > old_sf; i--) {
xygl(x, staffb + shift, "acc3");
shift += p_seq[-i];
x += 5.5
}
if (s.k_sf != 0)
x += 3 /* extra space */
}
}
/* new sharps */
if (s.k_sf > 0) {
shift = sharp_cl[clef_ix];
p_seq = shift > 9 ? sharp1 : sharp2
for (i = 0; i < s.k_sf; i++) {
xygl(x, staffb + shift, "acc1");
shift += p_seq[i];
x += 5.5
}
if (s.fmt.cancelkey && i < old_sf) {
x += 2
for (; i < old_sf; i++) {
xygl(x, staffb + shift, "acc3");
shift += p_seq[i];
x += 5.5
}
}
if (s.k_bagpipe == 'p') { // K:Hp - add the g natural
xygl(x, staffb + 27, "acc3")
x += 5.5
}
}
/* new flats */
if (s.k_sf < 0) {
shift = flat_cl[clef_ix];
p_seq = shift < 18 ? flat1 : flat2
for (i = 0; i > s.k_sf; i--) {
xygl(x, staffb + shift, "acc-1");
shift += p_seq[-i];
x += 5.5
}
if (s.fmt.cancelkey && i > old_sf) {
x += 2
for (; i > old_sf; i--) {
xygl(x, staffb + shift, "acc3");
shift += p_seq[-i];
x += 5.5
}
}
}
} else if (a_acc.length) {
/* explicit accidentals */
var acc,
last_acc = a_acc[0].acc,
last_shift = 100,
s2 = {
st: st,
nhd: 0,
notes: [{}]
}
for (i = 0; i < a_acc.length; i++) {
acc = a_acc[i];
shift = (s.k_y_clef // clef shift
+ acc.pit - 18) * 3
while (shift < -3) // let the accidentals inside the staff
shift += 21
while (shift > 27)
shift -= 21
if (i != 0
&& (shift > last_shift + 18
|| shift < last_shift - 18))
x -= 5.5 // no clash
else if (acc.acc != last_acc)
x += 3;
last_acc = acc.acc;
s2.x = x
s2.notes[0].pit = shift / 3 + 18;
// is this useful?
// s2.head = C.FULL
// s2.notes[0].shhd = 0
// self.draw_hl(s2)
last_shift = shift;
draw_acc(x, staffb + shift, acc.acc)
x += 5.5
}
}
}
// output the measure repeat number
function nrep_out(x, y, n) {
y -= 3
if (n < 10) {
xygl(x - 4, y, "mtr" + n)
} else {
xygl(x - 10, y, "mtr" + ((n / 10) | 0))
xygl(x - 2, y, "mtr" + (n % 10))
}
} // nrep_out()
// if rest alone in the measure or measure repeat,
// change the head and center
function center_rest(s) {
var s2, x
if (s.dur < C.BLEN * 2)
s.nflags = -2 // semibreve / whole
else if (s.dur < C.BLEN * 4)
s.nflags = -3
else
s.nflags = -4
s.dots = 0
/* don't use next/prev: there is no bar in voice overlay */
s2 = s.ts_next
while (s2.time != s.time + s.dur
&& s2.ts_next)
s2 = s2.ts_next
x = s2.x - s2.wl
s2 = s
while (!s2.seqst)
s2 = s2.ts_prev
s2 = s2.ts_prev
x = (x + s2.x + s2.wr) / 2
/* center the associated decorations */
if (s.a_dd)
deco_update(s, x - s.x)
s.x = x
} // center_rest()
/* -- draw a rest -- */
/* (the staves are defined) */
var rest_tb = [
"r128", "r64", "r32", "r16", "r8",
"r4",
"r2", "r1", "r0", "r00"]
function draw_rest(s) {
var s2, i, j, y, bx,
p_staff = staff_tb[s.st],
yb = p_staff.y, // bottom of staff
x = s.x
if (s.notes[0].shhd)
x += s.notes[0].shhd * stv_g.scale
if (s.rep_nb) {
set_sscale(s.st);
anno_start(s);
if (p_staff.stafflines == '|||||')
yb += 12
else
yb += (p_staff.topbar + p_staff.botbar) / 2
if (s.rep_nb < 0) {
xygl(x, yb, "srep")
} else {
xygl(x, yb, "mrep")
if (s.rep_nb > 2 && s.v == cur_sy.top_voice
&& s.fmt.measrepnb > 0
&& !(s.rep_nb % s.fmt.measrepnb))
nrep_out(x, yb + p_staff.topbar, s.rep_nb)
}
anno_a.push(s)
return
}
set_scale(s);
anno_start(s);
if (s.notes[0].color)
set_color(s.notes[0].color);
y = s.y;
i = 5 - s.nflags /* rest_tb index (5 = C_XFLAGS) */
if (i == 7 && y == 12
&& p_staff.stafflines.length <= 2)
y -= 6 /* semibreve a bit lower */
// draw the rest
if (!s.notes[0].invis) // if not head replacement
xygl(x, y + yb, rest_tb[i])
if (s.dots) {
x += 8;
y += yb + 3
j = s.dots
i = (s.dur_orig / 12) >> ((5 - s.nflags) - j)
while (j-- > 0) {
xygl(x, y, (i & (1 << j)) ? "dot" : "dot+")
x += 3.5
}
}
set_color();
anno_a.push(s)
}
// -- draw a multi-measure rest --
// (the staves are defined)
function draw_mrest(s) {
var x1, x2, prev,
p_st = staff_tb[s.st],
y = p_st.y + (p_st.topbar + p_st.botbar) / 2,
p = s.nmes.toString()
// output an old multimeasure rest
function omrest() {
var x = s.x,
y = p_st.y + 12,
n = s.nmes,
k = n >> 2 // number of rests
if (n & 3) {
k++
if (n & 3 == 3)
k++
}
//dx = 6
x -= 3 * (k - 1)
while (n >= 4) {
xygl(x, y, "r00")
n -= 4
x += 6
}
if (n >= 2) {
xygl(x, y, "r0")
n -= 2
x += 6
}
if (n)
xygl(x + 2, y, "r1")
} // omrest()
if (!s.next) {
error(1, s, "Lack of bar after multi-measure rest")
return
}
set_scale(s)
prev = s // search the start of the previous time sequence
while (!prev.seqst)
prev = prev.ts_prev
prev = prev.ts_prev
while (!prev.seqst)
prev = prev.ts_prev
x1 = prev.x + 20
x2 = s.next.x - 20
s.x = (x1 + x2) / 2
anno_start(s)
if (!cfmt.oldmrest || s.nmes > cfmt.oldmrest) {
out_XYAB('\n'
} else {
omrest() // old multirest
}
if (s.tacet)
out_XYAB('A\n',
s.x, y + 18, s.tacet)
else
out_XYAB('A\n',
s.x, y + 22, m_gl(p))
anno_a.push(s)
} // draw_mrest()
function grace_slur(s) {
var yy, x0, y0, x3, y3, bet1, bet2, dy1, dy2, last, below,
so = s,
g = s.extra
while (1) {
if (!g.next)
break /* (keep the last note) */
g = g.next
}
last = g
below = ((g.stem >= 0 || s.multi < 0) && g.notes[0].pit <= 28)
|| g.notes[0].pit < 16
if (below) {
yy = 127
for (g = s.extra; g; g = g.next) {
if (g.y < yy) {
yy = g.y;
last = g
}
}
x0 = last.x;
y0 = last.y - 5
if (s.extra != last) {
x0 -= 4;
y0 += 1
}
s = s.next;
x3 = s.x - 1
if (s.stem < 0 && s.nflags > -2)
x3 -= 4;
y3 = 3 * (s.notes[0].pit - 18) - 5;
dy1 = (x3 - x0) * .4
if (dy1 > 3)
dy1 = 3;
dy2 = dy1;
bet1 = .2;
bet2 = .8
if (y0 > y3 + 7) {
x0 = last.x - 1;
y0 += .5;
y3 += 6.5;
x3 = s.x - 5.5;
dy1 = (y0 - y3) * .8;
dy2 = (y0 - y3) * .2;
bet1 = 0
} else if (y3 > y0 + 4) {
y3 = y0 + 4;
x0 = last.x + 2;
y0 = last.y - 4
}
} else { // slur above
yy = -127
for (g = s.extra; g; g = g.next) {
if (g.y > yy) {
yy = g.y;
last = g
}
}
x0 = last.x;
y0 = last.y + 5
if (s.extra != last) {
x0 -= 4;
y0 -= 1
}
s = s.next;
x3 = s.x - 1
if (s.stem >= 0 && s.nflags > -2)
x3 -= 2;
y3 = 3 * (s.notes[s.nhd].pit - 18) + 5;
dy1 = (x0 - x3) * .4
if (dy1 < -3)
dy1 = -3;
dy2 = dy1;
bet1 = .2;
bet2 = .8
if (y0 < y3 - 7) {
x0 = last.x - 1;
y0 -= .5;
y3 -= 6.5;
x3 = s.x - 5.5;
dy1 = (y0 - y3) * .8;
dy2 = (y0 - y3) * .2;
bet1 = 0
} else if (y3 < y0 - 4) {
y3 = y0 - 4;
x0 = last.x + 2;
y0 = last.y + 4
}
}
so.slur = {
x0: x0,
y0: y0,
x1: bet1 * x3 + (1 - bet1) * x0 - x0,
y1: y0 - bet1 * y3 - (1 - bet1) * y0 + dy1,
x2: bet2 * x3 + (1 - bet2) * x0 - x0,
y2: y0 - bet2 * y3 - (1 - bet2) * y0 + dy2,
x3: x3 - x0,
y3: y0 - y3
}
y0 -= so.slur.y1
g = so.extra
//fixme: useless?
// y_set(s.st, !below, x0, x3 - x0, y0)
if (below) {
if (y0 < g.ymn)
g.ymn = y0
} else {
if (y0 > g.ymx)
g.ymx = y0
}
} // grace_slur()
/* -- draw grace notes -- */
/* (the staves are defined) */
function draw_gracenotes(s) {
var x1, y1,
last, note,
bm = {},
g = s.extra
/* draw the notes */
// bm.s2 = undefined /* (draw flags) */
while (1) {
if (g.beam_st && !g.beam_end) {
if (self.calculate_beam(bm, g))
draw_beams(bm)
}
anno_start(g)
draw_note(g, !bm.s2)
if (g == bm.s2)
bm.s2 = null /* (draw flags again) */
anno_a.push(s)
// if (g.sls || g.sl2)
// slur = true
if (!g.next)
break /* (keep the last note) */
g = g.next
}
last = g
// if an acciaccatura, draw a bar
if (s.sappo) {
g = s.extra
if (!g.next) { /* if one note */
x1 = 9
y1 = g.stem > 0 ? 5 : -5
} else { /* many notes */
x1 = (g.next.x - g.x) * .5 + 4
y1 = (g.ys + g.next.ys) * .5 - g.y
if (g.stem > 0)
y1 -= 1
else
y1 += 1
}
note = g.notes[g.stem < 0 ? 0 : g.nhd]
out_acciac(x_head(g, note), y_head(g, note),
x1, y1, g.stem > 0)
}
/* slur */
g = s.slur
if (g) {
anno_start(s, 'slur')
xypath(g.x0, g.y0 + staff_tb[s.st].y)
output += 'c' + g.x1.toFixed(1) + ' ' + g.y1.toFixed(1) +
' ' + g.x2.toFixed(1) + ' ' + g.y2.toFixed(1) +
' ' + g.x3.toFixed(1) + ' ' + g.y3.toFixed(1) + '"/>\n'
anno_stop(s, 'slur')
}
}
/* -- set the y offset of the dots -- */
function setdoty(s, y_tb) {
var m, m1, y
/* set the normal offsets */
for (m = 0; m <= s.nhd; m++) {
y = 3 * (s.notes[m].pit - 18) /* note height on staff */
if ((y % 6) == 0) {
if (s.dot_low)
y -= 3
else
y += 3
}
y_tb[m] = y
}
/* dispatch and recenter the dots in the staff spaces */
for (m = 0; m < s.nhd; m++) {
if (y_tb[m + 1] > y_tb[m])
continue
m1 = m
while (m1 > 0) {
if (y_tb[m1] > y_tb[m1 - 1] + 6)
break
m1--
}
if (3 * (s.notes[m1].pit - 18) - y_tb[m1]
< y_tb[m + 1] - 3 * (s.notes[m + 1].pit - 18)) {
while (m1 <= m)
y_tb[m1++] -= 6
} else {
y_tb[m + 1] = y_tb[m] + 6
}
}
}
// get the x and y position of a note head
// (when the staves are defined)
function x_head(s, note) {
return s.x + note.shhd * stv_g.scale
}
function y_head(s, note) {
return staff_tb[s.st].y + 3 * (note.pit - 18)
}
/* -- draw m-th head with accidentals and dots -- */
/* (the staves are defined) */
// sets {x,y}_note
function draw_basic_note(s, m, y_tb) {
var i, p, yy, dotx, doty, inv,
old_color = false,
note = s.notes[m],
staffb = staff_tb[s.st].y, /* bottom of staff */
x = s.x,
y = 3 * (note.pit - 18), /* note height on staff */
shhd = note.shhd * stv_g.scale,
x_note = x + shhd,
y_note = y + staffb
// /* special case for voice unison */
// if (s.nohdi1 != undefined
// && m >= s.nohdi1 && m < s.nohdi2)
// return
var elts = identify_note(s, note.dur),
head = elts[0],
dots = elts[1],
nflags = elts[2]
/* draw the head */
if (note.invis) {
;
} else if (s.grace) { // don't apply %%map to grace notes
p = "ghd";
x_note -= 4.5 * stv_g.scale
} else if (note.map && note.map[0]) {
i = s.head;
p = note.map[0][i] // heads
if (!p)
p = note.map[0][note.map[0].length - 1]
i = p.indexOf('/')
if (i >= 0) { // stem dependant
if (s.stem >= 0)
p = p.slice(0, i)
else
p = p.slice(i + 1)
}
} else if (s.type == C.CUSTOS) {
p = "custos"
} else {
switch (head) {
case C.OVAL:
p = "HD"
break
case C.OVALBARS:
if (s.head != C.SQUARE) {
p = "HDD"
break
}
// fall thru
case C.SQUARE:
if (nflags > -4) {
p = "breve"
} else {
p = "longa"
inv = s.stem > 0
}
/* don't display dots on last note of the tune */
if (!tsnext && s.next
&& s.next.type == C.BAR && !s.next.next)
dots = 0
x_note += 1
break
case C.EMPTY:
p = "Hd" // white note
break
default: // black note
p = "hd"
break
}
}
if (note.color != undefined)
old_color = set_color(note.color)
if (p) {
if (inv) {
g_open(x_note, y_note, 0, 1, -1);
x_note = y_note = 0
}
if (!self.psxygl(x_note, y_note, p))
xygl(x_note, y_note, p)
if (inv)
g_close()
}
/* draw the dots */
/*fixme: to see for grace notes*/
if (dots) {
dotx = x + (7.7 + s.xmx) * stv_g.scale
if (y_tb[m] == undefined) {
y_tb[m] = 3 * (s.notes[m].pit - 18)
if ((s.notes[m].pit & 1) == 0)
y_tb[m] += 3
}
doty = y_tb[m] + staffb
i = (note.dur / 12) >> ((5 - nflags) - dots)
while (dots-- > 0) {
xygl(dotx, doty, (i & (1 << dots)) ? "dot" : "dot+")
dotx += 3.5
}
}
/* draw the accidental */
if (note.acc) {
x -= note.shac * stv_g.scale
if (!s.grace) {
draw_acc(x, y + staffb, note.acc)
} else {
g_open(x, y + staffb, 0, .75);
draw_acc(0, 0, note.acc)
g_close()
}
}
if (old_color != false)
set_color(old_color)
}
/* -- draw a note or a chord -- */
/* (the staves are defined) */
function draw_note(s,
fl) { // draw flags
var s2, i, m, y, slen, c, nflags,
y_tb = new Array(s.nhd + 1),
note = s.notes[s.stem < 0 ? s.nhd : 0], // master note head
x = x_head(s, note),
y = y_head(s, note),
staffb = staff_tb[s.st].y
if (s.dots)
setdoty(s, y_tb)
/* draw the stem and flags */
if (!s.stemless) {
slen = s.ys - s.y;
nflags = s.nflags
if (s.ntrem)
nflags -= s.ntrem
if (!fl || nflags <= 0) { /* stem only */
if (s.nflags > 0) { /* (fix for PS low resolution) */
if (s.stem >= 0)
slen -= 1
else
slen += 1
}
out_stem(x, y, slen, s.grace)
} else { /* stem and flags */
out_stem(x, y, slen, s.grace,
nflags, s.fmt.straightflags)
}
} else if (s.xstem) { /* cross-staff stem */
s2 = s.ts_prev;
slen = (s2.stem > 0 ? s2.y : s2.ys) - s.y;
slen += staff_tb[s2.st].y - staffb;
out_stem(x, y, slen)
}
/* draw the tremolo bars */
if (fl && s.trem1) {
var ntrem = s.ntrem || 0,
x1 = x;
slen = 3 * (s.notes[s.stem > 0 ? s.nhd : 0].pit - 18)
if (s.head == C.FULL || s.head == C.EMPTY) {
x1 += (s.grace ? GSTEM_XOFF : 3.5) * s.stem
if (s.stem > 0)
slen += 6 + 5.4 * ntrem
else
slen -= 6 + 5.4
} else {
if (s.stem > 0)
slen += 5 + 5.4 * ntrem
else
slen -= 5 + 5.4
}
slen /= s.p_v.scale;
out_trem(x1, staffb + slen, ntrem)
}
/* draw the note heads */
for (m = 0; m <= s.nhd; m++)
draw_basic_note(s, m, y_tb)
}
// find where to start a long decoration
function prev_scut(s) {
while (s.prev) {
s = s.prev
if (s.rbstart)
return s
}
/* return a symbol of any voice starting before the start of the voice */
s = s.p_v.sym
while (s.type != C.CLEF)
s = s.ts_prev /* search a main voice */
if (s.next && s.next.type == C.KEY)
s = s.next
if (s.next && s.next.type == C.METER)
return s.next
return s
}
/* -- decide whether a slur goes up or down (same voice) -- */
function slur_direction(k1, k2) {
var s, some_upstem, low, dir
// check if slur sequence in a multi-voice staff
function slur_multi(s1, s2) {
// while (1) {
// if (s1.multi) // if multi voice
// //fixme: may change
// return s1.multi
// if (s1 == s2)
// break
// s1 = s1.next
// }
if (s1.multi)
return s1.multi
if (s2.multi)
return s2.multi
return 0
} // slur_multi()
if (k1.grace && k1.stem > 0)
return -1
dir = slur_multi(k1, k2)
if (dir)
return dir
for (s = k1; ; s = s.next) {
if (s.type == C.NOTE) {
if (!s.stemless) {
if (s.stem < 0)
return 1
some_upstem = true
}
if (s.notes[0].pit < 22) /* if under middle staff */
low = true
}
// if (s == k2)
if (s.time == k2.time) // (k2 may be a grace note)
break
}
if (!some_upstem && !low)
return 1
return -1
}
/* -- output a slur / tie -- */
function slur_out(x1, y1, x2, y2, dir, height, dotted) {
var dx, dy, dz,
alfa = .3,
beta = .45;
/* for wide flat slurs, make shape more square */
dy = y2 - y1
if (dy < 0)
dy = -dy;
dx = x2 - x1
if (dx > 40. && dy / dx < .7) {
alfa = .3 + .002 * (dx - 40.)
if (alfa > .7)
alfa = .7
}
/* alfa, beta, and height determine Bezier control points pp1,pp2
*
* X====alfa===|===alfa=====X
* / | \
* pp1 | pp2
* / height \
* beta | beta
* / | \
* p1 m p2
*
*/
var mx = .5 * (x1 + x2),
my = .5 * (y1 + y2),
xx1 = mx + alfa * (x1 - mx),
yy1 = my + alfa * (y1 - my) + height;
xx1 = x1 + beta * (xx1 - x1);
yy1 = y1 + beta * (yy1 - y1)
var xx2 = mx + alfa * (x2 - mx),
yy2 = my + alfa * (y2 - my) + height;
xx2 = x2 + beta * (xx2 - x2);
yy2 = y2 + beta * (yy2 - y2);
// dy = 1.6 * dir
dy = 2 * dir;
dz = .2 + .001 * dx
if (dz > .6)
dz = .6;
dz *= dir
dx *= .03
// if (dx > 10.)
// dx = 10.
// var scale_y = stv_g.st < 0 ? stv_g.scale : 1
var scale_y = 1 // (see set_dscale())
if (!dotted)
output += '\n'
}
// draw a slur between two chords / notes
/* (the staves are not yet defined) */
/* (delayed output) */
/* (not a pretty routine, this) */
function draw_slur(path, // list of symbols under the slur
sl, // slur variables: type, end symbol, note
recurr) { // recurrent call when slur on two staves
var i,
k, g, x1, y1, x2, y2, height, addy, s_st2,
a, y, z, h, dx, dy,
ty = sl.ty,
dir = (ty & 0x07) == C.SL_ABOVE ? 1 : -1,
n = path.length,
i1 = 0,
i2 = n - 1,
not1 = sl.nts, // if the slur starts on a note
k1 = path[0],
k2 = path[i2],
nn = 1
set_dscale(k1.st)
for (i = 1; i < n; i++) {
k = path[i]
if (k.type == C.NOTE || k.type == C.REST) {
nn++
if (k.st != k1.st
&& !s_st2)
s_st2 = k
}
}
// if slur on 2 staves, define it, but don't output it now
// this will be done in draw_sl2()
if (s_st2 && !recurr) { // if not 2nd call to draw_slur()
if (!gene.a_sl)
gene.a_sl = []
// replace the symbols of the other staff
// by symbols in the current staff but with updated y offsets
h = 24 + k1.fmt.sysstaffsep // delta y
if (s_st2.st > k1.st)
h = -h
for (i = 0; i < n; i++) {
k = path[i]
if (k.st == k1.st) {
if (k.dur)
a = k // (used for types // and \\)
continue
}
k = clone(k)
if (path[i] == s_st2)
s_st2 = k
path[i] = k
if (k.dur) {
k.notes = clone(k.notes)
k.notes[0] = clone(k.notes[0])
if (sl.ty & C.SL_CENTER) {
if (k.st != a.st) {
sl.ty = (sl.ty & ~0x07)
| (a.st < k.st
? C.SL_BELOW
: C.SL_ABOVE)
z = k1.ymn
h = k2.ymx
if (k.st < a.st) {
for (i1 = 1; i1 < i; i1++) {
a = path[i1]
if (a.ymn < z)
z = a.ymn
}
for (i1 = i; i1 < i2; i1++) {
a = path[i1]
if (a.ymx > h)
h = a.ymx
}
} else {
for (i1 = 1; i1 < i; i1++) {
a = path[i1]
if (a.ymx > h)
h = a.ymx
}
for (i1 = i; i1 < i2; i1++) {
a = path[i1]
if (a.ymn < z)
z = a.ymn
}
}
h += z
a = k
}
k.y = h - k.y
k.notes[0].pit = (k.y / 3 | 0) + 18
k.ys = h - k.ys
y = k.ymx
k.ymx = h - k.ymn
k.ymn = h - y
k.stem = -k.stem
} else {
k.notes[0].pit += h / 3 | 0
k.ys += h
k.y += h
k.ymx += h
k.ymn += h
}
}
// k.st = k1.st // keep the staff number for draw_sl2()
}
ty = k1.st > s_st2.st ? '/' : '\\'
if (sl.ty & C.SL_CENTER)
ty = ty + ty // type = // or \\
else if (k1.st == k2.st)
ty = ty == '/' ? '/\\' : '\\/' // type = /\ or \/
else
ty += dir > 0 ? '+' : '-' // type = .+ or .-
var savout = output
output = ""
draw_slur(path, sl, 1 /*true*/)
gene.a_sl.push([k1, s_st2, ty, output])
output = savout
return
}
/* fix endpoints */
x1 = k1.x
if (k1.notes && k1.notes[0].shhd)
x1 += k1.notes[0].shhd;
x2 = k2.x
if (k2.notes)
x2 += k2.notes[0].shhd
if (not1) { // start on a note
y1 = 3 * (not1.pit - 18) + 2 * dir
x1 += 3
} else { // start on a chord
y1 = dir > 0 ? k1.ymx + 2 : k1.ymn - 2
if (k1.type == C.NOTE) {
if (dir > 0) {
if (k1.stem > 0) {
x1 += 5
if (k1.beam_end
&& k1.nflags >= -1 /* if with a stem */
//fixme: check if at end of tuplet
&& !k1.in_tuplet) {
if (k1.nflags > 0) {
x1 += 2;
y1 = k1.ys - 3
} else {
y1 = k1.ys - 6
}
} else {
y1 = k1.ys + 3
}
} else {
y1 = k1.y + 8
}
} else {
if (k1.stem < 0) {
x1 -= 1
if (k2.grace) {
y1 = k1.y - 8
} else if (k1.beam_end
&& k1.nflags >= -1
&& (!k1.in_tuplet
|| k1.ys < y1 + 3)) {
if (k1.nflags > 0) {
x1 += 2;
y1 = k1.ys + 3
} else {
y1 = k1.ys + 6
}
} else {
y1 = k1.ys - 3
}
} else {
y1 = k1.y - 8
}
}
}
}
if (sl.nte) { // slur ending on a note
y2 = 3 * (sl.nte.pit - 18) + 2 * dir
x2 -= 3
} else { // end on a chord
y2 = dir > 0 ? k2.ymx + 2 : k2.ymn - 2
if (k2.type == C.NOTE) {
if (dir > 0) {
if (k2.stem > 0) {
x2 += 1
if (k2.beam_st
&& k2.nflags >= -1
&& !k2.in_tuplet)
y2 = k2.ys - 6
else
y2 = k2.ys + 3
} else {
y2 = k2.y + 8
}
} else {
if (k2.stem < 0) {
x2 -= 5
if (k2.beam_st
&& k2.nflags >= -1
&& !k2.in_tuplet)
// || k2.ys < y2 + 3))
y2 = k2.ys + 6
else
y2 = k2.ys - 3
} else {
y2 = k2.y - 8
}
}
}
}
if (k1.type != C.NOTE) {
y1 = y2 + 1.2 * dir;
x1 = k1.x + k1.wr * .5
if (x1 > x2 - 12)
x1 = x2 - 12
}
if (k2.type != C.NOTE) {
if (k1.type == C.NOTE)
y2 = y1 + 1.2 * dir
else
y2 = y1
if (k1 != k2)
x2 = k2.x - k2.wl * .3
}
if (nn >= 3) {
k = path[1]
if (k.type != C.BAR
&& k.x < x1 + 48) {
if (dir > 0) {
y = k.ymx - 2
if (y1 < y)
y1 = y
} else {
y = k.ymn + 2
if (y1 > y)
y1 = y
}
}
k = path[i2 - 1]
if (k.type != C.BAR
&& k.x > x2 - 48) {
if (dir > 0) {
y = k.ymx - 2
if (y2 < y)
y2 = y
} else {
y = k.ymn + 2
if (y2 > y)
y2 = y
}
}
}
a = (y2 - y1) / (x2 - x1) /* slur steepness */
if (a > SLUR_SLOPE || a < -SLUR_SLOPE) {
a = a > SLUR_SLOPE ? SLUR_SLOPE : -SLUR_SLOPE
if (a * dir > 0)
y1 = y2 - a * (x2 - x1)
else
y2 = y1 + a * (x2 - x1)
}
/* for big vertical jump, shift endpoints */
y = y2 - y1
if (y > 8)
y = 8
else if (y < -8)
y = -8
z = y
if (z < 0)
z = -z;
dx = .5 * z;
dy = .3 * y
if (y * dir > 0) {
x2 -= dx;
y2 -= dy
} else {
x1 += dx;
y1 += dy
}
/* special case for grace notes */
if (k1.grace)
x1 = k1.x - GSTEM_XOFF * .5
if (k2.grace)
x2 = k2.x + GSTEM_XOFF * 1.5;
h = 0;
a = (y2 - y1) / (x2 - x1)
if (k1 != k2
&& k1.v == k2.v) {
addy = y1 - a * x1
for (i = 1; i < i2; i++) {
k = path[i]
switch (k.type) {
case C.NOTE:
case C.REST:
if (dir > 0) {
y = 3 * (k.notes[k.nhd].pit - 18) + 6
if (y < k.ymx)
y = k.ymx;
y -= a * k.x + addy
if (y > h)
h = y
} else {
y = 3 * (k.notes[0].pit - 18) - 6
if (y > k.ymn)
y = k.ymn;
y -= a * k.x + addy
if (y < h)
h = y
}
break
case C.GRACE:
for (g = k.extra; g; g = g.next) {
if (dir > 0) {
y = 3 * (g.notes[g.nhd].pit - 18) + 6
if (y < g.ymx)
y = g.ymx;
y -= a * g.x + addy
if (y > h)
h = y
} else {
y = 3 * (g.notes[0].pit - 18) - 6
if (y > g.ymn)
y = g.ymn;
y -= a * g.x + addy
if (y < h)
h = y
}
}
break
}
}
y1 += .45 * h;
y2 += .45 * h;
h *= .65
}
if (nn > 3)
height = (.08 * (x2 - x1) + 12) * dir
else
height = (.03 * (x2 - x1) + 8) * dir
if (dir > 0) {
if (height < 3 * h)
height = 3 * h
if (height > 40)
height = 40
} else {
if (height > 3 * h)
height = 3 * h
if (height < -40)
height = -40
}
y = y2 - y1
if (y < 0)
y = -y
if (dir > 0) {
if (height < .8 * y)
height = .8 * y
} else {
if (height > -.8 * y)
height = -.8 * y
}
height *= k1.fmt.slurheight;
// anno_start(k1_o, 'slur');
slur_out(x1, y1, x2, y2, dir, height, ty & C.SL_DOTTED);
// anno_stop(k1_o, 'slur');
/* have room for other symbols */
dx = x2 - x1;
a = (y2 - y1) / dx;
/*fixme: it seems to work with .4, but why?*/
// addy = y1 - a * x1 + .4 * height
//fixme: the following code seems better!
addy = y1 - a * x1
if (height > 0)
addy += 4 * Math.sqrt(height) - 2
else
addy -= 4 * Math.sqrt(-height) - 2
for (i = 0; i < i2; i++) {
k = path[i]
if (k.st != k1.st || k.type == C.BAR)
continue
y = a * k.x + addy
if (k.ymx < y)
k.ymx = y
else if (k.ymn > y)
k.ymn = y
if (recurr) // no room when slur on 2 staves
continue
if (i == i2 - 1) {
dx = x2
if (sl.nte)
dx -= 5;
} else {
dx = k.x + k.wr
}
if (i != 0)
x1 = k.x
if (!i || i == i2)
y -= height / 3
dx -= x1 - k.wl
y_set(k1.st, dir > 0, x1 - k.wl, dx, y)
}
}
/* -- draw the slurs between 2 symbols --*/
function draw_slurs(s, last) {
var gr1, i, m, note, sls, nsls
// draw a slur knowing the start and stop elements
function draw_sls(s, // start symbol
sl) { // slur variables
var k, v, i, dir, s3,
path = [],
s2 = sl.se // slur end
if (last && s2.time > last.time)
return // will be drawn next time
// handle slurs without start or end
switch (sl.loc) {
case 'i': // no start
s = prev_scut(s)
break
case 'o': // no end
for (s3 = s; s3.ts_next; s3 = s3.ts_next)
;
s2 = s3
for (; s3; s3 = s3.ts_prev) {
if (s3.v == s.v) {
s2 = s3
break
}
if (s3.st == s.st)
s2 = s3
if (s3.ts_prev.time != s2.time)
break
}
break
}
// if the slur continues on the next music line,
// stop it at the end of the current line
if (s.p_v.s_next && s2.time >= tsnext.time) {
if (s2.time == tsnext.time) {
if (s2.grace) {
for (s3 = tsnext; s3 && s3.time == s2.time; s3 = s3.ts_next) {
if (s3.type == C.GRACE) {
s3 = null
break
}
}
} else {
for (s3 = tsnext; s3.time == s2.time; s3 = s3.ts_next) {
if (s3 == s2) {
s3 = null // end of slur in next line
break
}
}
}
} else {
s3 = null
}
if (!s3) {
s.p_v.sls.push(sl); // continuation on next line
s2 = s.p_v.s_next.prev // one voice
while (s2.next)
s2 = s2.next; // search the ending bar
sl = Object.create(sl); // new slur
}
}
// set the slur position
switch (sl.ty & 0x07) {
case C.SL_ABOVE: dir = 1; break
case C.SL_BELOW: dir = -1; break
default:
dir = s.v != s2.v ?
1 : // always above ?
slur_direction(s, s2)
sl.ty &= ~0x07
sl.ty |= dir > 0 ? C.SL_ABOVE : C.SL_BELOW
break
}
// build the path of the symbols under the slur
if (s.v == s2.v) {
v = s.v
} if (!cur_sy.voices[s.v] || !cur_sy.voices[s2.v]) {
v = s.v > s2.v ? s.v : s2.v
} else if (dir * // if slur on first voice
(cur_sy.voices[s.v].range <= cur_sy.voices[s2.v].range ?
1 : -1) > 0)
v = s.v
else
v = s2.v
if (gr1 // if start on a grace note
&& !(s2.grace // and not end in the same
&& s.v == s2.v // grace note sequence
&& s.time == s2.time)) {
do {
path.push(s); // add all grace notes
s = s.next
} while (s);
s = gr1.next
} else {
path.push(s);
if (s.grace)
s = s.next
else
s = s.ts_next
}
if (!s2.grace) { // if end on a normal note
while (s) {
if (s.v == v)
path.push(s)
if (s == s2)
break
s = s.ts_next
}
} else if (s.grace) { // if start/end in the same sequence
while (1) {
// if (s.v == v)
path.push(s)
if (s == s2)
break
s = s.next
}
} else { // end on a grace note
k = s2
while (k.prev)
k = k.prev // .extra pointer
while (1) {
if (s.v == v)
path.push(s)
if (s.extra == k)
break
s = s.ts_next
}
s = k
while (1) {
path.push(s)
if (s == s2)
break
s = s.next
}
}
// if some nested slurs/tuplets, draw them
for (i = 1; i < path.length - 1; i++) {
s = path[i]
if (s.sls)
draw_slurs(s, last)
if (s.tp)
draw_tuplet(s)
}
draw_slur(path, sl)
return 1 // slur drawn, remove it
} // draw_sls()
// code of draw_slurs()
while (1) {
if (!s || s == last) {
if (!gr1 // if end of grace notes
|| !(s = gr1.next) // return to normal notes
|| s == last)
break
gr1 = null
}
if (s.type == C.GRACE) { // if start of grace notes
gr1 = s; // continue in the grace note sequence
s = s.extra
continue
}
if (s.sls) { // slurs from the chord
sls = s.sls
s.sls = null
nsls = []
for (i = 0; i < sls.length; i++) {
if (!draw_sls(s, sls[i]))
nsls.push(sls[i])
}
if (nsls.length)
s.sls = nsls
}
s = s.next
}
}
/* -- draw a tuplet -- */
/* (the staves are not yet defined) */
/* (delayed output) */
/* See http://moinejf.free.fr/abcm2ps-doc/tuplets.html
* for the value of 'tp.f' */
function draw_tuplet(s1) {
var s2, s3, g, stu, std, nb_only,
x1, x2, y1, y2, xm, ym, a, s0, yy, yx, dy, a, dir, r,
tp = s1.tp.shift() // tuplet parameters
if (!s1.tp.length)
delete s1.tp // last tuplet
// treat the slurs and the nested tuplets
stu = std = s1.st
for (s2 = s1; s2; s2 = s2.next) {
switch (s2.type) {
case C.GRACE:
if (!s2.sl1)
continue
for (g = s2.extra; g; g = g.next) {
if (g.sls)
draw_slurs(g)
}
// fall thru
default:
continue
case C.NOTE:
case C.REST:
break
}
if (s2.sls)
draw_slurs(s2)
if (s2.st < stu) {
std = stu
stu = s2.st
} else if (s2.st > std) {
std = s2.st
}
if (s2.tp)
draw_tuplet(s2)
if (s2.tpe)
break
}
if (s2)
s2.tpe--
if (tp.f[0] == 1) // if 'when' == never
return // accept tuplets on many lines
if (!s2) {
error(1, s1, "No end of tuplet in this music line")
return
}
dir = tp.f[3] // 'where'
if (!dir) { // if auto
s3 = s1
while (s3 && !s3.stem) // (may have tuplets of rests!)
s3 = s3.next
dir = (s3 && s3.stem < 0) ? C.SL_BELOW : C.SL_ABOVE
}
set_dscale(dir == C.SL_ABOVE ? stu : std)
if (s1 == s2 // tuplet with 1 note (!)
|| tp.f[1] == 2) { // what == nothing
nb_only = true
} else if (tp.f[1] == 1) { /* 'what' == slur */
nb_only = true;
draw_slur([s1, s2], {ty: dir})
} else {
/* search if a bracket is needed */
if (tp.f[0] != 2 // if 'when' != always
&& s1.type == C.NOTE && s2.type == C.NOTE) {
nb_only = true
for (s3 = s1; ; s3 = s3.next) {
if (s3.type != C.NOTE
&& s3.type != C.REST) {
if (s3.type == C.GRACE
|| s3.type == C.SPACE)
continue
nb_only = false
break
}
if (s3 == s2)
break
if (s3.beam_end) {
nb_only = false
break
}
}
if (nb_only
&& !s1.beam_st
&& !s1.beam_br1
&& !s1.beam_br2) {
for (s3 = s1.prev; s3; s3 = s3.prev) {
if (s3.type == C.NOTE
|| s3.type == C.REST) {
if (s3.nflags >= s1.nflags)
nb_only = false
break
}
}
}
if (nb_only && !s2.beam_end) {
for (s3 = s2.next; s3; s3 = s3.next) {
if (s3.type == C.NOTE
|| s3.type == C.REST) {
if (!s3.beam_br1
&& !s3.beam_br2
&& s3.nflags >= s2.nflags)
nb_only = false
break
}
}
}
}
}
/* if number only, draw it */
if (nb_only) {
if (tp.f[2] == 1) /* if 'which' == none */
return
set_font("tuplet")
xm = (s2.x + s1.x) / 2
if (dir == C.SL_ABOVE) // 8 = width around the middle
ym = y_get(stu, 1, xm - 4, 8)
else
ym = y_get(std, 0, xm - 4, 8) -
gene.curfont.size
if (s1.stem * s2.stem > 0) {
if (s1.stem > 0)
xm += 4
else
xm -= 4
}
yy = ym + gene.curfont.size * .22
if (tp.f[2] == 0) // if 'which' == number
xy_str(xm, yy, tp.p.toString(), 'c')
else
xy_str(xm, yy, tp.p + ':' + tp.q, 'c')
for (s3 = s1; ; s3 = s3.next) {
if (s3.x >= xm)
break
}
if (dir == C.SL_ABOVE) {
ym += gene.curfont.size
if (s3.ymx < ym)
s3.ymx = ym;
y_set(stu, 1, xm - 3, 6, ym)
} else {
if (s3.ymn > ym)
s3.ymn = ym;
y_set(std, 0, xm - 3, 6, ym)
}
return
}
// here, 'what' is square bracket
/*fixme: two staves not treated*/
/*fixme: to optimize*/
// first, get the x offsets
x1 = s1.x - 4
// end the bracket according to the last note duration
if (s2.dur > s2.prev.dur) {
s3 = s2.next
if (!s3 // maybe a note in an overlay voice
|| s3.time != s2.time + s2.dur) {
for (s3 = s2.ts_next; s3; s3 = s3.ts_next) {
if (s3.seqst
&& s3.time >= s2.time + s2.dur)
break
}
}
//fixme: s3 cannot be null (bar at end of staff)
x2 = s3 ? s3.x - s3.wl - 5 : realwidth - 6
} else {
x2 = s2.x + 4
r = s2.stem >= 0 ? 0 : s2.nhd
if (s2.notes[r].shhd > 0)
x2 += s2.notes[r].shhd
if (s2.st == stu
&& s2.stem > 0)
x2 += 3.5
}
// above
if (dir == C.SL_ABOVE) {
if (s1.st >= s2.st) {
if (s1.stem > 0)
x1 += 3
ym = y_get(s1.st, 1, x1 - 4, 8)
y1 = ym > staff_tb[s1.st].topbar + 2
? ym
: staff_tb[s1.st].topbar + 2
} else {
y1 = staff_tb[s1.st].topbar + 2
}
if (s2.st >= s1.st) {
ym = y_get(s2.st, 1, x2 - 4, 8)
y2 = ym > staff_tb[s2.st].topbar + 2
? ym
: staff_tb[s2.st].topbar + 2
} else {
y2 = staff_tb[s2.st].topbar + 2
}
xm = .5 * (x1 + x2);
ym = .5 * (y1 + y2);
a = (y2 - y1) / (x2 - x1);
s0 = 3 * (s2.notes[s2.nhd].pit - s1.notes[s1.nhd].pit) / (x2 - x1)
if (s0 > 0) {
if (a < 0)
a = 0
else if (a > s0)
a = s0
} else {
if (a > 0)
a = 0
else if (a < s0)
a = s0
}
a = s1.fmt.beamslope * a / (s1.fmt.beamslope + Math.abs(a))
if (a * a < .1 * .1)
a = 0
/* shift up bracket if needed */
dy = 0
for (s3 = s1; ; s3 = s3.next) {
if (!s3.dur /* not a note or a rest */
|| s3.st != stu) {
if (s3 == s2)
break
continue
}
yy = ym + (s3.x - xm) * a;
yx = y_get(stu, 1, s3.x - 4, 8) + 2
if (yx - yy > dy)
dy = yx - yy
if (s3 == s2)
break
}
ym += dy;
y1 = ym + a * (x1 - xm);
y2 = ym + a * (x2 - xm);
/* shift the slurs / decorations */
ym += 6
for (s3 = s1; ; s3 = s3.next) {
if (s3.st == stu) {
yy = ym + (s3.x - xm) * a
if (s3.ymx < yy)
s3.ymx = yy
y_set(stu, 1, s3.x - 3, 6, yy)
}
if (s3 == s2)
break
}
// below
} else { /* lower voice of the staff: the bracket is below the staff */
if (s1.st <= s2.st) {
ym = y_get(s1.st, 0, x1 - 4, 8)
y1 = ym < -2
? ym
: -2
} else {
y1 = -2
}
if (s2.st <= s1.st) {
if (s2.stem < 0)
x2 -= 3
ym = y_get(s2.st, 0, x2 - 4, 8)
y2 = ym < -2
? ym
: -2
} else {
y2 = -2
}
xm = .5 * (x1 + x2);
ym = .5 * (y1 + y2);
a = (y2 - y1) / (x2 - x1);
s0 = 3 * (s2.notes[0].pit - s1.notes[0].pit) / (x2 - x1)
if (s0 > 0) {
if (a < 0)
a = 0
else if (a > s0)
a = s0
if (a > .35)
a = .35
} else {
if (a > 0)
a = 0
else if (a < s0)
a = s0
if (a < -.35)
a = -.35
}
if (a * a < .1 * .1)
a = 0
/* shift down the bracket if needed */
dy = 0
for (s3 = s1; ; s3 = s3.next) {
if (!s3.dur /* not a note nor a rest */
|| s3.st != std) {
if (s3 == s2)
break
continue
}
yy = ym + (s3.x - xm) * a;
yx = y_get(std, 0, s3.x - 4, 8)
if (yx - yy < dy)
dy = yx - yy
if (s3 == s2)
break
}
ym += dy - 8
y1 = ym + a * (x1 - xm);
y2 = ym + a * (x2 - xm);
/* shift the slurs / decorations */
ym -= 2
for (s3 = s1; ; s3 = s3.next) {
if (s3.st == std) {
yy = ym + (s3.x - xm) * a
if (s3.ymn > yy)
s3.ymn = yy;
y_set(std, 0, s3.x - 3, 6, yy)
}
if (s3 == s2)
break
}
} /* lower voice */
if (tp.f[2] == 1) { /* if 'which' == none */
out_tubr(x1, y1 + 4, x2 - x1, y2 - y1, dir == C.SL_ABOVE);
return
}
out_tubrn(x1, y1, x2 - x1, y2 - y1, dir == C.SL_ABOVE,
tp.f[2] == 0 ? tp.p.toString() : tp.p + ':' + tp.q);
if (dir == C.SL_ABOVE)
y_set(stu, 1, xm - 3, 6, yy + 2)
else
y_set(std, 0, xm - 3, 6, yy)
}
// -- draw a ties --
function draw_tie(not1, not2,
job) { // -: start and end
// 1: no starting note
// 2: no ending note
// 3: no start for clef or staff change
var m, x1, s, y, h, time,
p = job == 2 ? not1.pit : not2.pit,
dir = (not1.tie_ty & 0x07) == C.SL_ABOVE ? 1 : -1,
s1 = not1.s,
st = s1.st,
s2 = not2.s,
x2 = s2.x,
sh = not1.shhd // head shift
for (m = 0; m < s1.nhd; m++)
if (s1.notes[m] == not1)
break
if (dir > 0) {
if (m < s1.nhd && p + 1 == s1.notes[m + 1].pit)
if (s1.notes[m + 1].shhd > sh)
sh = s1.notes[m + 1].shhd
} else {
if (m > 0 && p == s1.notes[m - 1].pit + 1)
if (s1.notes[m - 1].shhd > sh)
sh = s1.notes[m - 1].shhd
}
x1 = s1.x + sh // * .6
if (job != 2) {
for (m = 0; m < s2.nhd; m++)
if (s2.notes[m] == not2)
break
sh = s2.notes[m].shhd
if (dir > 0) {
if (m < s2.nhd && p + 1 == s2.notes[m + 1].pit)
if (s2.notes[m + 1].shhd < sh)
sh = s2.notes[m + 1].shhd
} else {
if (m > 0 && p == s2.notes[m - 1].pit + 1)
if (s2.notes[m - 1].shhd < sh)
sh = s2.notes[m - 1].shhd
}
x2 += sh // * .6
}
switch (job) {
default:
if (p < not2.pit || dir < 0)
p = not1.pit
break
case 3:
dir = -dir
case 1: /* no starting note */
x1 = s2.prev ? (s2.prev.x + s2.wr) : s1.x
if (s1.st != s2.st)
st = s2.st
x1 += (x2 - x1) * .4
if (x1 > x2 - 20)
x1 = x2 - 20
break
case 2: // no ending note
x2 = s1.next ? s1.next.x : realwidth
if (x2 != realwidth)
x2 -= (x2 - x1) * .4
if (x2 < x1 + 16)
x2 = x1 + 16
break
}
if (x2 - x1 > 20) {
x1 += 3.5
x2 -= 3.5
} else {
x1 += 1.5
x2 -= 1.5
}
if (s1.dots && !(not1.pit & 1)
&& ((dir > 0 && !s1.dot_low)
|| (dir < 0 && s1.dot_low)))
x1 += 5
y = staff_tb[st].y + 3 * (p - 18) + /* 1.0 * */ dir
h = (.03 * (x2 - x1) + 16) * dir * s1.fmt.tieheight
// anno_start(k1, 'slur')
slur_out(x1, y, x2, y, dir, h, not1.tie_ty & C.SL_DOTTED)
// anno_stop(k1, 'slur')
} // draw_tie()
/* -- draw all ties between neighboring notes -- */
function draw_all_ties(p_voice) {
var s, s1, s2, clef_chg, x, dx, m, not1, not2,
tim2 = 0
/* search the start of ties */
// clef_chg = false
s1 = p_voice.sym
set_color(s1.color)
for ( ; s1; s1 = s1.next) {
if (s1.ti2 // if end of tie
&& s1.time != tim2) { // and new end
for (m = 0; m <= s1.nhd; m++) {
not2 = s1.notes[m]
not1 = not2.tie_s
if (!not1
|| not1.s.v != s1.v) // (already done)
continue
draw_tie(not1, not2, 1)
}
}
if (!s1.ti1) // if not start of tie
continue
// get the end of the tie(s)
if (s1.type == C.GRACE) {
for (s = s1.extra; s; s = s.next) {
for (m = 0; m <= s1.nhd; m++) {
not1 = s.notes[m]
not2 = not1.tie_e
if (!not2)
continue
draw_tie(not1, not2)
tim2 = not2.s.time
}
}
continue
}
for (m = 0; m <= s1.nhd; m++) {
not1 = s1.notes[m]
not2 = not1.tie_e
if (!not2) {
if (not1.tie_ty)
draw_tie(not1, not1, 2)
continue
}
s2 = not2.s
if (tsnext && s2.time >= tsnext.time) { // if end in next line
draw_tie(not1, not2, 2)
continue
}
tim2 = s2.time
// check if some clef changes (can occur in an other voice)
for (s = s1.ts_next; s != s2; s = s.ts_next) {
if (s.st != s1.st)
continue
if (s.type == C.CLEF) {
clef_chg = true
break
}
}
/* ties with clef or staff change */
if (clef_chg || s1.st != s2.st) {
draw_tie(not1, not2, 2)
draw_tie(not1, not2, 3)
clef_chg = false
} else {
draw_tie(not1, not2)
}
}
}
}
/* -- draw the symbols near the notes -- */
/* (the staves are not yet defined) */
/* order:
* - scaled
* - beams
* - decorations near the notes
* - decorations tied to the notes
* - tuplets and slurs
* - not scaled
* - measure numbers
* - lyrics
* - staff decorations
* - chord symbols
* - repeat brackets
* - parts and tempos
* The buffer output is delayed until the definition of the staff system
*/
function draw_sym_near() {
var p_voice, p_st, s, v, st, y, g, w, i, st, dx, top, bot, ymn,
output_sav = output;
// set the staff offsets of a beam
function set_yab(s1, s2) {
var y,
k = realwidth / YSTEP,
i = (s1.x / k) | 0,
j = (s2.x / k) | 0,
a = (s1.ys - s2.ys) / (s1.xs - s2.xs),
b = s1.ys - s1.xs * a,
p_st = staff_tb[s1.st]
k *= a
if (s1.stem > 0) {
while (i <= j) {
y = k * i + b
if (p_st.top[i] < y)
p_st.top[i] = y
i++
}
} else {
while (i <= j) {
y = k * i + b
if (p_st.bot[i] > y)
p_st.bot[i] = y
i++
}
}
} // set_yab()
output = ""
YSTEP = Math.ceil(realwidth / 2)
// initialize the min/max vertical offsets in the staves
for (st = 0; st <= nstaff; st++) {
p_st = staff_tb[st]
p_st.top = new Float32Array(YSTEP)
p_st.bot = new Float32Array(YSTEP)
for (i = 0; i < YSTEP; i++) {
p_st.top[i] = 0
p_st.bot[i] = 24
}
// p_st.top.fill(0.)
// p_st.bot.fill(24.)
}
/* calculate the beams but don't draw them (the staves are not yet defined) */
for (v = 0; v < voice_tb.length; v++) {
var bm = {},
first_note = true;
p_voice = voice_tb[v]
for (s = p_voice.sym; s; s = s.next) {
switch (s.type) {
case C.GRACE:
for (g = s.extra; g; g = g.next) {
if (g.beam_st && !g.beam_end) {
self.calculate_beam(bm, g)
if (bm.s2)
set_yab(g, bm.s2)
}
}
if (!s.p_v.ckey.k_bagpipe // no slur when bagpipe
&& s.fmt.graceslurs
&& !s.gr_shift // tied to previous note
&& !s.sl1 // explicit slur
&& !s.ti1 // some tie
&& s.next
&& s.next.type == C.NOTE)
grace_slur(s)
break
}
}
for (s = p_voice.sym; s; s = s.next) {
switch (s.type) {
case C.NOTE:
if ((s.beam_st && !s.beam_end)
|| (first_note && !s.beam_st)) {
first_note = false;
self.calculate_beam(bm, s)
if (bm.s2)
set_yab(s, bm.s2)
}
break
}
}
}
set_tie_room();
draw_deco_near()
/* set the min/max vertical offsets */
for (s = tsfirst; s; s = s.ts_next) {
if (s.invis)
continue
switch (s.type) {
case C.GRACE:
for (g = s.extra; g; g = g.next) {
y_set(s.st, true, g.x - 2, 4, g.ymx + 1);
y_set(s.st, false, g.x - 2, 4,
//fixme: hack for slur/accidental far under the staff
// g.ymn - 1)
g.ymn - 5)
}
continue
case C.MREST:
y_set(s.st, true, s.x + 16, 32, s.ymx + 2)
continue
default:
y_set(s.st, true, s.x - s.wl, s.wl + s.wr, s.ymx + 2);
y_set(s.st, false, s.x - s.wl, s.wl + s.wr, s.ymn - 2)
continue
case C.NOTE:
break
}
// (permit closer staves)
if (s.stem > 0) {
if (s.stemless) {
dx = -5;
w = 10
} else if (s.beam_st) {
dx = 3;
w = s.beam_end ? 4 : 10
} else {
dx = -8;
w = s.beam_end ? 11 : 16
}
y_set(s.st, true, s.x + dx, w, s.ymx);
ymn = s.ymn
if (s.notes[0].acc // set room for the accidental
&& ymn > 3 * (s.notes[0].pit - 18) - 9)
ymn = 3 * (s.notes[0].pit - 18) - 9
y_set(s.st, false, s.x - s.wl, s.wl + s.wr, ymn)
} else {
y_set(s.st, true, s.x - s.wl, s.wl + s.wr, s.ymx);
if (s.stemless) {
dx = -5;
w = 10
} else if (s.beam_st) {
dx = -6;
w = s.beam_end ? 4 : 10
} else {
dx = -8;
w = s.beam_end ? 5 : 16
}
dx += s.notes[0].shhd;
y_set(s.st, false, s.x + dx, w, s.ymn)
}
/* have room for the accidentals */
if (s.notes[s.nhd].acc) {
y = 3 * (s.notes[s.nhd].pit - 18)
+ (s.notes[s.nhd].acc == -1 // flat
? 11 : 10)
y_set(s.st, true, s.x - 10, 10, y)
}
if (s.notes[0].acc) {
y = 3 * (s.notes[0].pit - 18)
- (s.notes[0].acc == -1 // flat
? 5 : 10)
y_set(s.st, false, s.x - 10, 10, y)
}
}
draw_deco_note()
for (v = 0; v < voice_tb.length; v++) {
p_voice = voice_tb[v];
s = p_voice.sym
if (!s)
continue
set_color(s.color);
st = p_voice.st;
// if (st == undefined) {
//error(1, s, "BUG: no staff for voice " + p_voice.id)
// continue
// }
// draw the slurs and tuplets
for ( ; s; s = s.next) {
if (s.play)
continue
if (s.tp)
draw_tuplet(s)
if (s.sls || s.sl1)
draw_slurs(s)
}
}
set_color()
/* set the top and bottom out of the staves */
for (st = 0; st <= nstaff; st++) {
p_st = staff_tb[st];
top = p_st.topbar + 2;
bot = p_st.botbar - 2
/*fixme:should handle stafflines changes*/
for (i = 0; i < YSTEP; i++) {
if (top > p_st.top[i])
p_st.top[i] = top
if (bot < p_st.bot[i])
p_st.bot[i] = bot
}
}
if (cfmt.measurenb >= 0)
draw_measnb();
/* if any lyric, draw them now as unscaled */
set_dscale(-1)
// set_sscale(-1)
for (v = 0; v < voice_tb.length; v++) {
p_voice = voice_tb[v]
if (p_voice.have_ly) {
draw_all_lyrics()
break
}
}
draw_deco_staff()
draw_partempo() // draw the parts and tempo indications if any
set_dscale(-1);
output = output_sav
}
/* -- draw the name/subname of the voices -- */
function draw_vname(indent, stl) {
var p_voice, n, st, v, a_p, p, y, h, h2,
staff_d = []
if (!gene.vnt)
return
// for (st = stl.length; st >= 0; st--) {
for (st = stl.length; --st >= 0; ) {
if (stl[st])
break
}
if (st < 0)
return
for (v = 0; v < voice_tb.length; v++) {
p_voice = voice_tb[v]
if (!cur_sy.voices[v])
continue
st = cur_sy.voices[v].st
if (!stl[st])
continue
if (!gene.vnt)
continue
p = gene.vnt == 2 ? p_voice.nm : p_voice.snm
if (!p)
continue
delete p_voice.new_name
if (!staff_d[st])
staff_d[st] = p
else
staff_d[st] += "\n" + p
}
if (!staff_d.length)
return
set_font("voice");
h = gene.curfont.size
h2 = h / 2
indent = -indent * .5 /* center */
for (st = 0; st < staff_d.length; st++) {
if (!staff_d[st])
continue
a_p = staff_d[st].split("\n");
y = staff_tb[st].y
+ staff_tb[st].topbar * .5
* staff_tb[st].staffscale
+ h2 * (a_p.length - 2)
// if instrument with 2 staves, center the voice name
if ((cur_sy.staves[st].flags & OPEN_BRACE)
&& st + 1 < staff_tb.length
&& (cur_sy.staves[st + 1].flags & CLOSE_BRACE)
&& !staff_d[st + 1])
y -= (staff_tb[st].y - staff_tb[st + 1].y) * .5
for (n = 0; n < a_p.length; n++) {
p = a_p[n];
xy_str(indent, y, p, "c");
y -= h
}
}
}
// -- set the y offset of the staves and return the height of the whole system --
function set_staff() {
var i, st, prev_staff, v, fmt, s,
y, staffsep, dy, maxsep, mbot, val, p_voice, p_staff,
sy = cur_sy
// the last values of {,max}{,sys}staffsep are in the last format
fmt = tsnext ? tsnext.fmt : cfmt
/* set the scale of the voices */
for (v = 0; v < voice_tb.length; v++) {
p_voice = voice_tb[v]
if (p_voice.scale != 1)
p_voice.scale_str =
'transform="scale(' + p_voice.scale.toFixed(2) + ')"'
}
// search the top staff
for (st = 0; st <= nstaff; st++) {
if (gene.st_print[st])
break
}
y = 0
if (st > nstaff)
return y
p_staff = staff_tb[st]
for (i = 0; i < YSTEP; i++) {
val = p_staff.top[i]
if (y < val)
y = val
}
/* set the vertical offset of the 1st staff */
y *= p_staff.staffscale;
staffsep = tsfirst.fmt.staffsep / 2 +
p_staff.topbar * p_staff.staffscale
if (y < staffsep)
y = staffsep
if (y < p_staff.ann_top) // absolute annotation
y = p_staff.ann_top;
p_staff.y = -y;
/* set the offset of the other staves */
for (prev_staff = 0; prev_staff < st; prev_staff++)
staff_tb[prev_staff].y = -y
if (!gene.st_print[st]) // no staff
return y
var sy_staff_prev = sy.staves[prev_staff]
for (st++; st <= nstaff; st++) {
if (!gene.st_print[st])
continue
p_staff = staff_tb[st]
staffsep = sy_staff_prev.sep || fmt.sysstaffsep;
maxsep = sy_staff_prev.maxsep || fmt.maxsysstaffsep;
dy = 0
if (p_staff.staffscale == staff_tb[prev_staff].staffscale) {
for (i = 0; i < YSTEP; i++) {
val = p_staff.top[i] -
staff_tb[prev_staff].bot[i]
if (dy < val)
dy = val
}
dy *= p_staff.staffscale
} else {
for (i = 0; i < YSTEP; i++) {
val = p_staff.top[i] * p_staff.staffscale
- staff_tb[prev_staff].bot[i]
* staff_tb[prev_staff].staffscale
if (dy < val)
dy = val
}
}
staffsep += p_staff.topbar * p_staff.staffscale
if (dy < staffsep)
dy = staffsep;
maxsep += p_staff.topbar * p_staff.staffscale
if (dy > maxsep)
dy = maxsep;
y += dy;
p_staff.y = -y;
while (!gene.st_print[++prev_staff])
staff_tb[prev_staff].y = -y
while (1) {
sy_staff_prev = sy.staves[prev_staff]
if (sy_staff_prev)
break
sy = sy.next
}
}
mbot = 0
for (i = 0; i < YSTEP; i++) {
val = staff_tb[prev_staff].bot[i]
if (mbot > val)
mbot = val
}
if (mbot > p_staff.ann_bot) // absolute annotation
mbot = p_staff.ann_bot;
mbot *= staff_tb[prev_staff].staffscale
/* output the staff offsets */
for (st = 0; st <= nstaff; st++) {
p_staff = staff_tb[st];
dy = p_staff.y
if (p_staff.staffscale != 1) {
p_staff.scale_str =
'transform="translate(0,' +
(posy - dy).toFixed(1) + ') ' +
'scale(' + p_staff.staffscale.toFixed(2) + ')"'
}
}
if (mbot == 0) {
for (st = nstaff; st >= 0; st--) {
if (gene.st_print[st])
break
}
if (st < 0) /* no symbol in this system ! */
return y
}
dy = -mbot;
staffsep = fmt.staffsep * .5
if (dy < staffsep)
dy = staffsep;
maxsep = fmt.maxstaffsep * .5
if (dy > maxsep)
dy = maxsep;
// return the height of the whole staff system
return y + dy
}
/* -- draw the staff systems and the measure bars -- */
function draw_systems(indent) {
var s, s2, st, x, x2, res, sy,
xstaff = [],
stl = [], // all staves in the line
bar_bot = [],
bar_height = [],
ba = [], // bars [symbol, bottom, height]
sb = "",
thb = ""
/* -- set the bottom and height of the measure bars -- */
function bar_set() {
var st, staffscale, top, bot,
dy = 0
for (st = 0; st <= cur_sy.nstaff; st++) {
if (xstaff[st] < 0) {
bar_bot[st] = bar_height[st] = 0
continue
}
staffscale = staff_tb[st].staffscale;
top = staff_tb[st].topbar * staffscale;
bot = staff_tb[st].botbar * staffscale
if (dy == 0)
dy = staff_tb[st].y + top;
bar_bot[st] = staff_tb[st].y + bot;
bar_height[st] = dy - bar_bot[st];
dy = (cur_sy.staves[st].flags & STOP_BAR) ?
0 : bar_bot[st]
}
} // bar_set()
/* -- draw a staff -- */
function draw_staff(st, x1, x2) {
var w, i, dy, ty,
y = 0,
ln = "",
stafflines = staff_tb[st].stafflines,
l = stafflines.length,
il = 6 * staff_tb[st].staffscale // interline
if (!/[\[|]/.test(stafflines))
return // no line
w = x2 - x1;
set_sscale(-1)
// check if default staff
if (cache && cache.st_l == stafflines
&& staff_tb[st].staffscale == 1
&& cache.st_w == (w | 0)) {
xygl(x1, staff_tb[st].y, 'stdef' + cfmt.fullsvg)
return
}
for (i = 0; i < l; i++, y -= il) {
if (stafflines[i] == '.')
continue
dy = 0
for (; i < l; i++, y -= il, dy -= il) {
switch (stafflines[i]) {
case '.':
case '-':
continue
case ty:
ln += 'm-' + w.toFixed(1) +
' ' + dy +
'h' + w.toFixed(1);
dy = 0
continue
}
if (ty != undefined)
ln += '"/>\n';
ty = stafflines[i]
ln += ''
}
y = staff_tb[st].y
if (!cache
&& w > get_lwidth() - 10
&& staff_tb[st].staffscale == 1) {
cache = {
st_l: stafflines,
st_w: w | 0
}
i = 'stdef' + cfmt.fullsvg;
if (ln.indexOf('\n' + ln + '\n';
xygl(x1, y, i)
return
}
out_XYAB('\n' + ln + '\n\n', x1, y)
} // draw_staff()
// draw a measure bar
function draw_bar(s, bot, h) {
var i, s2, yb, w,
bar_type = s.bar_type,
st = s.st,
p_staff = staff_tb[st],
x = s.x
// don't put a line between the staves if there is no bar above
if (st != 0
&& s.ts_prev
//fixme: 's.ts_prev.st != st - 1' when floating voice in lower staff
// && (s.ts_prev.type != C.BAR || s.ts_prev.st != st - 1))
&& s.ts_prev.type != C.BAR)
h = p_staff.topbar * p_staff.staffscale;
s.ymx = s.ymn + h;
set_sscale(-1)
anno_start(s)
if (s.color)
set_color(s.color);
// compute the middle vertical offset of the staff
yb = p_staff.y + 12;
if (p_staff.stafflines != '|||||')
yb += (p_staff.topbar + p_staff.botbar) / 2 - 12 // bottom
// if measure repeat, draw the '%' like glyphs
if (s.bar_mrep) {
set_sscale(st)
if (s.bar_mrep == 1) {
for (s2 = s.prev; s2.type != C.REST; s2 = s2.prev)
;
xygl(s2.x, yb, "mrep")
} else {
xygl(x, yb, "mrep2")
if (s.v == cur_sy.top_voice)
nrep_out(x, yb + p_staff.topbar, s.bar_mrep)
}
set_sscale(-1)
}
if (bar_type == '||:')
bar_type = '[|:'
for (i = bar_type.length; --i >= 0; ) {
switch (bar_type[i]) {
case "|":
if (s.bar_dotted) {
w = (5 * p_staff.staffscale).toFixed(1);
out_XYAB(
'\n',
x, bot, w, h)
} else if (s.color) {
out_XYAB('\n',
x, bot, h)
} else {
sb += 'M' + sx(x).toFixed(1)
+ ' ' + self.sy(bot).toFixed(1)
+ 'v-' + h.toFixed(1)
}
break
default:
// case "[":
// case "]":
x -= 3;
if (s.color)
out_XYAB('\n',
x + 1.5, bot, h)
else
thb += 'M' + sx(x + 1.5).toFixed(1)
+ ' ' + self.sy(bot).toFixed(1)
+ 'v-' + h.toFixed(1)
break
case ":":
x -= 2;
set_sscale(st);
xygl(x + 1, yb - 12, "rdots")
set_sscale(-1)
break
}
x -= 3
}
set_color();
anno_stop(s)
} // draw_bar()
// output all the bars
function out_bars() {
var i, b, bx,
l = ba.length
set_font("annotation");
bx = gene.curfont.box
if (bx)
gene.curfont.box = 0
for (i = 0; i < l; i++) {
b = ba[i]; // symbol, bottom, height
draw_bar(b[0], b[1], b[2])
}
if (bx)
gene.curfont.box = bx
set_sscale(-1)
if (sb) // single bars
output += '\n'
if (thb) // thick bars [x, y, h]
output += '\n'
} // out_bars()
// set the helper lines of rests
function hl_rest(s) {
var j,
p_st = staff_tb[s.st],
i = 5 - s.nflags, // rest_tb index (5 = C_XFLAGS)
x = s.x,
y = s.y
if (i < 6) // no ledger line if rest smaller than minim
return
if (i == 7 && y == 12
&& p_st.stafflines.length <= 2)
y -= 6 // semibreve a bit lower
j = y / 6
switch (i) {
default:
switch (p_st.stafflines[j + 1]) {
case '|':
case '[':
break
default:
set_hl(p_st, j + 1, x, -7, 7)
break
}
if (i == 9) { // longa
y -= 6
j--
}
break
case 7: // semibreve
y += 6
j++
case 6: // minim
break
}
switch (p_st.stafflines[j]) {
case '|':
case '[':
break
default:
set_hl(p_st, j, x, -7, 7)
break
}
} // hl_rest()
// return the left x offset of a new staff
// s is the %%staves
function st1(st, s) {
var tim = s.time
do { // search a voice of this staff
s = s.ts_next
} while (s.st != st)
while (s.prev // search the first symbol of this voice
&& s.prev.time >= tim)
s = s.prev
if (s.bar_type)
return s.x
return s.x - s.wl
} // st1()
// ---- draw_systems() ----
/* draw the staff, skipping the staff breaks */
for (st = 0; st <= nstaff; st++) {
stl[st] = cur_sy.st_print[st] // staff at start of line
xstaff[st] = !stl[st] ? -1 : 0;
}
bar_set();
draw_lstaff(0)
for (s = tsfirst; s; s = s.ts_next) {
switch (s.type) {
case C.STAVES:
sy = s.sy
for (st = 0; st <= nstaff; st++) {
x = xstaff[st]
if (x < 0) { // no staff yet
if (sy.st_print[st]) {
xstaff[st] = st1(st, s)
stl[st] = true
}
continue
}
if (sy.st_print[st] // if not staff stop
&& cur_sy.staves[st]
&& sy.staves[st].stafflines ==
cur_sy.staves[st].stafflines)
continue
if (s.ts_prev.bar_type) {
x2 = s.ts_prev.x
} else {
x2 = (s.ts_prev.x + s.x) / 2
xstaff[st] = -1
}
draw_staff(st, x, x2)
xstaff[st] = sy.st_print[st] ? x2 : -1
}
cur_sy = sy;
bar_set()
continue
case C.BAR: // display the bars after the staves
if (s.invis || !s.bar_type
|| !cur_sy.st_print[s.st])
break
if (s.second
&& (!s.ts_prev
|| (s.ts_prev.type == C.BAR
&& s.ts_prev.st == s.st)))
break
ba.push([s, bar_bot[s.st], bar_height[s.st]])
break
case C.STBRK:
if (cur_sy.voices[s.v]
&& cur_sy.voices[s.v].range == 0) {
if (s.xmx > 14
&& s.next // if not at end of line
&& s.next.type == C.CLEF) { // and before a clef
/* draw the left system if stbrk in all voices */
var nv = 0
for (var i = 0; i < voice_tb.length; i++) {
if (cur_sy.voices[i]
&& cur_sy.voices[i].range > 0)
nv++
}
for (s2 = s.ts_next; s2; s2 = s2.ts_next) {
if (s2.type != C.STBRK)
break
nv--
}
if (nv == 0)
draw_lstaff(s.x)
}
}
st = s.st;
x = xstaff[st]
if (x >= 0) {
s2 = s.prev
if (!s2)
break
x2 = s2.type == C.BAR ?
s2.x :
s.x - s.xmx
if (x >= x2)
break
draw_staff(st, x, x2)
xstaff[st] = s.x
}
break
case C.GRACE:
for (s2 = s.extra; s2; s2 = s2.next)
self.draw_hl(s2)
break
case C.NOTE:
if (!s.invis)
self.draw_hl(s)
break
case C.REST:
if (s.fmr // if full measure rest
|| (s.rep_nb && s.rep_nb >= 0))
center_rest(s)
if (!s.invis)
hl_rest(s)
break
// default:
//fixme:does not work for "%%staves K: M: $" */
//removed for K:/M: in empty staves
// if (!cur_sy.st_print[st])
// s.invis = true
// break
}
}
// draw the end of the staves
for (st = 0; st <= nstaff; st++) {
x = xstaff[st]
if (x < 0 || x >= realwidth)
continue
draw_staff(st, x, realwidth)
}
// the ledger lines
draw_all_hl()
// and the bars
out_bars()
draw_vname(indent, stl)
// set_sscale(-1)
}
/* -- draw remaining symbols when the staves are defined -- */
// (possible hook)
Abc.prototype.draw_symbols = function(p_voice) {
var bm = {},
s, x, y, st;
// bm.s2 = undefined
for (s = p_voice.sym; s; s = s.next) {
if (s.invis) {
switch (s.type) {
case C.CLEF:
if (s.time >= staff_tb[s.st].clef.time)
staff_tb[s.st].clef = s
continue
case C.KEY:
p_voice.ckey = s
default:
continue
case C.NOTE: // (beams may start on invisible notes)
break
}
}
st = s.st
x = s.x;
set_color(s.color)
switch (s.type) {
case C.NOTE:
//--fixme: recall set_scale if different staff
set_scale(s)
if (s.beam_st && !s.beam_end) {
if (self.calculate_beam(bm, s))
draw_beams(bm)
}
if (!s.invis) {
anno_start(s);
draw_note(s, !bm.s2);
anno_a.push(s)
}
if (s == bm.s2)
bm.s2 = null
break
case C.REST:
if (!gene.st_print[st])
break
draw_rest(s);
break
case C.BAR:
break /* drawn in draw_systems */
case C.CLEF:
if (s.time >= staff_tb[st].clef.time)
staff_tb[st].clef = s
if (s.second
|| !staff_tb[st].topbar
|| !gene.st_print[st])
break
set_color();
set_sscale(st);
anno_start(s);
y = staff_tb[st].y
if (s.clef_name)
xygl(x, y + s.y, s.clef_name)
else if (!s.clef_small)
xygl(x, y + s.y, s.clef_type + "clef")
else
xygl(x, y + s.y, "s" + s.clef_type + "clef")
if (s.clef_octave) {
/*fixme:break the compatibility and avoid strange numbers*/
if (s.clef_octave > 0) {
y += s.ymx - 10
if (s.clef_small)
y -= 1
} else {
y += s.ymn + 6
if (s.clef_small)
y += 1
}
xygl(x - 2, y, (s.clef_octave == 7
|| s.clef_octave == -7)
? "oct" : "oct2")
}
anno_a.push(s)
break
case C.METER:
p_voice.meter = s
if (s.second
|| !staff_tb[s.st].topbar)
break
set_color();
set_sscale(s.st);
anno_start(s);
draw_meter(s);
anno_a.push(s)
break
case C.KEY:
p_voice.ckey = s
if (s.second
|| !staff_tb[s.st].topbar)
break
set_color();
set_sscale(s.st);
anno_start(s);
self.draw_keysig(x, s);
anno_a.push(s)
break
case C.MREST:
draw_mrest(s)
break
case C.GRACE:
set_scale(s);
draw_gracenotes(s)
break
case C.SPACE:
case C.STBRK:
break /* nothing */
case C.CUSTOS:
set_scale(s);
draw_note(s, 0)
break
case C.BLOCK: // no width
case C.REMARK:
case C.STAVES:
case C.TEMPO:
break
default:
error(2, s, "draw_symbols - Cannot draw symbol " + s.type)
break
}
}
set_scale(p_voice.sym);
}
/* -- draw all symbols -- */
function draw_all_sym() {
var p_voice, v,
n = voice_tb.length
// draw the slurs on 2 staves
// sl = [symbol of 1st staff, symbol of 2nd staff, slur type,
function draw_sl2() {
var i, a, d, dy, dy2, dy2o, dz, n, sl
while (1) {
sl = gene.a_sl.shift()
if (!sl)
break
// extract the path header and the values
i = sl[3].indexOf('d="M') + 4
output += sl[3].slice(0, i) // d="M
a = new Float32Array(sl[3].slice(i).match(/[\d.-]+/g))
// update the starting point of the slur
a[1] -= staff_tb[sl[0].st].y // absolute vertical offset
// [0][1] = M
// [2][3] [4][5] [6][7] = c
// [8] = v second curve if not dotted
// [9][10] [11][12] [13][14] = c
//
// y: 3-------5
// / 12---10 \
// / / \ \
// / / \ \ 7
// 1 14 \| 8
//
// x: 0 2 4 6
// 13 11 9
// deltas between staves, original and now
dy2o = sl[0].fmt.sysstaffsep + 24
dy2 = staff_tb[sl[1].st].y - staff_tb[sl[0].st].y
switch (sl[2]) { // slur type
case "//": // '~' like
case "\\\\":
// get the middle of the '~' slur (* 2)
d = -(sl[1].prev.prev.y + staff_tb[sl[0].st].y
+ sl[1].prev.next.y + staff_tb[sl[1].st].y)
- 2 * (a[1] - posy)
a[5] = d - a[5]
a[7] = d - a[7]
if (a.length > 8) {
d = sl[2][0] == '/' ? 3 : -3
a[8] = -a[8]
a[10] = -a[3] + d
a[12] = -a[5] + d
a[14] = -a[7]
}
break
case "/\\":
case "\\/":
d = sl[2][0] == '/'
? dy2 - dy2o - 10
: dy2 + dy2o + 10
a[3] += d
a[5] += d
if (a.length > 8) {
a[10] += d
a[12] += d
}
break
default: // /+, /-, \+ or \-
d = sl[2][0] == '/' ? dy2 - dy2o : -dy2 - dy2o
a[5] += d
a[7] += d
if (a.length > 8) {
a[12] -= d
a[14] -= d
}
break
}
// output the slur
output += a[0].toFixed(1) + ' ' + a[1].toFixed(1)
+ 'c' + a[2].toFixed(1) + ' ' + a[3].toFixed(1)
+ ' ' + a[4].toFixed(1) + ' ' + a[5].toFixed(1)
+ ' ' + a[6].toFixed(1) + ' ' + a[7].toFixed(1)
if (a.length > 8)
output += 'v' + a[8].toFixed(1)
+ 'c' + a[9].toFixed(1)
+ ' ' + a[10].toFixed(1)
+ ' ' + a[11].toFixed(1)
+ ' ' + a[12].toFixed(1)
+ ' ' + a[13].toFixed(1)
+ ' ' + a[14].toFixed(1)
output += '"/>\n'
}
} // draw_sl2()
for (v = 0; v < n; v++) {
p_voice = voice_tb[v]
if (p_voice.sym
&& p_voice.sym.x != undefined) {
self.draw_symbols(p_voice)
draw_all_ties(p_voice);
// no need to reset the scale as in abcm2ps
set_color()
}
}
self.draw_all_deco()
glout() // output the symbols
anno_put() // before outputting the symbol annotations
set_sscale(-1) /* restore the scale */
if (gene.a_sl) // if slurs on two staves
draw_sl2()
}
/* -- set the tie directions for one voice -- */
function set_tie_dir(s) {
var i, ntie, dir, sec, pit, ty, s2
for ( ; s; s = s.next) {
if (!s.ti1)
continue
sec = ntie = 0;
pit = 128
for (i = 0; i <= s.nhd; i++) {
if (s.notes[i].tie_ty) {
ntie++
if (pit < 128
&& s.notes[i].pit <= pit + 1)
sec++;
pit = s.notes[i].pit
s2 = s.notes[i].tie_e
}
}
if (s2 && s.stem * s2.stem < 0)
dir = pit >= 22 // up if above middle staff
? C.SL_ABOVE : C.SL_BELOW
else if (s.multi)
dir = s.multi > 0 ? C.SL_ABOVE : C.SL_BELOW
else
dir = s.stem < 0 ? C.SL_ABOVE : C.SL_BELOW
// if other voice, set the ties in opposite direction
if (s.multi) {
for (i = 0; i <= s.nhd; i++) {
ty = s.notes[i].tie_ty
if (!((ty & 0x07) == C.SL_AUTO))
continue
s.notes[i].tie_ty = (ty & C.SL_DOTTED) | dir
}
continue
}
/* if one note, set the direction according to the stem */
if (ntie <= 1) {
for (i = 0; i <= s.nhd; i++) {
ty = s.notes[i].tie_ty
if (ty) {
if ((ty & 0x07) == C.SL_AUTO)
s.notes[i].tie_ty =
(ty & C.SL_DOTTED) | dir
break
}
}
continue
}
if (!sec) {
if (ntie & 1) {
/* in chords with an odd number of notes, the outer noteheads are paired off
* center notes are tied according to their position in relation to the
* center line */
ntie = (ntie - 1) / 2;
dir = C.SL_BELOW
for (i = 0; i <= s.nhd; i++) {
ty = s.notes[i].tie_ty
if (!ty)
continue
if (ntie == 0) { /* central tie */
if (s.notes[i].pit >= 22)
dir = C.SL_ABOVE
}
if ((ty & 0x07) == C.SL_AUTO)
s.notes[i].tie_ty =
(ty & C.SL_DOTTED) | dir
if (ntie-- == 0)
dir = C.SL_ABOVE
}
continue
}
/* even number of notes, ties divided in opposite directions */
ntie /= 2;
dir = C.SL_BELOW
for (i = 0; i <= s.nhd; i++) {
ty = s.notes[i].tie_ty
if (!ty)
continue
if ((ty & 0x07) == C.SL_AUTO)
s.notes[i].tie_ty =
(ty & C.SL_DOTTED) | dir
if (--ntie == 0)
dir = C.SL_ABOVE
}
continue
}
/*fixme: treat more than one second */
/* if (nsec == 1) { */
/* When a chord contains the interval of a second, tie those two notes in
* opposition; then fill in the remaining notes of the chord accordingly */
pit = 128
for (i = 0; i <= s.nhd; i++) {
if (s.notes[i].tie_ty) {
if (pit < 128
&& s.notes[i].pit <= pit + 1) {
ntie = i
break
}
pit = s.notes[i].pit
}
}
dir = C.SL_BELOW
for (i = 0; i <= s.nhd; i++) {
ty = s.notes[i].tie_ty
if (!ty)
continue
if (ntie == i)
dir = C.SL_ABOVE
if ((ty & 0x07) == C.SL_AUTO)
s.notes[i].tie_ty =
(ty & C.SL_DOTTED) | dir
}
/*fixme..
continue
}
..*/
/* if a chord contains more than one pair of seconds, the pair farthest
* from the center line receives the ties drawn in opposition */
}
}
/* -- have room for the ties out of the staves -- */
function set_tie_room() {
var p_voice, s, s2, v, dx, y, dy
for (v = 0; v < voice_tb.length; v++) {
p_voice = voice_tb[v];
s = p_voice.sym
if (!s)
continue
s = s.next
if (!s)
continue
set_tie_dir(s)
for ( ; s; s = s.next) {
if (!s.ti1)
continue
if (s.notes[0].pit < 20
&& s.notes[0].tie_ty
&& (s.notes[0].tie_ty & 0x07) == C.SL_BELOW)
;
else if (s.notes[s.nhd].pit > 24
&& s.notes[s.nhd].tie_ty
&& (s.notes[s.nhd].tie_ty & 0x07) == C.SL_ABOVE)
;
else
continue
s2 = s.next
while (s2 && s2.type != C.NOTE)
s2 = s2.next
if (s2) {
if (s2.st != s.st)
continue
dx = s2.x - s.x - 10
} else {
dx = realwidth - s.x - 10
}
if (dx < 100)
dy = 9
else if (dx < 300)
dy = 12
else
dy = 16
if (s.notes[s.nhd].pit > 24) {
y = 3 * (s.notes[s.nhd].pit - 18) + dy
if (s.ymx < y)
s.ymx = y
if (s2 && s2.ymx < y)
s2.ymx = y;
y_set(s.st, true, s.x + 5, dx, y)
}
if (s.notes[0].pit < 20) {
y = 3 * (s.notes[0].pit - 18) - dy
if (s.ymn > y)
s.ymn = y
if (s2 && s2.ymn > y)
s2.ymn = y;
y_set(s.st, false, s.x + 5, dx, y)
}
}
}
}
// abc2svg music font
var musicfont = 'url("data:application/octet-stream;base64,\
AAEAAAAOAIAAAwBgRkZUTZHVOuoAAFgMAAAAHEdERUYAFQAUAABX8AAAABxPUy8yWMFdCgAAAWgA\
AABWY21hcHlUuFMAAAQIAAAD5mN2dCAAIgKIAAAH8AAAAARnYXNw//8AAwAAV+gAAAAIZ2x5ZqUq\
QgUAAAkcAABF/GhlYWQVmDJzAAAA7AAAADZoaGVhCWn/GwAAASQAAAAkaG10eNm9+0EAAAHAAAAC\
SGxvY2HHqraAAAAH9AAAASZtYXhwANkBEgAAAUgAAAAgbmFtZeq7sB0AAE8YAAADFXBvc3SIfxKM\
AABSMAAABbUAAQAAAAEAANGbj/xfDzz1AAsEAAAAAADRlyIXAAAAAOBezej/OPzvBUsEiAAAAAgA\
AgAAAAAAAAABAAAEiPzvAFwEJf84/XQFSwABAAAAAAAAAAAAAAAAAAAAkgABAAAAkgDhAAUAAAAA\
AAIAAAABAAEAAABAAC4AAAAAAAEBgAGQAAUACAKZAswAAACPApkCzAAAAesAMwEJAAACAAUDAAAA\
AAAAAAAAARAAAAAAAAAAAAAAAFBmRWQAQAAA7LcDOP84AFwEiAMRAAAAAQAAAAAAAAF2ACIAAAAA\
AVUAAAGQAAACWAAAAFcAAAAjAAAAJQAAACT//wBkAAAEIwAABCUAAAHg/9wDugAAAwsAAALSAAAC\
v/+6AdYAAAMLAAADDgAAAyf/yADIAAABaAAAAa4AAAEiAAABkAAAAXwAAAGQAAABkAAAAYEAAAGQ\
AAABkAAAAYEAAAGZAAkBmAAJAfQAAAEEABQBBAAKAmsAJAISAAABwgAAAUIAAAFAAAABSv/+ASwA\
AAIwAAABSgAAAUoAAABkAAABQAAAAUAAAAFAAAABQAAAAGQAAAE2AAAA5gAAATYAAAE7AAABOwAA\
ATsAAAE7AAABOwAAATsAAAE7AAABOwAAATsAAAE7AAABDQAAAMgAAAD/AAABCwAUAW4AAACMAAAA\
jAAAAQ0AMgFu//UAqQAAAToAAAFA//0AUAAAAVQAAABkAAABGAAAAlgAAAC2AAABkAAFAIIAAACC\
AAABLAAAASwAAADuAAAA/wAAAUkAAAGPAAAB2AAAAdgAAAIz//ADIP/hAXv/tAG4/9sBFv9+ARP/\
2wDcAAAA6P/kAr//tAIz/7QCv/+0Ayv/2wFf/9sCaf9+AV//fgJp/34BXwAAAf0ABQG1AAABtQAA\
AkQADQJEAA0BGAAAATYAAAEs//8BLAAAAPoAAADIAAABGP84APoAAADIAAAEDQAAAhwADAH0AAAB\
9AAAAfQAAAH0AAAB9AAAAfQAAAB4AAAALQAAAhwAAAD6AAAA+v/oAcIAAAFIAAABQAAAAgoAAAIK\
AAAAZAAAAAAAAwAAAAMAAAAcAAEAAAAAAuAAAwABAAAAHAAEAsQAAABgAEAABQAgAAAAIOAA4DDg\
OeBI4FDgXOBi4GngjOCV4KTgqeCz4QHhu+Hn4gDiSeJk4mvig+Ss5MDk0eTq5QHlMeU55W3lguXQ\
5eLmGOYk5jDmUOZV6RjpIOkl6V3qAuqk7Knst///AAAAAAAg4ADgMOA44EPgUOBc4GLgaeB64JTg\
oOCp4LPhAeG54efh8uJA4mDiauKA5KDkwOTO5OHlAOUg5TnlZuWC5dDl4uYQ5iTmMOZQ5lXpEOkg\
6SXpXeoC6qTsouy3//8AA//kIAUf1gAAAAAfvh+zH64fqAAAAAAAAB+CH3kfLAAAHkkAAAAAAAAA\
AAAAAAAbkwAAAAAAAAAAGzcAABr0GqcalgAAGlkaThovGisAABdnF2MXLBaIFecAABPaAAEAAAAA\
AAAAAABYAFoAAAAAAAAAAABcAIAAggAAAAAAAACEAAAAhgCiALQAvAC+AMQAAADaAOAA8gD0AAAB\
FAAAAAAAAAEcAAAAAAAAAAABJAAAAAAAAAAAAAABKgAAAAAABwAIAAkAAAAKAAsADAANABIAEwAU\
ABUAFgAAABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgAuAAAALwAxAAAA\
MgAAAAAAMwAAADQAAAAAADUAAAA2ADcAOAA5ADoAOwA8AD0APgA/AEAAQQBCAEMARABFAEYARwBI\
AEkASgBLAEwATQBOAAAATwAAAFAAAAAAAAAAUQAAAAAAAABSAFQAAAAAAFUAVgBXAFgAWQBaAFsA\
XABdAF4AXwBgAGEAYgBjAGQAZQBmAGcAAAAAAAAAaABpAGoAawBsAAAAbQBuAG8AcQByAAAAcwAA\
AAAAdAB1AHkAAAB6AAAAewAAAAAAAAB8AIEAggCDAAAAhACFAAAAAACGAIwAjQAAAI4AAACPAAAA\
kAAAAQYAAAMAAAAAAAAAAQIAAAACAAAAAAAAAAAAAAAAAAAAAQAABAAAAAAAAAAAAAAAAAAAAAAA\
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiAogAAAAqACoAKgA2AD4AbgB6\
AIYAkgCwASQBgAHwAjQCwANSA7IDxgRkBPYFTgWOBhAGMgZGBpgG6AcIB04HjgfICBQIVAiaCPQJ\
CAkuCVQJhgmiCcQJ7AoCChwKUgpgCmwKeAqKCqYKyArWCuoK/AsMC1gLaAuCC5wL1AwMDFoMpg0M\
DW4N7A5kDooOpA7UDv4PVg9wD4oPsBAKECoQaBCQEKQQsBC+EM4Q9hEeEVYRYhFuEXoRhhGoEc4S\
BBJSErITJhNME3oTzhRCFJYU1hUaFXAWihdiF/gYqhlsGf4a0BvkHNAdEh1WHaAduh3eHfIeBh42\
HkYeWB50Hooerh7eH7ogdiCeILwg7iEsIV4hoCGyIcAh3CH2IhwiPiJsIoYisCLsIv4AAAACACIA\
AAEyAqoAAwAHAC6xAQAvPLIHBADtMrEGBdw8sgMCAO0yALEDAC88sgUEAO0ysgcGAfw8sgECAO0y\
MxEhESczESMiARDuzMwCqv1WIgJmAAABAAAAAAGRAZAAAwAAMREhEQGRAZD+cAABAAAAAAAAAAAA\
AAAAMQAAAQAAAAAAVwQDACAAABE1NjU0JyY1NDcGFRQXFhUUBxYVFAcGFRQXJjU0NzY1NDUjElc/\
FSVNTSUVP1cSIwIDAhhDNmA5NGY6MksiOWFNYRgYZkxgOSVKMjpmNDlgNkgAAQAAAAAAIwPoAAMA\
ABEzESMjIwPo/BgAAQAAAfQAJQPoAAMAABEzESMlJQPo/gwAAf//A2QAJARgAAMAABEzByMkASQE\
YPwAAgAAAUAAZAKeAAcADwAAEiImNDYyFhQCIiY0NjIWFEcqHR0qHR0qHR0qHQI6HSodHSr+6R0q\
HR0qAAAABQAAAAAEJAGuAC8ANwA/AEcAUwAAITUzHgEzMjY1NCcuBDU0NjMyFhc3MxcjLgEjIgYV\
FB4DFx4BFRQGIyInByAiJjQ2MhYUBCImNDYyFhQBETMyNjQmIwM1MxEjNTMyFhUUIwJOHhVPMik7\
lBkaKhYRWT0kJxkeHgceD0owHzkQIhkyCE5NW09FLiMBmyodHSod/eoqHR0qHf6JKDxGRjzcRkbc\
cYn6oDxLICEtKAcIFBQjFUNNCw4ZmzpIKBsPFw8JCwIVNzM6TiAgHSodHSodHSodHSoBaf6YYaZh\
/noeAWgeZ2vSAAUAAAAABCQBrgAaACIAKgAyAD4AACEiJjU0NjMyFhc3MxcHJiMiBhQWMzI2NxcO\
ATIiJjQ2MhYUBCImNDYyFhQBETMyNjQmIwM1MxEjNTMyFhUUIwMCZ3WCWiUpGx4eCCEkXjg2Njg2\
TREjFFmxKh0dKh396iodHSod/okoPEZGPNxGRtxxifprZ2V3DBIepgSMbZhtST4KSlEdKh0dKh0d\
Kh0dKgFp/phhpmH+eh4BaB5na9IAAAAD/9wAAgHeArMABwAPAE0AAAAiJjQ2MhYUBCImNDYyFhQX\
NDYzMhYVFAcWMzI2NTQvAQMnEy4BNTQ+ATc2MzIWFRQGIyImNTQ3JiMiBhUUHwETFwMeARUUDgEH\
BiMiJgGeIBgYIBj+fiAYGCAYWxsUEx4sFykmNiZ7zyvRWkgcExQmMzA4GxQTHiwXKSY2JnrUK9Va\
SBwTFCYzMDgBUhggGBggVBggGBgg0xIcGhEdDhctJi0mZf7eIAElR3E4Fi0RERM4IRIcGhEdDhct\
Ji0mZQEmH/7XR3I4Fi0RERM4AAUAAP9WA7wDYgAXABsAHwAjACcAAAEzFR4BFzMVIw4BBxUjNS4B\
JyM1Mz4BNxEjFhcTETY3JzMmJwMRBgcBxDRwnwmsrAmfcDRwnwmsrAmecZQHjTSOBpSUBo40jgYD\
YqsLtoA0f7cLq6sLt380grQL/ov0FAEI/vgU9DT0FP74AQoU9gAAAAAEAAD9bwKnBIgACwBEAE4A\
YwAAAQYVFBc+ATU0Jw4BExcVFAYjIiY1NDYzMhYUBgcWMzI2PQEnBiMiJjU0Nz4GPwEmNTQ2NxYV\
FAYHFzYzMhYVFCc0JiMiBiMTPgEnDgEVFBYXLgE1NDcnDgEHHgEzMjcBbAcFSHU2OUJLF09NUl9A\
Mi9BPy8tGC9AFxwNmNs6DSQgLh0xEhcWDWxJYlx5FBQLcYhOYlACBwIhW0HiNkYnHT0/phGPbAEC\
oXkKFgNTNy0jWjGVSHINB177bOwDTFxTQS1IO1g3ARk8RgPpAsedhWYXMCUtGicOERCWZoyhBzrl\
iKlfzwKcc866PmYB/p0SXfILRjEgQhIORUepLr1yl2eNowIAAgAA/fwC0gIAAGQAaAAAATI2NTQn\
JiMiBw4CByYnJicRIxEzETY3NjceAxcWMzI2NTQnJiMiBxYXFBYVFAYrASY1NDc2NzYzMhcWFxUU\
BgcGIyInBxc2MzIWFxYdAQYHBiMiJjU0NzMyFhUUBhUGBxYBMxEjAd4+Sg0aSUY8AgYKBCIaHi4c\
HC4eGiIGFAwZDyclMT0SJFIvMTINAjMhBUQFGlUnI15VNwhaSB8tND8iIj80QmYeKAg3Vl1MckQF\
ITMCDzA1/k17e/4geEotLWxJBQ4bCmInKx/+BAQA/hEfKydiCyoXHQkbe0IxNmIaECgDDQQeKxky\
FAtEGQ1PNFMSTm8cDRdLShc+LDlDElM0UE48MhkrHgQOBCYQHAPe/AAAAAP/uv2lAsMA/wAqADYA\
QgAANzQ2MzIWFxYVFAYHDgEHNjc+ATc2NTQmJy4BIyIGBz4BMzIWFRQHBiMiJgUiJjU0NjMyFhUU\
BiciJjU0NjMyFhUUBhOLZ1VrKy9GVWbPleWFMTQTChEdHDQzO2EWGCMbLj0nITEzRQKCFh0aFBUe\
GhoXGxwVFBwbHWKANDk+cn+6T2BNCD2FMWNQK2ZHUCMiF09GHhdBLzIgHlGKHBcWHB0VFh3yHhkV\
GhsUGR4AAAIAAP8GAXIA+gADAAcAADczEyMDMxMj3JQCltyUApb6/gwB9P4MAAAEAAD+CgIfA6oA\
CQAgAGMAbgAAJRYXPgE1NCYjIgMCJw4BFRQXLgE1NDY3JicOAQceATMyFx4BHwEwHQEUIyImNTQ2\
MzIWFRQGBxYzMjY1NC8BBiMiJjU0Nz4BNz4CNyY1NDY3HgEVFAYHHgEXNjMyFxYVFAcGAwYVFBc+\
ATU0JwYBSRMGTUdWQg4NGAEsOR8gKkw7BQlxVQEFbYIDIgMGAgJ6NlMzKCU1MScVIiMsAQ0JFY2Z\
Lg5MHgUjJxIOWUAvGUlhAggEEghcOTJjNmQDBjdeKV91xFsSTzM2Vv7gAQsQCTQnKSYSQSk4ThA+\
Wlp5U3F+GiBAFxcbB39IMSQzNyQiKAEMMzUPCY0BkopqURxQGAQgIQ3CB25/EzNiW22HTBFuJAJD\
NmJ3MBsDVh4iOSQlezNGJiYAAAAAAgAA/mMCQgGaAGMAZwAAATI2NTQnJiMiBw4BByYnJicRIxEz\
ETY3NjceAxcWMzI2NTQnJiMiBxYXFBYVFAYrASY1NDc2NzYzMhcWFxUUBgcGIyInBxc2MzIWFxYd\
AQYHBiMiJjU0NzMyFhUUBhUGBxYBMxEjAX4yOwoVOjgwAgwEHRMYJRYWJRgTHQQRChMMIB0nMQ4c\
QyUnKAoCKhoENgQVRCMYSUYtBkg6GCUrMRsbNCg1UhggBi1GST1bNgQaKgIMJiv+o2Ji/oBgOyQk\
VzsFHQtSHCIZ/moDM/50GSIcUggiEhcIFmI1KyhOFQ0gAgsDGCIUKBAJNRULQCtBDj5aFgoSPDsT\
MiMuNQ9BK0A/MCgUIxgDCwMfDRYDGPzNAAAAAAP/yP4eAjYAzAAmAC8AOwAANzQ2MzIXFhUUBw4B\
BzY3Njc2NTQnLgEjIgYHPgEzMhYVFAcGIyImBSImNDYyFhQGJyImNTQ2MzIWFRQGD3BSgjwjeEPG\
acBeRx4JLRgtIDBSChIWFiU5IBklLDkCAhIXFCIYFRUSFhUSERYVIU1eVzNaxmw7VwYzZEqMLylm\
MxoUQjYXDTwmKBoYU3UXJBYXIhjCGBQRFBUQExkAAAAAAwAAAAAAyADwAAkAFQArAAA3BhUUFjMy\
NjU0JyIGFRQeARc2NTQmByImNTQ2Ny4BNTQ2MzIWFRQHFhUUBlYsHhARFAIOEwoJECUUNCU1IyIR\
DCgeKTE3IzR0EB4UHhsRF4URDgoQCAwLHQ4X3CgeFxoLDxMQGiIfHSUOHB8gJgACAAD//wFnAQMA\
MABiAAAXIjU0MzIVFAYVFDMyNjU0IyIHBiMiNTQ3NjM2MzIWFRQHBgcOAQcGFjc2MzIWFRQGJyI0\
OwEyNzI0MzY3PgE1NiMiBwYnJjc+ATc2OwIyFxYzMjc2BwYHBhUUMzIVFCsC1D4YGxIdFyweChQW\
CAsmBgkjSQ8FFhpICgYBAgUIDA4gI0P6CQkJFAUBAQ0XAQIIDgkIDA0KDwYRAjIEAgMGDgwIAggX\
BkcKAhUMDCcnATchGwcWBg5CIxwMDQ8WVAsBAgUQBwkQAgYLCgUCAyQgKDkBEgwEHz0BBQIVCQ4G\
BhIHGAJABwYCCBKtHQUFCAoIAAAAAAIAAP8GAa4A+gALABQAADMUFjMyNjU0JiMiBgc0NjIWFAYi\
JooqIyIrJyYlKIp9tH19tH1ieHlhZXV2YWeQkdKRkgAAAQAA/wYBIgD6AAkAADE3MxEXFSM1NxFk\
fUHwQfr+Ph4UFB4BLAAAAAEAAP8GAY8A+gA8AAA3MhUUBw4DBzYzMhYzMjc+AjMOAgcGBwYjIiYj\
IgYjIjU0Jz4FNTQnIgcyFhUUBiMiNTQ+AcfIBQ02QG82EyAbZBwYHgUQDAEBBQUBBxAaKRp0FR9W\
AgcBAiw+RzwoU04aHCk3Hkw8WPp+Gg4hLh1ELQwjDgMNCwUWFgMpDhgnJhABAiFFODwyOBhiATUl\
Hh8pZyg5GQAAAQAA/wYBdQD6ADkAADcyFhUUBiMiJjU0NzYzMhcWFRQGBx4BFRQHBiMiJicmNDYz\
MhYVFAYjFjMyNjU0JicmNDc+ATQmIyJmGyInIRsyHzNZRiZERj0+UUskTSdXGCMyICIqJRsMPyQr\
SC4WFi9LKSQ8qhwXGyMrIy8aKhMiSC5ECwtFLUMnExYUHUwuIRsZHikxJyY6CAQiBAk3UDAAAAEA\
AP8GAZAA+gARAAAFFyM3NSM1NjUzATM/AREzFSMBRTLIMuGTo/77sAFjS0vRKSkxKPKA/o6Wkf7Z\
KAAAAAABAAD/BwF+APoALwAAFzYzMhYVFAYjFjMyNz4BNTQnJiMiBxMhDgErAQc2MzIXHgEVFAcO\
AiMiJy4BNTQSHCEbKiAcGiQxHBMJHhwoTkgKAWILNSXVBjlCUzEhK0MWQCslPCsQHl8gIBccICEe\
FB8gORwaNQEiJDp5Hh8VQSVPLxAQAhQJMhIjAAAAAAIAAP8GAYEA+gAJACwAABcyNjU0JiMiBxYT\
FhUUBiMiJjU0NjMmIyIGFT4CMzIWFRQGIyImJz4BMzIWyCktKigsMAfdGyMYHiIbEBY3NS8VGC0e\
TE9xSGFmAQFsWzA/0kUsIjAlngGfGiYZKB4bDB4jeF8LCglANkRZgnhpkRIAAQAA/wYBkAD7ACgA\
ADciDgMHNz4IMzIWMzI2Nw4EFSM2NzY3NjcGIyImYRQaFAkRBQoBDAILBQsJDRAJL3UjGjsRG0Ua\
HgiCAQgRaB4tER4lYKEFDgkbBnQBCwIJAQYBAwEmFw5Dp0FcQitFGzaHJzkKKAADAAD/BgGEAPoA\
DgAcADQAABcOARUUFjMyNjU0LgM3PgE1NCYiBhUUHgMHLgE1NDY3MhYVFAYHHgEVFAYjIiY1NDaa\
NixYLCo/DyAdMT4zI0RSMwocEjFwMSlmSktlKjA6MnVNTHY5KhkkGx0wKR8OFxINE1oaIhwdMCgg\
DxcTChU/GDw1M00BRjInNBcaOjU3SkgwJDUAAAIAAP8GAYEA+gAJACwAADciBhUUFjMyNyYDJjU0\
NjMyFhUUBiMWMzI2NQ4CIyImNTQ2MzIWFw4BIyImuSktKigsMAfdGyMYHiIbEBY3NS8VGC0eTE9x\
SGFmAQFsWzA/0kUsIjAlnv5hGiYZKB4bDB4jeF8LCglANkRZgnhpkRIAAQAJ/woBmQD5ADAAACUw\
FzY1NCYjDgEVFBcWMzI3NjcUHgEVDgEHIicmJzQmNTQ3MhYXFhUUBiMiJjU+ATMBLxIEPB8zQCch\
MCsoHCoJCBtVVk87OwQB2yRAESIkHCApAiAapAMFCBQeAmJqjjMqIhhYAQQDAVVQATk5ZgIrAuYC\
HhQnJCU5LhwWJgACAAn+ogGZAV4AOAA/AAAlMBc2NTQmIyIHERYzMjc2NxQeARUOAQcjFSM1Jicm\
JzQmNTQ3NTMVMjYzMhYXFhUUBiMiJjU+ATMDEQYVFBcWAS8SBDwfAxAMDCsoHCoJCBtRVQEjPS47\
BAGrIwMHAyRAESIkHCApAiAaej0nCqQDBQgUIgT+SwQiGFgBBAMBVFEBaGsJLTlmAisCyxlpZgEe\
FCckJTkuHBYm/pcBli6RjjMNAAABAAD/BgH0APoACwAANTM1MxUzFSMVIzUj10bX10bXI9fXRtfX\
AAAAAQAU/gYA5AIAABMAABMWBwYnJgI1NBI3NhcWBwYCFRQS3AcNCQVJa2tJCQsHBzxGR/4WCAUD\
BlcBIH18ASJWCwcFCUn+54iG/uUAAAEACv4CANwB/QATAAATNhI1NAInJjc2FxYSFRQCBwYnJhQ7\
R0Y8CQwKB0lra0kICwb+FkkBG4aIARlJCwQECVb+3nx9/uBXCQkEAAAEACT/VgJMAKoACwAPABMA\
HgAABTQmIyIGFRQWMzI2NzMRIwEzESMkFAYjIiY1NDYzMgGoVDwgNFc9IS9yMjL+CjIyAfV7ZmV8\
eWhmIDVOJx81SyPq/qwBVP6s5nhGSTk/QwAAAgAA/yQCEgDcAAMADwAANxUhNSUzFSE1MxEjNSEV\
Ix4B1v4MHgHWHh7+Kh5BgoKbNzf+SDc3AAACAAD/fwHCAIEACwATAAAFNCYjIgYVFBYzMj4BFAYi\
JjQ2MgFRWjYgNF03IS9xfch9fcgeNE8nHzRMI3RsS0tsSwAAAAIAAP92AUIAigAMABgAACU0JiMi\
BhUUHgEzMjYnMhYVFAYjIiY1NDYBIxocO5MEGxc7k2FAQHtHQEB7Lg4ZWygEDhVbhEwpP2BMKT9g\
AAAAAQAA/3kBQACHAAsAACUUBiMiJjU0NjMyFgFAeVkyPHpYMjwoRmk4J0VqOAAB//7/bwFMAJEA\
CwAAJzcXNxcHFwcnByc3AhuMjBuGhhyLixyGcSB2dSBwcCF1dSFwAAAABQAA/2oBLACWAAUACwAR\
ABcAHwAAFwcWMzI3LwEGFRQXPwEmIyIHHwE2NTQnBjQ2MhYUBiKWRx0qKR9dRx0dXEgfKSodXEcd\
HfJYfFhYfBJIHR1aSR8pKh1YSB0dWkgfKSodhXxYWHxYAAAAAQAA/wYCMAD6AAMAABUBMwEBuHj+\
R/oB9P4MAAEAAP90AUoAjAADAAAxNxcHpaWljIyMAAEAAP90AUoAjAACAAAVGwGlpYwBGP7oAAEA\
AP/OAGQAMgAHAAAWIiY0NjIWFEcqHR0qHTIdKh0dKgAAAAEAAP95AUACqAAPAAARIREUBiMiJjU0\
NjMyFxEhAUB5WTI8elgxH/7eAqj9gEZpOCdFahwBxQAAAQAA/3kBQAKoABMAABEhERQGIyImNTQ2\
MzIXESE1ITUhAUB5WTI8elgxH/7eASL+3gKo/YBGaTgnRWocARF4PAAAAAABAAACMAFAAqgAAwAA\
ESEVIQFA/sACqHgAAAAAAgAAAXwBQAKoAAMABwAAESEVIREhFSEBQP7AAUD+wAH0eAEseAAAAAEA\
AP/aAGQAPgAHAAAWIiY0NjIWFEcqHR0qHSYdKh0dKgAAAAEAAAMCATYDwAAFAAARIRUhFSMBNv7o\
HgPAHqAAAAAAAQAAAyoA5gQ4ADkAABMiJjU0NjMyFhUUDwEUMzI2NTQmKwEiNTQ7ATI2NTQmIyIV\
FBYVFCMiJjU0NjMyFhUUDgEVFBYVFAZQJykQDg8SCwwhFSQRDxIUFCgXJQ4OFQIhDBIlKyMtIyMU\
MwMqHhgOFhAMEgcHDSofDxkOECUVDRMNAwgIHBEMFR4iGhgjEwIBIg8jLQAAAAABAAADAgE2A8AA\
BQAAARUjNSE1ATYe/ugDwL6gHgAAAAEAAPzvATsAAAAPAAAVNTMeBBUUBzY1NCYnHgY/UVA3LhKR\
cO/vNXBlbIlJYGlBSY/fKgABAAAAAAE7AxEADwAAMTUzPgE1NCcWFRQOAwcecJITLjdQUT8G7x/h\
k0dIZ15Iim1ncTUAAgAA/UQBPAAAABgAJgAAGQEzHgYVFAcWFRQHNjU0LgMjNR4DFzQ2NTQuAx4G\
JzM7OC4cEhMeBSk+SEAWCURNVhUBKT5IQf6pAVcbOTM3Oj1IJSwrKSs2ORkhN2RFNBirJFRDXSkE\
DAQ3ZUUzGQAAAAIAAP//ATwCvAAYACYAABURMzI+AzU0JxYVFAcWFRQOBQc1Mj4DNTQmNQ4DHhZA\
SD4pBR4TEhwuODszJwYWQUg+KQEVVk1EAQFXGDRFZDchGTk2KykrLCVIPTo3MzkbqxkzRWU3BAwD\
KV1DUwAAAAADAAD9KgE8AJEAGwApADcAABkBMx4GFRQHFhUUBxYVFAc2NTQuAiM1HgMXNDY1NC4C\
IyceAxc0NjU0LgIjHgYnMzs4LhwSEhITHgU9V1UcCURNVhUBPFZVHQIJRE1WFQE8VlUd/pACARs5\
Mzc6PUglLCsnLSwrKSs2ORkhRHdIKakkVEFdKQQNA0R2SCmrJFNCXSkEDQNEdkgpAAADAAD/VgE8\
Ar0AHAApADYAABEzMj4DNTQnFhUUBxYVFAcWFRQOBQcjNzI+AjU0JjUOAycyPgI1NCY1DgMeFkBI\
PikFHhMSEhIcLjg7MycGHh4dVVc9ARVWTUQJHVVXPQEVVk1EAVcYNEVkNyEZOTYrKSssLScrLCVI\
PTo3MzkbqilJeEQEDAQpXUNUhilJeEQDDQQpXUNUAAQAAP1CATwBVAAgAC4APABKAAAZATMeBhUU\
BxYVFAcWFRQHFhUUBzY1NC4DIzUeAxc0NjU0LgMnHgMXNDY1NC4DJx4DFzQ2NTQuAx4GJzM7OC4c\
EhISEhITHgUpPkhAFglETVYVASk+SEEWCURNVhUBKT5IQRYJRE1WFQEpPkhB/qgCrBs5Mzc6PUgl\
LCsnLSwrJy0sKykrNjkZITdkRTQYqyRUQ10pBAwEN2VFMxmrJFRDXSkDDgM3ZUUzGaskVENdKQQM\
BDdlRTMZAAQAAP6OATwCoAAfACwAOQBGAAAZATMyPgI1NCcWFRQHFhUUBxYVFAcWFRQOBQc1Mj4C\
NTQmNQ4DJzI+AjU0JjUOAycyPgI1NCY1DgMeHFVXPQUeExISEhISHC44OzMnBh1VVz0BFVZNRAkd\
VVc9ARVWTUQJHVVXPQEVVk1E/o4CrClId0QhGTk2KykrLC0nKywtJyssJUg9OjczORuqKUl4RAMN\
BCldQ1SGKUl4RAMNBCldQ1SGKUl4RAMNBCldQ1QAAAAFAAD9VQE8AhIAJAAyAEAATgBcAAAZATMe\
BhUUBxYVFAcWFRQHFhUUBxYVFAc2NTQuAyM1HgMXNDY1NC4DJx4DFzQ2NTQuAyceAxc0NjU0LgMn\
HgMXNDY1NC4DHgYnMzs4LhwSEhISEhISEx4FKT5IQBYJRE1WFQEpPkhBFglETVYVASk+SEEWCURN\
VhUBKT5IQRYJRE1WFQEpPkhB/rsDVxs5Mzc6PUglLCsnLSwrJy0sKyctLCspKzY5GSE3ZEU0GKsk\
VENdKQMNBDdlRTMZqyRUQ10pBAwEN2VFMxmrJFRDXSkDDgM3ZUUzGaskVENdKQQMBDdlRTMZAAAF\
AAD9vAE8AnkAIwAwAD0ASgBXAAAZATMyPgI1NCcWFRQHFhUUBxYVFAcWFRQHFhUUDgUHNTI+AjU0\
JjUOAycyPgI1NCY1DgMnMj4CNTQmNQ4DJzI+AjU0JjUOAx4cVVc9BR4TEhISEhISEhwuODszJwYd\
VVc9ARVWTUQJHVVXPQEVVk1ECR1VVz0BFVZNRAkdVVc9ARVWTUT9vANXKUh3RCEZOTYrKSssLScr\
LC0nKywtJyssJUg9OjczORuqKUl4RAMNBCldQ1SGKUl4RAMNBCldQ1SGKUl4RAMNBCldQ1SGKUl4\
RAMNBCldQ1QAAAACAAD/ZADhAbAACgAWAAA3IgYdATY3NjU0JjcyFhUUBwYjETMRNmcUKyImKx0H\
IzlLUkQoI3omE7kPODsvGyYmMiNJTFICTP68NAAAAgAA/oYAxQF6AAMADAAAFzc1BxEVNxEjNQcR\
NxyQkKkZrAFlLZYtAUnoNP3A4jMCQwEAAAIAAP6YAP8BaAADAB8AADcVNzUDIzUHNTc1BzU3NTMV\
NzUzFTcVBxU3FQcVIzUHU1paHjU1NTUeWh01NTU1HVpGpxun/jejD1wPpw9aD6ifHKujD1wPpw9a\
D6ifHAAAAAEAFP+EAQsAegAeAAAXNSYnBzAVIzUzNycwIzUzFRYXNzA1MxUjBgcXMDMVwygMM0g5\
MzM5SCESNEg5IRM0OXw7Jg0zO0oyMkg5IhEzOUciETRIAAQAAP9qAWwBsAAOABwAKwA6AAA3DgEd\
ATI3Njc2NTQnJiM3MhYVFAcGBwYjETMRNhcOAR0BMjc2NzY1NCcmIzcyFhUUBwYHDgEjETMRNk4R\
Hg4eHwwEChARGR0rCRgrNS8fGdERHRAeHQsGCxAPFh8qCxkoFjcWHht9AR4QxikrNA0ZHhQVJjkh\
EiA5NEACRv7BMiYBHRHGKS8wExMcFhUmNiQWHD4vGyUCRv7BMgAAAQAA/wYAjAD6AA4AADcVBhUU\
FxUuAzQ+AoxQUBolMhsbMiX6FEOjpkAUDx86WnBaOh8AAAEAAP8GAIwA+gAOAAA1HgMUDgIHNTY1\
NCcaJTIbGzIlGlBQ+g8fOlpwWjofDxRApqNDAAACADL/ZAENAbAACgAWAAA3IgYVFBcWFzU0Jicy\
FxEzESInJjU0NqsXIC4uGiozOiMjOlJPOXomGzBFQgPLEh4mNAFE/bRSUEUjMgAABP/1/2oBbAGw\
AA4AHQAsADsAADcjIgcGFRQXFhcWMzU0JicyFxEzESImJyYnJjU0NhcOAR0BMjc2NzY1NCcmIzcy\
FhUUBwYHDgEjETMRNlcBERAKBAwfHg4eKzAZHxY3FysYCSvpER0QHh0LBgsQDxYfKgsZKBY3Fh4b\
fRUUHhkNNCspxhAeJzIBP/26JRs0OSASITkmAR0RxikvMBMTHBYVJjYkFhw+LxslAkb+wTIAAAAA\
AQAA/sAAqQFAABMAABMzFTcVBxU3FQcVIzUHNTc1BzU3RB5HR0dHHkREREQBQKIOXA5/DloPqKIO\
XA5/DloPAAMAAP6YAToBaAAjACcAKwAANzUzFTcVBxU3FQcVIzUHFSM1DwEjNQc1NzUHNTc1MxU3\
NTMVAzUHFTcVNzXpHjMzMzMePR48AR4zMzMzHj0eHj1bPcCong9cD58PWg+1qhKspBCong9cD58P\
Wg+1qhKspP79nhGfuJ4RnwAB//0AAAE/APQAGAAANwYjIiY1ND8BNi8BJjU0NjMyMRcFFhUUBxIC\
AwcJBs8ODs0ICwcBAgEfDg4BARAICgNJBwZPAwsKEgFrBg4NBQAAAAEAAAAAAFAAUAAJAAA1NDYy\
FhQGIyImFyIXFxEQGCgRFxciFxgAAAABAAAAAAFUADIAAwAAMTUhFQFUMjIAAAABAAAAAABkARgA\
AwAAMwMzAygoZCgBGP7oAAAAAQAAAAABGAE1AAUAADEbASMnB4yMQVhaATX+y8bGAAACAAAAAAJY\
AUoADgAZAAAxNDYzMh4CFSMuASIGByEiJjQ2MzIWFRQGs3k5a1UzDwui4KILARwXJSUXGSMjmLIs\
UYBNboaGbiQwJCQYGSMAAAEAAAAAALYBLQAYAAATMhYXFhUUBw4BIzAnJjU0NjU0Iy4BNTQ2Vhsb\
EBoyGUQQBgFHFBsoLQEtDBEdMD08HS0DAQIIaxMPASYcHjEAAAAAAgAFAAABjgH1ABEAIwAANxM2\
MzIXFhUUBwMGIyInJjU0JxM2MzIXFhUUBwMGIyInJjU0mM0LCgYDCwXMCQsEBguLzQoLBgMLBcwI\
DAQGCyMBwBICBQoGDP4/EQMGDAcHAcASAgUKBgz+PxEDBgwHAAEAAP8GAIIA+gADAAA1MxEjgoL6\
/gwAAAEAAAAAAIIA+gADAAA1MxUjgoL6+gAAAAEAAP+DASwAAAADAAAxIRUhASz+1H0AAAEAAAAA\
ASwAfQADAAA1IRUhASz+1H19AAEAAP5+AOsBhwATAAATFwcXJiMiBhUUFyY1NDYzMhcnNym9Z2wy\
NB8mOHg0JSIih2QBh+XZzy4kHTU0S00jLRW8tAAAAQAA/w0BAADAABYAADcOAiMiJjU0NjIWFRQH\
MjY3NjIXAyerAxkaEys3JjgpFyIzIQIVA5YwPAEHBCkoHyAeGR0bISwCAv5vEAAAAAEAAP4MAUgA\
wAAkAAAXBiMiJjU0NjMyFhUUBzI/AQYjIiY1NDYzMhYVFAcyNzYyFwMnqyghKzcnGxwpF0ELPDYY\
KzcnGxwpF0guAhUDxS3EDCgoICAfGR0bIsoMKSgfIB4ZHRtNAgL9bgwAAAEAAP4MAY8BwAA2AAA3\
BiMiJjU0NjMyFhUUBzI/ASIOASMiJjU0NjMyFhUUBzI3NjIXAScTBiMiJjU0NjMyFhUUBzI39igf\
KzcnGxwpFz8LOgEgHBMrNycbHCkXSC4BFgP+9C1VKCErNycbHCkXQQs8DCgoICAfGR0bIssJBCko\
HyAeGR0bTQIC/G4MASQMKCggIB8ZHRsiAAAAAAEAAP0MAdoBwABFAAATBiMiJjU0NjMyFhUUBzI/\
AQYjIiY1NDYzMhYVFAcyPwEGIyImNTQ2MzIWFRQHMj8BIg4BIyImNTQ2MhYVFAcyNzYyFwEnqygh\
KzcnGxwpF0ELOighKzcnGxwpF0ELOigfKzcnGxwpFz8LOgEgHBMrNyY4KRdILgIVA/6pLf48DCgo\
ICAfGR0bIsoMKCggIB8ZHRsiygwoKCAgHxkdGyLLCQQpKB8gHhkdG00CAvtuDAAAAAEAAP0MAhkC\
rgBWAAAlBiMiJjU0NjMyFhUUBzI/AQYjIiY1NDYzMhYVFAcyPwEiDgEjIiY1NDYzMhYVFAcyNzYy\
FwEnEwYjIiY1NDYzMhYVFAcyPwEGIyImNTQ2MzIWFRQHMjcBPyghKzcnGxwpF0ELNigfKzcnGxwp\
Fz8LNAEgHBMrNycbHCkXSC4BFgP+ai1VKCErNycbHCkXQQs6KCErNycbHCkXQQs0DCgoICAfGR0b\
IsQMKCggIB8ZHRsixwkEKSgfIB4ZHRtNAgL6gAwBJAwoKCAgHxkdGyLIDCgoICAfGR0bIgAD//D/\
BgImAPoABwAPABMAADYiJjQ2MhYUACImNDYyFhQFATMBUDIjIzIjAYgyIyMyI/3SAbh+/kdLIzIj\
IzL+zyMyIyMyWgH0/gwABP/h/wYDBwD6AAcADwATABcAADYiJjQ2MhYUACImNDYyFhQFATMBMwEz\
AUEyIyMyIwJ3MiMjMiP84wG4e/5HeQG4e/5HSyMyIyMy/s8jMiMjMloB9P4MAfT+DAAC/7T/iAF8\
ARgAEQA7AAA3FjMyNjc2NTQnJiMiBgcGFRQXIicHMzIUKwEiNDsBEzY1NCMiDgMHBiY3Njc2MzIW\
Fz4BMzIWFRQGxQIFEjIODQ8CBBI1Cw8nKhktNAsL4QsLS2gGCwgMDwsZCgUbBTEPFyUjJAcdJiMe\
LVkoATUkICYlBQEzHCckKS4geh4eAR0SDA8HFBIsEAgPCVgQGRMaHg80MElrAAAB/9v/9gG+ARgA\
UwAANwYHBisBIj8BNiYjIgYHBiY3PgMzMhc2MzIXPgEzMhYVFA8BBhUUMzI3PgU3NhYHDgIjIiY1\
ND8BNjU0IyIPAQYHJwYmPwE2NTQjIgdQBwgEBDUNDUIEBggNFiQFFQQUECIfEjcLJCQtCQspExkk\
BS8ECAEEBQsHDAMNAQYVBhIXLR8VGQU0ARUbCEEIDyYNCARDARUbCBURAwEapw0PGjkIDAklGjAS\
KCgoEBgjGgsPfQsJDgIDCQYPBRIBCQ0LHx8aFhMNDYgCBA4UqxYBAQEPCKsCBA4UAAAAAf9+/2AB\
XgG4AEEAAAciJjU0NjMyFhUUBwYVFDMyPgc3IyI1NDsBPgEzMhYVFAYjIiY1NDc2NCMiDgcHMzIU\
KwEOATIgMBcTEhcSChkLEA8LDQoODRQKNRMRQRRpNCAwFxMSFxIKGQcMCgcIBQYDBgE2ExM/IXag\
JiAaIhQPDgsHDQ4GERMlJDw3VScVE0tfJiAaIhQPDgsGHAULChQNGg0eBijFwQAAAf/bAAABEwET\
ACoAADc+ASYjIgYPAQYHBisBIj8BNiYjIgYHBiY3PgEzMhYXNjMyFhUUIyImNTTQBQMDBRQkCT8H\
CAQENQ0NQgQGCA4XIgUVBCE4IhsdBB8kGiArDxvnAwcELBicEQMBGqMNDxo1CAwJPEAaDSceGTcW\
DRQAAAABAAAAAADcARgAMQAAMyImNTQ2MhYVFAcWMzI2NTQuAicmNTQ2MzIWFRQGIyImNTQ3JiMi\
BhUUHgIXFhUUUB4yFRoXEAwTFiEJCxgGOjctIjYWEA0WBw8RDxkREh4FMCsbEBYQDBIQEBYSCw8H\
DQQlMCMoJBgQGBQOAw4TEQ0JEwwRAyArVQAAAf/k//wA5wEPADwAACcGLgE/ASIGIyImDgEHBicm\
Nz4BNx4BMzI2MzIXFhQPAQYVFDMyNjMyFxY3NiciNTQ2MzIVFAYrAS4BIyIKBgsBBbAFHwwDFAwf\
BQ8EAwgMCwEOLxUiKwQIBQsHngICAQ0GGiMNCAUHJBINJigeHRglCA4DBAgNBsEGBgIyBQ0LCRIe\
MAIBBgsBAREHpwYCAwMaCg4NAx0OFTceLwMYAAX/tP+IBUsBGAAQACIAtQDGANcAACUWMzI2NzY0\
JyYjIgYHBhUUBRYzMjY3NjU0JyYjIgYHBhUUFyInBzMyFCsBIjQ7ARM2NTQjIg4DBwYmNzY3NjMy\
Fhc+ATMyFz4BMzIWFz4BMzIXPgEzMhYXPgEzMhc+ATMyFhc+ATMyFhUUBiMiJwczMhQrASI0OwET\
NjU0IyIGBxUUBiMiJwczMhQrASI0OwETNjU0IyIGBxUUBiMiJwczMhQrASI0OwETNjU0IyIGBxUU\
BiUWMzI2NzY0JyYjIgYHBhUUBRYzMjY3NjQnJiMiBgcGFRQCCgIFEjIODQ8CBBI1Cw/+ywIFEjIO\
DQ8CBBI1Cw8TFhktNAsL4QsLS2gGCwgMDwsZCgUbBTEPFyUjJAcdJiMvExIiGyMkBx0mIy8TEiIb\
IyQHHSYjLxMSIhsjJAcdJiMeLWtJFhktNAsL4QsLS2gGCw4UFGtJFhktNAsL4QsLS2gGCw4UFGtJ\
FhktNAsL4QsLS2gGCw4UFGsDgwIFEjIODQ8CBBI1Cw/+ywIFEjIODQ8CBBI1Cw8oATUkIUoFATMc\
JyQpBgE1JCAmJQUBMxwnJCkuIHoeHgEdEgwPBxQSLBAIDwlYEBkTGh4PMhwWExoeDzIcFhMaHg8y\
HBYTGh4PNDBHbSB6Hh4BHRIMDxgjAUdtIHoeHgEdEgwPGCMBR20geh4eAR0SDA8YIwFHbSgBNSQh\
SgUBMxwnJCkGATUkIUoFATMcJyQpAAT/tP+IBAYBGABvAIAAkQCjAAAhIicHMzIUKwEiNDsBEzY1\
NCMiBgcVFAYjIicHMzIUKwEiNDsBEzY1NCMiBgcVFAYjIicHMzIUKwEiNDsBEzY1NCMiDgMHBiY3\
Njc2MzIWFz4BMzIXPgEzMhYXPgEzMhc+ATMyFhc+ATMyFhUUBicWMzI2NzY0JyYjIgYHBhUUBRYz\
MjY3NjQnJiMiBgcGFRQFFjMyNjc2NTQnJiMiBgcGFRQDUhYZLTQLC+ELC0toBgsOFBRrSRYZLTQL\
C+ELC0toBgsOFBRrSRYZLTQLC+ELC0toBgsIDA8LGQoFGwUxDxclIyQHHSYjLxMSIhsjJAcdJiMv\
ExIiGyMkBx0mIx4ta0wCBRIyDg0PAgQSNQsP/ssCBRIyDg0PAgQSNQsP/ssCBRIyDg0PAgQSNQsP\
IHoeHgEdEgwPGCMBR20geh4eAR0SDA8YIwFHbSB6Hh4BHRIMDwcUEiwQCA8JWBAZExoeDzIcFhMa\
Hg8yHBYTGh4PNDBHbSgBNSQhSgUBMxwnJCkGATUkIUoFATMcJyQpBgE1JCAmJQUBMxwnJCkAAAP/\
tP+IAsEBGABMAF4AbwAAMyInBzMyFCsBIjQ7ARM2NTQjIg4DBwYmNzY3NjMyFhc+ATMyFz4BMzIW\
Fz4BMzIWFRQGIyInBzMyFCsBIjQ7ARM2NTQjIgYHFRQGJxYzMjY3NjU0JyYjIgYHBhUUBRYzMjY3\
NjQnJiMiBgcGFRTIFhktNAsL4QsLS2gGCwgMDwsZCgUbBTEPFyUjJAcdJiMvExIiGyMkBx0mIx4t\
a0kWGS00CwvhCwtLaAYLDhQUa0wCBRIyDg0PAgQSNQsPAVUCBRIyDg0PAgQSNQsPIHoeHgEdEgwP\
BxQSLBAIDwlYEBkTGh4PMhwWExoeDzQwR20geh4eAR0SDA8YIwFHbSgBNSQgJiUFATMcJyQpBgE1\
JCFKBQEzHCckKQAAAAL/2/+IAysBGAByAIMAACU2NzYzMhYXPgEzMhYVFAYjIicHMzIUKwEiNDsB\
EzY1NCMiDgMHDgEjIiY1ND8BNjU0IyIPAQYHJwYmPwE2NTQjIg8BBgcGKwEiPwE2JiMiBgcGJjc+\
AzMyFzYzMhc+ATMyFhUUDwEGFRQzMjc+ARcWMzI2NzY0JyYjIgYHBhUUAa0xFBgiIyQHHSYjHi1r\
SRYZLTQLC+ELC0toBgsHDxIOGAgaPC0VGQU0ARUbCEEIDyYNCARDARUbCEQHCAQENQ0NQgQGCA0W\
JAUVBBQQIh8SNwskJC0JCykTGSQFLwQIAQQPJdECBRIyDg0PAgQSNQsPd2wYHRMaHg80MEdtIHoe\
HgEdEgwPDR8bNRA2OBYTDQ2IAgQOFKsWAQEBDwirAgQOFKwRAwEapw0PGjkIDAklGjASKCgoEBgj\
GgsPfQsJDgIINTkBNSQhSgUBMxwnJCkAAAAAAv/b/2ADGQG4AFMAlQAANwYHBisBIj8BNiYjIgYH\
BiY3PgMzMhc2MzIXPgEzMhYVFA8BBhUUMzI3PgU3NhYHDgIjIiY1ND8BNjU0IyIPAQYHJwYmPwE2\
NTQjIgcTIiY1NDYzMhYVFAcGFRQzMj4HNyMiNTQ7AT4BMzIWFRQGIyImNTQ3NjQjIg4HBzMyFCsB\
DgFQBwgEBDUNDUIEBggNFiQFFQQUECIfEjcLJCQtCQspExkkBS8ECAEEBQsHDAMNAQYVBhIXLR8V\
GQU0ARUbCEEIDyYNCARDARUbCPUgMBcTEhcSChkLEA8LDQoODRQKNRMRQRRpNCAwFxMSFxIKGQcM\
CgcIBQYDBgE2FBQ/IXYVEQMBGqcNDxo5CAwJJRowEigoKBAYIxoLD30LCQ4CAwkGDwUSAQkNCx8f\
GhYTDQ2IAgQOFKsWAQEBDwirAgQOFP6fJiAaIhQPDgsHDQ4GERMlJDw3VScVE0tfJiAaIhQPDgsG\
HAULChQNGg0eBijFwQAAAAH/fv9gAmkBuAB0AAAlIw4BIyImNTQ2MzIWFRQHBhUUMzI+BzcjIjU0\
OwE+ATMyFhUUBiMiJjU0NzY0IyIHBgcXPgEzMhYVFAYjIiY1NDc2NCMiDgcHMzIUKwEOASMiJjU0\
NjMyFhUUBwYVFDMyPgcBX5shdl8gMBcTEhcSChkLEA8LDQoODRQKNRMRQRRpNCAwFxMSFxIKGSYX\
AwGbFGk0IDAXExIXEgoZBwwKBwgFBgMGATYUFD8hdl8gMBcTEhcSChkLEA8LDQoPDRTmxcEmIBoi\
FA8OCwcNDgYREyUkPDdVJxUTS18mIBoiFA8OCwYccwwGAUtfJiAaIhQPDgsGHAULChQNGg0eBijF\
wSYgGiIUDw4LBw0OBhETJSQ8N1UAAAAB/37/YAN0AbgAqgAAEzM+ATMyFhUUBiMiJjU0NzY0IyIH\
BgcXPgEzMhYVFAYjIiY1NDc2NCMiDgcHMzIUKwEOASMiJjU0NjMyFhUUBwYVFDMyPgc3Iw4BIyIm\
NTQ2MzIWFRQHBhUUMzI+BzcjDgEjIiY1NDYzMhYVFAcGFRQzMj4HNyMiNTQ7AT4BMzIWFRQGIyIm\
NTQ3NjQjIg4CBwbMnBRpNCAwFxMSFxIKGSYXAwGbFGk0IDAXExIXEgoZBwwKBwgFBgMGATYTEz8h\
dl8gMBcTEhcSChkLEA8LDQoPDRQKmyF2XyAwFxMSFxIKGQsQDwsNCg4NFQqbIXZfIDAXExIXEgoZ\
CxAPCw0KDg0UCjUTEUEUaTQgMBcTEhcSChkOFQ4IBgIBDktfJiAaIhQPDgsGHHMMBgFLXyYgGiIU\
Dw4LBhwFCwoUDRoNHgYoxcEmIBoiFA8OCwcNDgYREyUkPDdVJ8XBJiAaIhQPDgsHDQ4GERMlJDs4\
VSfFwSYgGiIUDw4LBw0OBhETJSQ8N1UnFRNLXyYgGiIUDw4LBhwTJyIbCgAB/37/YASAAbgA4AAA\
ARc+ATMyFhUUBiMiJjU0NzY0IyIHBgcXPgEzMhYVFAYjIiY1NDc2NCMiDgcHMzIUKwEOASMiJjU0\
NjMyFhUUBwYVFDMyPgc3Iw4BIyImNTQ2MzIWFRQHBhUUMzI+BzcjDgEjIiY1NDYzMhYVFAcGFRQz\
Mj4HNyMOASMiJjU0NjMyFhUUBwYVFDMyPgc3IyI1NDsBPgEzMhYVFAYjIiY1NDc2NCMiBwYHFz4B\
MzIWFRQGIyImNTQ3NjQjIg4HAdicFGk0IDAXExIXEgoZJhcDAZsUaTQgMBcTEhcSChkHDAoHCAUG\
AwYBNhMTPyF2XyAwFxMSFxIKGQsQDwsNCg8NFAqbIXZfIDAXExIXEgoZCxAPCw0KDg0UCpshdl8g\
MBcTEhcSChkLEA8LDQoPDRQKmyF2XyAwFxMSFxIKGQsQDwsNCg4NFAo1ExFBFGk0IDAXExIXEgoZ\
JhcDAZsUaTQgMBcTEhcSChkHDAoHCAUGAwYBDwFLXyYgGiIUDw4LBhxzDAYBS18mIBoiFA8OCwYc\
BQsKFA0aDR4GKMXBJiAaIhQPDgsHDQ4GERMlJDw3VSfFwSYgGiIUDw4LBw0OBhETJSM8N1YnxcEm\
IBoiFA8OCwcNDgYREyUkPDdVJ8XBJiAaIhQPDgsHDQ4GERMlJDw3VScVE0tfJiAaIhQPDgsGHHMM\
BgFLXyYgGiIUDw4LBhwFCgsTDhkOHQAAAAADAAD/YALfAbgANgBxALYAADMiJjU0NjMyFhUUBxYz\
MjY1NC4DJy4CNTQ2MzIWFRQGIyImNTQ3JiMiBhUUHgIXHgEVFCUGLgE/ASYjIgYjIg4BBwYnJjc+\
ATcWMzI2MzIXFhQPAQYVFB4BFxY+AScuATU0NjMyFRQGKwEuASMiBSImNTQ2MzIWFRQHDgEeARUU\
FjI+BzcjIjU0OwE+ATMyFhUUBiMiJjU0NzY0IyIOBwczMhQrAQ4BUB4yEgwOFwwGGBYhAwwFFwMU\
GBQ3LSI2FhANFgUQDg8ZERIeBRsXASYGCwEFrgoUBRoJBRASBRAFAwcLDAExGiAoBwIUCweaBBoq\
DQUJBQIDJBQMJisgBhc1CRP+tCAwFxMSFxIEAQECBhYQDwsNCg4NFAo1ExFBFGk0IDAXExIXEgoZ\
BwwKBwgFBgMGATYTEz8hdisbEBYNCxgMEhYSCQwNBA4CDRIeDyMtJBgQGBQOBgoUEQ0JEwwRAxIf\
FVoDBAgNBr8FARgfBA0LCBMeLgQDCAIBEQejBQUHAwcLAwQNBggIFAsTNx4qAg2yJiAaIhQPDgsC\
BQQGAwgGBhETJSQ8N1UnFRNLXyYgGiIUDw4LBhwFCwoUDRoNHgYoxcEAAgAF//sB/AGaAAkALAAA\
AQ8BBhUUMzI2NwcOASMiJjU0PwEjNTM/AQc3MhU2MzIWFRQGIiY1NDcGDwEjATZ/OQIUGEQSDCky\
HyIiAzdpcxZZJpgZIDUYHRggFgk3EEJIAQkHuAgDFRcPKBkUJBoLC7MgSi54Ci0pHBUSGxEOEhMP\
J9gAAQAA//0BtQDUAC8AACUyNTQnBiImNT4BMzIWFRQHBiMiLwEmIyIVFBc2MzIWFRQGByInJjU0\
NzYzFh8BFgFwLRoQHBQBFwkkLSkXHiYeohoRLhkQDw0VFA0dGBwoFiIqF6IcMTkgExAWDQ4WMzUz\
JBUVehI6IBIQFw4PEgIaIi0zJBMCEHoTAAEAAP/NAbUBAwA2AAAXIiY1NDc2MxYfATUzFRcWMzI2\
NTQnBiMiNT4BMzIWFRQHBiMiLwEVIzUnJiMiBhUUFzYzMhUUTSAtKBYgKBcuHlwiDxUcFhQSHAEP\
CSAtKRccJB4uHlwgDxYcFRQTHANDJjMkEwIQJGmARxcpHCcQDBsPFUImMyQVFSRsg0cWKB4nDwwd\
IAABAA0AAAJFAOAACwAANyc3FzcXNxcHJwcnIhWOZXhqTRaSaXRpLhmZfHx8VBehfHx8AAAAAQAN\
/8sCRQERABMAACUHJwcnNxc3NTMXNxc3FwcnBxUjARZAaUsVjmUWGwFGak8UkmkZG0ZGfE4ZmXwX\
lntKfFUYoXwblgAAAQAAAAABGAEYAAsAADM1IzUzNTMVMxUjFXt7eyJ7e3sie3siewAAAAEAAAAA\
ATYBcgAKAAAxNT4ENzMUBiQxTDQ0Dx7APAcPKz1vSY7aAAAB//8AAAEtAKAAHQAANz4CMzIeARcW\
MzI3NhYHDgIjIi4BJyYjIgcGJgEJECkcGCYmDwkKHhgEDgIIESkcGCQlEgcIHR0FDUYZISAhMQoG\
JAYHBxkiHyExCgQjBggAAAABAAAAAAEsASwABwAAMREhESM1IxUBLCPmASz+1LS0AAEAAAAAAPoB\
wgAGAAAzAzMbATMDaWkoVVUoaQHC/pgBaP4+AAIAAAAAAMgAyAAHAA8AADYyNjQmIgYUFiImNDYy\
FhRFPiwsPix0Ujs7UjsZLD4sLD5FO1I7O1IAAf84AAAAyADIAAsAACM0NjIWFSM0JiIGFch2pHYe\
YJRgUnZ2UkpgYEoAAAACAAAAAAC0ASwABwAVAAA2MjY0JiIGFBc1LgE1NDYyFhUUBgcVSx4bGx4b\
GB0rN0Y3Kx14NTY1NTatZAg1Jyg8PCgnNQhkAAACAAAAAADIASwADwAfAAA3LgE1NDYyFhUUBgcd\
ASM1Nz4BNTQmIgYVFBYXPQEzFVQkMDtSOzAkICAZIiw+LCIZIGYFOCUpOzspJTgFAWVlGQYpGx8s\
LB8bKQYBSUkAAAAEAAD//AP0An8AgwCNAJkAowAANz4BNTQnLgE1ND4CPwIOARUUMzI3Fw4BIyIm\
NTQ+AjMyFhUUBiMiJic3HgEzMjU0LgInBwYVFB4CFRQGDwEeAjsBMjcmNTQ3NjMyFhUUBwYHHgEz\
MjY1NDY3LgI9AR4BFRQGIyInBiMiLgEnDgEiJicmIyIOAQcGIyI1NDYFIiY0NjMyFhQGJT4BNTQn\
JiMiBhUUBTY1NCYnDgEVFJg2RQUDUgMEBQECPWJqIB4dGhUpJR4tHz5wSH1yMi4cNhIYERQUMwwc\
QC0bCR0iHR8QEA4pHwwNESIhHCJMGyMKHTwTIBsWMUNdIIFeurRRQkEjJDwhMxYOLCggGxwaEgoU\
GQZaIQowA1wLExMLDBIR/g8zJAQFFRwuATxaFxI/MFoYPyAKDAh0IgUODgwEBKUEYywjPA1CLyYa\
IUdELFE3MDUwKw4eETIKGiIaAkIkGx42ISwVJk8UFAopGh41KDUlLisgIRM5MBcSKhlSXxksWTQG\
ATyxa0ZfOToVFBImGRYgLQsVBDoHDThPEhgSEhgSgC8vGwcOEjkrHnQFgSJJFR1YRD8AAAIADAAK\
AdMBzwAKAI8AACU0JiMiBhQWMzI2Jw4BIyImNDYzMhYXNjU0JyYjIiY0NjMyFx4BFxYzMjU0Jy4B\
NTQ2MzIWFRQGBxQzMjc+ATc2MzIWFRQGIyIGBwYVFDMyNjMyFhQGIyImIyIGFRQXHgEXFhUUBiMi\
Jy4BJyYjIhUUFhUUBiMiJjQ2NTQjIgcOAQcGIyImNTQ3NjMyNzY1NAEWGA8QFRYPEBeJGSYOGRsa\
GQ0qGCUMFBgdHBkXEhALAxQLEhQBAiceFBIbIwEWEA0RAQ0MGhMeGxIbFQ0QIRsrDhwbHRkPJxQX\
EgsUOA0OGRcTFAwBExEKEiogExIdJhcNDhIDERIMFBoNDBYjEg3uEBQTIhYVCgElGSobJQIDFg4K\
ExwoHQwLPhYNGA0IFycPFxobFhEjGSoQEzgPDhsUESMGCw4PFicdKBomCAoWChIDCw0ZExsOCzkV\
Dx8eMBMUGBokMRckDhI9DAcWFBgODRINDBoAAAADAAD/BgH0APoABwAPABcAADYUFjI2NCYiAjQ2\
MhYUBiI2IiY0NjIWFC14qnh4qqWS0JKS0IEyIyMyI1WqeHiqeP7L0JKS0JK+IzIjIzIAAAIAAP8G\
AfQA+gAHAA8AADYUFjI2NCYiAjQ2MhYUBiIteKp4eKqlktCSktBVqnh4qnj+y9CSktCSAAAAAAMA\
AP6iAfQBXgARABcAHQAAEzMVHgEVFAYHFSM1LgE1NDY3GQEOARQWFz4BNCYn5C1gg4NgLWCEg2FO\
aWl7TWlpTQFeZAqOYmGPCmRlCI9iY44I/jsBmAh1nnUICHacdggAAAACAAD/BgHSAPoAIQApAAAl\
FhUUBwYjIicmIyIGFBYzMjc2MzIXFhUUBwYjIiY0NjMyAiImNDYyFhQBzwILBQYNCjN3VXh4VXgy\
BhIHAwwDQJVokpJolHsyIyMyI4IGBA8GAw5feKp4Xw0CBwwGBniS0JL+yiMyIyMyAAAAAQAA/wYB\
0gD6ACEAACUWFRQHBiMiJyYjIgYUFjMyNzYzMhcWFRQHBiMiJjQ2MzIBzwILBQYNCjN3VXh4VXgy\
BhIHAwwDQJVokpJolIIGBA8GAw5feKp4Xw0CBwwGBniS0JIAAAIAAP6iAdIBXgAkACoAACUWFxYV\
FAcGIyInJicRNjc2MzIXFhUUBwYHFSM1LgE1NDY3NTMDEQ4BFBYBEYQ6AgsFBg0KLWZlLgYSBwMM\
AzyCLWCEg2EtLU5pafkKbQYEDwYDDlQK/mgHVw0CBwwGBnAHZWUIj2Jjjghl/dYBmAh1nnUAAAEA\
AP/EAHgAPAAHAAAWIiY0NjIWFFUyIyMyIzwjMiMjMgAAAAEAAP6iAC0BXgADAAATESMRLS0BXv1E\
ArwAAAACAAD9EgFKAL4AAwAPAAA3FSE1JTMVITUzESMRIRUjHgEO/tQeAQ4eHv7yHkaMjHgyMvxU\
AmIyAAEAAAAAAlYBcgALAAA1Nxc3FzcXAScHJweJVFZSryL+/FRWUzVBuXNzcekW/qR0dHBHAAAB\
/+gAvQESATcAFwAAJj4BMzIWMjc2MzIVFA4BIyImIgcGIyI1GDAhHBRVKBQDBw4wIRwUVSgUBAcN\
9jARPRQDBwwwET0UBAgAAAAAAgAA/4kBwgCLAAsAEwAABTQmIyIGFRQWMzI+ARQGIiY0NjIBUVo2\
IDRdNyEvcX3IfX3IFDRPJx80TCN0bEtLbEsAAAACAAD/bAFIAqgADQAcAAAlJiMiBhUUFxYzMjY1\
NBMzERQGIyInJjU0NjMyFwEkDSU8lwYLJjyXAh1+SE8kD35IQCREF2ErCgkXYSsJAm79bkNnQx4d\
Q2ctAAAAAAEAAP95AUACqAANAAABMxEUBiMiJjU0NjMyFwEiHnlZMjx6WDEfAqj9gEZpOCdFahwA\
AAABAAD/eQIKAqgAGgAAAREUBiMiJjU0NjMyFxE1Mx4EFRQHNjU0AUB5WTI8elgxHx4GLjk4JTIS\
Abn+b0ZpOCdFahwBTu81XEdOdUlIckFJ7wAAAAACAAD/eQILAqgAHwAoAAAlNREzHgQVFAcWFRQH\
NjU0JiMRFAYjIiY1NDYzMhMeARc0NjU0JgEiHgkwODYjFRYiBXY4eVkyPHpYMT0OhRsBdmvmAVck\
RztCWDMlMjAkLkEZIV+e/tZGaTgnRWoBdjuiNQMOA1+fAAABAAD/zgBkADIABwAAFiImNDYyFhRH\
Kh0dKh0yHSodHSoAAAAAAA4ArgABAAAAAAAAAIMBCAABAAAAAAABAAcBnAABAAAAAAACAAcBtAAB\
AAAAAAADAB8B/AABAAAAAAAEAAcCLAABAAAAAAAFAAgCRgABAAAAAAAGAAcCXwADAAEECQAAAQYA\
AAADAAEECQABAA4BjAADAAEECQACAA4BpAADAAEECQADAD4BvAADAAEECQAEAA4CHAADAAEECQAF\
ABACNAADAAEECQAGAA4CTwBDAG8AcAB5AHIAaQBnAGgAdAAgAFwAMgA1ADEAIAAyADAAMQA4AC0A\
MgAwADEAOQAgAEoAZQBhAG4ALQBGAHIAYQBuAGMAbwBpAHMAIABNAG8AaQBuAGUALgAgAFQAaABp\
AHMAIABmAG8AbgB0ACAAaQBzACAAbABpAGMAZQBuAHMAZQBkACAAdQBuAGQAZQByACAAdABoAGUA\
IABTAEkATAAgAE8AcABlAG4AIABGAG8AbgB0ACAATABpAGMAZQBuAHMAZQAgAFwAKABoAHQAdABw\
ADoALwAvAHMAYwByAGkAcAB0AHMALgBzAGkAbAAuAG8AcgBnAC8ATwBGAEwAXAApAC4AAENvcHly\
aWdodCBcMjUxIDIwMTgtMjAxOSBKZWFuLUZyYW5jb2lzIE1vaW5lLiBUaGlzIGZvbnQgaXMgbGlj\
ZW5zZWQgdW5kZXIgdGhlIFNJTCBPcGVuIEZvbnQgTGljZW5zZSBcKGh0dHA6Ly9zY3JpcHRzLnNp\
bC5vcmcvT0ZMXCkuAABhAGIAYwAyAHMAdgBnAABhYmMyc3ZnAABSAGUAZwB1AGwAYQByAABSZWd1\
bGFyAABGAG8AbgB0AEYAbwByAGcAZQAgADoAIABhAGIAYwAyAHMAdgBnACAAOgAgADEANAAtADQA\
LQAyADAAMgAzAABGb250Rm9yZ2UgOiBhYmMyc3ZnIDogMTQtNC0yMDIzAABhAGIAYwAyAHMAdgBn\
AABhYmMyc3ZnAABWAGUAcgBzAGkAbwBuACAAAFZlcnNpb24gAABhAGIAYwAyAHMAdgBnAABhYmMy\
c3ZnAAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJIAAAABAAIBAgADAQMBBAEF\
AQYBBwEIAQkBCgELAQwBDQEOAQ8BEAERARIBEwEUARUBFgEXARgBGQEaARsBHAEdAR4BHwEgASEB\
IgEjASQBJQEmAScBKAEpASoBKwEsAS0BLgEvATABMQEyATMBNAE1ATYBNwE4ATkBOgE7ATwBPQE+\
AT8BQAFBAUIBQwFEAUUBRgFHAUgBSQFKAUsBTAFNAU4BTwFQAVEBUgFTAVQBVQFWAVcBWAFZAVoB\
WwFcAV0BXgFfAWABYQFiAWMBZAFlAWYBZwFoAWkBagFrAWwBbQFuAW8BcAFxAXIBcwF0AXUBdgF3\
AXgBeQF6AXsBfAF9AX4BfwGAAYEBggGDAYQBhQGGAYcBiAGJAYoBiwGMAY0BjgGPBi5ub2RlZgd1\
bmlFMDAwB3VuaUUwMzAHdW5pRTAzOAd1bmlFMDM5B3VuaUUwNDMHdW5pRTA0NQd1bmlFMDQ2B3Vu\
aUUwNDcHdW5pRTA0OAd1bmlFMDUwB3VuaUUwNUMHdW5pRTA2Mgd1bmlFMDY5B3VuaUUwN0EHdW5p\
RTA3Qgd1bmlFMDdDB3VuaUUwN0QHdW5pRTA3RQd1bmlFMDgwB3VuaUUwODEHdW5pRTA4Mgd1bmlF\
MDgzB3VuaUUwODQHdW5pRTA4NQd1bmlFMDg2B3VuaUUwODcHdW5pRTA4OAd1bmlFMDg5B3VuaUUw\
OEEHdW5pRTA4Qgd1bmlFMDhDB3VuaUUwOTQHdW5pRTA5NQd1bmlFMEEwB3VuaUUwQTEHdW5pRTBB\
Mgd1bmlFMEEzB3VuaUUwQTQHdW5pRTBBOQd1bmlFMEIzB3VuaUUxMDEHdW5pRTFCOQd1bmlFMUJC\
B3VuaUUxRTcHdW5pRTFGMgd1bmlFMUY0B3VuaUUxRjcHdW5pRTFGOQd1bmlFMUZDB3VuaUUxRkUH\
dW5pRTFGRgd1bmlFMjAwB3VuaUUyNDAHdW5pRTI0MQd1bmlFMjQyB3VuaUUyNDMHdW5pRTI0NAd1\
bmlFMjQ1B3VuaUUyNDYHdW5pRTI0Nwd1bmlFMjQ4B3VuaUUyNDkHdW5pRTI2MAd1bmlFMjYxB3Vu\
aUUyNjIHdW5pRTI2Mwd1bmlFMjY0B3VuaUUyNmEHdW5pRTI2Ygd1bmlFMjgwB3VuaUUyODEHdW5p\
RTI4Mgd1bmlFMjgzB3VuaUU0QTAHdW5pRTRBMgd1bmlFNEE0B3VuaUU0QTgHdW5pRTRBQwd1bmlF\
NEMwB3VuaUU0Q0UHdW5pRTREMQd1bmlFNEUxB3VuaUU0RTIHdW5pRTRFMwd1bmlFNEU0B3VuaUU0\
RTUHdW5pRTRFNgd1bmlFNEU3B3VuaUU0RTgHdW5pRTRFOQd1bmlFNEVBB3VuaUU1MDAHdW5pRTUw\
MQd1bmlFNTIwB3VuaUU1MjEHdW5pRTUyMgd1bmlFNTIzB3VuaUU1MjQHdW5pRTUyNQd1bmlFNTI5\
B3VuaUU1MkEHdW5pRTUyQgd1bmlFNTJDB3VuaUU1MkQHdW5pRTUyRgd1bmlFNTMwB3VuaUU1MzEH\
dW5pRTUzOQd1bmlFNTY2B3VuaUU1NjcHdW5pRTU2OQd1bmlFNTZDB3VuaUU1NkQHdW5pRTU4Mgd1\
bmlFNUQwB3VuaUU1RTIHdW5pRTYxMAd1bmlFNjEyB3VuaUU2MTQHdW5pRTYxOAd1bmlFNjI0B3Vu\
aUU2MzAHdW5pRTY1MAd1bmlFNjU1B3VuaUU5MTAHdW5pRTkxMQd1bmlFOTEyB3VuaUU5MTQHdW5p\
RTkxNQd1bmlFOTE4B3VuaUU5MjAHdW5pRTkyNQd1bmlFOTVEB3VuaUVBMDIHdW5pRUFBNAd1bmlF\
Q0EyB3VuaUVDQTMHdW5pRUNBNQd1bmlFQ0E3B3VuaUVDQTkHdW5pRUNCNwAAAAAAAAH//wACAAEA\
AAAAAAAADAAUAAQAAAACAAAAAQAAAAEAAAAAAAEAAAAA399K6gAAAADRlyIXAAAAAOBezeg=\
") format("truetype")'
// abc2svg - format.js - formatting functions
//
// Copyright (C) 2014-2023 Jean-Francois Moine
//
// This file is part of abc2svg-core.
//
// abc2svg-core is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg-core is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg-core. If not, see .
var font_scale_tb = {
serif: 1,
serifBold: 1,
'sans-serif': 1,
'sans-serifBold': 1,
Palatino: 1.1,
monospace: 1
},
txt_ff = "text,serif", // text font-family (serif for compatibility)
fmt_lock = {}
var cfmt = {
"abc-version": "1", // default: old version
annotationfont: {name: "text,sans-serif", size: 12},
aligncomposer: 1,
beamslope: .4, // max slope of a beam
// botmargin: .7 * IN, // != 1.8 * CM,
bardef: {
"[": "", // invisible
"[]": "",
"|:": "[|:",
"|::": "[|::",
"|:::": "[|:::",
":|": ":|]",
"::|": "::|]",
":::|": ":::|]",
"::": ":][:"
},
breaklimit: .7,
breakoneoln: true,
cancelkey: true,
composerfont: { name: txt_ff, style: "italic", size: 14 },
composerspace: 6,
// contbarnb: false,
decoerr: true,
dynalign: true,
footerfont: { name: txt_ff, size: 16 },
fullsvg: '',
gchordfont: { name: "text,sans-serif", size: 12 },
gracespace: new Float32Array([6, 8, 11]), // left, inside, right
graceslurs: true,
headerfont: { name: txt_ff, size: 16 },
historyfont: { name: txt_ff, size: 16 },
hyphencont: true,
indent: 0,
infofont: {name: txt_ff, style: "italic", size: 14 },
infoname: 'R "Rhythm: "\n\
B "Book: "\n\
S "Source: "\n\
D "Discography: "\n\
N "Notes: "\n\
Z "Transcription: "\n\
H "History: "',
infospace: 0,
keywarn: true,
leftmargin: 1.4 * CM,
lineskipfac: 1.1,
linewarn: true,
maxshrink: .65, // nice scores
maxstaffsep: 2000,
maxsysstaffsep: 2000,
measrepnb: 1,
measurefont: {name: txt_ff, style: "italic", size: 10},
measurenb: -1,
musicfont: {name: "music", src: musicfont, size: 24},
musicspace: 6,
// notespacingfactor: "1.3, 38",
partsfont: {name: txt_ff, size: 15},
parskipfac: .4,
partsspace: 8,
// pageheight: 29.7 * CM,
pagewidth: 21 * CM,
"propagate-accidentals": "o", // octave
printmargin: 0,
rightmargin: 1.4 * CM,
rbmax: 4,
rbmin: 2,
repeatfont: {name: txt_ff, size: 9},
scale: 1,
slurheight: 1.0,
spatab: // spacing table (see "notespacingfactor" and set_space())
new Float32Array([ // default = "1.3, 38"
10.2, 13.3, 17.3, 22.48, 29.2,
38,
49.4, 64.2, 83.5, 108.5]),
staffsep: 46,
stemheight: 21, // one octave
stretchlast: .25,
stretchstaff: true,
subtitlefont: {name: txt_ff, size: 16},
subtitlespace: 3,
sysstaffsep: 34,
systnames: -1,
tempofont: {name: txt_ff, weight: "bold", size: 12},
textfont: {name: txt_ff, size: 16},
// textoption: undefined,
textspace: 14,
tieheight: 1.0,
titlefont: {name: txt_ff, size: 20},
// titleleft: false,
titlespace: 6,
titletrim: true,
// transp: 0, // global transpose
// topmargin: .7 * IN,
topspace: 22,
tuplets: [0, 0, 0, 0],
tupletfont: {name: txt_ff, style: "italic", size: 10},
vocalfont: {name: txt_ff, weight: "bold", size: 13},
vocalspace: 10,
voicefont: {name: txt_ff, weight: "bold", size: 13},
// voicescale: 1,
writefields: "CMOPQsTWw",
wordsfont: {name: txt_ff, size: 16},
wordsspace: 5,
"writeout-accidentals": "n"
}
// parameters that are used in the symbols
var sfmt = {
bardef: true,
barsperstaff: true,
beamslope: true,
breaklimit: true,
bstemdown: true,
cancelkey: true,
dynalign: true,
flatbeams: true,
gracespace: true,
hyphencont: true,
keywarn: true,
maxshrink: true,
maxstaffsep: true,
measrepnb: true,
rbmax: true,
rbmin: true,
shiftunison: true,
slurheight: true,
squarebreve: true,
staffsep: true,
systnames: 1, //
stemheight: true,
stretchlast: true,
stretchstaff: true,
tieheight: true,
timewarn: true,
trimsvg: 1, //true
vocalspace: true
} // sfmt
function get_bool(param) {
return !param || !/^(0|n|f)/i.test(param) // accept void as true !
}
// %%font [] []
function get_font_scale(param) {
var i, font,
a = info_split(param) // a[0] = font name
if (a.length <= 1)
return
var scale = +a[a.length - 1]
if (isNaN(scale) || scale <= 0.5) {
syntax(1, "Bad scale value in %%font")
return
}
font_scale_tb[a[0]] = scale
}
// set the width factor of a font
function set_font_fac(font) {
var scale = font_scale_tb[font.fname || font.name]
if (!scale)
scale = 1.1;
font.swfac = font.size * scale
}
// %%xxxfont fontname|* [encoding] [size|*]
function param_set_font(xxxfont, p) {
var font, n, a, ft2, k
// "setfont-" goes to "ufont"
if (xxxfont[xxxfont.length - 2] == '-') {
n = xxxfont[xxxfont.length - 1]
if (n < '1' || n > '9')
return
xxxfont = "u" + n + "font"
}
// fill the values
font = {}
a = p.match(/\s+(no)?box(\s|$)/)
if (a) { // if box
if (a[1]) {
font.box = false // nobox
font.pad = 0
} else {
font.box = true
font.pad = 2.5
}
p = p.replace(a[0], a[2])
}
a = p.match(/\s+padding=([\d.]+)(\s|$)/)
if (a) { // if padding
font.pad = a[1] ? +a[1] : 0
p = p.replace(a[0], a[2])
}
a = p.match(/\s+class=(.*?)(\s|$)/)
if (a) {
font.class = a[1];
p = p.replace(a[0], a[2])
}
a = p.match(/\s+wadj=(.*?)(\s|$)/)
if (a) {
if (typeof document == "undefined") // useless if in browser
switch (a[1]) {
case 'none':
font.wadj = ''
break
case 'space':
font.wadj = 'spacing'
break
case 'glyph':
font.wadj = 'spacingAndGlyphs'
break
default:
syntax(1, errs.bad_val, "%%" + xxxfont)
break
}
p = p.replace(a[0], a[2])
}
// the font size is the last item
a = p.match(/\s+([0-9.]+|\*)$/)
if (a) {
if (a[1] != "*")
font.size = +a[1]
p = p.replace(a[0], "")
}
// accept local(..) and url(...) as the font source
if ((p[0] == 'u' && p.slice(0, 4) == "url(")
|| (p[0] == 'l' && p.slice(0, 6) == "local(")) {
n = p.indexOf(')', 1)
if (n < 0) {
syntax(1, "No end of url in font family")
return
}
font.src = p.slice(0, n + 1)
font.fid = abc2svg.font_tb.length
abc2svg.font_tb.push(font)
font.name = 'ft' + font.fid
p = p.replace(font.src, '')
}
// extract the font attributes
a = p.match(/[- ]?[nN]ormal/)
if (a) {
font.normal = true
p = p.replace(a[0], '')
}
// font weight
a = p.match(abc2svg.ft_re)
if (a) {
font.weight = abc2svg.ft_w[a[0].replace(/[ -]/, '')
.toLowerCase()]
p = p.replace(a[0], '')
}
a = p.match(/[- ]?[iI]talic/)
if (a) {
font.style = "italic"
p = p.replace(a[0], '')
}
a = p.match(/[- ]?[oO]blique/)
if (a) {
font.style = "oblique"
p = p.replace(a[0], '')
}
if (!font.src) { // if no url(...)
if (p[0] == '"') {
n = p.indexOf('"', 1)
if (n < 0) {
syntax(1, "No end of string in font family")
return
}
p = p.slice(1, n)
}
// here is the font family
p = p.trim()
switch (p) {
case "":
case "*": p = ""; break
case "Times-Roman":
case "Times": p = "serif"; break
case "Helvetica": p = "sans-serif"; break
case "Courier": p = "monospace"; break
case "music": p = cfmt.musicfont.name; break
default:
//hack: the font "Figurato" is used for figured bass
if (p.indexOf("Fig") > 0)
font.figb = true
break
}
}
if (p && !font.name)
font.name = p
if (font.size)
set_font_fac(font)
// keep the previous attributes if no font name or no size
if (!font.name || !font.size) {
ft2 = cfmt[xxxfont]
for (k in ft2) {
if (!ft2.hasOwnProperty(k)
|| font[k] != undefined)
continue
switch (k) {
case "fid":
case "used":
case "src":
break
case "style":
case "weight":
if (font.normal)
break
// fall thru
default:
font[k] = ft2[k]
break
}
}
if (!font.swfac)
set_font_fac(font)
}
if (font.pad == undefined)
font.pad = 0
font.fname = font.name
if (font.weight >= 700)
font.fname += 'Bold'
cfmt[xxxfont] = font
}
// get a length with a unit - return the number of pixels
function get_unit(param) {
var v = param.toLowerCase().match(/(-?[\d.]+)(.*)/)
if (!v)
return NaN
v[1] = +v[1]
switch (v[2]) {
case "cm":
return v[1] * CM
case "in":
return v[1] * IN
case "pt": // paper point in 1/72 inch
return v[1] / .75
case "px": // screen pixel in 1/96 inch
case "":
return v[1]
}
return NaN
}
// set the infoname
function set_infoname(param) {
//fixme: check syntax: ' ["string"]'
var tmp = cfmt.infoname.split("\n"),
letter = param[0]
for (var i = 0; i < tmp.length; i++) {
var infoname = tmp[i]
if (infoname[0] != letter)
continue
if (param.length == 1)
tmp.splice(i, 1)
else
tmp[i] = param
cfmt.infoname = tmp.join('\n')
return
}
cfmt.infoname += "\n" + param
}
// get the text option
var textopt = {
align: 'j',
center: 'c',
fill: 'f',
justify: 'j',
obeylines: 'l',
ragged: 'f',
right: 'r',
skip: 's',
// abcm2ps compatibility
"0": 'l',
"1": 'j',
"2": 'f',
"3": 'c',
"4": 's',
"5": 'r'
}
function get_textopt(v) {
var i = v.indexOf(' ')
if (i > 0)
v = v.slice(0, i)
return textopt[v]
}
/* -- position of a voice element -- */
var posval = {
above: C.SL_ABOVE,
auto: 0, // !! not C.SL_AUTO !!
below: C.SL_BELOW,
down: C.SL_BELOW,
hidden: C.SL_HIDDEN,
opposite: C.SL_HIDDEN,
under: C.SL_BELOW,
up: C.SL_ABOVE
}
/* -- set the position of elements in a voice -- */
function set_pos(k, v) { // keyword, value
k = k.slice(0, 3)
if (k == "ste")
k = "stm"
set_v_param("pos", '"' + k + ' ' + v + '"')
}
// set/unset the fields to write
function set_writefields(parm) {
var c, i,
a = parm.split(/\s+/)
if (get_bool(a[1])) {
for (i = 0; i < a[0].length; i++) { // set
c = a[0][i]
if (cfmt.writefields.indexOf(c) < 0)
cfmt.writefields += c
}
} else {
for (i = 0; i < a[0].length; i++) { // unset
c = a[0][i]
if (cfmt.writefields.indexOf(c) >= 0)
cfmt.writefields = cfmt.writefields.replace(c, '')
}
}
}
// set a voice specific parameter
function set_v_param(k, v) {
k = [k + '=', v]
if (parse.state < 3)
memo_kv_parm(curvoice ? curvoice.id : '*', k)
else if (curvoice)
set_kv_parm(k)
else
memo_kv_parm('*', k)
}
function set_page() {
if (!img.chg)
return
img.chg = false;
img.lm = cfmt.leftmargin - cfmt.printmargin
if (img.lm < 0)
img.lm = 0;
img.rm = cfmt.rightmargin - cfmt.printmargin
if (img.rm < 0)
img.rm = 0;
img.width = cfmt.pagewidth - 2 * cfmt.printmargin
// must have 100pt at least as the staff width
if (img.width - img.lm - img.rm < 100) {
error(0, undefined, "Bad staff width");
img.width = img.lm + img.rm + 150
}
set_posx()
} // set_page()
// set a format parameter
// (possible hook)
Abc.prototype.set_format = function(cmd, param) {
var f, f2, v, i
//fixme: should check the type and limits of the parameter values
if (/.+font(-[\d])?$/.test(cmd)) {
if (cmd == "soundfont")
cfmt.soundfont = param
else
param_set_font(cmd, param)
return
}
// duplicate the global parameters if already used by symbols
if (sfmt[cmd] && parse.ufmt)
cfmt = Object.create(cfmt)
switch (cmd) {
case "aligncomposer":
case "barsperstaff":
case "infoline":
case "measurenb":
case "rbmax":
case "rbmin":
case "measrepnb":
case "shiftunison":
case "systnames":
v = parseInt(param)
if (isNaN(v)) {
syntax(1, "Bad integer value");
break
}
cfmt[cmd] = v
break
case "abc-version":
case "bgcolor":
case "fgcolor":
case "propagate-accidentals":
case "titleformat":
case "writeout-accidentals":
cfmt[cmd] = param
break
case "beamslope":
case "breaklimit": // float values
case "lineskipfac":
case "maxshrink":
case "pagescale":
case "parskipfac":
case "scale":
case "slurheight":
case "stemheight":
case "tieheight":
f = +param
if (isNaN(f) || !param || f < 0) {
syntax(1, errs.bad_val, '%%' + cmd)
break
}
switch (cmd) {
case "scale": // old scale
f /= .75
case "pagescale":
if (f < .1)
f = .1 // smallest scale
cmd = "scale";
img.chg = true
break
}
cfmt[cmd] = f
break
case "annotationbox":
case "gchordbox":
case "measurebox":
case "partsbox":
param_set_font(cmd.replace("box", "font"), // font
"* * " + (get_bool(param) ? "box" : "nobox"))
break
case "altchord":
case "bstemdown":
case "breakoneoln":
case "cancelkey":
case "checkbars":
case "contbarnb":
case "custos":
case "decoerr":
case "flatbeams":
case "graceslurs":
case "graceword":
case "hyphencont":
case "keywarn":
case "linewarn":
case "quiet":
case "squarebreve":
case "splittune":
case "straightflags":
case "stretchstaff":
case "timewarn":
case "titlecaps":
case "titleleft":
case "trimsvg":
cfmt[cmd] = get_bool(param)
break
case "dblrepbar":
param = ":: " + param
// fall thru
case "bardef": // %%bardef oldbar newbar
v = param.split(/\s+/)
if (v.length != 2) {
syntax(1, errs.bad_val, "%%bardef")
} else {
if (parse.ufmt)
cfmt.bardef = Object.create(cfmt.bardef) // new object
cfmt.bardef[v[0]] = v[1]
}
break
case "chordalias":
v = param.split(/\s+/)
if (!v.length)
syntax(1, errs.bad_val, "%%chordalias")
else
abc2svg.ch_alias[v[0]] = v[1] || ""
break
case "composerspace":
case "indent":
case "infospace":
case "maxstaffsep":
case "maxsysstaffsep":
case "musicspace":
case "partsspace":
case "staffsep":
case "subtitlespace":
case "sysstaffsep":
case "textspace":
case "titlespace":
case "topspace":
case "vocalspace":
case "wordsspace":
f = get_unit(param) // normally, unit in points - 72 DPI accepted
if (isNaN(f))
syntax(1, errs.bad_val, '%%' + cmd)
else
cfmt[cmd] = f
break
case "page-format":
user.page_format = get_bool(param)
break
case "print-leftmargin": // to remove
syntax(0, "$1 is deprecated - use %%printmargin instead", '%%' + cmd)
cmd = "printmargin"
// fall thru
case "printmargin":
// case "botmargin":
case "leftmargin":
// case "pageheight":
case "pagewidth":
case "rightmargin":
// case "topmargin":
f = get_unit(param) // normally unit in cm or in - 96 DPI
if (isNaN(f)) {
syntax(1, errs.bad_val, '%%' + cmd)
break
}
cfmt[cmd] = f;
img.chg = true
break
case "concert-score":
if (cfmt.sound != "play")
cfmt.sound = "concert"
break
case "writefields":
set_writefields(param)
break
case "volume":
cmd = "dynamic"
// fall thru
case "dynamic":
case "gchord":
case "gstemdir":
case "ornament":
case "stemdir":
case "vocal":
set_pos(cmd, param)
break
case "font":
get_font_scale(param)
break
case "fullsvg":
if (parse.state != 0) {
syntax(1, errs.not_in_tune, "%%fullsvg")
break
}
//fixme: should check only alpha, num and '_' characters
cfmt[cmd] = param
break
case "gracespace":
v = param.split(/\s+/)
for (i = 0; i < 3; i++)
if (isNaN(+v[i])) {
syntax(1, errs.bad_val, "%%gracespace")
break
}
if (parse.ufmt)
cfmt[cmd] = new Float32Array(3)
for (i = 0; i < 3; i++)
cfmt[cmd][i] = +v[i]
break
case "tuplets":
v = param.split(/\s+/)
f = v[3]
if (f) // if 'where'
f = posval[f] // translate the keyword
if (f)
v[3] = f
if (curvoice)
curvoice.tup = v
else
cfmt[cmd] = v
break
case "infoname":
set_infoname(param)
break
case "notespacingfactor":
v = param.match(/([.\d]+)[,\s]*(\d+)?/)
if (v) {
f = +v[1]
if (isNaN(f) || f < 1 || f > 2) {
f = 0
} else if (v[2]) {
f2 = +v[2]
if (isNaN(f))
f = 0
} else {
f2 = cfmt.spatab[5]
}
}
if (!f) {
syntax(1, errs.bad_val, "%%" + cmd)
break
}
cfmt[cmd] = param // (for dump)
// in the table 'spatab',
// the width of notes is indexed by log2(note_length)
cfmt.spatab = new Float32Array(10)
i = 5; // index of crotchet
do {
cfmt.spatab[i] = f2
f2 /= f
} while (--i >= 0)
i = 5;
f2 = cfmt.spatab[i]
for ( ; ++i < cfmt.spatab.length; ) {
f2 *= f;
cfmt.spatab[i] = f2
}
break
case "play":
cfmt.sound = "play" // without clef
break
case "pos":
cmd = param.match(/(\w*)\s+(.*)/)
if (!cmd || !cmd[2]) {
syntax(1, "Error in %%pos")
break
}
if (cmd[1].slice(0, 3) == 'tup' // special case for %%pos tuplet
&& curvoice) { // inside tune
if (!curvoice.tup)
curvoice.tup = cfmt.tuplets
else
curvoice.tup = Object.create(curvoice.tup)
v = posval[cmd[2]]
switch (v) {
case C.SL_ABOVE:
curvoice.tup[3] = 1
break
case C.SL_BELOW:
curvoice.tup[3] = 2
break
case C.SL_HIDDEN:
curvoice.tup[2] = 1
break
}
break
}
if (cmd[1].slice(0, 3) == "vol")
cmd[1] = "dyn" // compatibility
set_pos(cmd[1], cmd[2])
break
case "sounding-score":
if (cfmt.sound != "play")
cfmt.sound = "sounding"
break
case "staffwidth":
v = get_unit(param)
if (isNaN(v)) {
syntax(1, errs.bad_val, '%%' + cmd)
break
}
if (v < 100) {
syntax(1, "%%staffwidth too small")
break
}
v = cfmt.pagewidth - v - cfmt.leftmargin
if (v < 2) {
syntax(1, "%%staffwidth too big")
break
}
cfmt.rightmargin = v;
img.chg = true
break
case "textoption":
cfmt[cmd] = get_textopt(param)
break
case "dynalign":
case "singleline":
case "stretchlast":
case "titletrim":
v = +param
if (isNaN(v))
v = get_bool(param) ? 0 : 1
if (cmd[1] == 't') { // stretchlast
if (v < 0 || v > 1) {
syntax(1, errs.bad_val, '%%' + cmd)
break
}
}
cfmt[cmd] = v
break
case "combinevoices":
syntax(1, "%%combinevoices is deprecated - use %%voicecombine instead")
break
case "voicemap":
set_v_param("map", param)
break
case "voicescale":
set_v_param("scale", param)
break
case "unsizedsvg":
if (get_bool(param))
user.imagesize = ""
else
delete user.imagesize
break
// deprecated
case "rbdbstop":
v = get_bool(param)
if (v && cfmt["abc-version"] >= "2.2")
cfmt["abc-version"] = "1"
else if (!v && cfmt["abc-version"] < "2.2")
cfmt["abc-version"] = "2.2"
break
default: // memorize all global commands
if (!parse.state) // (needed for modules)
cfmt[cmd] = param
break
}
// check if already a same format
if (sfmt[cmd] && parse.ufmt) {
// to do...
parse.ufmt = false
}
}
// font stuff
// build a font style
function st_font(font) {
var n = font.name,
r = ""
if (font.weight)
r += font.weight + " "
if (font.style)
r += font.style + " "
if (n.indexOf('"') < 0 && n.indexOf(' ') > 0)
n = '"' + n + '"'
return r + font.size.toFixed(1) + 'px ' + n
}
function style_font(font) {
return 'font:' + st_font(font)
}
Abc.prototype.style_font = style_font
// build a font class
function font_class(font) {
var f = 'f' + font.fid + cfmt.fullsvg
if (font.class)
f += ' ' + font.class
if (font.box)
f += ' ' + 'box'
return f
}
// use the font
function use_font(font) {
if (!font.used) {
font.used = true;
if (font.fid == undefined) { // if default font
font.fid = abc2svg.font_tb.length
abc2svg.font_tb.push(font)
if (!font.swfac)
set_font_fac(font)
if (!font.pad)
font.pad = 0
// set the pointer to the width of the characters
font.cw_tb = !font.name ? ssw_tb
: font.name.indexOf("ans") > 0
? ssw_tb // sans-serif
: font.name.indexOf("ono") > 0
? mw_tb // monospace
: sw_tb // serif
}
add_fstyle(".f" + font.fid +
(cfmt.fullsvg || "") +
"{" + style_font(font) + "}")
if (font.src)
add_fstyle("@font-face{\n\
font-family:" + font.name + ";\n\
src:" + font.src + "}")
if (font == cfmt.musicfont) // add more music font style
add_fstyle(".f" + font.fid
+ (cfmt.fullsvg || "")
+ ' text,tspan{white-space:pre}')
}
}
// get the font of the 'xxxfont' parameter
function get_font(fn) {
var font, font2, fid, st
fn += "font"
font = cfmt[fn]
if (!font) {
syntax(1, "Unknown font $1", fn)
return gene.curfont
}
if (!font.name || !font.size) { // if incomplete user font
font2 = Object.create(gene.deffont)
if (font.name)
font2.name = font.name
if (font.normal) {
if (font2.weight) // !! don't use delete !!
font2.weight = null
if (font2.style)
font2.style = null
} else {
if (font.weight)
font2.weight = font.weight
if (font.style)
font2.style = font.style
}
if (font.src)
font2.src = font.src
if (font.size)
font2.size = font.size
st = st_font(font2)
if (font.class) {
font2.class = font.class
st += ' '+ font.class
}
fid = abc2svg.font_st[st]
if (fid != undefined)
return abc2svg.font_tb[fid]
abc2svg.font_st[st] = abc2svg.font_tb.length // will be the font id
font2.fid = font2.used = undefined
font = font2
}
use_font(font)
return font
}
// abc2svg - front.js - ABC parsing front-end
//
// Copyright (C) 2014-2024 Jean-Francois Moine
//
// This file is part of abc2svg-core.
//
// abc2svg-core is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg-core is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg-core. If not, see .
var sav = {}, // save global (between tunes) definitions
mac = {}, // macros (m:)
maci = {}, // first letters of macros
modone = {} // hooks done by module
// translation table from the ABC draft version 2.2
var abc_utf = {
"=D": "Đ",
"=H": "Ħ",
"=T": "Ŧ",
"=d": "đ",
"=h": "ħ",
"=t": "ŧ",
"/O": "Ø",
"/o": "ø",
// "/D": "Đ",
// "/d": "đ",
"/L": "Ł",
"/l": "ł",
"vL": "Ľ",
"vl": "ľ",
"vd": "ď",
".i": "ı",
"AA": "Å",
"aa": "å",
"AE": "Æ",
"ae": "æ",
"DH": "Ð",
"dh": "ð",
// "ng": "ŋ",
"OE": "Œ",
"oe": "œ",
"ss": "ß",
"TH": "Þ",
"th": "þ"
}
// accidentals as octal values (abcm2ps compatibility)
var oct_acc = {
"1": "\u266f",
"2": "\u266d",
"3": "\u266e",
"4": "𝄪",
"5": "𝄫"
}
// convert the escape sequences to utf-8
function cnv_escape(src, flag) {
var c, c2,
dst = "",
i, j = 0
while (1) {
i = src.indexOf('\\', j)
if (i < 0)
break
dst += src.slice(j, i);
c = src[++i]
if (!c)
return dst + '\\'
switch (c) {
case '0':
case '2':
if (src[i + 1] != '0')
break
c2 = oct_acc[src[i + 2]]
if (c2) {
dst += c2;
j = i + 3
continue
}
break
case 'u':
j = Number("0x" + src.slice(i + 1, i + 5));
if (isNaN(j) || j < 0x20) {
dst += src[++i] + "\u0306" // breve accent
j = i + 1
continue
}
c = String.fromCharCode(j)
if (c == '\\') {
i += 4
break
}
dst += c
j = i + 5
continue
case 't': // TAB
dst += '\t';
j = i + 1
continue
case 'n': // new line (voice name)
dst += '\n';
j = i + 1
continue
default:
c2 = abc_utf[src.slice(i, i + 2)]
if (c2) {
dst += c2;
j = i + 2
continue
}
// try unicode combine characters
c2 = src[i + 1]
if (!c2)
break // !! the next test is true if c2 is undefined !!
if (!/[A-Za-z]/.test(c2))
break
switch (c) {
case '`':
dst += c2 + "\u0300" // grave
j = i + 2
continue
case "'":
dst += c2 + "\u0301" // acute
j = i + 2
continue
case '^':
dst += c2 + "\u0302" // circumflex
j = i + 2
continue
case '~':
dst += c2 + "\u0303" // tilde
j = i + 2
continue
case '=':
dst += c2 + "\u0304" // macron
j = i + 2
continue
case '_':
dst += c2 + "\u0305" // overline
j = i + 2
continue
case '.':
dst += c2 + "\u0307" // dot
j = i + 2
continue
case '"':
dst += c2 + "\u0308" // dieresis
j = i + 2
continue
case 'o':
dst += c2 + "\u030a" // ring
j = i + 2
continue
case 'H':
dst += c2 + "\u030b" // hungarumlaut
j = i + 2
continue
case 'v':
dst += c2 + "\u030c" // caron
j = i + 2
continue
// case ',':
// dst += c2 + "\u0326" // comma below
// j = i + 2
// continue
case 'c':
dst += c2 + "\u0327" // cedilla
j = i + 2
continue
case ';':
dst += c2 + "\u0328" // ogonek
j = i + 2
continue
}
break
}
if (flag == 'w') // if lyrics line (w:)
dst += '\\' // keep the backslash
dst += c
j = i + 1
}
return dst + src.slice(j)
}
// ABC include
var include = 0
function do_include(fn) {
var file, parse_sav
if (!user.read_file) {
syntax(1, "No read_file support")
return
}
if (include > 2) {
syntax(1, "Too many include levels")
return
}
file = user.read_file(fn)
if (!file) {
syntax(1, "Cannot read file '$1'", fn)
return
}
include++;
parse_sav = clone(parse);
tosvg(fn, file);
parse_sav.state = parse.state;
parse = parse_sav;
include--
}
// parse ABC code
function tosvg(in_fname, // file name
file, // file content
bol, eof) { // beginning/end of file
var i, c, eol, end,
select,
line0, line1,
last_info, opt, text, a, b, s,
pscom,
txt_add = '\n' // for "+:"
// check if a tune is selected
function tune_selected() {
var re, res,
i = file.indexOf('K:', bol)
if (i < 0) {
// syntax(1, "No K: in tune")
return false
}
i = file.indexOf('\n', i)
if (parse.select.test(file.slice(parse.bol, i)))
return true
re = /\n\w*\n/;
re.lastIndex = i;
res = re.exec(file)
if (res)
eol = re.lastIndex
else
eol = eof
return false
} // tune_selected()
// remove the comment at end of text
// if flag, handle the escape sequences
// if flag is 'w' (lyrics), keep the '\'s
function uncomment(src, flag) {
if (!src)
return src
var i = src.indexOf('%')
if (i == 0)
return ''
if (i > 0)
src = src.replace(/([^\\])%.*/, '$1')
.replace(/\\%/g, '%');
src = src.replace(/\s+$/, '')
if (flag && src.indexOf('\\') >= 0)
return cnv_escape(src, flag)
return src
} // uncomment()
function end_tune() {
generate()
cfmt = sav.cfmt;
info = sav.info;
char_tb = sav.char_tb;
glovar = sav.glovar;
maps = sav.maps;
mac = sav.mac;
maci = sav.maci;
parse.tune_v_opts = null;
parse.scores = null;
parse.ufmt = false
delete parse.pq
init_tune()
img.chg = true;
set_page();
} // end_tune()
// get %%voice
function do_voice(select, in_tune) {
var opt, bol
if (select == "end")
return // end of previous %%voice
// get the options
if (in_tune) {
if (!parse.tune_v_opts)
parse.tune_v_opts = {};
opt = parse.tune_v_opts
} else {
if (!parse.voice_opts)
parse.voice_opts = {};
opt = parse.voice_opts
}
opt[select] = []
while (1) {
bol = ++eol
if (file[bol] != '%')
break
eol = file.indexOf('\n', eol);
if (file[bol + 1] != line1)
continue
bol += 2
if (eol < 0)
text = file.slice(bol)
else
text = file.slice(bol, eol);
a = text.match(/\S+/)
switch (a[0]) {
default:
opt[select].push(uncomment(text, true))
continue
case "score":
case "staves":
case "tune":
case "voice":
bol -= 2
break
}
break
}
eol = parse.eol = bol - 1
} // do_voice()
// apply the options to the current tune
function tune_filter() {
var o, opts, j, pc, h,
i = file.indexOf('K:', bol)
i = file.indexOf('\n', i);
h = file.slice(parse.bol, i) // tune header
for (i in parse.tune_opts) {
if (!parse.tune_opts.hasOwnProperty(i))
continue
if (!(new RegExp(i)).test(h))
continue
opts = parse.tune_opts[i]
for (j = 0; j < opts.t_opts.length; j++) {
pc = opts.t_opts[j]
switch (pc.match(/\S+/)[0]) {
case "score":
case "staves":
if (!parse.scores)
parse.scores = [];
parse.scores.push(pc)
break
default:
self.do_pscom(pc)
break
}
}
opts = opts.v_opts
if (!opts)
continue
for (j in opts) {
if (!opts.hasOwnProperty(j))
continue
if (!parse.tune_v_opts)
parse.tune_v_opts = {};
if (!parse.tune_v_opts[j])
parse.tune_v_opts[j] = opts[j]
else
parse.tune_v_opts[j] =
parse.tune_v_opts[j].
concat(opts[j])
}
}
} // tune_filter()
// export functions and/or set module hooks
if (abc2svg.mhooks) {
for (i in abc2svg.mhooks) {
if (!modone[i]) {
modone[i] = 1 //true
abc2svg.mhooks[i](self)
}
}
}
// initialize
parse.file = file; // used for errors
parse.fname = in_fname
// scan the file
if (bol == undefined)
bol = 0
if (!eof)
eof = file.length
if (file.slice(bol, bol + 5) == "%abc-")
cfmt["abc-version"] = /[1-9.]+/.exec(file.slice(bol + 5, bol + 10))
for ( ; bol < eof; bol = parse.eol + 1) {
eol = file.indexOf('\n', bol) // get a line
if (eol < 0 || eol > eof)
eol = eof;
parse.eol = eol
// remove the ending white spaces
while (1) {
eol--
switch (file[eol]) {
case ' ':
case '\t':
continue
}
break
}
eol++
if (eol == bol) { // empty line
if (parse.state == 1) {
parse.istart = bol;
syntax(1, "Empty line in tune header - ignored")
} else if (parse.state >= 2) {
end_tune()
parse.state = 0
if (parse.select) { // skip to next tune
eol = file.indexOf('\nX:', parse.eol)
if (eol < 0)
eol = eof
parse.eol = eol
}
}
continue
}
parse.istart = parse.bol = bol;
parse.iend = eol;
parse.line.index = 0;
// check if the line is a pseudo-comment or I:
line0 = file[bol];
line1 = file[bol + 1]
if ((line0 == 'I' && line1 == ':')
|| line0 == '%') {
if (line0 == '%' && parse.prefix.indexOf(line1) < 0)
continue // comment
// change "%%abc xxxx" to "xxxx"
if (file[bol + 2] == 'a'
&& file[bol + 3] == 'b'
&& file[bol + 4] == 'c'
&& file[bol + 5] == ' ') {
bol += 6;
line0 = file[bol];
line1 = file[bol + 1]
} else {
pscom = true
}
}
// pseudo-comments
if (pscom) {
pscom = false;
bol += 2 // skip %%/I:
text = file.slice(bol, eol)
a = text.match(/([^\s]+)\s*(.*)/)
if (!a || a[1][0] == '%')
continue
switch (a[1]) {
case "abcm2ps":
case "ss-pref":
parse.prefix = a[2] // may contain a '%'
continue
case "abc-include":
do_include(uncomment(a[2]))
continue
}
// beginxxx/endxxx
if (a[1].slice(0, 5) == 'begin') {
b = a[1].substr(5);
end = '\n' + line0 + line1 + "end" + b;
i = file.indexOf(end, eol)
if (i < 0) {
syntax(1, "No $1 after %%$2",
end.slice(1), a[1]);
parse.eol = eof
continue
}
self.do_begin_end(b, uncomment(a[2]),
file.slice(eol + 1, i)
.replace(/\n%[^%].*$/gm,'')
.replace(/^%%/gm,''))
parse.eol = file.indexOf('\n', i + 6)
if (parse.eol < 0)
parse.eol = eof
continue
}
switch (a[1]) {
case "select":
if (parse.state != 0) {
syntax(1, errs.not_in_tune, "%%select")
continue
}
select = uncomment(text.slice(7))
if (select[0] == '"')
select = select.slice(1, -1);
if (!select) {
delete parse.select
continue
}
select = select.replace(/\(/g, '\\(');
select = select.replace(/\)/g, '\\)');
// select = select.replace(/\|/g, '\\|');
parse.select = new RegExp(select, 'm')
continue
case "tune":
if (parse.state != 0) {
syntax(1, errs.not_in_tune, "%%tune")
continue
}
select = uncomment(a[2])
// if void %%tune, free all tune options
if (!select) {
parse.tune_opts = {}
continue
}
if (select == "end")
continue // end of previous %%tune
if (!parse.tune_opts)
parse.tune_opts = {};
parse.tune_opts[select] = opt = {
t_opts: []
// v_opts: {}
};
while (1) {
bol = eol
if (file[bol + 1] != '%')
break
eol = file.indexOf('\n', eol + 1)
if (file[bol + 2] != line1)
continue
text = file.slice(bol + 3,
eol < 0 ? undefined : eol)
a = text.match(/([^\s]+)\s*(.*)/)
switch (a[1]) {
case "tune":
break
case "voice":
do_voice(uncomment(a[2],
true), true)
continue
default:
opt.t_opts.push(
uncomment(text, true))
continue
}
break
}
if (parse.tune_v_opts) {
opt.v_opts = parse.tune_v_opts;
parse.tune_v_opts = null
}
parse.eol = bol
continue
case "voice":
if (parse.state != 0) {
syntax(1, errs.not_in_tune, "%%voice")
continue
}
select = uncomment(a[2])
/* if void %%voice, free all voice options */
if (!select) {
parse.voice_opts = null
continue
}
do_voice(select)
continue
}
self.do_pscom(uncomment(text, true))
continue
}
// music line (or free text)
if (line1 != ':' || !/[A-Za-z+]/.test(line0)) {
last_info = undefined;
if (parse.state < 2)
continue
parse.line.buffer = uncomment(file.slice(bol, eol))
if (parse.line.buffer)
parse_music_line()
continue
}
// information fields
bol += 2
while (1) {
switch (file[bol]) {
case ' ':
case '\t':
bol++
continue
}
break
}
if (line0 == '+') {
if (!last_info) {
syntax(1, "+: without previous info field")
continue
}
txt_add = ' '; // concatenate
line0 = last_info
}
text = uncomment(file.slice(bol, eol), line0)
switch (line0) {
case 'X': // start of tune
if (parse.state != 0) {
syntax(1, errs.ignored, line0)
continue
}
if (parse.select
&& !tune_selected()) { // skip to the next tune
eol = file.indexOf('\nX:', parse.eol)
if (eol < 0)
eol = eof;
parse.eol = eol
continue
}
sav.cfmt = clone(cfmt);
sav.info = clone(info, 2) // (level 2 for info.V[])
sav.char_tb = clone(char_tb);
sav.glovar = clone(glovar);
sav.maps = clone(maps, 1);
sav.mac = clone(mac);
sav.maci = clone(maci);
info.X = text;
parse.state = 1 // tune header
if (user.page_format
&& blkdiv < 1) // (if no newpage)
blkdiv = 1 // the tune starts by the next SVG
if (parse.tune_opts)
tune_filter()
continue
case 'T':
switch (parse.state) {
case 0:
continue
case 1:
case 2:
if (info.T == undefined) // (keep empty T:)
info.T = text
else
info.T += "\n" + text
continue
}
s = new_block("title");
s.text = text
continue
case 'K':
switch (parse.state) {
case 0:
continue
case 1: // tune header
info.K = text
break
}
do_info(line0, text)
continue
case 'W':
if (parse.state == 0
|| cfmt.writefields.indexOf(line0) < 0)
break
if (info.W == undefined)
info.W = text
else
info.W += txt_add + text
break
case 'm':
if (parse.state >= 2) {
syntax(1, errs.ignored, line0)
continue
}
a = text.match(/(.*?)[= ]+(.*)/)
if (!a || !a[2]) {
syntax(1, errs.bad_val, "m:")
continue
}
mac[a[1]] = a[2];
maci[a[1][0]] = true // first letter
break
// info fields in tune body only
case 's':
if (parse.state != 3
|| cfmt.writefields.indexOf(line0) < 0)
break
get_sym(text, txt_add == ' ')
break
case 'w':
if (parse.state != 3
|| cfmt.writefields.indexOf(line0) < 0)
break
get_lyrics(text, txt_add == ' ')
break
case '|': // "|:" starts a music line
if (parse.state < 2)
continue
parse.line.buffer = text
parse_music_line()
continue
default:
if ("ABCDFGHNOSZ".indexOf(line0) >= 0) {
if (parse.state >= 2) {
syntax(1, errs.ignored, line0)
continue
}
// if (cfmt.writefields.indexOf(c) < 0)
// break
if (!info[line0])
info[line0] = text
else
info[line0] += txt_add + text
break
}
// info field which may be embedded
do_info(line0, text)
continue
}
txt_add = '\n';
last_info = line0
}
if (include)
return
if (parse.state == 1) {
syntax(1, "End of file in tune header")
get_key("C")
}
if (parse.state >= 2)
end_tune();
parse.state = 0
}
Abc.prototype.tosvg = tosvg
// abc2svg - music.js - music generation
//
// Copyright (C) 2014-2024 Jean-Francois Moine
//
// This file is part of abc2svg-core.
//
// abc2svg-core is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg-core is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg-core. If not, see .
var gene,
staff_tb,
nstaff, // current number of staves
tsnext, // next line when cut
realwidth, // real staff width while generating
insert_meter, // insert the time signature
spf_last, // spacing for last short line
smallest_duration
/* -- decide whether to shift heads to other side of stem on chords -- */
/* this routine is called only once per tune */
// distance for no overlap - index: [prev acc][cur acc]
//var dt_tb = [
// [5, 5, 5, 5], /* dble sharp */
// [5, 6, 6, 6], /* sharp */
// [5, 6, 5, 6], /* natural */
// [5, 5, 5, 5] /* flat / dble flat */
//]
// accidental x offset - index = note head type
var dx_tb = new Float32Array([
10, // FULL
10, // EMPTY
11, // OVAL
13, // OVALBARS
15 // SQUARE
])
// head width - index = note head type
var hw_tb = new Float32Array([
4.7, // FULL
5, // EMPTY
6, // OVAL
7.2, // OVALBARS
7.5 // SQUARE
])
/* head width for voice overlap - index = note head type */
var w_note = new Float32Array([
3.5, // FULL
3.7, // EMPTY
5, // OVAL
6, // OVALBARS
7 // SQUARE
])
// get head type, dots, flags of note/rest for a duration
function identify_note(s, dur_o) {
var head, flags,
dots = 0,
dur = dur_o
if (dur % 12 != 0)
error(1, s, "Invalid note duration $1", dur);
dur /= 12 /* see C.BLEN for values */
if (!dur)
error(1, s, "Note too short")
for (flags = 5; dur; dur >>= 1, flags--) {
if (dur & 1)
break
}
dur >>= 1
if ((dur + 1) & dur) {
if (s.type != C.REST || dur_o != s.p_v.wmeasure)
error(0, s, "Non standard note duration $1", dur_o)
}
while (dur >> dots > 0)
dots++
flags -= dots
if (flags >= 0) {
head = C.FULL
} else switch (flags) {
default:
error(1, s, "Note too long")
flags = -4
/* fall thru */
case -4:
head = C.SQUARE
break
case -3:
head = s.fmt.squarebreve ? C.SQUARE : C.OVALBARS
break
case -2:
head = C.OVAL
break
case -1:
head = C.EMPTY
break
}
return [head, dots, flags]
}
function set_head_shift(s) {
var i, i1, i2, d, ps, dx,
dx_head = dx_tb[s.head],
dir = s.stem,
n = s.nhd
if (!n)
return // single note
/* set the head shifts */
dx = dx_head * .74
if (s.grace)
dx *= .6
if (dir >= 0) {
i1 = 1;
i2 = n + 1;
ps = s.notes[0].pit
} else {
dx = -dx;
i1 = n - 1;
i2 = -1;
ps = s.notes[n].pit
}
var shift = false,
dx_max = 0
for (i = i1; i != i2; i += dir) {
d = s.notes[i].pit - ps;
ps = s.notes[i].pit
if (!d) {
if (shift) { /* unison on shifted note */
var new_dx = s.notes[i].shhd =
s.notes[i - dir].shhd + dx
if (dx_max < new_dx)
dx_max = new_dx
continue
}
if (i + dir != i2 /* second after unison */
//fixme: should handle many unisons after second
&& ps + dir == s.notes[i + dir].pit) {
s.notes[i].shhd = -dx
if (dx_max < -dx)
dx_max = -dx
continue
}
}
if (d < 0)
d = -d
if (d > 3 || (d >= 2 && s.head != C.SQUARE)) {
shift = false
} else {
shift = !shift
if (shift) {
s.notes[i].shhd = dx
if (dx_max < dx)
dx_max = dx
}
}
}
s.xmx = dx_max /* shift the dots */
}
// set the accidental shifts for a set of chords
function acc_shift(notes, dx_head) {
var i, i1, i2, dx, dx1, dx2, ps, p1, acc,
n = notes.length
// set the shifts from the head shifts
for (i = n - 1; --i >= 0; ) { // (no shift on top)
dx = notes[i].shhd
if (!dx || dx > 0)
continue
dx = dx_head - dx;
ps = notes[i].pit
for (i1 = n; --i1 >= 0; ) {
if (!notes[i1].acc)
continue
p1 = notes[i1].pit
if (p1 < ps - 3)
break
if (p1 > ps + 3)
continue
if (notes[i1].shac < dx)
notes[i1].shac = dx
}
}
// set the shifts of the highest and lowest notes
for (i1 = n; --i1 >= 0; ) {
if (notes[i1].acc) {
p1 = notes[i1].pit // top note with accidental
dx1 = notes[i1].shac
if (!dx1) {
dx1 = notes[i1].shhd
if (dx1 < 0)
dx1 = dx_head - dx1
else
dx1 = dx_head
}
break
}
}
if (i1 < 0) // no accidental
return
for (i2 = 0; i2 < i1; i2++) {
if (notes[i2].acc) {
ps = notes[i2].pit // bottom note with accidental
dx2 = notes[i2].shac
if (!dx2) {
dx2 = notes[i2].shhd
if (dx2 < 0)
dx2 = dx_head - dx2
else
dx2 = dx_head
}
break
}
}
if (i1 == i2) { // only one accidental
notes[i1].shac = dx1
return
}
if (p1 > ps + 4) { // if interval greater than a sixth
if (dx1 > dx2)
dx2 = dx1 // align the accidentals
notes[i1].shac = notes[i2].shac = dx2
} else {
notes[i1].shac = dx1
if (notes[i1].pit != notes[i2].pit)
dx1 += 7
notes[i2].shac = dx2 = dx1
}
dx2 += 7
// shift the remaining accidentals
for (i = i1; --i > i2; ) { // from top to bottom
acc = notes[i].acc
if (!acc)
continue
dx = notes[i].shac
if (dx < dx2)
dx = dx2
ps = notes[i].pit
for (i1 = n; --i1 > i; ) {
if (!notes[i1].acc)
continue
p1 = notes[i1].pit
if (p1 >= ps + 4) { // pitch far enough
if (p1 > ps + 4 // if more than a fifth
|| acc < 0 // if flat/dble flat
|| notes[i1].acc < 0)
continue
}
if (dx > notes[i1].shac - 6) {
dx1 = notes[i1].shac + 7
if (dx1 > dx)
dx = dx1
}
}
notes[i].shac = dx
}
}
/* set the horizontal shift of accidentals */
/* this routine is called only once per tune */
function set_acc_shft() {
var s, s2, st, i, acc, st, t, dx_head, notes
// search the notes with accidentals at the same time
s = tsfirst
while (s) {
if (s.type != C.NOTE
|| s.invis) {
s = s.ts_next
continue
}
st = s.st;
t = s.time;
acc = false
for (s2 = s; s2; s2 = s2.ts_next) {
if (s2.time != t
|| s2.type != C.NOTE
|| s2.st != st)
break
if (acc)
continue
for (i = 0; i <= s2.nhd; i++) {
if (s2.notes[i].acc) {
acc = true
break
}
}
}
if (!acc) {
s = s2
continue
}
dx_head = dx_tb[s.head]
// build a pseudo chord and shift the accidentals
notes = []
for ( ; s != s2; s = s.ts_next) {
if (!s.invis)
Array.prototype.push.apply(notes, s.notes)
}
notes.sort(abc2svg.pitcmp)
acc_shift(notes, dx_head)
}
}
// link a symbol before an other one
function lkvsym(s, next) { // voice linkage
s.next = next;
s.prev = next.prev
if (s.prev)
s.prev.next = s
else
s.p_v.sym = s;
next.prev = s
}
function lktsym(s, next) { // time linkage
var old_wl
s.ts_next = next
if (next) {
s.ts_prev = next.ts_prev
if (s.ts_prev)
s.ts_prev.ts_next = s;
next.ts_prev = s
} else {
//fixme
error(2, s, "Bad linkage")
s.ts_prev = null
}
s.seqst = !s.ts_prev
|| s.time != s.ts_prev.time
|| (w_tb[s.ts_prev.type] != w_tb[s.type]
&& !!w_tb[s.ts_prev.type])
if (!next || next.seqst)
return
next.seqst = next.time != s.time ||
(w_tb[s.type] != w_tb[next.type]
&& !!w_tb[s.type])
if (next.seqst) {
old_wl = next.wl
self.set_width(next)
if (next.a_ly)
ly_set(next)
if (!next.shrink) {
next.shrink = next.wl
if (next.prev)
next.shrink += next.prev.wr
} else {
next.shrink += next.wl - old_wl
}
next.space = 0
}
}
/* -- unlink a symbol -- */
function unlksym(s) {
if (s.next)
s.next.prev = s.prev
if (s.prev)
s.prev.next = s.next
else
s.p_v.sym = s.next
if (s.ts_next) {
if (s.seqst) {
if (s.ts_next.seqst) {
s.ts_next.shrink += s.shrink;
s.ts_next.space += s.space
} else {
s.ts_next.seqst = true;
s.ts_next.shrink = s.shrink;
s.ts_next.space = s.space
}
} else {
if (s.ts_next.seqst
&& s.ts_prev && s.ts_prev.seqst
&& !w_tb[s.ts_prev.type]) {
s.ts_next.seqst = false
s.shrink = s.ts_next.shrink
s.space = s.ts_next.space
}
}
s.ts_next.ts_prev = s.ts_prev
}
if (s.ts_prev)
s.ts_prev.ts_next = s.ts_next
if (tsfirst == s)
tsfirst = s.ts_next
if (tsnext == s)
tsnext = s.ts_next
}
/* -- insert a clef change (treble or bass) before a symbol -- */
function insert_clef(s, clef_type, clef_line) {
var p_voice = s.p_v,
new_s,
st = s.st
/* don't insert the clef between two bars */
if (s.type == C.BAR && s.prev && s.prev.type == C.BAR
&& s.prev.bar_type[0] != ':')
s = s.prev;
/* create the symbol */
p_voice.last_sym = s.prev
if (!p_voice.last_sym)
p_voice.sym = null;
p_voice.time = s.time;
new_s = sym_add(p_voice, C.CLEF);
new_s.next = s;
s.prev = new_s;
new_s.clef_type = clef_type;
new_s.clef_line = clef_line;
new_s.st = st;
new_s.clef_small = true
delete new_s.second;
new_s.notes = []
new_s.notes[0] = {
pit: s.notes[0].pit
}
new_s.nhd = 0;
/* link in time */
while (!s.seqst)
s = s.ts_prev;
lktsym(new_s, s)
if (s.soln) { // move the start of line
new_s.soln = true
delete s.soln
}
return new_s
}
/* -- set the staff of the floating voices -- */
/* this function is called only once per tune */
function set_float() {
var p_voice, st, staff_chg, v, s, s1, up, down
for (v = 0; v < voice_tb.length; v++) {
p_voice = voice_tb[v]
// if (!p_voice.floating)
// continue
staff_chg = false;
st = p_voice.st
for (s = p_voice.sym; s; s = s.next) {
if (!s.floating) {
while (s && !s.floating)
s = s.next
if (!s)
break
staff_chg = false
}
if (!s.dur) {
if (staff_chg)
s.st++
continue
}
if (s.notes[0].pit >= 19) { /* F */
staff_chg = false
continue
}
if (s.notes[s.nhd].pit <= 12) { /* F, */
staff_chg = true
s.st++
continue
}
up = 127
for (s1 = s.ts_prev; s1; s1 = s1.ts_prev) {
if (s1.st != st
|| s1.v == s.v)
break
if (s1.type == C.NOTE)
if (s1.notes[0].pit < up)
up = s1.notes[0].pit
}
if (up == 127) {
if (staff_chg)
s.st++
continue
}
if (s.notes[s.nhd].pit > up - 3) {
staff_chg = false
continue
}
down = -127
for (s1 = s.ts_next; s1; s1 = s1.ts_next) {
if (s1.st != st + 1
|| s1.v == s.v)
break
if (s1.type == C.NOTE)
if (s1.notes[s1.nhd].pit > down)
down = s1.notes[s1.nhd].pit
}
if (down == -127) {
if (staff_chg)
s.st++
continue
}
if (s.notes[0].pit < down + 3) {
staff_chg = true
s.st++
continue
}
up -= s.notes[s.nhd].pit
down = s.notes[0].pit - down
if (!staff_chg) {
if (up < down + 3)
continue
staff_chg = true
} else {
if (up < down - 3) {
staff_chg = false
continue
}
}
s.st++
}
}
}
/* -- set the x offset of the grace notes -- */
function set_graceoffs(s) {
var next, m, dx, x,
gspleft = s.fmt.gracespace[0],
gspinside = s.fmt.gracespace[1],
gspright = s.fmt.gracespace[2],
g = s.extra;
if (s.prev && s.prev.type == C.BAR)
gspleft -= 3;
x = gspleft;
g.beam_st = true
for ( ; ; g = g.next) {
set_head_shift(g)
acc_shift(g.notes, 6.5)
dx = 0
for (m = g.nhd; m >= 0; m--) {
if (g.notes[m].shac - 2 > dx)
dx = g.notes[m].shac - 2
}
x += dx;
g.x = x
if (g.nflags <= 0)
g.beam_st = g.beam_end = true
next = g.next
if (!next) {
g.beam_end = true
break
}
if (next.nflags <= 0)
g.beam_end = true
if (g.beam_end) {
next.beam_st = true;
x += gspinside / 4
}
if (g.nflags <= 0)
x += gspinside / 4
if (g.y > next.y + 8)
x -= 1.5
x += gspinside
}
next = s.next
if (next
&& next.type == C.NOTE) { /* if before a note */
if (g.y >= 3 * (next.notes[next.nhd].pit - 18))
gspright -= 1 // above, a bit closer
else if (g.beam_st
&& g.y < 3 * (next.notes[next.nhd].pit - 18) - 4)
gspright += 2 // below with flag, a bit further
}
x += gspright;
/* return the whole width */
return x
}
// Compute the smallest spacing between symbols according to chord symbols
// so that they stay at the same offset
// and, also, adjust the spacing due to the lyric words.
// Constraints:
// - assume the chord symbols are only in the first staff
// - treat only the first chord symbol of each symbol
// - the chord symbols under the staff are ignored
function set_w_chs(s) {
var i, ch, w0, s0, dw,
x = 0,
n = 0
set_font("vocal")
for ( ; s; s = s.ts_next) {
if (s.shrink) {
x += s.shrink;
n++
}
if (s.a_ly) // if some lyric
ly_set(s)
if (!s.a_gch)
continue
for (i = 0; i < s.a_gch.length; i++) {
ch = s.a_gch[i]
if (ch.type != 'g' || ch.y < 0) // upper chord symbol only
continue
if (w0) { // width of the previous chord symbol
if (w0 > x + ch.x) {
if (s.prev // (if not at start of a secondary voice)
&& s.prev.seqst
&& s.prev.type == C.BAR) // don't move away
n-- // the symbol from a bar
dw = (w0 - x - ch.x) / n
while (1) {
s0 = s0.ts_next
if (s0.shrink)
s0.shrink += dw
if (s0 == s
|| s0.type == C.BAR)
break
}
}
}
s0 = s;
w0 = ch.text.wh[0];
n = 0;
// x = ch.font.box ? -2 : 0
x = 0
break
}
}
}
// compute the width needed by the left and right annotations
function gchord_width(s, wlnote, wlw) {
var gch, w, ix,
arspc = 0
for (ix = 0; ix < s.a_gch.length; ix++) {
gch = s.a_gch[ix]
switch (gch.type) {
case '<': /* left */
w = gch.text.wh[0] + wlnote
if (w > wlw)
wlw = w
break
case '>': /* right */
w = gch.text.wh[0] + s.wr
if (w > arspc)
arspc = w
break
}
}
if (s.wr < arspc)
s.wr = arspc
return wlw
}
/* -- set the width of a symbol -- */
/* This routine sets the minimal left and right widths wl,wr
* so that successive symbols are still separated when
* no extra glue is put between them */
// (possible hook)
Abc.prototype.set_width = function(s) {
var s2, i, m, xx, w, wlnote, wlw, acc, nt,
bar_type, meter, last_acc, n1, n2, esp, tmp
if (s.play) { // if play symbol
s.wl = s.wr = 0
return
}
switch (s.type) {
case C.NOTE:
case C.REST:
/* set the note widths */
s.wr = wlnote = s.invis ? 0 : hw_tb[s.head]
/* room for shifted heads and accidental signs */
if (s.xmx > 0)
s.wr += s.xmx + 4;
for (s2 = s.prev; s2; s2 = s2.prev) {
if (w_tb[s2.type])
break
}
if (s2) {
switch (s2.type) {
case C.BAR:
case C.CLEF:
case C.KEY:
case C.METER:
wlnote += 3
break
case C.STBRK:
wlnote += 8
break
}
}
for (m = 0; m <= s.nhd; m++) {
nt = s.notes[m]
xx = nt.shhd
if (xx < 0) {
if (wlnote < -xx + 5)
wlnote = -xx + 5
}
acc = nt.acc
if (acc) {
tmp = nt.shac +
(typeof acc == "object" ? 5.5 : 3.5)
if (wlnote < tmp)
wlnote = tmp
}
if (nt.a_dd) // if decoration in chord
wlnote += deco_wch(nt)
}
if (s2) {
switch (s2.type) {
case C.BAR:
case C.CLEF:
case C.KEY:
case C.METER:
wlnote -= 3
break
}
}
/* room for the decorations */
if (s.a_dd)
wlnote = deco_width(s, wlnote)
/* space for flag if stem goes up on standalone note */
if (s.beam_st && s.beam_end
&& s.stem > 0 && s.nflags > 0) {
if (s.wr < s.xmx + 9)
s.wr = s.xmx + 9
}
/* leave room for dots and set their offset */
if (s.dots) {
if (s.wl == undefined) // don't recompute if new music line
switch (s.head) {
case C.SQUARE:
case C.OVALBARS:
s.xmx += 3
break
case C.OVAL:
s.xmx += 1
break
}
if (s.wr < s.xmx + 8)
s.wr = s.xmx + 8
if (s.dots >= 2)
s.wr += 3.5 * (s.dots - 1)
}
/* if a tremolo on 2 notes, have space for the small beam(s) */
if (s.trem2 && s.beam_end
&& wlnote < 20)
wlnote = 20
wlw = wlnote
if (s2) {
switch (s2.type) {
case C.NOTE:
// change the spacing when stems in reverse directions
if (s.stem * s2.stem < 0) {
if (s.stem < 0)
wlw += 5
else
wlw -= 3
}
/* make sure helper lines don't overlap */
if ((s.y > 27 && s2.y > 27)
|| (s.y < -3 && s2.y < -3)) {
if (wlw < 6)
wlw = 6
}
/* have ties wide enough */
if (s2.tie) {
if (wlw < 14)
wlw = 14
}
break
case C.CLEF: /* extra space at start of line */
if (s2.second
|| s2.clef_small)
break
// fall thru
case C.KEY:
if (s.a_gch)
wlw += 4 // have some room for the chord symbols
// fall thru
case C.METER:
wlw += 3
break
}
}
/* leave room for guitar chord */
if (s.a_gch)
wlw = gchord_width(s, wlnote, wlw)
// ignore the lyrics for now
/* if preceeded by a grace note sequence, adjust */
if (s.prev && s.prev.type == C.GRACE) {
s.prev.wl += wlnote - 4.5
s.wl = s.prev.wl
} else {
s.wl = wlw
}
return
case C.SPACE:
xx = s.width / 2;
s.wr = xx
if (s.a_gch)
xx = gchord_width(s, xx, xx)
if (s.a_dd)
xx = deco_width(s, xx)
s.wl = xx
return
case C.BAR:
bar_type = s.bar_type
switch (bar_type) {
case "|":
w = 5 // 3 + 2
break
case "[": // repeat number on secondary staff
w = 0
break
default:
w = 2 + 2.8 * bar_type.length
for (i = 0; i < bar_type.length; i++) {
switch (bar_type[i]) {
case "[":
case "]":
w += 1
// fall thru
case ":":
w += 2
break
}
}
break
}
s.wl = w
if (s.next
&& s.next.type != C.METER)
s.wr = 7
else
s.wr = 5
// s.notes[0].shhd = (w - 5) * -.5
// special case for (mainly) "|| !invisible! |:"
if (s.invis)
//fixme
// && s.prev && s.prev.bar_type)
s.wl = s.wr = 2
/* if preceeded by a grace note sequence, adjust */
s2 = s.prev
if (s2 && s2.type == C.GRACE)
s.wl -= 6
for ( ; s2; s2 = s2.prev) {
if (w_tb[s2.type]) {
if (s2.type == C.STBRK)
s.wl -= 12
break
}
}
if (s.a_dd)
s.wl = deco_width(s, s.wl)
/* have room for the repeat numbers / chord indication */
if (s.text && s.text.length < 4
&& s.next && s.next.a_gch) {
set_font("repeat");
s.wr += strwh(s.text)[0] + 2
if (cfmt.measurenb > 0 & s.bar_num
&& s.bar_num % cfmt.measurenb)
s.wr += 4
}
return
case C.CLEF:
// (there may be invisible clefs in empty staves)
if (s.invis) {
s.wl = s.wr = 1 // (!! not 0 !!)
return
}
if (s.prev && s.prev.type == C.STBRK) {
s.wl = 6
s.wr = 13
delete s.clef_small
return
}
s.wl = s.clef_small ? 11 : 12
s.wr = s.clef_small ? 8 : 13
return
case C.KEY:
if (s.invis) { // if no accidental
s.wl = s.wr = 0 // no width
return
}
s.wl = 0
esp = 3
n1 = s.k_sf /* new key sig */
if (s.k_old_sf && (s.fmt.cancelkey || n1 == 0))
n2 = s.k_old_sf /* old key */
else
n2 = 0
if (n1 * n2 >= 0) { /* if no natural */
if (n1 < 0)
n1 = -n1
if (n2 < 0)
n2 = -n2
if (n2 > n1)
n1 = n2
} else {
n1 -= n2
if (n1 < 0)
n1 = -n1;
esp += 3 /* see extra space in draw_keysig() */
}
if (s.k_bagpipe == 'p') // K:Hp - add the g natural
n1++
if (s.k_a_acc) {
n2 = s.k_a_acc.length
if (s.exp)
n1 = n2 // no key signature
else
n1 += n2
if (n2)
last_acc = s.k_a_acc[0].acc
for (i = 1; i < n2; i++) {
acc = s.k_a_acc[i]
if (acc.pit > s.k_a_acc[i - 1].pit + 6
|| acc.pit < s.k_a_acc[i - 1].pit - 6)
n1-- // no clash
else if (acc.acc != last_acc)
esp += 3;
last_acc = acc.acc
}
}
if (!n1)
break // no width
s.wr = 5.5 * n1 + esp
if (s.prev && !s.prev.bar_type)
s.wl += 2
return
case C.METER:
s.x_meter = []
if (!s.a_meter.length)
break // no width
wlw = 0
for (i = 0; i < s.a_meter.length; i++) {
meter = s.a_meter[i]
switch (meter.top[0]) {
case 'C':
case 'c':
case 'o':
s.x_meter[i] = wlw + 6;
wlw += 12
break
case '.':
case '|':
s.x_meter[i] = s.x_meter[i - 1]
break
default:
w = 0
if (!meter.bot
|| meter.top.length > meter.bot.length)
meter = meter.top
else
meter = meter.bot;
for (m = 0; m < meter.length; m++) {
switch (meter[m]) {
case '(':
wlw += 4
// fall thru
case ')':
case '1':
w += 4
break
default:
w += 12
break
}
}
s.x_meter[i] = wlw + w / 2
wlw += w
}
}
s.wl = 1
s.wr = wlw + 7
return
case C.MREST:
s.wl = 6;
s.wr = 66
return
case C.GRACE:
if (s.invis)
break
s.wl = set_graceoffs(s);
s.wr = 0
if (s.a_ly)
ly_set(s)
return
case C.STBRK:
s.wl = s.xmx
s.wr = 8
return
case C.CUSTOS:
s.wl = s.wr = 4
return
case C.TEMPO: // no width, but build the tempo string
tempo_build(s)
break
case C.BLOCK: // no width
case C.REMARK:
case C.STAVES:
break
default:
error(2, s, "set_width - Cannot set width for symbol $1", s.type)
break
}
s.wl = s.wr = 0
}
// convert delta time to natural spacing
function time2space(s, len) {
var i, l, space
if (smallest_duration >= C.BLEN / 2) {
if (smallest_duration >= C.BLEN)
len /= 4
else
len /= 2
} else if (!s.next && len >= C.BLEN) {
len /= 2
}
if (len >= C.BLEN / 4) {
if (len < C.BLEN / 2)
i = 5
else if (len < C.BLEN)
i = 6
else if (len < C.BLEN * 2)
i = 7
else if (len < C.BLEN * 4)
i = 8
else
i = 9
} else {
if (len >= C.BLEN / 8)
i = 4
else if (len >= C.BLEN / 16)
i = 3
else if (len >= C.BLEN / 32)
i = 2
else if (len >= C.BLEN / 64)
i = 1
else
i = 0
}
l = len - ((C.BLEN / 16 / 8) << i)
space = cfmt.spatab[i]
if (l) {
if (l < 0) {
space = cfmt.spatab[0] * len / (C.BLEN / 16 / 8)
} else {
if (i >= 9)
i = 8
space += (cfmt.spatab[i + 1] - cfmt.spatab[i]) *
l / ((C.BLEN / 16 / 8) << i)
}
}
return space
}
// set the natural space
function set_space(s, ptime) {
var space, len, s2, stemdir
len = s.time - ptime // time skip
if (!len) {
switch (s.type) {
case C.MREST:
return s.wl
///*fixme:do same thing at start of line*/
// case C.NOTE:
// case C.REST:
// if (s.ts_prev.type == C.BAR) {
// if (s.nflags < -2)
// return cfmt.spatab[0]
// return cfmt.spatab[2]
// }
// break
}
return 0
}
if (s.ts_prev.type == C.MREST)
// return s.ts_prev.wr + 16
// + 3 // (bar wl=5 wr=8)
return 71 // 66 (mrest.wl) + 5 (bar.wl)
space = time2space(s, len)
while (!s.dur) {
switch (s.type) {
case C.BAR:
// (hack to have quite the same note widths between measures)
if (!s.next)
space *= .9
return space * .9 - 3
case C.CLEF:
return space - s.wl - s.wr
case C.BLOCK: // no space
case C.REMARK:
case C.STAVES:
case C.TEMPO:
s = s.ts_next
if (!s)
return space
continue
}
break
}
/* reduce spacing within a beam */
if (s.dur && len <= C.BLEN / 4) {
s2 = s
while (s2) {
if (!s2.beam_st) {
space *= .9 // ex fnnp
break
}
s2 = s2.ts_next
if (!s2 || s2.seqst)
break
}
}
/* decrease spacing when stem down followed by stem up */
/*fixme:to be done later, after x computed in sym_glue*/
if (s.type == C.NOTE && s.nflags >= -1
&& s.stem > 0) {
stemdir = true
for (s2 = s.ts_prev;
s2 && s2.time == ptime;
s2 = s2.ts_prev) {
if (s2.type == C.NOTE
&& (s2.nflags < -1 || s2.stem > 0)) {
stemdir = false
break
}
}
if (stemdir) {
for (s2 = s.ts_next;
s2 && s2.time == s.time;
s2 = s2.ts_next) {
if (s2.type == C.NOTE
&& (s2.nflags < -1 || s2.stem < 0)) {
stemdir = false
break
}
}
if (stemdir)
space *= .9
}
}
return space
}
// set the spacing inside tuplets or L: factor
function set_sp_tup(s, s_et) {
var tim = s.time,
ttim = s_et.time - tim,
sp = time2space(s, ttim), // whole time spacing
s2 = s,
wsp = 0
// compute the whole spacing
while (1) {
s2 = s2.ts_next
if (s2.seqst) {
wsp += s2.space
if (s2.bar_type)
wsp += 10 // (fixme: not exact)
}
if (s2 == s_et)
break
}
sp = (sp + wsp) / 2 / ttim // mean spacing per time unit
while (1) {
s = s.ts_next
if (s.seqst) {
s.space = sp * (s.time - tim)
tim = s.time
}
if (s == s_et)
break
}
}
// return an empty bar
function _bar(s) {
return {
type: C.BAR,
bar_type: "|",
fname: s.fname,
istart: s.istart,
iend: s.iend,
v: s.v,
p_v: s.p_v,
st: s.st,
dur: 0,
time: s.time + (s.dur || 0),
nhd: 0,
notes: [{
pit: s.notes ? s.notes[0].pit : 22
}],
seqst: true,
invis: true,
prev: s,
fmt: s.fmt
}
} // _bar()
// create an invisible bar for end of music lines
function add_end_bar(s) {
var b = _bar(s),
sn = s.ts_next // start of next line
b.wl = 0
b.wr = 0
b.ts_prev = s
b.next = s.next
b.ts_next = s.ts_next
b.shrink = s.type == C.STBRK ? 0 : (s.wr + 3)
if (s.next) // (must not be the end of the voice)
s.next.prev = b
// if (s.ts_next)
s.ts_next.ts_prev = b
s.next = s.ts_next = b
b.space = sn.space * .9 - 3
return b
}
/* -- set the width and space of all symbols -- */
// this function is called once for the whole tune
// and once more for each new music line
function set_allsymwidth(first) {
var val, st, s_chs, stup, itup,
s = tsfirst,
s2 = s,
xa = 0,
xl = [],
wr = [],
maxx = xa,
tim = s.time
/* loop on all symbols */
while (1) {
itup = 0
do {
if ((s.a_gch || s.a_ly) && !s_chs)
s_chs = s;
self.set_width(s);
st = s.st
if (xl[st] == undefined)
xl[st] = 0
if (wr[st] == undefined)
wr[st] = 0;
if (s.prev && s.prev.st != st) {
xl[st] = xl[s.prev.st]
wr[st] = wr[s.prev.st]
}
val = xl[st] + wr[st] + s.wl
if (val > maxx)
maxx = val
if (s.dur && s.dur != s.notes[0].dur // if in tuplet
&& first) // (first time only)
itup = 1
s = s.ts_next
} while (s && !s.seqst);
// set the spaces of the time sequence
s2.shrink = maxx - xa
s2.space = s2.ts_prev ? set_space(s2, tim) : 0
// adjust the spacing when after a spacer (y)
if (s2.space == 0 && s2.ts_prev
&& s2.ts_prev.type == C.SPACE && s2.ts_prev.seqst)
s2.space = s2.ts_prev.space /= 2
if (itup) {
if (!stup)
stup = s2
} else if (stup && stup.v == s2.v) {
set_sp_tup(stup, s2)
stup = null
}
if (!s2.shrink) {
if (s2.type == C.CLEF
&& !s2.ts_prev.bar_type) {
delete s2.seqst; /* no space */
s2.time = tim
} else {
s2.shrink = 10 // cannot be null
}
}
tim = s2.time
if (!s)
break
// update the min left space per staff
s = s2
do {
wr[s.st] = 0
s = s.ts_next
} while (!s.seqst)
xa = maxx
do {
st = s2.st;
xl[st] = xa
if (s2.wr > wr[st])
wr[st] = s2.wr
s2 = s2.ts_next
} while (!s2.seqst)
}
if (stup)
set_sp_tup(stup, s2)
// let the chord symbols at the same offset
// and adjust the spacing due to the lyrics
if (first && s_chs)
set_w_chs(s_chs)
}
// insert a rest, this one replacing a sequence or a measure
function to_rest(so) {
var s = clone(so)
s.prev.next = so.ts_prev = so.prev = s.ts_prev.ts_next = s
s.next = s.ts_next = so
so.seqst = false
so.invis = so.play = true
s.type = C.REST
// just keep nl and seqst
delete s.in_tuplet
delete s.tp
delete s.a_dd
delete s.a_gch
delete s.sls
//fixme: what if chord / slur in notes / ... ?
/*fixme: should set many parameters for set_width*/
// set_width(s)
return s
}
/* -- set the repeat sequences / measures -- */
function set_repeat(s) { // first note
var s2, s3, i, j, dur,
n = s.repeat_n,
k = s.repeat_k,
st = s.st,
v = s.v
s.repeat_n = 0 // treated
/* treat the sequence repeat */
if (n < 0) { /* number of notes / measures */
n = -n;
i = n /* number of notes to repeat */
for (s3 = s.prev; s3; s3 = s3.prev) {
if (!s3.dur) {
if (s3.type == C.BAR) {
error(1, s3, "Bar in repeat sequence")
return
}
continue
}
if (--i <= 0)
break
}
if (!s3) {
error(1, s, errs.not_enough_n)
return
}
dur = s.time - s3.time;
i = k * n /* whole number of notes/rests to repeat */
for (s2 = s; s2; s2 = s2.next) {
if (!s2.dur) {
if (s2.type == C.BAR) {
error(1, s2, "Bar in repeat sequence")
return
}
continue
}
if (--i <= 0)
break
}
if (!s2
|| !s2.next) { /* should have some symbol */
error(1, s, errs.not_enough_n)
return
}
for (s2 = s.prev; s2 != s3; s2 = s2.prev) {
if (s2.type == C.NOTE) {
s2.beam_end = true
break
}
}
for (j = k; --j >= 0; ) {
i = n /* number of notes/rests */
if (s.dur)
i--;
s2 = s.ts_next
while (i > 0) {
if (s2.st == st) {
s2.invis = s2.play = true
if (s2.seqst && s2.ts_next.seqst)
s2.seqst = false
if (s2.v == v
&& s2.dur)
i--
}
s2 = s2.ts_next
}
s = to_rest(s)
s.dur = s.notes[0].dur = dur;
s.rep_nb = -1; // single repeat
s.beam_st = true;
self.set_width(s)
s.head = C.SQUARE;
for (s = s2; s; s = s.ts_next) {
if (s.st == st
&& s.v == v
&& s.dur)
break
}
}
return
}
/* check the measure repeat */
i = n /* number of measures to repeat */
for (s2 = s.prev.prev ; s2; s2 = s2.prev) {
if (s2.type == C.BAR
|| s2.time == tsfirst.time) {
if (--i <= 0)
break
}
}
if (!s2) {
error(1, s, errs.not_enough_m)
return
}
dur = s.time - s2.time /* repeat duration */
if (n == 1)
i = k /* repeat number */
else
i = n /* check only 2 measures */
for (s2 = s; s2; s2 = s2.next) {
if (s2.type == C.BAR) {
if (--i <= 0)
break
}
}
if (!s2) {
error(1, s, errs.not_enough_m)
return
}
/* if many 'repeat 2 measures'
* insert a new %%repeat after the next bar */
i = k /* repeat number */
if (n == 2 && i > 1) {
s2 = s2.next
if (!s2) {
error(1, s, errs.not_enough_m)
return
}
s2.repeat_n = n;
s2.repeat_k = --i
}
/* replace */
dur /= n
if (n == 2) { /* repeat 2 measures (once) */
s3 = s
for (s2 = s.ts_next; ; s2 = s2.ts_next) {
if (s2.st != st)
continue
if (s2.type == C.BAR) {
if (s2.v == v)
break
continue
}
s2.invis = s2.play = true
if (s2.seqst && s2.ts_next.seqst)
s2.seqst = false
}
s3 = to_rest(s3)
s3.dur = s3.notes[0].dur = dur;
s3.invis = true
s2.bar_mrep = 2
s3 = s2.next;
for (s2 = s3.ts_next; ; s2 = s2.ts_next) {
if (s2.st != st)
continue
if (s2.type == C.BAR) {
if (s2.v == v)
break
continue
}
if (!s2.dur)
continue
s2.invis = s2.play = true
if (s2.seqst && s2.ts_next.seqst)
s2.seqst = false
}
s3 = to_rest(s3)
s3.dur = s3.notes[0].dur = dur;
s3.invis = true;
self.set_width(s3)
return
}
/* repeat 1 measure */
s3 = s
for (j = k; --j >= 0; ) {
for (s2 = s3.ts_next; ; s2 = s2.ts_next) {
if (s2.st != st)
continue
if (s2.type == C.BAR) {
if (s2.v == v)
break
continue
}
if (!s2.dur)
continue
s2.invis = s2.play = true
if (s2.seqst && s2.ts_next.seqst)
s2.seqst = false
}
s3 = to_rest(s3)
s3.dur = s3.notes[0].dur = dur;
s3.beam_st = true
if (k == 1) {
s3.rep_nb = 1
break
}
s3.rep_nb = k - j + 1; // number to print above the repeat rest
s3 = s2.next
}
}
/* add a custos before the symbol of the next line */
function custos_add(s) {
var p_voice, new_s, i,
s2 = s
while (1) {
if (s2.type == C.NOTE)
break
s2 = s2.next
if (!s2)
return
}
p_voice = s.p_v;
p_voice.last_sym = s.prev;
// if (!p_voice.last_sym)
// p_voice.sym = null;
p_voice.time = s.time;
new_s = sym_add(p_voice, C.CUSTOS);
new_s.next = s;
s.prev = new_s;
new_s.wl = 0 // (needed here for lktsym)
new_s.wr = 4
lktsym(new_s, s);
new_s.shrink = s.shrink
if (new_s.shrink < 8 + 4)
new_s.shrink = 8 + 4;
new_s.space = s2.space;
new_s.head = C.FULL
new_s.stem = s2.stem
new_s.nhd = s2.nhd;
new_s.notes = []
for (i = 0; i < s2.notes.length; i++) {
new_s.notes[i] = {
pit: s2.notes[i].pit,
shhd: 0,
dur: C.BLEN / 4
}
}
new_s.stemless = true
}
/* -- define the beginning of a new music line -- */
function set_nl(s) { // s = start of line
var p_voice, done, tim, ptyp
// divide the left repeat (|:) or variant bars (|1)
// the new bars go in the next line
function bardiv(so) { // start of next line
var s, s1, s2, t1, t2, i
function new_type(s) {
var t = s.bar_type.match(/(:*)([^:]*)(:*)/)
// [1] = starting ':'s, [2] = middle, [3] = ending ':'s
if (!t[3]) { // if start of variant
// |1 -> | [1
// :|]1 -> :|] [1
t1 = t[1] + t[2]
t2 = '['
} else if (!t[1]) { // if left repeat only
// x|: -> || [|:
t1 = '||'
t2 = '[|' + t[3]
} else {
// :][: -> :|] [|:
i = (t[2].length / 2) | 0
t1 = t[1] + '|' + t[2].slice(0, i)
t2 = t[2].slice(i) +'|' + t[3]
}
} // new_typ()
// change or add a bar for the voice in the previous line
function eol_bar(s, // bar |:
so, // start of new line
sst) { // first bar (for seqst)
var s1, s2, s3
// check if a bar in the previous line
for (s1 = so.ts_prev ; s1.time == s.time; s1 = s1.ts_prev) {
if (s1.v != s.v)
continue
if (s1.bar_type) {
if (s1.bar_type != '|')
return // don't change
s2 = s1 // last symbol in previous line
break
}
if (!s3)
s3 = s1.next // possible anchor for the new bar
}
if (!s2) { // if no symbol in previous line
s2 = clone(s)
if (!s3)
s3 = s
s2.next = s3
s2.prev = s3.prev
if (s2.prev)
s2.prev.next = s2
s3.prev = s2
s2.ts_prev = so.ts_prev // time linkage
s2.ts_prev.ts_next = s2
s2.ts_next = so
so.ts_prev = s2
if (s == sst) // if first inserted bar
s2.seqst = 1 //true
if (s2.seqst) {
for (s = s2.ts_next; !s.seqst; s = s.ts_next)
;
s2.shrink = s.shrink
s.shrink = s2.wr + s.wl
s2.space = s.space
s.space = 0
}
delete s2.part
}
s2.bar_type = "||"
} // eol_bar()
// check if there is a left repeat bar at start of the new line
s = so // start of new music line
while (s && s.time == so.time) {
if (s.bar_type && s.bar_type.slice(-1) == ':') {
s2 = s
break
}
s = s.ts_next
}
if (s2) {
s = s2
while (1) { // loop on all voices
eol_bar(s2, so, s)
s2 = s2.ts_next
if (!s2 || s2.seqst)
break
}
return so
}
s = so
while (s.ts_prev
&& s.ts_prev.time == so.time) {
s = s.ts_prev
if (s.bar_type)
s1 = s // first previous bar
else if (!s1 && s.type == C.GRACE && s.seqst)
so = s // if grace note after a bar
// move the start of line
}
if (!s1
|| !s1.bar_type
|| (s1.bar_type.slice(-1) != ':'
&& !s1.text))
return so
// search the new start of the next line
for (so = s1; so.time == s1.time; so = so.ts_prev) {
switch (so.ts_prev.type) {
case C.KEY:
case C.METER:
// case C.PART:
case C.TEMPO:
case C.STAVES:
case C.STBRK:
continue
}
break
}
// put the new bar before the end of music line
s = s1 // keep first bar
while (1) {
new_type(s1)
s2 = clone(s1)
s2.bar_type = t1
s1.bar_type = t2
s2.ts_prev = so.ts_prev
s2.ts_prev.ts_next = s2
s2.ts_next = so
so.ts_prev = s2
if (s1 == s)
s2.seqst = 1 //true
s2.next = s1
if (s2.prev)
s2.prev.next = s2
s1.prev = s2
if (s1.rbstop)
s2.rbstop = s1.rbstop
if (s1.text) {
s1.invis = 1 //true
delete s1.xsh
delete s2.text
delete s2.rbstart
}
delete s2.part
delete s1.a_dd
delete s1.a_gch
do {
s1 = s1.ts_next
} while (!s1.seqst && !s1.bar_type)
if (s1.seqst)
break
}
return so
} // bardiv()
// set the start of line marker
function set_eol(s) {
if (cfmt.custos && voice_tb.length == 1)
custos_add(s)
s.nl = true
s = s.ts_prev
if (s.type != C.BAR)
add_end_bar(s)
} // set_eol()
// put the warning symbols
// the new symbols go in the previous line
function do_warn(s) { // start of next line
var s1, s2, s3, s4, w
// advance in the next line
for (s2 = s; s2 && s2.time == s.time; s2 = s2.ts_next) {
switch (s2.type) {
case C.KEY:
if (!s.fmt.keywarn
|| s2.invis)
continue
for (s1 = s.ts_prev; s1 ;s1 = s1.ts_prev) {
if (s1.type != C.METER)
break
}
// fall thru
case C.METER:
if (s2.type == C.METER) {
if (!s.fmt.timewarn)
continue
s1 = s.ts_prev
}
// fall thru
case C.CLEF:
if (!s2.prev) // start of voice
continue
if (s2.type == C.CLEF) {
if (s2.invis) // if 'K: clef=none' after bar
break
for (s1 = s.ts_prev; s1; s1 = s1.ts_prev) {
switch (s1.type) {
case C.BAR:
if (s1.bar_type[0] == ':')
break
// fall thru
case C.KEY:
case C.METER:
continue
}
break
}
}
// put the warning symbol at end of line
s3 = clone(s2) // duplicate the K:/M:/clef
lktsym(s3, s1.ts_next) // time link
s1 = s3
while (1) {
s1 = s1.ts_next
if (s1.v == s2.v)
break
}
lkvsym(s3, s1) // voice link
// care with spacing
if (s3.seqst) {
self.set_width(s3)
s3.shrink = s3.wl
s4 = s3.ts_prev
w = 0
while (1) {
if (s4.wr > w)
w = s4.wr
if (s4.seqst)
break
s4 = s4.ts_prev
}
s3.shrink += w
s3.space = 0
s4 = s3
while (1) {
if (s4.ts_next.seqst)
break
s4 = s4.ts_next
}
w = 0
while (1) {
if (s4.wl > w)
w = s4.wl
s4 = s4.ts_next
if (s4.seqst)
break
}
s4.shrink = s3.wr + w
}
delete s3.part
continue
}
if (w_tb[s2.type])
break // symbol with a width
}
} // do_warn()
// divide the left repeat and variant bars
s = bardiv(s)
// add the warning symbols at the end of the previous line
do_warn(s)
/* if normal symbol, cut here */
if (s.ts_prev.type != C.STAVES) {
set_eol(s)
return s
}
/* go back to handle the staff breaks at end of line */
for (s = s.ts_prev; s; s = s.ts_prev) {
if (s.seqst && s.type != C.CLEF)
break
}
done = 0
ptyp = s.type
for ( ; ; s = s.ts_next) {
if (!s)
return s
if (s.type == ptyp)
continue
ptyp = s.type
if (done < 0)
break
switch (s.type) {
case C.STAVES:
if (!s.ts_prev)
return // null // no music yet
if (s.ts_prev.type == C.BAR)
break
while (s.ts_next) {
if (w_tb[s.ts_next.type]
&& s.ts_next.type != C.CLEF)
break
s = s.ts_next
}
if (!s.ts_next || s.ts_next.type != C.BAR)
continue
s = s.ts_next
// fall thru
case C.BAR:
if (done)
break
done = 1;
continue
case C.STBRK:
if (!s.stbrk_forced)
unlksym(s) /* remove */
else
done = -1 // keep the next symbols on the next line
continue
case C.CLEF:
if (done)
break
continue
default:
if (!done || (s.prev && s.prev.type == C.GRACE))
continue
break
}
break
}
set_eol(s)
return s
}
/* get the width of the starting clef and key signature */
// return
// r[0] = width of clef and key signature
// r[1] = width of the meter
function get_ck_width() {
var r0, r1,
p_voice = voice_tb[0]
self.set_width(p_voice.clef);
self.set_width(p_voice.ckey);
self.set_width(p_voice.meter)
return [p_voice.clef.wl + p_voice.clef.wr +
p_voice.ckey.wl + p_voice.ckey.wr,
p_voice.meter.wl + p_voice.meter.wr]
}
// get the width of the symbols up to the next soln or eof
// also, set a x (nice spacing) to all symbols
// two returned values: width of nice spacing, width with max shrinking
function get_width(s, next) {
var shrink, space,
w = 0,
wmx = 0,
sp_fac = (1 - s.fmt.maxshrink)
while (s != next) {
if (s.seqst) {
shrink = s.shrink
wmx += shrink
if ((space = s.space) < shrink)
w += shrink
else
w += shrink * s.fmt.maxshrink
+ space * sp_fac
s.x = w
}
s = s.ts_next
}
if (next)
wmx += next.wr // big key signatures may be wide enough
return [w, wmx]
}
/* -- search where to cut the lines according to the staff width -- */
function set_lines( s, /* first symbol */
next, /* symbol of the next line / null */
lwidth, /* w - (clef & key sig) */
indent) { /* for start of tune */
var first, s2, s3, s4, s5, x, xmin, xmid, xmax, wwidth, shrink, space,
nlines,
last = next ? next.ts_prev : null,
ws = get_width(s, next) // 2 widths: nice and shrunk
// take care of big key signatures at end of line
if (s.fmt.keywarn && next
&& next.type == C.KEY && !last.dur) {
ws[0] += next.wr
ws[1] += next.wr
}
// check if the symbols can enter in one line
if (ws[0] + indent < lwidth) {
if (next)
next = set_nl(next)
return next || last
}
/* loop on cutting the tune into music lines */
wwidth = ws[0] + indent
while (1) {
nlines = Math.ceil(wwidth / lwidth)
if (nlines <= 1) {
if (next)
next = set_nl(next)
return next || last
}
s2 = first = s;
xmin = s.x - s.shrink - indent;
xmax = xmin + lwidth;
xmid = xmin + wwidth / nlines;
xmin += wwidth / nlines * s.fmt.breaklimit;
for (s = s.ts_next; s != next ; s = s.ts_next) {
if (!s.x)
continue
if (s.type == C.BAR)
s2 = s
if (s.x >= xmin)
break
}
s4 = s // keep first symbol with x greater than xmin
//fixme: can this occur?
if (s == next) {
if (s)
s = set_nl(s)
return s
}
/* try to cut on a measure bar */
s3 = null
for ( ; s != next; s = s.ts_next) {
x = s.x
if (!x)
continue
if (x > xmax)
break
if (s.type != C.BAR)
continue
// cut on the bar closest to the middle
if (x < xmid) {
s3 = s // closest bar before middle
continue
}
if (!s3 || x - xmid < xmid - s3.x)
s3 = s // closest bar after middle
break
}
// no bar, try to avoid to cut a beam or a tuplet */
if (!s3) {
s = s4 // restart after xmin
var beam = 0,
bar_time = s2.time
xmax -= 8; // (left width of the inserted bar in set_allsymwidth)
s5 = s
for ( ; s != next; s = s.ts_next) {
if (s.seqst) {
x = s.x
if (x + s.wr >= xmax)
break
if (!beam && !s.in_tuplet
&& (xmid - s5.x > x - xmid
|| (s.time - bar_time)
% (C.BLEN / 4) == 0))
s3 = s
}
if (s.beam_st)
beam |= 1 << s.v
if (s.beam_end)
beam &= ~(1 << s.v)
s5 = s // start of new time sequence
}
if (s3) {
do { // cut on the previous sequence
s3 = s3.ts_prev
} while (!s3.seqst)
}
}
// cut anyhere
if (!s3) {
s3 = s = s4
for ( ; s != next; s = s.ts_next) {
x = s.x
if (!x)
continue
if (x + s.wr >= xmax)
break
if (s3 && x >= xmid) {
if (xmid - s3.x > x - xmid)
s3 = s
break
}
s3 = s
}
}
s = s3
while (s.ts_next) {
s = s.ts_next
if (s.seqst)
break
}
if (s.nl) { /* already set here - advance */
error(0, s,
"Line split problem - adjust maxshrink and/or breaklimit");
nlines = 2
for (s = s.ts_next; s != next; s = s.ts_next) {
if (!s.x)
continue
if (--nlines <= 0)
break
}
}
s = set_nl(s)
if (!s
|| (next && s.time >= next.time))
break
wwidth -= s.x - first.x;
indent = 0
}
return s
}
/* -- cut the tune into music lines -- */
function cut_tune(lwidth, lsh) {
var s2, i, mc,
pg_sav = { // save the page parameters
leftmargin: cfmt.leftmargin,
rightmargin: cfmt.rightmargin,
pagewidth: cfmt.pagewidth,
scale: cfmt.scale
},
indent = lsh[0] - lsh[1], // extra width of the first line
ckw = get_ck_width(), // width of the starting symbols
s = tsfirst
lwidth -= lsh[1] // width of the lines
if (cfmt.indent && cfmt.indent > lsh[0])
indent += cfmt.indent
// adjust the line width according to the starting symbols
lwidth -= ckw[0]
indent += ckw[1]
if (cfmt.custos && voice_tb.length == 1)
lwidth -= 12
/* if asked, count the measures and set the EOLNs */
i = s.fmt.barsperstaff
if (i) {
for (s2 = s; s2; s2 = s2.ts_next) {
if (s2.type != C.BAR
|| !s2.bar_num
|| --i > 0)
continue
while (s2.ts_next && s2.ts_next.type == C.BAR)
s2 = s2.ts_next
if (s2.ts_next)
s2.ts_next.soln = true
i = s.fmt.barsperstaff
}
}
/* cut at explicit end of line, checking the line width */
s2 = s
for ( ; s; s = s.ts_next) {
if (s.type == C.BLOCK) {
switch (s.subtype) {
case "leftmargin":
case "rightmargin":
case "pagescale":
case "pagewidth":
case "scale":
case "staffwidth":
if (!s.soln)
self.set_format(s.subtype, s.param)
break
case "mc_start":
mc = {
lm: cfmt.leftmargin,
rm: cfmt.rightmargin
}
break
case "mc_new":
case "mc_end":
if (!mc)
break
cfmt.leftmargin = mc.lm
cfmt.rightmargin = mc.rm
img.chg = 1 //true
break
}
}
if (!s.ts_next) {
s = null
} else if (!s.soln) {
continue
} else {
s.soln = false
//fixme what if new line wanted?
if (s.time == s2.time)
continue // empty music line!
while (!s.seqst)
s = s.ts_prev
}
set_page()
lwidth = get_lwidth() - lsh[1] - ckw[0]
s2 = set_lines(s2, s, lwidth, indent)
if (!s2)
break
s = s2.type == C.BLOCK
? s2.ts_prev // don't miss a parameter
: s
indent = 0
}
// restore the page parameters at start of line
cfmt.leftmargin = pg_sav.leftmargin
cfmt.rightmargin = pg_sav.rightmargin
cfmt.pagewidth = pg_sav.pagewidth
cfmt.scale = pg_sav.scale
img.chg = 1
set_page()
}
/* -- set the y values of some symbols -- */
function set_yval(s) {
//fixme: staff_tb is not yet defined
// var top = staff_tb[s.st].topbar
// var bot = staff_tb[s.st].botbar
switch (s.type) {
case C.CLEF:
if (s.second
|| s.invis) {
// s.ymx = s.ymn = (top + bot) / 2
s.ymx = s.ymn = 12
break
}
s.y = (s.clef_line - 1) * 6
switch (s.clef_type) {
default: /* treble / perc */
s.ymx = s.y + 28
s.ymn = s.y - 14
break
case "c":
s.ymx = s.y + 13
s.ymn = s.y - 11
break
case "b":
s.ymx = s.y + 7
s.ymn = s.y - 12
break
}
if (s.clef_small) {
s.ymx -= 2;
s.ymn += 2
}
if (s.ymx < 26)
s.ymx = 26
if (s.ymn > -1)
s.ymn = -1
// s.y += s.clef_line * 6
// if (s.y > 0)
// s.ymx += s.y
// else if (s.y < 0)
// s.ymn += s.y
if (s.clef_octave) {
if (s.clef_octave > 0)
s.ymx += 12
else
s.ymn -= 12
}
break
case C.KEY:
if (s.k_sf > 2)
s.ymx = 24 + 10
else if (s.k_sf > 0)
s.ymx = 24 + 6
else
s.ymx = 24 + 2;
s.ymn = -2
break
default:
// s.ymx = top;
s.ymx = 24;
s.ymn = 0
break
}
}
// set the pitch of the notes under an ottava sequence
function set_ottava() {
var s, s1, st, o, d,
m = nstaff + 1,
staff_d = new Int8Array(m)
// update the pitches of a symbol
function sym_ott(s, d) {
var g, m, note
switch (s.type) {
case C.REST:
if (voice_tb.length == 1)
break
case C.NOTE:
if (!s.p_v.ckey.k_drum) {
for (m = s.nhd; m >= 0; m--) {
note = s.notes[m];
if (!note.opit)
note.opit = note.pit;
note.pit += d
}
}
break
case C.GRACE:
for (g = s.extra; g; g = g.next) {
if (!s.p_v.ckey.k_drum) {
for (m = 0; m <= g.nhd; m++) {
note = g.notes[m]
if (!note.opit)
note.opit = note.pit
note.pit += d
}
}
}
break
}
} // sym_ott()
// remove the ottava decorations of a symbol
function deco_rm(s) {
for (var i = s.a_dd.length; --i >= 0;) {
if (s.a_dd[i].name.match(/1?[85][vm][ab]/))
s.a_dd.splice(i, 1)
}
} // deco_rm()
for (s = tsfirst; s; s = s.ts_next) {
st = s.st
o = s.ottava
if (o) { // some ottava start or stop
if (o[0]) {
if (staff_d[st] && !o[1]) {
sym_ott(s, staff_d[st])
deco_rm(s)
continue // same ottava
}
} else if (!staff_d[st]) {
deco_rm(s)
continue // already no ottava
}
s1 = s
while (s1 && !s1.seqst)
s1 = s1.ts_prev
if (s1) { // update the previous symbols
while (s1 != s) {
if (s1.st == st) {
if (o[1])
sym_ott(s1, -staff_d[st])
if (o[0])
sym_ott(s1, -o[0] * 7)
}
s1 = s1.ts_next
}
}
if (o[0]) { // ottava start
staff_d[st] = -o[0] * 7
} else {
staff_d[st] = 0
}
}
if (staff_d[st])
sym_ott(s, staff_d[st])
}
}
// expand the multi-rests as needed
function mrest_expand() {
var s, s2
// expand a multi-rest into a set of rest + bar
function mexp(s) {
var bar, s3, s4, tim, nbar,
nb = s.nmes,
dur = s.dur / nb,
s2 = s.next
// get the bar (there may be some other symbols before the bar)
while (!s2.bar_type)
s2 = s2.next
bar = s2
while (!s2.bar_num) // get the bar number
s2 = s2.ts_prev
nbar = s2.bar_num - s.nmes
// change the multi-rest into a single rest
s.type = C.REST
s.notes[0].dur = s.dur = s.dur_orig = dur
s.nflags = -2
s.head = C.FULL
s.fmr = 1 // full measure rest
/* add the bar(s) and rest(s) */
tim = s.time + dur
s3 = s
while (--nb > 0) {
// add the bar
s2 = clone(bar)
delete s2.soln
delete s2.a_gch
delete s2.a_dd
delete s2.text
delete s2.rbstart
delete s2.rbstop
lkvsym(s2, s.next) // before symbol at end of rests
s2.time = tim
while (s3.time < tim)
s3 = s3.ts_next // bar at end of measure
while (s3 && s3.v < s.v && s3.type == C.BAR)
s3 = s3.ts_next // keep in order
if (s3) {
if (s3.bar_type)
s3.seqst = 0 //false
lktsym(s2, s3)
if (s3.type == C.BAR)
delete s3.bar_num
} else {
s3 = s
while (s3.ts_next)
s3 = s3.ts_next
s3.ts_next = s2
s2.ts_prev = s3
s2.ts_next = null
}
nbar++
if (s2.seqst) {
s2.bar_num = nbar
s4 = s2.ts_next
} else {
delete s2.bar_num
s4 = s2.ts_prev
}
s2.bar_type = s4.bar_type || "|"
if (s4.bar_num && !s4.seqst)
delete s4.bar_num
// add the rest
s4 = clone(s)
delete s4.a_dd
delete s4.soln
delete s4.a_gch
delete s4.part
if (s2.next) {
s4.next = s2.next
s4.next.prev = s4
} else {
s4.next = null
}
s2.next = s4
s4.prev = s2
s4.time = tim
while (s3 && !s3.dur && s3.time == tim)
s3 = s3.ts_next
while (s3 && s3.v < s.v) {
s3 = s3.ts_next // keep in order
if (s3 && s3.seqst)
break
}
if (s3) {
if (s3.dur)
s3.seqst = 0 //false
lktsym(s4, s3)
} else {
s3 = s
while (s3.ts_next)
s3 = s3.ts_next
s3.ts_next = s4
s4.ts_prev = s3
s4.ts_next = null
}
tim += dur
s = s3 = s4
}
} // mexp()
for (s = tsfirst; s; s = s.ts_next) {
if (s.type != C.MREST)
continue
if (!s.seqst && w_tb[s.ts_prev.type]) {
s2 = s
} else {
s2 = s.ts_next
while (!s2.seqst) {
if (s2.type != C.MREST
|| s2.nmes != s.nmes)
break
s2 = s2.ts_next
}
}
if (!s2.seqst) {
while (s.type == C.MREST) {
mexp(s)
s = s.ts_next
}
} else {
s = s2.ts_prev
}
}
} // mrest_expand()
// set the clefs (treble or bass) in a 'auto clef' sequence
// return the starting clef type
function set_auto_clef(st, s_start, clef_type_start) {
var s, time, s2, s3,
max = 12, /* "F," */
min = 20 /* "G" */
/* get the max and min pitches in the sequence */
for (s = s_start; s; s = s.ts_next) {
if (s.type == C.STAVES && s != s_start)
break
if (s.st != st)
continue
if (s.type != C.NOTE) {
if (s.type == C.CLEF) {
if (s.clef_type != 'a')
break
unlksym(s)
}
continue
}
if (s.notes[0].pit < min)
min = s.notes[0].pit
if (s.notes[s.nhd].pit > max)
max = s.notes[s.nhd].pit
}
if (min >= 19 /* upper than 'F' */
|| (min >= 13 && clef_type_start != 'b')) /* or 'G,' */
return 't'
if (max <= 13 /* lower than 'G,' */
|| (max <= 19 && clef_type_start != 't')) /* or 'F' */
return 'b'
/* set clef changes */
if (clef_type_start == 'a') {
if ((max + min) / 2 >= 16)
clef_type_start = 't'
else
clef_type_start = 'b'
}
var clef_type = clef_type_start,
s_last = s,
s_last_chg = null
for (s = s_start; s != s_last; s = s.ts_next) {
if (s.type == C.STAVES && s != s_start)
break
if (s.st != st || s.type != C.NOTE)
continue
/* check if a clef change may occur */
time = s.time
if (clef_type == 't') {
if (s.notes[0].pit > 12 /* F, */
|| s.notes[s.nhd].pit > 20) { /* G */
if (s.notes[0].pit > 20)
s_last_chg = s
continue
}
s2 = s.ts_prev
if (s2
&& s2.time == time
&& s2.st == st
&& s2.type == C.NOTE
&& s2.notes[0].pit >= 19) /* F */
continue
s2 = s.ts_next
if (s2
&& s2.st == st
&& s2.time == time
&& s2.type == C.NOTE
&& s2.notes[0].pit >= 19) /* F */
continue
} else {
if (s.notes[0].pit <= 12 /* F, */
|| s.notes[s.nhd].pit < 20) { /* G */
if (s.notes[s.nhd].pit <= 12)
s_last_chg = s
continue
}
s2 = s.ts_prev
if (s2
&& s2.time == time
&& s2.st == st
&& s2.type == C.NOTE
&& s2.notes[0].pit <= 13) /* G, */
continue
s2 = s.ts_next
if (s2
&& s2.st == st
&& s2.time == time
&& s2.type == C.NOTE
&& s2.notes[0].pit <= 13) /* G, */
continue
}
/* if first change, change the starting clef */
if (!s_last_chg) {
clef_type = clef_type_start =
clef_type == 't' ? 'b' : 't';
s_last_chg = s
continue
}
/* go backwards and search where to insert a clef change */
s3 = s
for (s2 = s.ts_prev; s2 != s_last_chg; s2 = s2.ts_prev) {
if (s2.st != st)
continue
if (s2.type == C.BAR) {
s3 = s2.bar_type[0] != ':' ? s2 : s2.next
break
}
if (s2.type != C.NOTE)
continue
/* have a 2nd choice on beam start */
if (s2.beam_st
&& !s2.p_v.second)
s3 = s2
}
/* no change possible if no insert point */
if (s3.time == s_last_chg.time) {
s_last_chg = s
continue
}
s_last_chg = s;
/* insert a clef change */
clef_type = clef_type == 't' ? 'b' : 't';
s2 = insert_clef(s3, clef_type, clef_type == "t" ? 2 : 4);
s2.clef_auto = true
// s3.prev.st = st
}
return clef_type_start
}
/* set the clefs */
/* this function is called once at start of tune generation */
/*
* global variables:
* - staff_tb[st].clef = clefs at start of line (here, start of tune)
* (created here, updated on clef draw)
* - voice_tb[v].clef = clefs at end of generation
* (created on voice creation, updated here)
*/
function set_clefs() {
var s, s2, st, v, p_voice, g, new_type, new_line, p_staff, pit,
staff_clef = new Array(nstaff + 1), // st -> { clef, autoclef }
sy = cur_sy,
mid = []
// create the staff table
staff_tb = new Array(nstaff + 1)
for (st = 0; st <= nstaff; st++) {
staff_clef[st] = {
autoclef: true
}
staff_tb[st] = {
output: "",
sc_out: ""
}
}
for (st = 0; st <= sy.nstaff; st++)
mid[st] = (sy.staves[st].stafflines.length - 1) * 3
for (s = tsfirst; s; s = s.ts_next) {
if (s.repeat_n)
set_repeat(s)
switch (s.type) {
case C.STAVES:
sy = s.sy // new system
for (st = 0; st <= nstaff; st++)
staff_clef[st].autoclef = true
for (v = 0; v < voice_tb.length; v++) {
if (!sy.voices[v])
continue
p_voice = voice_tb[v];
st = sy.voices[v].st
if (!sy.voices[v].second) {
sy.staves[st].staffnonote = p_voice.staffnonote
if (p_voice.staffscale)
sy.staves[st].staffscale = p_voice.staffscale
if (sy.voices[v].sep)
sy.staves[st].sep = sy.voices[v].sep
if (sy.voices[v].maxsep)
sy.staves[st].maxsep = sy.voices[v].maxsep
}
s2 = p_voice.clef
if (!s2.clef_auto)
staff_clef[st].autoclef = false
}
for (st = 0; st <= sy.nstaff; st++)
mid[st] = (sy.staves[st].stafflines.length - 1) * 3
for (v = 0; v < voice_tb.length; v++) {
if (!sy.voices[v]
|| sy.voices[v].second) // main voices
continue
p_voice = voice_tb[v];
st = sy.voices[v].st;
s2 = p_voice.clef
if (s2.clef_auto) {
//fixme: the staff may have other voices with explicit clefs...
// if (!staff_clef[st].autoclef)
// ???
new_type = set_auto_clef(st, s,
staff_clef[st].clef ?
staff_clef[st].clef.clef_type :
'a');
new_line = new_type == 't' ? 2 : 4
} else {
new_type = s2.clef_type;
new_line = s2.clef_line
}
if (!staff_clef[st].clef) { // new staff
if (s2.clef_auto) {
if (s2.clef_type != 'a')
p_voice.clef =
clone(p_voice.clef);
p_voice.clef.clef_type = new_type;
p_voice.clef.clef_line = new_line
}
staff_tb[st].clef =
staff_clef[st].clef = p_voice.clef
continue
}
// old staff
if (new_type == staff_clef[st].clef.clef_type
&& new_line == staff_clef[st].clef.clef_line)
continue
g = s.ts_prev
while (g
&& g.time == s.time
&& (g.v != v || g.st != st))
g = g.ts_prev
if (!g || g.time != s.time) {
g = s.ts_next
while (g && (g.v != v || g.st != st))
g = g.ts_next
if (!g || g.time != s.time)
g = s
}
if (g.type != C.CLEF) {
g = insert_clef(g, new_type, new_line)
if (s2.clef_auto)
g.clef_auto = true
}
staff_clef[st].clef = p_voice.clef = g
}
continue
default:
s.mid = mid[s.st]
continue
case C.CLEF:
break
}
if (s.clef_type == 'a') {
s.clef_type = set_auto_clef(s.st,
s.ts_next,
staff_clef[s.st].clef.clef_type);
s.clef_line = s.clef_type == 't' ? 2 : 4
}
p_voice = s.p_v;
p_voice.clef = s
if (s.second) {
/*fixme:%%staves:can this happen?*/
// if (!s.prev)
// break
unlksym(s)
continue
}
st = s.st
// may have been inserted on %%staves
// if (s.clef_auto) {
// unlksym(s)
// continue
// }
if (staff_clef[st].clef) {
if (s.clef_type == staff_clef[st].clef.clef_type
&& s.clef_line == staff_clef[st].clef.clef_line) {
// unlksym(s)
continue
}
} else {
// the voice moved to a new staff with a forced clef
staff_tb[st].clef = s
}
staff_clef[st].clef = s
}
/* set a pitch to the symbols of voices with no note */
sy = cur_sy
for (v = 0; v < voice_tb.length; v++) {
if (!sy.voices[v])
continue
s2 = voice_tb[v].sym
if (!s2 || s2.notes[0].pit != 127)
continue
st = sy.voices[v].st
switch (staff_tb[st].clef.clef_type) {
default:
pit = 22 /* 'B' */
break
case "c":
pit = 16 /* 'C' */
break
case "b":
pit = 10 /* 'D,' */
break
}
for (s = s2; s; s = s.next)
s.notes[0].pit = pit
}
}
/* set the pitch of the notes according to the clefs
* and set the vertical offset of the symbols */
/* this function is called at start of tune generation and
* then, once per music line up to the old sequence */
var delta_tb = {
t: 0 - 2 * 2,
c: 6 - 3 * 2,
b: 12 - 4 * 2,
p: 0 - 3 * 2
}
/* upper and lower space needed by rests */
var rest_sp = [
[18, 18],
[12, 18],
[12, 12],
[10, 12],
[10, 10],
[10, 10], /* crotchet */
[8, 4],
[9, 0],
[9, 4],
[6, 8]
]
// set the offsets of a rest
function roffs(s) {
s.ymx = s.y + rest_sp[5 - s.nflags][0]
s.ymn = s.y - rest_sp[5 - s.nflags][1]
} // roffs()
// (possible hook)
Abc.prototype.set_pitch = function(last_s) {
var s, s2, g, st, delta, pitch, note,
dur = C.BLEN,
m = nstaff + 1,
staff_delta = new Int16Array(m * 2), // delta clef
sy = cur_sy
// set the starting clefs of the staves
for (st = 0; st <= nstaff; st++) {
s = staff_tb[st].clef;
staff_delta[st] = delta_tb[s.clef_type] + s.clef_line * 2
if (s.clefpit)
staff_delta[st] += s.clefpit
if (cfmt.sound) {
if (s.clef_octave && !s.clef_oct_transp)
staff_delta[st] += s.clef_octave
} else {
if (s.clef_oct_transp)
staff_delta[st] -= s.clef_octave
}
}
for (s = tsfirst; s != last_s; s = s.ts_next) {
st = s.st
switch (s.type) {
case C.CLEF:
staff_delta[st] = delta_tb[s.clef_type] +
s.clef_line * 2
if (s.clefpit)
staff_delta[st] += s.clefpit
if (cfmt.sound) {
if (s.clef_octave && !s.clef_oct_transp)
staff_delta[st] += s.clef_octave
} else {
if (s.clef_oct_transp)
staff_delta[st] -= s.clef_octave
}
set_yval(s)
break
case C.GRACE:
for (g = s.extra; g; g = g.next) {
delta = staff_delta[g.st]
if (delta
&& !s.p_v.ckey.k_drum) {
for (m = 0; m <= g.nhd; m++) {
note = g.notes[m];
note.opit = note.pit
note.pit += delta
}
}
g.ymn = 3 * (g.notes[0].pit - 18) - 2;
g.ymx = 3 * (g.notes[g.nhd].pit - 18) + 2
}
set_yval(s)
break
case C.KEY:
s.k_y_clef = staff_delta[st] /* keep the y delta */
/* fall thru */
default:
set_yval(s)
break
case C.MREST:
if (s.invis)
break
s.y = 12;
s.ymx = 24 + 15;
s.ymn = -2
break
case C.REST:
s.y = 12
if (s.rep_nb > 1 // if measure repeat
|| s.bar_mrep) {
s.ymx = 38 // (24 + 14)
s.ymn = 0
break
}
roffs(s)
// fall thru
case C.NOTE:
delta = staff_delta[st]
if (delta
&& !s.p_v.ckey.k_drum) {
for (m = s.nhd; m >= 0; m--) {
note = s.notes[m]
note.opit = note.pit
note.pit += delta
}
}
if (s.dur < dur)
dur = s.dur
break
}
}
if (!last_s)
smallest_duration = dur
}
/* -- set the stem direction when multi-voices -- */
/* this function is called only once per tune */
// (possible hook)
Abc.prototype.set_stem_dir = function() {
var t, u, i, st, rvoice, v,
v_st, // voice -> staff 1 & 2
st_v, vobj, // staff -> (v, ymx, ymn)*
v_st_tb, // array of v_st
st_v_tb = [], // array of st_v
s = tsfirst,
sy = cur_sy,
nst = sy.nstaff
while (s) {
for (st = 0; st <= nst; st++)
st_v_tb[st] = []
v_st_tb = []
/* get the max/min offsets in the delta time */
/*fixme: the stem height is not calculated yet*/
for (u = s; u; u = u.ts_next) {
if (u.type == C.BAR)
break;
if (u.type == C.STAVES) {
if (u != s)
break
sy = s.sy
for (st = nst; st <= sy.nstaff; st++)
st_v_tb[st] = []
nst = sy.nstaff
continue
}
if ((u.type != C.NOTE && u.type != C.REST)
|| u.invis)
continue
st = u.st;
/*fixme:test*/
if (st > nst) {
var msg = "*** fatal set_stem_dir(): bad staff number " + st +
" max " + nst;
error(2, null, msg);
throw new Error(msg)
}
v = u.v;
v_st = v_st_tb[v]
if (!v_st) {
v_st = {
st1: -1,
st2: -1
}
v_st_tb[v] = v_st
}
if (v_st.st1 < 0) {
v_st.st1 = st
} else if (v_st.st1 != st) {
if (st > v_st.st1) {
if (st > v_st.st2)
v_st.st2 = st
} else {
if (v_st.st1 > v_st.st2)
v_st.st2 = v_st.st1;
v_st.st1 = st
}
}
st_v = st_v_tb[st];
rvoice = sy.voices[v].range;
for (i = st_v.length; --i >= 0; ) {
vobj = st_v[i]
if (vobj.v == rvoice)
break
}
if (i < 0) {
vobj = {
v: rvoice,
ymx: 0,
ymn: 24
}
for (i = 0; i < st_v.length; i++) {
if (rvoice < st_v[i].v) {
st_v.splice(i, 0, vobj)
break
}
}
if (i == st_v.length)
st_v.push(vobj)
}
if (u.type != C.NOTE)
continue
if (u.ymx > vobj.ymx)
vobj.ymx = u.ymx
if (u.ymn < vobj.ymn)
vobj.ymn = u.ymn
if (u.xstem) {
if (u.ts_prev.st != st - 1
|| u.ts_prev.type != C.NOTE) {
error(1, s, "Bad !xstem!");
u.xstem = false
/*fixme:nflags KO*/
} else {
u.ts_prev.multi = 1;
u.multi = 1;
u.stemless = true
}
}
}
for ( ; s != u; s = s.ts_next) {
if (s.multi)
continue
switch (s.type) {
default:
continue
case C.REST:
// handle %%voicecombine 0
if ((s.combine != undefined && s.combine < 0)
|| !s.ts_next || s.ts_next.type != C.REST
|| s.ts_next.st != s.st
|| s.time != s.ts_next.time
|| s.dur != s.ts_next.dur
|| (s.a_dd && s.ts_next.a_dd)
|| (s.a_gch && s.ts_next.a_gch)
|| s.invis)
break
if (s.ts_next.a_dd)
s.a_dd = s.ts_next.a_dd
if (s.ts_next.a_gch)
s.a_gch = s.ts_next.a_gch
unlksym(s.ts_next)
// fall thru
case C.NOTE:
case C.GRACE:
break
}
st = s.st;
v = s.v;
v_st = v_st_tb[v];
st_v = st_v_tb[st]
if (v_st && v_st.st2 >= 0) {
if (st == v_st.st1)
s.multi = -1
else if (st == v_st.st2)
s.multi = 1
continue
}
if (st_v.length <= 1) { /* voice alone on the staff */
// if (s.multi)
// continue
/*fixme:could be done in set_var()*/
if (s.floating)
s.multi = st == voice_tb[v].st ? -1 : 1
continue
}
rvoice = sy.voices[v].range
for (i = st_v.length; --i >= 0; ) {
if (st_v[i].v == rvoice)
break
}
if (i < 0)
continue /* voice ignored */
if (i == st_v.length - 1) {
s.multi = -1 /* last voice */
} else {
s.multi = 1 /* first voice(s) */
/* if 3 voices, and vertical space enough,
* have stems down for the middle voice */
if (i && i + 2 == st_v.length) {
if (st_v[i].ymn - s.fmt.stemheight
>= st_v[i + 1].ymx)
s.multi = -1;
/* special case for unison */
t = s.ts_next
//fixme: pb with ../lacerda/evol-7.5.5.abc
if (s.ts_prev
&& s.ts_prev.time == s.time
&& s.ts_prev.st == s.st
&& s.notes[s.nhd].pit == s.ts_prev.notes[0].pit
&& s.beam_st
&& s.beam_end
&& (!t
|| t.st != s.st
|| t.time != s.time))
s.multi = -1
}
}
}
while (s && s.type == C.BAR)
s = s.ts_next
}
}
/* -- adjust the offset of the rests when many voices -- */
/* this function is called only once per tune */
function set_rest_offset() {
var s, s2, v, v_s, ymax, ymin, d,
v_s_tb = [],
sy = cur_sy
// set a vertical offset on a line
function loffs(d) {
return d > 0
? Math.ceil(d / 6) * 6
: -Math.ceil(-d / 6) * 6
} // loffs()
// shift a rest to the right
function rshift() {
var dx = s2.dots ? 15 : 10
s2.notes[0].shhd = dx
s2.xmx = dx
d = (d + v_s.d) / 2
d = loffs(d)
s2.y += d
s2.ymx += d
s2.ymn += d
v_s.d = 0
} // rshift()
// -- set_rest_off --
for (s = tsfirst; s; s = s.ts_next) {
if (s.invis)
continue
switch (s.type) {
case C.STAVES:
sy = s.sy
// fall thru
default:
continue
case C.REST:
if (s.invis || !s.multi)
continue
v_s = v_s_tb[s.v]
if (!v_s) {
v_s_tb[s.v] = v_s = { d: 0}
} else if (v_s.d) {
s2 = v_s.s // set the offsets of the previous rest
d = loffs(v_s.d)
s2.y += d
s2.ymx += d
s2.ymn += d
v_s.d = 0
}
d = s.multi > 0 ? 0 : 24
if (s.prev && s.prev.type == C.NOTE)
d = (s.next && s.next.type == C.NOTE)
? (s.prev.y + s.next.y) / 2
: s.prev.y
else if (s.next && s.next.type == C.NOTE)
d = s.next.y
else if (s.prev && s.prev.type == C.REST)
d = s.prev.y
if (s.multi > 0) {
if (d >= 12)
v_s.d = d - s.y
} else {
if (d <= 12)
v_s.d = d - s.y
}
v_s.s = s
v_s.st = s.st
v_s.end_time = s.time + s.dur
if (s.fmr) // if full meeasure rest
v_s.end_time -= s.p_v.wmeasure * .3
if (!s.seqst) {
s2 = s.ts_prev
if (s2.st == s.st
&& s.ymx > s2.ymn
&& !s2.invis) {
if (s2.type == C.NOTE) {
v_s.d = s2.ymn - s.ymx
break
}
if (s2.type == C.REST
&& s2.y < 18
&& s.y >= 6)
v_s.d = -6
}
}
continue
case C.NOTE:
if (s.invis || !s.multi)
continue
break
}
// check if any clash with a rest
for (v = 0; v < v_s_tb.length; v++) {
v_s = v_s_tb[v]
if (!v_s
|| v_s.st != s.st
|| v == s.v
|| v_s.end_time <= s.time)
continue
s2 = v_s.s // rest
if (sy.voices[v].range > sy.voices[s.v].range) {
if (s2.ymx + v_s.d <= s.ymn)
continue
d = s.ymn - s2.ymx // rest must go down
// if (s2.time < s.time) {
if (s.type == C.REST) {
if (!v_s_tb[s.v])
v_s_tb[s.v] = {d: 0}
if (v_s_tb[s.v].d < 6)
v_s_tb[s.v].d = 6
d = -6
} else {
d /= 2
if (s2.fmr)
d -= 6
}
// }
if (v_s.d) {
if (v_s.d > 0) { // if it was go up
rshift() // shift the rest
continue
}
if (d >= v_s.d)
continue
}
} else {
if (s2.ymn + v_s.d >= s.ymx)
continue
d = s.ymx - s2.ymn // rest must go up
if (s.type == C.REST // if rest
&& s2 == s.ts_prev // just under a rest
&& s.y == s2.y) { // at a same offset
if (!v_s_tb[s.v])
v_s_tb[s.v] = {d: 0}
if (v_s_tb[s.v].d > -6)
v_s_tb[s.v].d = -6
d = 6
} else if (s2.time < s.time) {
d = s.ymx - s2.y
}
if (v_s.d) {
if (v_s.d < 0) { // if it was go down
rshift() // shift the rest
continue
}
if (d <= v_s.d)
continue
}
}
v_s.d = d
}
}
// update the offsets of the last rests
for (v = 0; v < v_s_tb.length; v++) {
v_s = v_s_tb[v]
if (v_s && v_s.d) {
s2 = v_s.s
d = loffs(v_s.d)
s2.y += d
s2.ymx += d
s2.ymn += d
}
}
}
/* -- create a starting symbol -- */
// last_s = symbol at same time
function new_sym(s, p_v, last_s) {
s.p_v = p_v
s.v = p_v.v
s.st = p_v.st
s.time = last_s.time
if (p_v.last_sym) {
s.next = p_v.last_sym.next
if (s.next)
s.next.prev = s;
p_v.last_sym.next = s;
s.prev = p_v.last_sym
}
p_v.last_sym = s;
lktsym(s, last_s)
}
/* -- init the symbols at start of a music line -- */
function init_music_line() {
var p_voice, s, s1, s2, s3, last_s, v, st, shr, shrmx, shl,
shlp, p_st, top,
nv = voice_tb.length,
fmt = tsfirst.fmt
/* initialize the voices */
for (v = 0; v < nv; v++) {
if (!cur_sy.voices[v])
continue
p_voice = voice_tb[v];
p_voice.st = cur_sy.voices[v].st
p_voice.second = cur_sy.voices[v].second;
p_voice.last_sym = p_voice.sym;
// move the first clefs, key signatures and time signatures
// to the staves
for (s = p_voice.sym; s && s.time == tsfirst.time; s = s.next) {
switch (s.type) {
case C.CLEF:
case C.KEY:
case C.METER:
switch (s.type) {
case C.CLEF:
staff_tb[s.st].clef = s
break
case C.KEY:
s.p_v.ckey = s
break
case C.METER:
s.p_v.meter = s
insert_meter = cfmt.writefields.indexOf('M') >= 0
&& s.a_meter.length
break
}
if (s.part)
s.next.part = s.part
unlksym(s)
// fall thru
case C.TEMPO:
case C.BLOCK:
case C.REMARK:
continue
}
break
}
}
// generate the starting clefs, key signatures and time signatures
// add a clef at start of the main voices
last_s = tsfirst
for (v = 0; v < nv; v++) {
p_voice = voice_tb[v]
if (!cur_sy.voices[v]
|| (cur_sy.voices[v].second
&& !p_voice.bar_start)) // needed for correct linkage
continue
st = cur_sy.voices[v].st
if (!staff_tb[st]
|| !staff_tb[st].clef)
continue
s = clone(staff_tb[st].clef);
s.v = v;
s.p_v = p_voice;
s.st = st;
s.time = tsfirst.time;
s.prev = null;
s.next = p_voice.sym
if (s.next)
s.next.prev = s;
p_voice.sym = p_voice.last_sym = s
s.ts_next = last_s;
if (last_s)
s.ts_prev = last_s.ts_prev
else
s.ts_prev = null
if (!s.ts_prev) {
tsfirst = s;
} else {
s.ts_prev.ts_next = s
delete s.seqst
}
if (last_s)
last_s.ts_prev = s
delete s.clef_small;
delete s.part
s.second = cur_sy.voices[v].second
// (fixme: needed for sample5 X:3 Fugue & staffnonote.html)
if (!cur_sy.st_print[st])
s.invis = true
else if (!s.clef_none)
delete s.invis
s.fmt = fmt
}
/* add keysig */
for (v = 0; v < nv; v++) {
if (!cur_sy.voices[v]
|| cur_sy.voices[v].second
|| !cur_sy.st_print[cur_sy.voices[v].st])
continue
p_voice = voice_tb[v]
s2 = p_voice.ckey
if (s2.k_sf || s2.k_a_acc) {
s = clone(s2)
new_sym(s, p_voice, last_s)
delete s.invis
delete s.part
s.k_old_sf = s2.k_sf // no key cancel
s.fmt = fmt
}
}
/* add time signature (meter) if needed */
if (insert_meter) {
for (v = 0; v < nv; v++) {
p_voice = voice_tb[v];
s2 = p_voice.meter
if (!cur_sy.voices[v]
|| cur_sy.voices[v].second
|| !cur_sy.st_print[cur_sy.voices[v].st])
// || !s2.a_meter.length)
continue
s = clone(s2)
new_sym(s, p_voice, last_s)
delete s.part
s.fmt = fmt
}
insert_meter = false // no meter any more
}
// add an invisible bar for the various continued elements
for (v = 0; v < nv; v++) {
p_voice = voice_tb[v]
if (p_voice.sls.length) {
s = {
type: C.BAR,
fname: last_s.fname,
bar_type: "|",
dur: 0,
multi: 0,
invis: true,
sls: p_voice.sls,
fmt: fmt
}
new_sym(s, p_voice, last_s)
p_voice.sls = []
}
}
// add a bar for the continuation of repeat brackets
for (v = 0; v < nv; v++) {
p_voice = voice_tb[v];
s2 = p_voice.bar_start;
p_voice.bar_start = null
// check if bracket stop at this time
for (s = last_s; s && s.time == last_s.time; s = s.ts_next) {
if (s.rbstop) {
s2 = null
break
}
}
if (!s2)
continue
if (!cur_sy.voices[v]
|| !cur_sy.st_print[cur_sy.voices[v].st])
continue
if (p_voice.last_sym.type == C.BAR) {
if (!p_voice.last_sym.rbstop)
p_voice.last_sym.rbstart = 1
} else {
new_sym(s2, p_voice, last_s)
s2.fmt = fmt
}
}
// compute the spacing of the added symbols
self.set_pitch(last_s);
s = tsfirst
s.seqst = true
for (s = last_s; s.ts_next && !s.ts_next.seqst; s = s.ts_next)
;
if (s.ts_next // a bit further in case different keys per voice
&& s.ts_next.type != C.CLEF // (the clef may move in allsymwidth)
&& !s.tp // (start of a tuplet)
&& !s.ts_next.a_ly) // (don't update next .shrink)
for (s = s.ts_next; s.ts_next && !s.ts_next.seqst; s = s.ts_next)
;
s2 = s.ts_next
s.ts_next = null
set_allsymwidth()
s.ts_next = s2
} // init_music_line()
// check if the tune ends on a measure bar
function check_end_bar() {
var s2,
s = tsfirst
while (s.ts_next)
s = s.ts_next
if (s.type != C.BAR) {
s2 = _bar(s)
s2.ts_prev = s
s.next = s.ts_next = s2
}
} // check_end_bar()
/* -- set a pitch in all symbols and the start/stop of the beams -- */
// and sort the pitches in the chords
// and build the chord symbols / annotations
// this function is called only once per tune
function set_words(p_voice) {
var s, s2, nflags, lastnote, res,
start_flag = true,
pitch = 127 /* no note */
// adjust the duration of the notes in a decoration !trem1..4!
function trem_adj(s) {
s.prev.trem2 = true
s.prev.head = ++s.head
if (--s.nflags > 0) {
s.nflags += s.ntrem
} else {
if (s.nflags <= -2) {
s.stemless = true
s.prev.stemless = true
}
s.nflags = s.ntrem
}
s.prev.nflags = s.nflags
} // trem_adj()
for (s = p_voice.sym; s; s = s.next) {
if (s.type == C.NOTE) {
pitch = s.notes[0].pit
break
}
}
for (s = p_voice.sym; s; s = s.next) {
if (s.a_gch)
self.gch_build(s)
switch (s.type) {
case C.MREST:
start_flag = true
break
case C.BAR:
res = s.fmt.bardef[s.bar_type]
if (res)
s.bar_type = res
if (!s.beam_on)
start_flag = true
if (!s.next && s.prev
&& !s.invis
&& s.prev.head == C.OVALBARS)
s.prev.head = C.SQUARE
break
case C.GRACE:
for (s2 = s.extra; s2; s2 = s2.next) {
s2.notes.sort(abc2svg.pitcmp)
res = identify_note(s2, s2.dur_orig)
s2.head = res[0]
s2.dots = res[1]
s2.nflags = res[2]
if (s2.trem2
&& (!s2.next || s2.next.trem2))
trem_adj(s2)
}
break
case C.NOTE:
case C.REST:
res = identify_note(s, s.dur_orig);
s.head = res[0];
s.dots = res[1];
s.nflags = res[2]
if (s.nflags <= -2)
s.stemless = true
if (s.xstem)
s.nflags = 0 // beam break
if (s.trem1) {
if (s.nflags > 0)
s.nflags += s.ntrem
else
s.nflags = s.ntrem
}
if (s.next && s.next.trem2)
break
if (s.trem2) {
trem_adj(s)
break
}
nflags = s.nflags
if (s.ntrem)
nflags -= s.ntrem
if (s.type == C.REST && s.beam_end
&& !s.beam_on) {
// s.beam_end = false;
start_flag = true
}
if (start_flag
|| nflags <= 0) {
if (lastnote) {
lastnote.beam_end = true;
lastnote = null
}
if (nflags <= 0) {
s.beam_st = s.beam_end = true
} else if (s.type == C.NOTE || s.beam_on) {
s.beam_st = true;
start_flag = false
}
}
if (s.beam_end)
start_flag = true
if (s.type == C.NOTE || s.beam_on)
lastnote = s
break
}
if (s.type == C.NOTE) {
if (s.nhd)
s.notes.sort(abc2svg.pitcmp)
pitch = s.notes[0].pit
// if (s.prev
// && s.prev.type != C.NOTE) {
// s.prev.notes[0].pit = (s.prev.notes[0].pit
// + pitch) / 2
for (s2 = s.prev; s2; s2 = s2.prev) {
if (s2.type != C.REST)
break
s2.notes[0].pit = pitch
}
} else {
if (!s.notes) {
s.notes = []
s.notes[0] = {}
s.nhd = 0
}
s.notes[0].pit = pitch
}
}
if (lastnote)
lastnote.beam_end = true
}
/* -- set the end of the repeat sequences -- */
function set_rb(p_voice) {
var s2, n,
s = p_voice.sym
while (s) {
if (s.type != C.BAR || !s.rbstart || s.norepbra) {
s = s.next
continue
}
n = 0;
s2 = null
for (s = s.next; s; s = s.next) {
if (s.type != C.BAR)
continue
if (s.rbstop)
break
if (!s.next) {
s.rbstop = 2 // right repeat with end
break
}
n++
if (n == s.fmt.rbmin)
s2 = s
if (n == s.fmt.rbmax) {
if (s2)
s = s2;
s.rbstop = 1 // right repeat without end
break
}
}
}
}
/* -- initialize the generator -- */
// this function is called only once per tune
var delpit = [0, -7, -14, 0]
function set_global() {
var p_voice, v,
nv = voice_tb.length,
sy = cur_sy,
st = sy.nstaff
insert_meter = cfmt.writefields.indexOf('M') >= 0
/* get the max number of staves */
while (1) {
sy = sy.next
if (!sy)
break
if (sy.nstaff > st)
st = sy.nstaff
}
nstaff = st;
// there must be a bar at end of tune
check_end_bar()
/* set the pitches, the words (beams) and the repeat brackets */
for (v = 0; v < nv; v++) {
p_voice = voice_tb[v];
set_words(p_voice)
p_voice.ckey = p_voice.key // starting key
// (test removed because v.second may change after %%staves)
// if (!p_voice.second && !p_voice.norepbra)
set_rb(p_voice)
}
/* set the staff of the floating voices */
if (nv > 1) {
set_float()
// expand the multi-rests as needed
if (glovar.mrest_p)
mrest_expand()
}
if (glovar.ottava && cfmt.sound != "play")
set_ottava();
// set the clefs and adjust the pitches of all symbol
set_clefs();
self.set_pitch(null)
}
// get the left offsets of the first and other staff systems
// return [lsh1, lsho]
function get_lshift() {
var st, v, p_v, p1, po, fnt, w,
sy = cur_sy,
lsh1 = 0,
lsho = 0,
nv = voice_tb.length
// get the max width of a voice name/subname
function get_wx(p, wx) {
var w, j,
i = 0
p += '\n'
while (1) {
j = p.indexOf("\n", i)
if (j < 0)
break
w = strwh(p.slice(i, j))[0] + 12
if (w > wx)
wx = w
if (j < 0)
break
i = j + 1
}
return wx
} // get_wx()
for (v = 0; v < nv; v++) {
p_v = voice_tb[v]
p1 = p_v.nm
po = p_v.snm
if ((p1 || po) && !fnt) {
set_font("voice")
fnt = gene.deffont
}
if (p1) {
w = get_wx(p1, lsh1)
if (w > lsh1)
lsh1 = w
}
if (po) {
w = get_wx(po, lsho)
if (w > lsho)
lsho = w
}
}
// add the width of the braces/brackets
w = 0
while (sy) {
for (st = 0; st <= sy.nstaff; st++) {
if (sy.staves[st].flags
& (OPEN_BRACE2 | OPEN_BRACKET2)) {
w = 12
break
}
if (sy.staves[st].flags & (OPEN_BRACE | OPEN_BRACKET))
w = 6
}
if (w == 12)
break
sy = sy.next
}
lsh1 += w
lsho += w
return [lsh1, lsho]
} // get_lshift()
/* -- return the left indentation of the staves -- */
function set_indent(lsh) {
var st, v, w, p_voice, p, i, j, font,
vnt = 0,
fmt = tsnext ? tsnext.fmt : cfmt
// name or subname?
if (fmt.systnames) { // display the names in the staff system
for (v = voice_tb.length; --v >= 0; ) {
p_voice = voice_tb[v]
if (!cur_sy.voices[v]
|| !gene.st_print[p_voice.st])
continue
if (p_voice.nm
&& (p_voice.new_name || fmt.systnames == 2)) {
vnt = 2 // full name
break
}
if (p_voice.snm)
vnt = 1 // subname
}
}
gene.vnt = vnt // voice name type for draw
return vnt == 2 ? lsh[0] : lsh[1]
}
/* -- decide on beams and on stem directions -- */
/* this routine is called only once per tune */
function set_beams(sym) {
var s, t, g, beam, s_opp, n, m, mid_p, pu, pd,
laststem = -1
for (s = sym; s; s = s.next) {
if (s.type != C.NOTE) {
if (s.type != C.GRACE)
continue
g = s.extra
if (g.stem == 2) { /* opposite gstem direction */
s_opp = s
continue
}
if (!s.stem)
s.stem = s.multi || 1
for (; g; g = g.next) {
g.stem = s.stem;
g.multi = s.multi
}
continue
}
if (!s.stem && s.multi)
s.stem = s.multi
if (!s.stem) { // if note alone on the staff
mid_p = s.mid / 3 + 18
/* notes in a beam have the same stem direction */
if (beam) {
s.stem = laststem
} else if (s.beam_st && !s.beam_end) { // beam start
beam = true;
// the stem direction is the one of the note
// farthest from the middle line
pu = s.notes[s.nhd].pit;
pd = s.notes[0].pit
for (g = s.next; g; g = g.next) {
if (g.type != C.NOTE)
continue
if (g.stem || g.multi) // if forced direction
s.stem = g.stem || g.multi
if (g.notes[g.nhd].pit > pu)
pu = g.notes[g.nhd].pit
if (g.notes[0].pit < pd)
pd = g.notes[0].pit
if (g.beam_end)
break
}
if (!s.stem && g.beam_end) {
if (pu + pd < mid_p * 2) {
s.stem = 1
} else if (pu + pd > mid_p * 2) {
s.stem = -1
} else {
if (s.fmt.bstemdown)
s.stem = -1
}
}
if (!s.stem)
s.stem = laststem
} else { // no beam
n = (s.notes[s.nhd].pit + s.notes[0].pit) / 2
if (n == mid_p && s.nhd > 1) {
for (m = 0; m < s.nhd; m++) {
if (s.notes[m].pit >= mid_p)
break
}
n = m * 2 < s.nhd ? mid_p - 1 : mid_p + 1
}
if (n < mid_p)
s.stem = 1
else if (n > mid_p || s.fmt.bstemdown)
s.stem = -1
else
s.stem = laststem
}
} else { /* stem set by set_stem_dir */
if (s.beam_st && !s.beam_end)
beam = true
}
if (s.beam_end)
beam = false;
laststem = s.stem;
if (s_opp) { /* opposite gstem direction */
for (g = s_opp.extra; g; g = g.next)
g.stem = -laststem;
s_opp.stem = -laststem;
s_opp = null
}
}
}
// check if there may be one head for unison when voice overlap
function same_head(s1, s2) {
var i1, i2, l1, l2, head, i11, i12, i21, i22, sh1, sh2,
shu = s1.fmt.shiftunison || 0
if (shu >= 3)
return false
if ((l1 = s1.dur) >= C.BLEN)
return false
if ((l2 = s2.dur) >= C.BLEN)
return false
if (s1.stemless && s2.stemless)
return false
if (s1.dots != s2.dots) {
if (shu & 1
|| s1.dots * s2.dots != 0)
return false
}
if (s1.stem * s2.stem > 0)
return false
/* check if a common unison */
i1 = i2 = 0
if (s1.notes[0].pit > s2.notes[0].pit) {
//fixme:dots
if (s1.stem < 0)
return false
while (s2.notes[i2].pit != s1.notes[0].pit) {
if (++i2 > s2.nhd)
return false
}
} else if (s1.notes[0].pit < s2.notes[0].pit) {
//fixme:dots
if (s2.stem < 0)
return false
while (s2.notes[0].pit != s1.notes[i1].pit) {
if (++i1 > s1.nhd)
return false
}
}
if (s2.notes[i2].acc != s1.notes[i1].acc)
return false;
i11 = i1;
i21 = i2;
sh1 = s1.notes[i1].shhd;
sh2 = s2.notes[i2].shhd
do {
//fixme:dots
i1++;
i2++
if (i1 > s1.nhd) {
//fixme:dots
// if (s1.notes[0].pit < s2.notes[0].pit)
// return false
break
}
if (i2 > s2.nhd) {
//fixme:dots
// if (s1.notes[0].pit > s2.notes[0].pit)
// return false
break
}
if (s2.notes[i2].acc != s1.notes[i1].acc)
return false
if (sh1 < s1.notes[i1].shhd)
sh1 = s1.notes[i1].shhd
if (sh2 < s2.notes[i2].shhd)
sh2 = s2.notes[i2].shhd
} while (s2.notes[i2].pit == s1.notes[i1].pit)
//fixme:dots
if (i1 <= s1.nhd) {
if (i2 <= s2.nhd)
return false
if (s2.stem > 0)
return false
} else if (i2 <= s2.nhd) {
if (s1.stem > 0)
return false
}
i12 = i1;
i22 = i2;
head = 0
if (l1 != l2) {
if (l1 < l2) {
l1 = l2;
l2 = s1.dur
}
if (l1 < C.BLEN / 2) {
if (s2.dots)
head = 2
else if (s1.dots)
head = 1
} else if (l2 < C.BLEN / 4) { /* (l1 >= C.BLEN / 2) */
// if (shu == 2)
// || s1.dots != s2.dots)
if (shu & 2)
return false
head = s2.dur >= C.BLEN / 2 ? 2 : 1
} else {
return false
}
}
if (!head)
head = s1.p_v.scale < s2.p_v.scale ? 2 : 1
if (head == 1) {
for (i2 = i21; i2 < i22; i2++) {
s2.notes[i2].invis = true
delete s2.notes[i2].acc
}
for (i2 = 0; i2 <= s2.nhd; i2++)
s2.notes[i2].shhd += sh1
} else {
for (i1 = i11; i1 < i12; i1++) {
s1.notes[i1].invis = true
delete s1.notes[i1].acc
}
for (i1 = 0; i1 <= s1.nhd; i1++)
s1.notes[i1].shhd += sh2
}
return true
}
/* handle unison with different accidentals */
function unison_acc(s1, s2, i1, i2) {
var m, d, acc
acc = s2.notes[i2].acc
if (!acc) {
d = w_note[s2.head] * 2 + s2.xmx + s1.notes[i1].shac + 2
acc = s1.notes[i1].acc
if (typeof acc == "object") // microtone
d += 2
if (s2.dots)
d += 6
for (m = 0; m <= s1.nhd; m++) {
s1.notes[m].shhd += d;
s1.notes[m].shac -= d
}
s1.xmx += d
} else {
d = w_note[s1.head] * 2 + s1.xmx + s2.notes[i2].shac + 2
if (typeof acc == "object") // microtone
d += 2
if (s1.dots)
d += 6
for (m = 0; m <= s2.nhd; m++) {
s2.notes[m].shhd += d;
s2.notes[m].shac -= d
}
s2.xmx += d
}
}
var MAXPIT = 48 * 2
/* set the left space of a note/chord */
function set_left(s) {
var m, i, j, shift,
w_base = w_note[s.head],
w = w_base,
left = []
for (i = 0; i < MAXPIT; i++)
left.push(-100)
/* stem */
if (s.nflags > -2) {
if (s.stem > 0) {
w = -w;
i = s.notes[0].pit * 2;
j = (Math.ceil((s.ymx - 2) / 3) + 18) * 2
} else {
i = (Math.ceil((s.ymn + 2) / 3) + 18) * 2;
j = s.notes[s.nhd].pit * 2
}
if (i < 0)
i = 0
if (j >= MAXPIT)
j = MAXPIT - 1
while (i <= j)
left[i++] = w
}
/* notes */
shift = s.notes[s.stem > 0 ? 0 : s.nhd].shhd; /* previous shift */
for (m = 0; m <= s.nhd; m++) {
w = -s.notes[m].shhd + w_base + shift;
i = s.notes[m].pit * 2
if (i < 0)
i = 0
else if (i >= MAXPIT - 1)
i = MAXPIT - 2
if (w > left[i])
left[i] = w
if (s.head != C.SQUARE)
w -= 1
if (w > left[i - 1])
left[i - 1] = w
if (w > left[i + 1])
left[i + 1] = w
}
return left
}
/* set the right space of a note/chord */
function set_right(s) {
var m, i, j, k, shift,
w_base = w_note[s.head],
w = w_base,
flags = s.nflags > 0 && s.beam_st && s.beam_end,
right = []
for (i = 0; i < MAXPIT; i++)
right.push(-100)
/* stem and flags */
if (s.nflags > -2) {
if (s.stem < 0) {
w = -w;
i = (Math.ceil((s.ymn + 2) / 3) + 18) * 2;
j = s.notes[s.nhd].pit * 2;
k = i + 4
} else {
i = s.notes[0].pit * 2;
j = (Math.ceil((s.ymx - 2) / 3) + 18) * 2
}
if (i < 0)
i = 0
if (j > MAXPIT)
j = MAXPIT
while (i < j)
right[i++] = w
}
if (flags) {
if (s.stem > 0) {
if (s.xmx == 0)
i = s.notes[s.nhd].pit * 2
else
i = s.notes[0].pit * 2;
i += 4
if (i < 0)
i = 0
for (; i < MAXPIT && i <= j - 4; i++)
right[i] = 11
} else {
i = k
if (i < 0)
i = 0
for (; i < MAXPIT && i <= s.notes[0].pit * 2 - 4; i++)
right[i] = 3.5
}
}
/* notes */
shift = s.notes[s.stem > 0 ? 0 : s.nhd].shhd /* previous shift */
for (m = 0; m <= s.nhd; m++) {
w = s.notes[m].shhd + w_base - shift;
i = s.notes[m].pit * 2
if (i < 0)
i = 0
else if (i >= MAXPIT - 1)
i = MAXPIT - 2
if (w > right[i])
right[i] = w
if (s.head != C.SQUARE)
w -= 1
if (w > right[i - 1])
right[i - 1] = w
if (w > right[i + 1])
right[i + 1] = w
}
return right
}
/* -- shift the notes horizontally when voices overlap -- */
/* this routine is called only once per tune */
function set_overlap() {
var s, s1, s2, s3, i, i1, i2, m, sd, t, dp,
d, d2, dr, dr2, dx,
left1, right1, left2, right2, right3, pl, pr,
sy = cur_sy
// invert the voices
function v_invert() {
s1 = s2;
s2 = s;
d = d2;
pl = left1;
pr = right1;
dr2 = dr
}
for (s = tsfirst; s; s = s.ts_next) {
if (s.type != C.NOTE
|| s.invis) {
if (s.type == C.STAVES)
sy = s.sy
continue
}
/* treat the stem on two staves with different directions */
if (s.xstem
&& s.ts_prev.stem < 0) {
for (m = 0; m <= s.nhd; m++) {
s.notes[m].shhd -= 7; // stem_xoff
s.notes[m].shac += 16
}
}
/* search the next note at the same time on the same staff */
s2 = s
while (1) {
s2 = s2.ts_next
if (!s2)
break
if (s2.time != s.time) {
s2 = null
break
}
if (s2.type == C.NOTE
&& !s2.invis
&& s2.st == s.st)
break
}
if (!s2)
continue
s1 = s
/* set the dot vertical offset */
if (sy.voices[s1.v].range < sy.voices[s2.v].range)
s2.dot_low = true
else
s1.dot_low = true
/* no shift if no overlap */
if (s1.ymn > s2.ymx
|| s1.ymx < s2.ymn)
continue
if (same_head(s1, s2))
continue
// special case when only a second and no dots
if (!s1.dots && !s2.dots)
if ((s1.stem > 0 && s2.stem < 0
&& s1.notes[0].pit == s2.notes[s2.nhd].pit + 1)
|| (s1.stem < 0 && s2.stem > 0
&& s1.notes[s1.nhd].pit + 1 == s2.notes[0].pit)) {
if (s1.stem < 0) {
s1 = s2;
s2 = s
}
d = s1.notes[0].shhd + 7
for (m = 0; m <= s2.nhd; m++) // shift the lower note(s)
s2.notes[m].shhd += d
s2.xmx += d
s1.xmx = s2.xmx // align the dots
continue
}
/* compute the minimum space for 's1 s2' and 's2 s1' */
right1 = set_right(s1);
left2 = set_left(s2);
s3 = s1.ts_prev
if (s3 && s3.time == s1.time
&& s3.st == s1.st && s3.type == C.NOTE && !s3.invis) {
right3 = set_right(s3)
for (i = 0; i < MAXPIT; i++) {
if (right3[i] > right1[i])
right1[i] = right3[i]
}
} else {
s3 = null
}
d = -10
for (i = 0; i < MAXPIT; i++) {
if (left2[i] + right1[i] > d)
d = left2[i] + right1[i]
}
if (d < -3 // no clash if no dots clash
&& ((s2.notes[0].pit & 1)
|| !(s1.dots || s2.dots)
|| (!(s1.notes[s1.nhd].pit == s2.notes[0].pit + 2
&& s1.dot_low)
&& !(s1.notes[s1.nhd].pit + 2 == s2.notes[0].pit
&& s2.dot_low))))
continue
right2 = set_right(s2);
left1 = set_left(s1)
if (s3) {
right3 = set_left(s3)
for (i = 0; i < MAXPIT; i++) {
if (right3[i] > left1[i])
left1[i] = right3[i]
}
}
d2 = dr = dr2 = -100
for (i = 0; i < MAXPIT; i++) {
if (left1[i] + right2[i] > d2)
d2 = left1[i] + right2[i]
if (right2[i] > dr2)
dr2 = right2[i]
if (right1[i] > dr)
dr = right1[i]
}
/* check for unison with different accidentals
* and clash of dots */
t = 0;
i1 = s1.nhd;
i2 = s2.nhd
while (1) {
dp = s1.notes[i1].pit - s2.notes[i2].pit
switch (dp) {
case 2:
if (!(s1.notes[i1].pit & 1))
s1.dot_low = false
break
case 1:
if (s1.notes[i1].pit & 1)
s2.dot_low = true
else
s1.dot_low = false
break
case 0:
if (s1.notes[i1].acc != s2.notes[i2].acc) {
t = -1
break
}
if (s2.notes[i2].acc) {
if (!s1.notes[i1].acc)
s1.notes[i1].acc = s2.notes[i2].acc
s2.notes[i2].acc = 0
}
if (s1.dots && s2.dots
&& (s1.notes[i1].pit & 1))
t = 1
break
case -1:
if (s1.notes[i1].pit & 1)
s2.dot_low = false
else
s1.dot_low = true
break
case -2:
if (!(s1.notes[i1].pit & 1))
s2.dot_low = false
break
}
if (t < 0)
break
if (dp >= 0) {
if (--i1 < 0)
break
}
if (dp <= 0) {
if (--i2 < 0)
break
}
}
if (t < 0) { /* unison and different accidentals */
unison_acc(s1, s2, i1, i2)
continue
}
sd = 0;
if (s1.dots) {
if (s2.dots) {
if (!t) /* if no dot clash */
sd = 1 /* align the dots */
} else {
v_invert() // shift the first voice
}
} else if (s2.dots) {
if (d2 + dr < d + dr2)
sd = 1 /* align the dots */
}
pl = left2;
pr = right2
if (!s3 && d2 + dr < d + dr2)
v_invert()
d += 3
if (d < 0)
d = 0; // (not return!)
/* handle the previous shift */
m = s1.stem >= 0 ? 0 : s1.nhd;
d += s1.notes[m].shhd;
m = s2.stem >= 0 ? 0 : s2.nhd;
d -= s2.notes[m].shhd
/*
* room for the dots
* - if the dots of v1 don't shift, adjust the shift of v2
* - otherwise, align the dots and shift them if clash
*/
if (s1.dots) {
dx = 7.7 + s1.xmx + // x 1st dot
3.5 * s1.dots - 3.5 + // x last dot
3; // some space
if (!sd) {
d2 = -100;
for (i1 = 0; i1 <= s1.nhd; i1++) {
i = s1.notes[i1].pit
if (!(i & 1)) {
if (!s1.dot_low)
i++
else
i--
}
i *= 2
if (i < 1)
i = 1
else if (i >= MAXPIT - 1)
i = MAXPIT - 2
if (pl[i] > d2)
d2 = pl[i]
if (pl[i - 1] + 1 > d2)
d2 = pl[i - 1] + 1
if (pl[i + 1] + 1 > d2)
d2 = pl[i + 1] + 1
}
if (dx + d2 + 2 > d)
d = dx + d2 + 2
} else {
if (dx < d + dr2 + s2.xmx) {
d2 = 0
for (i1 = 0; i1 <= s1.nhd; i1++) {
i = s1.notes[i1].pit
if (!(i & 1)) {
if (!s1.dot_low)
i++
else
i--
}
i *= 2
if (i < 1)
i = 1
else if (i >= MAXPIT - 1)
i = MAXPIT - 2
if (pr[i] > d2)
d2 = pr[i]
if (pr[i - 1] + 1 > d2)
d2 = pr[i - 1] = 1
if (pr[i + 1] + 1 > d2)
d2 = pr[i + 1] + 1
}
if (d2 > 4.5
&& 7.7 + s1.xmx + 2 < d + d2 + s2.xmx)
s2.xmx = d2 + 3 - 7.7
}
}
}
for (m = s2.nhd; m >= 0; m--) {
s2.notes[m].shhd += d
// if (s2.notes[m].acc
// && s2.notes[m].pit < s1.notes[0].pit - 4)
// s2.notes[m].shac -= d
}
s2.xmx += d
if (sd)
s1.xmx = s2.xmx // align the dots
}
}
/* -- set the stem height -- */
/* this routine is called only once per tune */
// (possible hook)
Abc.prototype.set_stems = function() {
var s, s2, g, slen, scale,ymn, ymx, nflags, ymin, ymax
for (s = tsfirst; s; s = s.ts_next) {
if (s.type != C.NOTE) {
if (s.type != C.GRACE)
continue
ymin = ymax = s.mid
for (g = s.extra; g; g = g.next) {
slen = GSTEM
if (g.nflags > 1)
slen += 1.2 * (g.nflags - 1);
ymn = 3 * (g.notes[0].pit - 18);
ymx = 3 * (g.notes[g.nhd].pit - 18)
if (s.stem >= 0) {
g.y = ymn;
g.ys = ymx + slen;
ymx = Math.round(g.ys)
} else {
g.y = ymx;
g.ys = ymn - slen;
ymn = Math.round(g.ys)
}
ymx += 4
ymn -= 4
if (ymn < ymin)
ymin = ymn
else if (ymx > ymax)
ymax = ymx;
g.ymx = ymx;
g.ymn = ymn
}
s.ymx = ymax;
s.ymn = ymin
continue
}
/* shift notes in chords (need stem direction to do this) */
set_head_shift(s);
/* if start or end of beam, adjust the number of flags
* with the other end */
nflags = s.nflags
if (s.beam_st && !s.beam_end) {
if (s.feathered_beam)
nflags = ++s.nflags
for (s2 = s.next; /*s2*/; s2 = s2.next) {
if (s2.type == C.NOTE) {
if (s.feathered_beam)
s2.nflags++
if (s2.beam_end)
break
}
}
/* if (s2) */
if (s2.nflags > nflags)
nflags = s2.nflags
} else if (!s.beam_st && s.beam_end) {
//fixme: keep the start of beam ?
for (s2 = s.prev; /*s2*/; s2 = s2.prev) {
if (s2.beam_st)
break
}
/* if (s2) */
if (s2.nflags > nflags)
nflags = s2.nflags
}
/* set height of stem end */
slen = s.fmt.stemheight
switch (nflags) {
case 2: slen += 0; break
case 3: slen += 4; break
case 4: slen += 8; break
case 5: slen += 12; break
}
if ((scale = s.p_v.scale) != 1)
slen *= (scale + 1) * .5;
ymn = 3 * (s.notes[0].pit - 18)
if (s.nhd > 0) {
slen -= 2;
ymx = 3 * (s.notes[s.nhd].pit - 18)
} else {
ymx = ymn
}
if (s.ntrem)
slen += 2 * s.ntrem /* tremolo */
if (s.stemless) {
if (s.stem >= 0) {
s.y = ymn;
s.ys = ymx
} else {
s.ys = ymn;
s.y = ymx
}
s.ymx = ymx + 4;
s.ymn = ymn - 4
} else if (s.stem >= 0) {
if (s.notes[s.nhd].pit > 26
&& (nflags <= 0
|| !s.beam_st
|| !s.beam_end)) {
slen -= 2
if (s.notes[s.nhd].pit > 28)
slen -= 2
}
s.y = ymn
if (s.notes[0].tie)
ymn -= 3;
s.ymn = ymn - 4;
s.ys = ymx + slen
if (s.ys < s.mid)
s.ys = s.mid;
s.ymx = (s.ys + 2.5) | 0
} else { /* stem down */
if (s.notes[0].pit < 18
&& (nflags <= 0
|| !s.beam_st || !s.beam_end)) {
slen -= 2
if (s.notes[0].pit < 16)
slen -= 2
}
s.ys = ymn - slen
if (s.ys > s.mid)
s.ys = s.mid;
s.ymn = (s.ys - 2.5) | 0;
s.y = ymx
/*fixme:the tie may be lower*/
if (s.notes[s.nhd].tie)
ymx += 3;
s.ymx = ymx + 4
}
}
}
// generate a block symbol
var blocks = [] // array of delayed block symbols
// (possible hook)
Abc.prototype.block_gen = function(s) {
switch (s.subtype) {
case "leftmargin":
case "rightmargin":
case "pagescale":
case "pagewidth":
case "scale":
case "staffwidth":
self.set_format(s.subtype, s.param)
break
case "mc_start": // multicol start
if (multicol) {
error(1, s, "No end of the previous %%multicol")
break
}
multicol = {
state: parse.state,
posy: posy,
maxy: posy,
lm: cfmt.leftmargin,
rm: cfmt.rightmargin,
w: cfmt.pagewidth,
sc: cfmt.scale
}
break
case "mc_new": // multicol new
if (!multicol || multicol.state != parse.state) {
error(1, s, "%%multicol new without start")
break
}
if (posy > multicol.maxy)
multicol.maxy = posy
cfmt.leftmargin = multicol.lm
cfmt.rightmargin = multicol.rm
cfmt.pagewidth = multicol.w
cfmt.scale = multicol.sc
posy = multicol.posy
img.chg = 1 //true
break
case "mc_end": // multicol end
if (!multicol || multicol.state != parse.state) {
error(1, s, "%%multicol end without start")
break
}
if (posy < multicol.maxy)
posy = multicol.maxy
cfmt.leftmargin = multicol.lm
cfmt.rightmargin = multicol.rm
cfmt.pagewidth = multicol.w
cfmt.scale = multicol.sc
multicol = undefined
blk_flush()
img.chg = 1 //true
break
case "ml":
blk_flush()
user.img_out(s.text)
break
case "newpage":
if (!user.page_format)
break
blk_flush()
if (blkdiv < 0) // split the tune
user.img_out('')
blkdiv = 2 // start the next SVG in a new page
break
case "sep":
set_page();
vskip(s.sk1);
output += '\n';
vskip(s.sk2);
break
case "text":
set_font(s.font)
use_font(s.font)
write_text(s.text, s.opt)
break
case "title":
write_title(s.text, true)
break
case "vskip":
vskip(s.sk);
break
}
}
/* -- define the start and end of a piece of tune -- */
/* tsnext becomes the beginning of the next line */
function set_piece() {
var s, last, p_voice, st, v, nv, tmp, non_empty,
non_empty_gl = [],
sy = cur_sy
function reset_staff(st) {
var p_staff = staff_tb[st],
sy_staff = sy.staves[st]
if (!p_staff)
p_staff = staff_tb[st] = {}
p_staff.y = 0; // staff system not computed yet
p_staff.stafflines = sy_staff.stafflines;
p_staff.staffscale = sy_staff.staffscale;
p_staff.ann_top = p_staff.ann_bot = 0
} // reset_staff()
// adjust the empty flag of brace systems
function set_brace() {
var st, i, empty_fl,
n = sy.staves.length
// if a system brace has empty and non empty staves, keep all staves
for (st = 0; st < n; st++) {
if (!(sy.staves[st].flags & (OPEN_BRACE | OPEN_BRACE2)))
continue
empty_fl = 0;
i = st
while (st < n) {
empty_fl |= non_empty[st] ? 1 : 2
if (sy.staves[st].flags & (CLOSE_BRACE | CLOSE_BRACE2))
break
st++
}
if (empty_fl == 3) { // if both empty and not empty staves
while (i <= st) {
non_empty[i] = true;
non_empty_gl[i++] = true
}
}
}
} // set_brace()
// set the top and bottom of the staves
function set_top_bot() {
var st, p_staff, i, j, l
for (st = 0; st <= nstaff; st++) {
p_staff = staff_tb[st]
// ledger lines
// index = line number
// values = [x symbol, x start, x stop]
p_staff.hlu = [] // above the staff
p_staff.hld = [] // under the staff
l = p_staff.stafflines.length;
p_staff.topbar = 6 * (l - 1)
for (i = 0; i < l - 1; i++) {
switch (p_staff.stafflines[i]) {
case '.':
case '-':
continue
}
break
}
p_staff.botline = p_staff.botbar = i * 6
if (i >= l - 2) { // 0, 1 or 2 lines
if (p_staff.stafflines[i] != '.') {
p_staff.botbar -= 6;
p_staff.topbar += 6
} else { // no line: big bar
p_staff.botbar -= 12;
p_staff.topbar += 12
continue // no helper line
}
}
if (!non_empty_gl[st])
continue
// define the helper lines
p_staff.hll = 17 + i * 2 // pitch of lowest note
// without helper line
// ('D' when standard staff)
p_staff.hlmap = new Int8Array((l - i + 1) * 2
+ 2) // (bug android 4.0)
for (j = 1; i < l; i++, j += 2) {
switch (p_staff.stafflines[i]) {
case '|':
case '[':
p_staff.hlmap[j - 1] = 1; // no helper line
p_staff.hlmap[j] = 1;
p_staff.hlmap[j + 1] = 1
break
}
}
}
} // set_top_bot()
// remove the staff system at start of line
if (tsfirst.type == C.STAVES) {
s = tsfirst
tsfirst = tsfirst.ts_next
tsfirst.ts_prev = null
if (s.seqst)
tsfirst.seqst = true
s.p_v.sym = s.next
if (s.next)
s.next.prev = null
}
/* reset the staves */
nstaff = sy.nstaff
for (st = 0; st <= nstaff; st++)
reset_staff(st);
non_empty = new Uint8Array(nstaff + 1)
/*
* search the next end of line,
* and mark the empty staves
*/
for (s = tsfirst; s; s = s.ts_next) {
if (s.nl)
break
switch (s.type) {
case C.STAVES:
set_brace();
sy.st_print = non_empty
sy = s.sy;
while (nstaff < sy.nstaff)
reset_staff(++nstaff)
non_empty = new Uint8Array(nstaff + 1)
continue
// the block symbols will be treated after music line generation
case C.BLOCK:
if (!s.play) {
blocks.push(s)
unlksym(s)
} else if (s.ts_next && s.ts_next.shrink)
s.ts_next.shrink = 0
continue
}
st = s.st
if (st > nstaff) {
switch (s.type) {
case C.CLEF:
staff_tb[st].clef = s // clef warning/change for new staff
break
case C.KEY:
s.p_v.ckey = s
break
//useless ?
case C.METER:
s.p_v.meter = s
break
}
unlksym(s)
continue
}
if (non_empty[st])
continue
switch (s.type) {
default:
continue
case C.BAR:
if (s.bar_mrep
|| sy.staves[st].staffnonote > 1)
break
continue
case C.GRACE:
break
case C.NOTE:
case C.REST:
case C.SPACE:
case C.MREST:
if (sy.staves[st].staffnonote > 1)
break
if (s.invis)
continue
if (sy.staves[st].staffnonote
|| s.type == C.NOTE)
break
continue
}
non_empty_gl[st] = non_empty[st] = true
}
tsnext = s;
/* set the last empty staves */
set_brace()
sy.st_print = non_empty
/* define the offsets of the measure bars */
set_top_bot()
// if not the end of the tune, set the end of the music line
if (tsnext) {
s = tsnext;
delete s.nl;
last = s.ts_prev;
last.ts_next = null;
// and the end of the voices
nv = voice_tb.length
for (v = 0; v < nv; v++) {
p_voice = voice_tb[v]
if (p_voice.sym
&& p_voice.sym.time <= tsnext.time) {
for (s = last; s; s = s.ts_prev) {
if (s.v == v) {
p_voice.s_next = s.next;
s.next = null;
break
}
}
if (s)
continue
}
p_voice.s_next = p_voice.sym;
p_voice.sym = null
}
}
// initialize the music line
init_music_line()
// keep the array of the staves to be printed
gene.st_print = non_empty_gl
}
/* -- position the symbols along the staff -- */
// (possible hook)
Abc.prototype.set_sym_glue = function(width) {
var g, x, some_grace, stretch,
cnt = 4,
xmin = 0, // sigma shrink = minimum spacing
xx = 0, // sigma natural spacing
xs = 0, // sigma unexpandable elements with no space
xse = 0, // sigma unexpandable elements with space
ll = !tsnext || // last line? yes
(tsnext.type == C.BLOCK // no, but followed by %%command
&& !tsnext.play)
|| blocks.length, // (abcm2ps compatibility)
s = tsfirst,
spf = 1, // spacing factor
xx0 = 0
/* calculate the whole space of the symbols */
for ( ; s; s = s.ts_next) {
if (s.type == C.GRACE && !some_grace)
some_grace = s
if (s.seqst) {
xmin += s.shrink
if (xmin > width) {
error(1, s, "Line too much shrunk $1 $2 $3",
xmin.toFixed(1),
xx.toFixed(1),
width.toFixed(1))
break
}
if (s.space) {
if (s.space < s.shrink) {
xse += s.shrink;
xx += s.shrink
} else {
// xx += s.space * spf + s.shrink * (1 - spf)
xx += s.space
xx0 += s.shrink
}
} else {
xs += s.shrink
}
}
}
// can occur when bar alone in a staff system
if (!xx) {
realwidth = 0
return
}
// stretch or not?
s = tsfirst
if (ll) {
if ((xx - xx0 + xs) / width > (1 - s.fmt.stretchlast))
stretch = 1 //true
} else if (s.fmt.stretchstaff) {
stretch = 1 //true
}
// strong shrink
if (xmin >= width) {
x = 0
for ( ; s; s = s.ts_next) {
if (s.seqst)
x += s.shrink;
s.x = x
}
// realwidth = width
spf_last = .65
} else {
if (stretch) {
if (xx == xse) // if no space
xx += 10
spf = (width - xs - xse) / (xx - xse)
} else {
spf = spf_last
if (ll && spf < s.fmt.stretchlast)
spf = s.fmt.stretchlast
if (spf > (width - xs) / xx)
spf = (width - xs) / xx
}
while (--cnt >= 0) {
xx = 0;
xse = 0;
x = 0
for (s = tsfirst; s; s = s.ts_next) {
if (s.seqst) {
if (s.space) {
if (s.space * spf <= s.shrink) {
xse += s.shrink;
xx += s.shrink;
x += s.shrink
} else {
xx += s.space;
x += s.space * spf
}
} else {
x += s.shrink
}
}
s.x = x
}
if (!stretch && x < width)
break
if (Math.abs(x - width) < 0.1)
break
if (xx == xse) // if no space
xx += 10
spf = (width - xs - xse) / (xx - xse)
}
spf_last = spf
}
realwidth = x
/* set the x offsets of the grace notes */
for (s = some_grace; s; s = s.ts_next) {
if (s.type != C.GRACE)
continue
if (s.gr_shift)
x = s.prev.x + s.prev.wr
else
x = s.x - s.wl
for (g = s.extra; g; g = g.next)
g.x += x
}
}
// set the starting symbols of the voices for the new music line
function set_sym_line() {
var p_v, s,
v = voice_tb.length
// set the first symbol of each voice
while (--v >= 0) {
p_v = voice_tb[v]
if (p_v.sym && p_v.s_prev) {
p_v.sym.prev = p_v.s_prev
p_v.s_prev.next = p_v.sym
}
s = p_v.s_next // (set in set_piece)
p_v.s_next = null
p_v.sym = s
if (s) {
if (s.prev)
s.prev.next = s
p_v.s_prev = s.prev // (save for play)
s.prev = null
} else {
p_v.s_prev = null
}
}
}
// set the left offset the images
function set_posx() {
posx = img.lm / cfmt.scale
}
// initialize the start of generation / new music line
// and output the inter-staff blocks if any
function gen_init() {
var s = tsfirst,
tim = s.time
for ( ; s; s = s.ts_next) {
if (s.time != tim) {
set_page()
return
}
switch (s.type) {
case C.NOTE:
case C.REST:
case C.MREST:
case C.SPACE:
set_page()
return
default:
continue
case C.STAVES:
cur_sy = s.sy
// break
continue
case C.BLOCK:
if (s.play)
continue // keep for play
self.block_gen(s)
break
}
unlksym(s)
if (s.p_v.s_next == s)
s.p_v.s_next = s.next
}
tsfirst = null /* no more notes */
}
/* -- generate the music -- */
// (possible hook)
Abc.prototype.output_music = function() {
var v, lwidth, indent, lsh, line_height, ts1st, tslast, p_v,
nv = voice_tb.length
set_global()
if (nv > 1) // if many voices
self.set_stem_dir() // set the stems direction in 'multi'
for (v = 0; v < nv; v++)
set_beams(voice_tb[v].sym); /* decide on beams */
self.set_stems() // set the stem lengths
set_acc_shft() // set the horizontal offset of accidentals
if (nv > 1) { // if many voices
set_rest_offset(); /* set the vertical offset of rests */
set_overlap(); /* shift the notes on voice overlap */
}
set_allsymwidth(1) // set the width of all symbols
// output the blocks and define the page layout
gen_init()
if (!tsfirst)
return
lsh = get_lshift()
/* if single line, adjust the page width */
if (cfmt.singleline) {
v = get_ck_width();
lwidth = lsh[0] + v[0] + v[1] + get_width(tsfirst, null)[0]
v = cfmt.singleline == 2 // if as wide as the page width
? get_lwidth() : lwidth
if (v > lwidth)
lwidth = v
else
img.width = lwidth * cfmt.scale + img.lm + img.rm + 2
} else {
/* else, split the tune into music lines */
lwidth = get_lwidth();
cut_tune(lwidth, lsh)
}
// save symbol pointers for play
ts1st = tsfirst
v = nv
while (--v >= 0)
voice_tb[v].osym = voice_tb[v].sym
spf_last = .65 // last spacing factor
while (1) { /* loop per music line */
set_piece();
indent = set_indent(lsh)
if (!line_height
&& cfmt.indent
&& indent < cfmt.indent)
indent = cfmt.indent
self.set_sym_glue(lwidth - indent)
if (realwidth) {
if (img.wx < realwidth)
img.wx = realwidth
if (indent) {
img.wx += indent
posx += indent
}
draw_sym_near(); // delayed output
line_height = set_staff();
if (line_height) { // if some music
draw_systems(indent);
draw_all_sym();
delayed_update();
vskip(line_height)
}
if (indent)
posx -= indent;
}
blk_flush()
while (blocks.length)
self.block_gen(blocks.shift())
if (tslast)
tslast.ts_next.ts_prev = tslast
if (!tsnext)
break
tsnext.ts_prev.ts_next = // (restore for play)
tsfirst = tsnext
// next line
gen_init()
if (!tsfirst)
break
tslast = tsfirst.ts_prev
tsfirst.ts_prev = null;
set_sym_line();
lwidth = get_lwidth() // the image size may have changed
}
// restore for play
tsfirst = ts1st
v = nv
while (--v >= 0) {
p_v = voice_tb[v]
if (p_v.sym && p_v.s_prev)
p_v.sym.prev = p_v.s_prev
p_v.sym = p_v.osym
}
}
// abc2svg - parse.js - ABC parse
//
// Copyright (C) 2014-2024 Jean-Francois Moine
//
// This file is part of abc2svg-core.
//
// abc2svg-core is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg-core is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg-core. If not, see .
var a_gch, // array of parsed guitar chords
a_dcn = [], // array of parsed decoration names
multicol, // multi column object
maps = {} // maps object - see set_map()
var qplet_tb = new Int8Array([ 0, 1, 3, 2, 3, 0, 2, 0, 3, 0 ]),
ntb = "CDEFGABcdefgab"
// set the source references of a symbol
function set_ref(s) {
s.fname = parse.fname;
s.istart = parse.istart;
s.iend = parse.iend
}
// -- %% pseudo-comment
// clef definition (%%clef, K: and V:)
function new_clef(clef_def) {
var s = {
type: C.CLEF,
clef_line: 2,
clef_type: "t",
v: curvoice.v,
p_v: curvoice,
time: curvoice.time,
dur: 0
},
i = 1
set_ref(s)
switch (clef_def[0]) {
case '"':
i = clef_def.indexOf('"', 1);
s.clef_name = clef_def.slice(1, i);
i++
break
case 'a':
if (clef_def[1] == 'u') { // auto
s.clef_type = "a";
s.clef_auto = true;
i = 4
break
}
i = 4 // alto
case 'C':
s.clef_type = "c";
s.clef_line = 3
break
case 'b': // bass
i = 4
case 'F':
s.clef_type = "b";
s.clef_line = 4
break
case 'n': // none
i = 4
s.invis = true
s.clef_none = 1 //true
break
case 't':
if (clef_def[1] == 'e') { // tenor
s.clef_type = "c";
s.clef_line = 4
break
}
i = 6
case 'G':
// s.clef_type = "t" // treble
break
case 'p':
i = 4
case 'P': // perc
s.clef_type = "p";
s.clef_line = 3;
break
default:
syntax(1, "Unknown clef '$1'", clef_def)
return //undefined
}
if (clef_def[i] >= '1' && clef_def[i] <= '9') {
s.clef_line = +clef_def[i]
i++
}
// handle the octave (+/-8 - ^/_8)
delete curvoice.snd_oct
if (clef_def[i + 1] != '8'
&& clef_def[i + 1] != '1')
return s
switch (clef_def[i]) { // octave
case '^':
s.clef_oct_transp = true
case '+':
s.clef_octave = clef_def[i + 1] == '8' ? 7 : 14
if (!s.clef_oct_transp) // MIDI higher octave
curvoice.snd_oct = clef_def[i + 1] == 8 ? 12 : 24
break
case '_':
s.clef_oct_transp = true
case '-':
s.clef_octave = clef_def[i + 1] == '8' ? -7 : -14
if (!s.clef_oct_transp) // MIDI lower octave
curvoice.snd_oct = clef_def[i + 1] == 8 ? -12 : -24
break
}
return s
}
// convert an interval to a base-40 interval
function get_interval(param, score) {
var i, val, tmp, note, pit
tmp = new scanBuf;
tmp.buffer = param
pit = []
for (i = 0; i < 2; i++) {
note = tmp.buffer[tmp.index] ? parse_acc_pit(tmp) : null
if (!note) {
if (i != 1 || !score) {
syntax(1, errs.bad_transp)
return
}
pit[i] = 242 // 'c' (C5)
} else {
if (typeof note.acc == "object") {
syntax(1, errs.bad_transp)
return
}
pit[i] = abc2svg.pab40(note.pit, note.acc)
}
}
return pit[1] - pit[0]
}
// transpose a note for the score
// Return the transposed real accidental
function nt_trans(nt,
a) { // real accidental
var ak, an, d, b40, n
if (typeof a == "object") { // if microtonal accidental
n = a[0] // numerator
d = a[1] // denominator
a = n > 0 ? 1 : -1 // base accidental for transpose
}
b40 = abc2svg.pab40(nt.pit, a)
+ curvoice.tr_sco // base-40 transposition
nt.pit = abc2svg.b40p(b40) // new pitch
an = abc2svg.b40a(b40) // new accidental
if (!d) { // if not a microtonal accidental
if (an == -3) // if triple sharp/flat
return an
a = an
if (nt.acc) { // if old accidental
if (!a)
a = 3 // required natural
} else {
if (!curvoice.ckey.k_none) // if normal key
a = 0 // no accidental
}
nt.acc = a
return an
}
// set the microtonal accidental after transposition
switch (an) {
case -2:
if (n > 0)
n -= d * 2
else
n -= d
break
case -1:
if (n > 0)
n -= d
break
case 0:
case 3:
if (n > 0)
n -= d
else
n += d
break
case 1:
if (n < 0)
n += d
break
case 2:
if (n < 0)
n += d * 2
else
n += d
break
}
nt.acc = [n, d]
return an
} // nt_trans()
// set the linebreak character
function set_linebreak(param) {
var i, item
for (i = 0; i < 128; i++) {
if (char_tb[i] == "\n")
char_tb[i] = nil // remove old definition
}
param = param.split(/\s+/)
for (i = 0; i < param.length; i++) {
item = param[i]
switch (item) {
case '!':
case '$':
case '*':
case ';':
case '?':
case '@':
break
case "":
continue
case "":
item = '\n'
break
default:
syntax(1, "Bad value '$1' in %%linebreak - ignored",
item)
continue
}
char_tb[item.charCodeAt(0)] = '\n'
}
}
// set a new user character (U: or %%user)
function set_user(parm) {
var k, c, v,
a = parm.match(/(.)[=\s]*(\[I:.+\]|".+"|!.+!)$/)
if (!a) {
syntax(1, 'Lack of starting [, ! or " in U: / %%user')
return
}
c = a[1];
v = a[2]
if (c[0] == '\\') {
if (c[1] == 't')
c = '\t'
else if (!c[1])
c = ' '
}
k = c.charCodeAt(0)
if (k >= 128) {
syntax(1, errs.not_ascii)
return
}
switch (char_tb[k][0]) {
case '0': // nil
case 'd':
case 'i':
case ' ':
break
case '"':
case '!':
case '[':
if (char_tb[k].length > 1)
break
// fall thru
default:
syntax(1, "Bad user character '$1'", c)
return
}
switch (v) {
case "!beambreak!":
v = " "
break
case "!ignore!":
v = "i"
break
case "!nil!":
case "!none!":
v = "d"
break
}
char_tb[k] = v
}
// get a stafflines value
function get_st_lines(param) {
if (!param)
return
if (/^[\]\[|.-]+$/.test(param))
return param.replace(/\]/g, '[')
var n = +param
switch (n) {
case 0: return "..."
case 1: return "..|"
case 2: return ".||"
case 3: return ".|||"
}
if (isNaN(n) || n < 0 || n > 16)
return //undefined
return "||||||||||||||||".slice(0, n)
}
// create a block symbol in the tune body
function new_block(subtype) {
var c_v,
s = {
type: C.BLOCK,
subtype: subtype,
dur: 0
}
c_v = curvoice
if (subtype.slice(0, 4) != "midi") // if not a play command
curvoice = voice_tb[0] // set the block in the first voice
sym_link(s)
if (c_v)
curvoice = c_v
return s
}
// set the voice parameters
// (possible hook)
Abc.prototype.set_vp = function(a) {
var s, item, pos, val, clefpit,
tr_p = 0
while (1) {
item = a.shift()
if (!item)
break
if (item.slice(-1) == '='
&& !a.length) {
syntax(1, errs.bad_val, item)
break
}
switch (item) {
case "clef=":
s = a.shift() // keep last clef
break
case "clefpitch=":
item = a.shift() // ()
if (item) {
val = ntb.indexOf(item[0])
if (val >= 0) {
switch (item[1]) {
case "'":
val += 7
break
case ',':
val -= 7
if (item[2] == ',')
val -= 7
break
}
clefpit = 4 - val // 4 = 'G'
break
}
}
syntax(1, errs.bad_val, item)
break
case "octave=":
val = +a.shift()
if (isNaN(val))
syntax(1, errs.bad_val, item)
else
curvoice.octave = val
break
case "cue=":
curvoice.scale = a.shift() == 'on' ? .7 : 1
break
case "instrument=":
// instrument=M/N => score=MN and sound=cN
// (instrument=M == instrument=M/M)
item = a.shift()
val = item.indexOf('/')
if (val < 0) {
val = get_interval('c' + item)
if (val == undefined)
break
curvoice.sound = val
tr_p |= 2
val = 0
} else {
val = get_interval('c' + item.slice(val + 1))
if (val == undefined)
break
curvoice.sound = val
tr_p |= 2
val = get_interval(item.replace('/', ''))
if (val == undefined)
break
}
curvoice.score = cfmt.sound ? curvoice.sound : val
tr_p |= 1
break
case "map=": // %%voicemap
curvoice.map = a.shift()
break
case "name=":
case "nm=":
curvoice.nm = a.shift()
if (curvoice.nm[0] == '"')
curvoice.nm = cnv_escape(curvoice.nm.slice(1, -1))
curvoice.new_name = true
break
case "stem=": // compatibility
case "pos=": // from %%pos only
if (item == "pos=")
item = a.shift()
.slice(1, -1) // always inside dble quotes
.split(' ')
else
item = ["stm", a.shift()];
val = posval[item[1]]
if (val == undefined) {
syntax(1, errs.bad_val, "%%pos")
break
}
switch (item[2]) {
case "align": val |= C.SL_ALIGN; break
case "center": val |= C.SL_CENTER; break
case "close": val |= C.SL_CLOSE; break
}
if (!pos)
pos = {}
pos[item[0]] = val
break
case "scale=": // %%voicescale
val = +a.shift()
if (isNaN(val) || val < .5 || val > 2)
syntax(1, errs.bad_val, "%%voicescale")
else
curvoice.scale = val
break
case "score=":
if (cfmt.nedo) {
syntax(1, errs.notransp)
break
}
// score=MN
// (score=M == score=Mc)
item = a.shift()
if (cfmt.sound)
break
val = get_interval(item, true)
if (val != undefined) {
curvoice.score = val
tr_p |= 1
}
break
case "shift=":
if (cfmt.nedo) {
syntax(1, errs.notransp)
break
}
val = get_interval(a.shift())
if (val != undefined) {
curvoice.shift = val
tr_p = 3
}
break
case "sound=":
if (cfmt.nedo) {
syntax(1, errs.notransp)
break
}
// concert-score display: apply sound=
// sounding-score display: apply sound= only if M != c/C
// sound: apply sound=
val = get_interval(a.shift())
if (val == undefined)
break
curvoice.sound = val
if (cfmt.sound)
curvoice.score = val
tr_p |= 2
break
case "subname=":
case "sname=":
case "snm=":
curvoice.snm = a.shift()
if (curvoice.snm[0] == '"')
curvoice.snm = curvoice.snm.slice(1, -1);
break
case "stafflines=":
val = get_st_lines(a.shift())
if (val == undefined)
syntax(1, "Bad %%stafflines value")
else if (curvoice.st != undefined)
par_sy.staves[curvoice.st].stafflines = val
else
curvoice.stafflines = val
break
case "staffnonote=":
val = +a.shift()
if (isNaN(val))
syntax(1, "Bad %%staffnonote value")
else
curvoice.staffnonote = val
break
case "staffscale=":
val = +a.shift()
if (isNaN(val) || val < .3 || val > 2)
syntax(1, "Bad %%staffscale value")
else
curvoice.staffscale = val
break
case "tacet=":
val = a.shift()
curvoice.tacet = val || undefined
break
case "transpose=": // (abcMIDI compatibility)
if (cfmt.nedo) {
syntax(1, errs.notransp)
break
}
val = get_transp(a.shift())
if (val == undefined) {
syntax(1, errs.bad_transp)
} else {
curvoice.sound = val
if (cfmt.sound)
curvoice.score = val
tr_p = 2
}
break
default:
switch (item.slice(0, 4)) {
case "treb":
case "bass":
case "alto":
case "teno":
case "perc":
s = item
break
default:
if ("GFC".indexOf(item[0]) >= 0)
s = item
else if (item.slice(-1) == '=')
a.shift()
break
}
break
}
}
if (pos) {
curvoice.pos = clone(curvoice.pos)
for (item in pos)
if (pos.hasOwnProperty(item))
curvoice.pos[item] = pos[item]
}
if (s) {
s = new_clef(s)
if (s) {
if (clefpit)
s.clefpit = clefpit
get_clef(s)
}
}
// if transposition
if (tr_p & 2) { // curvoice.tr_sco is set in key_trans()
tr_p = (curvoice.sound | 0) + (curvoice.shift | 0)
if (tr_p)
curvoice.tr_snd = abc2svg.b40m(tr_p + 122) - 36
// semi-tone interval
else if (curvoice.tr_snd)
curvoice.tr_snd = 0
}
} // set_vp()
// set the K: / V: parameters
function set_kv_parm(a) { // array of items
if (!curvoice.init) { // add the global parameters if not done yet
curvoice.init = true
if (info.V) {
if (info.V[curvoice.id])
a = info.V[curvoice.id].concat(a)
if (info.V['*'])
a = info.V['*'].concat(a)
}
}
if (a.length)
self.set_vp(a)
} // set_kv_parm()
// memorize the K:/V: parameters
function memo_kv_parm(vid, // voice ID (V:) / '*' (K:/V:*)
a) { // array of items
if (!a.length)
return
if (!info.V)
info.V = {}
if (info.V[vid])
Array.prototype.push.apply(info.V[vid], a)
else
info.V[vid] = a
}
// K: key signature
// return the key and the voice/clef parameters
function new_key(param) {
var i, key_end, c, tmp, note,
sf = "FCGDAEB".indexOf(param[0]) - 1,
mode = 0,
s = {
type: C.KEY,
dur: 0
}
set_ref(s);
// tonic
i = 1
if (sf < -1) {
switch (param[0]) {
case 'H': // bagpipe
key_end = true
if (param[1].toLowerCase() != 'p') {
syntax(1, "Unknown bagpipe-like key")
break
}
s.k_bagpipe = param[1];
sf = param[1] == 'P' ? 0 : 2;
i++
// initialize the temperament if not done yet
if (!cfmt.temper)
// detune in cents for just intonation in A
// (from https://patrickmclaurin.com/wordpress/?page_id=2420)
// C ^C D _E E F ^F G _A A _B B
// 15.3 -14.0 -2.0 -10.0 1.9 13.3 -16.0 -31.8 -12.0 0.0 11.4 3.8
// but 'A' bagpipe = 480Hz => raise Math.log2(480/440)*1200 = 151
cfmt.temper = new Float32Array([
// 1.66, 1.37, 1.49, 1.41, 1.53, 1.63, 1.35, 1.19, 1.39, 1.51, 1.62, 1.55
// C ^C D _E E F ^F G _A A _B B
11.62, 12.55,
1.66, 2.37, 3.49, 0,
1.66, 2.37, 3.49, 4.41, 5.53, 0,
3.49, 4.41, 5.53, 6.63, 7.35,
4.41, 5.53, 6.63, 7.35, 8.19, 0,
6.63, 7.35, 8.19, 9.39, 10.51, 0,
8.19, 9.39, 10.51, 11.62, 12.55, 0,
10.51, 11.62, 12.55,
1.66, 1.66
])
break
case 'P':
syntax(1, "K:P is deprecated");
sf = 0;
s.k_drum = true;
key_end = true
break
case 'n': // none
if (param.indexOf("none") == 0) {
sf = 0;
s.k_none = true;
i = 4
break
}
// fall thru
default:
s.k_map = []
s.k_mode = 0
return [s, info_split(param)]
}
}
if (!key_end) {
switch (param[i]) {
case '#': sf += 7; i++; break
case 'b': sf -= 7; i++; break
}
param = param.slice(i).trim()
switch (param.slice(0, 3).toLowerCase()) {
default:
if (param[0] != 'm'
|| (param[1] != ' ' && param[1] != '\t'
&& param[1] != '\n')) {
key_end = true
break
}
// fall thru ('m')
case "aeo":
case "m":
case "min": sf -= 3;
mode = 5
break
case "dor": sf -= 2;
mode = 1
break
case "ion":
case "maj": break
case "loc": sf -= 5;
mode = 6
break
case "lyd": sf += 1;
mode = 3
break
case "mix": sf -= 1;
mode = 4
break
case "phr": sf -= 4;
mode = 2
break
}
if (!key_end)
param = param.replace(/\w+\s*/, '')
// [exp] accidentals
if (param.indexOf("exp ") == 0) {
param = param.replace(/\w+\s*/, '')
if (!param)
syntax(1, "No accidental after 'exp'");
s.exp = 1 //true
}
c = param[0]
if (c == '^' || c == '_' || c == '=') {
s.k_a_acc = [];
tmp = new scanBuf;
tmp.buffer = param
do {
note = parse_acc_pit(tmp)
if (!note)
break
s.k_a_acc.push(note);
c = param[tmp.index]
while (c == ' ')
c = param[++tmp.index]
} while (c == '^' || c == '_' || c == '=');
param = param.slice(tmp.index)
} else if (s.exp && param.indexOf("none") == 0) {
sf = 0
param = param.replace(/\w+\s*/, '')
}
}
if (sf < -7 || sf > 7) {
syntax(1, "Key with double sharps/flats")
if (sf > 7)
sf -= 12
else
sf += 12
}
s.k_sf = sf;
// set the map of the notes with accidentals
s.k_map = s.k_bagpipe && !sf
? abc2svg.keys[9] // implicit F# and C#
: abc2svg.keys[sf + 7]
if (s.k_a_acc) {
s.k_map = new Int8Array(s.k_map)
i = s.k_a_acc.length
while (--i >= 0) {
note = s.k_a_acc[i]
s.k_map[(note.pit + 19) % 7] = note.acc
}
}
s.k_mode = mode
// key note as base-40
s.k_b40 = [1,24,7,30,13,36,19, 2 ,25,8,31,14,37,20,3][sf + 7]
return [s, info_split(param)]
}
// M: meter
function new_meter(p) {
var p_v,
s = {
type: C.METER,
dur: 0,
a_meter: []
},
meter = {},
val, v,
m1 = 0, m2,
i = 0, j,
wmeasure,
in_parenth;
set_ref(s)
if (p.indexOf("none") == 0) {
i = 4; /* no meter */
wmeasure = 1; // simplify measure numbering and C.MREST conversion
} else {
wmeasure = 0
while (i < p.length) {
if (p[i] == '=')
break
switch (p[i]) {
case 'C':
meter.top = p[i++]
if (!m1) {
m1 = 4;
m2 = 4
}
break
case 'c':
case 'o':
meter.top = p[i++]
if (!m1) {
if (p[i - 1] == 'c') {
m1 = 2;
m2 = 4 // c = 2/4
} else {
m1 = 3;
m2 = 4 // o = 3/4
}
switch (p[i]) {
case '|':
m2 /= 2 // c| = 2/2, o| = 3/2
break
case '.':
m1 *= 3;
m2 *= 2 // c. = 6/8, o. = 9/8
break
}
}
break
case '.':
case '|':
m1 = 0;
meter.top = p[i++]
break
case '(':
if (p[i + 1] == '(') { /* "M:5/4 ((2+3)/4)" */
in_parenth = true;
meter.top = p[i++];
s.a_meter.push(meter);
meter = {}
}
j = i + 1
while (j < p.length) {
if (p[j] == ')' || p[j] == '/')
break
j++
}
if (p[j] == ')' && p[j + 1] == '/') { /* "M:5/4 (2+3)/4" */
i++ /* remove the parenthesis */
continue
} /* "M:5 (2+3)" */
/* fall thru */
case ')':
in_parenth = p[i] == '(';
meter.top = p[i++];
s.a_meter.push(meter);
meter = {}
continue
default:
if (p[i] <= '0' || p[i] > '9') {
syntax(1, "Bad char '$1' in M:", p[i])
return
}
m2 = 2; /* default when no bottom value */
meter.top = p[i++]
for (;;) {
while (p[i] >= '0' && p[i] <= '9')
meter.top += p[i++]
if (p[i] == ')') {
if (p[i + 1] != '/')
break
i++
}
if (p[i] == '/') {
i++;
if (p[i] <= '0' || p[i] > '9') {
syntax(1, "Bad char '$1' in M:", p[i])
return
}
meter.bot = p[i++]
while (p[i] >= '0' && p[i] <= '9')
meter.bot += p[i++]
break
}
if (p[i] != ' ' && p[i] != '+')
break
if (i >= p.length
|| p[i + 1] == '(') /* "M:5 (2/4+3/4)" */
break
meter.top += p[i++]
}
m1 = eval(meter.top)
break
}
if (!in_parenth) {
if (meter.bot)
m2 = +meter.bot
wmeasure += m1 * C.BLEN / m2
}
s.a_meter.push(meter);
meter = {}
while (p[i] == ' ')
i++
if (p[i] == '+') {
meter.top = p[i++];
s.a_meter.push(meter);
meter = {}
}
}
}
if (p[i] == '=') {
val = p.substring(++i).match(/^(\d+)\/(\d+)$/)
if (!val) {
syntax(1, "Bad duration '$1' in M:", p.substring(i))
return
}
wmeasure = C.BLEN * val[1] / val[2]
}
if (!wmeasure) {
syntax(1, errs.bad_val, 'M:')
return
}
s.wmeasure = wmeasure
if (cfmt.writefields.indexOf('M') < 0)
s.a_meter = []
if (parse.state != 3) {
info.M = p;
glovar.meter = s
if (parse.state) {
/* in the tune header, change the unit note length */
if (!glovar.ulen) {
if (wmeasure <= 1
|| wmeasure >= C.BLEN * 3 / 4)
glovar.ulen = C.BLEN / 8
else
glovar.ulen = C.BLEN / 16
}
for (v = 0; v < voice_tb.length; v++) {
voice_tb[v].meter = s;
voice_tb[v].wmeasure = wmeasure
}
}
} else {
curvoice.wmeasure = wmeasure
if (is_voice_sig())
curvoice.meter = s
else
sym_link(s)
// set the meter of the overlay voices
for (p_v = curvoice.voice_down; p_v; p_v = p_v.voice_down)
p_v.wmeasure = wmeasure
}
}
// link P: or Q:
function link_pq(s, text) {
var p_v, s2
if (curvoice.v == par_sy.top_voice) {
sym_link(s)
} else if (voice_tb[par_sy.top_voice].time == s.time) {
p_v = curvoice
curvoice = voice_tb[par_sy.top_voice]
sym_link(s)
curvoice = p_v
} else if (voice_tb[par_sy.top_voice].time > s.time) {
p_v = voice_tb[par_sy.top_voice]
for (s2 = p_v.sym; ; s2 = s2.next) {
if (s2.time >= s.time) {
set_ref(s)
s.fmt = cfmt
s.next = s2
s.prev = s2.prev
if (s2.prev)
s.prev.next = s
else
p_v.sym = s
s2.prev = s
s.v = s2.v
s.p_v = p_v
s.st = p_v.st
break
}
}
} else {
set_ref(s)
s.fmt = cfmt
if (!parse.pq_d)
parse.pq_d = []
parse.pq_d.push(s) // delayed insertion
}
if (!parse.pq)
parse.pq = {}
parse.pq[text] = s.time
} // link_pq()
/* Q: tempo */
function new_tempo(text) {
var i, c, d, nd,
txt = text, // (for info.Q)
s = {
type: C.TEMPO,
dur: 0
}
// get a note duration
function get_nd(p) {
var n, d,
nd = p.match(/(\d+)\/(\d+)/)
if (nd) {
d = +nd[2]
if (d && !isNaN(d) && !(d & (d - 1))) {
n = +nd[1]
if (!isNaN(n))
return C.BLEN * n / d
}
}
syntax(1, "Invalid note duration $1", c)
} // get_nd()
set_ref(s)
if (cfmt.writefields.indexOf('Q') < 0)
s.invis = true // don't display
/* string before */
if (text[0] == '"') {
c = text.match(/"([^"]*)"/) // "
if (!c) {
syntax(1, "Unterminated string in Q:")
return
}
s.tempo_str1 = c[1]
text = text.slice(c[0].length).replace(/^\s+/,'')
}
// string after
if (text.slice(-1) == '"') {
i = text.indexOf('"')
s.tempo_str2 = text.slice(i + 1, -1)
text = text.slice(0, i).replace(/\s+$/,'')
}
/* beat */
i = text.indexOf('=')
if (i > 0) {
d = text.slice(0, i).split(/\s+/)
text = text.slice(i + 1).replace(/^\s+/,'')
while (1) {
c = d.shift()
if (!c)
break
nd = get_nd(c)
if (!nd)
return
if (!s.tempo_notes)
s.tempo_notes = []
s.tempo_notes.push(nd)
}
// tempo value
if (text.slice(0, 4) == "ca. ") {
s.tempo_ca = 'ca. '
text = text.slice(4)
}
i = text.indexOf('/')
if (i > 0) {
nd = get_nd(text)
if (!nd)
return
s.new_beat = nd
} else {
s.tempo = +text
if (!s.tempo || isNaN(s.tempo)) {
syntax(1, "Bad tempo value")
return
}
}
}
if (parse.state < 2 // if in tune header
|| (!curvoice.time && !glovar.tempo)) {
info.Q = txt
glovar.tempo = s
return
}
if (!glovar.tempo)
syntax(0, "No previous tempo")
s.time = curvoice.time
text = 'Q' + s.time
if (parse.pq
&& parse.pq[text] == s.time)
return // already seen
link_pq(s, text)
}
// treat the information fields which may embedded
function do_info(info_type, text) {
var s, d1, d2, a, vid, tim, v, p_v
// skip this line if the current voice is ignored
// but keep the time related definitions
if (curvoice && curvoice.ignore) {
switch (info_type) {
default:
return
case 'P':
case 'Q':
case 'V':
break
}
}
switch (info_type) {
// info fields in any state
case 'I':
self.do_pscom(text)
break
case 'L':
a = text.match(/^1\/(\d+)(=(\d+)\/(\d+))?$/)
if (a) {
d1 = +a[1]
if (!d1 || (d1 & (d1 - 1)) != 0)
break
d1 = C.BLEN / d1
if (a[2]) { // if '='
d2 = +a[4]
d2 = d2 ? +a[3] / d2 * C.BLEN : 0
} else {
d2 = d1
}
} else if (text == "auto") {
d1 = d2 = -1
}
if (!d2) {
syntax(1, "Bad L: value")
break
}
if (parse.state <= 1) {
glovar.ulen = d1
} else {
curvoice.ulen = d1;
curvoice.dur_fact = d2 / d1
}
break
case 'M':
new_meter(text)
break
case 'U':
set_user(text)
break
// fields in tune header or tune body
case 'P':
if (!parse.state)
break
if (parse.state == 1) {
info.P = text
break
}
s = {
type: C.PART,
text: text,
time: curvoice.time
}
tim = parse.pq && parse.pq[text] // time of previous P: with same text
if (tim == s.time)
break // already seen
if (tim != null) {
syntax(1, "Misplaced P:") // different dates
break
}
if (cfmt.writefields.indexOf('P') < 0)
s.invis = 1 //true
link_pq(s, text)
break
case 'Q':
if (!parse.state)
break
new_tempo(text)
break
case 'V':
get_voice(text)
if (parse.state == 3)
curvoice.ignore = !par_sy.voices[curvoice.v]
break
// key signature at end of tune header or in tune body
case 'K':
if (!parse.state) // ignore if in file header
break
get_key(text)
break
// info in any state
case 'N':
case 'R':
if (!info[info_type])
info[info_type] = text
else
info[info_type] += '\n' + text
break
case 'r':
if (!user.keep_remark
|| parse.state != 3)
break
s = {
type: C.REMARK,
text: text,
dur: 0
}
sym_link(s)
break
default:
syntax(0, "'$1:' line ignored", info_type)
break
}
}
// music line parsing functions
/* -- adjust the duration and time of symbols in a measure when L:auto -- */
function adjust_dur(s) {
var s2, time, auto_time, i, fac;
/* search the start of the measure */
s2 = curvoice.last_sym
if (!s2)
return;
/* the bar time is correct if there are multi-rests */
if (s2.type == C.MREST
|| s2.type == C.BAR) /* in second voice */
return
while (s2.type != C.BAR && s2.prev)
s2 = s2.prev;
time = s2.time;
auto_time = curvoice.time - time
fac = curvoice.wmeasure / auto_time
if (fac == 1)
return /* already good duration */
for ( ; s2; s2 = s2.next) {
s2.time = time
if (!s2.dur || s2.grace)
continue
s2.dur *= fac;
s2.dur_orig *= fac;
time += s2.dur
if (s2.type != C.NOTE && s2.type != C.REST)
continue
for (i = 0; i <= s2.nhd; i++)
s2.notes[i].dur *= fac
}
curvoice.time = s.time = time
}
/* -- parse a bar -- */
function new_bar() {
var s2, c, bar_type,
line = parse.line,
s = {
type: C.BAR,
fname: parse.fname,
istart: parse.bol + line.index,
dur: 0,
multi: 0 // needed for decorations
}
if (vover && vover.bar) // end of voice overlay
get_vover('|')
if (glovar.new_nbar) { // %%setbarnb
s.bar_num = glovar.new_nbar;
glovar.new_nbar = 0
}
bar_type = line.char()
while (1) {
c = line.next_char()
switch (c) {
case '|':
case '[':
case ']':
case ':':
bar_type += c
continue
}
break
}
if (bar_type[0] == ':') {
if (bar_type == ':') { // ":" alone
bar_type = '|';
s.bar_dotted = true
} else {
s.rbstop = 2 // right repeat with end
}
}
// set the annotations and the decorations
if (a_gch)
csan_add(s)
if (a_dcn.length)
deco_cnv(s)
/* if the last element is '[', it may start
* a chord or an embedded header */
if (bar_type.slice(-1) == '['
&& !(/[0-9" ]/.test(c))) { // "
bar_type = bar_type.slice(0, -1);
line.index--;
c = '['
}
// check if a repeat variant
if (c > '0' && c <= '9') {
s.text = c
while (1) {
c = line.next_char()
if ("0123456789,.-".indexOf(c) < 0)
break
s.text += c
}
} else if (c == '"' && bar_type.slice(-1) == '[') {
s.text = ""
while (1) {
c = line.next_char()
if (!c) {
syntax(1, "No end of repeat string")
return
}
if (c == '"') {
line.index++
break
}
s.text += c
}
}
// ']' as the first character indicates a repeat bar stop
if (bar_type[0] == ']') {
s.rbstop = 2 // with end
if (bar_type.length != 1)
bar_type = bar_type.slice(1)
else
s.invis = true
}
s.iend = parse.bol + line.index
if (s.text
&& bar_type.slice(-1) == '['
&& bar_type != '[')
bar_type = bar_type.slice(0, -1)
// there cannot be variants on a left repeat bar
if (bar_type.slice(-1) == ':') { // left repeat
s.rbstop = 1 // end the bracket
if (s.text) {
syntax(1, "Variant ending on a left repeat bar")
delete s.text
}
curvoice.tie_s_rep = null // no tie anymore on new variant
}
// handle the accidentals (ties and repeat)
if (s.text) {
s.rbstart = s.rbstop = 2
if (s.text[0] == '1') {
curvoice.tie_s_rep = curvoice.tie_s
if (curvoice.acc_tie)
curvoice.acc_tie_rep = curvoice.acc_tie.slice()
else if (curvoice.acc_tie_rep)
curvoice.acc_tie_rep = null
} else {
curvoice.tie_s = curvoice.tie_s_rep
if (curvoice.acc_tie_rep)
curvoice.acc_tie = curvoice.acc_tie_rep.slice()
}
if (curvoice.norepbra
&& !curvoice.second)
s.norepbra = 1 //true
}
if (curvoice.ulen < 0) // L:auto
adjust_dur(s);
// merge ":| |:" into "::" and other cases
if ((bar_type == "[" || bar_type == "|:")
&& !curvoice.eoln
&& !s.a_gch && !s.invis) { // no annotation nor invisible
s2 = curvoice.last_sym
// if the previous symbol is also a bar
if (s2 && s2.type == C.BAR) {
// && !s2.a_gch && !s2.a_dd
// && !s.a_gch && !s.a_dd) {
// remove the invisible variant bars
// when no shift is needed
if ((bar_type == "["
&& !s2.text)
|| s.norepbra) {
if (s.text) {
s2.text = s.text
if (curvoice.st && !s.norepbra
&& !(par_sy.staves[curvoice.st - 1]
.flags & STOP_BAR))
s2.xsh = 4 // volta shift
}
// if (s.a_gch)
// s2.a_gch = s.a_gch
if (s.norepbra)
s2.norepbra = 1 //true
if (s.rbstart)
s2.rbstart = s.rbstart
if (s.rbstop)
s2.rbstop = s.rbstop
//--fixme: pb when on next line and empty staff above
return
}
// merge back-to-back repeat bars
if (bar_type == "|:") {
switch (s2.bar_type) {
case ":|": // :| + |: => ::
s2.bar_type = "::";
s2.rbstop = 2
return
}
}
}
}
/* set some flags */
switch (bar_type) {
case "[":
case "[]":
case "[|]":
s.invis = true;
bar_type = s.rbstart ? "[" : "[]"
break
case ":|:":
case ":||:":
bar_type = "::"
break
case "||":
if (cfmt["abc-version"] >= "2.2")
break
// fall thru - play repeat on double bar when old ABC version
case "[|":
case "|]":
s.rbstop = 2
break
}
s.bar_type = bar_type
if (!curvoice.lyric_restart)
curvoice.lyric_restart = s
if (!curvoice.sym_restart)
curvoice.sym_restart = s
sym_link(s);
s.st = curvoice.st /* original staff */
// possibly shift the volta bracket if not on the first staff
if (s.text && s.st > 0 && !s.norepbra
&& !(par_sy.staves[s.st - 1].flags & STOP_BAR)
&& bar_type != '[')
s.xsh = 4 // volta shift
if (!s.bar_dotted && !s.invis)
curvoice.acc = [] // no accidental anymore
}
// parse %%staves / %%score
// return an array of [vid, flags] / null
function parse_staves(p) {
var v, vid,
vids = {},
a_vf = [],
err = false,
flags = 0,
brace = 0,
bracket = 0,
parenth = 0,
flags_st = 0,
e,
a = p.match(/[^[\]|{}()*+\s]+|[^\s]/g)
if (!a) {
syntax(1, errs.bad_val, "%%score")
return // null
}
while (1) {
e = a.shift()
if (!e)
break
switch (e) {
case '[':
if (parenth || brace + bracket >= 2) {
syntax(1, errs.misplaced, '[');
err = true
break
}
flags |= brace + bracket == 0 ? OPEN_BRACKET : OPEN_BRACKET2;
bracket++;
flags_st <<= 8;
flags_st |= OPEN_BRACKET
break
case '{':
if (parenth || brace || bracket >= 2) {
syntax(1, errs.misplaced, '{');
err = true
break
}
flags |= !bracket ? OPEN_BRACE : OPEN_BRACE2;
brace++;
flags_st <<= 8;
flags_st |= OPEN_BRACE
break
case '(':
if (parenth) {
syntax(1, errs.misplaced, '(');
err = true
break
}
flags |= OPEN_PARENTH;
parenth++;
flags_st <<= 8;
flags_st |= OPEN_PARENTH
break
case '*':
if (brace && !parenth && !(flags & (OPEN_BRACE | OPEN_BRACE2)))
flags |= FL_VOICE
break
case '+':
flags |= MASTER_VOICE
break
case ']':
case '}':
case ')':
syntax(1, "Bad voice ID in %%score");
err = true
break
default: // get / create the voice in the voice table
vid = e
while (1) {
e = a.shift()
if (!e)
break
switch (e) {
case ']':
if (!(flags_st & OPEN_BRACKET)) {
syntax(1, errs.misplaced, ']');
err = true
break
}
bracket--;
flags |= brace + bracket == 0 ?
CLOSE_BRACKET :
CLOSE_BRACKET2;
flags_st >>= 8
continue
case '}':
if (!(flags_st & OPEN_BRACE)) {
syntax(1, errs.misplaced, '}');
err = true
break
}
brace--;
flags |= !bracket ?
CLOSE_BRACE :
CLOSE_BRACE2;
flags &= ~FL_VOICE;
flags_st >>= 8
continue
case ')':
if (!(flags_st & OPEN_PARENTH)) {
syntax(1, errs.misplaced, ')');
err = true
break
}
parenth--;
flags |= CLOSE_PARENTH;
flags_st >>= 8
continue
case '|':
flags |= STOP_BAR
continue
}
break
}
if (vids[vid]) {
syntax(1, "Double voice in %%score")
err = true
} else {
vids[vid] = true
a_vf.push([vid, flags])
}
flags = 0
if (!e)
break
a.unshift(e)
break
}
}
if (flags_st != 0) {
syntax(1, "'}', ')' or ']' missing in %%score");
err = true
}
if (err || !a_vf.length)
return //null
return a_vf
}
// split an info string
function info_split(text) {
if (!text)
return []
var a = text.match(/[^\s"=]+=?|"[^"]*"/g) // "
if (!a) {
//fixme: bad error text
syntax(1, "Unterminated string")
return []
}
return a
}
// parse a duration and return [numerator, denominator]
// 'line' is not always 'parse.line'
var reg_dur = /(\d*)(\/*)(\d*)/g /* (stop comment) */
function parse_dur(line) {
var res, num, den;
reg_dur.lastIndex = line.index;
res = reg_dur.exec(line.buffer)
if (!res[0])
return [1, 1];
num = res[1] || 1;
den = res[3] || 1
if (!res[3])
den *= 1 << res[2].length;
line.index = reg_dur.lastIndex
return [+num, +den]
}
// parse the note accidental and pitch
function parse_acc_pit(line) {
var note, acc, pit, d, nd,
c = line.char()
// optional accidental
switch (c) {
case '^':
c = line.next_char()
if (c == '^') {
acc = 2;
c = line.next_char()
} else {
acc = 1
}
break
case '=':
acc = 3;
c = line.next_char()
break
case '_':
c = line.next_char()
if (c == '_') {
acc = -2;
c = line.next_char()
} else {
acc = -1
}
break
}
/* look for microtone value */
if (acc == 1 || acc == -1) {
if ((c >= '1' && c <= '9')
|| c == '/') { // shortcut
nd = parse_dur(line);
if (acc < 0)
nd[0] = -nd[0]
if (cfmt.nedo && nd[1] == 1) {
nd[0] *= 12
nd[1] *= cfmt.nedo
}
acc = nd
c = line.char()
}
}
/* get the pitch */
pit = ntb.indexOf(c) + 16;
c = line.next_char()
if (pit < 16) {
syntax(1, "'$1' is not a note", line.buffer[line.index - 1])
return //undefined
}
// octave
while (c == "'") {
pit += 7;
c = line.next_char()
}
while (c == ',') {
pit -= 7;
c = line.next_char()
}
note = {
pit: pit,
shhd: 0,
shac: 0
}
if (acc)
note.acc = acc
return note
}
// return the mapping of a note
//
// The global 'maps' object is indexed by the map name.
// Its content is an object ('map') indexed from the map type:
// - normal = ABC note
// - octave = 'o' + ABC note in C..B interval
// - key = 'k' + scale index
// - all = 'all'
// The 'map' is stored in the note. It is an array of
// [0] array of heads (glyph names)
// [1] print (note)
// [2] color
// [3] play (note)
function set_map(p_v, note, acc,
trp) { // transpose done
var nn = not2abc(note.pit, acc),
map = maps[p_v.map] // never null
if (!map[nn]) {
nn = 'o' + nn.replace(/[',]+/, '') // ' octave
if (!map[nn]) {
nn = 'k' + ntb[(note.pit + 75 -
p_v.ckey.k_sf * 11) % 7]
if (!map[nn]) {
nn = 'all' // 'all'
if (!map[nn])
return
}
}
}
map = map[nn]
if (!trp) { // transpose not done yet
if (map[1]) { // if note shift
note.pit = map[1].pit
note.acc = map[1].acc
if (map[1].notrp) {
note.notrp = 1 //true // no transpose
note.noplay = 1 //true // no play
}
}
return
}
note.map = map
if (map[2]) // if color
note.color = map[2]
nn = map[3]
if (nn) // if play map
note.midi = pit2mid(nn.pit + 19, nn.acc)
}
/* -- parse note or rest with pitch and length -- */
// 'line' is not always 'parse.line'
function parse_basic_note(line, ulen) {
var nd,
note = parse_acc_pit(line)
if (!note)
return //null
// duration
if (line.char() == '0') { // compatibility
parse.stemless = true;
line.index++
}
nd = parse_dur(line);
note.dur = ulen * nd[0] / nd[1]
return note
}
function parse_vpos() {
var line = parse.line,
ty = 0
if (a_dcn.length && a_dcn[a_dcn.length - 1] == "dot") {
ty = C.SL_DOTTED
a_dcn.pop()
}
switch (line.next_char()) {
case "'":
line.index++
return ty + C.SL_ABOVE
case ",":
line.index++
return ty + C.SL_BELOW
case '?': // slur between staves (like ~)
line.index++
return ty + C.SL_CENTER
}
return ty + C.SL_AUTO
}
// on end of slur, create the slur
function slur_add(s, nt) { // nt = note if slur ending on note
var i, s2, sl
// go back and find the last start of slur
for (i = curvoice.sls.length; --i >= 0; ) {
sl = curvoice.sls[i]
// the slur must not start and stop on a same symbol
if (sl.ss == s)
continue
curvoice.sls.splice(i, 1)
sl.se = s // ending symbol
if (nt)
sl.nte = nt
s2 = sl.ss // start of slur
if (!s2.sls)
s2.sls = []
s2.sls.push(sl)
// set a flag if the slur starts on a grace note
if (sl.grace)
sl.grace.sl1 = true
return
}
// the lack of a starting slur may be due to a repeat
for (s2 = s.prev; s2; s2 = s2.prev) {
if (s2.type == C.BAR
&& s2.bar_type[0] == ':'
&& s2.text) {
if (!s2.sls)
s2.sls = [];
s2.sls.push({
//fixme: should go back to the bar "|1" and find the slur type...
ty: C.SL_AUTO,
ss: s2,
se: s
})
if (nt)
s2.sls[s2.sls.length - 1].nte = nt
return
}
}
// syntax(1, "End of slur without start")
if (!s.sls)
s.sls = [];
s.sls.push({
ty: C.SL_AUTO,
se: s,
loc: 'i' // no slur start
})
if (nt)
s.sls[s.sls.length - 1].nte = nt
}
// convert a diatonic pitch and accidental to a MIDI pitch with cents
function pit2mid(pit, acc) {
var p = [0, 2, 4, 5, 7, 9, 11][pit % 7], // chromatic pitch
o = ((pit / 7) | 0) * 12, // octave
p0, p1, s, b40
if (curvoice.snd_oct)
o += curvoice.snd_oct
if (acc == 3) // if natural accidental
acc = 0
if (acc) {
if (typeof acc == "object") {
s = acc[0] / acc[1] // microtonal accidental
if (acc[1] == 100) // in cents
return p + o + s
} else {
s = acc // simple accidental
}
} else {
if (cfmt.temper)
return cfmt.temper[abc2svg.p_b40[pit % 7]] + o
return p + o
}
if (!cfmt.nedo) { // non equal temperament
if (!cfmt.temper) {
p += o + s // standard temperament
return p
}
} else { // equal temperament
if (typeof acc != "object") { // if not a fraction
b40 = abc2svg.p_b40[pit % 7] + acc
return cfmt.temper[b40] + o
}
if (acc[1] == cfmt.nedo) { // fraction of the edo divider
b40 = abc2svg.p_b40[pit % 7]
return cfmt.temper[b40] + o + s
}
}
p0 = cfmt.temper[abc2svg.p_b40[pit % 7]] // main note
if (s > 0) { // sharp
p1 = cfmt.temper[(abc2svg.p_b40[pit % 7] + 1) % 40]
if (p1 < p0)
p1 += 12
} else { // flat
p1 = cfmt.temper[(abc2svg.p_b40[pit % 7] + 39) % 40]
if (p1 > p0)
p1 -= 12
s = -s
}
return p0 + o + (p1 - p0) * s
} // pit2mid()
// handle the ties
// @s = tie ending smbol
// @tei_s = tie starting symbol
function do_ties(s, tie_s) {
var i, m, not1, not2, mid, g,
nt = 0,
se = (tie_s.time + tie_s.dur) == curvoice.time // 'start-end' flag
for (m = 0; m <= s.nhd; m++) {
not2 = s.notes[m]
mid = not2.midi
if (tie_s.type != C.GRACE) {
for (i = 0; i <= tie_s.nhd; i++) {
not1 = tie_s.notes[i]
if (!not1.tie_ty)
continue
if (not1.midi == mid
&& (!se
|| !not1.tie_e)) { // (if unison)
not2.tie_s = not1
not2.s = s
if (se) {
not1.tie_e = not2
not1.s = tie_s
}
nt++
break
}
}
} else {
for (g = tie_s.extra; g; g = g.next) {
not1 = g.notes[0] // (fixme: only one note)
if (!not1.tie_ty)
continue
if (not1.midi == mid) {
g.ti1 = true
not2.tie_s = not1
not2.s = s
not1.tie_e = not2
not1.s = g
nt++
break
}
}
}
}
if (!nt)
error(1, tie_s, "Bad tie")
else
s.ti2 = true
} // do_ties()
// (possible hook)
Abc.prototype.new_note = function(grace, sls) {
var note, s, in_chord, c, dcn, type, tie_s, acc_tie,
i, n, s2, nd, res, num, dur, apit, div, ty,
dpit = 0,
sl1 = [],
line = parse.line,
a_dcn_sav = a_dcn // save parsed decoration names
a_dcn = []
parse.stemless = false;
s = {
type: C.NOTE,
fname: parse.fname,
stem: 0,
multi: 0,
nhd: 0,
xmx: 0
}
s.istart = parse.bol + line.index
if (curvoice.color)
s.color = curvoice.color
if (grace) {
s.grace = true
} else {
if (curvoice.tie_s) { // if tie from previous note / grace note
tie_s = curvoice.tie_s
curvoice.tie_s = null
}
if (a_gch)
csan_add(s)
if (parse.repeat_n) {
s.repeat_n = parse.repeat_n;
s.repeat_k = parse.repeat_k;
parse.repeat_n = 0
}
}
c = line.char()
switch (c) {
case 'X':
s.invis = true
case 'Z':
s.type = C.MREST;
c = line.next_char()
s.nmes = (c > '0' && c <= '9') ? line.get_int() : 1;
if (curvoice.wmeasure == 1) {
error(1, s, "multi-measure rest, but no measure!")
return
}
s.dur = curvoice.wmeasure * s.nmes
// ignore if in second voice
if (curvoice.second) {
delete curvoice.eoln // ignore the end of line
curvoice.time += s.dur
return //null
}
// convert 'Z'/'Z1' to a whole measure rest
if (s.nmes == 1) {
s.type = C.REST;
s.dur_orig = s.dur;
s.fmr = 1 // full measure rest
s.notes = [{
pit: 18,
dur: s.dur
}]
} else {
glovar.mrest_p = true
if (par_sy.voices.length == 1) {
s.tacet = curvoice.tacet
delete s.invis // show the 'H' when 'Xn'
}
}
break
case 'y':
s.type = C.SPACE;
s.invis = true;
s.dur = 0;
c = line.next_char()
if (c >= '0' && c <= '9')
s.width = line.get_int()
else
s.width = 10
if (tie_s) {
curvoice.tie_s = tie_s
tie_s = null
}
break
case 'x':
s.invis = true
case 'z':
s.type = C.REST;
line.index++;
nd = parse_dur(line);
s.dur_orig = ((curvoice.ulen < 0) ?
C.BLEN :
curvoice.ulen) * nd[0] / nd[1];
s.dur = s.dur_orig * curvoice.dur_fact;
if (s.dur == curvoice.wmeasure)
s.fmr = 1 // full measure rest
s.notes = [{
pit: 18,
dur: s.dur_orig
}]
break
case '[': // chord
in_chord = true;
c = line.next_char()
// fall thru
default: // accidental, chord, note
if (curvoice.acc_tie) {
acc_tie = curvoice.acc_tie
curvoice.acc_tie = null
}
s.notes = []
// loop on the chord
while (1) {
// when in chord, get the slurs and decorations
if (in_chord) {
while (1) {
if (!c)
break
i = c.charCodeAt(0);
if (i >= 128) {
syntax(1, errs.not_ascii)
return //null
}
type = char_tb[i]
switch (type[0]) {
case '(':
sl1.push(parse_vpos());
c = line.char()
continue
case '!':
if (type.length > 1)
a_dcn.push(type.slice(1, -1))
else
get_deco() // line -> a_dcn
c = line.next_char()
continue
}
break
}
}
note = parse_basic_note(line,
s.grace ? C.BLEN / 4 :
curvoice.ulen < 0 ?
C.BLEN :
curvoice.ulen)
if (!note)
return //null
if (curvoice.octave)
note.pit += curvoice.octave * 7
// get the real accidental
apit = note.pit + 19 // pitch from C-1
i = note.acc
if (!i) {
if (cfmt["propagate-accidentals"][0] == 'p')
i = curvoice.acc[apit % 7]
else
i = curvoice.acc[apit]
if (!i)
i = curvoice.ckey.k_map[apit % 7] || 0
}
if (i) {
if (cfmt["propagate-accidentals"][0] == 'p')
curvoice.acc[apit % 7] = i
else if (cfmt["propagate-accidentals"][0] != 'n')
curvoice.acc[apit] = i
}
if (acc_tie && acc_tie[apit])
i = acc_tie[apit] // tied note
// set the MIDI pitch
if (!note.midi) // if not map play
note.midi = pit2mid(apit, i)
// transpose
if (curvoice.map
&& maps[curvoice.map])
set_map(curvoice, note, i) // transpose not done
if (curvoice.tr_sco) {
if (!note.notrp) {
i = nt_trans(note, i)
if (i == -3) { // if triple sharp/flat
error(1, s, "triple sharp/flat")
i = note.acc > 0 ? 1 : -1
note.pit += i
note.acc = i
}
dpit = note.pit + 19 - apit
}
}
if (curvoice.tr_snd)
note.midi += curvoice.tr_snd
//fixme: does not work if transposition
if (i) {
switch (cfmt["writeout-accidentals"][1]) {
case 'd': // added
s2 = curvoice.ckey
if (!s2.k_a_acc)
break
for (n = 0; n < s2.k_a_acc.length; n++) {
if ((s2.k_a_acc[n].pit - note.pit)
% 7 == 0) {
note.acc = i
break
}
}
break
case 'l': // all
note.acc = i
break
}
}
// starting slurs
if (sl1.length) {
while (1) {
i = sl1.shift()
if (!i)
break
curvoice.sls.push({
ty: i,
ss: s,
nts: note // starting note
})
}
}
if (a_dcn.length) {
s.time = curvoice.time // (needed for !tie)!
dh_cnv(s, note)
}
s.notes.push(note)
if (!in_chord)
break
// in chord: get the ending slurs and the ties
c = line.char()
while (1) {
switch (c) {
case ')':
slur_add(s, note)
c = line.next_char()
continue
case '-':
note.tie_ty = parse_vpos()
note.s = s
curvoice.tie_s = s
s.ti1 = true
if (curvoice.acc[apit]
|| (acc_tie
&& acc_tie[apit])) {
if (!curvoice.acc_tie)
curvoice.acc_tie = []
i = curvoice.acc[apit]
if (acc_tie && acc_tie[apit])
i = acc_tie[apit]
curvoice.acc_tie[apit] = i
}
c = line.char()
continue
case '.':
c = line.next_char()
switch (c) {
case '-':
case '(':
a_dcn.push("dot")
continue
}
syntax(1, "Misplaced dot")
break
}
break
}
if (c == ']') {
line.index++;
// adjust the chord duration
nd = parse_dur(line);
s.nhd = s.notes.length - 1
for (i = 0; i <= s.nhd ; i++) {
note = s.notes[i];
note.dur = note.dur * nd[0] / nd[1]
}
break
}
}
// handle the starting slurs
if (sls.length) {
while (1) {
i = sls.shift()
if (!i)
break
curvoice.sls.push({
ty: i,
ss: s
// no starting note
})
if (grace)
curvoice.sls[curvoice.sls.length - 1].grace =
grace
}
}
// the duration of the chord is the duration of the 1st note
s.dur_orig = s.notes[0].dur;
s.dur = s.notes[0].dur * curvoice.dur_fact
break
}
if (s.grace && s.type != C.NOTE) {
syntax(1, errs.bad_grace)
return //null
}
if (s.notes) { // if note or rest
if (!grace) {
switch (curvoice.pos.stm & 0x07) {
case C.SL_ABOVE: s.stem = 1; break
case C.SL_BELOW: s.stem = -1; break
case C.SL_HIDDEN: s.stemless = true; break
}
// adjust the symbol duration
num = curvoice.brk_rhythm
if (num) {
curvoice.brk_rhythm = 0;
s2 = curvoice.last_note
if (num > 0) {
n = num * 2 - 1;
s.dur = s.dur * n / num;
s.dur_orig = s.dur_orig * n / num
for (i = 0; i <= s.nhd; i++)
s.notes[i].dur =
s.notes[i].dur * n / num;
s2.dur /= num;
s2.dur_orig /= num
for (i = 0; i <= s2.nhd; i++)
s2.notes[i].dur /= num
} else {
num = -num;
n = num * 2 - 1;
s.dur /= num;
s.dur_orig /= num
for (i = 0; i <= s.nhd; i++)
s.notes[i].dur /= num;
s2.dur = s2.dur * n / num;
s2.dur_orig = s2.dur_orig * n / num
for (i = 0; i <= s2.nhd; i++)
s2.notes[i].dur =
s2.notes[i].dur * n / num
}
curvoice.time = s2.time + s2.dur;
// adjust the time of the grace notes, bars...
for (s2 = s2.next; s2; s2 = s2.next)
s2.time = curvoice.time
}
} else { /* grace note - adjust its duration */
div = curvoice.ckey.k_bagpipe ? 8 : 4
for (i = 0; i <= s.nhd; i++)
s.notes[i].dur /= div;
s.dur /= div;
s.dur_orig /= div
if (grace.stem)
s.stem = grace.stem
}
curvoice.last_note = s
// get the possible ties and end of slurs
c = line.char()
while (1) {
switch (c) {
case '.':
if (line.buffer[line.index + 1] != '-')
break
a_dcn.push("dot")
line.index++
// fall thru
case '-':
ty = parse_vpos()
for (i = 0; i <= s.nhd; i++) {
s.notes[i].tie_ty = ty
s.notes[i].s = s
}
curvoice.tie_s = grace || s
curvoice.tie_s.ti1 = true
for (i = 0; i <= s.nhd; i++) {
note = s.notes[i]
apit = note.pit + 19 // pitch from C-1
- dpit // (if transposition)
if (curvoice.acc[apit]
|| (acc_tie
&& acc_tie[apit])) {
if (!curvoice.acc_tie)
curvoice.acc_tie = []
n = curvoice.acc[apit]
if (acc_tie && acc_tie[apit])
n = acc_tie[apit]
curvoice.acc_tie[apit] = n
}
}
c = line.char()
continue
}
break
}
// handle the ties ending on this chord/note
if (tie_s) // if tie from previous note / grace note
do_ties(s, tie_s)
}
sym_link(s)
if (!grace) {
if (!curvoice.lyric_restart)
curvoice.lyric_restart = s
if (!curvoice.sym_restart)
curvoice.sym_restart = s
}
if (a_dcn_sav.length) {
a_dcn = a_dcn_sav
deco_cnv(s, s.prev)
}
if (grace && s.ottava)
grace.ottava = s.ottava
if (parse.stemless)
s.stemless = true
s.iend = parse.bol + line.index
return s
}
// adjust the duration of the elements in a tuplet
function tp_adj(s, fact) {
var d,
tim = s.time,
to = curvoice.time - tim, // previous delta time
tt = to * fact // new delta time
curvoice.time = tim + tt
while (1) {
//fixme: tuplets in grace notes?
s.in_tuplet = true
if (!s.grace) {
s.time = tim
if (s.dur) {
d = Math.round(s.dur * tt / to) // new duration
to -= s.dur // old remaining time
s.dur = d
tt -= s.dur // new remaining time
tim += s.dur
}
}
if (!s.next) {
if (s.tpe)
s.tpe++
else
s.tpe = 1
break
}
s = s.next
}
} // tp_adj()
// get a decoration
function get_deco() {
var c,
line = parse.line,
i = line.index, // in case no deco end
dcn = ""
while (1) {
c = line.next_char()
if (!c) {
line.index = i
syntax(1, "No end of decoration")
return
}
if (c == '!')
break
dcn += c
}
a_dcn.push(dcn)
} // get_deco()
// characters in the music line (ASCII only)
var nil = "0",
char_tb = [
nil, nil, nil, nil, /* 00 - .. */
nil, nil, nil, nil,
nil, " ", "\n", nil, /* . \t \n . */
nil, nil, nil, nil,
nil, nil, nil, nil,
nil, nil, nil, nil,
nil, nil, nil, nil,
nil, nil, nil, nil, /* .. - 1f */
" ", "!", '"', "i", /* (sp) ! " # */
"\n", nil, "&", nil, /* $ % & ' */
"(", ")", "i", nil, /* ( ) * + */
nil, "-", "!dot!", nil, /* , - . / */
nil, nil, nil, nil, /* 0 1 2 3 */
nil, nil, nil, nil, /* 4 5 6 7 */
nil, nil, "|", "i", /* 8 9 : ; */
"<", "n", "<", "i", /* < = > ? */
"i", "n", "n", "n", /* @ A B C */
"n", "n", "n", "n", /* D E F G */
"!fermata!", "d", "d", "d", /* H I J K */
"!emphasis!", "!lowermordent!",
"d", "!coda!", /* L M N O */
"!uppermordent!", "d",
"d", "!segno!", /* P Q R S */
"!trill!", "d", "d", "d", /* T U V W */
"n", "d", "n", "[", /* X Y Z [ */
"\\","|", "n", "n", /* \ ] ^ _ */
"i", "n", "n", "n", /* ` a b c */
"n", "n", "n", "n", /* d e f g */
"d", "d", "d", "d", /* h i j k */
"d", "d", "d", "d", /* l m n o */
"d", "d", "d", "d", /* p q r s */
"d", "!upbow!",
"!downbow!", "d", /* t u v w */
"n", "n", "n", "{", /* x y z { */
"|", "}", "!gmark!", nil, /* | } ~ (del) */
] // char_tb[]
function parse_music_line() {
var grace, last_note_sav, a_dcn_sav, no_eol, s, tps,
tp = [],
tpn = -1,
sls = [],
line = parse.line
// check if a transposing macro matches a source sequence
// if yes return the base note
function check_mac(m) {
var i, j, b
for (i = 1, j = line.index + 1; i < m.length; i++, j++) {
if (m[i] == line.buffer[j])
continue
if (m[i] != 'n') // search the base note
return //undefined
b = ntb.indexOf(line.buffer[j])
if (b < 0)
return //undefined
while (line.buffer[j + 1] == "'") {
b += 7;
j++
}
while (line.buffer[j + 1] == ',') {
b -= 7;
j++
}
}
line.index = j
return b
} // check_mac()
// convert a note as a number into a note as a ABC string
function n2n(n) {
var c = ''
while (n < 0) {
n += 7;
c += ','
}
while (n >= 14) {
n -= 7;
c += "'"
}
return ntb[n] + c
} // n2n()
// expand a transposing macro
function expand(m, b) {
if (b == undefined) // if static macro
return m
var c, i,
r = "", // result
n = m.length
for (i = 0; i < n; i++) {
c = m[i]
if (c >= 'h' && c <= 'z') {
r += n2n(b + c.charCodeAt(0) - 'n'.charCodeAt(0))
} else {
r += c
}
}
return r
} // expand()
// parse a macro
function parse_mac(k, m, b) {
var te, ti, curv, s,
line_sav = line,
istart_sav = parse.istart;
parse.line = line = new scanBuf;
parse.istart += line_sav.index;
// if the macro is not displayed
if (cfmt.writefields.indexOf('m') < 0) {
// build the display sequence from the original sequence
line.buffer = k.replace('n', n2n(b))
s = curvoice.last_sym
ti = curvoice.time // start time
parse_seq(true)
if (!s)
s = curvoice.sym
for (s = s.next ; s; s = s.next)
s.noplay = true
te = curvoice.time // end time
curv = curvoice
// and put the macro sequence in a play specific voice
curvoice = clone_voice(curv.id + '-p')
if (!par_sy.voices[curvoice.v]) {
curvoice.second = true
par_sy.voices[curvoice.v] = {
st: curv.st,
second: true,
range: curvoice.v
}
}
curvoice.time = ti
s = curvoice.last_sym
parse.line = line = new scanBuf
parse.istart += line_sav.index
line.buffer = expand(m, b)
parse_seq(true)
if (curvoice.time != te)
syntax(1, "Bad length of the macro sequence")
if (!s)
s = curvoice.sym
for ( ; s; s = s.next)
s.invis = s.play = true
curvoice = curv
} else {
line.buffer = expand(m, b)
parse_seq(true)
}
parse.line = line = line_sav
parse.istart = istart_sav
} // parse_mac()
// parse a music sequence
function parse_seq(in_mac) {
var c, idx, type, k, s, dcn, i, n, text, note
while (1) {
c = line.char()
if (!c)
break
// check if start of a macro
if (!in_mac && maci[c]) {
n = undefined
for (k in mac) {
if (!mac.hasOwnProperty(k)
|| k[0] != c)
continue
if (k.indexOf('n') < 0) {
if (line.buffer.indexOf(k, line.index)
!= line.index)
continue
line.index += k.length
} else {
n = check_mac(k)
if (n == undefined)
continue
}
parse_mac(k, mac[k], n)
n = 1
break
}
if (n)
continue
}
idx = c.charCodeAt(0)
if (idx >= 128) {
syntax(1, errs.not_ascii)
line.index++
break
}
type = char_tb[idx]
switch (type[0]) {
case ' ': // beam break
s = curvoice.last_note
if (s) {
s.beam_end = true
if (grace)
grace.gr_shift = true
}
break
case '\n': // line break
if (cfmt.barsperstaff)
break
curvoice.eoln = true
break
case '&': // voice overlay
if (grace) {
syntax(1, errs.bad_grace)
break
}
c = line.next_char()
if (c == ')') {
get_vover(c) // full overlay stop
break
}
get_vover('&')
continue
case '(': // slur start - tuplet - vover
c = line.next_char()
if (c > '0' && c <= '9') { // tuplet
if (grace) {
syntax(1, errs.bad_grace)
break
}
var pplet = line.get_int(),
qplet = qplet_tb[pplet],
rplet = pplet
c = line.char()
if (c == ':') {
c = line.next_char()
if (c > '0' && c <= '9') {
qplet = line.get_int();
c = line.char()
}
if (c == ':') {
c = line.next_char()
if (c > '0' && c <= '9') {
rplet = line.get_int();
c = line.char()
} else {
syntax(1, "Invalid 'r' in tuplet")
continue
}
}
}
if (qplet == 0 || qplet == undefined)
qplet = (curvoice.wmeasure % 9) == 0 ?
3 : 2;
if (tpn < 0)
tpn = tp.length // new tuplet
tp.push({
p: pplet,
q: qplet,
r: rplet,
ro: rplet,
f: curvoice.tup || cfmt.tuplets
})
continue
}
if (c == '&') { // voice overlay start
if (grace) {
syntax(1, errs.bad_grace)
break
}
get_vover('(')
break
}
line.index--;
sls.push(parse_vpos())
continue
case ')': // slur end
s = curvoice.last_sym
if (s) {
switch (s.type) {
case C.SPACE:
if (!s.notes) {
s.notes = []
s.notes[0] = {}
}
case C.NOTE:
case C.REST:
break
case C.GRACE:
// stop the slur on the last grace note
for (s = s.extra; s.next; s = s.next)
;
break
default:
s = null
break
}
}
if (!s) {
syntax(1, errs.bad_char, c)
break
}
slur_add(s)
break
case '!': // start of decoration
if (type.length > 1) // decoration letter
a_dcn.push(type.slice(1, -1))
else
get_deco() // (line -> a_dcn)
break
case '"':
if (grace) {
syntax(1, errs.bad_grace)
break
}
parse_gchord(type)
break
case '[':
if (type.length > 1) { // U: [I:xxx]
self.do_pscom(type.slice(3, -1))
break
}
var c_next = line.buffer[line.index + 1]
if ('|[]: "'.indexOf(c_next) >= 0
|| (c_next >= '1' && c_next <= '9')) {
if (grace) {
syntax(1, errs.bar_grace)
break
}
new_bar()
continue
}
if (line.buffer[line.index + 2] == ':') {
if (grace) {
syntax(1, errs.bad_grace)
break
}
i = line.buffer.indexOf(']', line.index + 1)
if (i < 0) {
syntax(1, "Lack of ']'")
break
}
text = line.buffer.slice(line.index + 3, i).trim()
parse.istart = parse.bol + line.index;
parse.iend = parse.bol + ++i;
line.index = 0;
do_info(c_next, text);
line.index = i
continue
}
// fall thru ('[' is start of chord)
case 'n': // note/rest
s = self.new_note(grace, sls)
if (!s)
continue
// handle the tuplets
if (grace || !s.notes)
continue
if (tpn >= 0) { // new tuplet
s.tp = tp.slice(tpn)
tpn = -1
if (tps)
s.tp[0].s = tps // if nested
tps = s
} else if (!tps) {
continue // no tuplet active
}
k = tp[tp.length - 1]
if (--k.r > 0)
continue // not end of tuplet yet
while (1) {
tp_adj(tps, k.q / k.p)
i = k.ro // number of notes of this tuplet
if (k.s)
tps = k.s // start of upper tuplet
tp.pop() // previous level
if (!tp.length) {
tps = null // done
break
}
k = tp[tp.length - 1]
k.r -= i
if (k.r > 0)
break
}
continue
case '<': /* '<' and '>' */
if (!curvoice.last_note) {
syntax(1, "No note before '<'")
break
}
if (grace) {
syntax(1, "Cannot have a broken rhythm in grace notes")
break
}
n = c == '<' ? 1 : -1
while (c == '<' || c == '>') {
n *= 2;
c = line.next_char()
}
curvoice.brk_rhythm = n
continue
case 'i': // ignore
break
case '{':
if (grace) {
syntax(1, "'{' in grace note")
break
}
last_note_sav = curvoice.last_note;
curvoice.last_note = null;
a_dcn_sav = a_dcn;
a_dcn = []
grace = {
type: C.GRACE,
fname: parse.fname,
istart: parse.bol + line.index,
dur: 0,
multi: 0
}
if (curvoice.color)
grace.color = curvoice.color
switch (curvoice.pos.gst & 0x07) {
case C.SL_ABOVE: grace.stem = 1; break
case C.SL_BELOW: grace.stem = -1; break
case C.SL_HIDDEN: grace.stem = 2; break /* opposite */
}
sym_link(grace);
c = line.next_char()
if (c == '/') {
grace.sappo = true // acciaccatura
break
}
continue
case '|':
if (grace) {
syntax(1, errs.bar_grace)
break
}
new_bar()
continue
case '}':
if (curvoice.ignore) {
grace = null
break
}
s = curvoice.last_note
if (!grace || !s) {
syntax(1, errs.bad_char, c)
break
}
if (a_dcn.length)
syntax(1, "Decoration ignored");
grace.extra = grace.next;
grace.extra.prev = null;
grace.next = null;
curvoice.last_sym = grace;
grace = null
if (!s.prev // if one grace note
&& !curvoice.ckey.k_bagpipe) {
for (i = 0; i <= s.nhd; i++)
s.notes[i].dur *= 2;
s.dur *= 2;
s.dur_orig *= 2
}
curvoice.last_note = last_note_sav;
a_dcn = a_dcn_sav
break
case "\\":
if (!line.buffer[line.index + 1]) {
no_eol = true
break
}
// fall thru
default:
syntax(1, errs.bad_char, c)
break
}
line.index++
}
} // parse_seq()
if (parse.state != 3) // if not in tune body
return
if (parse.tp) {
tp = parse.tp
tpn = parse.tpn
tps = parse.tps
parse.tp = null
}
parse_seq()
if (tp.length) {
parse.tp = tp
parse.tps = tps
parse.tpn = tpn
}
if (sls.length)
syntax(1, "Start of slur without note")
if (grace) {
syntax(1, "No end of grace note sequence");
curvoice.last_sym = grace.prev;
curvoice.last_note = last_note_sav
if (grace.prev)
grace.prev.next = null
}
if (!no_eol && !cfmt.barsperstaff && !vover
&& char_tb['\n'.charCodeAt(0)] == '\n')
curvoice.eoln = true
if (curvoice.eoln && cfmt.breakoneoln && curvoice.last_note)
curvoice.last_note.beam_end = true
}
// abc2svg - subs.js - text output
//
// Copyright (C) 2014-2023 Jean-Francois Moine
//
// This file is part of abc2svg-core.
//
// abc2svg-core is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg-core is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg-core. If not, see .
// add font styles
var sheet
var add_fstyle = typeof document != "undefined" ?
function(s) {
var e
if (cfmt.fullsvg)
font_style += "\n" + s
if (!sheet) {
if (abc2svg.sheet) { // if styles from a previous generation
sheet = abc2svg.sheet
e = sheet.cssRules.length
while (--e >= 0)
sheet.deleteRule(e)
} else {
e = document.createElement('style')
document.head.appendChild(e)
abc2svg.sheet = sheet = e.sheet
}
}
s = s.match(/[^{]+{[^}]+}/g) // insert each style
while (1) {
e = s.shift()
if (!e)
break
sheet.insertRule(e, sheet.cssRules.length)
}
} // add_fstyle()
: function(s) { font_style += "\n" + s }
// width of characters according to the font type
// these tables were created from the font 'Liberation'
// serif
var
sw_tb = new Float32Array([
.000,.000,.000,.000,.000,.000,.000,.000, // 00
.000,.000,.000,.000,.000,.000,.000,.000,
.000,.000,.000,.000,.000,.000,.000,.000, // 10
.000,.000,.000,.000,.000,.000,.000,.000,
.250,.333,.408,.500,.500,.833,.778,.333, // 20
.333,.333,.500,.564,.250,.564,.250,.278,
.500,.500,.500,.500,.500,.500,.500,.500, // 30
.500,.500,.278,.278,.564,.564,.564,.444,
.921,.722,.667,.667,.722,.611,.556,.722, // 40
.722,.333,.389,.722,.611,.889,.722,.722,
.556,.722,.667,.556,.611,.722,.722,.944, // 50
.722,.722,.611,.333,.278,.333,.469,.500,
.333,.444,.500,.444,.500,.444,.333,.500, // 60
.500,.278,.278,.500,.278,.778,.500,.500,
.500,.500,.333,.389,.278,.500,.500,.722, // 70
.500,.500,.444,.480,.200,.480,.541,.500]),
// sans-serif
ssw_tb = new Float32Array([
.000,.000,.000,.000,.000,.000,.000,.000, // 00
.000,.000,.000,.000,.000,.000,.000,.000,
.000,.000,.000,.000,.000,.000,.000,.000, // 10
.000,.000,.000,.000,.000,.000,.000,.000,
.278,.278,.355,.556,.556,.889,.667,.191, // 20
.333,.333,.389,.584,.278,.333,.278,.278,
.556,.556,.556,.556,.556,.556,.556,.556, // 30
.556,.556,.278,.278,.584,.584,.584,.556,
1.015,.667,.667,.722,.722,.667,.611,.778, // 40
.722,.278,.500,.667,.556,.833,.722,.778,
.667,.778,.722,.667,.611,.722,.667,.944, // 50
.667,.667,.611,.278,.278,.278,.469,.556,
.333,.556,.556,.500,.556,.556,.278,.556, // 60
.556,.222,.222,.500,.222,.833,.556,.556,
.556,.556,.333,.500,.278,.556,.500,.722, // 70
.500,.500,.500,.334,.260,.334,.584,.512]),
// monospace
mw_tb = new Float32Array([
.0,.0,.0,.0,.0,.0,.0,.0, // 00
.0,.0,.0,.0,.0,.0,.0,.0,
.0,.0,.0,.0,.0,.0,.0,.0, // 10
.0,.0,.0,.0,.0,.0,.0,.0,
.52,.52,.52,.52,.52,.52,.52,.52, // 20
.52,.52,.52,.52,.52,.52,.52,.52,
.52,.52,.52,.52,.52,.52,.52,.52, // 30
.52,.52,.52,.52,.52,.52,.52,.52,
.52,.52,.52,.52,.52,.52,.52,.52, // 40
.52,.52,.52,.52,.52,.52,.52,.52,
.52,.52,.52,.52,.52,.52,.52,.52, // 50
.52,.52,.52,.52,.52,.52,.52,.52,
.52,.52,.52,.52,.52,.52,.52,.52, // 60
.52,.52,.52,.52,.52,.52,.52,.52,
.52,.52,.52,.52,.52,.52,.52,.52, // 70
.52,.52,.52,.52,.52,.52,.52,.52])
/* -- return the character width -- */
function cwid(c, font) {
var i = c.charCodeAt(0) // utf-16
if (i >= 0x80) { // if not ASCII
if (i >= 0x300 && i < 0x370)
return 0; // combining diacritical mark
i = 0x61 // 'a'
}
return (font || gene.curfont).cw_tb[i]
}
// return the character width with the current font
function cwidf(c) {
return cwid(c) * gene.curfont.swfac
}
// estimate the width and height of a string ..
var strwh
(function() {
if (typeof document != "undefined") {
// .. by the browser
// create a text element if not done yet
var el
// change the function
strwh = function(str) {
if (str.wh)
return str.wh
if (!el) {
el = document.createElement('text')
el.style.position = 'absolute'
el.style.top = '-1000px'
el.style.padding = '0'
el.style.visibility = "hidden"
document.body.appendChild(el)
}
var c,
font = gene.curfont,
h = font.size,
w = 0,
n = str.length,
i0 = 0,
i = 0
el.className = font_class(font)
el.style.lineHeight = 1
if (typeof str == "object") { // if string already converted
el.innerHTML = str
str.wh = [ el.clientWidth, el.clientHeight ]
return str.wh
}
str = str.replace(/<|>|&[^&\s]*?;|&/g, function(c){
switch (c) {
case '<': return "<"
case '>': return ">"
case '&': return "&"
}
return c // &xxx;
})
while (1) {
i = str.indexOf('$', i)
if (i >= 0) {
c = str[i + 1]
if (c == '0') {
font = gene.deffont
} else if (c >= '1' && c <= '9') {
font = get_font("u" + c)
} else {
i++
continue
}
}
el.innerHTML = str.slice(i0, i >= 0 ? i : undefined)
w += el.clientWidth
//fixme: bad width if space(s) at end of string
if (el.clientHeight > h)
h = el.clientHeight
if (i < 0)
break
el.style.font = style_font(font).slice(5);
i += 2;
i0 = i
}
return [w, h]
}
} else {
// .. by internal tables
strwh = function(str) {
var font = gene.curfont,
swfac = font.swfac,
h = font.size,
w = 0,
i, j, c,
n = str.length
for (i = 0; i < n; i++) {
c = str[i]
switch (c) {
case '$':
c = str[i + 1]
if (c == '0') {
font = gene.deffont
} else if (c >= '1' && c <= '9') {
font = get_font("u" + c)
} else {
c = '$'
break
}
i++;
swfac = font.swfac
if (font.size > h)
h = font.size
continue
case '&':
if (str[i + 1] == ' ')
break // normal '&'
j = str.indexOf(';', i)
if (j > 0 && j - i < 10) {
i = j;
c = 'a' // XML character reference
}
break
}
w += cwid(c, font) * swfac
}
return [w, h]
}
}
})()
// convert a string to a SVG text, handling the font changes
// The string size is memorized into the String.
function str2svg(str) {
// check if the string is already converted
if (typeof str == "object")
return str
var n_font, wh,
o_font = gene.deffont,
c_font = gene.curfont,
o = ""
// start a '' element
function tspan(nf, of) {
var cl
if (nf.class
&& nf.name == of.name
&& nf.size == of.size
&& nf.weight == of.weight
&& nf.style == of.style)
cl = nf.class // change only the class
else
cl = font_class(nf)
return ''
} // tspan()
if (c_font != o_font)
o = tspan(c_font, o_font)
o += str.replace(/<|>|&[^&\s]*?;|&|\$./g, function(c){
switch (c) {
case '<': return "<"
case '>': return ">"
case '&': return "&"
default:
if (c[0] != '$')
break
if (c[1] == '0')
n_font = gene.deffont
else if (c[1] >= '1' && c[1] <= '9')
n_font = get_font("u" + c[1])
else
break
c = ''
if (n_font == c_font)
return c
if (c_font != o_font)
c = ""
c_font = n_font
if (c_font == o_font)
return c
return c + tspan(c_font, o_font)
}
return c // &xxx;
})
if (c_font != o_font)
o += ""
// convert to String and memorize the string width and height
o = new String(o)
if (typeof document != "undefined")
strwh(o) // browser
else
o.wh = strwh(str) // CLI
gene.curfont = c_font // keep the current font for the next paragraph
return o
} // str2svg()
// set the default and current font
function set_font(xxx) {
if (typeof xxx == "string")
xxx = get_font(xxx)
gene.curfont = gene.deffont = xxx
}
// output a string handling the font changes
function out_str(str) {
output += str2svg(str)
}
// output a string, handling the font changes
// the action is:
// 'c' align center
// 'r' align right
// 'j' justify - w is the line width
// otherwise align left
function xy_str(x, y,
str, // string or object String with attribute 'wh'
action, // default: align left
w, // needed for justify
wh) { // optional [width, height]
if (!wh)
wh = str.wh || strwh(str)
if (cfmt.trimsvg) {
var wx = wh[0]
switch (action) {
case 'c':
wx = wh[0] / 2
break
case 'j':
wx = w
break
case 'r':
wx = 0
break
}
if (img.wx < x + wx)
img.wx = x + wx
}
output += ''
break
case 'j':
output += '" textLength="' + w.toFixed(1) + '">'
break
case 'r':
output += '" text-anchor="end">'
break
default:
output += '">'
break
}
out_str(str);
output += "\n"
}
// move last capitalized word to front when after a comma
function trim_title(title, is_subtitle) {
var i
if (cfmt.titletrim) {
i = title.lastIndexOf(", ")
if (i < 0 || title[i + 2] < 'A' || title[i + 2] > 'Z') {
i = 0
} else if (cfmt.titletrim == 1) { // (true) compatibility
if (i < title.length - 7
|| title.indexOf(' ', i + 3) >= 0)
i = 0
} else {
if (i < title.length - cfmt.titletrim - 2)
i = 0
}
if (i)
title = title.slice(i + 2).trim() + ' ' + title.slice(0, i)
}
if (!is_subtitle
&& cfmt.writefields.indexOf('X') >= 0)
title = info.X + '. ' + title
if (cfmt.titlecaps)
return title.toUpperCase()
return title
}
// return the width of the music line
function get_lwidth() {
if (img.chg)
set_page()
return (img.width - img.lm - img.rm
- 2) // for bar thickness at eol
/ cfmt.scale
}
// header generation functions
function write_title(title, is_subtitle) {
var h, wh
if (!title)
return
set_page();
title = trim_title(title, is_subtitle)
if (is_subtitle) {
set_font("subtitle");
h = cfmt.subtitlespace
} else {
set_font("title");
h = cfmt.titlespace
}
wh = strwh(title)
wh[1] += gene.curfont.pad * 2
vskip(wh[1] + h + gene.curfont.pad)
h = gene.curfont.pad + wh[1] * .22 // + descent
if (cfmt.titleleft)
xy_str(0, h, title, null, null, wh)
else
xy_str(get_lwidth() / 2, h, title, "c", null, wh)
}
/* -- output a header format '111 (222)' -- */
function put_inf2r(x, y, str1, str2, action) {
if (!str1) {
if (!str2)
return
str1 = str2;
str2 = null
}
if (!str2)
xy_str(x, y, str1, action)
else
xy_str(x, y, str1 + ' (' + str2 + ')', action)
}
/* -- write a text block (%%begintext / %%text / %%center) -- */
function write_text(text, action) {
if (action == 's')
return // skip
set_page();
var wh, font, o,
strlw = get_lwidth(),
sz = gene.curfont.size,
lineskip = sz * cfmt.lineskipfac,
parskip = sz * cfmt.parskipfac,
i, j, x, words, w, k, ww, str;
switch (action) {
default:
// case 'c':
// case 'r':
font = gene.curfont
switch (action) {
case 'c': x = strlw / 2; break
case 'r': x = strlw - font.pad; break
default: x = font.pad; break
}
j = 0
while (1) {
i = text.indexOf('\n', j)
if (i == j) { // new paragraph
vskip(parskip);
blk_flush()
use_font(gene.curfont)
while (text[i + 1] == '\n') {
vskip(lineskip);
i++
}
if (i == text.length)
break
} else {
if (i < 0)
str = text.slice(j)
else
str = text.slice(j, i)
ww = strwh(str)
vskip(ww[1] * cfmt.lineskipfac
+ font.pad * 2)
xy_str(x, font.pad + ww[1] * .2, str, action)
if (i < 0)
break
}
j = i + 1
}
vskip(parskip);
blk_flush()
break
case 'f':
case 'j':
j = 0
while (1) {
i = text.indexOf('\n\n', j)
if (i < 0)
words = text.slice(j)
else
words = text.slice(j, i);
words = words.split(/\s+/);
w = k = wh = 0
for (j = 0; j < words.length; j++) {
ww = strwh(words[j] + ' ') //
w += ww[0]
if (w >= strlw) {
vskip(wh * cfmt.lineskipfac)
xy_str(0, ww[1] * .2,
words.slice(k, j).join(' '),
action, strlw)
k = j;
w = ww[0]
wh = 0
}
if (ww[1] > wh)
wh = ww[1]
}
if (w != 0) { // last line
vskip(wh * cfmt.lineskipfac)
xy_str(0, ww[1] * .2, words.slice(k).join(' '))
}
vskip(parskip);
blk_flush()
if (i < 0)
break
while (text[i + 2] == '\n') {
vskip(lineskip);
i++
}
if (i == text.length)
break
use_font(gene.curfont);
j = i + 2
}
break
}
}
/* -- output the words after tune -- */
function put_words(words) {
var p, i, j, nw, w, lw, x1, x2, i1, i2, do_flush,
maxn = 0, // max number of characters per line
n = 1 // number of verses
// output a line of words after tune
function put_wline(p, x) {
var i = 0,
k = 0
if (p[0] == '$' // if font change
&& p[1] >= '0' && p[1] <= '9') {
gene.curfont = p[1] == '0' ? gene.deffont
: get_font("u" + p[1])
p = p.slice(2)
}
if ((p[i] >= '0' && p[i] <= '9') || p[i + 1] == '.') {
while (i < p.length) {
i++
if (p[i] == ' '
|| p[i - 1] == ':'
|| p[i - 1] == '.')
break
}
k = i
while (p[i] == ' ')
i++
}
var y = gene.curfont.size * .22 // descent
if (k != 0)
xy_str(x, y, p.slice(0, k), 'r')
if (i < p.length)
xy_str(x + 5, y, p.slice(i), 'l')
} // put_wline()
set_font("words")
vskip(cfmt.wordsspace)
svg_flush()
// estimate the width of the lines
words = words.split('\n')
nw = words.length
for (i = 0; i < nw; i++) {
p = words[i]
if (!p) {
while (i + 1 < nw && !words[i + 1])
i++
n++
} else if (p.length > maxn) {
maxn = p.length
i1 = i // keep this line
}
}
w = get_lwidth() / 2 // half line width
lw = strwh(words[i1])[0]
i1 = i2 = 0
if (lw < w) { // if 2 columns
j = n >> 1
for (i = 0; i < nw; i++) {
p = words[i]
if (!p) {
if (--j <= 0)
i1 = i
while (i + 1 < nw && !words[i + 1])
i++
if (j <= 0) {
i2 = i + 1
break
}
}
}
n >>= 1
}
if (i2) {
x1 = (w - lw) / 2 + 10
x2 = x1 + w
} else { // one column
x2 = w - lw / 2 + 10
}
do_flush = true
for (i = 0; i < i1 || i2 < nw; i++, i2++) {
vskip(cfmt.lineskipfac * gene.curfont.size)
if (i < i1) {
p = words[i]
if (p)
put_wline(p, x1)
else
use_font(gene.curfont)
}
if (i2 < nw) {
p = words[i2]
if (p) {
put_wline(p, x2)
} else {
if (--n == 0) {
if (i < i1) {
n++
} else if (i2 < nw - 1) {
// center the last verse
x2 = w - lw / 2 + 10
svg_flush()
}
}
}
}
if (!words[i + 1] && !words[i2 + 1]) {
if (do_flush) {
svg_flush()
do_flush = false
}
} else {
do_flush = true
}
}
}
/* -- output history -- */
function put_history() {
var i, j, c, str, font, h, w, wh, head,
names = cfmt.infoname.split("\n"),
n = names.length
for (i = 0; i < n; i++) {
c = names[i][0]
if (cfmt.writefields.indexOf(c) < 0)
continue
str = info[c]
if (!str)
continue
if (!font) {
font = true;
set_font("history");
vskip(cfmt.textspace);
h = gene.curfont.size * cfmt.lineskipfac
}
head = names[i].slice(2)
if (head[0] == '"')
head = head.slice(1, -1);
vskip(h);
wh = strwh(head);
xy_str(0, wh[1] * .22, head, null, null, wh);
w = wh[0];
str = str.split('\n');
xy_str(w, wh[1] * .22, str[0])
for (j = 1; j < str.length; j++) {
if (!str[j]) { // new paragraph
vskip(gene.curfont.size * cfmt.parskipfac)
continue
}
vskip(h);
xy_str(w, wh[1] * .22, str[j])
}
vskip(h * cfmt.parskipfac)
use_font(gene.curfont)
}
}
/* -- write heading with format -- */
var info_font_init = {
A: "info",
C: "composer",
O: "composer",
P: "parts",
Q: "tempo",
R: "info",
T: "title",
X: "title"
}
function write_headform(lwidth) {
var c, font, font_name, align, x, y, sz, w,
info_val = {},
info_font = Object.create(info_font_init),
info_sz = {
A: cfmt.infospace,
C: cfmt.composerspace,
O: cfmt.composerspace,
R: cfmt.infospace
},
info_nb = {}
// compress the format
var fmt = "",
p = cfmt.titleformat,
j = 0,
i = 0
while (1) {
while (p[i] == ' ')
i++
c = p[i++]
if (!c)
break
if (c < 'A' || c > 'Z') {
switch (c) {
case '+':
align = '+'
c = p[i++]
break
case ',':
fmt += '\n'
// fall thru
default:
continue
case '<':
align = 'l'
c = p[i++]
break
case '>':
align = 'r'
c = p[i++]
break
}
} else {
switch (p[i]) { // old syntax
case '-':
align = 'l'
i++
break
case '1':
align = 'r'
i++
break
case '0':
i++
// fall thru
default:
align = 'c'
break
}
}
if (!info_val[c]) {
if (!info[c])
continue
info_val[c] = info[c].split('\n');
info_nb[c] = 1
} else {
info_nb[c]++
}
fmt += align + c
}
fmt += '\n'
// loop on the blocks
var ya = {
l: cfmt.titlespace,
c: cfmt.titlespace,
r: cfmt.titlespace
},
xa = {
l: 0,
c: lwidth * .5,
r: lwidth
},
yb = {},
str;
p = fmt;
i = 0
while (1) {
// get the y offset of the top text
yb.l = yb.c = yb.r = y = 0;
j = i
while (1) {
align = p[j++]
if (align == '\n')
break
c = p[j++]
if (align == '+' || yb[align])
continue
str = info_val[c]
if (!str)
continue
font_name = info_font[c]
if (!font_name)
font_name = "history";
font = get_font(font_name);
sz = font.size * 1.1
if (info_sz[c])
sz += info_sz[c]
if (y < sz)
y = sz;
yb[align] = sz
}
ya.l += y - yb.l;
ya.c += y - yb.c;
ya.r += y - yb.r
while (1) {
align = p[i++]
if (align == '\n')
break
c = p[i++]
if (!info_val[c].length)
continue
str = info_val[c].shift()
if (p[i] == '+') {
info_nb[c]--;
i++
c = p[i++];
if (info_val[c].length) {
if (str)
str += ' ' + info_val[c].shift()
else
str = ' ' + info_val[c].shift()
}
}
font_name = info_font[c]
if (!font_name)
font_name = "history";
font = get_font(font_name);
sz = font.size * 1.1
if (info_sz[c])
sz += info_sz[c];
set_font(font);
x = xa[align];
y = ya[align] + sz
if (c == 'Q') { /* special case for tempo */
self.set_width(glovar.tempo)
if (!glovar.tempo.invis) {
if (align != 'l') {
tempo_build(glovar.tempo)
w = glovar.tempo.tempo_wh[0]
if (align == 'c')
w *= .5;
x -= w
}
writempo(glovar.tempo, x, -y)
}
} else if (str) {
if (c == 'T')
str = trim_title(str,
info_font.T[0] == 's')
xy_str(x, -y, str, align)
}
if (c == 'T') {
font_name = info_font.T = "subtitle";
info_sz.T = cfmt.subtitlespace
}
if (info_nb[c] <= 1) {
if (c == 'T') {
font = get_font(font_name);
sz = font.size * 1.1
if (info_sz[c])
sz += info_sz[c];
set_font(font)
}
while (info_val[c].length > 0) {
y += sz;
str = info_val[c].shift();
xy_str(x, -y, str, align)
}
}
info_nb[c]--;
ya[align] = y
}
if (ya.c > ya.l)
ya.l = ya.c
if (ya.r > ya.l)
ya.l = ya.r
if (i >= p.length)
break
ya.c = ya.r = ya.l
}
vskip(ya.l)
}
/* -- output the tune heading -- */
function write_heading() {
var i, j, area, composer, origin, rhythm, down1, down2,
lwidth = get_lwidth()
vskip(cfmt.topspace)
if (cfmt.titleformat) {
write_headform(lwidth);
vskip(cfmt.musicspace)
return
}
/* titles */
if (info.T
&& cfmt.writefields.indexOf('T') >= 0) {
i = 0
while (1) {
j = info.T.indexOf("\n", i)
if (j < 0) {
write_title(info.T.substring(i), i != 0)
break
}
write_title(info.T.slice(i, j), i != 0);
i = j + 1
}
}
/* rhythm, composer, origin */
down1 = down2 = 0
if (parse.ckey.k_bagpipe
&& !cfmt.infoline
&& cfmt.writefields.indexOf('R') >= 0)
rhythm = info.R
if (rhythm) {
set_font("composer");
down1 = cfmt.composerspace + gene.curfont.size + 2
xy_str(0, -down1 + gene.curfont.size *.22, rhythm)
}
area = info.A
if (cfmt.writefields.indexOf('C') >= 0)
composer = info.C
if (cfmt.writefields.indexOf('O') >= 0)
origin = info.O
if (composer || origin || cfmt.infoline) {
var xcomp, align;
set_font("composer");
if (cfmt.aligncomposer < 0) {
xcomp = 0;
align = ' '
} else if (cfmt.aligncomposer == 0) {
xcomp = lwidth * .5;
align = 'c'
} else {
xcomp = lwidth;
align = 'r'
}
if (composer || origin) {
down2 = cfmt.composerspace + 2
i = 0
while (1) {
down2 += gene.curfont.size
if (composer)
j = composer.indexOf("\n", i)
else
j = -1
if (j < 0) {
put_inf2r(xcomp, -down2 + gene.curfont.size *.22,
composer ? composer.substring(i) : null,
origin,
align)
break
}
xy_str(xcomp, -down2 + gene.curfont.size *.22,
composer.slice(i, j), align);
i = j + 1
}
}
rhythm = rhythm ? null : info.R
if ((rhythm || area) && cfmt.infoline) {
/* if only one of rhythm or area then do not use ()'s
* otherwise output 'rhythm (area)' */
set_font("info");
down2 += cfmt.infospace + gene.curfont.size
put_inf2r(lwidth, -down2 + gene.curfont.size *.22,
rhythm, area, 'r')
}
}
/* parts */
if (info.P
&& cfmt.writefields.indexOf('P') >= 0) {
set_font("parts");
i = cfmt.partsspace + gene.curfont.size + gene.curfont.pad
if (down1 + i > down2)
down2 = down1 + i
else
down2 += i
xy_str(0, -down2 + gene.curfont.size *.22, info.P)
down2 += gene.curfont.pad
} else if (down1 > down2) {
down2 = down1
}
vskip(down2 + cfmt.musicspace)
}
// abc2svg - svg.js - svg functions
//
// Copyright (C) 2014-2023 Jean-Francois Moine
//
// This file is part of abc2svg-core.
//
// abc2svg-core is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// abc2svg-core is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with abc2svg-core. If not, see .
var output = "", // output buffer
style = '\
\n.stroke{stroke:currentColor;fill:none}\
\n.bW{stroke:currentColor;fill:none;stroke-width:1}\
\n.bthW{stroke:currentColor;fill:none;stroke-width:3}\
\n.slW{stroke:currentColor;fill:none;stroke-width:.7}\
\n.slthW{stroke:currentColor;fill:none;stroke-width:1.5}\
\n.sW{stroke:currentColor;fill:none;stroke-width:.7}\
\n.box{outline:1px solid black;outline-offset:1px}',
font_style = '',
posx = cfmt.leftmargin / cfmt.scale, // default x offset of the images
posy = 0, // y offset in the block
img = { // image
width: cfmt.pagewidth, // width
lm: cfmt.leftmargin, // left and right margins
rm: cfmt.rightmargin,
wx: 0, // used width between the left and right margins
chg: 1 //true
},
defined_glyph = {},
defs = '',
fulldefs = '', // unreferenced defs as
stv_g = { /* staff/voice graphic parameters */
scale: 1,
dy: 0,
st: -1,
v: -1,
g: 0
// color: undefined
},
blkdiv = 0 // block of contiguous SVGs
// -1: block started
// 0: no block
// 1: start a block
// 2: start a new page
// glyphs in music font
var tgls = {
"mtr ": {x:0, y:0, c:"\u0020"}, // space
brace: {x:0, y:0, c:"\ue000"},
lphr: {x:0, y:23, c:"\ue030"},
mphr: {x:0, y:23, c:"\ue038"},
sphr: {x:0, y:26, c:"\ue039"},
short: {x:0, y:32, c:"\ue038"},
tick: {x:0, y:29, c:"\ue039"},
rdots: {x:-1, y:0, c:"\ue043"}, // repeat dots
dsgn: {x:-12, y:0, c:"\ue045"}, // D.S.
dcap: {x:-12, y:0, c:"\ue046"}, // D.C.
sgno: {x:-5, y:0, c:"\ue047"}, // segno
coda: {x:-10, y:0, c:"\ue048"},
tclef: {x:-8, y:0, c:"\ue050"},
cclef: {x:-8, y:0, c:"\ue05c"},
bclef: {x:-8, y:0, c:"\ue062"},
pclef: {x:-6, y:0, c:"\ue069"},
spclef: {x:-6, y:0, c:"\ue069"},
stclef: {x:-8, y:0, c:"\ue07a"},
scclef: {x:-8, y:0, c:"\ue07b"},
sbclef: {x:-7, y:0, c:"\ue07c"},
oct: {x:0, y:2, c:"\ue07d"}, // 8 for clefs
oct2: {x:0, y:2, c:"\ue07e"}, // 15 for clefs
mtr0: {x:0, y:0, c:"\ue080"}, // meters
mtr1: {x:0, y:0, c:"\ue081"},
mtr2: {x:0, y:0, c:"\ue082"},
mtr3: {x:0, y:0, c:"\ue083"},
mtr4: {x:0, y:0, c:"\ue084"},
mtr5: {x:0, y:0, c:"\ue085"},
mtr6: {x:0, y:0, c:"\ue086"},
mtr7: {x:0, y:0, c:"\ue087"},
mtr8: {x:0, y:0, c:"\ue088"},
mtr9: {x:0, y:0, c:"\ue089"},
mtrC: {x:0, y:0, c:"\ue08a"}, // common time (4/4)
// "mtrC|": {x:0, y:0, c:"\ue08b"}, // cut time (2/2) (unused)
"mtr+": {x:0, y:0, c:"\ue08c"},
"mtr(": {x:0, y:0, c:"\ue094"},
"mtr)": {x:0, y:0, c:"\ue095"},
HDD: {x:-7, y:0, c:"\ue0a0"},
breve: {x:-7, y:0, c:"\ue0a1"},
HD: {x:-5.2, y:0, c:"\ue0a2"},
Hd: {x:-3.8, y:0, c:"\ue0a3"},
hd: {x:-3.7, y:0, c:"\ue0a4"},
ghd: {x:2, y:0, c:"\ue0a4", sc:.66}, // grace note head
pshhd: {x:-3.7, y:0, c:"\ue0a9"},
pfthd: {x:-3.7, y:0, c:"\ue0b3"},
x: {x:-3.7, y:0, c:"\ue0a9"}, // 'x' note head
"circle-x": {x:-3.7, y:0, c:"\ue0b3"}, // 'circle-x' note head
srep: {x:-5, y:0, c:"\ue101"},
"dot+": {x:-5, y:0, sc:.7, c:"\ue101"},
diamond: {x:-4, y:0, c:"\ue1b9"},
triangle: {x:-4, y:0, c:"\ue1bb"},
dot: {x:-1, y:0, c:"\ue1e7"},
flu1: {x:-.3, y:0, c:"\ue240"}, // flags
fld1: {x:-.3, y:0, c:"\ue241"},
flu2: {x:-.3, y:0, c:"\ue242"},
fld2: {x:-.3, y:0, c:"\ue243"},
flu3: {x:-.3, y:3.5, c:"\ue244"},
fld3: {x:-.3, y:-4, c:"\ue245"},
flu4: {x:-.3, y:8, c:"\ue246"},
fld4: {x:-.3, y:-9, c:"\ue247"},
flu5: {x:-.3, y:12.5, c:"\ue248"},
fld5: {x:-.3, y:-14, c:"\ue249"},
"acc-1": {x:-1, y:0, c:"\ue260"}, // flat
"cacc-1": {x:-18, y:0, c:"\ue26a\ue260\ue26b"}, // courtesy flat (note deco)
"sacc-1": {x:-1, y:0, sc:.7, c:"\ue260"}, // small flat (editorial)
acc3: {x:-1, y:0, c:"\ue261"}, // natural
"cacc3": {x:-18, y:0, c:"\ue26a\ue261\ue26b"}, // courtesy natural (note deco)
sacc3: {x:-1, y:0, sc:.7, c:"\ue261"}, // small natural (editorial)
acc1: {x:-2, y:0, c:"\ue262"}, // sharp
"cacc1": {x:-18, y:0, c:"\ue26a\ue262\ue26b"}, // courtesy sharp (note deco)
sacc1: {x:-2, y:0, sc: .7, c:"\ue262"}, // small sharp (editorial)
acc2: {x:-3, y:0, c:"\ue263"}, // double sharp
"acc-2": {x:-3, y:0, c:"\ue264"}, // double flat
"acc-1_2": {x:-2, y:0, c:"\ue280"}, // quarter-tone flat
"acc-3_2": {x:-3, y:0, c:"\ue281"}, // three-quarter-tones flat
acc1_2: {x:-1, y:0, c:"\ue282"}, // quarter-tone sharp
acc3_2: {x:-3, y:0, c:"\ue283"}, // three-quarter-tones sharp
accent: {x:-3, y:2, c:"\ue4a0"},
stc: {x:0, y:-2, c:"\ue4a2"}, // staccato
emb: {x:0, y:-2, c:"\ue4a4"},
wedge: {x:0, y:0, c:"\ue4a8"},
marcato: {x:-3, y:-2, c:"\ue4ac"},
hld: {x:-7, y:-2, c:"\ue4c0"}, // fermata
brth: {x:0, y:0, c:"\ue4ce"},
caes: {x:0, y:8, c:"\ue4d1"},
r00: {x:-1.5, y:0, c:"\ue4e1"},
r0: {x:-1.5, y:0, c:"\ue4e2"},
r1: {x:-3.5, y:-6, c:"\ue4e3"},
r2: {x:-3.2, y:0, c:"\ue4e4"},
r4: {x:-3, y:0, c:"\ue4e5"},
r8: {x:-3, y:0, c:"\ue4e6"},
r16: {x:-4, y:0, c:"\ue4e7"},
r32: {x:-4, y:0, c:"\ue4e8"},
r64: {x:-4, y:0, c:"\ue4e9"},
r128: {x:-4, y:0, c:"\ue4ea"},
// mrest: {x:-10, y:0, c:"\ue4ee"},
mrep: {x:-6, y:0, c:"\ue500"},
mrep2: {x:-9, y:0, c:"\ue501"},
p: {x:-3, y:0, c:"\ue520"},
f: {x:-3, y:0, c:"\ue522"},
pppp: {x:-15, y:0, c:"\ue529"},
ppp: {x:-14, y:0, c:"\ue52a"},
pp: {x:-8, y:0, c:"\ue52b"},
mp: {x:-8, y:0, c:"\ue52c"},
mf: {x:-8, y:0, c:"\ue52d"},
ff: {x:-7, y:0, c:"\ue52f"},
fff: {x:-10, y:0, c:"\ue530"},
ffff: {x:-14, y:0, c:"\ue531"},
sfz: {x:-10, y:0, c:"\ue539"},
trl: {x:-5, y:-2, c:"\ue566"}, // trill
turn: {x:-5, y:0, c:"\ue567"},
turnx: {x:-5, y:0, c:"\ue569"},
umrd: {x:-6, y:2, c:"\ue56c"},
lmrd: {x:-6, y:2, c:"\ue56d"},
dplus: {x:-3, y:0, c:"\ue582"}, // plus
sld: {x:-8, y:12, c:"\ue5d0"}, // slide
grm: {x:-3, y:-2, c:"\ue5e2"}, // grace mark
dnb: {x:-3, y:0, c:"\ue610"}, // down bow
upb: {x:-2, y:0, c:"\ue612"}, // up bow
opend: {x:-2, y:-2, c:"\ue614"}, // harmonic
roll: {x:0, y:0, c:"\ue618"},
thumb: {x:-2, y:-2, c:"\ue624"},
snap: {x:-2, y:-2, c:"\ue630"},
ped: {x:-10, y:0, c:"\ue650"},
pedoff: {x:-5, y:0, c:"\ue655"},
// "mtro.": {x:0, y:0, c:"\ue910"}, // (unused)
mtro: {x:0, y:0, c:"\ue911"}, // tempus perfectum
// "mtro|": {x:0, y:0, c:"\ue912"}, // (unused)
// "mtrc.": {x:0, y:0, c:"\ue914"}, // (unused)
mtrc: {x:0, y:0, c:"\ue915"}, // tempus imperfectum
// "mtrc|": {x:0, y:0, c:"\ue918"}, // (unused)
"mtr.": {x:0, y:0, c:"\ue920"}, // prolatione perfecta
"mtr|": {x:0, y:0, c:"\ue925"}, // (twice as fast)
longa: {x:-4.7, y:0, c:"\ue95d"},
custos: {x:-4, y:3, c:"\uea02"},
ltr: {x:2, y:6, c:"\ueaa4"} // long trill element
}
// glyphs to put in
var glyphs = {
}
// convert a meter string to a SmuFL encoded string
function m_gl(s) {
return s.replace(/[Cco]\||[co]\.|./g,
function(e) {
var m = tgls["mtr" + e]
//fixme: !! no m.x nor m.y yet !!
// if (!m.x && !m.y)
return m ? m.c : 0
// return '' +
// m.c + ''
})
}
// mark a glyph as used and add it in
function def_use(gl) {
var i, j, g
if (defined_glyph[gl])
return
defined_glyph[gl] = true;
g = glyphs[gl]
if (!g) {
//throw new Error("unknown glyph: " + gl)
error(1, null, "Unknown glyph: '$1'", gl)
return // fixme: the xlink is set
}
j = 0
while (1) {
i = g.indexOf('xlink:href="#', j)
if (i < 0)
break
i += 13;
j = g.indexOf('"', i);
def_use(g.slice(i, j))
}
defs += '\n' + g
}
// add user defs from %%beginsvg
function defs_add(text) {
var i, j, gl, tag, is,
ie = 0
// remove XML comments
text = text.replace(//g, '')
while (1) {
is = text.indexOf('<', ie);
if (is < 0)
break
i = text.indexOf('id="', is)
if (i < 0)
break
i += 4;
j = text.indexOf('"', i);
if (j < 0)
break
gl = text.slice(i, j);
ie = text.indexOf('>', j);
if (ie < 0)
break
if (text[ie - 1] == '/') {
ie++
} else {
i = text.indexOf(' ', is);
if (i < 0)
break
tag = text.slice(is + 1, i);
ie = text.indexOf('', ie)
if (ie < 0)
break
ie += 3 + tag.length
}
if (text.substr(is, 7) == '= 0 ? staff_tb[st].staffscale : 1
if (st >= 0 && new_scale != 1)
dy = staff_tb[st].y
else
dy = posy
if (new_scale == stv_g.scale && dy == stv_g.dy)
return
stv_g.scale = new_scale;
stv_g.dy = dy;
stv_g.st = st;
stv_g.v = -1;
set_g()
}
/* -- set the voice or staff scale -- */
function set_scale(s) {
var new_dy,
new_scale = s.p_v.scale
if (new_scale == 1) {
set_sscale(s.st)
return
}
new_dy = posy
if (staff_tb[s.st].staffscale != 1) {
new_scale *= staff_tb[s.st].staffscale;
new_dy = staff_tb[s.st].y
}
if (new_scale == stv_g.scale && stv_g.dy == posy)
return
stv_g.scale = new_scale;
stv_g.dy = new_dy;
stv_g.st = staff_tb[s.st].staffscale == 1 ? -1 : s.st;
stv_g.v = s.v;
set_g()
}
// -- set the staff output buffer and scale when delayed output
function set_dscale(st, no_scale) {
if (output) {
if (stv_g.started) { // close the previous sequence
stv_g.started = false
glout()
output += "\n"
}
if (stv_g.st < 0) {
staff_tb[0].output += output
} else if (stv_g.scale == 1) {
staff_tb[stv_g.st].output += output
} else {
staff_tb[stv_g.st].sc_out += output
}
output = ""
}
if (st < 0)
stv_g.scale = 1
else
stv_g.scale = no_scale ? 1 : staff_tb[st].staffscale;
stv_g.st = st;
stv_g.dy = 0
}
// update the y offsets of delayed output
function delayed_update() {
var st, new_out, text
for (st = 0; st <= nstaff; st++) {
if (staff_tb[st].sc_out) {
output += '\n' +
staff_tb[st].sc_out + '\n';
staff_tb[st].sc_out = ""
}
if (!staff_tb[st].output)
continue
output += '\n' +
staff_tb[st].output +
'\n';
staff_tb[st].output = ""
}
}
// output the annotations
function anno_out(s, t, f) {
if (s.istart == undefined)
return
var type = s.type,
h = s.ymx - s.ymn + 4,
wl = s.wl || 2,
wr = s.wr || 2
if (s.grace)
type = C.GRACE
f(t || abc2svg.sym_name[type], s.istart, s.iend,
s.x - wl - 2, staff_tb[s.st].y + s.ymn + h - 2,
wl + wr + 4, h, s);
}
function a_start(s, t) {
anno_out(s, t, user.anno_start)
}
function a_stop(s, t) {
anno_out(s, t, user.anno_stop)
}
function empty_function() {
}
// the values are updated on generate()
var anno_start = empty_function,
anno_stop = empty_function
// output the stop user annotations
function anno_put() {
var s
while (1) {
s = anno_a.shift()
if (!s)
break
switch (s.type) {
case C.CLEF:
case C.METER:
case C.KEY:
case C.REST:
if (s.type != C.REST || s.rep_nb) {
set_sscale(s.st)
break
}
// fall thru
case C.GRACE:
case C.NOTE:
case C.MREST:
set_scale(s)
break
// default:
// continue
}
anno_stop(s)
}
} // anno_put()
// output a string with x, y, a and b
// In the string,
// X and Y are replaced by scaled x and y
// A and B are replaced by a and b as string
// F and G are replaced by a and b as float
function out_XYAB(str, x, y, a, b) {
x = sx(x);
y = sy(y);
output += str.replace(/X|Y|A|B|F|G/g, function(c) {
switch (c) {
case 'X': return x.toFixed(1)
case 'Y': return y.toFixed(1)
case 'A': return a
case 'B': return b
case 'F': return a.toFixed(1)
// case 'G':
default: return b.toFixed(1)
}
})
}
// open / close containers
function g_open(x, y, rot, sx, sy) {
glout()
out_XYAB('\n';
stv_g.g++
}
function g_close() {
glout()
stv_g.g--;
output += '\n'
}
// external SVG string
Abc.prototype.out_svg = function(str) { output += str }
// exported functions for the annotation
function sx(x) {
if (stv_g.g)
return x
return (x + posx) / stv_g.scale
}
Abc.prototype.sx = sx
function sy(y) {
if (stv_g.g)
return -y
if (stv_g.scale == 1)
return posy - y
if (stv_g.v >= 0)
return (stv_g.dy - y) / voice_tb[stv_g.v].scale
return stv_g.dy - y // staff scale only
}
Abc.prototype.sy = sy;
Abc.prototype.sh = function(h) {
if (stv_g.st < 0)
return h / stv_g.scale
return h
}
// for absolute X,Y coordinates
Abc.prototype.ax = function(x) { return x + posx }
Abc.prototype.ay = function(y) {
if (stv_g.st < 0)
return posy - y
return posy + (stv_g.dy - y) * stv_g.scale - stv_g.dy
}
Abc.prototype.ah = function(h) {
if (stv_g.st < 0)
return h
return h * stv_g.scale
}
// output scaled (x + + y)
function out_sxsy(x, sep, y) {
x = sx(x);
y = sy(y);
output += x.toFixed(1) + sep + y.toFixed(1)
}
Abc.prototype.out_sxsy = out_sxsy
// define the start of a path
function xypath(x, y, fill) {
if (fill)
out_XYAB('\n'
}
} // hlud()
for (st = 0; st <= nstaff; st++) {
p_st = staff_tb[st]
if (!p_st.hlu)
continue // (staff not yet displayed)
set_sscale(st)
hlud(p_st.hlu, 6)
hlud(p_st.hld, -6)
}
} // draw_all_hl()
// output the list of glyphs and the stems
// [0] = x glyph
// [1] = y glyph
// [2] = glyph code
// [3] = x, y, h of stem (3 values per stem)
var gla = [[], [], "", [], [], []]
function glout() {
var e,
v = []
// glyphs (notes, accidentals...)
if (gla[0].length) {
while (1) {
e = gla[0].shift()
if (e == undefined)
break
v.push(e.toFixed(1))
}
output += '' + gla[2] + '\n'
gla[2] = ""
}
// stems
if (!gla[3].length)
return
output += '\n'
} // glout()
// output a glyph
function xygl(x, y, gl) {
// (avoid ps<->js loop)
// if (psxygl(x, y, gl))
// return
if (glyphs[gl]) {
def_use(gl)
out_XYAB('\n', x, y, gl)
} else {
var tgl = tgls[gl]
if (tgl) {
x += tgl.x * stv_g.scale;
y -= tgl.y
if (tgl.sc) {
out_XYAB('B\n',
x, y, tgl.sc, tgl.c);
} else {
// out_XYAB('A\n', x, y, tgl.c)
gla[0].push(sx(x))
gla[1].push(sy(y))
gla[2] += tgl.c
}
} else {
error(1, null, 'no definition of $1', gl)
}
}
}
// - specific functions -
// gua gda (acciaccatura)
function out_acciac(x, y, dx, dy, up) {
if (up) {
x -= 1;
y += 4
} else {
x -= 5;
y -= 4
}
out_XYAB('\n',
x, y, dx, -dy)
}
// staff system brace
function out_brace(x, y, h) {
//fixme: '-6' depends on the scale
x += posx - 6;
y = posy - y;
h /= 24;
output += '' + tgls.brace.c + '\n'
}
// staff system bracket
function out_bracket(x, y, h) {
x += posx - 5;
y = posy - y - 3;
h += 2;
output += '\n'
}
// hyphen
function out_hyph(x, y, w) {
var n, a_y,
d = 25 + ((w / 20) | 0) * 3
if (w > 15.)
n = ((w - 15) / d) | 0
else
n = 0;
x += (w - d * n - 5) / 2;
out_XYAB('\n',
x, y + 4, // set the line a bit upper
Math.round((d - 5) / stv_g.scale), d * n + 5)
}
// stem [and flags]
function out_stem(x, y, h, grace,
nflags, straight) { // optional
//fixme: dx KO with half note or longa
var dx = grace ? GSTEM_XOFF : 3.5,
slen = -h
if (h < 0)
dx = -dx; // down
x += dx * stv_g.scale
if (stv_g.v >= 0)
slen /= voice_tb[stv_g.v].scale;
gla[3].push(sx(x))
gla[3].push(sy(y))
gla[3].push(slen)
if (!nflags)
return
y += h
if (h > 0) { // up
if (!straight) {
if (!grace) {
xygl(x, y, "flu" + nflags)
return
} else { // grace
output += '= 0) {
out_XYAB('MX Yl7 3.2 0 3.2 -7 -3.2z\n',
x, y);
y -= 5.4
}
} else { // grace
while (--nflags >= 0) {
out_XYAB('MX Yl3 1.5 0 2 -3 -1.5z\n',
x, y);
y -= 3
}
}
}
} else { // down
if (!straight) {
if (!grace) {
xygl(x, y, "fld" + nflags)
return
} else { // grace
output += '= 0) {
out_XYAB('MX Yl7 -3.2 0 -3.2 -7 3.2z\n',
x, y);
y += 5.4
}
// } else { // grace
//--fixme: error?
}
}
}
output += '"/>\n'
}
// tremolo
function out_trem(x, y, ntrem) {
out_XYAB('\n'
}
// tuplet bracket - the staves are not defined
function out_tubr(x, y, dx, dy, up) {
var h = up ? -3 : 3;
y += h;
dx /= stv_g.scale;
output += '\n'
}
// tuplet bracket with number - the staves are not defined
function out_tubrn(x, y, dx, dy, up, str) {
var dxx,
sw = str.length * 10,
h = up ? -3 : 3;
set_font("tuplet")
xy_str(x + dx / 2, y + dy / 2 - gene.curfont.size * .1,
str, 'c')
dx /= stv_g.scale
if (!up)
y += 6;
output += '\n' +
'\n'
}
// underscore line
function out_wln(x, y, w) {
out_XYAB('\n',
x, y + 1, w)
}
// decorations with string
var deco_str_style = {
crdc: { // cresc., decresc., dim., ...
dx: 0,
dy: 5,
style: 'font:italic 14px text,serif',
anchor: ' text-anchor="middle"'
},
dacs: { // long repeats (da capo, fine...)
dx: 0,
dy: 3,
style: 'font:bold 15px text,serif',
anchor: ' text-anchor="middle"'
},
pf: {
dx: 0,
dy: 5,
style: 'font:italic bold 16px text,serif',
anchor: ' text-anchor="middle"'
}
}
deco_str_style.at = deco_str_style.crdc
function out_deco_str(x, y, de) {
var name = de.dd.glyph // class
if (name == 'fng') {
out_XYAB('\
A\n',
x - 2, y, m_gl(de.dd.str))
return
}
if (name == '@') { // compatibility
name = 'at'
} else if (!/^[A-Za-z][A-Za-z\-_]*$/.test(name)) {
error(1, de.s, "No function for decoration '$1'", de.dd.name)
return
}
var f,
a_deco = deco_str_style[name]
if (!a_deco)
a_deco = deco_str_style.crdc // default style
else if (a_deco.style)
style += "\n." + name + "{" + a_deco.style + "}",
delete a_deco.style
x += a_deco.dx;
y += a_deco.dy;
out_XYAB('', x, y,
name, a_deco.anchor || "");
set_font("annotation");
out_str(de.dd.str)
output += '\n'
}
function out_arp(x, y, val) {
g_open(x, y, 270);
x = 0;
val = Math.ceil(val / 6)
while (--val >= 0) {
xygl(x, 6, "ltr");
x += 6
}
g_close()
}
function out_cresc(x, y, val, defl) {
x += val * stv_g.scale
val = -val;
out_XYAB('\n'
else
output += '-4l' + (-val).toFixed(1) + ' -4"/>\n'
}
function out_dim(x, y, val, defl) {
out_XYAB('\n'
else
output += '-4l' + (-val).toFixed(1) + ' -4"/>\n'
}
function out_ltr(x, y, val) {
y += 4;
val = Math.ceil(val / 6)
while (--val >= 0) {
xygl(x, y, "ltr");
x += 6
}
}
Abc.prototype.out_lped = function(x, y, val, defl) {
if (!defl.nost)
xygl(x, y, "ped");
if (!defl.noen)
xygl(x + val + 6, y, "pedoff")
}
function out_8va(x, y, val, defl) {
if (val < 18) {
val = 18
x -= 4
}
if (!defl.nost) {
out_XYAB('8\
va\n',
x - 8, y);
x += 12;
val -= 12
}
y += 6;
out_XYAB('\n',
x, y, val)
if (!defl.noen)
out_XYAB('\n', x + val, y)
}
function out_8vb(x, y, val, defl) {
if (val < 18) {
val = 18
x -= 4
}
if (!defl.nost) {
out_XYAB('8\
vb\n',
x - 8, y);
x += 10
val -= 10
}
// y -= 2;
out_XYAB('\n',
x, y, val)
if (!defl.noen)
out_XYAB('\n', x + val, y)
}
function out_15ma(x, y, val, defl) {
if (val < 25) {
val = 25
x -= 6
}
if (!defl.nost) {
out_XYAB('15\
ma\n',
x - 10, y);
x += 20;
val -= 20
}
y += 6;
out_XYAB('\n',
x, y, val)
if (!defl.noen)
out_XYAB('\n', x + val, y)
}
function out_15mb(x, y, val, defl) {
if (val < 24) {
val = 24
x -= 5
}
if (!defl.nost) {
out_XYAB('15\
mb\n',
x - 10, y);
x += 18
val -= 18
}
// y -= 2;
out_XYAB('\n',
x, y, val)
if (!defl.noen)
out_XYAB('\n', x + val, y)
}
var deco_val_tb = {
arp: out_arp,
cresc: out_cresc,
dim: out_dim,
ltr: out_ltr,
lped: function(x, y, val, defl) {
self.out_lped(x, y, val, defl)
},
"8va": out_8va,
"8vb": out_8vb,
"15ma": out_15ma,
"15mb": out_15mb
}
function out_deco_val(x, y, name, val, defl) {
if (deco_val_tb[name])
deco_val_tb[name](x, y, val, defl)
else
error(1, null, "No function for decoration '$1'", name)
}
function out_glisq(x2, y2, de) {
var ar, a, len,
de1 = de.start,
x1 = de1.x,
y1 = de1.y + staff_tb[de1.st].y,
dx = x2 - x1,
dy = self.sh(y1 - y2)
if (!stv_g.g)
dx /= stv_g.scale
ar = Math.atan2(dy, dx)
a = ar / Math.PI * 180
len = (dx - (de1.s.dots ? 13 + de1.s.xmx : 8)
- 8 - (de.s.notes[0].shac || 0))
/ Math.cos(ar)
g_open(x1, y1, a);
x1 = de1.s.dots ? 13 + de1.s.xmx : 8;
len = len / 6 | 0
if (len < 1)
len = 1
while (--len >= 0) {
xygl(x1, 0, "ltr");
x1 += 6
}
g_close()
}
function out_gliss(x2, y2, de) {
var ar, a, len,
de1 = de.start,
x1 = de1.x,
y1 = de1.y + staff_tb[de1.st].y,
dx = x2 - x1,
dy = self.sh(y1 - y2)
if (!stv_g.g)
dx /= stv_g.scale
ar = Math.atan2(dy, dx)
a = ar / Math.PI * 180
len = (dx - (de1.s.dots ? 13 + de1.s.xmx : 8)
- 8 - (de.s.notes[0].shac || 0))
/ Math.cos(ar)
g_open(x1, y1, a);
xypath(de1.s.dots ? 13 + de1.s.xmx : 8, 0)
output += 'h' + len.toFixed(1) + '" stroke-width="1"/>\n';
g_close()
}
var deco_l_tb = {
glisq: out_glisq,
gliss: out_gliss
}
function out_deco_long(x, y, de) {
var s, p_v, m, nt, i,
name = de.dd.glyph,
de1 = de.start
if (!deco_l_tb[name]) {
error(1, null, "No function for decoration '$1'", name)
return
}
// if no start or no end, get the y offset of the other end
p_v = de.s.p_v // voice
if (de.defl.noen) { // if no end
s = p_v.s_next // start of the next music line
while (s && !s.dur)
s = s.next
if (s) {
for (m = 0; m <= s.nhd; m++) {
nt = s.notes[m]
if (!nt.a_dd)
continue
for (i = 0; i < nt.a_dd.length; i++) {
if (nt.a_dd[i].name == de.dd.name) {
y = 3 * (nt.pit - 18)
+ staff_tb[de.s.st].y
break
}
}
}
}
x += 8 // (there is no note width)
} else if (de.defl.nost) { // no start
s = p_v.s_prev // end of the previous music line
while (s && !s.dur)
s = s.prev
if (s) {
for (m = 0; m <= s.nhd; m++) {
nt = s.notes[m]
if (!nt.a_dd)
continue
for (i = 0; i < nt.a_dd.length; i++) {
if (nt.a_dd[i].name == de1.dd.name) {
de1.y = 3 * (nt.pit - 18)
break
}
}
}
}
de1.x -= 8 // (there is no note width)
}
deco_l_tb[name](x, y, de)
}
// return a tempo note
function tempo_note(s, dur) {
var p,
elts = identify_note(s, dur)
switch (elts[0]) { // head
case C.OVAL:
p = "\ueca2"
break
case C.EMPTY:
p = "\ueca3"
break
default:
switch (elts[2]) { // flags
case 2:
p = "\ueca9"
break
case 1:
p = "\ueca7"
break
default:
p = "\ueca5"
break
}
break
}
if (elts[1]) // dot
p += '\uecb7'
return p
} // tempo_note()
// build the tempo string
function tempo_build(s) {
var i, j, bx, p, wh, dy,
w = 0,
str = []
if (s.tempo_str) // already done
return
// the music font must be defined
if (!cfmt.musicfont.used)
get_font("music")
set_font("tempo")
if (s.tempo_str1) {
str.push(s.tempo_str1)
w += strwh(s.tempo_str1)[0]
}
if (s.tempo_notes) {
dy = ' dy="-1"' // notes a bit higher
for (i = 0; i < s.tempo_notes.length; i++) {
p = tempo_note(s, s.tempo_notes[i])
str.push('' +
p + '')
j = p.length > 1 ? 2 : 1 // (note and optional dot)
w += j * gene.curfont.swfac
dy = ''
}
str.push('=')
w += cwidf('=')
if (s.tempo_ca) {
str.push(s.tempo_ca)
w += strwh(s.tempo_ca)[0]
j = s.tempo_ca.length + 1
}
if (s.tempo) { // with a number of beats per minute
str.push(s.tempo)
w += strwh(s.tempo.toString())[0]
} else { // with a beat as a note
p = tempo_note(s, s.new_beat)
str.push('' +
p + '')
j = p.length > 1 ? 2 : 1
w += j * gene.curfont.swfac
dy = 'y'
}
}
if (s.tempo_str2) {
if (dy)
str.push('' +
s.tempo_str2 + '')
else
str.push(s.tempo_str2)
w += strwh(s.tempo_str2)[0]
}
// build the string
s.tempo_str = str.join(' ')
w += cwidf(' ') * (str.length - 1)
s.tempo_wh = [w, 13.0] // (the height is not used)
} // tempo_build()
// output a tempo
function writempo(s, x, y) {
var bh
set_font("tempo")
if (gene.curfont.box) {
gene.curfont.box = false
bh = gene.curfont.size + 4
}
//fixme: xy_str() cannot be used because in s.tempo_str
//fixme: then there cannot be font changes by "$n" in the Q: texts
output += '' + s.tempo_str + '\n'
if (bh) {
gene.curfont.box = true
output += '\n'
}
// don't display anymore
s.invis = true
} // writempo()
// update the vertical offset
function vskip(h) {
posy += h
}
// create the SVG image of the block
function svg_flush() {
if (multicol || !output || !user.img_out || posy == 0)
return
var i, font,
fmt = tsnext ? tsnext.fmt : cfmt,
w = Math.ceil((fmt.trimsvg || fmt.singleline == 1)
? (cfmt.leftmargin + img.wx * cfmt.scale + cfmt.rightmargin + 2)
: img.width),
head = '