shithub: sf2mid

Info  •  Files  •  Log

sync + fixes

--- a/README.md

+++ b/README.md

@@ -1,37 +1,43 @@

-# TinySoundFont

-SoundFont2 synthesizer library in a single C/C++ file

-

-## Overview

-

-TinySoundFont is a software synthesizer using SoundFont2 sound bank files.

-

-The library is a single C header file so it is extremely simple to integrate in your C/C++ projects.

-

-```c++

-#define TSF_IMPLEMENTATION

-#include "tsf.h"

-

-...

-

-tsf* TinySoundFont = tsf_load_filename("soundfont.sf2");

-tsf_set_output(TinySoundFont, TSF_MONO, 44100, 0); //sample rate

-tsf_note_on(TinySoundFont, 0, 60, 1.0f); //preset 0, middle C

-short HalfSecond[22050]; //synthesize 0.5 seconds

-tsf_render_short(TinySoundFont, HalfSecond, 22050, 0);

-```

-

-The library code is based on [SFZero by Steve Folta](https://github.com/stevefolta/SFZero).

-

-## Documentation

-

-The API documentation can be found on [top of the library source code](https://github.com/schellingb/TinySoundFont/blob/master/tsf.h).

-

-There are also [examples available](https://github.com/schellingb/TinySoundFont/tree/master/examples) which come with a sample SoundFont file and build and play sound on Win32, Win64, Linux and MacOSX with no further dependencies.

-

-## Dependencies

-

-C standard libraries for fopen, math and malloc (can be removed by providing custom functions with #defines).

-

-## License

-

-TinySoundFont is available under the [MIT license](https://choosealicense.com/licenses/mit/).

+# sf2mid: TinySoundFont-based midi player using soundfont2 banks

+

+## Usage

+

+Recommended soundfont: Patch93's Roland SC55 font.

+

+Example usage: playing a doom midi file

+

+	; games/wadfs /sys/games/lib/doom/doom1.wad

+	createfile SW18_7: file already exists

+	; games/mus </mnt/wad/d_e1m3 \

+		| games/sf2mid /lib/midi/sf2/patch93.sc-55.sf2 >/dev/audio

+

+See: [mus(1)](http://man.9front.org/1/mus).

+

+Example usage: using sf2mid for playback in doom(1):

+

+	Edit dmus(1):

+	; cat /bin/dmus

+	#!/bin/rc

+	#sf2=sc55.v3.7.sf2

+	sf2=patch93.sc-55.sf2

+	if(test -f /lib/midi/sf2/$sf2)

+		c=(games/sf2mid /lib/midi/sf2/$sf2)

+	if not if(test -f /tmp/genmidi.*)

+		c=(games/dmid -i /tmp/genmidi.* '|' games/opl3)

+	if not

+		c=(games/midi -c)

+	if(~ `{file -m $1} audio/mus)

+		c=(games/mus '<' $1 '|' $c)

+	if not

+		c=('<' $1 $c)

+	eval $c

+

+Current port-specific issues: performance is not great;

+doom will hang while sf2mid unscrews itself.

+

+## Library

+

+See [TinySoundFont library](https://github.com/schellingb/TinySoundFont)

+for more information.

+

+License: MIT

--- /dev/null

+++ b/mkfile

@@ -1,0 +1,16 @@

+</$objtype/mkfile

+

+BIN=/$objtype/bin/games

+TARG=sf2mid

+OFILES=\

+	sf2mid.$O\

+

+HFILES=\

+	tml.h\

+	tsf.h\

+

+CC=pcc

+#CFLAGS=-vwc

+CFLAGS=$CFLAGS -c -p -D_POSIX_SOURCE

+

+</sys/src/cmd/mkone

--- /dev/null

+++ b/sf2mid.c

@@ -1,0 +1,96 @@

+/* adapted from examples */

+#define TSF_RENDER_EFFECTSAMPLEBLOCK 32

+#define TSF_IMPLEMENTATION

+#include "tsf.h"

+#define TML_IMPLEMENTATION

+#include "tml.h"

+

+#include <unistd.h>

+

+tsf *ttsf;

+double T;	/* msec */

+tml_message* next;

+

+enum{

+	Nsamp = 8192,

+	Rate = 44100,

+};

+

+static int

+samp(void*, tsf_s16 *stream, int samp)

+{

+	int chunk;

+

+	for(chunk=512; samp!=0; samp-=chunk, stream+=chunk*2){

+		if(chunk > samp)

+			chunk = samp;

+		T += (1000.0 / Rate) * chunk;

+		for(; next && T >= next->time; next = next->next){

+			switch(next->type){

+				case TML_PROGRAM_CHANGE:

+					tsf_channel_set_presetnumber(ttsf, next->channel,

+						next->program, next->channel == 9);

+					break;

+				case TML_NOTE_ON:

+					tsf_channel_note_on(ttsf, next->channel,

+						next->key, next->velocity / 127.0);

+					break;

+				case TML_NOTE_OFF:

+					tsf_channel_note_off(ttsf, next->channel,

+						next->key);

+					break;

+				case TML_PITCH_BEND:

+					tsf_channel_set_pitchwheel(ttsf, next->channel,

+						next->pitch_bend);

+					break;

+				case TML_CONTROL_CHANGE:

+					tsf_channel_midi_control(ttsf, next->channel,

+						next->control, next->control_value);

+					break;

+			}

+		}

+		if(next == NULL)

+			return -1;

+		tsf_render_short(ttsf, stream, chunk, 0);

+	}

+	return 0;

+}

+

+int

+main(int argc, char **argv)

+{

+	FILE *out;

+	char *sf, *mid;

+	tml_message* tml;

+	tsf_s16 obuf[2 * Nsamp];

+

+	sf = NULL;

+	mid = "/fd/0";

+	out = stdout;

+	if(argc < 2){

+		fprintf(stderr, "usage: %s SF2BANK [FILE]\n", argv[0]);

+		return 1;

+	}

+	if(argc >= 2)

+		sf = argv[1];

+	if(argc >= 3)

+		mid = argv[2];

+	if((tml = tml_load_filename(mid)) == NULL){

+		fprintf(stderr, "error reading midi file\n");

+		return 1;

+	}

+	if((ttsf = tsf_load_filename(sf)) == NULL){

+		fprintf(stderr, "error loading soundfont\n");

+		return 2;

+	}

+	next = tml;

+	// arm 10th channel for percussion sound bank (128) if available

+	tsf_channel_set_bank_preset(ttsf, 9, 128, -3.0);

+	tsf_set_output(ttsf, TSF_STEREO_INTERLEAVED, Rate, 0.0);

+	for(;;){

+		if(samp(NULL, obuf, Nsamp) < 0)

+			break;

+		fwrite(obuf, Nsamp, 4, out);

+	}

+	return 0;

+}

--- a/sfotool/sfotool.vcxproj

+++ b/sfotool/sfotool.vcxproj

@@ -97,4 +97,4 @@

   <ItemGroup>

     <ClCompile Include="main.c" />

   </ItemGroup>

-</Project>

\ No newline at end of file

+</Project>

--- a/tsf.h

+++ b/tsf.h

@@ -384,6 +384,7 @@

 enum { TSF_SEGMENT_NONE, TSF_SEGMENT_DELAY, TSF_SEGMENT_ATTACK, TSF_SEGMENT_HOLD, TSF_SEGMENT_DECAY, TSF_SEGMENT_SUSTAIN, TSF_SEGMENT_RELEASE, TSF_SEGMENT_DONE };

+#pragma pack on

 struct tsf_hydra

 {

 	struct tsf_hydra_phdr *phdrs; struct tsf_hydra_pbag *pbags; struct tsf_hydra_pmod *pmods;

@@ -471,6 +472,7 @@

 	int channelNum, activeChannel;

 	struct tsf_channel channels[1];

 };

+#pragma pack off

 static double tsf_timecents2Secsd(double timecents) { return TSF_POW(2.0, timecents / 1200.0); }

 static float tsf_timecents2Secsf(float timecents) { return TSF_POWF(2.0f, timecents / 1200.0f); }