Mercurial > vba-clojure
diff src/clojure/clojure.cpp @ 525:fa7676dbf6f2
sound recording test now works.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sun, 24 Jun 2012 13:12:51 -0500 |
parents | 7ef5c73ea8fa |
children |
line wrap: on
line diff
1.1 --- a/src/clojure/clojure.cpp Sat Jun 23 23:10:31 2012 -0500 1.2 +++ b/src/clojure/clojure.cpp Sun Jun 24 13:12:51 2012 -0500 1.3 @@ -365,10 +365,10 @@ 1.4 } 1.5 1.6 /* 1.7 - u8* soundBytes = (u8*) soundFinalWave; 1.8 - for (i = 0; i < 1470*2 ; i++){ 1.9 + u8* soundBytes = (u8*) soundFinalWave; 1.10 + for (i = 0; i < 1470*2 ; i++){ 1.11 sound_store[i] = (jbyte) soundBytes[i]; 1.12 - } 1.13 + } 1.14 */ 1.15 1.16 env->ReleaseByteArrayElements(arr, sound_store, 0); 1.17 @@ -395,3 +395,23 @@ 1.18 soundFrameSoundWritten = newSoundFrameWritten; 1.19 } 1.20 1.21 + 1.22 +/* 1.23 + * Class: com_aurellem_gb_Gb 1.24 + * Method: getFrameSound2 1.25 + * Signature: ([B)V 1.26 + */ 1.27 +JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getFrameSound2 1.28 +(JNIEnv *env, jclass clazz, jbyteArray arr){ 1.29 + setbuf(stdout, NULL); 1.30 + 1.31 + jbyte *sound_store = env->GetByteArrayElements(arr, 0); 1.32 + int i; 1.33 + 1.34 + for (i = 0; i < 1470*2; i++){ 1.35 + sound_store[i] = (jbyte) soundCopyBuffer[i]; 1.36 + } 1.37 + 1.38 + env->ReleaseByteArrayElements(arr, sound_store, 0); 1.39 + 1.40 +}