Mercurial > vba-clojure

comparison src/clojure/clojure.cpp @ 525:fa7676dbf6f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sound recording test now works.
author Robert McIntyre <rlm@mit.edu>
date Sun, 24 Jun 2012 13:12:51 -0500
parents 7ef5c73ea8fa
children
comparison
equal deleted inserted replaced
524:7ef5c73ea8fa 525:fa7676dbf6f2
363 for (i = 0; i < 44100*2; i++){ 363 for (i = 0; i < 44100*2; i++){
364 sound_store[i] = (jbyte) soundBytes[i]; 364 sound_store[i] = (jbyte) soundBytes[i];
365 } 365 }
366 366
367 /* 367 /*
368 u8* soundBytes = (u8*) soundFinalWave; 368 u8* soundBytes = (u8*) soundFinalWave;
369 for (i = 0; i < 1470*2 ; i++){ 369 for (i = 0; i < 1470*2 ; i++){
370 sound_store[i] = (jbyte) soundBytes[i]; 370 sound_store[i] = (jbyte) soundBytes[i];
371 } 371 }
372 */ 372 */
373 373
374 env->ReleaseByteArrayElements(arr, sound_store, 0); 374 env->ReleaseByteArrayElements(arr, sound_store, 0);
375 } 375 }
376 376
393 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_setSoundFrameWritten 393 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_setSoundFrameWritten
394 (JNIEnv *env, jclass clazz , jint newSoundFrameWritten){ 394 (JNIEnv *env, jclass clazz , jint newSoundFrameWritten){
395 soundFrameSoundWritten = newSoundFrameWritten; 395 soundFrameSoundWritten = newSoundFrameWritten;
396 } 396 }
397 397
398
399 /*
400 * Class: com_aurellem_gb_Gb
401 * Method: getFrameSound2
402 * Signature: ([B)V
403 */
404 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getFrameSound2
405 (JNIEnv *env, jclass clazz, jbyteArray arr){
406 setbuf(stdout, NULL);
407
408 jbyte *sound_store = env->GetByteArrayElements(arr, 0);
409 int i;
410
411 for (i = 0; i < 1470*2; i++){
412 sound_store[i] = (jbyte) soundCopyBuffer[i];
413 }
414
415 env->ReleaseByteArrayElements(arr, sound_store, 0);
416
417 }