From ae6b5d89ea93b95c2990895077cf5e8f0bba9ad9 Mon Sep 17 00:00:00 2001
From: Guenter  Geiger <ggeiger@users.sourceforge.net>
Date: Mon, 2 Feb 2004 11:28:02 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r1301, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/; revision=1302
---
 pd/portaudio_v18/pa_tests/patest_ringmix.c | 41 ++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 pd/portaudio_v18/pa_tests/patest_ringmix.c

(limited to 'pd/portaudio_v18/pa_tests/patest_ringmix.c')

diff --git a/pd/portaudio_v18/pa_tests/patest_ringmix.c b/pd/portaudio_v18/pa_tests/patest_ringmix.c
new file mode 100644
index 00000000..9d78ea13
--- /dev/null
+++ b/pd/portaudio_v18/pa_tests/patest_ringmix.c
@@ -0,0 +1,41 @@
+/* $Id: patest_ringmix.c,v 1.1.1.1 2002/01/22 00:52:37 phil Exp $ */
+
+#include "stdio.h"
+#include "portaudio.h"
+/* This will be called asynchronously by the PortAudio engine. */
+static int myCallback( void *inputBuffer, void *outputBuffer,
+                       unsigned long framesPerBuffer, PaTimestamp outTime, void *userData )
+{
+    float *out = (float *) outputBuffer;
+    float *in  = (float *) inputBuffer;
+    float leftInput, rightInput;
+    unsigned int i;
+    if( inputBuffer == NULL ) return 0;
+    /* Read input buffer, process data, and fill output buffer. */
+    for( i=0; i<framesPerBuffer; i++ )
+    {
+        leftInput = *in++;      /* Get interleaved samples from input buffer. */
+        rightInput = *in++;
+        *out++ = leftInput * rightInput;            /* ring modulation */
+        *out++ = 0.5f * (leftInput + rightInput);   /* mix */
+    }
+    return 0;
+}
+/* Open a PortAudioStream to input and output audio data. */
+int main(void)
+{
+    PortAudioStream *stream;
+    Pa_Initialize();
+    Pa_OpenDefaultStream(
+        &stream,
+        2, 2,            /* stereo input and output */
+        paFloat32,  44100.0,
+        64,  0,          /* 64 frames per buffer, let PA determine numBuffers */
+        myCallback, NULL );
+    Pa_StartStream( stream );
+    Pa_Sleep( 10000 );    /* Sleep for 10 seconds while processing. */
+    Pa_StopStream( stream );
+    Pa_CloseStream( stream );
+    Pa_Terminate();
+    return 0;
+}
-- 
cgit v1.2.1