gosu 0.15.2 → 1.1.0.pre2

data/dependencies/SDL_sound/libmodplug/load_669.c

@@ -0,0 +1,188 @@
+/*
+ * This source code is public domain.
+ *
+ * Authors: Olivier Lapicque <olivierl@jps.net>,
+ *          Adam Goode       <adam@evdebs.org> (endian and char fixes for PPC)
+*/
+
+////////////////////////////////////////////////////////////
+// 669 Composer / UNIS 669 module loader
+////////////////////////////////////////////////////////////
+
+#include "libmodplug.h"
+
+//#pragma warning(disable:4244)
+
+typedef struct tagFILEHEADER669
+{
+	WORD sig;				// 'if' or 'JN'
+    signed char songmessage[108];	// Song Message
+	BYTE samples;			// number of samples (1-64)
+	BYTE patterns;			// number of patterns (1-128)
+	BYTE restartpos;
+	BYTE orders[128];
+	BYTE tempolist[128];
+	BYTE breaks[128];
+} FILEHEADER669;
+
+
+typedef struct tagSAMPLE669
+{
+	BYTE filename[13];
+	BYTE length[4];	// when will somebody think about DWORD align ???
+	BYTE loopstart[4];
+	BYTE loopend[4];
+} SAMPLE669;
+
+DWORD lengthArrayToDWORD(const BYTE length[4]) {
+	DWORD len = (length[3] << 24) +
+		(length[2] << 16) +
+		(length[1] << 8) +
+		(length[0]);
+
+	return(len);
+}
+
+
+BOOL CSoundFile_Read669(CSoundFile *_this, const BYTE *lpStream, DWORD dwMemLength)
+//---------------------------------------------------------------
+{
+	BOOL b669Ext;
+	const FILEHEADER669 *pfh = (const FILEHEADER669 *)lpStream;
+	const SAMPLE669 *psmp = (const SAMPLE669 *)(lpStream + 0x1F1);
+	DWORD dwMemPos = 0;
+
+	if ((!lpStream) || (dwMemLength < sizeof(FILEHEADER669))) return FALSE;
+	if ((bswapLE16(pfh->sig) != 0x6669) && (bswapLE16(pfh->sig) != 0x4E4A)) return FALSE;
+	b669Ext = (bswapLE16(pfh->sig) == 0x4E4A) ? TRUE : FALSE;
+	if ((!pfh->samples) || (pfh->samples > 64) || (pfh->restartpos >= 128)
+	 || (!pfh->patterns) || (pfh->patterns > 128)) return FALSE;
+	DWORD donttouchme = 0x1F1 + pfh->samples * sizeof(SAMPLE669) + pfh->patterns * 0x600;
+	if (donttouchme > dwMemLength) return FALSE;
+	for (UINT ichk=0; ichk<pfh->samples; ichk++)
+	{
+		DWORD len = lengthArrayToDWORD(psmp[ichk].length);
+		donttouchme += len;
+	}
+	if (donttouchme > dwMemLength) return FALSE;
+	// That should be enough checking: this must be a 669 module.
+	_this->m_nType = MOD_TYPE_669;
+	_this->m_dwSongFlags |= SONG_LINEARSLIDES;
+	_this->m_nMinPeriod = 28 << 2;
+	_this->m_nMaxPeriod = 1712 << 3;
+	_this->m_nDefaultTempo = 125;
+	_this->m_nDefaultSpeed = 6;
+	_this->m_nChannels = 8;
+	_this->m_nSamples = pfh->samples;
+	for (UINT nins=1; nins<=_this->m_nSamples; nins++, psmp++)
+	{
+		DWORD len = lengthArrayToDWORD(psmp->length);
+		DWORD loopstart = lengthArrayToDWORD(psmp->loopstart);
+		DWORD loopend = lengthArrayToDWORD(psmp->loopend);
+		if (len > MAX_SAMPLE_LENGTH) len = MAX_SAMPLE_LENGTH;
+		if ((loopend > len) && (!loopstart)) loopend = 0;
+		if (loopend > len) loopend = len;
+		if (loopstart + 4 >= loopend) loopstart = loopend = 0;
+		_this->Ins[nins].nLength = len;
+		_this->Ins[nins].nLoopStart = loopstart;
+		_this->Ins[nins].nLoopEnd = loopend;
+		if (loopend) _this->Ins[nins].uFlags |= CHN_LOOP;
+		_this->Ins[nins].nVolume = 256;
+		_this->Ins[nins].nGlobalVol = 64;
+		_this->Ins[nins].nPan = 128;
+	}
+	// Reading Orders
+	SDL_memcpy(_this->Order, pfh->orders, 128);
+	_this->m_nRestartPos = pfh->restartpos;
+	if (_this->Order[_this->m_nRestartPos] >= pfh->patterns) _this->m_nRestartPos = 0;
+	// Reading Pattern Break Locations
+	for (UINT npan=0; npan<8; npan++)
+	{
+		_this->ChnSettings[npan].nPan = (npan & 1) ? 0x30 : 0xD0;
+		_this->ChnSettings[npan].nVolume = 64;
+	}
+	// Reading Patterns
+	dwMemPos = 0x1F1 + pfh->samples * 25;
+	for (UINT npat=0; npat<pfh->patterns; npat++)
+	{
+		_this->Patterns[npat] = CSoundFile_AllocatePattern(64, _this->m_nChannels);
+		if (!_this->Patterns[npat]) break;
+		_this->PatternSize[npat] = 64;
+		MODCOMMAND *m = _this->Patterns[npat];
+		const BYTE *p = lpStream + dwMemPos;
+		for (UINT row=0; row<64; row++)
+		{
+			MODCOMMAND *mspeed = m;
+			if ((row == pfh->breaks[npat]) && (row != 63))
+			{
+				for (UINT i=0; i<8; i++)
+				{
+					m[i].command = CMD_PATTERNBREAK;
+					m[i].param = 0;
+				}
+			}
+			for (UINT n=0; n<8; n++, m++, p+=3)
+			{
+				UINT note = p[0] >> 2;
+				UINT instr = ((p[0] & 0x03) << 4) | (p[1] >> 4);
+				UINT vol = p[1] & 0x0F;
+				if (p[0] < 0xFE)
+				{
+					m->note = note + 37;
+					m->instr = instr + 1;
+				}
+				if (p[0] <= 0xFE)
+				{
+					m->volcmd = VOLCMD_VOLUME;
+					m->vol = (vol << 2) + 2;
+				}
+				if (p[2] != 0xFF)
+				{
+					UINT command = p[2] >> 4;
+					UINT param = p[2] & 0x0F;
+					switch(command)
+					{
+					case 0x00:	command = CMD_PORTAMENTOUP; break;
+					case 0x01:	command = CMD_PORTAMENTODOWN; break;
+					case 0x02:	command = CMD_TONEPORTAMENTO; break;
+					case 0x03:	command = CMD_MODCMDEX; param |= 0x50; break;
+					case 0x04:	command = CMD_VIBRATO; param |= 0x40; break;
+					case 0x05:	if (param) command = CMD_SPEED; else command = 0; param += 2; break;
+					case 0x06:	if (param == 0) { command = CMD_PANNINGSLIDE; param = 0xFE; } else
+								if (param == 1) { command = CMD_PANNINGSLIDE; param = 0xEF; } else
+								command = 0;
+								break;
+					default:	command = 0;
+					}
+					if (command)
+					{
+						if (command == CMD_SPEED) mspeed = NULL;
+						m->command = command;
+						m->param = param;
+					}
+				}
+			}
+			if ((!row) && (mspeed))
+			{
+				for (UINT i=0; i<8; i++) if (!mspeed[i].command)
+				{
+					mspeed[i].command = CMD_SPEED;
+					mspeed[i].param = pfh->tempolist[npat] + 2;
+					break;
+				}
+			}
+		}
+		dwMemPos += 0x600;
+	}
+	// Reading Samples
+	for (UINT n=1; n<=_this->m_nSamples; n++)
+	{
+		UINT len = _this->Ins[n].nLength;
+		if (dwMemPos >= dwMemLength) break;
+		if (len > 4) CSoundFile_ReadSample(_this, &_this->Ins[n], RS_PCM8U, (LPSTR)(lpStream+dwMemPos), dwMemLength - dwMemPos);
+		dwMemPos += len;
+	}
+	return TRUE;
+}
+
+

data/dependencies/SDL_sound/libmodplug/load_abc.c

