// get the current key or create a new one
	if (is_voice_sig()) {			// if no symbol yet
		curvoice.key = s		// new root key of the voice
	} else if (curvoice.time != ti) {	// if no K: at this time
		s = clone(s.orig || s)		// new key
		if (!curvoice.new)
			s.k_old_sf = curvoice.ckey.k_sf
		curvoice.ckey = s
		sym_link(s)
	}


	if (cfmt.transp && curvoice.shift)	// if %%transpose and shift=
		syntax(0, "Mix of old and new transposition syntaxes");

	// define the new key
	curvoice.tr_sco = n			// b40 interval

		if (w_tb[s.type])
			return false
	return true
}

// treat a clef found in the tune body
function get_clef(s) {













	if (!curvoice.time		// (force a clef when new voice)
	 && is_voice_sig()) {
		curvoice.clef = s
		s.fmt = cfmt
		return
	}

	// move the clef before a key and/or a (not right repeat) bar
    var	s2, s3

	for (s2 = curvoice.last_sym;
	     s2 && s2.time == curvoice.time;
	     s2 = s2.prev) {
		if (w_tb[s2.type])
			break
	}
	if (s2

		curvoice.clone = null		// don't stop the multi-voice sequence
	get_voice(curvoice.id + ' ' + a.join(' '))
	if (p_voice)
		curvoice.clone = p_voice

	if (def)
		curvoice.default = 1 //true

	if (s == parse.ckey				// if first K:
	 && curvoice.clef.clef_type == 'p') {		// and percussion
		s.k_drum = 1 //true			// no transpose
		s.k_sf = 0				// no accidental
		s.k_b40 = 2
		s.k_map = abc2svg.keys[7]
	}
}

// get / create a new voice
function new_voice(id) {
    var	v, p_v_sav,
	p_voice = voice_tb[0],
	n = voice_tb.length

		sls: [],		// slurs - used in parsing and in generation
		hy_st: 0
	}

	voice_tb.push(p_voice);

	if (parse.state == 3) {
		p_voice.key = parse.ckey
		p_voice.ckey = clone(parse.ckey)
	}
	
//	par_sy.voices[v] = {
//		range: -1
//	}

			a: a,
			bol: parse.iend
		}
		if (parse.file[curvoice.clone.bol - 1] != ']')
			curvoice.clone.bol++	// start of new line
	}

	if (!curvoice.key)			// if new voice
		curvoice.key = parse.ckey

	set_kv_parm(a)

	if (curvoice.clef.clef_type == 'p') {	// if percussion clef
	    var	s = curvoice.ckey

		s.k_drum = 1 //true
		s.k_sf = 0
		s.k_b40 = 2
		s.k_map = abc2svg.keys[7]
		if (curvoice.key = parse.ckey)
			curvoice.key = s
	}

	key_trans()

	v = curvoice.v
	if (curvoice.new) {			// if new voice
		delete curvoice.new
		if (staves_found < 0) {		// if no %%score/%%staves
			curvoice.st = curvoice.cst = ++nstaff;