/* small example that uses the core sound generators.
this example depends on gnuplot to be installed.
see exe/run-example or exe/run-example-sc for how to compile and run with gcc */
#include <sph-sp.h>
#define _sp_rate 48000

/** example demonstrating fundamental event processing.
   plots the samples of a 10hz sine wave */
status_t simple_event_plot() {
  status_declare;
  sp_sample_t* amod;
  sp_time_t duration = _sp_rate;
  sp_event_t event = sp_null_event;
  /* allocate array for loudness over time */
  srq((sp_samples_new(duration, (&amod))));
  sp_samples_set(amod, duration, 1);
  srq((sp_event_memory_add((&event), amod)));
  /* allocate sound_event_config, set options and finish event preparation */
  sp_wave_event_config_t* wave_event_config;
  srq((sp_wave_event_config_new((&wave_event_config))));
  srq((sp_event_memory_add((&event), wave_event_config)));
  wave_event_config->channel_config->amod = amod;
  wave_event_config->channel_config->frq = 10;
  event.start = 0;
  event.end = duration;
  sp_wave_event((&event), wave_event_config);
  srq((sp_render_plot(event)));
exit:
  status_return;
}

/* demonstration of the use of event groups, paths, and custom types for event configuration */
typedef struct {
  sp_sample_t amp;
} s1_c_t;
status_t s1_prepare(sp_event_t* _event) {
  status_declare;
  _event->prepare = 0;
  sp_time_t _duration = (_event->end - _event->start);
  /* defines a global event variable (s1-event, sound-1) and additionally an event-prepare function with the following content. */

  /* custom configuration passed via the event object */
  s1_c_t c = *((s1_c_t*)(_event->config));
  /* envelope from an interpolated path */
  sp_sample_t* amod;
  sp_event_envelope_zero3_srq(_event, (&amod), _duration, (0.1), (c.amp));
  /* sound event configuration */
  sp_wave_event_config_t* wec;
  srq((sp_wave_event_config_new((&wec))));
  srq((sp_event_memory_add(_event, wec)));
  (wec->channel_config)->amod = amod;
  (wec->channel_config)->frq = 300;
  (1 + wec->channel_config)->use = 1;
  (1 + wec->channel_config)->amp = (0.5 * c.amp);
  sp_wave_event(_event, wec);
  sp_event_prepare_optional_srq((*_event));
exit:
  status_return;
}
sp_define_event(s1_event, s1_prepare, 0);
status_t t1_prepare(sp_event_t* _event) {
  status_declare;
  _event->prepare = 0;
  /* defines a group named t1 (track 1) with a default duration of 3/1 * _sp_rate.
       srq (alias for status_require) checks return error codes and jumps to a label named 'exit' on error */
  sp_event_t event;
  s1_c_t* s1_c;
  sp_time_t tempo;
  sp_time_t times_length;
  sp_time_t times[8] = { 0, 2, 4, 6, 8, 12, 14, 16 };
  sp_event_reset(event);
  times_length = 8;
  tempo = (sp_duration(1, 1) / 8);
  sp_group_event(_event);
  for (sp_size_t i = 0; (i < times_length); i += 1) {
    event = s1_event;
    sp_event_malloc_type_srq((&event), s1_c_t, (&s1_c));
    s1_c->amp = ((i % 2) ? 0.25 : 0.9);
    event.config = s1_c;
    event.start = (_sp_rate + (tempo * times[i]));
    event.end = (event.start + sp_duration(1, 6));
    srq((sp_group_add(_event, event)));
  };
  sp_event_prepare_optional_srq((*_event));
exit:
  status_return;
}
sp_define_event(t1_event, t1_prepare, (sp_duration(3, 1)));
int main() {
  status_declare;
  /* use one cpu core and two output channels */
  sp_initialize(1, 2, _sp_rate);
  /* (srq (simple-event-plot)) */
  srq((sp_render_file(t1_event, ("/tmp/sp-example.wav"))));
  srq((sp_render_plot(t1_event)));
exit:
  sp_deinitialize();
  status_i_return;
}