cannam@85: /*
cannam@85: ** Copyright (C) 2002-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
cannam@85: **
cannam@85: ** This program is free software; you can redistribute it and/or modify
cannam@85: ** it under the terms of the GNU General Public License as published by
cannam@85: ** the Free Software Foundation; either version 2 of the License, or
cannam@85: ** (at your option) any later version.
cannam@85: **
cannam@85: ** This program is distributed in the hope that it will be useful,
cannam@85: ** but WITHOUT ANY WARRANTY; without even the implied warranty of
cannam@85: ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
cannam@85: ** GNU General Public License for more details.
cannam@85: **
cannam@85: ** You should have received a copy of the GNU General Public License
cannam@85: ** along with this program; if not, write to the Free Software
cannam@85: ** Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
cannam@85: */
cannam@85: 
cannam@85: #include <stdio.h>
cannam@85: #include <stdlib.h>
cannam@85: #include <unistd.h>
cannam@85: #include <string.h>
cannam@85: 
cannam@85: #include "config.h"
cannam@85: 
cannam@85: #include <float_cast.h>
cannam@85: 
cannam@85: #if (HAVE_SNDFILE)
cannam@85: 
cannam@85: #include <samplerate.h>
cannam@85: #include <sndfile.h>
cannam@85: 
cannam@85: #include "audio_out.h"
cannam@85: 
cannam@85: #define ARRAY_LEN(x)	((int) (sizeof (x) / sizeof ((x) [0])))
cannam@85: 
cannam@85: #define	BUFFER_LEN		4096
cannam@85: #define	INPUT_FRAMES	100
cannam@85: 
cannam@85: #define	MIN(a,b)		((a) < (b) ? (a) : (b))
cannam@85: 
cannam@85: #define	MAGIC_NUMBER	((int) ('S' << 16) + ('R' << 8) + ('C'))
cannam@85: 
cannam@85: #ifndef	M_PI
cannam@85: #define	M_PI			3.14159265358979323846264338
cannam@85: #endif
cannam@85: 
cannam@85: 
cannam@85: typedef struct
cannam@85: {	int			magic ;
cannam@85: 
cannam@85: 	SNDFILE 	*sndfile ;
cannam@85: 	SF_INFO 	sfinfo ;
cannam@85: 
cannam@85: 	SRC_STATE	*src_state ;
cannam@85: 	SRC_DATA	src_data ;
cannam@85: 
cannam@85: 	int			freq_point ;
cannam@85: 	int			buffer_out_start, buffer_out_end ;
cannam@85: 
cannam@85: 	float		buffer_in	[BUFFER_LEN] ;
cannam@85: 	float		buffer_out	[BUFFER_LEN] ;
cannam@85: } CALLBACK_DATA ;
cannam@85: 
cannam@85: static int varispeed_get_data (CALLBACK_DATA *data, float *samples, int frames) ;
cannam@85: static void varispeed_play (const char *filename, int converter) ;
cannam@85: 
cannam@85: int
cannam@85: main (int argc, char *argv [])
cannam@85: {	const char	*cptr, *progname, *filename ;
cannam@85: 	int			k, converter ;
cannam@85: 
cannam@85: 	converter = SRC_SINC_FASTEST ;
cannam@85: 
cannam@85: 	progname = argv [0] ;
cannam@85: 
cannam@85: 	if ((cptr = strrchr (progname, '/')) != NULL)
cannam@85: 		progname = cptr + 1 ;
cannam@85: 
cannam@85: 	if ((cptr = strrchr (progname, '\\')) != NULL)
cannam@85: 		progname = cptr + 1 ;
cannam@85: 
cannam@85: 	printf ("\n"
cannam@85: 		"  %s\n"
cannam@85: 		"\n"
cannam@85: 		"  This is a demo program which plays the given file at a slowly \n"
cannam@85: 		"  varying speed. Lots of fun with drum loops and full mixes.\n"
cannam@85: 		"\n"
cannam@85: 		"  It uses Secret Rabbit Code (aka libsamplerate) to perform the \n"
cannam@85: 		"  vari-speeding and libsndfile for file I/O.\n"
cannam@85: 		"\n", progname) ;
cannam@85: 
cannam@85: 	if (argc == 2)
cannam@85: 		filename = argv [1] ;
cannam@85: 	else if (argc == 4 && strcmp (argv [1], "-c") == 0)
cannam@85: 	{	filename = argv [3] ;
cannam@85: 		converter = atoi (argv [2]) ;
cannam@85: 		}
cannam@85: 	else
cannam@85: 	{	printf ("  Usage :\n\n       %s [-c <number>] <input file>\n\n", progname) ;
cannam@85: 		puts (
cannam@85: 			"  The optional -c argument allows the converter type to be chosen from\n"
cannam@85: 			"  the following list :"
cannam@85: 			"\n"
cannam@85: 			) ;
cannam@85: 
cannam@85: 		for (k = 0 ; (cptr = src_get_name (k)) != NULL ; k++)
cannam@85: 			printf ("       %d : %s\n", k, cptr) ;
cannam@85: 
cannam@85: 		puts ("") ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	varispeed_play (filename, converter) ;
cannam@85: 
cannam@85: 	return 0 ;
cannam@85: } /* main */
cannam@85: 
cannam@85: /*==============================================================================
cannam@85: */
cannam@85: 
cannam@85: static void
cannam@85: varispeed_play (const char *filename, int converter)
cannam@85: {	CALLBACK_DATA	*data ;
cannam@85: 	AUDIO_OUT		*audio_out ;
cannam@85: 	int				error ;
cannam@85: 
cannam@85: 	/* Allocate memory for the callback data. */
cannam@85: 	if ((data = calloc (1, sizeof (CALLBACK_DATA))) == NULL)
cannam@85: 	{	printf ("\n\n%s:%d Calloc failed!\n", __FILE__, __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	data->magic = MAGIC_NUMBER ;
cannam@85: 
cannam@85: 	if ((data->sndfile = sf_open (filename, SFM_READ, &data->sfinfo)) == NULL)
cannam@85: 	{	puts (sf_strerror (NULL)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Initialize the sample rate converter. */
cannam@85: 	if ((data->src_state = src_new (converter, data->sfinfo.channels, &error)) == NULL)
cannam@85: 	{	printf ("\n\nError : src_new() failed : %s.\n\n", src_strerror (error)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	printf (
cannam@85: 
cannam@85: 		"  Playing   : %s\n"
cannam@85: 		"  Converter : %s\n"
cannam@85: 		"\n"
cannam@85: 		"  Press <control-c> to exit.\n"
cannam@85: 		"\n",
cannam@85: 		filename, src_get_name (converter)) ;
cannam@85: 
cannam@85: 	if ((audio_out = audio_open (data->sfinfo.channels, data->sfinfo.samplerate)) == NULL)
cannam@85: 	{	printf ("\n\nError : audio_open () failed.\n") ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Set up sample rate converter info. */
cannam@85: 	data->src_data.end_of_input = 0 ; /* Set this later. */
cannam@85: 
cannam@85: 	/* Start with zero to force load in while loop. */
cannam@85: 	data->src_data.input_frames = 0 ;
cannam@85: 	data->src_data.data_in = data->buffer_in ;
cannam@85: 
cannam@85: 	/* Start with output frames also zero. */
cannam@85: 	data->src_data.output_frames_gen = 0 ;
cannam@85: 
cannam@85: 	data->buffer_out_start = data->buffer_out_end = 0 ;
cannam@85: 	data->src_data.src_ratio = 1.0 ;
cannam@85: 
cannam@85: 	/* Pass the data and the callbacl function to audio_play */
cannam@85: 	audio_play ((get_audio_callback_t) varispeed_get_data, audio_out, data) ;
cannam@85: 
cannam@85: 	/* Cleanup */
cannam@85: 	audio_close (audio_out) ;
cannam@85: 	sf_close (data->sndfile) ;
cannam@85: 	src_delete (data->src_state) ;
cannam@85: 
cannam@85: 	free (data) ;
cannam@85: 
cannam@85: } /* varispeed_play */
cannam@85: 
cannam@85: /*==============================================================================
cannam@85: */
cannam@85: 
cannam@85: static int
cannam@85: varispeed_get_data (CALLBACK_DATA *data, float *samples, int frames)
cannam@85: {	int		error, readframes, frame_count, direct_out ;
cannam@85: 
cannam@85: 	if (data->magic != MAGIC_NUMBER)
cannam@85: 	{	printf ("\n\n%s:%d Eeeek, something really bad happened!\n", __FILE__, __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	frame_count = 0 ;
cannam@85: 
cannam@85: 	if (data->buffer_out_start < data->buffer_out_end)
cannam@85: 	{	frame_count = MIN (data->buffer_out_end - data->buffer_out_start, frames) ;
cannam@85: 		memcpy (samples, data->buffer_out + data->sfinfo.channels * data->buffer_out_start, data->sfinfo.channels * frame_count * sizeof (float)) ;
cannam@85: 		data->buffer_out_start += frame_count ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	data->buffer_out_start = data->buffer_out_end = 0 ;
cannam@85: 
cannam@85: 	while (frame_count < frames)
cannam@85: 	{
cannam@85: 		/* Read INPUT_FRAMES frames worth looping at end of file. */
cannam@85: 		for (readframes = 0 ; readframes < INPUT_FRAMES ; )
cannam@85: 		{	sf_count_t position ;
cannam@85: 
cannam@85: 			readframes += sf_readf_float (data->sndfile, data->buffer_in + data->sfinfo.channels * readframes, INPUT_FRAMES - readframes) ;
cannam@85: 
cannam@85: 			position = sf_seek (data->sndfile, 0, SEEK_CUR) ;
cannam@85: 
cannam@85: 			if (position < 0 || position == data->sfinfo.frames)
cannam@85: 				sf_seek (data->sndfile, 0, SEEK_SET) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 		data->src_data.input_frames = readframes ;
cannam@85: 
cannam@85: 		data->src_data.src_ratio = 1.0 - 0.5 * sin (data->freq_point * 2 * M_PI / 20000) ;
cannam@85: 		data->freq_point ++ ;
cannam@85: 
cannam@85: 		direct_out = (data->src_data.src_ratio * readframes < frames - frame_count) ? 1 : 0 ;
cannam@85: 
cannam@85: 		if (direct_out)
cannam@85: 		{	data->src_data.data_out = samples + frame_count * data->sfinfo.channels ;
cannam@85: 			data->src_data.output_frames = frames - frame_count ;
cannam@85: 			}
cannam@85: 		else
cannam@85: 		{	data->src_data.data_out = data->buffer_out ;
cannam@85: 			data->src_data.output_frames = BUFFER_LEN / data->sfinfo.channels ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 		if ((error = src_process (data->src_state, &data->src_data)))
cannam@85: 		{	printf ("\nError : %s\n\n", src_strerror (error)) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 		if (direct_out)
cannam@85: 		{	frame_count += data->src_data.output_frames_gen ;
cannam@85: 			continue ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 		memcpy (samples + frame_count * data->sfinfo.channels, data->buffer_out, (frames - frame_count) * data->sfinfo.channels * sizeof (float)) ;
cannam@85: 
cannam@85: 		data->buffer_out_start = frames - frame_count ;
cannam@85: 		data->buffer_out_end = data->src_data.output_frames_gen ;
cannam@85: 
cannam@85: 		frame_count += frames - frame_count ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	return frame_count ;
cannam@85: } /* varispeed_get_data */
cannam@85: 
cannam@85: /*==============================================================================
cannam@85: */
cannam@85: 
cannam@85: #else /* (HAVE_SNFILE == 0) */
cannam@85: 
cannam@85: /* Alternative main function when libsndfile is not available. */
cannam@85: 
cannam@85: int
cannam@85: main (void)
cannam@85: {	puts (
cannam@85: 		"\n"
cannam@85: 		"****************************************************************\n"
cannam@85: 		" This example program was compiled without libsndfile \n"
cannam@85: 		" (http://www.zip.com.au/~erikd/libsndfile/).\n"
cannam@85: 		" It is therefore completely broken and non-functional.\n"
cannam@85: 		"****************************************************************\n"
cannam@85: 		"\n"
cannam@85: 		) ;
cannam@85: 
cannam@85: 	return 0 ;
cannam@85: } /* main */
cannam@85: 
cannam@85: #endif
cannam@85: