/* 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*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#define total 256
#define efface "joris.aiff"
#define cecci "abadie.jo"
int main(int argc, char *argv[])
{
FILE* debutaiff = NULL;
debutaiff = fopen(efface, "wb+");
if (debutaiff != NULL)
{
unsigned char entete[54] =
{0x46,0x4F,0x52,0x4D,0x01,0x0D,0x06,0x9A,0x41,0x49,0x46,0x46,0x43,0x4F,0x4D,0x4D,0x00,0x00,0x00,0x12,0x00,0x01,0x01,0x0D,0x06,0x6C,0x00,0x08,0x40,0x0E,0xAC,0x44,0x00,0x00,0x00,0x00,0x00,0x00,0x53,0x53,0x4E,0x44,0x01,0x0D,0x06,0x74,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};
fwrite(entete,1,sizeof(entete),debutaiff);
fclose(debutaiff), debutaiff = 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;
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;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, 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;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, sizeof(char), 1, script);
/*fin modif*/
boucle--;
}
}
/*******/
else if(sens == 7)
/*ajouter dessous*/
{
if ( nbdepoints < 2)
{
codebash = (int)(amplitude);
int ji;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, sizeof(char), 1,
script);
}
else
{
double ote, ote1, fauxjo;
int boucle, ludion;
boucle = nbdepoints * 0.5;
ludion = jo;
fauxjo = (nbdepoints *0.37);
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;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, 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.37);
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;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, 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;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, sizeof(char), 1,
script);
}
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;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, 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;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, 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)) + 128);
int ji;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, sizeof(char), 1, script);
/*fin modif*/
boucle++;
}
}
/*****/
/****debut-mod********/
else if(sens == 8)
/*ajouter dessous*/
{
if ( nbdepoints < 2)
{
codebash = (int)(amplitude + 128);
int ji;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, sizeof(char), 1,
script);
}
else
{
double ote, ote1, fauxjo;
int boucle, ludion;
boucle = nbdepoints * 0.5;
ludion = jo;
fauxjo = (nbdepoints *0.37);
if (fauxjo == 0)
{ fauxjo = 1;}
ote = ( amplitude - ludion ) * 0.5;
while ( boucle > 0)
{
ote1 = ote * ( 1 - exp
(-boucle/fauxjo));
codebash = (int)( ludion + ote + ote1 +
128);
int ji;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, sizeof(char), 1, script);
/*fin modif*/
boucle--;
bascule = codebash;
}
enclanche = 8;
if ( enclanche == 8)
{
int ludion = jo;
double ote, ote1;
double fauxjo;
fauxjo = (nbdepoints *0.37);
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
+ 128);
int ji;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, sizeof(char), 1, script);
/*fin modif*/
boucle1++;
}
enclanche = 0;
/* fin descente 8*/
}
}
}
/*en attente*/
/**********/
else if(sens == 6)
{
if ( nbdepoints < 2)
{
codebash = (int)(amplitude + 128);
int ji;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, sizeof(char), 1,
script);
}
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 = (int)(amplitude - ote -
ote1 + 128);
int ji;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, 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 +
128);
int ji;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, sizeof(char), 1,
script);
/*fin modif*/
boucle++;
}
enclanche = 0;
}
}
}
/* fin*/
/*****fin-mod*******/
/* */
/* fin descente 8*/
else if(sens == 4)
{
int boucle;
boucle = nbdepoints;
while ( boucle > 0)
{
codebash = (int)(amplitude * ( 1 - exp
(-boucle/jo)) + 128);
int ji;
ji = (int)codebash;
ptr = &tab[ji];
fwrite( ptr, sizeof(char), 1, script);
/*fin modif*/
boucle--;
}
}
/*****/
fclose(script), script = NULL;;
}
/*pas*toucher*/
}
fclose(oups);
}
return 0;
}