Lecteur 2 sens v3 wav mono BIN

/* 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*/
/* pour compiler : gcc l.c -lopenal -lsndfile -lm*/

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#define total 256
#define total1 256
#define efface "joris.wav"
#define cecci "abadie.jo"



int main(int argc, char *argv[])

{




FILE* debutwav = NULL;
debutwav = fopen(efface, "wb+");
if (debutwav != NULL)
{


unsigned char entete[44] =
{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};

fwrite(entete,1,sizeof(entete),debutwav);




fclose(debutwav), debutwav = NULL;;

}
/*j ouvre mon fichier de donner*/

/******ancien : format ASCII*****************

FILE* oups = NULL;

char je;
int i;



oups = fopen(cecci, "r");

if (oups != NULL)
{
int bascule;
int nbdepoints, sens, amplitude;
int joris, ludion;

/****nouveau BIN****/

/*j ouvre mon fichier de donner*/
FILE* jojo = NULL;

int abadie = 0;



unsigned char tab1[total1] =
{0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F,0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF,0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF,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};



jojo = fopen(cecci, "rb");


if (jojo != NULL)
{

int assemble = 0;
int ludion = 0;
int enclanche = 0;
int nbdepoints, bascule;

int ouaitu;
double force2;
int amplitude;
int force1;
int groupe1;
int groupe2;

abadie = fgetc(jojo); /* abadie vient chercher tout ce qui bouge*/
while (abadie != EOF)
{



for (ouaitu=0; ouaitu<255; ouaitu++)
{
if ( abadie == tab1[ouaitu])
{
force1 = ouaitu;
assemble++;
}
}
/***debut assemble***/

switch (assemble) {

case 1 :
groupe1 = force1;
/*assemble = 2;*/
break;

case 2 :
groupe2 = force1;
/*assemble = 3;*/
force2 = (double)(groupe1 + 256 * groupe2);
amplitude = (int)(force2);
break;

default:
nbdepoints = force1;
/****fin traitement bin******/



/***conversion nouvelle donner en ancienne****/

double jo;
jo = (double)(nbdepoints * 0.63);
if (jo < 2){ jo = 1; }
int sens;
if (ludion > amplitude) { sens = 2; }
else { sens = 1; }

/***fin conversion***/
double codebash;
char va;



FILE* script = NULL;

char tab[total] =

{0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F,0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF,0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF,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};


char *ptr;
char *petr;


script = fopen(efface, "ab"); /* pour ajouter a. possible w ou r+ w+ tester */

if (script != NULL)

{





/*******/

if(sens == 2)

/*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;
int boucle;
boucle = nbdepoints * 0.5;
ote = ( ludion - amplitude) * 0.5;




while ( boucle > 0)





{
ote1 = ote * ( 1 - exp (-boucle/jo));

/*
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);

/****************************/
boucle--;
bascule = codebash;
}


enclanche = 2;/*****************premier enclanche du sens 2************/

if ( enclanche == 2)
{




double ote, ote1;
ote = (ludion - amplitude ) * 0.5;



int boucle1 = 1;
while (boucle1 < nbdepoints * 0.5 + 2)
{

ote1 = ote * ( 1 - exp (-boucle1/jo));




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*/

boucle1++;

}



enclanche = 0;







}
}

/**************************/


else
{


double ote, ote1;
int boucle;
boucle = nbdepoints * 0.5;

ote = (ludion - amplitude) * 0.5;




while ( boucle > 0)





{
ote1 = ote * ( 1 - exp (-boucle/jo));

/*
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);





/*fin modif*/
boucle--;
bascule = codebash;
}


enclanche = 2; /*** deuxieme enclanche du sens 2**********/

if ( enclanche == 2)
{




double ote, ote1;

ote = (ludion - amplitude) * 0.5;



int boucle1 = 1;
while (boucle1 < nbdepoints * 0.5 + 1)
{

ote1 = ote * ( 1 - exp (-boucle1/jo));




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*/

boucle1++;

}



enclanche = 0;




/* fin descente 2*/


}
}

}


/*en attente*/

/**********/

if(sens == 1)
{
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))
{



double ote, ote1;

int boucle;
boucle = nbdepoints * 0.5;
if ( boucle == 0)
{
boucle = 1;
}


ote = ( amplitude - ludion ) * 0.5;




while ( boucle > 0)
{

ote1 = ote * ( 1 - exp (-boucle/jo));

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 = 1;
/* debut descente inverse du sens 1 */
if (enclanche == 1)

{


double ote, ote1;
int boucle, boncompte;
boucle = 1;

ote = ( amplitude - ludion ) * 0.5;
boncompte = nbdepoints * 0.5;
if (boncompte == 0)
{
boncompte = 1;
}


while (boucle < (boncompte+2))


{
ote1 = ote * ( 1 - exp (-boucle/jo));




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
{


double ote, ote1;

int boucle;
boucle = nbdepoints * 0.5;
if ( boucle == 0)
{
boucle = 1;
}


ote = ( amplitude - ludion ) * 0.5;




while ( boucle > 0)
{

ote1 = ote * ( 1 - exp (-boucle/jo));

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 = 1;
/* debut descente inverse du sens 1 */
if (enclanche == 1)

{


double ote, ote1;
int boucle, boncompte;
boucle = 1;

ote = ( amplitude - ludion ) * 0.5;
boncompte = nbdepoints * 0.5;
if (boncompte == 0)
{
boncompte = 1;
}


while (boucle < (boncompte+1))


{
ote1 = ote * ( 1 - exp (-boucle/jo));




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*/






/********/


/*****/



fclose(script), script = NULL;;
}
ludion = amplitude;

/*pas*toucher*/
assemble = 0;
} /***fin assemble***/
abadie = fgetc(jojo); /* abadie va chercher la suivante*/
}
fclose(jojo), jojo = NULL;;





}
return 0;
}