@@ -0,0 +1,4725 @@
+/*
+
+ MikMod Sound System
+
+  By Jake Stine of Divine Entertainment (1996-2000)
+
+ Support:
+  If you find problems with this code, send mail to:
+    air@divent.org
+
+ Distribution / Code rights:
+  Use this source code in any fashion you see fit.  Giving me credit where
+  credit is due is optional, depending on your own levels of integrity and
+  honesty.
+
+ -----------------------------------------
+ Module: LOAD_ABC
+
+  ABC module loader.
+	by Peter Grootswagers (2006)
+	<email:pgrootswagers@planet.nl>
+
+ Portability:
+	All systems - all compilers (hopefully)
+*/
+
+#include <limits.h>
+#include <stdlib.h>
+#include <time.h>
+#include <string.h>
+#include <math.h>
+#include <ctype.h>
+
+#include "libmodplug.h"
+
+#include "load_pat.h"
+
+#define MAXABCINCLUDES	8
+#define MAXCHORDNAMES 80
+#define ABC_ENV_DUMPTRACKS		"MMABC_DUMPTRACKS"
+#define ABC_ENV_NORANDOMPICK	"MMABC_NO_RANDOM_PICK"
+
+// gchords use tracks with vpos 1 thru 7
+// drums use track with vpos 8
+// voice chords use vpos 0 and vpos from 11 up
+#define GCHORDBPOS 1
+#define GCHORDFPOS 2
+#define GCHORDCPOS 3
+#define DRUMPOS	8
+#define DRONEPOS1 9
+#define DRONEPOS2 10
+
+// in the patterns a whole note at unmodified tempo is 16 rows
+#define ROWSPERNOTE 16
+// a 1/64-th note played in triool equals a 1/96-th note, to be able
+// to play them and also to play the 1/64-th we need a resolution of 192
+// because 2/192 = 1/96 and 3/192 = 1/64
+#define RESOLUTION	192
+
+#pragma pack(1)
+
+/**************************************************************************
+**************************************************************************/
+typedef enum {
+	note,
+	octave,
+	smpno,
+	volume,
+	effect,
+	effoper
+} ABCEVENT_X_NOTE;
+
+typedef enum {
+	none,
+	trill,
+	bow,
+	accent
+} ABCEVENT_X_EFFECT;
+
+typedef enum {
+	cmdflag,
+	command,
+	chordnum,
+	chordnote,
+	chordbase,
+	jumptype
+} ABCEVENT_X_CMD;
+
+typedef enum {
+	cmdsegno   = '$',
+	cmdcapo    = 'B',
+	cmdchord   = 'C',
+	cmdfine    = 'F',
+	cmdhide    = 'H',
+	cmdjump    = 'J',
+	cmdloop    = 'L',
+	cmdcoda    = 'O',
+	cmdpartbrk = 'P',
+	cmdsync    = 'S',
+	cmdtempo   = 'T',
+	cmdvariant = 'V',
+	cmdtocoda  = 'X'
+} ABCEVENT_CMD;
+
+typedef enum {
+	jumpnormal,
+	jumpfade,
+	jumpdacapo,
+	jumpdcfade,
+	jumpdasegno,
+	jumpdsfade,
+	jumpfine,
+	jumptocoda,
+	jumpvariant,
+	jumpnot
+} ABCEVENT_JUMPTYPE;
+
+typedef struct _ABCEVENT
+{
+	struct _ABCEVENT *next;
+	uint32_t tracktick;
+	union {
+		uint8_t par[6];
+		struct {
+			uint8_t flg;
+			uint8_t cmd;
+			uint32_t lpar;	// for variant selections, bit pattern
+		};
+	};
+	uint8_t part;
+	uint8_t tiednote;
+} ABCEVENT;
+
+typedef struct _ABCTRACK
+{
+	struct _ABCTRACK *next;
+	ABCEVENT *head;
+	ABCEVENT *tail;
+	ABCEVENT *capostart;
+	ABCEVENT *tienote;
+	int transpose;
+	int octave_shift;
+	uint32_t slidevoltime;	// for crescendo and diminuendo
+	int slidevol; // -2:fade away, -1:diminuendo, 0:none, +1:crescendo
+	uint8_t vno; // 0 is track is free for use, from previous song in multi-songbook
+	uint8_t vpos; // 0 is main voice, other is subtrack for gchords, gchords or drumnotes
+	uint8_t tiedvpos;
+	uint8_t mute;
+	uint8_t chan; // 10 is percussion channel, any other is melodic channel
+	uint8_t volume;
+	uint8_t instr;	// current instrument for this track
+	uint8_t legato;
+	char v[22];	// first twenty characters are significant
+} ABCTRACK;
+
+typedef struct _ABCMACRO
+{
+	struct _ABCMACRO *next;
+	char *name;
+	char *subst;
+	char *n;
+} ABCMACRO;
+
+/**************************************************************************
+**************************************************************************/
+
+typedef struct _ABCHANDLE
+{
+	ABCMACRO *macro;
+	ABCMACRO *umacro;
+	ABCTRACK *track;
+	long int pickrandom;
+	unsigned int len;
+	int speed;
+	char *line;
+	char *beatstring;
+	uint8_t beat[4]; // a:first note, b:strong notes, c:weak notes, n:strong note every n
+	char gchord[80];	// last setting for gchord
+	char drum[80]; // last setting for drum 
+	char drumins[80]; // last setting for drum 
+	char drumvol[80]; // last setting for drum 
+	uint32_t barticks;
+	// parse variables, declared here to avoid parameter pollution
+	int abcchordvol, abcchordprog, abcbassvol, abcbassprog;
+	int ktrans;
+	int drumon, gchordon, droneon;
+	int dronegm, dronepitch[2], dronevol[2];
+	ABCTRACK *tp, *tpc, *tpr;
+	uint32_t tracktime;
+} ABCHANDLE;
+
+/* !!! FIXME: global state */
+static int global_voiceno, global_octave_shift, global_tempo_factor, global_tempo_divider;
+static char global_part;
+static uint32_t global_songstart;
+/* Named guitar chords */
+static char chordname[MAXCHORDNAMES][8];
+static int chordnotes[MAXCHORDNAMES][6];
+static int chordlen[MAXCHORDNAMES];
+static int chordsnamed = 0;
+
+static const char *sig[] = {
+	" C D EF G A Bc d ef g a b",	// 7 sharps C#
+	" C D EF G AB c d ef g ab ",	// 6 sharps F#
+	" C DE F G AB c de f g ab ",	// 5 sharps B
+	" C DE F GA B c de f ga b ",	// 4 sharps E
+	" CD E F GA B cd e f ga b ",	// 3 sharps A
+	" CD E FG A B cd e fg a b ",	// 2 sharps D
+	" C D E FG A Bc d e fg a b",	// 1 sharps G
+	" C D EF G A Bc d ef g a b",	// 0 sharps C
+	" C D EF G AB c d ef g ab ",	// 1 flats  F
+	" C DE F G AB c de f g ab ",	// 2 flats  Bb
+	" C DE F GA B c de f ga b ",	// 3 flats  Eb
+	" CD E F GA B cd e f ga b ",	// 4 flats  Ab
+	" CD E FG A B cd e fg a b ",	// 5 flats  Db
+	"C D E FG A Bc d e fg a b ",	// 6 flats  Gb
+	"C D EF G A Bc d ef g a b ",	// 7 flats  Cb
+// 0123456789012345678901234	
+};
+
+static const char *keySigs[] = {
+/* 0....:....1....:....2....:....3....:....4....:....5. */
+	"7 sharps: C#    A#m   G#Mix D#Dor E#Phr F#Lyd B#Loc ",
+	"6 sharps: F#    D#m   C#Mix G#Dor A#Phr BLyd  E#Loc ",
+	"5 sharps: B     G#m   F#Mix C#Dor D#Phr ELyd  A#Loc ",
+	"4 sharps: E     C#m   BMix  F#Dor G#Phr ALyd  D#Loc ",
+	"3 sharps: A     F#m   EMix  BDor  C#Phr DLyd  G#Loc ",
+	"2 sharps: D     Bm    AMix  EDor  F#Phr GLyd  C#Loc ",
+	"1 sharp : G     Em    DMix  ADor  BPhr  CLyd  F#Loc ",
+	"0 sharps: C     Am    GMix  DDor  EPhr  FLyd  BLoc  ",
+	"1 flat  : F     Dm    CMix  GDor  APhr  BbLyd ELoc  ",
+	"2 flats : Bb    Gm    FMix  CDor  DPhr  EbLyd ALoc  ",
+	"3 flats : Eb    Cm    BbMix FDor  GPhr  AbLyd DLoc  ",
+	"4 flats : Ab    Fm    EbMix BbDor CPhr  DbLyd GLoc  ",
+	"5 flats : Db    Bbm   AbMix EbDor FPhr  GbLyd CLoc  ",
+	"6 flats : Gb    Ebm   DbMix AbDor BbPhr CbLyd FLoc  ",
+	"7 flats : Cb    Abm   GbMix DbDor EbPhr FbLyd BbLoc ",
+	0
+};
+
+// local prototypes
+static int abc_getnumber(const char *p, int *number);
+static ABCTRACK *abc_locate_track(ABCHANDLE *h, const char *voice, int pos);
+static void	abc_add_event(ABCHANDLE *h, ABCTRACK *tp, ABCEVENT *e);
+static void abc_add_setloop(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime);
+static void abc_add_setjumploop(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime, ABCEVENT_JUMPTYPE j);
+static uint32_t abc_pattracktime(ABCHANDLE *h, uint32_t tracktime);
+static int abc_patno(ABCHANDLE *h, uint32_t tracktime);
+
+static SDL_INLINE int IsAlpha(const char c) {
+    return ( ((c >= 'a') && (c <= 'z')) || ((c >= 'A') && (c <= 'Z')) );
+}
+
+static SDL_INLINE int IsUpper(const char c) {
+    return ( (c >= 'A') && (c <= 'Z') );
+}
+
+static SDL_INLINE int IsLower(const char c) {
+    return ( (c >= 'a') && (c <= 'z') );
+}
+
+static int abc_isvalidchar(char c) {
+	return(IsAlpha(c) || SDL_isdigit(c) || SDL_isspace(c) || c == '%' || c == ':');
+}
+
+static const char *abc_skipspace(const char *p)
+{
+	while (*p && SDL_isspace(*p))
+		p++;
+	return p;
+}
+
+static void abc_extractkeyvalue(char *key, size_t key_max,
+								char *value, size_t value_max, const char *src)
+{
+	while (*src && SDL_isspace(*src))
+		src++;
+
+	size_t key_size;
+	for (key_size = 0; key_size < key_max - 1 && *src;) {
+		if (*src == '=') {
+			src++;
+			break;
+		}
+		key[key_size++] = *src++;
+	}
+	while (key_size > 0 && SDL_isspace(key[key_size - 1]))
+		key_size--;
+	key[key_size] = '\0';
+
+	while (*src && SDL_isspace(*src))
+		src++;
+
+	size_t value_size;
+	for (value_size = 0; value_size < value_max - 1 && *src;)
+		value[value_size++] = *src++;
+	while (value_size > 0 && SDL_isspace(value[value_size - 1]))
+		value_size--;
+	value[value_size] = '\0';
+}
+
+static void abc_message(const char *s1, const char *s2)
+{
+	char txt[256];
+	if( SDL_strlen(s1) + SDL_strlen(s2) > 255 ) return;
+	SDL_snprintf(txt, sizeof (txt), s1, s2);
+	SDL_LogInfo(SDL_LOG_CATEGORY_AUDIO, "load_abc > %s\n", txt);
+}
+
+static uint32_t modticks(uint32_t abcticks)
+{
+	return abcticks / RESOLUTION;
+}
+
+static uint32_t abcticks(uint32_t modticks)
+{
+	return modticks * RESOLUTION;
+}
+
+static uint32_t notelen_notediv_to_ticks(int speed, int len, int div)
+{
+	uint32_t u;
+	if (div == 0) return 0;
+	u = (ROWSPERNOTE * RESOLUTION * speed * len * global_tempo_factor) / (div * global_tempo_divider);
+	return u;
+}
+
+static void abc_dumptracks(ABCHANDLE *h, const char *p)
+{
+#if 0
+	ABCTRACK *t;
+	ABCEVENT *e;
+	int n,pat,row,tck;
+	char nn[3];
+	if( !h ) return;
+	for( t=h->track; t; t=t->next ) {
+		printf("track %d.%d chan=%d %s\n", (int)(t->vno), (int)(t->vpos),
+		                                   (int)(t->chan), (char *)(t->v));
+		if( SDL_strcmp(p,"nonotes") )
+			n = 1;
+		else
+			n = 0;
+		for( e=t->head; e; e=e->next ) {
+			tck = modticks(e->tracktick);
+			row = tck / h->speed;
+			pat = row / 64;
+			tck = tck % h->speed;
+			row = row % 64; 
+			nn[0] = ( e->tracktick % abcticks(h->speed * 64) ) ? ' ': '-';
+			if( e->flg == 1 ) {
+				printf("  %6d.%02d.%d%c%c %d.%d %s ",
+				       pat, row, tck, nn[0], (int)(e->part), (int)(t->vno),
+				       (int)(t->vpos), (char *)(t->v));
+				if( e->cmd == cmdchord ) {
+					nn[0] = "CCCDDEFFGGAABccddeffggaabb"[e->par[chordnote]];
+					nn[1] = "b # #  # # #  # #  # # # #"[e->par[chordnote]];
+					nn[2] = '\0';
+					if( SDL_isspace(nn[1]) ) nn[1] = '\0';
+					printf("CMD %c: gchord %s%s",
+					       (char)(e->cmd), nn, chordname[e->par[chordnum]]);
+					if( e->par[chordbase] != e->par[chordnote] ) {
+						nn[0] = "CCCDDEFFGGAABccddeffggaabb"[e->par[chordbase]];
+						nn[1] = "b # #  # # #  # #  # # # #"[e->par[chordbase]];
+						nn[2] = '\0';
+						printf("/%s", nn);
+					}
+					printf("\n");
+				}
+				else
+					printf("CMD %c @%p 0x%08lX\n",
+					       (char)(e->cmd), e,
+					       (unsigned long)(e->lpar));
+				if( SDL_strcmp(p,"nonotes") )
+					n = 1;
+				else
+					n = 0;
+			}
+			else if( n ) {
+				printf("  %6d.%02d.%d%c%c %d.%d %s ", pat, row, tck, nn[0], e->part, t->vno, t->vpos, t->v);
+				if( e->par[note] ) {
+					nn[0] = "CCCDDEFFGGAABccddeffggaabb"[e->par[note]-23];
+					nn[1] = "b # #  # # #  # #  # # # #"[e->par[note]-23];
+					nn[2] = '\0';
+				}
+				else SDL_strlcpy(nn,"--",sizeof (nn));
+				printf("NOTE %s octave %d inst %s vol %03d\n", 
+					nn, e->par[octave], pat_gm_name(pat_smptogm(e->par[smpno])),e->par[volume]);
+				if( SDL_strcmp(p,"all") )
+					n = 0;
+			}
+		}
+	}
+#endif
+}
+
+
+// =====================================================================================
+static ABCEVENT *abc_new_event(ABCHANDLE *h, uint32_t abctick, const char data[])
+// =====================================================================================
+{
+    ABCEVENT   *retval;
+		int i;
+
+    retval = (ABCEVENT *)_mm_calloc(h->trackhandle, 1,sizeof(ABCEVENT));
+		retval->next        = NULL;
+    retval->tracktick   = abctick;
+		for( i=0; i<6; i++ )
+	    retval->par[i]    = data[i];
+		retval->part = global_part;
+		retval->tiednote = 0;
+    return retval;
+}
+
+// =============================================================================
+static ABCEVENT *abc_copy_event(ABCHANDLE *h, ABCEVENT *se)
+// =============================================================================
+{
+	ABCEVENT *e;
+	e = (ABCEVENT *)_mm_calloc(h->trackhandle, 1,sizeof(ABCEVENT));
+	e->next        = NULL;
+	e->tracktick   = se->tracktick;
+	e->flg         = se->flg;
+	e->cmd         = se->cmd;
+	e->lpar        = se->lpar;
+	e->part        = se->part;
+	return e;
+}
+
+// =============================================================================
+static void abc_new_macro(ABCHANDLE *h, const char *m)
+// =============================================================================
+{
+    ABCMACRO *retval;
+	char key[256], value[256];
+	abc_extractkeyvalue(key, sizeof(key), value, sizeof(value), m);
+
+    retval = (ABCMACRO *)_mm_calloc(h->macrohandle, 1,sizeof(ABCMACRO));
+    retval->name  = DupStr(h->macrohandle, key, SDL_strlen(key));
+		retval->n     = SDL_strrchr(retval->name, 'n'); // for transposing macro's
+    retval->subst = DupStr(h->macrohandle, value, SDL_strlen(value));
+		retval->next  = h->macro;
+		h->macro      = retval;
+}
+
+// =============================================================================
+static void abc_new_umacro(ABCHANDLE *h, const char *m)
+// =============================================================================
+{
+    ABCMACRO *retval, *mp;
+    char *q;
+
+		char key[256], value[256];
+		abc_extractkeyvalue(key, sizeof(key), value, sizeof(value), m);
+		if( SDL_strlen(key) > 1 || SDL_strchr("~HIJKLMNOPQRSTUVWXY",SDL_toupper(key[0])) == 0 ) return;
+		while( (q = SDL_strchr(key, '!')) != NULL )
+			*q = '+'; // translate oldstyle to newstyle
+		if( !SDL_strcmp(key,"+nil+") ) { // delete a macro
+			mp = NULL;
+			for( retval=h->umacro; retval; retval = retval->next ) {
+				if( retval->name[0] == key[0] ) {	// delete this one
+					if( mp ) mp->next = retval->next;
+					else h->umacro = retval->next;
+					_mm_free(h->macrohandle, retval);
+					return;
+				}
+				mp = retval;
+			}
+			return;
+		}
+    retval = (ABCMACRO *)_mm_calloc(h->macrohandle, 1,sizeof(ABCMACRO));
+    retval->name  = DupStr(h->macrohandle, key, 1);
+    retval->subst = DupStr(h->macrohandle, value, SDL_strlen(value));
+		retval->n     = 0;
+		retval->next  = h->umacro; // by placing it up front we mask out the old macro until we +nil+ it
+		h->umacro      = retval;
+}
+
+// =============================================================================
+static ABCTRACK *abc_new_track(ABCHANDLE *h, const char *voice, int pos)
+// =============================================================================
+{
+	ABCTRACK *retval;
+	if( !pos ) global_voiceno++;
+	retval = (ABCTRACK *)_mm_calloc(h->trackhandle, 1,sizeof(ABCTRACK));
+	retval->next         = NULL;
+	retval->vno          = global_voiceno;
+	retval->vpos         = pos;
+	retval->tiedvpos     = pos;
+	retval->instr        = 1;
+	SDL_strlcpy(retval->v, voice, 20);
+	retval->v[20]        = '\0';
+	retval->head         = NULL;
+	retval->tail         = NULL;
+	retval->capostart    = NULL;
+	retval->tienote      = NULL;
+	retval->mute         = 0;
+	retval->chan         = 0;
+	retval->transpose    = 0;
+	retval->volume       = h->track? h->track->volume: 120;
+	retval->slidevoltime = 0;
+	retval->slidevol     = 0;
+	retval->legato       = 0;
+	return retval;
+}
+
+static int abc_numtracks(ABCHANDLE *h)
+{
+	int n;
+	ABCTRACK *t;
+	n=0;
+	for( t = h->track; t; t=t->next )
+		n++;
+	return n;
+}
+
+static int abc_interval(const char *s, const char *d)
+{
+	const char *p;
+	int i,j,k;
+	int n,oct,m[2];
+	for( j=0; j<2; j++ ) {
+		if( j ) p = d; 
+		else p = s;
+		switch(p[0]) {
+			case '^':
+				n = p[1];
+				i = 2;
+				break;
+			case '_':
+				n = p[1];
+				i = 2;
+				break;
+			case '=':
+				n = p[1];
+				i = 2;
+				break;
+			default:
+				n = p[0];
+				i = 1;
+				break;
+		}
+		for( k=0; k<25; k++ )
+			if( n == sig[7][k] )
+				break;
+		oct = 4;	// ABC note pitch C is C4 and pitch c is C5
+		if( k > 12 ) {
+			oct++;
+			k -= 12;
+		}
+		while( p[i] == ',' || p[i] == '\'' ) {
+			if( p[i] == ',' )
+				oct--;
+			else
+				oct++;
+			i++;
+		}
+		m[j] = k + 12 * oct;
+	}
+	return m[0] - m[1];
+}
+
+static int abc_transpose(const char *v)
+{
+	int i,j,t;
+	const char *m = "B", *mv = "";
+	t = 0;
+	global_octave_shift = 99;
+	for( ; *v && *v != ']'; v++ ) {
+		if( !SDL_strncasecmp(v,"t=",2) ) {
+			v+=2;
+			if( *v=='-' )	{
+				j = -1;
+				v++;
+			}
+			else j = 1;
+			v+=abc_getnumber(v,&i);
+			t += i * j;
+			global_octave_shift = 0;
+		}
+		if( !SDL_strncasecmp(v,"octave=",7) ) {
+			v+=7;
+			if( *v=='-' )	{
+				j = -1;
+				v++;
+			}
+			else j = 1;
+			v+=abc_getnumber(v,&i);
+			t += i * j * 12;
+			global_octave_shift = 0;
+		}
+		if( !SDL_strncasecmp(v,"transpose=",10) ) {
+			v+=10;
+			if( *v=='-' )	{
+				j = -1;
+				v++;
+			}
+			else j = 1;
+			v+=abc_getnumber(v,&i);
+			t += i * j;
+			global_octave_shift = 0;
+		}
+		if( !SDL_strncasecmp(v,"octave=",7) ) { // used in kv304*.abc
+			v+=7;
+			if( *v=='-' )	{
+				j = -1;
+				v++;
+			}
+			else j = 1;
+			v+=abc_getnumber(v,&i);
+			t += i * j * 12;
+			global_octave_shift = 0;
+		}
+		if( !SDL_strncasecmp(v,"m=",2) ) {
+			v += 2;
+			mv = v; // get the pitch for the middle staff line 
+			while( *v && *v != ' ' && *v != ']' ) v++;
+			global_octave_shift = 0;
+		}
+		if( !SDL_strncasecmp(v,"middle=",7) ) {
+			v += 7;
+			mv = v; // get the pitch for the middle staff line 
+			while( *v && *v != ' ' && *v != ']' ) v++;
+			global_octave_shift = 0;
+		}
+		if( !SDL_strncasecmp(v,"clef=",5) )
+			v += 5;
+		j = 1;
+		if( !SDL_strncasecmp(v,"treble",6) ) {
+			j = 0;
+			v += 6;
+			switch( *v ) {
+				case '1':	v++; m = "d";	break;
+				case '2': v++;
+				default: m = "B";	break;
+				case '3': v++; m = "G";	break;
+				case '4': v++; m = "E";	break;
+				case '5': v++; m = "C";	break;
+			}
+			global_octave_shift = 0;
+		}
+		if( j && !SDL_strncasecmp(v,"bass",4) ) {
+			j = 0;
+			v += 4;
+			switch( *v ) {
+				case '1':	v++; m = "C";	break;
+				case '2': v++; m = "A,";	break;
+				case '3': v++; m = "F,";	break;
+				case '4': v++;
+				default: m = "D,";	break;
+				case '5': v++; m = "B,,";	break;
+			}
+			if( global_octave_shift == 99 )
+				global_octave_shift = -2;
+		}
+		if( j && !SDL_strncasecmp(v,"tenor",5) ) {
+			j = 0;
+			v += 5;
+			switch( *v ) {
+				case '1':	v++; m = "G";	break;
+				case '2': v++; m = "E";	break;
+				case '3': v++; m = "C";	break;
+				case '4': v++;
+				default: m = "A,";	break;
+				case '5': v++; m = "F,";	break;
+			}
+			if( global_octave_shift == 99 )
+				global_octave_shift = 1;
+		}
+		if( j && !SDL_strncasecmp(v,"alto",4) ) {
+			j = 0;
+			v += 4;
+			switch( *v ) {
+				case '1':	v++; m = "G";	break;
+				case '2': v++; m = "E";	break;
+				case '3': v++; 
+				default: m = "C";	break;
+				case '4': v++; m = "A,";	break;
+				case '5': v++; m = "F,";	break;
+			}
+			if( global_octave_shift == 99 )
+				global_octave_shift = 1;
+		}
+		if( j && SDL_strchr("+-",*v) && *v && v[1]=='8' ) {
+			switch(*v) {
+				case '+':
+					t += 12;
+					break;
+				case '-':
+					t -= 12;
+					break;
+			}
+			v += 2;
+			if( !SDL_strncasecmp(v,"va",2) ) v += 2;
+			global_octave_shift = 0;
+			j = 0;
+		}
+		if( j ) {
+			while( *v && *v != ' ' && *v != ']' ) v++;
+		}
+	}
+	if( SDL_strlen(mv) > 0 ) // someone set the middle note
+		t += abc_interval(mv, m);
+	if( global_octave_shift == 99 )
+		global_octave_shift = 0;
+	return t;
+}
+
+// =============================================================================
+static ABCTRACK *abc_locate_track(ABCHANDLE *h, const char *voice, int pos)
+// =============================================================================
+{
+	ABCTRACK *tr, *prev, *trunused;
+	char vc[21];
+	int i, trans=0, voiceno=0, instrno = 1, channo = 0;
+	for( ; *voice == ' '; voice++ ) ;	// skip leading spaces
+	for( i=0; i+1 < sizeof(vc) && *voice && *voice != ']' && *voice != '%' && !SDL_isspace(*voice); voice++ )	// can work with inline voice instructions
+		vc[i++] = *voice;
+	vc[i] = '\0';
+	prev = NULL;
+	trunused = NULL;
+	if( !pos )	trans = abc_transpose(voice);
+	for( tr=h->track; tr; tr=tr->next ) {
+		if( tr->vno == 0 ) {
+			if( !trunused ) trunused = tr; // must reuse mastertrack (h->track) as first
+		}
+		else {
+			if( !SDL_strncasecmp(tr->v, vc, 20) ) {
+				if( tr->vpos == pos ) 
+					return tr;
+				trans = tr->transpose;
+				global_octave_shift = tr->octave_shift;
+				voiceno = tr->vno;
+				instrno = tr->instr;
+				channo  = tr->chan;
+			}
+		}
+		prev = tr;
+	}
+	if( trunused ) {
+		tr = trunused;
+		if( pos ) {
+			tr->vno   = voiceno;
+			tr->instr = instrno;
+			tr->chan  = channo;
+		}
+		else {
+			global_voiceno++;
+	    tr->vno   = global_voiceno;
+			tr->instr = 1;
+			tr->chan  = 0;
+		}
+    tr->vpos         = pos;
+		tr->tiedvpos     = pos;
+		SDL_strlcpy(tr->v, vc, 20);
+		tr->v[20]        = '\0';
+		tr->mute         = 0;
+		tr->transpose    = trans;
+		tr->octave_shift = global_octave_shift;
+		tr->volume       = h->track->volume;
+		tr->tienote      = NULL;
+		tr->legato       = 0;
+		return tr;
+	}
+	tr = abc_new_track(h, vc, pos);
+	if( pos ) {
+		tr->vno   = voiceno;
+		tr->instr = instrno;
+		tr->chan  = channo;
+	}
+	tr->transpose    = trans;
+	tr->octave_shift = global_octave_shift;
+	if( prev ) prev->next = tr;
+	else	h->track = tr;
+	return tr;
+}
+
+// =============================================================================
+static ABCTRACK *abc_check_track(ABCHANDLE *h, ABCTRACK *tp)
+// =============================================================================
+{
+	if( !tp ) { 
+		tp = abc_locate_track(h, "", 0);	// must work for voiceless abc too...
+		tp->transpose = h->ktrans;
+	}
+	return tp;
+}
+
+static void abc_add_capo(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	char d[6];
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdcapo;
+	e = abc_new_event(h, tracktime, d);
+	tp->capostart = e;
+	abc_add_event(h, tp, e); // do this last (recursion danger)
+}
+
+static void abc_add_segno(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	char d[6];
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdsegno;
+	e = abc_new_event(h, tracktime, d);
+	abc_add_event(h, tp, e);
+}
+
+static void abc_add_coda(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	char d[6];
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdcoda;
+	e = abc_new_event(h, tracktime, d);
+	abc_add_event(h, tp, e);
+}
+
+static void abc_add_fine(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	char d[6];
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdfine;
+	e = abc_new_event(h, tracktime, d);
+	abc_add_event(h, tp, e);
+}
+
+static void abc_add_tocoda(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	char d[6];
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdtocoda;
+	e = abc_new_event(h, tracktime, d);
+	abc_add_event(h, tp, e);
+}
+
+// first track is dirigent, remove all control events from other tracks
+// to keep the information where the events should be relative to note events
+// in the same tick the ticks are octated and four added for note events
+// the control events that come before the note events get a decremented tick,
+// those that come after get an incremented tick, for example:
+//             ctrl ctrl note ctrl ctrl  note
+//   original: t    t    t    t    t+1   t+1
+//   recoded:  8t+1 8t+2 8t+4 8t+5 8t+11 8t+12
+static void abc_remove_unnecessary_events(ABCHANDLE *h)
+{
+	ABCTRACK *tp,*ptp;
+	ABCEVENT *ep, *el;
+	uint32_t ct, et;
+	int d;
+	ptp = NULL;
+	for( tp=h->track; tp; tp=tp->next ) {
+		el = NULL;
+		ep = tp->head;
+		ct = 0;
+		d  = -3;
+		while( ep ) {
+			et = ep->tracktick;
+			ep->tracktick <<= 3;
+			ep->tracktick += 4;
+			if( ep->flg == 1 ) {
+				ep->tracktick += d;	
+				d++;
+				if( d == 0 ) d = -1;
+				if( d == 4 ) d =  3;
+				if( tp!=h->track ) ep->cmd = cmdhide;
+				switch( ep->cmd ) {
+					case cmdhide:
+					case cmdsync:
+						if( el ) {
+							el->next = ep->next;
+							if( !el->next )
+								tp->tail = el;
+							_mm_free(h->trackhandle,ep);
+							ep = el->next;
+						}
+						else {
+							tp->head = ep->next;
+							if( !tp->head )
+								tp->tail = NULL;
+							_mm_free(h->trackhandle,ep);
+							ep = tp->head;
+						}
+						break;
+					default:
+						el = ep;
+						ep = ep->next;
+						break;
+				}
+			}
+			else {
+				el = ep;
+				ep = ep->next;
+				d  = 1;
+			}
+			if( et > ct )
+				d = -3;
+			ct = et;
+		}
+		if( !tp->head ) { // no need to keep empty tracks...
+			if( ptp ) {
+				ptp->next = tp->next;
+				_mm_free(h->trackhandle,tp);
+				tp = ptp;
+			}
+			else if (tp->next) {
+				h->track = tp->next;
+				_mm_free(h->trackhandle,tp);
+				tp = h->track;
+			} else {
+				break;
+			}
+		}
+		ptp = tp;	// remember previous track
+	}
+}
+
+// set ticks back, and handle partbreaks
+static void abc_retick_events(ABCHANDLE *h)
+{
+	ABCTRACK *tp;
+	ABCEVENT *ep;
+	uint32_t et, tt=0, at = abcticks(64 * h->speed);
+	for( tp=h->track; tp; tp=tp->next ) {
+		// make ticks relative
+		tt = 0;
+		for( ep=tp->head; ep; ep=ep->next ) {
+			et = ep->tracktick >> 3;
+			ep->tracktick = et - tt;
+			tt = et;
+		}
+		// make ticks absolute again, skipping no-op partbreaks
+		tt = 0;
+		for( ep=tp->head; ep; ep=ep->next ) {
+			ep->tracktick += tt;
+			tt = ep->tracktick;
+			if( ep->flg == 1 && ep->cmd == cmdpartbrk ) {
+				if( tt % at ) {
+					tt += at;
+					tt /= at;
+					tt *= at;
+					ep->tracktick -= abcticks(h->speed); // break plays current row
+				}
+				else ep->cmd = cmdhide;
+			}
+		}
+	}
+}
+
+// make sure every track has the control events it needs, this way it is not
+// necessary to have redundant +segno+ +D.C.+ etc in the voices, the first voice
+// is the master, it is pointed to by the member 'track' in the ABCHANDLE
+static void abc_synchronise_tracks(ABCHANDLE *h)
+{
+	ABCTRACK *tp;
+	uint32_t tm;	// tracktime in master
+	ABCEVENT *em, *es, *et, *ec;	// events in master, slave, slave temporary and copied event
+	if( !h || !h->track ) return;
+	abc_remove_unnecessary_events(h);
+	for( tp = h->track->next; tp; tp = tp->next ) {
+		for( em=h->track->head; em; em=em->next ) {
+			if( em->flg == 1 ) { // some kind of control event
+				switch( em->cmd ) {
+					case cmdchord:
+					case cmdhide:
+					case cmdtempo:
+					case cmdsync:
+						break;
+					default:	// check to see if copy is necessary
+						ec = abc_copy_event(h, em);
+						tm = em->tracktick;
+						es = tp->head; // allways search from the begin...
+						for( et=es; et && et->tracktick <= tm; et=et->next )
+							es = et;
+						if( es == NULL || es->tracktick > tm ) {	// special case: head of track
+							ec->next = es;
+							tp->head = ec;
+						}
+						else {
+							ec->next = es->next;
+							es->next = ec;
+						}
+						break;
+				}
+			}
+		}
+	}
+	abc_retick_events(h);
+}
+
+static void	abc_add_event(ABCHANDLE *h, ABCTRACK *tp, ABCEVENT *e)
+{
+	if( !tp->capostart ) abc_add_capo(h, tp, global_songstart);
+	if( tp->tail ) {
+		tp->tail->next = e;
+		tp->tail = e;
+	}
+	else {
+		tp->head = e;
+		tp->tail = e;
+	}
+}
+
+static void abc_add_partbreak(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	char d[6];
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdpartbrk;
+	e = abc_new_event(h, tracktime, d);
+	abc_add_event(h, tp, e);
+}
+
+static void abc_add_tempo_event(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime, int tempo)
+{
+	ABCEVENT *e;
+	char d[6];
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdtempo;
+	e = abc_new_event(h, tracktime, d);
+	e->lpar = tempo;
+	abc_add_event(h, tp, e);
+}
+
+static void abc_add_noteoff(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	char d[6];
+	d[note]    = 0;
+	d[octave]  = 0;
+	d[smpno]   = pat_gmtosmp(tp->instr);
+	d[volume]  = 0;
+	d[effect]  = 0;
+	d[effoper] = 0;
+	e = abc_new_event(h, tracktime, d);
+	abc_add_event(h, tp, e);
+}
+
+static int abc_dynamic_volume(ABCTRACK *tp, uint32_t tracktime, int vol)
+{
+	uint32_t slidetime;
+	int voldelta;
+	if( tp->mute ) return 0;
+	if( tp->slidevol == 0 ) return vol;
+	if( tracktime < tp->slidevoltime ) return vol;
+	slidetime = modticks(tracktime - tp->slidevoltime);
+	voldelta = (slidetime * 15) / 64 / 6;	// slide from say mf up to f in one pattern's time
+	if( tp->slidevol > -2 && voldelta > 15 ) voldelta = 15;	// never to much dynamics
+	if( tp->slidevol > 0 ) vol += voldelta;
+	else vol -= voldelta;
+	if( vol < 2 ) vol = 2; // xmms divides this by 2....
+	if( vol > 127 ) vol = 127;
+	return vol;
+}
+
+static void abc_track_untie_short_chordnotes(ABCHANDLE *h)
+{
+	ABCTRACK *tp;
+	int vn;
+	tp = h->tp;
+	vn = tp->vno;
+	for( tp = h->track; tp; tp = tp->next )
+		if( tp != h->tp && tp->vno == vn && tp->tienote ) {
+			abc_message("short notes in chord can not be tied:\n%s", h->line);
+			tp->tienote = 0;
+		}
+}
+
+static void abc_track_clear_tiednote(ABCHANDLE *h)
+{
+	ABCTRACK *tp;
+	int vn;
+	tp = h->tp;
+	vn = tp->vno;
+	for( tp = h->track; tp; tp = tp->next )
+		if( tp->vno == vn ) tp->tienote = 0;
+}
+
+static void abc_track_clear_tiedvpos(ABCHANDLE *h)
+{
+	ABCTRACK *tp;
+	int vn;
+	tp = h->tp;
+	vn = tp->vno;
+	for( tp = h->track; tp; tp = tp->next )
+		if( tp->vno == vn ) tp->tiedvpos = tp->vpos;
+}
+
+static ABCTRACK *abc_track_with_note_tied(ABCHANDLE *h, uint32_t tracktime, int n, int oct)
+{
+	int vn, vp;
+	ABCTRACK *tp;
+	ABCEVENT *e;
+	tp = h->tp;
+	vn = tp->vno;
+	vp = tp->vpos;
+	for( tp = h->track; tp; tp = tp->next ) {
+		if( tp->vno == vn ) {
+			e = tp->tienote;
+			if( e && e->tracktick < tracktime
+			&& e->par[octave] == oct && SDL_abs(e->par[note] - n) < 3 ) {
+				if( tp->vpos != vp ) tp->tiedvpos = vp;
+				h->tp = tp;
+				return tp;
+			}
+		}
+	}
+	tp = h->tp;
+	vp = tp->tiedvpos;
+	if( tp->vpos != vp ) {
+		// chord note track already returned in previous call
+		for( tp = h->track; tp; tp = tp->next ) {
+			if( tp->vno == vn && tp->vpos == vp ) {
+				tp->tiedvpos = h->tp->vpos;
+				h->tp = tp;
+				return tp;
+			}
+		}
+	}
+	return h->tp;
+}
+
+static int abc_add_noteon(ABCHANDLE *h, int ch, const char *p, uint32_t tracktime, char *barkey, int vol, ABCEVENT_X_EFFECT fx, int fxop)
+{
+	ABCEVENT *e;
+	ABCTRACK *tp;
+	int i,j,k;
+	int n,oct;
+	char d[6];
+	tp = h->tp;
+	switch(ch) {
+		case '^':
+			if( p[0] == '^' ) {
+				n = p[1];
+				i = 2;
+				ch = 'x';
+			}
+			else {
+				n = p[0];
+				i = 1;
+			}
+			break;
+		case '_':
+			if( p[0] == '_' ) {
+				n = p[1];
+				i = 2;
+				ch = 'b';
+			}
+			else {
+				n = p[0];
+				i = 1;
+			}
+			break;
+		case '=':
+			n = p[0];
+			i = 1;
+			break;
+		default:
+			n = ch;
+			i = 0;
+			break;
+	}
+	for( k=0; k<51; k++ ) {
+		if( n == barkey[k] )
+			break;
+	}
+	j = k;
+	if( k > 24 )
+		k -= 25; // had something like A# over Bb key F signature....
+	if( i ) {
+		// propagate accidentals if necessary
+		// DON'T do redundant accidentals they're always relative to C-scale
+		for( k=0; k<25; k++ ) {
+			if( n == sig[7][k] )
+				break;
+		}
+		if( k < 25 ) { // only do real notes...
+		switch(ch) {
+			case 'x':
+				k++;
+			case '^':
+				k++;
+				break;
+			case 'b':
+				k--;
+			case '_':
+				k--;
+				break;
+			case '=':
+						break;
+				}
+			if( j < 25 ) // was it not A# over Bb?
+			barkey[j] = ' ';
+			barkey[k] = n;
+		}
+	}
+	oct = 3;	// ABC note pitch C is C4 and pitch c is C5
+	if( k < 25 ) {
+		k += tp->transpose;
+		while( k > 12 ) {
+			oct++;
+			k -= 12;
+		}
+		while( k < 0 ) {
+			oct--;
+			k += 12;
+		}
+		d[note] = 23 + k;	// C0 is midi notenumber 24
+	}
+	else
+		d[note] = 0; // someone has doen ^X3 or something like it...
+	while( p[i] && SDL_strchr(",'",p[i]) ) {
+		if( p[i]==',' ) oct--;
+		else oct++;
+		i++;
+		tp->octave_shift = 0;	// forget we ever had to look at it
+	}
+	if( tp->octave_shift )
+		tp->transpose += 12 * tp->octave_shift;
+	oct += tp->octave_shift;
+	tp->octave_shift = 0;	// after the first note we never have to look at it again
+	if( oct < 0 ) oct = 0;
+	if( oct > 9 ) oct = 9;
+	d[octave]  = oct;
+	d[smpno]   = pat_gmtosmp(tp->instr);
+	d[volume]  = abc_dynamic_volume(tp, tracktime, vol);
+	d[effect]  = fx; // effect
+	d[effoper] = fxop;
+	tp = abc_track_with_note_tied(h, tracktime, d[note], oct);
+	if( tp->tienote ) {
+		if( tp->tienote->par[note] != d[note] ) {
+			if( SDL_abs(tp->tienote->par[note] - d[note]) < 3 ) {
+				// may be tied over bar symbol, recover local accidental to barkey
+				k = tp->tienote->par[note] - 23 - tp->transpose;
+				while( k < 0 ) k += 12;
+				while( k > 12 ) k -= 12;
+				if( (IsUpper(n) && barkey[k+12] == ' ') || (IsLower(n) && barkey[k] == ' ') ) {
+					barkey[j] = ' ';
+					if( IsUpper(n) )
+						barkey[k] = n;
+					else
+						barkey[k+12] = n;
+					d[note]   = tp->tienote->par[note];
+					d[octave] = tp->tienote->par[octave];
+				}
+			}
+		}
+	}
+	if( tp->tienote
+	&& tp->tienote->par[note]   == d[note]
+	&& tp->tienote->par[octave] == d[octave] ) {
+		for( e = tp->tienote; e; e = e->next ) {
+			if( e->par[note] == 0 && e->par[octave] == 0 ) {	// undo noteoff
+				e->flg = 1;
+				e->cmd = cmdhide;
+				e->lpar = 0;
+				break;
+			}
+		}
+		tp->tienote->tiednote = 1; // mark him for the pattern writers
+		for( j=i; SDL_isdigit(p[j]) || p[j]=='/'; j++ ) ; // look ahead to see if this one is tied too
+		if( p[j] != '-' ) // is this note tied too?
+			tp->tienote = NULL; // if not the tie ends here...
+		return i;
+	}
+	tp->tienote = NULL;
+	if( tp->tail 
+	&& tp->tail->tracktick == tracktime
+	&& tp->tail->par[note]      == 0
+	&& tp->tail->par[octave]    == 0 ) {
+		for( j=0; j<6; j++ )
+	    tp->tail->par[j]   = d[j];
+	}
+	else {
+		e = abc_new_event(h, tracktime, d);
+		abc_add_event(h, tp, e);
+	}
+	if( i > 0 && p[i-1] == '"' ) {
+		i--; // someone coded a weird note like ^"E"
+		abc_message("strange note encountered scanning %s", h->line);
+	}
+	return i;
+}
+
+static void abc_add_dronenote(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime, int nnum, int vol)
+{
+	ABCEVENT *e;
+	int j,k;
+	int oct;
+	char d[6];
+	oct = -1;	// ABC note pitch C is C4 and pitch c is C5
+	k = nnum + 1;
+	while( k > 12 ) {
+		oct++;
+		k -= 12;
+	}
+	while( k < 0 ) {
+		oct--;
+		k += 12;
+	}
+	if( oct < 0 ) oct = 0;
+	d[note] = 23 + k;	// C0 is midi notenumber 24
+	d[octave]  = oct;
+	d[smpno]   = pat_gmtosmp(tp->instr);
+	d[volume]  = abc_dynamic_volume(tp, tracktime, vol);
+	d[effect]  = 0; // effect
+	d[effoper] = 0;
+	if( tp->tail 
+	&& tp->tail->tracktick == tracktime
+	&& tp->tail->par[note]      == 0
+	&& tp->tail->par[octave]    == 0 ) {
+		for( j=0; j<6; j++ )
+	    tp->tail->par[j]   = d[j];
+	}
+	else {
+		e = abc_new_event(h, tracktime, d);
+		abc_add_event(h, tp, e);
+	}
+}
+
+static void abc_add_chordnote(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime, int nnum, int vol)
+{
+	abc_add_dronenote(h, tp, tracktime, nnum + 23, tp->mute? 0: vol);
+}
+
+static void abc_add_drumnote(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime, int nnum, int vol)
+{
+	abc_add_dronenote(h, tp, tracktime, nnum, tp->mute? 0: vol);
+}
+
+static void abc_add_variant_start(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime, int n)
+{
+	ABCEVENT *e;
+	char d[6];
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdvariant;
+	e = abc_new_event(h, tracktime, d);
+	e->lpar = 1<<n;
+	abc_add_event(h, tp, e);
+}
+
+static void abc_add_variant_choise(ABCTRACK *tp, int n)
+{
+  tp->tail->lpar |= 1<<n;
+}
+
+static void	abc_add_chord(const char *p, ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	char d[6];
+	char s[8];
+	int i;
+	const char *n = " C D EF G A Bc d ef g a b";
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdchord;
+	if( p[0] == '(' ) p++;	// chord between parens like: (C)
+	for( i=0; n[i]; i++ )
+		if( *p == n[i] ) {
+			d[chordnote] = i;
+			break;
+		}
+	p++;
+	switch(*p) {
+		case 'b':
+			d[chordnote]--;
+			p++;
+			break;
+		case '#':
+			d[chordnote]++;
+			p++;
+			break;
+	}
+	d[chordbase] = d[chordnote];
+	for( i=0; i < sizeof(s) - 1 && p[i] && p[i] != '"' && p[i] != '/' && p[i] != '(' && p[i] != ')' && p[i] != ' '; i++ ) s[i] = p[i];
+	s[i] = '\0';
+	p = &p[i];
+	if( *p=='/' ) {
+		p++;
+		for( i=0; n[i]; i++ )
+			if( *p == n[i] ) {
+				d[chordbase] = i;
+				break;
+			}
+		p++;
+		switch(*p) {
+			case 'b':
+				d[chordbase]--;
+				p++;
+				break;
+			case '#':
+				d[chordbase]++;
+				p++;
+				break;
+		}
+	}
+	for( i=0; i<chordsnamed; i++ )
+		if( !SDL_strcmp(s, chordname[i]) ) {
+			d[chordnum] = i;
+			break;
+		}
+	if( i==chordsnamed ) {
+		abc_message("Failure: unrecognized chordname %s",s);
+		return;
+	}
+	e = abc_new_event(h, tracktime, d);
+	abc_add_event(h, tp, e);
+}
+
+static void abc_add_setloop(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	char d[6];
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdloop;
+	e = abc_new_event(h, tracktime, d);
+	abc_add_event(h, tp, e);
+}
+
+static void abc_fade_track(ABCTRACK *tp, ABCEVENT *e)
+{
+	while(e) {
+		if( e->flg != 1 && e->par[note] != 0 )
+			e->par[volume] = abc_dynamic_volume(tp, e->tracktick, e->par[volume]);
+		e = e->next;
+	}
+}
+
+static void abc_add_setjumploop(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime, ABCEVENT_JUMPTYPE j)
+{
+	ABCEVENT *e;
+	char d[8];
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdjump;
+	d[jumptype] = j;
+	e = abc_new_event(h, tracktime, d);
+	abc_add_event(h, tp, e);
+}
+
+static void abc_add_sync(ABCHANDLE *h, ABCTRACK *tp, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	char d[6];
+	e = tp->tail;
+	if( e && e->tracktick == tracktime ) return;
+	if( e && e->flg == 1 && e->cmd == cmdsync ) {
+		e->tracktick = tracktime;
+		return;
+	}
+	d[0] = d[1] =	d[2] = d[3] = d[4] = d[5] = 0;
+	d[cmdflag] = 1;
+	d[command] = cmdsync;
+	e = abc_new_event(h, tracktime, d);
+	abc_add_event(h, tp, e);
+}
+
+static void abc_add_gchord_syncs(ABCHANDLE *h, ABCTRACK *tpc, uint32_t tracktime)
+{
+	ABCTRACK *tp;
+	int i;
+	for( i = GCHORDBPOS; i < DRUMPOS; i++ ) {
+		tp = abc_locate_track(h, tpc->v, i);
+		abc_add_sync(h,tp,tracktime);
+	}
+}
+
+static void abc_add_drum_sync(ABCHANDLE *h, ABCTRACK *tpr, uint32_t tracktime)
+{
+	ABCTRACK *tp;
+	tp = abc_locate_track(h, tpr->v, DRUMPOS);
+	abc_add_sync(h,tp,tracktime);
+}
+
+static int abc_getnumber(const char *p, int *number)
+{
+	int i,h;
+	i = 0;
+	h = 0;
+	while( SDL_isdigit(p[i]) ) {
+		h = 10 * h + p[i] - '0';
+		i++;
+	}
+	if( i==0 )
+		*number = 1;
+	else
+		*number = h;
+	return i;
+}
+
+static int abc_getexpr(const char *p, int *number)
+{
+	int i, term, total;
+	i = 0;
+	while( SDL_isspace(p[i]) )
+		i++;
+	if( p[i] == '(' ) {
+		i += abc_getexpr(p+i+1, number);
+		while( p[i] && (p[i] != ')') )
+			i++;
+		return i;
+		}
+	i += abc_getnumber(p+i, &total);
+	while( SDL_isspace(p[i]) )
+		i++;
+	while( p[i] == '+' ) {
+		i += 1 + abc_getexpr(p+i+1, &term);
+		total += term;
+		while( SDL_isspace(p[i]) )
+			i++;
+	}
+	*number = total;
+	return i;
+}
+
+static int abc_notelen(const char *p, int *len, int *div)
+{
+	int i,h,k;
+	i = abc_getnumber(p,len);
+	h = 1;
+	while( p[i] == '/' ) {
+		h *= 2;
+		i++;
+	}
+	if( SDL_isdigit(p[i]) ) {
+		h /= 2;
+		i += abc_getnumber(p+i,&k);
+	}
+	else k = 1;
+	*div = h * k;
+	return i;
+}
+
+static int abc_brokenrithm(const char *p, int *nl, int *nd, int *b, int hornpipe)
+{
+	switch( *b ) {
+		case '<':
+			*nl *= 3;
+			*nd *= 2;
+			hornpipe = 0;
+			break;
+		case '>':
+			*nd *= 2;
+			hornpipe = 0;
+			break;
+	}
+	*b = *p;
+	switch( *b ) {
+		case '>':
+			*nl *= 3;
+			*nd *= 2;
+			return 1;
+		case '<':
+			*nd *= 2;
+			return 1;
+		default:
+			*b = 0;
+			break;
+	}
+	if( hornpipe ) { // still true then make 1/8 notes broken rithme
+		if( *nl == 1 && *nd == 1 ) {
+			*b = '>';
+			*nl = 3;
+			*nd = 2; 
+		}
+	}  
+	return 0;
+}
+
+// put p notes in the time q for the next r notes
+static int abc_tuplet(int *nl, int *nd, int p, int q, int r)
+{
+	if( !r ) return 0;
+	*nl *= q;
+	*nd *= p;
+	return r - 1;
+}
+
+// evaluate [Q:"string" n1/m1 n2/m2 n3/m3 n4/m4=bpm "string"] 
+// minimal form [Q:"string"]
+// most used form [Q: 1/4=120]
+static int abc_extract_tempo(const char *p, int invoice)
+{
+	int nl, nd, ns, in, tempo;
+	int nl1=0, nd1, notes, state;
+	const char *q;
+	in = 0;
+	nl = 0;
+	nd = 1;
+	ns = 120;
+	notes = 0;
+	state = 0;
+	for( q=p; *q; q++ ) {
+		if( in ) {
+			if( *q=='"' )
+				in = 0;
+		}
+		else {
+			if( *q == ']' ) break;
+			switch( *q ) {
+				case '"':
+					in = 1;
+					break;
+				case '/':
+					notes++;
+					state = 1;
+					nl1 = ns;
+					break;
+				case '=':
+					break;
+				default:
+					if( SDL_isdigit(*q) ) {
+						if( state ) {
+							q+=abc_getnumber(q,&nd1)-1;
+							state = 0;
+							nl = nl * nd1 + nl1 * nd;
+							nd = nd * nd1;
+						}
+						else
+							q+=abc_getnumber(q,&ns)-1;
+					}
+					break;
+			}
+		}
+	}
+	if( !notes ) {
+		nl = 1;
+		nd = 4;
+	}
+	if( !nd ) tempo = 120;
+	else tempo = ns * nl * 4 / nd; // mod tempo is really BPM where one B is equal to a quartnote
+	if( tempo <= 0 )
+		tempo = 120;
+	if( invoice ) {
+		nl = global_tempo_factor;
+		nd = global_tempo_divider;
+	}
+	global_tempo_factor = 1;
+	global_tempo_divider = 1;
+	while( tempo/global_tempo_divider > 255 )
+		global_tempo_divider++;
+	tempo /= global_tempo_divider;
+	while( tempo * global_tempo_factor < 256 )
+		global_tempo_factor++;
+	global_tempo_factor--;
+	tempo *= global_tempo_factor;
+	if( tempo * 3 < 512 ) {
+		global_tempo_factor *= 3;
+		global_tempo_divider *= 2;
+		tempo = (tempo * 3) / 2;
+	}
+	if( invoice ) {
+		if( nl != global_tempo_factor || nd != global_tempo_divider ) {
+			ns = (tempo * nl * global_tempo_divider) / (nd * global_tempo_factor);
+			if( ns > 31 && ns < 256 ) {
+				tempo = ns;
+				global_tempo_factor = nl;
+				global_tempo_divider = nd;
+			}
+			else
+				abc_message("Failure: inconvenient tempo change in middle of voice (%s)", p);
+		}
+	}
+	return tempo;
+}
+
+static void	abc_set_parts(char **d, char *p)
+{
+	int i,k,m,n;
+	size_t j, size;
+	char *q;
+	if( *d ) SDL_free(*d);
+	*d = 0;
+	if( !p ) return;
+	for( i=0; p[i] && p[i] != '%'; i++ ) {
+		if( !SDL_strchr("ABCDEFGHIJKLMNOPQRSTUVWXYZ().0123456789 ",p[i]) ) {
+			abc_message("invalid characters in part string scanning P:%s", p);
+			return;
+		}
+	}
+	// decode constructs like "((AB)2.(CD)2)3.(AB)E2" to "ABABCDCDABABCDCDABABCDCDABEE"
+	// first compute needed storage...
+	j=0;
+	k=0;
+	for( i=0; p[i] && p[i] != '%'; i++ ) {
+		if( IsUpper(p[i]) ) {
+			j++;
+		}
+		if( SDL_isdigit(p[i]) ) {
+			n=abc_getnumber(p+i,&k);
+			if( k == 0 )
+				k = 1;
+			if( p[i-1] == ')' )
+				j *= k;	// never mind multiple parens, just take the worst case
+			else
+				j += k-1;
+			i += n-1;
+		}
+	}
+	// even if j overflows above, it will only wrap around and still be okay
+	size = ( j >= INT_MAX )? INT_MAX - 1 : j;
+	q = (char *)_mm_calloc(h, size + 1, sizeof(char)); // enough storage for the worst case
+	// now copy bytes from p to *d, taking parens and digits in account
+	j = 0;
+	for( i=0; p[i] && p[i] != '%' && j < size && i < size; i++ ) {
+		if( SDL_isdigit(p[i]) || IsUpper(p[i]) || p[i] == '(' || p[i] == ')' ) {
+			if( p[i] == ')' ) {
+				for( n=j; n > 0 && q[n-1] != '('; n-- )	;	// find open paren in q
+				// q[n+1] to q[j] contains the substring that must be repeated
+				if( n > 0 ) {
+					for( k = n; k<j; k++ ) q[k-1] = q[k];	// shift to the left...
+					j--;
+				}
+				else {
+					abc_message("Warning: Unbalanced right parens in P: definition %s",p);
+					break;
+				}
+				n = j - n + 1;	// number of repeatable characters
+				i += abc_getnumber(p+i+1,&k);
+				while( k-- > 1 ) {
+					for( m=0; m<n; m++ ) {
+						q[j] = q[j-n];
+						j++;
+					}
+				}
+				continue;
+			}
+			if( SDL_isdigit(p[i]) ) {
+				n = abc_getnumber(p+i,&k);
+				i += n - 1;
+				while( k-- > 1 ) {
+					q[j] = q[j-1];
+					j++;
+				}
+				continue;
+			}
+			q[j] = p[i];
+			j++;
+		}
+	}
+	q[j] = '\0';
+	// remove any left over parens
+	for( i=0; i<j; i++ ) {
+		if( q[i] == '(' ) {
+			abc_message("Warning: Unbalanced left parens in P: definition %s",p);
+			for( k=i; k<j; k++ ) q[k] = q[k+1];
+			j--;
+		}
+	}
+	*d = q;
+}
+
+static void abc_appendpart(ABCHANDLE *h, ABCTRACK *tp, uint32_t pt1, uint32_t pt2)
+{
+	ABCEVENT *e, *ec;
+	uint32_t dt;
+	dt = tp->tail->tracktick - pt1;
+	for( e=tp->head; e && e->tracktick <= pt2; e=e->next ) {
+		if( e->tracktick >= pt1 ) {
+			if( e->flg != 1 || e->cmd == cmdsync || e->cmd == cmdchord ) {
+				if( e != tp->tail ) {
+					// copy this event at tail
+					ec = abc_copy_event(h,e);
+					ec->tracktick += dt;
+					ec->part = '*';
+					tp->tail->next = ec;
+					tp->tail = ec;
+				}
+			}
+		}
+	}
+	abc_add_sync(h, tp, pt2 + dt); // make sure there is progression...
+}
+
+static uint32_t abc_pattracktime(ABCHANDLE *h, uint32_t tracktime)
+{
+	ABCEVENT *e;
+	uint32_t dt,et,pt=abcticks(64 * h->speed);
+	if(!h || !h->track || !h->track->head ) return 0;
+	dt = 0;
+	for( e=h->track->head; e && e->tracktick <= tracktime; e=e->next ) {
+		if( e->flg == 1 && e->cmd == cmdpartbrk ) {
+			et = e->tracktick + dt;
+			if( et % pt ) {
+				et += pt;
+				et /= pt;
+				et *= pt;
+				dt = et - e->tracktick;
+			}
+		}
+	}
+	return (tracktime + dt);
+}
+
+static int abc_patno(ABCHANDLE *h, uint32_t tracktime)
+{
+	return modticks(abc_pattracktime(h, tracktime)) / 64 / h->speed;
+}
+
+static void abc_stripoff(ABCHANDLE *h, ABCTRACK *tp, uint32_t tt)
+{
+	ABCEVENT *e1, *e2;
+	e2 = NULL;
+	for( e1 = tp->head; e1 && e1->tracktick <= tt; e1=e1->next )
+		e2 = e1;
+	if( e2 ) {
+		e1 = e2->next;
+		tp->tail = e2;
+		e2->next = NULL;
+	}
+	else {
+		e1 = tp->tail;
+		tp->head = NULL;
+		tp->tail = NULL;
+	}
+	while( e1 ) {
+		e2 = e1->next;
+		_mm_free(h->trackhandle,e1);
+		e1 = e2;
+	}
+}
+
+static void abc_keeptiednotes(ABCHANDLE *h, uint32_t fromtime, uint32_t totime) {
+	ABCTRACK *tp;
+	ABCEVENT *e,*n,*f;
+	if( totime <= fromtime ) return;
+	for( tp=h->track; tp; tp=tp->next ) {
+		if( tp->vno ) { // if track is in use...
+			n = NULL;
+			for( e=tp->head; e && e->tracktick < fromtime; e = e->next )
+				if( e->flg != 1 ) n = e; // remember it when it is a note event
+			if( n && n->tiednote ) { // we've a candidate to tie over the break
+				while( e && e->tracktick < totime ) e=e->next; // skip to other part
+				if( e && e->tracktick == totime ) { // if this is on begin row of this part
+					f = NULL;
+					while( !f && e && e->tracktick == totime ) {
+						if( e->flg != 1 ) f = e;
+						e = e->next;
+					}
+					if( f && f->par[note] ) { // pfoeie, we've found a candidate
+						if( SDL_abs(n->par[note] - f->par[note]) < 3 ) { // undo the note on
+							f->flg = 1;
+							f->cmd = cmdhide;
+							f->lpar = 0;
+						}
+					}
+				}
+			}
+		}
+	}
+}
+
+static uint32_t abc_fade_tracks(ABCHANDLE *h, char *abcparts, uint32_t ptt[27])
+{
+	ABCTRACK *tp;
+	ABCEVENT *e0;
+	char *p;
+	int vol;
+	uint32_t pt1, pt2;
+	uint32_t tt;
+	tt = h->track->tail->tracktick;
+	for( tp=h->track->next; tp; tp=tp->next ) {
+		if( !tp->tail ) abc_add_sync(h, tp, tt); // no empty tracks please...
+		if( tp->tail->tracktick > tt ) abc_stripoff(h, tp, tt); // should not happen....
+		if( tp->tail->tracktick < tt ) abc_add_sync(h, tp, tt);
+	}
+	for( tp=h->track; tp; tp=tp->next ) {
+		vol = 127;
+		e0 = tp->tail;
+		if( tp->slidevol != -2 ) {
+			tp->slidevol = -2;
+			tp->slidevoltime = e0->tracktick;
+		}
+		tp->mute = 0; // unmute track for safety, notes in a muted track already have zero volume...
+		while( vol > 5 ) {
+			for( p=abcparts; *p && vol > 5; p++ ) {
+				pt1 = ptt[*p-'A'];
+				pt2 = ptt[*p-'A'+1];
+				abc_appendpart(h, tp, pt1, pt2);
+				vol = abc_dynamic_volume(tp, tp->tail->tracktick, 127);
+			}
+		}
+		abc_fade_track(tp,e0);
+	}
+	return h->track->tail->tracktick;
+}
+
+static void abc_song_to_parts(ABCHANDLE *h, char **abcparts, BYTE partp[27][2])
+{
+	uint32_t starttick;
+	ABCEVENT *e;
+	int i, fading, loop, normal, partno, partsegno, partloop, partcoda, parttocoda, partfine, skip, x, y;
+	int vmask[27],nextp[27];
+	uint32_t ptt[27];
+	char buf[256];	// must be enough, mod's cannot handle more than 240 patterns
+	char *pfade;
+	if( !h || !h->track || !h->track->capostart ) return;
+	SDL_strlcpy(buf,"A",sizeof (buf));	// initialize our temporary array
+	i = 1;
+	loop = 1;
+	partno = 0;
+	partsegno = 0;
+	partloop = 0;
+	partcoda = -1;
+	parttocoda = -1;
+	partfine = -1;
+	starttick = h->track->capostart->tracktick;
+	ptt[0] = starttick;
+	vmask[0] = -1;
+	nextp[0] = 1;
+	for( e=h->track->capostart; e; e=e->next ) {
+		if( e->flg == 1 ) {
+			switch( e->cmd ) {
+				case cmdpartbrk:
+					if( e->tracktick > starttick) {
+						starttick = e->tracktick;	// do not make empty parts
+						if( partno < 26 ) {
+							partno++;
+							ptt[partno] = starttick;
+						}
+						if( i < 255 )	buf[i++] = partno+'A';
+						vmask[partno] = -1;
+						nextp[partno] = partno+1;
+					}
+					break;
+				case cmdloop:
+					partloop = partno;
+					loop = 1; // start counting anew...
+					break;
+				case cmdvariant:
+					vmask[partno] = e->lpar;
+					break;
+				case cmdjump:
+					x = 0;
+					fading = 0;
+					normal = 0;
+					skip   = 0;
+					pfade  = &buf[i];
+					switch( e->par[jumptype] ) {
+						case jumpfade:
+							fading = 1;
+						case jumpnormal:
+							normal = 1;
+							x = partloop;
+							loop++;
+							break;
+						case jumpdsfade:
+							fading = 1;
+						case jumpdasegno:
+							x = partsegno;
+							break;
+						case jumpdcfade:
+							fading = 1;
+						case jumpdacapo:
+							x = 0;
+							break;
+						default:
+							// defaults set above.
+							break;
+					}
+					if( vmask[partno] != -1 ) nextp[partno] = x;
+					if( partno < 26 ) ptt[partno+1] = e->tracktick; // for handling ties over breaks
+					while( x <= partno ) {
+						if( skip == 1 && x == partcoda ) skip = 0;
+						y = !skip;
+						if( y ) {
+							if( !normal ) {
+								if( x == partfine ) skip = 2;
+								if( x == parttocoda ) skip = 1;
+								y = !skip;
+							}  
+							if( !(vmask[x] & (1<<loop)) ) y = 0;
+						}
+						if( y ) {
+							if( i < 255 )	buf[i++] = x+'A';
+							if( nextp[x] != x + 1 ) loop++;
+							x = nextp[x];
+						}
+						else
+							x++;
+					}
+					if( fading && partno < 25 && i < 254 ) {	// add single part with fading tracks
+						partno++;
+						ptt[partno] = e->tracktick;
+						buf[i] = '\0'; // close up pfade with zero byte
+						starttick = abc_fade_tracks(h, pfade, ptt);
+						buf[i++] = partno+'A';
+						partno++;
+						ptt[partno] = starttick;
+						buf[i++] = partno+'A'; // one extra to throw away...
+						e = h->track->tail; // this is the edge of the world captain...
+					}
+					break;
+				case cmdtocoda:
+					parttocoda = partno;
+					break;
+				case cmdcoda:
+					partcoda = partno;
+					break;
+				case cmdfine:
+					partfine = partno;
+					break;
+				case cmdsegno:
+					partsegno = partno;
+					break;
+			}
+		}
+		e->part = partno+'a';	// small caps for generated parts...
+	}
+	i--; // strip off last partno
+	if( partno > 0 ) partno--;
+	buf[i] = '\0';
+	if( i > 1 ) {
+		for( i=1; buf[i]; i++ ) {
+			if( buf[i] != buf[i-1] + 1 ) {
+				x = buf[i-1] - 'A';
+				y = buf[i] - 'A';
+				abc_keeptiednotes(h, ptt[x+1], ptt[y]);
+			}
+		}
+	}
+	starttick = h->track->tail->tracktick;
+	ptt[partno+1] = starttick;
+	for( i=0; i<=partno; i++ ) {
+		partp[i][0] = abc_patno(h, ptt[i]);
+		partp[i][1] = abc_patno(h, ptt[i+1]);
+	}
+	// calculate end point of last part
+	starttick = abc_pattracktime(h, starttick);
+	if( starttick % abcticks(64 * h->speed) )
+		partp[partno][1]++;
+	abc_set_parts(abcparts, buf);
+}
+
+// =====================================================================================
+static char *abc_fgets(MMFILE *mmfile, char buf[], unsigned int bufsz)
+// =====================================================================================
+{
+	if( mmfeof(mmfile) ) return NULL;
+	mmfgets(buf,bufsz,mmfile);
+	return buf;
+}
+
+// =====================================================================================
+static char *abc_fgetbytes(MMFILE *mmfile, char buf[], unsigned int bufsz)
+// =====================================================================================
+{
+	unsigned int i;
+	long pos;
+	if( mmfeof(mmfile) ) return NULL;
+	for( i=0; i<bufsz-2; i++ ) {
+		buf[i] = (char)mmfgetc(mmfile);
+		if( buf[i] == '\n' ) break;
+		if( buf[i] == '\r' ) {
+			pos = mmftell(mmfile);
+			if( mmfgetc(mmfile) != '\n' )	mmfseek(mmfile, pos, SEEK_SET);
+			buf[i] = '\n';
+			break;
+		}
+	}
+	if( i != bufsz-2 && buf[i] == '\n' ) i++;
+	buf[i] = '\0';
+	return buf;
+}
+
+static void abc_substitute(ABCHANDLE *h, char *target, char *s)
+{
+	char *p, *q;
+	int i;
+	int l = SDL_strlen(target);
+	int n = SDL_strlen(s);
+	if (l <= 0 ||n <= 0 || SDL_strstr(s, target))
+		return;
+	while( (p=SDL_strstr(h->line, target)) ) {
+		if( (i=SDL_strlen(h->line)) + n - l >= (int)h->len ) {
+			h->line = (char *)_mm_recalloc(h->allochandle, h->line, h->len<<1, sizeof(char));
+			h->len <<= 1;
+			p=SDL_strstr(h->line, target);
+		}
+		if( n > l ) {
+			for( q=&h->line[i]; q>p; q-- ) q[n-l] = q[0];
+			for( q=s; *q; q++ ) *p++ = *q;
+		}
+		else {
+			const size_t buflen = h->len - ((size_t) (p - h->line));
+			SDL_strlcpy(p,s,buflen);
+			SDL_strlcat(p,p+l,buflen);
+		}
+	}
+}
+
+static void abc_preprocess(ABCHANDLE *h, ABCMACRO *m)
+{
+	int i, j, k, l, a, b;
+	if( m->n ) {
+		k = m->n - m->name;
+		for( i=0; i<14; i++ ) {
+            const size_t tlen = SDL_strlen(m->name) + 1;
+			char *t = alloca(tlen);
+			SDL_strlcpy(t, m->name, tlen);
+			t[k] = "CDEFGABcdefgab"[i];
+			l = SDL_strlen(m->subst);
+			char *s = alloca(2 * l + 1);
+			char *p = s;
+			for( j=0; j<l; j++ ) {
+				a = m->subst[j];
+				if( a > 'g' && IsLower(a) ) {
+					b = a - 'n';
+					a = "CDEFGABCDEFGABcdefgabcdefgab"[i+b+7];
+					*p++ = a;
+					if( i+b < 0 )
+						*p++ = ',';
+					else if( i+b > 13 )
+						*p++ = '\'';
+				}
+				else *p++ = a;
+			}
+			*p = '\0';
+			abc_substitute(h, t, s);
+		}
+	}
+	else
+		abc_substitute(h, m->name, m->subst);
+}
+
+static char *abc_gets(ABCHANDLE *h, MMFILE *mmfile)
+{
+	int i;
+	ABCMACRO *mp;
+	if( !h->len ) {
+		h->len = 64;	// initial line size, adequate for most abc's
+		h->line = (char *)_mm_calloc(h->allochandle, h->len, sizeof(char));
+	}
+	if( abc_fgetbytes(mmfile, h->line, h->len) ) {
+		while( (i=SDL_strlen(h->line)) > (int)(h->len - 3) ) {
+			// line too short, double it
+			h->line = (char *)_mm_recalloc(h->allochandle, h->line, h->len<<1, sizeof(char));
+			if( h->line[i-1] != '\n' )
+				abc_fgetbytes(mmfile, &h->line[i], h->len);
+			h->len <<= 1;
+		}
+		h->line[i-1] = '\0'; // strip off newline
+		for( mp=h->macro; mp; mp=mp->next )
+			abc_preprocess(h,mp);
+		return h->line;
+	}
+	return NULL;
+}
+
+static int abc_parse_decorations(ABCHANDLE *h, ABCTRACK *tp, const char *p)
+{
+	int vol=0;
+	if( !SDL_strncmp(p,"mp",2) ) vol = 75;
+	if( !SDL_strncmp(p,"mf",2) ) vol = 90;
+	if( !SDL_strncmp(p,"sfz",3) ) vol = 100;
+	if( *p == 'p' ) {
+		vol = 60;
+		while( *p++ == 'p' ) vol -= 15;
+		if( vol < 1 ) vol = 1;
+	}	
+	if( *p == 'f' ) {
+		vol = 105;
+		while( *p++ == 'f' ) vol += 15;
+		if( vol > 135 ) vol = 127;	// ffff
+		if( vol > 127 ) vol = 125;	// fff
+	}
+	if( vol ) {
+		tp->volume = vol;
+		if( tp == h->track ) {	// copy volume over to all voice tracks
+			for( ; tp; tp=tp->next ) {
+				if( tp->vpos == 0 || tp->vpos > DRONEPOS2 ) tp->volume = vol;
+			}
+			tp = h->track;
+		}
+	}
+	return tp->volume;
+}
+
+// =====================================================================================
+BOOL CSoundFile_TestABC(const BYTE *lpStream, DWORD dwMemLength)
+// =====================================================================================
+{
+    char id[128];
+    int hasText = 0;
+    // scan file for first K: line (last in header)
+		MMFILE mmfile;
+		mmfile.mm = (char *)lpStream;
+		mmfile.sz = dwMemLength;
+		mmfseek(&mmfile,0,SEEK_SET);
+		int ppos = mmfile.pos;
+
+		while(abc_fgets(&mmfile,id,128)) {
+
+		if (id[0] == 0 && hasText == 0 && mmfile.pos < ppos + 120) return(0); //probably binary
+		if (id[0] == 0) continue; // blank line.
+
+		if (!abc_isvalidchar(id[0])  || !abc_isvalidchar(id[1])) {
+			return(0); // probably not an ABC.
+		}
+	    if(id[0]=='K'
+			&& id[1]==':'
+			&& (IsAlpha(id[2]) || SDL_isspace(id[2])) ) return 1;
+            // disable binary error if have any "tag"
+	    if((id[0]>='A' && id[0]<='Z')
+			&& id[1]==':'
+			&& (IsAlpha(id[2]) || SDL_isspace(id[2])) ) hasText = 1;
+		}
+    return 0;
+}
+
+// =====================================================================================
+static ABCHANDLE *ABC_Init(void)
+{
+    ABCHANDLE   *retval;
+		char *p;
+		char buf[10];
+    retval = (ABCHANDLE *)SDL_calloc(1,sizeof(ABCHANDLE));
+		if( !retval ) return NULL;
+
+		retval->track       = NULL;
+		retval->macro       = NULL;
+		retval->umacro      = NULL;
+		retval->beatstring  = NULL;
+		retval->pickrandom  = 0;
+		retval->len         = 0;
+		retval->line        = NULL;
+		retval->gchord[0] = 0;
+		retval->barticks    = 0;
+		p = SDL_getenv(ABC_ENV_NORANDOMPICK);
+		if( p ) {
+			if( SDL_isdigit(*p) )
+				retval->pickrandom = SDL_atoi(p);
+			if( *p == '-' ) {
+				retval->pickrandom = SDL_atoi(p+1)-1; // xmms preloads the file
+				SDL_snprintf(buf,sizeof(buf),"-%ld",retval->pickrandom+2);
+				SDL_setenv(ABC_ENV_NORANDOMPICK, buf, 1);
+			}
+		}
+		else {
+			srandom((uint32_t)time(0));	// initialize random generator with seed
+			retval->pickrandom = 1+(int)(10000.0*random()/(RAND_MAX+1.0));
+			// can handle pickin' from songbooks with 10.000 songs
+			SDL_snprintf(buf,sizeof(buf),"-%ld",retval->pickrandom); // xmms preloads the file
+			SDL_setenv(ABC_ENV_NORANDOMPICK, buf, 1);
+		}
+    return retval;
+}
+
+static void ABC_CleanupTrack(ABCTRACK *tp)
+{
+	ABCEVENT *ep, *en;
+	if( tp ) {
+		for( ep=tp->head; ep; ep = en ) {
+			en=ep->next;
+			SDL_free(ep);
+		}
+		tp->head = NULL;
+	}
+}
+
+static void ABC_CleanupMacro(ABCMACRO *m)
+{
+	if( m->name )
+		SDL_free(m->name);
+	if( m->subst )
+		SDL_free(m->subst);
+	SDL_free(m);
+}
+
+// =====================================================================================
+static void ABC_CleanupTracks(ABCHANDLE *handle)
+// =====================================================================================
+{
+	ABCTRACK *tp, *tn;
+	if(handle) {
+		for( tp=handle->track; tp; tp = tn ) {
+			tn=tp->next;
+			ABC_CleanupTrack(tp);
+		}
+		handle->track = NULL;
+	}
+}
+
+// =====================================================================================
+static void ABC_CleanupMacros(ABCHANDLE *handle)
+// =====================================================================================
+{
+	ABCMACRO *mp, *mn;
+	if(handle) {
+		for( mp=handle->macro; mp; mp = mn ) {
+			mn=mp->next;
+			ABC_CleanupMacro(mp);
+		}
+		for( mp=handle->umacro; mp; mp = mn ) {
+			mn=mp->next;
+			ABC_CleanupMacro(mp);
+		}
+		handle->macro = NULL;
+		handle->umacro = NULL;
+	}
+}
+
+// =====================================================================================
+static void ABC_Cleanup(ABCHANDLE *handle)
+// =====================================================================================
+{
+	if(handle) {
+		ABC_CleanupMacros(handle);
+		ABC_CleanupTracks(handle);
+		if( handle->line )
+			SDL_free(handle->line);
+		if( handle->beatstring )
+			SDL_free(handle->beatstring);
+		SDL_free(handle);
+	}
+}
+
+static int abc_is_global_event(ABCEVENT *e)
+{
+	return e->flg == 1 && (e->cmd == cmdtempo || e->cmd == cmdpartbrk);
+}
+
+static ABCEVENT *abc_next_global(ABCEVENT *e)
+{
+	for( ; e && !abc_is_global_event(e); e=e->next ) ;
+	return e;
+}
+
+static ABCEVENT *abc_next_note(ABCEVENT *e)
+{
+	for( ; e && e->flg == 1; e=e->next ) ;
+	return e;
+}
+
+static int ABC_ReadPatterns(MODCOMMAND *pattern[], WORD psize[], ABCHANDLE *h, int numpat, int channels)
+// =====================================================================================
+{
+	int pat,row,i,ch,trillbits;
+	BYTE n,ins,vol;
+	ABCTRACK *t;
+	ABCEVENT *e, *en, *ef, *el;
+	uint32_t tt1, tt2;
+	MODCOMMAND *m;
+	int patbrk, tempo;
+	if( numpat > MAX_PATTERNS ) numpat = MAX_PATTERNS;
+
+	// initialize start points of event list in tracks
+	for( t = h->track; t; t = t->next ) t->capostart = t->head;
+	trillbits = 0; // trill effect admininstration: one bit per channel, max 32 channnels
+	for( pat = 0; pat < numpat; pat++ ) {
+		pattern[pat] = CSoundFile_AllocatePattern(64, channels);
+		if( !pattern[pat] ) return 0;
+		psize[pat] = 64;
+		for( row = 0; row < 64; row++ ) {
+			tt1 = abcticks((pat * 64 + row ) * h->speed);
+			tt2 = tt1 + abcticks(h->speed);
+			ch = 0;
+			tempo = 0;
+			patbrk = 0;
+			if ( h->track )
+			for( e=abc_next_global(h->track->capostart); e && e->tracktick < tt2; e=abc_next_global(e->next) ) {
+				if( e && e->tracktick >= tt1 ) {	// we have a tempo event in this row
+					switch( e->cmd ) {
+						case cmdtempo:
+							tempo = e->lpar;
+							break;
+						case cmdpartbrk:
+							patbrk = 1;
+							break;
+					}
+				}
+			}
+			for( t = h->track; t; t = t->next ) {
+				for( e=abc_next_note(t->capostart); e && e->tracktick < tt1; e=abc_next_note(e->next) ) ;
+				i = 0;
+				ef = NULL;
+				en = e;
+				el = e;
+				for( ; e && e->tracktick < tt2; e=abc_next_note(e->next) ) {	// we have a note event in this row
+					t->capostart = e;
+					i++;
+					if( e->par[volume] ) {
+						if( !ef ) ef = e;
+						el = e;
+					}
+				}
+				m = &pattern[pat][row * channels + ch];
+				m->param   = 0;
+				m->command = CMD_NONE;
+				if( i ) {
+					trillbits &= ~(1<<ch);
+					if( i == 1 || ef == el || !ef ) { // only one event in this row
+						if( ef ) e = ef;
+						else e = en;
+						el = t->capostart;
+						i  = e->par[note] + ((e->par[octave])*12);
+						if( t->chan == 10 ) {
+							n   = pat_gm_drumnote(i) + 23;
+							ins = pat_gmtosmp(pat_gm_drumnr(i));
+						}
+						else {
+							n   = pat_modnote(i);
+							ins = e->par[smpno];
+						}
+							vol = e->par[volume]/2;
+						if( e->par[volume] > 0 ) {
+							if( e->par[effect] == accent ) vol += vol / 20;
+							if( vol > 64 ) vol = 64;
+							if( el->par[volume] == 0 ) { // note cut
+								m->param   = el->tracktick - tt1;
+								m->command = CMD_S3MCMDEX;
+								m->param  |= 0xC0;
+							}
+							else {
+								switch( e->par[effect] ) {
+									case trill:
+										m->command = CMD_VIBRATO;
+										m->param   = 0xC2;	// speed 12 depth 2
+										trillbits |= (1<<ch);
+										break;
+									case bow:
+										m->command = CMD_XFINEPORTAUPDOWN;
+										m->param  |= (e->par[effoper])? 0x12: 0x22;
+										break;
+									default:
+										m->param = modticks(e->tracktick - tt1);
+										if( m->param ) { // note delay
+											m->command = CMD_S3MCMDEX;
+											m->param  |= 0xD0;
+										}
+										break;
+								}
+							}
+						}
+						m->instr  = ins;
+						m->note   = n; // <- normal note
+						m->volcmd = VOLCMD_VOLUME;
+						m->vol    = vol;
+					}
+					else {
+						// two notes in one row, use FINEPITCHSLIDE runonce effect
+						// start first note on first tick and framedly runonce on seconds note tick
+						// use volume and instrument of last note
+						if( t->chan == 10 ) {
+							i   = el->par[note] + ((el->par[octave])*12);
+							n   = pat_gm_drumnote(i) + 23;
+							ins = pat_gmtosmp(pat_gm_drumnr(i));
+							i   = n; // cannot change instrument here..
+						}
+						else {
+							i   = ef->par[note] + ((ef->par[octave])*12);
+							n   = pat_modnote(i);
+							ins = el->par[smpno];
+							i   = pat_modnote(el->par[note] + ((el->par[octave])*12));
+						}
+						vol = el->par[volume]/2;
+						if( vol > 64 ) vol = 64;
+						m->instr  = ins;
+						m->note   = n; // <- normal note
+						m->volcmd = VOLCMD_VOLUME;
+						m->vol    = vol;
+						m->param  = ((i > n)?i-n:n-i);
+						if( m->param < 16 ) {
+							if( m->param ) {
+								m->command = CMD_XFINEPORTAUPDOWN;
+								m->param  |= (i > n)? 0x10: 0x20;
+							}
+							else {	// retrigger same note...
+								m->command = CMD_RETRIG;
+								m->param   = modticks(el->tracktick - tt1);
+							}
+						}
+						else
+							m->command = (i > n)? CMD_PORTAMENTOUP: CMD_PORTAMENTODOWN;
+					}
+				}
+				else { // no new notes, keep on trilling...
+					if( trillbits & (1<<ch) ) {
+						m = &pattern[pat][row * channels + ch];
+						m->command = CMD_VIBRATO;
+						m->param   = 0;	// inherited from first effect
+						m->instr   = 0;
+						m->note    = 0;
+						m->volcmd  = 0;
+						m->vol     = 0;
+					}
+				}
+				if( m->param == 0 && m->command == CMD_NONE ) {
+					if( tempo ) {
+						m->command = CMD_TEMPO;
+						m->param   = tempo;
+						tempo      = 0;
+					}
+					else {
+						if( patbrk ) {
+							m->command = CMD_PATTERNBREAK;
+							patbrk     = 0;
+						}
+					}
+				}
+				ch++;
+			}
+			if( tempo || patbrk ) return 1;
+		}
+	}
+	return 0;
+}
+
+static int ABC_Key(const char *p)
+{
+	int i,j;
+	char c[8];
+    SDL_memset(c, 0, sizeof (c));
+	const char *q;
+	while( SDL_isspace(*p) ) p++;
+	q = p;
+	for( i=0; i<8 && *p && *p != ']'; p++ ) {
+		if( SDL_isspace(*p) ) {
+			while( SDL_isspace(*p) ) p++;
+			if( SDL_strncasecmp(p, "min", 3) && SDL_strncasecmp(p, "maj", 3) )
+				break;
+		}
+		c[i] = *p;
+		i++;
+	}
+	if( !SDL_strcmp(c,"Hp") || !SDL_strcmp(c,"HP") ) // highland pipes
+		SDL_strlcpy(c,"Bm",sizeof (c));	// two sharps at c and f
+	if( !SDL_strcasecmp(c+1, "minor") ) i=2;
+	if( !SDL_strcasecmp(c+2, "minor") ) i=3;
+	if( !SDL_strcasecmp(c+1, "major") ) i=1;
+	if( !SDL_strcasecmp(c+2, "major") ) i=2;
+	if( !SDL_strcasecmp(c+1, "min") ) i=2;
+	if( !SDL_strcasecmp(c+2, "min") ) i=3;
+	if( !SDL_strcasecmp(c+1, "maj") ) i=1;
+	if( !SDL_strcasecmp(c+2, "maj") ) i=2;
+	for( ; i<6; i++ )
+		c[i] = ' ';
+	for( i=0; keySigs[i]; i++ ) {
+		for( j=10; j<46; j+=6 )
+			if( !SDL_strncasecmp(keySigs[i]+j, c, 6) )
+				return i;
+	}
+	abc_message("Failure: Unrecognised K: field %s", q);
+	return 7;
+}
+
+static char *abc_skip_word(char *p)
+{
+	while( SDL_isspace(*p) ) p++;
+	while( *p && !SDL_isspace(*p) && *p != ']') p++;
+	while( SDL_isspace(*p) ) p++;
+	return p;
+}
+
+static uint32_t abc_tracktime(ABCTRACK *tp)
+{
+	uint32_t tracktime;
+	if( tp->tail ) tracktime = tp->tail->tracktick;
+	else tracktime = 0;
+	if( tracktime < global_songstart )
+		tracktime = global_songstart;
+	return tracktime;
+}
+
+static void abc_addchordname(const char *s, int len, const int *notes)
+// adds chord name and note set to list of known chords
+{
+	int i, j;
+	if(SDL_strlen(s) > 7) {
+		abc_message("Failure: Chord name cannot exceed 7 characters, %s", s);
+		return;
+	}
+	if(len > 6) {
+		abc_message("Failure: Named chord cannot have more than 6 notes, %s", s);
+		return;
+	}
+	for( i=0; i < chordsnamed; i++ ) {
+		if(SDL_strcmp(s, chordname[i]) == 0) {
+			/* change chord */
+			chordlen[i] = len;
+			for(j = 0; j < len; j++) chordnotes[i][j] = notes[j];
+			return;
+		}
+	}
+	if(chordsnamed > MAXCHORDNAMES - 1)
+		abc_message("Failure: Too many Guitar Chord Names used, %s", s);
+	else {
+		SDL_strlcpy(chordname[chordsnamed], s, 8);
+		chordlen[chordsnamed] = len;
+		for(j = 0; j < len; j++) chordnotes[chordsnamed][j] = notes[j];
+		chordsnamed++;
+	}
+}
+
+static void abc_setup_chordnames()
+// set up named guitar chords
+{
+	static const int list_Maj[3] = { 0, 4, 7 };
+	static const int list_m[3] = { 0, 3, 7 };
+	static const int list_7[4] = { 0, 4, 7, 10 };
+	static const int list_m7[4] = { 0, 3, 7, 10 };
+	static const int list_maj7[4] = { 0, 4, 7, 11 };
+	static const int list_M7[4] = { 0, 4, 7, 11 };
+	static const int list_6[4] = { 0, 4, 7, 9 };
+	static const int list_m6[4] = { 0, 3, 7, 9 };
+	static const int list_aug[3] = { 0, 4, 8 };
+	static const int list_plus[3] = { 0, 4, 8 };
+	static const int list_aug7[4] = { 0, 4, 8, 10 };
+	static const int list_dim[3] = { 0, 3, 6 };
+	static const int list_dim7[4] = { 0, 3, 6, 9 };
+	static const int list_9[5] = { 0, 4, 7, 10, 2 };
+	static const int list_m9[5] = { 0, 3, 7, 10, 2 };
+	static const int list_maj9[5] = { 0, 4, 7, 11, 2 };
+	static const int list_M9[5] = { 0, 4, 7, 11, 2 };
+	static const int list_11[6] = { 0, 4, 7, 10, 2, 5 };
+	static const int list_dim9[5] = { 0, 4, 7, 10, 13 };
+	static const int list_sus[3] = { 0, 5, 7 };
+	static const int list_sus9[3] = { 0, 2, 7 };
+	static const int list_7sus[4] = { 0, 5, 7, 10 };
+	static const int list_7sus4[4] = { 0, 5, 7, 10 };
+	static const int list_7sus9[4] = { 0, 2, 7, 10 };
+	static const int list_9sus4[5] = { 0, 5, 10, 14, 19 };
+	static const int list_5[2] = { 0, 7 };
+	static const int list_13[6] = { 0, 4, 7, 10, 16, 21 };
+	
+	chordsnamed = 0;
+	abc_addchordname("", 3, list_Maj);
+	abc_addchordname("m", 3, list_m);
+	abc_addchordname("7", 4, list_7);
+	abc_addchordname("m7", 4, list_m7);
+	abc_addchordname("maj7", 4, list_maj7);
+	abc_addchordname("M7", 4, list_M7);
+	abc_addchordname("6", 4, list_6);
+	abc_addchordname("m6", 4, list_m6);
+	abc_addchordname("aug", 3, list_aug);
+	abc_addchordname("+", 3, list_plus);
+	abc_addchordname("aug7", 4, list_aug7);
+	abc_addchordname("7+", 4, list_aug7);
+	abc_addchordname("dim", 3, list_dim);
+	abc_addchordname("dim7", 4, list_dim7);
+	abc_addchordname("9", 5, list_9);
+	abc_addchordname("m9", 5, list_m9);
+	abc_addchordname("maj9", 5, list_maj9);
+	abc_addchordname("M9", 5, list_M9);
+	abc_addchordname("11", 6, list_11);
+	abc_addchordname("dim9", 5, list_dim9);
+	abc_addchordname("sus", 3, list_sus);
+	abc_addchordname("sus9", 3, list_sus9);
+	abc_addchordname("7sus", 4, list_7sus);
+	abc_addchordname("7sus4", 4, list_7sus4);
+	abc_addchordname("7sus9", 4, list_7sus9);
+	abc_addchordname("9sus4", 5, list_9sus4);
+	abc_addchordname("5", 2, list_5);
+	abc_addchordname("13", 6, list_13);
+}
+
+static int abc_MIDI_getnumber(const char *p)
+{
+	int n;
+	while( SDL_isspace(*p) ) p++;
+	abc_getnumber(p, &n);
+	if( n < 0 )   n = 0;
+	if( n > 127 ) n = 127;
+	return n;
+}
+
+static int abc_MIDI_getprog(const char *p)
+{
+	int n;
+	while( SDL_isspace(*p) ) p++;
+	abc_getnumber(p, &n);
+	if( n < 1 )   n = 1;
+	if( n > 128 ) n = 128;
+	return n;
+}
+
+// MIDI drone <instr0> <pitch1> <pitch2> <vel1> <vel2>
+static void abc_MIDI_drone(const char *p, int *gm, int *ptch, int *vol)
+{
+	int i;
+	while( SDL_isspace(*p) ) p++;
+	p += abc_getnumber(p, &i);
+	i++;	// adjust for 1..128
+	if( i>0 && i < 129 )
+		*gm = i;
+	else
+		*gm = 71;	// bassoon
+	while( SDL_isspace(*p) ) p++;
+	p += abc_getnumber(p, &i);
+	if( i>0 && i < 127 )
+		ptch[0] = i;
+	else
+		ptch[0] = 45;
+	while( SDL_isspace(*p) ) p++;
+	p += abc_getnumber(p, &i);
+	if( i>0 && i < 127 )
+		ptch[1] = i;
+	else
+		ptch[1] = 33;
+	while( SDL_isspace(*p) ) p++;
+	p += abc_getnumber(p, &i);
+	if( i>0 && i < 127 )
+		vol[0] = i;
+	else
+		vol[0] = 80;
+	while( SDL_isspace(*p) ) p++;
+	p += abc_getnumber(p, &i);
+	if( i>0 && i < 127 )
+		vol[1] = i;
+	else
+		vol[1] = 80;
+}
+
+static void abc_chan_to_tracks(ABCHANDLE *h, int tno, int ch)
+{
+	ABCTRACK *tp;
+	if( tno>0 && tno<33 ) {
+		for( tp=h->track; tp; tp=tp->next ) {
+			if( tp->vno == tno && (tp->vpos < GCHORDBPOS || tp->vpos > DRONEPOS2) )
+				tp->chan = ch;
+		}
+	}
+}
+
+// %%MIDI channel int1
+// channel numbers are 1-16
+static void abc_MIDI_channel(const char *p, ABCTRACK *tp, ABCHANDLE *h)
+{
+	int i1, i2;
+	i1 = tp? tp->vno: 1;
+	for( ; *p && SDL_isspace(*p); p++ ) ;
+	if( SDL_isdigit(*p) ) {
+		p += abc_getnumber(p, &i2);
+		if( i2 >= 1 && i2 <= 16 )
+			abc_chan_to_tracks(h, i1, i2); // we start at 1
+	}
+}
+
+static void abc_instr_to_tracks(ABCHANDLE *h, int tno, int gm)
+{
+	ABCTRACK *tp;
+	if( tno>0 && tno<33 && gm>0 && gm<129 ) {
+		for( tp=h->track; tp; tp=tp->next ) {
+			if( tp->vno == tno && (tp->vpos < GCHORDBPOS || tp->vpos > DRONEPOS2) )
+				tp->instr = gm;
+		}
+	}
+}
+
+// %%MIDI program [int1] <int2>
+// instrument numbers are 0-127
+static void abc_MIDI_program(const char *p, ABCTRACK *tp, ABCHANDLE *h)
+{
+	int i1, i2;
+	i1 = tp? tp->vno: 1;
+	for( ; *p && SDL_isspace(*p); p++ ) ;
+	if( SDL_isdigit(*p) ) {
+		p += abc_getnumber(p, &i2);
+		for( ; *p && SDL_isspace(*p); p++ ) ;
+		if( SDL_isdigit(*p) ) {
+			i1 = i2;
+			p += abc_getnumber(p, &i2);
+		}
+		abc_instr_to_tracks(h, i1, i2 + 1); // we start at 1
+	}
+}
+
+static void abc_mute_voice(ABCHANDLE *h, ABCTRACK *tp, int m)
+{
+	ABCTRACK *t;
+	for( t=h->track; t; t=t->next ) {
+		if( t->vno == tp->vno ) t->mute = m;
+	}
+}
+
+// %%MIDI voice [<ID>] [instrument=<integer> [bank=<integer>]] [mute]
+// instrument numbers are 1-128
+static void abc_MIDI_voice(const char *p, ABCTRACK *tp, ABCHANDLE *h)
+{
+	int i1, i2;
+	for( ; *p && SDL_isspace(*p); p++ ) ;
+	if( SDL_strncmp(p,"instrument=",11) && SDL_strncmp(p,"mute",4) ) {
+		tp = abc_locate_track(h, p, 0);
+		for( ; *p && !SDL_isspace(*p); p++ ) ;
+		for( ; *p && SDL_isspace(*p); p++ ) ;
+	}
+	i1 = tp? tp->vno: 1;
+	i2 = 0;
+	if( !SDL_strncmp(p,"instrument=",11) && SDL_isdigit(p[11]) ) {
+		p += 11;
+		p += abc_getnumber(p, &i2);
+		for( ; *p && SDL_isspace(*p); p++ ) ;
+		if( !SDL_strncmp(p,"bank=",5) && SDL_isdigit(p[5]) ) {
+			for( ; *p && !SDL_isspace(*p); p++ ) ;
+			for( ; *p && SDL_isspace(*p); p++ ) ;
+		}
+	}
+	if( tp ) abc_mute_voice(h,tp,0);
+	if( !SDL_strncmp(p,"mute",4) && (p[4]=='\0' || p[4]=='%' || SDL_isspace(p[4])) ) {
+		if( tp ) abc_mute_voice(h,tp,1);
+	}
+	abc_instr_to_tracks(h, i1, i2); // starts already at 1 (draft 4.0)
+}
+
+// %%MIDI chordname <string> <int1> <int2> ... <int6>
+static void abc_MIDI_chordname(const char *p)
+{
+	char name[20];
+	int i, notes[6];
+    SDL_memset(notes, 0, sizeof (notes));
+
+	for( ; *p && SDL_isspace(*p); p++ ) ;
+	i = 0;
+	while ((i < 19) && (*p != ' ') && (*p != '\0')) {
+		name[i] = *p;
+		p = p + 1;
+		i = i + 1;
+	}
+	name[i] = '\0';
+	if(*p != ' ') {
+		abc_message("Failure: Bad format for chordname command, %s", p);
+	}
+	else {
+		i = 0;
+		while ((i < 6) && SDL_isspace(*p)) {
+			for( ; *p && SDL_isspace(*p); p++ ) ;
+			p += abc_getnumber(p, &notes[i]);
+			i = i + 1;
+		}
+		abc_addchordname(name, i, notes);
+	}
+}
+
+// %%MIDI drum <string> <inst 1> ... <inst n> <vol 1> ... <vol n>
+// instrument numbers are 0-127
+static int abc_MIDI_drum(const char *p, ABCHANDLE *h)
+{
+	char *q;
+	int i, n, m;
+	uint32_t len;
+	while( SDL_isspace(*p) ) p++;
+	if( !SDL_strncmp(p,"on",2) && (SDL_isspace(p[2]) || p[2] == '\0') ) return 2;
+	if( !SDL_strncmp(p,"off",3) && (SDL_isspace(p[3]) || p[3] == '\0') ) return 1;
+	n = 0; len = 0;
+	for( q = h->drum; *p && !SDL_isspace(*p); p++ ) {
+		if( !SDL_strchr("dz0123456789",*p) ) break;
+		*q++ = *p; len++;
+		if( !SDL_isdigit(*p) && len < sizeof(h->drum)-1 ) {
+			if( !SDL_isdigit(p[1]) ) { *q++ = '1'; len ++; }
+			n++; // count the silences too....
+		}
+		if (len >= sizeof(h->drum)-1) {
+			// consume the rest of the input
+			// definitely enough "drum last state" stored.
+			while ( *p && !SDL_isspace(*p) ) p++;
+			break;
+		}
+	}
+	*q = '\0';
+	q = h->drumins;
+	for( i = 0; i<n; i++ ) {
+		if( h->drum[i*2] == 'd' ) {
+			while( *p && SDL_isspace(*p) ) p++;
+			if( !SDL_isdigit(*p) ) {
+				m = 0;
+				while( *p && !SDL_isspace(*p) ) p++;
+			}
+			else
+				p += abc_getnumber(p,&m);
+			q[i] = m + 1; // we start at 1
+		}
+		else q[i] = 0;
+	}
+	q = h->drumvol;
+	for( i = 0; i<n; i++ ) {
+		if( h->drum[i*2] == 'd' ) {
+			while( *p && SDL_isspace(*p) ) p++;
+			if( !SDL_isdigit(*p) ) {
+				m = 0;
+				while( *p && !SDL_isspace(*p) ) p++;
+			}
+			else
+				p += abc_getnumber(p,&m);
+			q[i] = m;
+		}
+		else q[i] = 0;
+	}
+	return 0;
+}
+
+// %%MIDI gchord <string>
+static int abc_MIDI_gchord(const char *p, ABCHANDLE *h)
+{
+	char *q;
+	uint32_t len = 0;
+	while( SDL_isspace(*p) ) p++;
+	if( !SDL_strncmp(p,"on",2) && (SDL_isspace(p[2]) || p[2] == '\0') ) return 2;
+	if( !SDL_strncmp(p,"off",3) && (SDL_isspace(p[3]) || p[3] == '\0') ) return 1;
+	for( q = h->gchord; *p && !SDL_isspace(*p); p++ ) {
+		if( !SDL_strchr("fbcz0123456789ghijGHIJ",*p) ) break;
+		*q++ = *p; len++;
+		if( !SDL_isdigit(*p) && len < sizeof(h->gchord)-1 && !SDL_isdigit(p[1]) ) { *q++ = '1'; len ++; }
+		if (len >= sizeof(h->gchord)-1) {
+			// consume the rest of the input
+			// definitely enough "drum last state" stored.
+			while ( *p && !SDL_isspace(*p) ) p++;
+			break;
+		}
+	}
+	*q = '\0';
+	return 0;
+}
+
+static void abc_metric_gchord(ABCHANDLE *h, int mlen, int mdiv)
+{
+	switch( 16 * mlen + mdiv ) {
+		case 0x24:
+		case 0x44:
+		case 0x22:
+			abc_MIDI_gchord("fzczfzcz", h);
+			break;
+		case 0x64:
+		case 0x32:
+			abc_MIDI_gchord("fzczczfzczcz", h);
+			break;
+		case 0x34:
+		case 0x38:
+			abc_MIDI_gchord("fzczcz", h);
+			break;
+		case 0x68:
+			abc_MIDI_gchord("fzcfzc", h);
+			break;
+		case 0x98:
+			abc_MIDI_gchord("fzcfzcfzc", h);
+			break;
+		case 0xc8:
+			abc_MIDI_gchord("fzcfzcfzcfzc", h);
+			break;
+		default:
+			if( mlen % 3 == 0 )
+				abc_MIDI_gchord("fzcfzcfzcfzcfzcfzcfzcfzcfzc", h);
+			else
+				abc_MIDI_gchord("fzczfzczfzczfzczfzczfzczfzcz", h);
+			if( mdiv == 8 )	h->gchord[mlen*2] = '\0';
+			else h->gchord[mlen*4] = '\0';
+			break;
+	}
+}
+
+static void abc_MIDI_legato(const char *p, ABCTRACK *tp)
+{
+	for( ; *p && SDL_isspace(*p); p++ ) ;
+	if( !SDL_strncmp(p,"off",3) ) tp->legato = 0;
+	else tp->legato = 1;
+}
+
+static void abc_M_field(const char *p, int *mlen, int *mdiv)
+{
+	if( !SDL_strncmp(p,"none",4) ) {
+		*mlen = 1;
+		*mdiv = 1;
+		return;
+	}
+	if( !SDL_strncmp(p,"C|",2) ) {
+		*mlen = 2;
+		*mdiv = 2;
+		return;
+	}
+	if( *p == 'C' ) {
+		*mlen = 4;
+		*mdiv = 4;
+		return;
+	}
+	p += abc_getexpr(p,mlen);
+	SDL_sscanf(p," / %d", mdiv);
+}
+
+static int abc_drum_steps(const char *dch)
+{
+	const char *p;
+	int i=0;
+	for( p=dch; *p; p++ ) {
+		if( SDL_isdigit(*p) ) i += *p - '0';;
+	}
+	return i;
+}
+
+static void abc_add_drum(ABCHANDLE *h, uint32_t tracktime, uint32_t bartime)
+{
+	ABCEVENT *e;
+	ABCTRACK *tp;
+	uint32_t etime, ctime , rtime, stime;
+	int i, g, steps, gnote, gsteps, nnum;
+	steps = abc_drum_steps(h->drum);
+	ctime = h->barticks;
+	// look up the last event in tpr drumtrack
+	tp = abc_locate_track(h, h->tpr->v, DRUMPOS);
+	e = tp->tail;
+	etime = e? e->tracktick: bartime;
+	if( etime > tracktime ) return;
+	if( etime < bartime ) rtime = h->barticks - ((bartime - etime) % h->barticks);
+	else rtime = (etime - bartime) % h->barticks;
+	stime = ctime*steps;
+	rtime *= steps;
+	rtime += stime;
+	gsteps = SDL_strlen(h->drum)/2;
+	g = 0;
+	while( rtime > stime ) {
+		rtime -= ctime*(h->drum[g*2+1] - '0');
+		if( ++g == gsteps ) g = 0;
+	}
+	stime = (tracktime - etime) * steps;
+	rtime = 0;
+
+	// if no drumsteps, there is nothing we can do anyway.
+	if( steps == 0 )
+		return;
+
+	while( rtime < stime ) {
+		gnote = h->drum[g*2];
+		i = h->drum[g*2+1] - '0';
+		if( gnote=='d') {
+			tp->instr = pat_gm_drumnr(h->drumins[g]-1);
+			nnum      = pat_gm_drumnote(h->drumins[g]);
+			abc_add_drumnote(h, tp, etime + rtime/steps, nnum, h->drumvol[g]);
+			abc_add_noteoff(h,tp,etime + ( rtime + ctime * i )/steps);
+		}
+		if( ++g == gsteps ) g = 0;
+		rtime += ctime * i;
+	}
+}
+
+static int abc_gchord_steps(const char *gch)
+{
+	const char *p;
+	int i=0;
+	for( p=gch; *p; p++ )
+		if( SDL_isdigit(*p) ) i += *p - '0';
+	return i;
+}
+
+static void abc_add_gchord(ABCHANDLE *h, uint32_t tracktime, uint32_t bartime)
+{
+	ABCEVENT *e, *c;
+	ABCTRACK *tp;
+	uint32_t etime, ctime , rtime, stime;
+	int i, g, steps, gnote, gcnum, gsteps, nnum, glen;
+	// look up the last chord event in tpc
+	c = 0;
+	for( e = h->tpc->head; e; e = e->next )
+		if( e->flg == 1 && e->cmd == cmdchord )
+			c = e;
+	if( !c ) return;
+	gcnum = c->par[chordnum];
+	steps = abc_gchord_steps(h->gchord);
+	ctime = h->barticks;
+	etime = 0;
+	for( i = GCHORDBPOS; i < DRUMPOS; i++ ) {
+		tp = abc_locate_track(h, h->tpc->v, i);
+		e = tp->tail;
+		if( !e ) e = c;
+		stime = e->tracktick;
+		if( stime > etime )	etime = stime;
+	}
+	if( etime > tracktime ) return;
+	if( etime < bartime ) rtime = h->barticks - ((bartime - etime) % h->barticks);
+	else rtime = (etime - bartime) % h->barticks;
+	stime = ctime * steps;
+	rtime *= steps;
+	rtime += stime;
+	gsteps = SDL_strlen(h->gchord);
+	g = 0;
+	while( rtime > stime ) {
+		glen = h->gchord[2*g+1] - '0';
+		rtime -= ctime * glen;
+		if( ++g == gsteps ) g = 0;
+	}
+	stime = (tracktime - etime) * steps;
+	rtime = 0;
+	while( rtime < stime ) {
+		gnote = h->gchord[2*g];
+		glen  = h->gchord[2*g+1] - '0';
+		if( ++g == gsteps ) g = 0;
+		switch(gnote) {
+			case 'b':
+				tp = abc_locate_track(h, h->tpc->v, GCHORDFPOS);
+				tp->instr = h->abcbassprog;
+				nnum = c->par[chordnote]+chordnotes[gcnum][0]+24;
+				abc_add_chordnote(h, tp, etime + rtime/steps, nnum, h->abcbassvol);
+				abc_add_noteoff(h,tp,etime + ( rtime + ctime * glen )/steps);
+			case 'c':
+				for( i = 1; i < chordlen[gcnum]; i++ ) {
+					tp = abc_locate_track(h, h->tpc->v, i+GCHORDFPOS);
+					tp->instr = h->abcchordprog;
+					nnum = c->par[chordnote]+chordnotes[gcnum][i]+24;
+					abc_add_chordnote(h, tp, etime + rtime/steps, nnum, h->abcchordvol);
+					abc_add_noteoff(h,tp,etime + ( rtime + ctime * glen )/steps);
+				}
+				rtime += ctime * glen;
+				break;
+			case 'f':
+				tp = abc_locate_track(h, h->tpc->v, GCHORDFPOS);
+				tp->instr = h->abcbassprog;
+				nnum = c->par[chordbase]+12;
+				abc_add_chordnote(h, tp, etime + rtime/steps, nnum, h->abcbassvol);
+				rtime += ctime * glen;
+				abc_add_noteoff(h,tp,etime + rtime/steps);
+				break;
+			case 'g':
+			case 'h':
+			case 'i':
+			case 'j':
+			case 'G':
+			case 'H':
+			case 'I':
+			case 'J':
+				i = SDL_toupper(gnote) - 'G';
+				nnum = 0;
+				if( i < chordlen[gcnum] ) {
+					tp = abc_locate_track(h, h->tpc->v, GCHORDFPOS+i+1);
+					tp->instr = h->abcchordprog;
+					nnum = c->par[chordnote]+chordnotes[gcnum][i]+24;
+					if( IsUpper(gnote) ) nnum -= 12;
+					abc_add_chordnote(h, tp, etime + rtime/steps, nnum, h->abcchordvol);
+				}
+				rtime += ctime * glen;
+				if( nnum ) abc_add_noteoff(h,tp,etime + rtime/steps);
+				break;
+			case 'z':
+				rtime += ctime * glen;
+				break;
+		}
+	}
+}
+
+// %%MIDI beat a b c n
+//
+// controls the way note velocities are selected. The first note in a bar has
+// velocity a. Other "strong" notes have velocity b and all the rest have velocity
+// c. a, b and c must be in the range 0-128. The parameter n determines which
+// notes are "strong". If the time signature is x/y, then each note is given
+// a position number k = 0, 1, 2 .. x-1 within each bar. Note that the units for
+// n are not the unit note length. If k is a multiple of n, then the note is
+// "strong". The volume specifiers !ppp! to !fff! are equivalent to the
+// following :
+//
+// !ppp! = %%MIDI beat 30 20 10 1
+// !pp!  = %%MIDI beat 45 35 20 1
+// !p!   = %%MIDI beat 60 50 35 1
+// !mp!  = %%MIDI beat 75 65 50 1
+// !mf!  = %%MIDI beat 90 80 65 1
+// !f!   = %%MIDI beat 105 95 80 1
+// !ff!  = %%MIDI beat 120 110 95 1
+// !fff! = %%MIDI beat 127 125 110 1
+static void abc_MIDI_beat(ABCHANDLE *h, const char *p)
+{
+	int i,j;
+	h->beat[0] = 127;
+	h->beat[1] = 125;
+	h->beat[2] = 110;
+	h->beat[3] = 1;
+	for( j=0; j<4; j++ ) {
+		while( SDL_isspace(*p) ) p++;
+		if( *p ) {
+			p += abc_getnumber(p, &i);
+			if( i < 0   ) i = 0;
+			if( i > 127 ) i = 127;
+			h->beat[j] = i;
+		}
+	}
+	if( h->beat[3] == 0 ) h->beat[3] = 1; // BB Ruud says: do not let you make mad
+}
+
+//
+// %%MIDI beatstring <string of f, m and p>
+//
+// This provides an alternative way of specifying where the strong and weak
+// stresses fall within a bar. 'f' means velocity a (normally strong), 'm'
+// means velocity b (medium velocity) and 'p' means velocity c (soft velocity).
+// For example, if the time signature is 7/8 with stresses on the first, fourth
+// and sixth notes in the bar, we could use the following
+//
+// %%MIDI beatstring fppmpmp
+static void abc_MIDI_beatstring(ABCHANDLE *h, const char *p)
+{
+	while( SDL_isspace(*p) ) p++;
+	if( h->beatstring ) _mm_free(h->allochandle, h->beatstring);
+	if( SDL_strlen(p) )
+		h->beatstring = DupStr(h->allochandle,p,SDL_strlen(p)+1);
+	else
+		h->beatstring = NULL;
+}
+
+static int abc_beat_vol(ABCHANDLE *h, int abcvol, int barpos)
+{
+	int vol;
+	if( h->beatstring ) {
+		vol = (h->beat[2] * 9) / 10;
+		if( barpos < (int)SDL_strlen(h->beatstring) ) {
+			switch(h->beatstring[barpos]) {
+				case 'f':
+					vol = h->beat[0];
+					break;
+				case 'm':
+					vol = h->beat[1];
+					break;
+				case 'p':
+					vol = h->beat[2];
+					break;
+				default:
+					break;
+			}
+		}
+	}
+	else {
+		if( (barpos % h->beat[3]) == 0 ) {
+			if( barpos )
+				vol = h->beat[1];
+			else
+				vol = h->beat[0];
+		}
+		else
+			vol = h->beat[2];
+	}
+	vol *= abcvol;
+	vol /= 128;
+	return vol;
+}
+
+static void abc_init_partpat(BYTE partp[27][2])
+{
+	int i;
+	for( i=0; i<27; i++ ) {
+		partp[i][0] = 0xff;
+		partp[i][1] = 0;
+	}
+}
+
+static int abc_partpat_to_orderlist(BYTE partp[27][2], const char *abcparts, ABCHANDLE *h, BYTE **list, int orderlen)
+{
+	int t, partsused;
+	const char *p;
+	BYTE *orderlist = *list;
+	static int ordersize = 0;
+	if( *list == NULL ) {
+		ordersize = 128;
+		orderlist = (BYTE *)_mm_calloc(h->ho, ordersize, sizeof(BYTE));
+		*list = orderlist;
+	}
+	if( abcparts ) {
+		partsused = 0;
+		for( p = abcparts; *p; p++ ) {
+			for( t = partp[*p - 'A'][0]; t < partp[*p - 'A'][1]; t++ ) {
+				if( orderlen == ordersize ) {
+					ordersize <<= 1;
+					if (ordersize == 0) ordersize = 2;
+					orderlist = (BYTE *)_mm_recalloc(h->ho, orderlist, ordersize, sizeof(BYTE));
+					*list = orderlist;
+				}
+				orderlist[orderlen] = t;
+				orderlen++;
+				partsused++;
+			}
+		}
+		if( partsused ) return orderlen;
+	}
+	// some fool wrote a P: string in the header but didn't use P: in the body
+	for( t = partp[26][0]; t < partp[26][1]; t++ ) {
+		if( orderlen == ordersize ) {
+			ordersize <<= 1;
+			if (ordersize == 0) ordersize = 2;
+			orderlist = (BYTE *)_mm_recalloc(h->ho, orderlist, ordersize, sizeof(BYTE));
+			*list = orderlist;
+		}
+		orderlist[orderlen] = t;
+		orderlen++;
+	}
+	return orderlen;
+}
+
+static void abc_globalslide(ABCHANDLE *h, uint32_t tracktime, int slide)
+{
+	ABCTRACK *tp;
+	ABCEVENT *e;
+	int hslide;
+	hslide = h->track? h->track->slidevol: slide;
+	for( tp=h->track; tp; tp = tp->next ) {
+		if( slide ) {
+			tp->slidevoltime = tracktime;
+			if( slide == 2 )
+				tp->slidevol = 0;
+		}
+		if( tp->slidevol > -2 && slide < 2 )
+			tp->slidevol = slide;
+	}
+	if( h->track && h->track->tail
+	&& hslide != slide && slide == -2
+	&& h->track->tail->tracktick >= tracktime ) {
+		// need to update jumptypes in mastertrack from tracktime on...
+		for( e=h->track->head; e; e=e->next )	{
+			if( e->flg == 1 && e->cmd == cmdjump && e->tracktick >= tracktime ) {
+				switch( e->par[jumptype] ) {
+					case jumpnormal:
+					case jumpfade:
+						e->par[jumptype] = jumpfade;
+						break;
+					case jumpdacapo:
+					case jumpdcfade:
+						e->par[jumptype] = jumpdcfade;
+						break;
+					case jumpdasegno:
+					case jumpdsfade:
+						e->par[jumptype] = jumpdsfade;
+						break;
+				}
+			}
+		}
+	}
+}
+
+static void abc_recalculate_tracktime(ABCHANDLE *h) {
+	ABCTRACK *ttp;
+	h->tracktime = 0;
+	for( ttp=h->track; ttp; ttp=ttp->next )
+		if( ttp->tail && ttp->tail->tracktick > h->tracktime )
+			h->tracktime = ttp->tail->tracktick;
+}
+
+static void abc_MIDI_command(ABCHANDLE *h, char *p, char delim) {
+	int t;
+	// interpret some of the possibilitys
+	if( !SDL_strncmp(p,"bassprog",8)    && SDL_isspace(p[8]) ) h->abcbassprog = abc_MIDI_getprog(p+8)+1;
+	if( !SDL_strncmp(p,"bassvol",7)     && SDL_isspace(p[7]) ) h->abcbassvol = abc_MIDI_getnumber(p+7);
+	if( !SDL_strncmp(p,"beat",4)        && SDL_isspace(p[4]) ) abc_MIDI_beat(h, p+4);
+	if( !SDL_strncmp(p,"beatstring",10) && SDL_isspace(p[10]) ) abc_MIDI_beatstring(h, p+4);
+	if( !SDL_strncmp(p,"chordname",9)   && SDL_isspace(p[9]) ) abc_MIDI_chordname(p+9);
+	if( !SDL_strncmp(p,"chordprog",9)   && SDL_isspace(p[9]) ) h->abcchordprog = abc_MIDI_getprog(p+9)+1;
+	if( !SDL_strncmp(p,"chordvol",8)    && SDL_isspace(p[8]) ) h->abcchordvol = abc_MIDI_getnumber(p+8);
+	if( !SDL_strncmp(p,"drone",5)       && SDL_isspace(p[5]) ) abc_MIDI_drone(p+5, &h->dronegm, h->dronepitch, h->dronevol);
+	if( !SDL_strncmp(p,"droneoff",8)    && (p[8]=='\0' || p[8]==delim || SDL_isspace(p[8])) ) h->droneon = 0;
+	if( !SDL_strncmp(p,"droneon",7)     && (p[7]=='\0' || p[7]==delim || SDL_isspace(p[7])) ) h->droneon = 1;
+	t = h->drumon;
+	if( !SDL_strncmp(p,"drum",4)        && SDL_isspace(p[4]) ) {
+		h->drumon = abc_MIDI_drum(p+4, h);
+		if( h->drumon ) --h->drumon;
+		else h->drumon = t;
+	}
+	if( !SDL_strncmp(p,"drumoff",7)     && (p[7]=='\0' || p[7]==delim || SDL_isspace(p[7])) ) h->drumon = 0;
+	if( !SDL_strncmp(p,"drumon",6)      && (p[6]=='\0' || p[6]==delim || SDL_isspace(p[6])) ) h->drumon = 1;
+	if( t != h->drumon ) {
+		if( h->drumon && !h->tpr ) h->tpr = h->track;
+		if( h->tpr ) abc_add_drum_sync(h, h->tpr, h->tracktime); // don't start drumming from the beginning of time!
+		if( h->tpr && !h->drumon ) h->tpr = NULL;
+	}
+	t = h->gchordon;
+	if( !SDL_strncmp(p,"gchord",6)      && (p[6]=='\0' || p[6]==delim || SDL_isspace(p[6])) ) {
+		h->gchordon = abc_MIDI_gchord(p+6, h);
+		if( h->gchordon ) --h->gchordon;
+		else h->gchordon = t;
+	}
+	if( !SDL_strncmp(p,"gchordoff",9)   && (p[9]=='\0' || p[9]==delim || SDL_isspace(p[9])) ) h->gchordon = 0;
+	if( !SDL_strncmp(p,"gchordon",8)    && (p[8]=='\0' || p[8]==delim || SDL_isspace(p[8])) ) h->gchordon = 1;
+	if( t != h->gchordon ) {
+		if( h->tpc ) abc_add_gchord_syncs(h, h->tpc, h->tracktime);
+	}
+	if( !SDL_strncmp(p,"channel",7)     && SDL_isspace(p[7]) )
+		abc_MIDI_channel(p+8, h->tp = abc_check_track(h, h->tp), h);
+	if( !SDL_strncmp(p,"program",7)     && SDL_isspace(p[7]) )
+		abc_MIDI_program(p+8, h->tp = abc_check_track(h, h->tp), h);
+	if( !SDL_strncmp(p,"voice",5)       && SDL_isspace(p[5]) )
+		abc_MIDI_voice(p+6, h->tp = abc_check_track(h, h->tp), h);
+	if( !SDL_strncmp(p,"legato",6)      && (p[6]=='\0' || p[6]==delim || SDL_isspace(p[6])) )
+		abc_MIDI_legato(p+6, h->tp = abc_check_track(h, h->tp));
+}
+
+// continuate line that ends with a backslash, can't do this in abc_gets because voice lines
+// can have comment lines in between that must be parsed properly, for example:
+//  [V:1] cdef gabc' |\ << continuation backslash
+//  %%MIDI program 25
+//        c'bag fedc |
+// informational lines can have this too, so it is rather convoluted code...
+static char *abc_continuated(ABCHANDLE *h, MMFILE *mmf, char *p) {
+	char *pm, *p1, *p2 = 0;
+	int continued;
+	pm = p;
+	while( pm[SDL_strlen(pm)-1]=='\\' ) {
+		p1 = SDL_strdup(pm);
+		if( p2 ) SDL_free(p2);
+		continued = 1;
+		while( continued ) {
+			continued = 0;
+			pm = abc_gets(h, mmf);
+			if( !pm ) {
+				abc_message("line not properly continued\n%s", p1);
+				return p1;
+			}
+			while( *pm && SDL_isspace(*pm) ) ++pm;
+			if( !SDL_strncmp(pm,"%%",2) ) {
+				for( p2 = pm+2; *p2 && SDL_isspace(*p2); p2++ ) ;
+				if( !SDL_strncmp(p2,"MIDI",4) && (p2[4]=='=' || SDL_isspace(p2[4])) ) {
+					for( p2+=5; *p2 && SDL_isspace(*p2); p2++ ) ;
+					if( *p2 == '=' )
+						for( p2+=1; *p2 && SDL_isspace(*p2); p2++ ) ;
+					abc_MIDI_command(h,p2,'%');
+				}
+				continued = 1;
+			}
+		}
+		const size_t macrolinelen = SDL_strlen(p1)+SDL_strlen(pm)+1;
+		p2 = (char *)SDL_malloc(macrolinelen);
+		if( !p2 ) {
+			abc_message("macro line too long\n%s", p1);
+			return p1;
+		}
+		p1[SDL_strlen(p1)-1] = '\0'; // strip off the backslash
+		SDL_strlcpy(p2,p1,macrolinelen);
+		SDL_strlcat(p2,pm,macrolinelen);
+		pm = p2;
+		SDL_free(p1);
+	}
+	return pm;
+}
+
+// =====================================================================================
+BOOL CSoundFile_ReadABC(CSoundFile *_this, const uint8_t *lpStream, DWORD dwMemLength)
+{
+	static int avoid_reentry = 0;
+	ABCHANDLE *h;
+	uint32_t numpat;
+	MMFILE mm, *mmfile;
+	uint32_t t;
+	char	*line, *p, *pp, ch, ch0=0;
+	char barsig[52];	// for propagated accidental key signature within bar
+	char *abcparts;
+	uint8_t partpat[27][2], *orderlist;
+	int orderlen;
+	enum { NOWHERE, INBETWEEN, INHEAD, INBODY, INSKIPFORX, INSKIPFORQUOTE } abcstate;
+	ABCEVENT_JUMPTYPE j;
+	ABCEVENT_X_EFFECT abceffect;
+	int abceffoper;
+	int abcxcount=0, abcxwanted=0, abcxnumber=1;
+	int abckey, abcrate, abcchord, abcvol, abcbeatvol, abcnoslurs, abcnolegato, abcfermata, abcarpeggio, abcto;
+	int abctempo;
+	int cnotelen=0, cnotediv=0, snotelen, snotediv, mnotelen, mnotediv, notelen, notediv;
+	// c for chords, s for standard L: setting, m for M: barlength
+	int abchornpipe, brokenrithm, tupletp, tupletq, tupletr;
+	int ktempo;
+	uint32_t abcgrace=0, bartime, thistime=0;
+	ABCTRACK *tpd, *ttp;
+	ABCMACRO *mp;
+	int mmsp;
+	MMFILE *mmstack[MAXABCINCLUDES];
+	if( !CSoundFile_TestABC(lpStream, dwMemLength) ) return FALSE;
+	h = ABC_Init();
+	if( !h ) return FALSE;
+	mmfile = &mm;
+	mm.mm = (char *)lpStream;
+	mm.sz = dwMemLength;
+	mm.pos = 0;
+	while( avoid_reentry ) SDL_Delay(1);
+	avoid_reentry = 1;
+	pat_resetsmp();
+	pat_init_patnames();
+	_this->m_nDefaultTempo = 0;
+	global_voiceno = 0;
+	abckey = 0;
+	h->tracktime = 0;
+	global_songstart = 0;
+	h->speed = 6;
+	abcrate = 240;
+	global_tempo_factor = 2;
+	global_tempo_divider = 1;
+	abctempo = 0;
+	ktempo = 0;
+	abceffect = none;
+	abceffoper = 0;
+	abcvol = 120;
+	h->abcchordvol  = abcvol;
+	h->abcbassvol   = abcvol;
+	h->abcchordprog = 25; // acoustic guitar
+	h->abcbassprog  = 33; // acoustic bass
+	abcparts = 0;
+	abcnoslurs = 1;
+	abcnolegato = 1;
+	abcfermata = 0;
+	abcarpeggio = 0;
+	abcto = 0;
+	snotelen = 0;
+	snotediv = 0;
+	mnotelen = 1;
+	mnotediv = 1;
+	abchornpipe = 0;
+	brokenrithm = 0;
+	tupletp = 0;
+	tupletq = 0;
+	tupletr = 0;
+	h->ktrans = 0;
+	h->drumon = 0;
+	h->gchordon = 1;
+	h->droneon = 0;
+	h->tracktime = 0;
+	bartime = 0;
+	h->tp = NULL;
+	h->tpc = NULL;
+	h->tpr = NULL;
+	tpd = NULL;
+	h->dronegm       = 71;
+	h->dronepitch[0] = 45;
+	h->dronepitch[1] = 33;
+	h->dronevol[0]   = 80;
+	h->dronevol[1]   = 80;
+	abc_new_umacro(h, "v = +downbow+");
+	abc_new_umacro(h, "u = +upbow+");
+	abc_new_umacro(h, "O = +coda+");
+	abc_new_umacro(h, "S = +segno+");
+	abc_new_umacro(h, "P = +uppermordent+");
+	abc_new_umacro(h, "M = +lowermordent+");
+	abc_new_umacro(h, "L = +emphasis+");
+	abc_new_umacro(h, "H = +fermata+");
+	abc_new_umacro(h, "T = +trill+");
+	abc_new_umacro(h, "~ = +roll+");
+	abc_setup_chordnames();
+	abc_init_partpat(partpat);
+	abc_MIDI_beat(h, ""); // reset beat array
+	abc_MIDI_beatstring(h, ""); // reset beatstring
+	orderlist  = NULL;
+	orderlen   = 0;
+	mmsp       = 1;
+	mmstack[0] = mmfile;
+	mmfseek(mmfile,0,SEEK_SET);
+	abcstate = NOWHERE;
+	if( h->pickrandom ) {
+		abcstate = INSKIPFORX;
+		abcxcount = 0;
+		mmfseek(mmfile,0,SEEK_SET);
+		while( (line=abc_gets(h, mmfile)) ) {
+			for( p=line; SDL_isspace(*p); p++ ) ;
+			if( !SDL_strncmp(p,"X:",2) ) abcxcount++;
+		}
+		if( abcxcount == 0 )
+			abcstate = NOWHERE;
+		else
+			abcxwanted = (h->pickrandom - 1) % abcxcount;
+		abcxcount = 0;
+		mmfseek(mmfile,0,SEEK_SET);
+	}
+	while( mmsp > 0 ) {
+		mmsp--;
+		while((line=abc_gets(h, mmstack[mmsp]))) {
+			for( p=line; SDL_isspace(*p); p++ ) ;
+			switch(abcstate) {
+				case INSKIPFORX:
+					if( !SDL_strncmp(p,"X:",2) ) {
+						if( abcxcount++ != abcxwanted )
+							break;
+					}
+					// fall through
+				case INBETWEEN:
+					if( !SDL_strncmp(p,"X:",2) ) {
+						abcstate = INHEAD;
+						for( p+=2; SDL_isspace(*p); p++ ) ;
+						abcxnumber = SDL_atoi(p);
+						abchornpipe = 0;
+						h->droneon = 0;
+						h->dronegm       = 71;
+						h->dronepitch[0] = 45;
+						h->dronepitch[1] = 33;
+						h->dronevol[0]   = 80;
+						h->dronevol[1]   = 80;
+						for( ttp = h->track; ttp; ttp=ttp->next ) {
+							ttp->vno = 0;	// mark track unused
+							ttp->capostart = NULL;
+						}
+						h->tp  = NULL; // forget old voices
+						h->tpc = NULL;
+						h->tpr = NULL;
+						global_voiceno = 0;
+						abc_set_parts(&abcparts, 0);
+						abcgrace = 0;
+						h->ktrans = 0;
+						ktempo = 0;
+						h->gchordon = 1;
+						h->drumon = 0;
+						global_songstart = h->tracktime;
+						abc_MIDI_beat(h, ""); // reset beat array
+						abc_MIDI_beatstring(h, ""); // reset beatstring
+						h->gchord[0] = 0; // reset gchord string
+						abcnolegato = 1; // reset legato switch
+					}
+					break;
+				case NOWHERE:
+					if( p[0] != '\0' && p[1] == ':' ) {
+						abcstate = INHEAD;
+						abc_set_parts(&abcparts, 0);
+						h->gchord[0] = 0;
+						if( h->drumon && h->tpr ) abc_add_drum_sync(h, h->tpr, h->tracktime);
+						if( h->tpc && !h->gchordon ) abc_add_gchord_syncs(h, h->tpc, h->tracktime);
+						h->gchordon = 1;
+						h->drumon = 0;
+					}
+					else
+						break;
+				case INHEAD:
+					if( !SDL_strncmp(p,"L:",2) ) {
+						SDL_sscanf(p+2," %d / %d", &snotelen, &snotediv);
+						break;
+					}
+					if( !SDL_strncmp(p,"M:",2) ) {
+						abc_M_field(p+2, &mnotelen, &mnotediv);
+						break;
+					}
+					if( !SDL_strncmp(p,"P:",2) ) {
+						abc_set_parts(&abcparts, p+2);
+						break;
+					}
+					if( !SDL_strncmp(p,"Q:",2) ) {
+						abctempo = abc_extract_tempo(p+2,0);
+						ktempo = 1;
+						if( h->track ) {
+							// make h->tracktime start of a new age...
+							abc_add_partbreak(h, h->track, h->tracktime);
+							abc_add_tempo_event(h, h->track, h->tracktime, abctempo);
+						}
+						if( _this->m_nDefaultTempo == 0 ) _this->m_nDefaultTempo = abctempo;
+						break;
+					}
+					if( !SDL_strncmp(p,"T:",2) ) {
+						break;
+					}
+					if( !SDL_strncmp(p,"R:",2) ) {
+						for( p+=2; SDL_isspace(*p); p++ ) ;
+						if( !SDL_strncmp(p,"hornpipe",8) && (SDL_isspace(p[8]) || p[8]=='\0') ) abchornpipe = 1;
+						else abchornpipe = 0;
+						break;
+					}
+					if( !SDL_strncmp(p,"V:",2) ) {
+						for( t=2; p[t]==' '; t++ ) ;
+						h->tp = abc_locate_track(h, p+t, 0);
+						abcvol = h->tp->volume;
+						abcnolegato = !h->tp->legato;
+						if( !abcnolegato ) abcnoslurs = 0;
+						break;
+					}
+					if( !SDL_strncmp(p,"K:",2) ) {
+						abcstate = INBODY;
+						abckey = ABC_Key(p+2);
+						SDL_snprintf(barsig, sizeof (barsig), "%s%s", sig[abckey], sig[abckey]);	// reset the key signature
+						p = abc_skip_word(p+2);
+						h->ktrans = abc_transpose(p);
+						*p = '%'; // force skip rest of line
+						if( snotelen == 0 ) {	// calculate default notelen from meter M:
+							if( mnotediv == 0 ) mnotediv = mnotelen = 1;	// do'nt get nuked
+							snotelen = 100 * mnotelen / mnotediv;
+							if( snotelen > 74 )
+								snotediv = 8;
+							else
+								snotediv = 16;
+							snotelen = 1;
+						}
+						abceffect = none;
+						abceffoper = 0;
+						if( !(snotelen == 1 && snotediv == 8) ) abchornpipe = 0; // no matter what they said at R:
+						brokenrithm = 0;
+						global_part = ' ';
+						abcgrace = 0;
+						abcnoslurs = abcnolegato;
+						abcto = 0;
+						h->tpc = NULL; // reset chord track
+						tpd = NULL; // reset drone track
+						h->tpr = NULL; // reset drum  track
+						if( !SDL_strlen(h->gchord) ) abc_metric_gchord(h, mnotelen, mnotediv);
+						h->barticks = notelen_notediv_to_ticks(h->speed, mnotelen, mnotediv);
+						if( abctempo && !ktempo ) {	// did not set tempo in this songpiece so reset to abcrate
+							abctempo = 0;
+							global_tempo_factor = 2;
+							global_tempo_divider = 1;
+							if( h->track ) {
+								// make h->tracktime start of a new age...
+								abc_add_partbreak(h, h->track, h->tracktime);
+								abc_add_tempo_event(h, h->track, h->tracktime, abcrate);
+							}
+							if( _this->m_nDefaultTempo == 0 ) _this->m_nDefaultTempo = abcrate;
+						}
+						abc_init_partpat(partpat);
+						partpat[26][0] = abc_patno(h, h->tracktime);
+						partpat[26][1] = 0;
+						abc_globalslide(h, h->tracktime, 2); // reset all volumeslides
+						break;
+					}
+					if( !SDL_strlen(p) )
+						abcstate = INBETWEEN;
+					break;
+				case INSKIPFORQUOTE:
+						while( *p && *p != '"' )
+							p++;
+						if( *p == '\0' )
+							break;
+						abcstate = INBODY;
+						// fall through
+				case INBODY:
+					if( !SDL_strlen(p) && h->track ) { // end of this song
+						abcstate = h->pickrandom? INSKIPFORX: INBETWEEN;
+						// last but not least shut off all pending events
+						abc_recalculate_tracktime(h);
+						for( ttp=h->track; ttp; ttp=ttp->next )
+							abc_add_noteoff(h,ttp,h->tracktime);
+						abc_add_partbreak(h, h->track, h->tracktime);
+						t = abc_patno(h, h->tracktime);
+						if( abc_pattracktime(h, h->tracktime) % abcticks(64 * h->speed) ) t++;
+						if(	global_part == ' ' ) {
+							partpat[26][1] = t;
+							if( abcparts ) {
+								for( t=0; t<26; t++ )
+									if( partpat[t][0] < partpat[t][1] ) break;
+								if( t == 26 ) {
+									abc_message("parts (%s) set but not used", abcparts);
+									abc_set_parts(&abcparts, 0);	// forget the parts array
+								}
+							}
+						}
+						else
+							partpat[global_part - 'A'][1] = t;
+						if( !abcparts ) abc_song_to_parts(h, &abcparts, partpat);
+						orderlen = abc_partpat_to_orderlist(partpat, abcparts, h, &orderlist, orderlen);
+					}
+					if( !SDL_strncmp(p,"V:",2) ) {
+						for( t=2; p[t]==' '; t++ ) ;
+						h->tp = abc_locate_track(h, p+t, 0);
+						SDL_snprintf(barsig, sizeof (barsig), "%s%s", sig[abckey], sig[abckey]);	// reset the key signature
+						abcgrace = 0;
+						brokenrithm = 0;
+						h->tracktime = abc_tracktime(h->tp);
+						bartime = h->tracktime; // it is not friendly to break voices in the middle of a track...
+						abcnolegato = !h->tp->legato;
+						if( !abcnolegato ) abcnoslurs = 0;
+						*p = '%';	// make me skip the rest of the line....
+					}
+					if( !SDL_strncmp(p,"K:",2) ) {
+						abckey = ABC_Key(p+2);
+						SDL_snprintf(barsig, sizeof (barsig), "%s%s", sig[abckey], sig[abckey]);	// reset the key signature
+						p = abc_skip_word(p+2);
+						h->ktrans = abc_transpose(p);
+						*p = '%';	// make me skip the rest of the line....
+					}
+					if( !SDL_strncmp(p,"L:",2) ) {
+						SDL_sscanf(p+2," %d / %d", &snotelen, &snotediv);
+						*p = '%';	// make me skip the rest of the line....
+					}
+					if( !SDL_strncmp(p,"M:",2) ) {
+						abc_M_field(p+2, &mnotelen, &mnotediv);
+						h->barticks = notelen_notediv_to_ticks(h->speed, mnotelen, mnotediv);
+						*p = '%';	// make me skip the rest of the line....
+					}
+					if( !SDL_strncmp(p,"Q:",2) ) {
+						abctempo = abc_extract_tempo(p+2,ch0=='\\');
+						if( !h->track ) {
+							h->tp = abc_check_track(h, h->track);
+							h->tp->vno = 0; // mark reuseable (temporarely, until first notes come up)
+						}
+						abc_add_tempo_event(h, h->track, h->tracktime, abctempo);
+						*p = '%';	// make me skip the rest of the line....
+					}
+					if( !SDL_strncmp(p,"T:",2) ) {
+						*p = '%';	// make me skip the rest of the line....
+					}
+					break;
+			}
+			if( !SDL_strncmp(p,"m:",2) ) {
+				if( abcstate != INSKIPFORX ) {
+					char *pm;
+					pm = abc_continuated(h, mmstack[mmsp], p);
+					abc_new_macro(h, pm+2);
+					if( pm != p ) {
+						SDL_free(pm);
+						if( h->tp ) abcnolegato = !h->tp->legato;
+						if( !abcnolegato ) abcnoslurs = 0;
+					}
+				}
+				*p = '%'; // skip rest of line
+			}
+			if( !SDL_strncmp(p,"U:",2) ) {
+				abc_new_umacro(h, p+2);
+				*p = '%'; // skip rest of line
+			}
+			if( !SDL_strncmp(p,"w:",2) ) {	// inline lyrics
+				*p = '%'; // skip rest of line
+			}
+			if( !SDL_strncmp(p,"W:",2) ) {	// lyrics at end of song body
+				*p = '%'; // skip rest of line
+			}
+			if( !SDL_strncmp(p,"d:",2) ) {	// oldstyle decorations
+				abc_message("warning: old style decorations not handled\n%s", p);
+				*p = '%'; // skip rest of line
+			}
+			if( !SDL_strncmp(p,"s:",2) ) {	// newstyle decorations (symbols)
+				abc_message("warning: new style decorations not handled\n%s", p);
+				*p = '%'; // skip rest of line
+			}
+			if( !SDL_strncmp(p,"I:",2) && abcstate != INSKIPFORX ) { // handle like oldstyle '%%command' lines
+				p[0]= '%';
+				p[1]= '%';
+			}
+			if( !SDL_strncmp(p,"%%",2) ) {
+				for( p+=2; *p && SDL_isspace(*p); p++ ) ;
+				if( !SDL_strncmp(p,"abc-include",11) && SDL_isspace(p[11]) ) {
+					for( t=12; SDL_isspace(p[t]); t++ ) ;
+					if( p[t] ) {
+						#if 1  // we don't want people opening arbitrary files.
+						abc_message("failure: abc-include unsupported, %s", &p[t]);
+						#else
+						mmsp++;
+						if( mmsp == MAXABCINCLUDES ) {
+							mmsp--;
+							abc_message("failure: too many abc-include's, %s", &p[t]);
+						} else {
+							mmstack[mmsp] = mmfopen(&p[t], "r");
+							if( !mmstack[mmsp] ) {
+								mmsp--;
+								abc_message("failure: abc-include file %s not found", &p[t]);
+							}
+						}
+						#endif
+					}
+					else abc_message("failure: abc-include missing file name, %s", p);
+				}
+				if( !SDL_strncmp(p,"MIDI",4) && (p[4]=='=' || SDL_isspace(p[4])) && abcstate != INSKIPFORX ) {
+					for( p+=5; *p && SDL_isspace(*p); p++ ) ;
+					if( *p == '=' )
+						for( p+=1; *p && SDL_isspace(*p); p++ ) ;
+					abc_MIDI_command(h,p,'%');
+					if( h->tp ) abcnolegato = !h->tp->legato;
+					if( !abcnolegato ) abcnoslurs = 0;
+				}
+				if(*p) *p = '%'; // skip rest of line
+			}
+			if( abcstate == INBODY ) {
+				if( *p == 'P' && p[1] == ':' ) {	// a line with a part indication
+					if( abcparts != NULL ) {
+						// make h->tracktime start of a new age...
+						if( !h->track ) {
+							h->tp = abc_check_track(h, h->track);
+							h->tp->vno = 0; // mark reuseable (temporarely, until first notes come up)
+						}
+						h->tracktime = h->track? abc_tracktime(h->track): 0; // global parts are voice independent
+						abc_add_partbreak(h, h->track, h->tracktime);
+						t = abc_patno(h, h->tracktime);
+						if(	global_part == ' ' ) {
+							partpat[26][1] = t;
+							if( abcparts ) {
+								for( t=0; t<26; t++ )
+									if( partpat[t][0] < partpat[t][1] ) break;
+								if( t == 26 ) {
+									abc_message("parts (%s) set but not used", abcparts);
+									abc_set_parts(&abcparts, 0);	// forget the parts array
+								}
+							}
+						}
+						else
+							partpat[global_part - 'A'][1] = t;
+						// give every new coming abcevent the desired part indication
+						while( p[2]==' ' || p[2]=='.' ) p++;	// skip blancs and dots
+						if( IsUpper(p[2]) )
+							global_part = p[2];
+						else
+							global_part = ' ';
+						if(	global_part == ' ' )
+							partpat[26][0] = t;
+						else
+							partpat[global_part - 'A'][0] = t;
+					}
+					*p = '%';	// make me skip the rest of the line....
+				}
+				if( h->droneon && !tpd ) {
+					tpd = h->track;
+					if( tpd ) {
+						tpd = abc_locate_track(h, tpd->v, DRONEPOS1);
+						tpd->instr = h->dronegm;
+						abc_add_dronenote(h, tpd, h->tracktime, h->dronepitch[0], h->dronevol[0]);
+						tpd = abc_locate_track(h, tpd->v, DRONEPOS2);
+						tpd->instr = h->dronegm;
+						abc_add_dronenote(h, tpd, h->tracktime, h->dronepitch[1], h->dronevol[1]);
+					}
+				}
+				if( tpd && !h->droneon ) {
+					tpd = abc_locate_track(h, tpd->v, DRONEPOS1);
+					abc_add_noteoff(h, tpd, h->tracktime);
+					tpd = abc_locate_track(h, tpd->v, DRONEPOS2);
+					abc_add_noteoff(h, tpd, h->tracktime);
+					tpd = NULL;
+				}
+				if( h->drumon && !h->tpr ) {
+					h->tpr = h->track;
+					if( h->tpr ) abc_add_drum_sync(h, h->tpr, h->tracktime); // don't start drumming from the beginning of time!
+				}
+				if( h->tpr && !h->drumon ) h->tpr = NULL;
+				if( *p && *p != '%' ) {	// skip uninteresting lines
+					// plough thru the songline gathering mos....
+					ch0 = ' ';
+					pp = 0;
+					while( (ch = *p++) ) {
+						if( !pp && IsAlpha(ch) && *p != ':' ) { // maybe a macro
+							for( mp=h->umacro; mp; mp=mp->next ) {
+								if( ch == mp->name[0] ) {
+									pp = p;
+									p = mp->subst;
+									ch = *p;
+                                    if( ch ) p++;
+									break;
+								}
+							}
+						}
+						switch(ch) {
+							case '%':
+								abcto = 0;
+								while( *p ) p++;
+								break;
+							case '[':	// chord follows or some inline field
+								abcto = 0;
+								if( *p=='|' ) break; // [| a thick-thin bar line, loop around and let case '|' handle it
+								if( !SDL_strncmp(p,"V:",2) ) {	// inline voice change
+									for( t=2; SDL_isspace(p[t]); t++ ) ;
+									h->tp = abc_locate_track(h, p+t, 0);
+									for( ; *p && *p != ']'; p++ ) ;
+									abcgrace = 0;
+									brokenrithm = 0;
+									SDL_snprintf(barsig, sizeof (barsig), "%s%s", sig[abckey], sig[abckey]);	// reset the key signature
+									h->tracktime = abc_tracktime(h->tp);
+									bartime = h->tracktime; // it is not wise to break voices in the middle of a track...
+									abcvol = h->tp->volume;
+									abcnolegato = !h->tp->legato;
+									if( !abcnolegato ) abcnoslurs = 0;
+									break;
+								}
+								if( !SDL_strncmp(p,"K:",2) ) {
+									abckey = ABC_Key(p+2);
+									SDL_snprintf(barsig, sizeof (barsig), "%s%s", sig[abckey], sig[abckey]);	// reset the key signature
+									p = abc_skip_word(p+2);
+									h->ktrans = abc_transpose(p);
+									for( ; *p && *p != ']'; p++ ) ;
+									break;
+								}
+								if( !SDL_strncmp(p,"M:",2) ) {
+									abc_M_field(p+2, &mnotelen, &mnotediv);
+									for( ; *p && *p != ']'; p++ ) ;
+									h->barticks = notelen_notediv_to_ticks(h->speed, mnotelen, mnotediv);
+									break;
+								}
+								if( !SDL_strncmp(p,"P:",2) ) {	// a [P:X] field inline
+									if( abcparts != NULL ) {
+										// make h->tracktime start of a new age...
+										if( h->track )
+											abc_add_partbreak(h, h->track, h->tracktime);
+										t = abc_patno(h, h->tracktime);
+										if(	global_part == ' ' )
+											partpat[26][1] = t;
+										else
+											partpat[global_part - 'A'][1] = t;
+										// give every new coming abcevent the desired part indication
+										while( SDL_isspace(p[2]) || p[2]=='.' ) p++;	// skip blancs and dots
+										if( IsUpper(p[2]) )
+											global_part = p[2];
+										else
+											global_part = ' ';
+										if(	global_part == ' ' )
+											partpat[26][0] = t;
+										else
+											partpat[global_part - 'A'][0] = t;
+									}
+									for( ; *p && *p != ']'; p++ ) ;
+									break;
+								}
+								if( !SDL_strncmp(p,"Q:",2) ) {
+									abctempo = abc_extract_tempo(p+2,1);
+									for( ; *p && *p != ']'; p++ ) ;
+									if( h->track )
+										abc_add_tempo_event(h, h->track, h->tracktime, abctempo);
+									break;
+								}
+								if( !SDL_strncmp(p,"I:",2) ) { // interpret some of the possibilitys
+									for( p += 2; SDL_isspace(*p); p++ ) ;
+									if( !SDL_strncmp(p,"MIDI",4) && (p[4]=='=' || SDL_isspace(p[4])) ) { // interpret some of the possibilitys
+										for( p += 4; SDL_isspace(*p); p++ ) ;
+										if( *p == '=' )
+											for( p += 1; SDL_isspace(*p); p++ ) ;											
+										abc_MIDI_command(h, p, ']');
+										if( h->tp ) abcnolegato = !h->tp->legato;
+										if( !abcnolegato ) abcnoslurs = 0;
+									}
+									for( ; *p && *p != ']'; p++ ) ; // skip rest of inline field
+								}
+								if( *p && p[1] == ':' ) { // some other kind of inline field
+									for( ; *p && *p != ']'; p++ ) ;
+									break;
+								}
+								if( *p && SDL_strchr("abcdefgABCDEFG^_=",*p) ) {
+									int cnl[8],cnd[8],vnl,nl0=0,nd0=0;	// for chords with notes of varying length
+									abcchord = 0;
+									vnl = 0;
+									h->tp = abc_check_track(h, h->tp);
+									abc_track_clear_tiedvpos(h);
+									abcbeatvol = abc_beat_vol(h, abcvol, (h->tracktime - bartime)/notelen_notediv_to_ticks(h->speed,1,mnotediv));
+									while( (ch=*p++) && (ch != ']') ) {
+										h->tp = abc_locate_track(h, h->tp->v, abcchord? abcchord+DRONEPOS2: 0);
+										p += abc_add_noteon(h, ch, p, h->tracktime, barsig, abcbeatvol, abceffect, abceffoper);
+										p += abc_notelen(p, &notelen, &notediv);
+										if( *p == '-' ) {
+											p++;
+											if( h->tp->tail && h->tp->tail->flg != 1 )
+											h->tp->tienote = h->tp->tail;
+										}
+										if( abcchord<8 ) {
+											cnl[abcchord] = notelen;
+											cnd[abcchord] = notediv;
+										}
+										if( abcchord==0 ) {
+											cnotelen = notelen;
+											cnotediv = notediv;
+											nl0 = notelen;
+											nd0 = notediv;
+										}
+										else {
+											if( cnotelen != notelen || cnotediv != notediv ) {
+												vnl = 1;
+												// update to longest duration
+												if( cnotelen * notediv < notelen * cnotediv ) {
+													cnotelen = notelen;
+													cnotediv = notediv;
+													abc_track_untie_short_chordnotes(h);
+												}
+												if( cnotelen * notediv > notelen * cnotediv ) {
+													if( h->tp->tienote ) {
+														abc_message("short notes in chord can not be tied:\n%s", h->line);
+														h->tp->tienote = 0; // short chord notes cannot be tied...
+													}
+												}
+												// update to shortest duration
+												if( nl0 * notediv > notelen * nd0 ) {
+													nl0 = notelen;
+													nd0 = notediv;
+												}
+											}
+										}
+										abcchord++;
+									}
+									p += abc_notelen(p, &notelen, &notediv);
+									if( (ch = *p) == '-' ) p++;	// tied chord...
+									if( abcarpeggio ) {	// update starttime in the noteon events...
+										thistime = notelen_notediv_to_ticks(h->speed, nl0*notelen*snotelen, nd0*notediv*snotediv)/abcchord;
+										if( thistime > abcticks(h->speed) ) thistime = abcticks(h->speed);
+										for( nl0=1; nl0<abcchord; nl0++ ) {
+											h->tp = abc_locate_track(h, h->tp->v, nl0+DRONEPOS2);
+											if( h->tp->tail )
+												h->tp->tail->tracktick = h->tracktime + thistime * nl0;
+										}
+									}	
+									notelen *= cnotelen;
+									notediv *= cnotediv;
+									tupletr = abc_tuplet(&notelen, &notediv, tupletp, tupletq, tupletr);
+									while( SDL_isspace(*p) ) p++;	// allow spacing in broken rithm notation
+									p += abc_brokenrithm(p, &notelen, &notediv, &brokenrithm, abchornpipe);
+									thistime = notelen_notediv_to_ticks(h->speed, notelen*snotelen, notediv*snotediv);
+									if( abcfermata ) {
+										thistime <<= 1;
+										abcfermata = 0;
+									}
+									if( thistime > abcgrace ) {
+										thistime -= abcgrace;
+										abcgrace = 0;
+									}
+									else {
+										abcgrace -= thistime;
+										thistime = abcticks(h->speed);
+										abcgrace += abcticks(h->speed);
+									}
+									h->tracktime += thistime; 
+									while( abcchord>0 ) {
+										abcchord--;
+										h->tp = abc_locate_track(h, h->tp->v, abcchord? abcchord+DRONEPOS2: 0);
+										if( vnl && (abcchord < 8) && (cnl[abcchord] != cnotelen || cnd[abcchord] != cnotediv) ) {
+											abc_add_noteoff(h, h->tp, 
+												h->tracktime - thistime
+											 	+ (thistime * cnl[abcchord] * cnotediv)/(cnd[abcchord] * cnotelen) );
+										}
+										else {
+											if( ch=='-' && h->tp->tail && h->tp->tail->flg != 1 )
+												h->tp->tienote = h->tp->tail;	// copy noteon event to tienote in track
+											if( thistime > abcticks(h->speed) )
+												abc_add_noteoff(h, h->tp, h->tracktime - abcnoslurs);
+											else
+												abc_add_noteoff(h, h->tp, h->tracktime);
+										}
+									}
+									if( h->gchordon && (h->tp == h->tpc) )	
+										abc_add_gchord(h, h->tracktime, bartime);
+									if( h->drumon && (h->tp == h->tpr) )	
+										abc_add_drum(h, h->tracktime, bartime);
+									abcarpeggio = 0;
+									if( abceffoper != 255 ) abceffect = none;
+									break;
+								}
+								if( SDL_isdigit(*p) ) {	// different endings in repeats [i,j,n-r,s,...
+									h->tp = abc_check_track(h, h->tp);
+									abc_add_partbreak(h, h->tp, h->tracktime);
+									p += abc_getnumber(p, &notelen);
+									abc_add_variant_start(h, h->tp, h->tracktime, notelen);
+									while( *p==',' || *p=='-' ) {
+										if( *p==',' ) {
+											p++;
+											p += abc_getnumber(p, &notelen);
+											abc_add_variant_choise(h->tp, notelen);
+										}
+										else {
+											p++;
+											p += abc_getnumber(p, &notediv);
+											while( notelen < notediv ) {
+												notelen++;
+												abc_add_variant_choise(h->tp, notelen);
+											}
+										}
+									}
+									break;
+								}
+								// collect the notes in the chord
+								break;
+							case '(':	// slurs follow or some tuplet (duplet, triplet etc.)
+								abcto = 0;
+								if( SDL_isdigit(*p) ) {
+									p += abc_getnumber(p,&tupletp);
+									tupletr = tupletp;	// ABC draft 2.0 (4.13): if r is not given it defaults to p
+									switch( tupletp ) {	// ABC draft 2.0 (4.13): q defaults depending on p and time signature
+										case 2: case 4: case 8:
+											tupletq = 3;
+											break;
+										case 3: case 6:
+											tupletq = 2;
+											break;
+										default:
+											if( snotediv == 8 )
+												tupletq = 3;
+											else
+												tupletq = 2;
+											break;
+									}
+									if( *p==':' ) {
+										p++;
+										if( SDL_isdigit(*p) ) p += abc_getnumber(p,&tupletq);
+										if( *p==':' ) {
+											p++;
+											if( SDL_isdigit(*p) ) p += abc_getnumber(p,&tupletr);
+										}
+									}
+								}
+								else 
+									abcnoslurs=0;
+								break;
+							case ')':	// end of slurs
+								abcto = 0;
+								abcnoslurs = abcnolegato;
+								break;
+							case '{':	// grace notes follow
+								abcto = 0;
+								h->tp = abc_check_track(h, h->tp);
+								abc_track_clear_tiedvpos(h);
+								abcgrace = 0;
+								abcbeatvol = abc_beat_vol(h, abcvol, (h->tracktime - bartime)/notelen_notediv_to_ticks(h->speed,1,mnotediv));
+								while( (ch=*p++) && (ch != '}') ) {
+									p += abc_add_noteon(h, ch, p, h->tracktime+abcgrace, barsig, abcbeatvol, none, 0);
+									p += abc_notelen(p, &notelen, &notediv);
+									if( *p=='-' ) {
+										p++;
+										if( h->tp->tail->flg != 1 )
+										h->tp->tienote = h->tp->tail;
+									}
+									notediv *= 4;	// grace notes factor 4 shorter (1/8 => 1/32)
+									abcgrace += notelen_notediv_to_ticks(h->speed, notelen*snotelen, notediv*snotediv);
+									abc_add_noteoff(h, h->tp, h->tracktime + abcgrace);
+								}
+								h->tracktime += abcgrace;
+								abc_add_sync(h, h->tp, h->tracktime);
+								if( h->gchordon && (h->tp == h->tpc) )	
+									abc_add_gchord(h, h->tracktime, bartime);
+								if( h->drumon && (h->tp == h->tpr) )	
+									abc_add_drum(h, h->tracktime, bartime);
+								break;
+							case '|':	// bar symbols
+								abcto = 0;
+								if( h->gchordon && h->tp && (h->tp == h->tpc) )
+									abc_add_gchord(h, h->tracktime, bartime);
+								if( h->drumon && (h->tp == h->tpr) )	
+									abc_add_drum(h, h->tracktime, bartime);
+								SDL_snprintf(barsig, sizeof (barsig), "%s%s", sig[abckey], sig[abckey]);	// reset the key signature
+								bartime = h->tracktime;
+								if( h->tp && h->tp->vpos ) h->tp = abc_locate_track(h, h->tp->v, 0); // reset from voice overlay
+								if( SDL_isdigit(*p) ) {	// different endings in repeats |i,j,n-r,s,...
+									h->tp = abc_check_track(h, h->tp);
+									abc_add_partbreak(h, h->tp, h->tracktime);
+									p += abc_getnumber(p, &notelen);
+									abc_add_variant_start(h, h->tp, h->tracktime, notelen);
+									while( *p==',' || *p=='-' ) {
+										if( *p==',' ) {
+											p++;
+											p += abc_getnumber(p, &notelen);
+											abc_add_variant_choise(h->tp, notelen);
+										}
+										else {
+											p++;
+											p += abc_getnumber(p, &notediv);
+											while( notelen < notediv ) {
+												notelen++;
+												abc_add_variant_choise(h->tp, notelen);
+											}
+										}
+									}
+									break;
+								}
+								if( *p==':' ) {	// repeat start
+									p++;
+									h->tp = abc_check_track(h, h->tp);
+									abc_add_partbreak(h, h->tp, h->tracktime);
+									abc_add_setloop(h, h->tp, h->tracktime);
+								}
+								break;
+							case '&': // voice overlay
+								abcto = 0;
+								h->tracktime = bartime;
+								h->tp = abc_check_track(h, h->tp);
+								t = h->tp->vpos;
+								h->tp = abc_locate_track(h, h->tp->v, t? t+1: DRONEPOS2+1);
+								break;
+							case ']':	// staff break, end of song
+								abcto = 0;
+								break;
+							case ':': // repeat jump
+								abcto = 0;
+								h->tp = abc_check_track(h, h->tp);
+								j = (h->tp->slidevol == -2)? jumpfade: jumpnormal;
+								abc_add_setjumploop(h, h->tp, h->tracktime, j);
+								abc_add_partbreak(h, h->tp, h->tracktime);
+								if( *p==':' ) {	// repeat start without intermediate bar symbol
+									p++;
+									abc_add_setloop(h, h->tp, h->tracktime);
+								}
+								break;
+							case '"':	// chord notation
+								if( !SDL_strchr("_^<>@", *p) && !SDL_isdigit(*p) ) { // if it's not a annotation string
+									h->tp = abc_check_track(h, h->tp);
+									if( !h->tpc ) h->tpc = abc_locate_track(h, h->tp->v, 0);
+ 									if( h->tp == h->tpc ) abc_add_chord(p, h, h->tpc, h->tracktime); // only do chords for one voice
+								}
+								abcto = 0;
+								while( (ch=*p++) && (ch != '"') ) {
+									if( !SDL_strncasecmp(p,"fade",4) && h->track && h->track->slidevol > -2 )
+										abc_globalslide(h, h->tracktime, -2); // set volumeslide to fade away...
+									if( !SDL_strncasecmp(p,"to coda",7) ) {
+										h->tp = abc_check_track(h, h->tp);
+										abc_add_partbreak(h, h->tp, h->tracktime);
+										abc_add_tocoda(h, h->tp, h->tracktime);
+										p+=7;
+										abcto = -1;
+									}
+									else
+										if( !SDL_isspace(*p) ) abcto = 0;
+									if( !SDL_strncasecmp(p,"to",2) && (SDL_isspace(p[2]) || p[2] == '"') ) abcto = 1;
+								}
+								if( !ch ) abcstate = INSKIPFORQUOTE;
+								break;
+							case '\\':	// skip the rest of this line, should be the end of the line anyway
+								while( *p ) p++;
+								ch = '\\'; // remember for invoice tempo changes....
+								break;
+							case '!':	// line break, or deprecated old style decoration
+							case '+': // decorations new style
+								if( !SDL_strncmp(p,"coda",4) && p[4] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									if( abcto ) {
+										if( abcto > 0 ) {
+											abc_add_partbreak(h, h->tp, h->tracktime);
+											abc_add_tocoda(h, h->tp, h->tracktime);
+										}
+									}
+									else {
+										abc_add_partbreak(h, h->tp, h->tracktime);
+										abc_add_coda(h, h->tp, h->tracktime);
+									}
+									p += 5;
+									abcto = 0;
+									break;
+								}
+								abcto = 0;
+								if( !SDL_strncmp(p,"arpeggio",8) && p[8] == ch ) {
+									abcarpeggio = 1;
+									p += 9;
+									break;
+								}
+								if( !SDL_strncmp(p,"crescendo(",10) && p[10] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_globalslide(h, h->tracktime, 1);
+									p += 11;
+									break;
+								}
+								if( !SDL_strncmp(p,"crescendo)",10) && p[10] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_globalslide(h, h->tracktime, 0);
+									p += 11;
+									break;
+								}
+								if( !SDL_strncmp(p,"<(",2) && p[2] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_globalslide(h, h->tracktime, 1);
+									p += 3;
+									break;
+								}
+								if( !SDL_strncmp(p,"<)",2) && p[2] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_globalslide(h, h->tracktime, 0);
+									p += 3;
+									break;
+								}
+								if( !SDL_strncmp(p,"dimimuendo(",11) && p[11] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_globalslide(h, h->tracktime, -1);
+									p += 12;
+									break;
+								}
+								if( !SDL_strncmp(p,"diminuendo)",11) && p[11] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_globalslide(h, h->tracktime, 0);
+									p += 12;
+									break;
+								}
+								if( !SDL_strncmp(p,">(",2) && p[2] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_globalslide(h, h->tracktime, -1);
+									p += 3;
+									break;
+								}
+								if( !SDL_strncmp(p,">)",2) && p[2] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_globalslide(h, h->tracktime, 0);
+									p += 3;
+									break;
+								}
+								if( !SDL_strncmp(p,"upbow",5) && p[5] == ch ) {
+									abceffect = bow;
+									abceffoper = 1;
+									p += 6;
+									break;
+								}
+								if( !SDL_strncmp(p,"downbow",7) && p[7] == ch ) {
+									abceffect = bow;
+									abceffoper = 0;
+									p += 8;
+									break;
+								}
+								if( !SDL_strncmp(p,"trill",5) && p[5] == ch ) {
+									abceffect = trill;
+									abceffoper = 0;
+									p += 6;
+									break;
+								}
+								if( !SDL_strncmp(p,"trill(",6) && p[6] == ch ) {
+									abceffect = trill;
+									abceffoper = 255;
+									p += 7;
+									break;
+								}
+								if( !SDL_strncmp(p,"trill)",6) && p[6] == ch ) {
+									abceffect = none;
+									abceffoper = 0;
+									p += 7;
+									break;
+								}
+								if( !SDL_strncmp(p,"accent",6) && p[6] == ch ) {
+									abceffect = accent;
+									abceffoper = 0;
+									p += 7;
+									break;
+								}
+								if( !SDL_strncmp(p,"emphasis",8) && p[8] == ch ) {
+									abceffect = accent;
+									abceffoper = 0;
+									p += 9;
+									break;
+								}
+								if( !SDL_strncmp(p,">",1) && p[1] == ch ) {
+									abceffect = accent;
+									abceffoper = 0;
+									p += 2;
+									break;
+								}
+								if( !SDL_strncmp(p,"fermata",7) && p[7] == ch ) {
+									abcfermata = 1;
+									p += 8;
+									break;
+								}
+								if( !SDL_strncmp(p,"fine",4) && p[4] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_add_partbreak(h, h->tp, h->tracktime);
+									abc_add_fine(h, h->tp, h->tracktime);
+									p += 5;
+									break;
+								}
+								if( !SDL_strncmp(p,"segno",5) && p[5] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_add_partbreak(h, h->tp, h->tracktime);
+									abc_add_segno(h, h->tp, h->tracktime);
+									p += 6;
+									break;
+								}
+								if( !SDL_strncmp(p,"tocoda",6) && p[6] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_add_partbreak(h, h->tp, h->tracktime);
+									abc_add_tocoda(h, h->tp, h->tracktime);
+									p += 7;
+									break;
+								}
+								if( !SDL_strncmp(p,"D.C.",4) && p[4] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									j = (h->tp->slidevol == -2)? jumpdcfade: jumpdacapo;
+									abc_add_setjumploop(h, h->tp, h->tracktime, j);
+									abc_add_partbreak(h, h->tp, h->tracktime);
+									p += 5;
+									break;
+								}
+								if( !SDL_strncmp(p,"D.S.",4) && p[4] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									j = (h->tp->slidevol == -2)? jumpdsfade: jumpdasegno;
+									abc_add_setjumploop(h, h->tp, h->tracktime, j);
+									abc_add_partbreak(h, h->tp, h->tracktime);
+									p += 5;
+									break;
+								}
+								if( !SDL_strncmp(p,"dacapo",6) && p[6] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									j = (h->tp->slidevol == -2)? jumpdcfade: jumpdacapo;
+									abc_add_setjumploop(h, h->tp, h->tracktime, j);
+									abc_add_partbreak(h, h->tp, h->tracktime);
+									p += 7;
+									break;
+								}
+								if( !SDL_strncmp(p,"dacoda",6) && p[6] == ch ) {
+									h->tp = abc_check_track(h, h->tp);
+									j = (h->tp->slidevol == -2)? jumpdcfade: jumpdacapo;
+									abc_add_setjumploop(h, h->tp, h->tracktime, j);
+									abc_add_partbreak(h, h->tp, h->tracktime);
+									p += 7;
+									break;
+								}
+								if( ch == '!' ) {
+									for( t=0; p[t] && SDL_strchr("|[:]!",p[t])==0 && !SDL_isspace(p[t]); t++ ) ;
+									if( p[t] == '!' ) {	// volume and other decorations, deprecated
+										h->tp = abc_check_track(h, h->tp);
+										abcvol = abc_parse_decorations(h, h->tp, p);
+										p = &p[t+1];
+									}
+								}
+								else {
+									h->tp = abc_check_track(h, h->tp);
+									abcvol = abc_parse_decorations(h, h->tp, p);
+									while( (ch=*p++) && (ch != '+') )
+										;
+								}
+								break;
+							case '`': // back quotes are for readability
+								break;
+							case '.':	// staccato marks
+								break;
+							default:	// some kinda note must follow
+								if( SDL_strchr("abcdefgABCDEFG^_=X",ch) ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_track_clear_tiedvpos(h);
+									abcbeatvol = abc_beat_vol(h, abcvol, (h->tracktime - bartime)/notelen_notediv_to_ticks(h->speed,1,mnotediv));
+									p += abc_add_noteon(h, ch, p, h->tracktime, barsig, abcbeatvol, abceffect, abceffoper);
+									if( abceffoper != 255 ) abceffect = none;
+									p += abc_notelen(p, &notelen, &notediv);
+									if( *p=='-' ) {
+										p++;
+										if( h->tp->tail && h->tp->tail->flg != 1 )
+										h->tp->tienote = h->tp->tail;
+									}
+									tupletr = abc_tuplet(&notelen, &notediv, tupletp, tupletq, tupletr);
+									while( SDL_isspace(*p) ) p++;	// allow spacing in broken rithm notation
+									p += abc_brokenrithm(p, &notelen, &notediv, &brokenrithm, abchornpipe);
+									thistime = notelen_notediv_to_ticks(h->speed, notelen*snotelen, notediv*snotediv);
+									if( abcfermata ) {
+										thistime <<= 1;
+										abcfermata = 0;
+									}
+									if( thistime > abcgrace ) {
+										thistime -= abcgrace;
+										abcgrace = 0;
+									}
+									else {
+										abcgrace -= thistime;
+										thistime = abcticks(h->speed);
+										abcgrace += abcticks(h->speed);
+									}
+									h->tracktime += thistime;
+									if( thistime > abcticks(h->speed) )
+										abc_add_noteoff(h, h->tp, h->tracktime - abcnoslurs - (( ch0 == '.')? thistime / 2: 0));
+									else
+										abc_add_noteoff(h, h->tp, h->tracktime);
+									abc_add_sync(h, h->tp, h->tracktime);
+									if( h->gchordon && (h->tp == h->tpc) )
+										abc_add_gchord(h, h->tracktime, bartime);
+									if( h->drumon && (h->tp == h->tpr) )	
+										abc_add_drum(h, h->tracktime, bartime);
+									abcarpeggio = 0;
+									break;
+								}
+								if( SDL_strchr("zx",ch) ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_track_clear_tiednote(h);
+									p += abc_notelen(p, &notelen, &notediv);
+									tupletr = abc_tuplet(&notelen, &notediv, tupletp, tupletq, tupletr);
+									while( SDL_isspace(*p) ) p++;	// allow spacing in broken rithm notation
+									p += abc_brokenrithm(p, &notelen, &notediv, &brokenrithm, abchornpipe);
+									thistime = notelen_notediv_to_ticks(h->speed, notelen*snotelen, notediv*snotediv);
+									if( abcfermata ) {
+										thistime <<= 1;
+										abcfermata = 0;
+									}
+									if( thistime > abcgrace ) {
+										thistime -= abcgrace;
+										abcgrace = 0;
+									}
+									else {
+										abcgrace -= thistime;
+										thistime = abcticks(h->speed);
+										abcgrace += abcticks(h->speed);
+									}
+									h->tracktime += thistime; 
+									abc_add_sync(h, h->tp, h->tracktime);
+									if( h->gchordon && (h->tp == h->tpc) )
+										abc_add_gchord(h, h->tracktime, bartime);
+									if( h->drumon && (h->tp == h->tpr) )	
+										abc_add_drum(h, h->tracktime, bartime);
+									abcarpeggio = 0;
+									break;
+								}
+								if( SDL_strchr("Z",ch) ) {
+									h->tp = abc_check_track(h, h->tp);
+									abc_track_clear_tiednote(h);
+									p += abc_notelen(p, &notelen, &notediv);
+									thistime = notelen_notediv_to_ticks(h->speed, notelen*mnotelen, notediv*mnotediv);
+									if( abcfermata ) {
+										thistime <<= 1;
+										abcfermata = 0;
+									}
+									if( thistime > abcgrace ) {
+										thistime -= abcgrace;
+										abcgrace = 0;
+									}
+									else {
+										abcgrace -= thistime;
+										thistime = abcticks(h->speed);
+										abcgrace += abcticks(h->speed);
+									}
+									h->tracktime += thistime; 
+									SDL_snprintf(barsig, sizeof (barsig), "%s%s", sig[abckey], sig[abckey]);	// reset the key signature
+									abc_add_sync(h, h->tp, h->tracktime);
+									if( h->gchordon && (h->tp == h->tpc) )
+										abc_add_gchord(h, h->tracktime, bartime);
+									if( h->drumon && (h->tp == h->tpr) )	
+										abc_add_drum(h, h->tracktime, bartime);
+									abcarpeggio = 0;
+									break;
+								}
+								if( IsAlpha(ch) && *p==':' ) {
+									// some unprocessed field line?
+									while( *p ) p++;	// skip it
+									break; 
+								}
+								break;
+						}
+						ch0 = ch;	// remember previous char, can be staccato dot...
+						if( pp ) {	// did we have a U: macro substitution?
+							if( !*p ) {
+								p = pp;
+								pp = 0;
+							}
+						}
+					}
+				}
+			}
+		}
+		if( mmsp ) mmfclose(mmstack[mmsp]);
+	}
+	ABC_CleanupMacros(h);	// we dont need them anymore
+	if( !h->track ) {
+		char buf[10];
+		SDL_snprintf(buf,sizeof (buf),"%u",abcxnumber);
+		abc_message("abc X:%s has no body", buf);
+		h->track = abc_check_track(h, h->track); // for sanity...
+	}
+	if( abcstate == INBODY ) {
+		// last but not least shut off all pending events
+		abc_recalculate_tracktime(h);
+		for( ttp=h->track; ttp; ttp=ttp->next )
+			abc_add_noteoff(h,ttp,h->tracktime);
+		abc_add_partbreak(h, h->track, h->tracktime);
+		t = abc_patno(h, h->tracktime);
+		if( abc_pattracktime(h, h->tracktime) % abcticks(64 * h->speed) ) t++;
+		if(	global_part == ' ' ) {
+			partpat[26][1] = t;
+			if( abcparts ) {
+				for( t=0; t<26; t++ )
+					if( partpat[t][0] < partpat[t][1] ) break;
+				if( t == 26 ) {
+					abc_message("parts (%s) set but not used", abcparts);
+					abc_set_parts(&abcparts, 0);	// forget the parts array
+				}
+			}
+		}
+		else
+			partpat[global_part - 'A'][1] = t;
+		if( !abcparts ) abc_song_to_parts(h, &abcparts, partpat);
+		orderlen = abc_partpat_to_orderlist(partpat, abcparts, h, &orderlist, orderlen);
+	}
+	abc_synchronise_tracks(h);	// distribute all control events
+	abc_recalculate_tracktime(h);
+/*
+	
+	abctrack:
+		tracktick		long
+		note				byte
+		octave			byte
+		instrument	byte
+		effects			byte
+	
+	tick = tracktick modulo speed
+	row  = (tracktick div speed) modulo 64
+	pat  = (tracktick div speed) div 64
+	ord  = calculated
+
+*/
+#if 0
+	if( (p=SDL_getenv(ABC_ENV_DUMPTRACKS)) ) {
+		printf("P:%s\n",abcparts);
+		for( t=0; t<26; t++ )
+			if( partpat[t][1] >= partpat[t][0] )
+				printf("  %c ",t+'A');
+		if( partpat[26][1] >= partpat[26][0] )
+			printf("All");
+		printf("\n");
+		for( t=0; t<27; t++ )
+			if( partpat[t][1] >= partpat[t][0] )
+				printf("%3d ",partpat[t][0]);
+		printf("\n");
+		for( t=0; t<27; t++ )
+			if( partpat[t][1] >= partpat[t][0] )
+				printf("%3d ",partpat[t][1]);
+		printf("\n");
+		for( t=0; (int)t<orderlen; t++ )
+			printf("%3d ",t);
+		printf("\n");
+		for( t=0; (int)t<orderlen; t++ )
+			printf("%3d ",orderlist[t]);
+		printf("\n");
+		abc_dumptracks(h,p);
+	}
+#endif
+
+	// set module variables
+	if( abctempo == 0 ) abctempo = abcrate;
+	if( _this->m_nDefaultTempo == 0 ) _this->m_nDefaultTempo = abctempo;
+	_this->m_nType         = MOD_TYPE_ABC;
+	numpat          = 1+(modticks(h->tracktime) / h->speed / 64);
+	if( numpat > MAX_PATTERNS )
+		numpat = MAX_PATTERNS;
+	_this->m_nDefaultSpeed = h->speed;
+	_this->m_nChannels     = abc_numtracks(h);
+	_this->m_dwSongFlags   = SONG_LINEARSLIDES;
+	_this->m_nMinPeriod    = 28 << 2;
+	_this->m_nMaxPeriod    = 1712 << 3;
+	// orderlist
+	for(t=0; t < (uint32_t)orderlen; t++){
+		if( t >= MAX_ORDERS )
+			break;
+		_this->Order[t] = orderlist[t];
+	}
+	SDL_free(orderlist);	// get rid of orderlist memory
+	// ==============================
+	// Load the pattern info now!
+	if( ABC_ReadPatterns(_this->Patterns, _this->PatternSize, h, numpat, _this->m_nChannels) ) {
+		// :^(  need one more channel to handle the global events ;^b
+		_this->m_nChannels++;
+		h->tp = abc_locate_track(h, "", 99);
+		abc_add_sync(h, h->tp, h->tracktime);
+		for( t=0; t<numpat; t++ ) {
+			CSoundFile_FreePattern(_this->Patterns[t]);
+			_this->Patterns[t] = NULL;
+		}
+		ABC_ReadPatterns(_this->Patterns, _this->PatternSize, h, numpat, _this->m_nChannels);
+	}
+	// load instruments after building the patterns (chan == 10 track handling)
+	if( !PAT_Load_Instruments(_this) ) {
+		avoid_reentry = 0;
+		return FALSE;
+	}
+	// ============================================================
+	// set panning positions
+	if( _this->m_nChannels > MAX_BASECHANNELS )
+		_this->m_nChannels = MAX_BASECHANNELS;
+	for(t=0; t<_this->m_nChannels; t++) {
+		_this->ChnSettings[t].nPan = 0x30+((t+2)%5)*((0xD0 - 0x30)/5);     // 0x30 = std s3m val
+		_this->ChnSettings[t].nVolume = 64;
+	}
+	avoid_reentry = 0; // it is safe now, I'm finished
+	abc_set_parts(&abcparts, 0);	// free the parts array
+	ABC_Cleanup(h);	// we dont need it anymore
+	return 1;
+}
+