txt-a-wav.c application sur le temps
joris Abadie
joris Abadie
/* 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*/ /**c'est la force du concept du siècle des lumières en opposition à l'algèbre et autres croyances imposées***/ /**pour compiler gcc txt-a-wav.c -lm -o createur ***/ #include#include #include #include #include #define ceccicorsica "joris.joa" #define efface "joris.wav" #define a25joris "entetebase.wav" #define cecci "joris.joa" /**j'indique ici mes Fonctions***/ int fonctionImagineVoix4 (); int FonctionPasserelle (); int FonctionEntete (); #define totajo 256 /**attention*en*cas*de*problème*rencontré*sur*la*durée*du*fichier*audio*créé en présence de processeur 64 il*faut*ajouter* #include et ensuite remplacer long int longueurentete, nbdepointsentete, amplitudeentete; par int32_t durerentete, longueurentete, nbdepointsentete, amplitudeentete; et remplacer ensuite les termes %ld par %d */ #define ceccitexte "entete.txt" long int longueurentete, nbdepointsentete, amplitudeentete, durerentete; int FonctionEntete(int argc, char *argv[]) { durerentete = 0; longueurentete = 0; /*j ouvre mon fichier de donner*/ FILE* fichierjoa1 = NULL; FILE* fichierjo1 = NULL; fichierjoa1 = fopen(ceccicorsica, "r"); fichierjo1 = fopen(ceccitexte, "wb"); if (fichierjoa1 != NULL) { if (fichierjo1 != NULL) { while ( fscanf(fichierjoa1,"%ld %ld", &litudeentete, &nbdepointsentete) !=EOF ) { durerentete = durerentete + nbdepointsentete; } fprintf(fichierjo1, "%ld", durerentete); /*ici*je*commence*le*traitement*comme*jécris*chaque*base*de*temps*sur*deux*octets*je*multiplis*par*2*/ durerentete = durerentete*2; longueurentete = durerentete + 56 - 8; fclose(fichierjo1), fichierjo1 = NULL;; fclose(fichierjoa1), fichierjoa1 = NULL;; } } FILE* debutwav = NULL; debutwav = fopen(a25joris, "wb+"); if (debutwav != NULL) { /****declaration**type**audio*4octets**/ unsigned char riff[4] = {0x52,0x49,0x46,0x46}; fwrite(riff,1,sizeof(riff),debutwav); /****longueurentete*du*fichier*audio*ici*21200**/ /* unsigned char durerentetea[4] = {0x32,0x65,0x0B,0x01}; fwrite(durerentetea,1,sizeof(durerentetea),debutwav); */ fwrite( &longueurentete , sizeof(longueurentete) , 1 , debutwav); /****declaration**type**wave*4octets**/ unsigned char wave[4] = {0x57,0x41,0x56,0x45}; fwrite(wave,1,sizeof(wave),debutwav); /****declaration**type**fmt suivit d'un espace qui s'écrit 0x20 soit 4octets**/ unsigned char fmt[4] = {0x66,0x6D,0x74,0x20}; fwrite(fmt,1,sizeof(fmt),debutwav); /****declaration**de*la*maniere d'écrire*sous forme*d'un*entier long (long int) soit 4octets**/ /**comme c'est du 16 octets en exadécimal cela donne 0x10****/ unsigned char poids[4] = {0x10,0x00,0x00,0x00}; fwrite(poids,1,sizeof(poids),debutwav); /****codage pour indiquer le PCM c'est : 1 soit 2octets**/ unsigned char pourpcm[2] = {0x01,0x00}; fwrite(pourpcm,1,sizeof(pourpcm),debutwav); /****nombre de piste sur 2octets*ici c'est du mono, donc 1*/ unsigned char piste[2] = {0x01,0x00}; fwrite(piste,1,sizeof(piste),debutwav); /**nombre d'échantillons par seconde**sur 4 octets**/ unsigned char tempsunitaire[4] = {0x44,0xAC,0x00,0x00}; fwrite(tempsunitaire,1,sizeof(tempsunitaire),debutwav); /**nombre d'octets par secondes**sur 4 octets***le*double*du*précédent*dans*ce*cas*/ unsigned char octetpars[4] = {0x88,0x58,0x01,0x00}; fwrite(octetpars,1,sizeof(octetpars),debutwav); /*taille en octet d'1 échantillon***sur*2octets**/ unsigned char tailleechant[2] = {0x02,0x00}; fwrite(tailleechant,1,sizeof(tailleechant),debutwav); /*contient le nombre de bits par échantillon*2x8=16*soit*10*en*exa**sur*2octets**/ unsigned char bitparechan[2] = {0x10,0x00}; fwrite(bitparechan,1,sizeof(bitparechan),debutwav); /**On ecrit ici data pour dire que le fichier commence**sur 4cotets**/ unsigned char mono[4] = {0x64,0x61,0x74,0x61}; fwrite(mono,1,sizeof(mono),debutwav); /****longueurentete*du*fichier*audio**/ /* unsigned char durerenteteb[4] = {0x0E,0x65,0x0B,0x01}; fwrite(durerenteteb,1,sizeof(durerenteteb),debutwav); */ fwrite( &durerentete , sizeof(durerentete) , 1 , debutwav); fclose(debutwav), debutwav = NULL;; } return 0; } /************fin*du createur**entete********************************************************************************/ int fonctionPasserelle (int argc, char *argv[]) { FonctionEntete(argc, argv); int un; FILE* debutwav = NULL; FILE* vachercherentete = NULL; debutwav = fopen(efface, "wb+"); vachercherentete = fopen(a25joris, "rb"); if (debutwav != NULL) { if (vachercherentete != NULL) { un = fgetc(vachercherentete); /* abadie vient chercher tout ce qui bouge*/ while (un != EOF) { fwrite( &un, sizeof(unsigned char), 1, debutwav); un = fgetc(vachercherentete); } fclose(vachercherentete), vachercherentete = NULL;; } fclose(debutwav), debutwav = NULL;; } /*j ouvre mon fichier de donner*/ FILE* jojo = NULL; jojo = fopen(cecci, "rb"); if (jojo != NULL) { int assemble = 0; int ludion = 0; int enclanche = 0; int nbdepoints, bascule; int amplitude; double codebash; char tab[totajo] = {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; double jo; int sens; int sansdimension; FILE* script = NULL; script = fopen(efface, "ab"); /* pour ajouter a. possible w ou r+ w+ tester */ if (script != NULL) { /***valeur possible jo****/ while ( fscanf(jojo,"%d %d %d", &litude, &nbdepoints, &sansdimension) !=EOF ) { /*************************************/ float joie; joie = (float)nbdepoints; float forme; forme = (float)sansdimension; /*bon pour variation de d'amplitude 10000*/ /*en ecemple 32768 a 42768*/ /*jo = (joie * (1-exp(-joie/(joie * 6.5535))));*/ jo = (joie * forme * (0.01)); if (ludion > amplitude) sens = 2; else sens = 1; /***fin conversion***/ if(sens == 2) { if ( nbdepoints < 2) { /* codebashbrute = (int)(amplitude); codebash = ((2 * codebashbrute) + codebashavant1 + codebashavant2) * 0.25; */ 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(unsigned char), 1, script); fwrite( petr, sizeof(unsigned char), 1, script); } else { float ote, ote1; int boucle; int bouclecomp; boucle = nbdepoints * 0.5; bouclecomp = nbdepoints - boucle; if ( boucle == 0) { boucle = 1; } ote = ( ludion - amplitude) * 0.5; while ( boucle > 0) { float jj; jj = ((-boucle)/jo); ote1 = ote * ( exp(jj)); codebash = (int)(ludion - 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(unsigned char), 1, script); fwrite( petr, sizeof(unsigned char), 1, script); bascule = codebash; /*fin modif*/ boucle--; } enclanche = 1; /* debut descente inverse du sens 1 */ if (enclanche == 1) { float ote, ote1; int boucle, boncompte; boucle = 1; ote = ( ludion - amplitude) * 0.5; boncompte = bouclecomp + 1; if (boncompte == 0) { boncompte = 1; } while (boucle < (boncompte)) { float jj; jj = ((-boucle)/jo); ote1 = ote * ( exp(jj)); /* codebashbrute = (int) (amplitude + ote1); codebash = ((2 * codebashbrute) + codebashavant1 + codebashavant2) * 0.25; */ codebash = (int) (amplitude + 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(unsigned char), 1, script); fwrite( petr, sizeof(unsigned char), 1, script); /*fin modif*/ boucle++; } enclanche = 0; } } } /*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(unsigned char), 1, script); fwrite( petr, sizeof(unsigned char), 1, script); } else { float ote, ote1; int boucle; int bouclecomp; boucle = nbdepoints * 0.5; bouclecomp = nbdepoints - boucle; if ( boucle == 0) { boucle = 1; } ote = ( amplitude - ludion ) * 0.5; while ( boucle > 0 ) { float jj; jj = ((-boucle)/jo); ote1 = ote * (exp(jj)); /* codebashbrute = (int) (ludion + ote1); codebash = ((2 * codebashbrute) + codebashavant1 + codebashavant2) * 0.25; */ codebash = (int) (ludion + 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(unsigned char), 1, script); fwrite( petr, sizeof(unsigned char), 1, script); bascule = codebash; /*fin modif*/ boucle--; } enclanche = 1; /* debut descente inverse du sens 1 */ if (enclanche == 1) { float ote, ote1; int boucle, boncompte; boucle = 1; ote = ( amplitude - ludion ) * 0.5; boncompte = bouclecomp + 1; if (boncompte == 0) { boncompte = 1; } while (boucle < (boncompte)) { float jj; jj = ((-boucle)/jo); ote1 = ote * ( exp(jj)); /* codebashbrute = (int) (amplitude - ote1); codebash = ((2 * codebashbrute) + codebashavant1 + codebashavant2) * 0.25; */ codebash = (int) (amplitude - 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(unsigned char), 1, script); fwrite( petr, sizeof(unsigned char), 1, script); /*fin modif*/ boucle++; } enclanche = 0; } } } /* fin*/ /********/ /*****/ ludion = amplitude; assemble = 0; } /***fin assemble***/ fclose(script), script = NULL;; } fclose(jojo), jojo = NULL;; } return 0; } /**************fin passerelle***********************************************************************/ int main ( int argc, char** argv ) { fonctionPasserelle (argc, argv); return 0; }