/* Imaginer et creer par Abadie
joris*/
/* en utilisant un concept de Andre
pierre jocelyn*/
/*Cette oeuvre est protégée et n'est
divulguée que pour utilisation sous linux dans les conditions
Creative common ci-dessous*/
/* Cette oeuvre est mise à disposition
selon les termes de la Licence Creative Commons Paternité - Pas
d'Utilisation Commerciale - Partage des Conditions Initiales à
l'Identique 2.0 France. */
/*Aucune garantie n'est donner sur les
effets de cet executable*/
/*langage c pour compiler en terminal
gcc lecteur.c -lm -lopenal -lsndfile*/
/*la partie openAl dépend de :
* OpenAL streamer using mplayer
* Copyright (C) 2007 by author.
* This library is free software; you
can redistribute it and/or
* modify it under the terms of the
GNU Library General Public
* License as published by the Free
Software Foundation; either
* version 2 of the License, or (at
your option) any later version.
*
* This library is distributed in the
hope that it will be useful,
* but WITHOUT ANY WARRANTY; without
even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE. See the GNU
* Library General Public License for
more details.
*
* You should have received a copy of
the GNU Library General Public
* License along with this library; if
not, write to the
* Free Software Foundation, Inc., 59
Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
* Or go to
http://www.gnu.org/copyleft/lgpl.html
*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#define total 256
#define efface "joris.wav"
#define cecci "abadie.jo"
/********fonction**openal**********/
#include <AL/al.h>
#include <AL/alc.h>
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
/*********************/
int main(int argc, char *argv[])
{
FILE* debutwav = NULL;
debutwav = fopen(efface, "wb+");
if (debutwav != NULL)
{
unsigned char entete[54] =
{0x52,0x49,0x46,0x46,0x24,0xFC,0xFC,0x00,0x57,0x41,0x56,0x45,0x66,0x6D,0x74,0x20,0x10,0x00,0x00,0x00,0x01,0x00,0x01,0x00,0x44,0xAC,0x00,0x00,0x88,0x58,0x01,0x00,0x02,0x00,0x10,0x00,0x64,0x61,0x74,0x61,0x00,0xFC,0xFC,0x00,0x00,0xFF,0xFF,0xFE,0x01,0xFF,0x00,0xFF,0x00,0xFF};
fwrite(entete,1,sizeof(entete),debutwav);
fclose(debutwav), debutwav = NULL;;
}
/*j ouvre mon fichier de donner*/
FILE* oups = NULL;
char je;
int i;
oups = fopen(cecci, "r");
if (oups != NULL)
{
int bascule;
int nbdepoints, sens, amplitude;
int joris;
char passe;
int enclanche = 0;
while ( fscanf(oups,"%d %d %d %d",
&litude, &nbdepoints, &sens, &joris) !=EOF )
/* fscanf(oups,"%d %d %d %d",
&litude, &nbdepoints, &sens, &jo); != NULL */
{
double codebash;
char va;
double jo;
jo = (double)joris;
FILE* script = NULL;
char tab[total] =
{0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0x5B,0x5C,0x5D,0x5E,0x5F,0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,0xFF,0xFE,0xFD,0xFC,0xFB,0xFA,0xF9,0xF8,0xF7,0xF6,0xF5,0xF4,0xF3,0xF2,0xF1,0xF0,0xEF,0xEE,0xED,0xEC,0xEB,0xEA,0xE9,0xE8,0xE7,0xE6,0xE5,0xE4,0xE3,0xE2,0xE1,0xE0,0xDF,0xDE,0xDD,0xDC,0xDB,0xDA,0xD9,0xD8,0xD7,0xD6,0xD5,0xD4,0xD3,0xD2,0xD1,0xD0,0xCF,0xCE,0xCD,0xCC,0xCB,0xCA,0xC9,0xC8,0xC7,0xC6,0xC5,0xC4,0xC3,0xC2,0xC1,0xC0,0xBF,0xBE,0xBD,0xBC,0xBB,0xBA,0xB9,0xB8,0xB7,0xB6,0xB5,0xB4,0xB3,0xB2,0xB1,0xB0,0xAF,0xAE,0xAD,0xAC,0xAB,0xAA,0xA9,0xA8,0xA7,0xA6,0xA5,0xA4,0xA3,0xA2,0xA1,0xA0,0x9F,0x9E,0x9D,0x9C,0x9B,0x9A,0x99,0x98,0x97,0x96,0x95,0x94,0x93,0x92,0x91,0x90,0x8F,0x8E,0x8D,0x8C,0x8B,0x8A,0x89,0x88,0x87,0x86,0x85,0x84,0x83,0x82,0x81,0x80};
char *ptr;
char *petr;
script = fopen(efface, "ab");
/* pour ajouter a. possible w ou r+ w+ tester */
if (script != NULL)
{
if (sens == 1)
{
int boucle = 1;
while (boucle < nbdepoints+1)
{
codebash = (amplitude * ( 1 - exp
(-boucle/jo)));
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/*fin modif*/
boucle++;
}
}
else if(sens == 2)
{
int boucle;
boucle = nbdepoints;
while ( boucle > 0)
{
codebash = (int) (amplitude * ( 1 - exp
(-boucle/jo)));
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/*fin modif*/
boucle--;
}
}
/*******/
else if(sens == 7)
/*ajouter dessous*/
{
if ( nbdepoints < 2)
{
codebash = (int)(amplitude);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
}
else if (( nbdepoints & 1)&&(
nbdepoints >= 2))
{
double ote, ote1, fauxjo;
int boucle, ludion;
boucle = nbdepoints * 0.5;
ludion = jo;
fauxjo = (nbdepoints *0.63);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
while ( boucle > 0)
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
/*
fprintf(script,"%d ",
(int)codebash );
*/
codebash = (int)( ludion + ote +
ote1);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/****************************/
boucle--;
bascule = codebash;
}
enclanche = 7;
if ( enclanche == 7)
{
int ludion = jo;
double ote, ote1;
double fauxjo;
fauxjo = (nbdepoints *0.63);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
int boucle1 = 1;
while (boucle1 < nbdepoints * 0.5 +
2)
{
ote1 = ote * ( 1 - exp
(-boucle1/fauxjo));
codebash = (int) ( amplitude - ote
-ote1);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/*fin modif*/
boucle1++;
}
enclanche = 0;
/* fin descente 7*/
}
}
/**************************/
else
{
double ote, ote1, fauxjo;
int boucle, ludion;
boucle = nbdepoints * 0.5;
ludion = jo;
fauxjo = (nbdepoints *0.63);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
while ( boucle > 0)
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
/*
fprintf(script,"%d ",
(int)codebash );
*/
codebash = (int)( ludion + ote +
ote1);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/*fin modif*/
boucle--;
bascule = codebash;
}
enclanche = 7;
if ( enclanche == 7)
{
int ludion = jo;
double ote, ote1;
double fauxjo;
fauxjo = (nbdepoints *0.63);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
int boucle1 = 1;
while (boucle1 < nbdepoints * 0.5 +
1)
{
ote1 = ote * ( 1 - exp
(-boucle1/fauxjo));
codebash = (int) ( amplitude - ote
-ote1);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/*fin modif*/
boucle1++;
}
enclanche = 0;
/* fin descente 7*/
}
}
}
/*en attente*/
/**********/
else if(sens == 5)
{
if ( nbdepoints < 2)
{
codebash = (int)(amplitude);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
}
/************************correction
impair*************************************************************************/
else if (( nbdepoints & 1)&&(
nbdepoints >= 2))
{
int ludion;
ludion = jo;
double ote, ote1;
double fauxjo;
int boucle;
boucle = nbdepoints * 0.5;
if ( boucle == 0)
{
boucle = 1;
}
fauxjo = (nbdepoints *0.25);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
while ( boucle > 0)
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = amplitude - ote - ote1;
/*
fprintf(script,"%d ",
(int)codebash );
*/
codebash = (int)(amplitude - ote -
ote1);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
bascule = codebash;
/*fin modif*/
boucle--;
}
enclanche = 5;
/* debut descente inverse du sens 5 */
if (enclanche == 5)
{
double ote, ote1, fauxjo;
int boucle, ludion, boncompte;
boucle = 1;
ludion = jo;
fauxjo = (nbdepoints *0.25);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
boncompte = nbdepoints * 0.5;
if (boncompte == 0)
{
boncompte = 1;
}
while (boucle < (boncompte+2))
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = (int) (ludion + ote +
ote1);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/*fin modif*/
boucle++;
}
enclanche = 0;
}
}
/***********************************fin
correction
impair**************************************************************/
else
{
int ludion;
ludion = jo;
double ote, ote1;
double fauxjo;
int boucle;
boucle = nbdepoints * 0.5;
if ( boucle == 0)
{
boucle = 1;
}
fauxjo = (nbdepoints *0.25);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
while ( boucle > 0)
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = amplitude - ote - ote1;
/*
fprintf(script,"%d ",
(int)codebash );
*/
codebash = (int)(amplitude - ote -
ote1);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
bascule = codebash;
/*fin modif*/
boucle--;
}
enclanche = 5;
/* debut descente inverse du sens 5 */
if (enclanche == 5)
{
double ote, ote1, fauxjo;
int boucle, ludion, boncompte;
boucle = 1;
ludion = jo;
fauxjo = (nbdepoints *0.25);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
boncompte = nbdepoints * 0.5;
if (boncompte == 0)
{
boncompte = 1;
}
while (boucle < (boncompte+1))
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = (int) (ludion + ote +
ote1);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/*fin modif*/
boucle++;
}
enclanche = 0;
}
}
}
/* fin*/
/********/
else if(sens == 3)
{
int boucle = 1;
while (boucle < nbdepoints+1)
{
codebash = (int)( amplitude * ( 1 - exp
(-boucle/jo)) + 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/*fin modif*/
boucle++;
}
}
/*****/
/****debut-mod********/
else if(sens == 8)
/*ajouter dessous*/
{
if ( nbdepoints < 2)
{
codebash = (int)(amplitude + 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1,
script);
fwrite( petr, sizeof(char), 1,
script);
}
/************************************impair*****/
else if (( nbdepoints & 1)&&(
nbdepoints >= 2))
{
double ote, ote1, fauxjo;
int boucle, ludion;
boucle = nbdepoints * 0.5;
ludion = jo;
fauxjo = (nbdepoints *0.63);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
while ( boucle > 0)
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = (int)( ludion + ote + ote1
+ 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1,
script);
fwrite( petr, sizeof(char), 1,
script);
boucle--;
bascule = codebash;
}
enclanche = 8;
if ( enclanche == 8)
{
int ludion = jo;
double ote, ote1;
double fauxjo;
fauxjo = (nbdepoints *0.63);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
int boucle1 = 1;
while (boucle1 < ((nbdepoints *
0.5) + 2))
{
ote1 = ote * ( 1 - exp
(-boucle1/fauxjo));
codebash = (int)(amplitude - ote
-ote1 + 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1,
script);
fwrite( petr, sizeof(char), 1,
script);
boucle1++;
}
enclanche = 0;
}
}
/***************fin
impair***************************/
else
{
double ote, ote1, fauxjo;
int boucle, ludion;
boucle = nbdepoints * 0.5;
ludion = jo;
fauxjo = (nbdepoints *0.63);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
while ( boucle > 0)
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = (int)( ludion + ote + ote1
+ 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1,
script);
fwrite( petr, sizeof(char), 1,
script);
boucle--;
bascule = codebash;
}
enclanche = 8;
if ( enclanche == 8)
{
int ludion = jo;
double ote, ote1;
double fauxjo;
fauxjo = (nbdepoints *0.63);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
int boucle1 = 1;
while (boucle1 < ((nbdepoints *
0.5 ) + 1))
{
ote1 = ote * ( 1 - exp
(-boucle1/fauxjo));
codebash = (int)(amplitude - ote
-ote1 + 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1,
script);
fwrite( petr, sizeof(char), 1,
script);
boucle1++;
}
enclanche = 0;
}
}
}/* fin descente 8*/
/* fin*/
/********/
/*en attente*/
/**********/
else if(sens == 6)
{
if ( nbdepoints < 2)
{
codebash = (int)(amplitude + 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1,
script);
fwrite( petr, sizeof(char), 1,
script);
}
/********************impair****************************/
else if (( nbdepoints & 1)&&(
nbdepoints >= 2))
{
int ludion;
ludion = jo;
double ote, ote1;
double fauxjo;
int boucle;
boucle = ((nbdepoints * 0.5)+1);
fauxjo = (nbdepoints *0.25);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
while ( boucle > 1)
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = (int)(amplitude - ote -
ote1 + 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1,
script);
fwrite( petr, sizeof(char), 1,
script);
bascule = codebash;
boucle--;
}
enclanche = 6;
/* debut descente inverse du sens 6 */
if (enclanche == 6)
{
double ote, ote1, fauxjo;
int boucle, ludion, boncompte;
boucle = 1;
ludion = jo;
fauxjo = (nbdepoints *0.25);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
boncompte = nbdepoints * 0.5;
if (boncompte == 0)
{
boncompte = 1;
}
while (boucle < (boncompte+2))
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = (int)(ludion + ote + ote1
+ 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1,
script);
fwrite( petr, sizeof(char), 1,
script);
boucle++;
}
enclanche = 0;
}
}
/*******fin impair*********/
else
{
int ludion;
ludion = jo;
double ote, ote1;
double fauxjo;
int boucle;
boucle = ((nbdepoints * 0.5)+1);
fauxjo = (nbdepoints *0.25);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
while ( boucle > 1)
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = (int)(amplitude - ote -
ote1 + 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
bascule = codebash;
/*fin modif*/
boucle--;
}
enclanche = 6;
/* debut descente inverse du sens 6 */
if (enclanche == 6)
{
double ote, ote1, fauxjo;
int boucle, ludion, boncompte;
boucle = 1;
ludion = jo;
fauxjo = (nbdepoints *0.25);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
boncompte = nbdepoints * 0.5;
if (boncompte == 0)
{
boncompte = 1;
}
while (boucle < (boncompte+1))
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = (int)(ludion + ote + ote1 +
32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/*fin modif*/
boucle++;
}
enclanche = 0;
}
}
}
/* fin sens 6*/
else if(sens == 4)
{
int boucle;
boucle = nbdepoints;
while ( boucle > 0)
{
codebash = (int)(amplitude * ( 1 - exp
(-boucle/jo)) + 32768);
int ji;
int ij;
int ola;
ola = (int)codebash;
/*ji = ola%256;*/
ij = (int)(ola*0.00390625);
ji = ola - (256*ij);
ptr = &tab[ji];
petr = &tab[ij];
fwrite( ptr, sizeof(char), 1, script);
fwrite( petr, sizeof(char), 1,
script);
/*fin modif*/
boucle--;
}
}
/*****/
fclose(script), script = NULL;;
}
/*pas*toucher*/
}
fclose(oups);
int josi(int argc, char **argv);
{
ALCdevice *dev;
ALCcontext *ctx;
struct stat statbuf;
if(argc < 2)
{
fprintf(stderr, "Usage: %s
<audiofile>\n", argv[0]);
return 0;
}
/* First the standard open-device,
create-context, set-context.. */
dev = alcOpenDevice(NULL);
if(!dev)
{
fprintf(stderr, "Oops\n");
return 1;
}
ctx = alcCreateContext(dev, NULL);
alcMakeContextCurrent(ctx);
if(!ctx)
{
fprintf(stderr, "Oops2\n");
return 1;
}
{
/* The number of buffers and
bytes-per-buffer for our stream are set
* here. The number of buffers
should be two or more, and the buffer
* size should be a multiple of
the frame size (by default, OpenAL's
* largest frame size is 4,
however extensions that can add more formats
* may be larger). Slower
systems may need more buffers/larger buffer
* sizes. */
#define NUM_BUFFERS 3
#define BUFFER_SIZE 4096
/* These are what we'll use for
OpenAL playback */
ALuint source,
buffers[NUM_BUFFERS];
ALuint frequency;
ALenum format;
unsigned char *buf;
/* These are used for
interacting with mplayer */
int pid, files[2];
FILE *f;
/* Generate the buffers and
sources */
alGenBuffers(NUM_BUFFERS,
buffers);
alGenSources(1, &source);
if(alGetError() !=
AL_NO_ERROR)
{
fprintf(stderr, "Error
generating :(\n");
return 1;
}
/* Here's where our magic
begins. First, we want to call stat on the
* filename since mplayer will
just silently exit if it tries to play a
* non-existant file **/
if(stat(argv[1], &statbuf)
!= 0 || !S_ISREG(statbuf.st_mode))
{
fprintf(stderr, "%s
doesn't seem to be a regular file :(\n", argv[1]);
return 1;
}
/* Open a file pipe. This will
create two file-descriptors, one for
* reading and another for
writing. The data will be passed in memory,
* so it won't be bogged by
disk access. */
if(pipe(files) != 0)
{
fprintf(stderr, "Pipe
failed :(\n");
return 1;
}
/* Now we fork. The forked
process will inherit the original process's
* file descriptors, so each
process will have access to the same pipe.
* Note that the process memory
isn't shared (if you change something in
* one process, the other will
be unaffected). */
pid = fork();
switch(pid)
{
case -1:
/* If it returns -1,
there was an error */
fprintf(stderr, "Fork
failed :(\n");
return 1;
break;
case 0:
/* Returning 0 means
that we're now in the child process, that
* we'll turn into
mplayer. First, we can close the read file
* descriptor since
this process won't be reading from it. */
close(files[0]);
/* Here's part of the
trick. After closing the stdout file
* descriptor, dup2
assigns it the pipe's write file descriptor.
* So now, whenever
anything writes to stdout, it'll go to the
* pipe instead! */
close(STDOUT_FILENO);
dup2(files[1],
STDOUT_FILENO);
/* We can use execlp to
run mplayer with the options we need. To
* output audio as a
standard .wav-formatted file, we use the
* pcm audio-out
device, and tell it to write to stdout. By
* running this, we
overwrite the current process memory with
* the named commmand,
which causes it to start mplayer with the
* overridden stdout
*/
execlp("mplayer",
"-nogui", "-really-quiet", "-novideo",
"-noconsolecontrols", "-ao",
"pcm:file=/dev/stdout",
argv[1],
(char*)NULL);
/* The exec* functions
should never return. If it does,
* something went
wrong, so just _exit. */
_exit(1);
default:
/* Any other return
value means we're in the parent process.
* Here, we don't need
the write file descriptor, so close it.
* Now we can begin
using the read file descriptor to read
* mplayer's stdout,
which will be the file decoded in real-
* time! */
close(files[1]);
break;
}
/* fdopen simply creates a
FILE* from the given file descriptor. This is
* generally easier to work
with, but there's no reason you couldn't use
* the lower-level io routines
on the descriptor if you wanted */
f = fdopen(files[0], "rb");
/* Allocate the buffer, and
read the RIFF-WAVE header. We don't actually
* need to read it, so just
ignore what it writes to the buffer. Because
* this is a file pipe, it is
unseekable, so we have to read bytes we
* want to skip. Also note that
because mplayer is writing out the file
* in real-time, the chunk size
information may not be filled out. */
buf = malloc(BUFFER_SIZE);
fread(buf, 1, 12, f);
/* This is the first .wav file
chunk. Check the chunk header to make
* sure it is the format
information. The first four bytes is the
* indentifier (which we
check), and the last four is the chunk size
* (which we ignore) */
fread(buf, 1, 8, f);
if(buf[0] != 'f' || buf[1] !=
'm' || buf[2] != 't' || buf[3] != ' ')
{
/* If this isn't the format
info, it probably means it was an
* unsupported audio format
for mplayer, or the file didn't contain
* an audio track. */
fprintf(stderr, "Not
'fmt ' :(\n");
/* Note that closing the
file will leave mplayer's write file
* descriptor without a
read counterpart. This will cause mplayer to
* receive a SIGPIPE
signal, which will cause it to abort and exit
* automatically for us.
Alternatively, you can use the pid returned
* from fork() to send it a
signal explicitly. */
fclose(f);
return 1;
}
{
int channels, bits;
/* Read the wave format
type, as a 16-bit little-endian integer.
* There's no reason this
shouldn't be 1. */
fread(buf, 1, 2, f);
if(buf[1] != 0 || buf[0] !=
1)
{
fprintf(stderr, "Not
PCM :(\n");
fclose(f);
return 1;
}
/* Get the channel count
(16-bit little-endian) */
fread(buf, 1, 2, f);
channels = buf[1]<<8;
channels |= buf[0];
/* Get the sample frequency
(32-bit little-endian) */
fread(buf, 1, 4, f);
frequency = buf[3]<<24;
frequency |= buf[2]<<16;
frequency |= buf[1]<<8;
frequency |= buf[0];
/* The next 6 bytes hold
the block size and bytes-per-second. We
* don't need that info, so
just read and ignore it. */
fread(buf, 1, 6, f);
/* Get the bit depth
(16-bit little-endian) */
fread(buf, 1, 2, f);
bits = buf[1]<<8;
bits |= buf[0];
/* Now convert the given
channel count and bit depth into an OpenAL
* format. We could use
extensions to support more formats (eg.
* surround sound,
floating-point samples), but that is beyond the
* scope of this tutorial
*/
format = 0;
if(bits == 8)
{
if(channels == 1)
format =
AL_FORMAT_MONO8;
else if(channels == 2)
format =
AL_FORMAT_STEREO8;
}
else if(bits == 16)
{
if(channels == 1)
format =
AL_FORMAT_MONO16;
else if(channels == 2)
format =
AL_FORMAT_STEREO16;
}
if(!format)
{
fprintf(stderr,
"Incompatible format (%d, %d) :(\n", channels, bits);
fclose(f);
return 1;
}
}
/* Next up is the data chunk,
which will hold the decoded sample data */
fread(buf, 1, 8, f);
if(buf[0] != 'd' || buf[1] !=
'a' || buf[2] != 't' || buf[3] != 'a')
{
fclose(f);
fprintf(stderr, "Not
'data' :(\n");
return 1;
}
/* Now we have everything we
need. To read the decoded data, all we have
* to do is read from the file
handle! Note that the .wav format spec
* has multibyte sample foramts
stored as little-endian. If you were on
* a big-endian machine, you'd
have to iterate over the returned data
* and flip the bytes for those
formats before giving it to OpenAL. Also
* be aware that there is no
seeking on the file handle. A slightly more
* complex setup could be made
to send commands back to mplayer to seek
* on the stream, however that
is beyond the scope of this tutorial. */
{
int ret;
/* Fill the data buffer
with the amount of bytes-per-buffer, and
* buffer it into OpenAL.
This may read (and return) less than the
* requested amount when it
hits the end of the "stream" */
ret = fread(buf, 1,
BUFFER_SIZE, f);
alBufferData(buffers[0],
format, buf, ret, frequency);
/* Once the data's buffered
into OpenAL, we're free to modify our
* data buffer, so reuse it
to fill the remaining OpenAL buffers. */
ret = fread(buf, 1,
BUFFER_SIZE, f);
alBufferData(buffers[1],
format, buf, ret, frequency);
ret = fread(buf, 1,
BUFFER_SIZE, f);
alBufferData(buffers[2],
format, buf, ret, frequency);
if(alGetError() !=
AL_NO_ERROR)
{
fprintf(stderr, "Error
loading :(\n");
return 1;
}
/* Queue the buffers onto
the source, and start playback! */
alSourceQueueBuffers(source, NUM_BUFFERS, buffers);
alSourcePlay(source);
if(alGetError() !=
AL_NO_ERROR)
{
fprintf(stderr, "Error
starting :(\n");
return 1;
}
/* While not at the end of
the stream... */
while(!feof(f))
{
ALuint buffer;
ALint val;
/* Check if OpenAL is
done with any of the queued buffers */
alGetSourcei(source,
AL_BUFFERS_PROCESSED, &val);
if(val <= 0)
continue;
/* For each processed
buffer... */
while(val--)
{
/* Read the next
chunk of decoded data from the stream */
ret = fread(buf, 1,
BUFFER_SIZE, f);
/* Pop the oldest
queued buffer from the source, fill it
* with the new
data, then requeue it */
alSourceUnqueueBuffers(source, 1, &buffer);
alBufferData(buffer, format, buf, ret, frequency);
alSourceQueueBuffers(source, 1, &buffer);
if(alGetError() !=
AL_NO_ERROR)
{
fprintf(stderr,
"Error buffering :(\n");
return 1;
}
}
/* Make sure the source
is still playing, and restart it if
* needed. */
alGetSourcei(source,
AL_SOURCE_STATE, &val);
if(val != AL_PLAYING)
alSourcePlay(source);
}
}
/* File's done decoding. We can
close the pipe and free the data buffer
* now. */
fclose(f);
free(buf);
{
ALint val;
/* Although mplayer is done
giving us data, OpenAL may still be
* playing the remaining
buffers. Wait until it stops. */
do {
alGetSourcei(source,
AL_SOURCE_STATE, &val);
} while(val ==
AL_PLAYING);
}
/* Done playing. Delete the
source and buffers */
alDeleteSources(1, &source);
alDeleteBuffers(NUM_BUFFERS,
buffers);
}
/* All done. Close OpenAL and exit.
*/
alcMakeContextCurrent(NULL);
alcDestroyContext(ctx);
alcCloseDevice(dev);
}
}
remove(efface);
return 0;
}