+++ /dev/null
-/* Copyright (C) 2021 Harry Godden (hgn) - All Rights Reserved */
-
-#define MA_NO_GENERATION
-#define MA_NO_DECODING
-#define MA_NO_ENCODING
-#include "dr_soft/miniaudio.h"
-
-#define STB_VORBIS_MAX_CHANNELS 2
-#include "stb/stb_vorbis.h"
-
-#define SFX_MAX_SYSTEMS 32
-#define SFX_FLAG_STEREO 0x2
-#define SFX_FLAG_REPEAT 0x4
-#define SFX_FLAG_PERSISTENT 0x8
-#define FADEOUT_LENGTH 4410
-#define FADEOUT_DIVISOR (1.f/(float)FADEOUT_LENGTH)
-
-typedef struct sfx_vol_control sfx_vol_control;
-typedef struct sfx_system sfx_system;
-
-struct sfx_vol_control
-{
- float val;
- const char *name;
-};
-
-struct sfx_system
-{
- sfx_system *persisitent_source;
- int in_queue;
-
- /* Source buffer start */
- float *source, *replacement;
-
- u32 clip_start, clip_end, buffer_length;
-
- /* Modifiers */
- sfx_vol_control *vol_src;
- float vol, cvol;
-
- /* Info */
- u32 ch, end, cur;
- u32 flags;
-
- /* Effects */
- u32 fadeout, fadeout_current;
-
- /* Diagnostic */
- const char *name;
-};
-
-/* Set of up to 8 sound effects packed into one */
-typedef struct sfx_set sfx_set;
-struct sfx_set
-{
- float *main;
- char *sources;
-
- u32 segments[32]; /* from->to,from->to ... */
- u32 numsegments;
- u32 ch;
- u32 flags;
-};
-
-ma_device g_aud_device;
-ma_device_config g_aud_dconfig;
-
-/*
- * Thread 1 - audio engine ( spawned from miniaudio.h )
- * ======================================================
- */
-sfx_system sfx_sys[SFX_MAX_SYSTEMS];
-int sfx_sys_len = 0;
-
-/*
- * Thread 0 - Critical transfer section
- * ======================================================
- */
-MUTEX_TYPE sfx_mux_t01; /* Resources share: 0 & 1 */
-
-sfx_system *sfx_q[SFX_MAX_SYSTEMS]; /* Stuff changed */
-int sfx_q_len = 0;
-
-float g_master_volume = 1.f;
-
-/* Decompress entire vorbis stream into buffer */
-static float *sfx_vorbis_stream( const unsigned char *data, int len,
- int channels, u32 *samples )
-{
- int err;
- stb_vorbis *pv = stb_vorbis_open_memory( data, len, &err, NULL );
-
- if( !pv )
- {
- vg_error( "stb_vorbis_open_memory() failed with error code: %i\n", err );
- return NULL;
- }
-
- u32 length_samples = stb_vorbis_stream_length_in_samples( pv );
- float *buffer = (float *)malloc( length_samples * channels * sizeof(float));
-
- if( !buffer )
- {
- stb_vorbis_close( pv );
- vg_error( "out of memory while allocating sound resource\n" );
- return NULL;
- }
-
- int read_samples = stb_vorbis_get_samples_float_interleaved(
- pv, channels, buffer, length_samples * channels );
-
- if( read_samples != length_samples )
- {
- vg_warn( "| warning: sample count mismatch. Expected %u got %i\n",
- length_samples, read_samples );
- length_samples = read_samples;
- }
-
- stb_vorbis_close( pv );
- *samples = length_samples;
- return buffer;
-}
-
-static float *sfx_vorbis( const char *strFileName, int channels, u32 *samples )
-{
- i64 len;
- void *filedata = vg_asset_read_s( strFileName, &len );
-
- if( filedata )
- {
- float *wav = sfx_vorbis_stream( filedata, len, channels, samples );
- free( filedata );
- return wav;
- }
- else
- {
- vg_error( "OGG load failed\n" );
- return NULL;
- }
-}
-
-/*
- * thread 0 / client code
- */
-static int sfx_begin_edit( sfx_system *sys )
-{
- MUTEX_LOCK( sfx_mux_t01 );
-
- if( sfx_q_len >= SFX_MAX_SYSTEMS && !sys->in_queue )
- {
- MUTEX_UNLOCK( sfx_mux_t01 );
- vg_warn( "Warning: No free space in sound queue\n" );
- return 0;
- }
-
- return 1;
-}
-
-static void sfx_end_edit( sfx_system *sys )
-{
- MUTEX_UNLOCK( sfx_mux_t01 );
-}
-
-/* Mark change to be uploaded to queue system */
-static int sfx_push( sfx_system *sys )
-{
- if( !sys->in_queue )
- {
- sfx_q[ sfx_q_len ++ ] = sys;
- sys->in_queue = 1;
- }
-
- MUTEX_UNLOCK( sfx_mux_t01 );
-
- return 1;
-}
-
-/* Edit a volume float, has to be function wrapped because of mutex */
-static void sfx_vol_fset( sfx_vol_control *src, float to )
-{
- MUTEX_LOCK( sfx_mux_t01 );
-
- src->val = to;
-
- MUTEX_UNLOCK( sfx_mux_t01 );
-}
-
-/* thread-safe get volume value */
-static float sfx_vol_fget( sfx_vol_control *src )
-{
- float val;
-
- MUTEX_LOCK( sfx_mux_t01 );
-
- val = src->val;
-
- MUTEX_UNLOCK( sfx_mux_t01 );
-
- return val;
-}
-
-/* thread-safe set master volume */
-static void sfx_set_master( float to )
-{
- MUTEX_LOCK( sfx_mux_t01 );
-
- g_master_volume = to;
-
- MUTEX_UNLOCK( sfx_mux_t01 );
-}
-
-/* thread-safe get master volume */
-static float sfx_get_master(void)
-{
- float val;
-
- MUTEX_LOCK( sfx_mux_t01 );
-
- val = g_master_volume;
-
- MUTEX_UNLOCK( sfx_mux_t01 );
-
- return val;
-}
-
-void audio_mixer_callback( ma_device *pDevice, void *pOutBuf, const void *pInput, ma_uint32 frameCount );
-
-static void vg_audio_init(void)
-{
- g_aud_dconfig = ma_device_config_init( ma_device_type_playback );
- g_aud_dconfig.playback.format = ma_format_f32;
- g_aud_dconfig.playback.channels = 2;
- g_aud_dconfig.sampleRate = 44100;
- g_aud_dconfig.dataCallback = audio_mixer_callback;
-
- g_aud_dconfig.pUserData = NULL;
-
- vg_info( "Starting audio engine\n" );
-
- if( ma_device_init( NULL, &g_aud_dconfig, &g_aud_device ) != MA_SUCCESS )
- {
- vg_exiterr( "ma_device failed to initialize" );
- }
- else
- {
- if( ma_device_start( &g_aud_device ) != MA_SUCCESS )
- {
- ma_device_uninit( &g_aud_device );
- vg_exiterr( "ma_device failed to start" );
- }
- }
-}
-
-static void vg_audio_free(void)
-{
- ma_device_uninit( &g_aud_device );
-}
-
-/*
- * thread 1
- */
-
-static sfx_system *sfx_alloc(void)
-{
- if( sfx_sys_len >= SFX_MAX_SYSTEMS )
- return NULL;
-
- /*
- * A conditional is done against this in localization step,
- * Needs to be initialized.
- */
- sfx_sys[ sfx_sys_len ].source = NULL;
-
- return sfx_sys + (sfx_sys_len++);
-}
-
-/* Fetch samples into pcf */
-static void audio_mixer_getsamples( float *pcf, float *source, u32 cur, u32 ch )
-{
- if( ch == 2 )
- {
- pcf[0] = source[ cur*2+0 ];
- pcf[1] = source[ cur*2+1 ];
- }
- else
- {
- pcf[0] = source[ cur ];
- pcf[1] = source[ cur ];
- }
-}
-
-/*
- * callback from miniaudio.h interface
- */
-void audio_mixer_callback( ma_device *pDevice, void *pOutBuf,
- const void *pInput, ma_uint32 frameCount )
-{
- /* Process incoming sound queue */
- MUTEX_LOCK( sfx_mux_t01 );
-
- while( sfx_q_len --> 0 )
- {
- sfx_system *src = sfx_q[sfx_q_len];
- sfx_system *clone;
-
- src->in_queue = 0;
-
- clone = sfx_alloc();
- *clone = *src;
-
- /* Links need to exist on persistent sounds */
- clone->persisitent_source = src->flags & SFX_FLAG_PERSISTENT? src: NULL;
- }
-
- sfx_q_len = 0;
-
- /* Volume modifiers */
- for( int i = 0; i < sfx_sys_len; i ++ )
- {
- sfx_system *sys = sfx_sys + i;
-
- /* Apply persistent volume if linked */
- if( sys->flags & SFX_FLAG_PERSISTENT )
- {
- sys->vol = sys->persisitent_source->vol * g_master_volume;
-
- /* Fadeout effect ( + remove ) */
- if( sys->persisitent_source->fadeout )
- {
- sys->fadeout_current = sys->persisitent_source->fadeout_current;
- sys->fadeout = sys->persisitent_source->fadeout;
-
- sys->persisitent_source = NULL;
- sys->flags &= ~SFX_FLAG_PERSISTENT;
- }
- }
-
- /* Apply volume slider if it has one linked */
- if( sys->vol_src )
- sys->cvol = sys->vol * sys->vol_src->val;
- else
- sys->cvol = sys->vol;
- }
-
- MUTEX_UNLOCK( sfx_mux_t01 );
-
- /* Clear buffer */
- float *pOut32F = (float *)pOutBuf;
- for( int i = 0; i < frameCount * 2; i ++ ){
- pOut32F[i] = 0.f;
- }
-
- for( int i = 0; i < sfx_sys_len; i ++ )
- {
- sfx_system *sys = sfx_sys + i;
-
- u32 cursor = sys->cur, buffer_pos = 0;
- float pcf[2] = { 0.f, 0.0f };
-
- u32 frames_write = frameCount;
- float fadeout_divisor = 1.0f / (float)sys->fadeout;
-
- while( frames_write )
- {
- u32 samples_this_run = VG_MIN( frames_write, sys->end - cursor );
-
- if( sys->fadeout )
- {
- /* Force this system to be removed now */
- if( sys->fadeout_current == 0 )
- {
- sys->flags &= 0x00000000;
- sys->cur = sys->end;
- break;
- }
-
- samples_this_run = VG_MIN( samples_this_run, sys->fadeout_current );
- }
-
- for( u32 j = 0; j < samples_this_run; j ++ )
- {
- audio_mixer_getsamples( pcf, sys->source, cursor, sys->ch );
-
- float vol = sys->cvol;
-
- if( sys->fadeout )
- {
- vol *= (float)sys->fadeout_current * fadeout_divisor;
- sys->fadeout_current --;
- }
-
- if( buffer_pos >= frameCount )
- {
- break;
- }
-
- pOut32F[ buffer_pos*2+0 ] += pcf[0] * vol;
- pOut32F[ buffer_pos*2+1 ] += pcf[1] * vol;
-
- cursor ++;
- buffer_pos ++;
- }
-
- frames_write -= samples_this_run;
-
- if( sys->flags & SFX_FLAG_REPEAT )
- {
- if( frames_write )
- {
- cursor = 0;
- continue;
- }
- }
-
- sys->cur = cursor;
- break;
- }
- }
-
- /* Redistribute sound systems */
- MUTEX_LOCK( sfx_mux_t01 );
-
- u32 idx = 0, wr = 0;
- while( idx != sfx_sys_len )
- {
- sfx_system *src = sfx_sys + idx;
-
- /* Keep only if cursor is before end or repeating */
- if( src->cur < src->end || (src->flags & SFX_FLAG_REPEAT) )
- {
- sfx_sys[ wr ++ ] = sfx_sys[ idx ];
- }
-
- idx ++ ;
- }
- sfx_sys_len = wr;
-
- MUTEX_UNLOCK( sfx_mux_t01 );
-
- (void)pInput;
-}
-
-/*
- * Load strings into sfx_set's memory
- * String layout: "sounda.ogg\0soundb.ogg\0soundc.ogg\0\0"
- */
-static void sfx_set_strings( sfx_set *dest, char *strSources,
- u32 flags, int bAsync )
-{
- dest->ch = (flags & SFX_FLAG_STEREO)? 2: 1;
-
- dest->main = NULL;
- dest->numsegments = 0;
- char *source = strSources;
-
- u32 total = 0;
- int len;
- while( (len = strlen( source )) )
- {
- u32 samples;
- float *sound = sfx_vorbis( source, dest->ch, &samples );
-
- if( !sound )
- {
- free( dest->main );
- dest->numsegments = 0;
- return;
- }
-
- total += samples;
-
- float *nbuf = realloc( dest->main, total * dest->ch * sizeof(float) );
-
- if( nbuf )
- {
- dest->main = nbuf;
- memcpy( dest->main + (total-samples)*dest->ch,
- sound, samples*dest->ch*sizeof(float) );
- free( sound );
-
- dest->segments[ dest->numsegments*2+0 ] = total-samples;
- dest->segments[ dest->numsegments*2+1 ] = total;
- }
- else
- {
- vg_error( "realloc() failed\n" );
- free( sound );
- return;
- }
-
- source += len +1;
- dest->numsegments ++;
- }
-}
-
-static void sfx_set_init( sfx_set *dest, char *sources )
-{
- if( !sources )
- sfx_set_strings( dest, dest->sources, dest->flags, 0 );
- else
- sfx_set_strings( dest, sources, dest->flags, 0 );
-}
-
-static void sfx_set_play( sfx_set *source, sfx_system *sys, int id )
-{
- if( sfx_begin_edit( sys ) )
- {
- sys->fadeout = 0;
- sys->fadeout_current = 0;
- sys->source = source->main;
- sys->cur = source->segments[ id*2 + 0 ];
- sys->end = source->segments[ id*2 + 1 ];
- sys->ch = source->ch;
-
- /* for diagnostics */
- sys->clip_start = sys->cur;
- sys->clip_end = sys->end;
- sys->buffer_length = source->segments[ (source->numsegments-1)*2 + 1 ];
-
- sfx_push( sys );
- }
-}
-
-/* Pick a random sound from the buffer and play it into system */
-static void sfx_set_playrnd( sfx_set *source, sfx_system *sys,
- int min_id, int max_id )
-{
- if( !source->numsegments )
- return;
-
- if( max_id > source->numsegments )
- {
- vg_error( "Max ID out of range for playrnd\n" );
- return;
- }
-
- int pick = (rand() % (max_id-min_id)) + min_id;
-
- sfx_set_play( source, sys, pick );
-}
-
-static void sfx_system_fadeout( sfx_system *sys, u32 length_samples )
-{
- if( sfx_begin_edit( sys ) )
- {
- sys->fadeout_current = length_samples;
- sys->fadeout = length_samples;
-
- sfx_end_edit( sys );
- }
-}
-
-static void sfx_set_free( sfx_set *set )
-{
- free( set->main );
-}