i n V i d a t i o n

eeearsbleed eeecrymto iiitchyochord-ite
sounds of/f : re/v/p/ulse eyes
dye in black : don't
edgy dynamic scream/stream

this is my frozen shit generator
this is prurit artificiel
projekt artrite fucker
this is insekto glitchy dementia

dans ce petit récipient qui précède le drone : l'abcès de l'intellectualisation

pour preuve le pays qu'on n'atteindra jamais we'll never reach à l'abolition des frontières les eldorados déchantent golden lands are falling reste l'immersion dans les drones in drones remains

solitudes sauvages shoegaze jusqu'aux rétines entées dans les grisailles aliénantes

� Arsenal.

Le 2 juillet � à ses côtés, je criai dans la nuit. Je me souviens que j'agitais haut mes bras, pestais en flamboyant de vodka. Je ne me souviens pas précisément des mots qu'empoignait ma bouche.
Le 3 juillet � je prenais une longue douche, m'habillais de ces colifichets que j'avais fulguremment oubliés depuis longtemps, après deux longs mois à traîner dans les rues. Je reconsidérais l'espace autour de moi, je le regardais dormir dans mon lit, épuisé d'un long trajet, long et douloureux. Il dit : « tu t'es maquillée ? » Je redeviens humaine, répondis-je.
Le 11 novembre � à 11h52, je disparus.
Le 11 novembre � à 11h53 je réapparus.
Le 11 novembre � à 11h54 je me dis que nous étions morts à une fréquence de 86 400 secondes par jour et que nos actes étaient substanciellement vides. J'abandonnais vite cette considération sans fond et cette pénétration discursive de porte ouverte afin de me replonger dans ma disparition. Je plongeais ma tête sous l'eau dans l'évier parmi les assiettes sales et les pates pourries voguant à la surface. Je restais là une bonne heure.
Le 22 décembre � je lui avouais vouloir être coiffeur d'oiseaux.
Le 1er janvier � il ne m'aima pas.
Le 4 janvier � je commençais à compter scrupuleusement les secondes où il ne m'aimait pas.
Le 18 janvier � je souffrais de tout mon crâne devant une alouette blessée par un nuage. J'empoignais un chauffard et le secouais de tout mon bras gauche afin de faire fuir le nuage.
Le 22 janvier � c'est vers cette période que mon lobe temporal gauche commença à rejeter définitivement et ce pour une période encore à ce jour imprécise, tout type de romans, essais, et autres types de constructions narratives concentrationnaires récitant pas toujours mais bien souvent des lieux communs, ainsi qu'on égrène un chapelet de loufoques tripes de porc. C'est vers cette époque que je transportais en permanence sur moi au moins sept livres de Notre Ami. Je ne supportais plus que Notre Ami. Il voulait qu'on lui fasse « des enfants dans le dos ». Il en aurait.
Le 28 janvier � tout se passait bien, nous n'étions pas fous.
Le 10 février � avec horreur, je lus quelques mièvreries mal déniaisées sur le web. Je trouvais confirmation de mon sentiment auprès d'un article du Matricule des Anges de l'année 1993. Qui valait ce qu'il valait. La mièvrerie n'est fâcheuse que si elle est célébrée. Une bande de grands malades mentaux célébraient cette mièvrerie. En 1993, j'avais quinze ans, je lisais Freud. Un blond m'aborda sur une plage de Corse sous le fallacieux prétexte que je lisais Freud. Quelques jours plus tard il jeta contre les carreaux de ma fenêtre trois feuilles tirebouchonnées. � cette époque, je ne comprenais déjà pas le sentiment amoureux � dire je t'aime à un cerveau connu depuis seulement 259 200 secondes me semblait issu de la plus grande démence. J'abandonnais Freud à quinze ans et demi. Freud était un con. Tout comme Sartre.
Le 10 février � je lui parlais de poissons volants.
Le 12 février � Les secondes où il ne m'aimait pas semblaient diminuer en fréquence.
Le 15 mars � on me demanda de peindre un cri. Je songeais que je finirai probablement noyé dans la peinture, car le langage oral me semblait particulièrement impuissant et furieusement limité, quadrillé, rectangulaire comme un univers concentrationnaire, je ne souffrais plus que le transversal et les zones de turbulences atones. Je songeais à l'ancêtre Ernest Hello, qui se serait bien marré de tout ce merdier et de tous ces niais élucubratoires poisseux sur son oeuvre, moi j'avais compris, mais je ne disais rien, bien que la rage m'échauffait. Puis je songeais à Arthur Cravan, sans que je n'aie jamais su pourquoi par la suite.
Le 23 mars � je lui demandais de m'offrir des cailloux bleus.
Le 29 mars � il était fier de moi, sans que je n'aie jamais su pourquoi par la suite.
Le 1er avril � sans que je n'aie jamais su pourquoi par la suite.
Le 2 avril � il se passa un phénomène très curieux. Il revint à six heures du matin, et me dit avec force en me serrant comme un étau, qu'il m'aimait, qu'il m'aimait très fort, et qu'il s'en foutait si les gens se moquaient de nous parce qu'on vivait dans une cage à poules, et qu'il m'aimait, et que des fois il avait envie de me faire un enfant. Dans une cage à poules ? répondis-je. Il allait de soi qu'après toutes ces secondes à compter les secondes où il ne m'aimait pas, ma croyance en l'univers et ses vertus langagières � auxquelles je n'avais de toute façon jamais beaucoup cru � s'était sensiblement détériorée. Aussi lui répondis-je : moi-aussi je t'aime très fort {mais au fond, quelle importance, puisque tout est si aléatoire et croupissant comme un songe maudit}.
Le 3 avril � un dégoût subit monta dans ma gorge. Toujours à cause de la mièvrerie. J'avais envie de noir partout. De noir de noir de noir. De disparaître de cet univers de fous. D'ailleurs, j'allais disparaître. Au fond quelle importance.
Le 4 avril � je découvrais le mot « épatamment » dans le dictionnaire, découverte qui ne m'avançait pas vraiment, car c'était un mot laid et disgracieux, sans que je n'aie jamais su pourquoi par la suite.

Les nuages ont des couleurs
La convergence de nos penchants
Non avoués
Dans leur tendre
Epure

eeearsbleed eeecrymto iiitchyochord-ite
sounds of/f : re/v/p/ulse eyes
dye in black : don't
edgy dynamic scream/stream

this is my frozen shit generator
this is prurit artificiel
projekt artrite fucker
this is insekto glitchy dementia

dans ce petit récipient qui précède le drone : l'abcès de l'intellectualisation

pour preuve le pays qu'on n'atteindra jamais we'll never reach à l'abolition des frontières les eldorados déchantent golden lands are falling reste l'immersion dans les drones in drones remains

solitudes sauvages shoegaze jusqu'aux rétines entées dans les grisailles aliénantes

Vacuité
Intrinsèque
De
l'Etre

Week of violence - 2 (dès la première seconde tu te lasses) (lasse-toi).

Désoeuvré t'as vraiment forniqué avec tout ce qui passait c'est fou ce que tu mâchais comme nuques à te croire dans les prés avec des trèfles dans la cervelle.

Nom d'un chien et c'était à voix haute que je lisais. Ma foi la voix plutôt timide et très aiguë. Devant une assemblée un parterre de mecs sordides.

T'avais la molécule qui pendait en boutons, tes synapses dansaient la trique.

Je me touchais pendant que je parlais et ça se voyait pas. Derrière le bureau.

L'investigation de ton n�ud-mouche sur ton costard Tritton le sale mec que t'étais pas tu pendais partout c'est simple, tu pendais, tes yeux sifflaient, ton menton dégobillait, l'avarice t'arrêtait pas, ta tolérance zéro une flaque dans la bouillie épaisse de tes joues, ton visage une immense déflagration que tu promenais dans leurs cous seigneur que t'étais lourd.

Imaginant qu'un type pervers se planquait là sous le bureau près de mes cuisses ouvertes en m'insultant de tous les noms. � toucher ça limite de manière sadique du bout des doigts � « salope ! »

La rosée du matin tu connaissais pas je pensais t'amener en orange mais tu préférais le vert et tes sillons désastreux dans les chiottes, j'aimais pas ce que tu prenais pour des peintures je préférais à la limite les pubs qui passaient dans nos yeux.

Un soir je me suis cassée dans l'arrière-boutique on me congratula, tous les types sordides sortaient par marées à se coller à moi comme des huîtres, et putain je les regardais à me dire y'en a pas un qui. Je scrutais les vers de terre, luisants : des mecs misérables, que je sentais sans tripes et surtout plein de vergétures.

J'aimais pas ton blizzard Sephora qui puait à trois kilomètres je m'attardais sur les cloques rances du clochard qui ruminait tout bas à ma gauche j'aimais rien en fait tu sais.

Un soir j'ai eu le cafard je me suis barrée dans un bar de quartier, à Concorde, près de la Muette, pas loin du 18e. Plus trop où, et n'importe où. J'ai pris le métro dans tous les sens, à me perdre avec ma jupe sans arrière pensée et le type lubrique qui me gênait contre la vitre à ramasser son genou contre moi.

Mais t'avais pas l'air de savoir toute ta vie t'avais fait en sorte d'oublier ce genre de désagréments et de te croire toi surtout, de dire je sais quand tu savais pas, de dire elle m'aime quand elle t'aimait pas, t'avais été à l'école de commerce de la vie chez Louis Tritton et Sephora tout ce que tu savais dire c'était merci comme un con.

Un bar à Bastille où je suis tombée sur deux hommes. Et l'un qui m'a dit comme ça, le plus manisfestement intéressé par une conversation : un qui m'a parlé � tout plein de sortes d'abréviations vers mes cuisses, à glisser sa main tout en se présentant mais ça se sentait pas du premier coup, sa main. � se glisser en moi toutes les cinq minutes pendant qu'il me parlait. Je sentais rien. C'est pas grave, je me disais.

Ta soif d'exception je l'ai balancée dans la rame t'as explosé en sandwich devant une quatre par trois BHV. J'ai bien aimé contempler ton cadavre.

Dentifrice-Bubblegum en avait super marre il sentait qu'un truc couinait sous son plancher en merisier quatre mille balles � il se servit �

Bordel il se servit comme dans ses romans �

Bordel ça y est � il retomba dans cette identification sordide avec son héros �

Bordel d'ailleurs son héros n'avait toujours été que lui �

Putain ce qu'il baisait bien dans ses romans c'était fou parce qu'on pouvait rallonger les minutes et les jambes de la fille qui était toujours uniformément blonde mammouth de poitrine la lèvre en jactance comme une bulle de chewing-gum.

Brosse-�-Dent-Dentifrice-Immaculé pensait à la lèvre bulle de chewing-gum le duvet entre ses mains rugueuses. Pensant à l'horizon du siècle mourir en Porsche à un coin de néant posté dans une rue qu'il ne connaissait même pas avec une pute toute lisse gargouillant dans ses lèvres.

Brosse-à-dent-dentifrice-immaculé avait super les boules.

Il se posa le duvet entre ses mains rugueuses. Là, à réfléchir rudement.

� l'horizon du siècle.

de l'autre
si la mue ne
se présage
ni laisse
alors le long du
le regard va suivre
encore comme un aruspice d'écorce puis dans les branches des membres décharnés
aux doigts-cadrans indiquant la mise en mouvement des ailes mortes
quand dans le contre-jour traversent et que mille
prennent leur éclipse rapide virent à l'unisson dans une clameur contre l'air

inner_eCCretion

POUVOIRS I

1. Le cerveau se nourrit de nouveaux trajets neuronaux (idées, images, sons, etc.), il peut suivre cinquante films en même temps sur cinquante fenêtre ou écrans différents. Le front du sujet est un écran Google sur lequel on peut taper des questions.

2. Quand un télépathe rêve, ses rêves se diffusent se dispersent se répandent au hasard.

3. Sa peau lumineuse est mappemondisée.

4. Ses yeux sont des fibres optiques amovibles qui enregistrent sans discontinuer et renvoient les images même en étant séparés du corps.

5. Elle dort à l'intérieur de ses rêves (c'est le seul endroit où elle peut se reposer).

6. Elle ne s'inscrit plus sur les bandes magnétiques ou sur les appareils de surveillance vidéo. Tout ce qu'elle écrit et dessine devient réél. Elle peut ouvrir des brèches, blesser, emmurer, immobiliser, etc., les personnes situées dans la scène.

7. Son estomac est infini, elle peut avaler tout le liquide de l'océan.

8. Ses glandes sécrètent du viagra pour morts-vivants.

9. Elle créait des doubles d'elle-même et projetait ses amis dans des réalités alternatives.
Elle fut assujettie à la machine et devint une esclave docile.

10. Une prêtresse annonce un nouvel âge d'or au prix de dix milliards de vies.

11. Une seule de ses phrases est chargée de centaines d'informations, de concepts, et de sentiments.

12. Une mutante SDF ayant agressé la lune, le Roi d'Ombre modifie son corps et son esprit, la rendant obèse et dépressive, même après qu'elle soit libérée.

13. Il se fabrique un corps recouvert d'adamantium dont les bras peuvent changer de forme.
Il est alors presque tué par Kevin Ford qui décompose toutes les parties encore organiques de son corps, et les disperse à travers l'espace et le temps.

14. Des tatouages vivants, dotés d'une vie propre, décident de quitter leurs hôtes, et de générer eux-mêmes la suite de la fresque, sur les peaux et les parois à travers le monde.

15. Le gouvernement fait tatouer un D sur le visage de tous les déviants.

Quink élaborait des combinaisons répétitives dans sa petite cabane sous les toits de Paris. Tour à tour toile en lin, diapositive, photographie, film, Quink se transfigurait sans suite, ne sachant exactement dans quel domaine de la création poursuivre sa grande entreprise. Quink touchait à tout sans rien pénétrer, il ne jouissait jamais ou alors furtivement, presque honteux. Son activité la plus fébrile était la construction de scénarios, notamment la mise à mort violente de son père au milieu de filles dévêtues. � part tous ces mets sans consistance qui l'occupaient mollement, Quink ne faisait rien de ses journées, il en devenait maladivement vorace et ressassait sans relâche le gâchis de sa grandeur hollywoodienne, enfermée dans un taudis, ignorée de tous, incomprise par l'homme. Quink se demandait s'il finirait vautré dans de la nourriture pour chat, terrassé par une crise cardiaque.

J'ai écrit pendant des mois une longue histoire faite de dents, de cris et d'élastiques pour cheveux, de mains crispées et de poignards, de fenêtres et de caves, je n'ai pas mentionné les noms de rue et je crois n'avoir pas croisé un regard. J'ai parachuté mes associés dans un réservoir, liquidé mes actions. Je ne me souviens pas avoir jamais été aussi seul. Je me suis déporté dans une chambre d'hôtel.

Quand j'eus fini cette histoire, il ne resta rien sauf un sinistre silence. Des signes cabalistiques. Un peu de sang d'oiseau, et des fourchettes entre mes mains.

Je me suis enfui plusieurs fois dans des bars, cherchant le liquide et l'histoire et ma peau. J'ai dessiné les autres, par peur de m'avouer que j'étais seul. J'ai continué à chercher leurs rires et peut-être à inventer des larmes. J'ai baragouiné des trucs sans intérêts. Je me perdais souvent dans des parcs interdits aux chiens. Vers la fin de la nuit j'étais désorienté ; le matin j'avais des bleus. Je faisais des conférences de presse en bas de chez moi, je sautais du rez-de-chaussée.

Les possibles raccourcis que j'utilisais étaient des scénarios fluets qui ne me permettaient même pas d'accéder à leur vraie profondeur. On ne me donnait que des peaux, autant dire des lambeaux. Rien ne fonctionnait.

J'écoutais des sommités du jazz et des lessivés du porno. J'écourtais mes rendez-vous pour finir en queue de poisson. Je haïssais mon logement, mes chaussures et mes parents. Mais plus que tout, j'avais perdu une histoire. Elle s'éparpillait en mille feuillets, gribouillés de soif et de stylo-à-ongles, de lime-à-bille et de déroute. Je la vendais au tout-venant, mais elle me collait la rétine, je la voyais partout et j'entendais la pluie.

--
La pluie � des fractions de silence � la pluie des fractions de silence, mon visage sous le coude. Dans la chambre Jessica Jennifer. Avant : Marje et Acapulco. Je ne sais rien.

J'avais laissé Marje près d'un pré de bétons, armé de pluie le silence tombait, nous coupait les vertèbres et elle s'éloignait un peu luisante, fourchue de larmes, à essuyer hâtivement avec impatience et peut-être un peu de rage ses larmes, le silence tombait les pieds cuisant, les cuisses Marje éclaboussait le marbre.

J'avais laissé Marje sur un rythme dans mon crâne à l'évidence obèse à trente ans déjà courbaturé de solitude l'envie de tout épier de tout bouffer de grignoter, de ne pas se satisfaire. J'avais laissé Marje cette pauvre chips ; à ne pas me satisfaire ou à me satisfaire autrement. Je lui avais bousillé l'espoir, j'avais pris soin de lui faire peur.

J'avais laissé Marje parce qu'elle passait son temps à se décrire et se dire exception, et se dire, elle hurlait Oh Seigneur Oh moi. Oh moi Marje j'me suis passé un savon à l'enfance j'ai les paupières veilurées un tabernacle à l'�il droit reste-t-il du saucisson la vie est dure, comprenons-nous bien oh moi Marje je déjeune souvent avec mon ombre vers République c'est plutôt sympathique sauf que je ne sais pas son nom.

Il y a des récurrences comme ces matins où je ne comprends plus rien et où ça me satisfait, ou je berce l'espoir de continuer à ne rien comprendre et à dire des jurons, à peut-être devenir une plante ou un b�uf, quelque-chose qui s'accroche à une drogue peut-être, il y a des récurrences comme ces matins où je commence à comprendre.

remember :writcore, lines lullabies

cyclops revolution

écrire un texte qui s'appellerait superjudge de monster magnet
on parlerait de nicolas marti, des grave parties, de la vallée violette, de l'alouette, d'alice, � du rêve, de l'intensité, de l'adolescence
d'emmaüs à vendôme, de cracovie
de l'alcool
des paroles du disque, traduites le plus souvent par n m
laurent turpault, bruno berson, rémi guillaume, marti's, fr, etc (liste à complèter)
des premiers baisers, de séverine bartal
ça me déchire le c�ur
la bonne musique me fait le même effet que le sexe (aussi fort, voire plus) ; du coup je ne peux en écouter avec ma copine, ça me déconcentre.

 use strict;
  print "\n\n\n\n";
  open(fREAD,$ARGV[0]) || die;
  while(<fREAD>) {  	my $ligne = $_;
 	my @Ligne = split(/[,|.|;
]/,$ligne);
 	foreach my $mot (@Ligne) { 		$mot =~ s/^ //;
 		print $mot . "\n";
 		if($ligne =~ m/$mot\s*,/) { 			sleep 1;
 		} else { 			sleep 2;
 		} 
 	} 
 	if(scalar(@Ligne) == 0) { 		print "\n";
 	} 
 	print "\n";
 
 }  close fREAD;
  print "\n\n\n\n";

     print "\n\nSpectromie...\n\n";
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
 my $specFile;
 if($recueilFile =~ m/^(\S+)\.\w+$/) { 	$specFile = $1;
 } else { 	$specFile = $recueilFile;
 } $specFile .= "_spec.txt";
 open fSPEC, ">$specFile" or die "Impossible de créer le fichier log !\n";
 my %Poetivites;
 my %SampledRecueil;
 &spectromie;
 close fREC;
 close fSPEC;
     print "\n\nPoedilation...\n\n";
   my @choix = sort( {$a <=> $b or $a cmp $b} keys(%SampledRecueil));
 my $num_choix = 1;
 foreach my $choice (@choix) { 	print "[" . sprintf("%2s",$num_choix) . "] " . $choice . "\n";
 	$num_choix++;
 } my $zeChoix = "non";
 while (!($zeChoix =~ m/^\d+$/ && $zeChoix >= 1 && $zeChoix <= scalar(@choix))) { 	print "\nentrer le numero du poeme choisi pour la poedilation :\n";
 	$zeChoix = <STDIN>;
 } chomp($zeChoix);
 $zeChoix--;
 my $poeme_choisi = $choix[$zeChoix];
 my $total_mots = 0;
 foreach (keys(%{$SampledRecueil{$poeme_choisi}})) { 	$total_mots += scalar @{$SampledRecueil{$poeme_choisi}{$_}{"mots"}};
 } print "\npoedilation de \"" . $poeme_choisi . "\" (" . $total_mots . " mots)...\n";
   my $degreP = "non";
 while (!($degreP =~ m/^\d+$/ && $degreP >= 1)) { 	print "\nEntrer le degre de poedilation :\n";
 	$degreP = <STDIN>;
 } chomp($degreP);
 &poedilation($poeme_choisi,$degreP);
   open fPOE, ">poetivites.txt" or die;
 foreach my $poetivite (sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}))) { 	print fPOE $poetivite . "\t";
 	foreach my $mot (@{$Poetivites{"recueil"}{$poetivite}}) { 		print fPOE $mot . "\t";
 	} 	print fPOE "\n";
 } close fPOE;
  exit(0);

  sub spectromie {  	my $ligne;
 	my $compteur = 0;
 	my $ligne_poeme = 0;
 	my $poeme = undef;
 
 	while(<fREC>) { 
 		chomp;
 		$ligne = $_;
 		$ligne_poeme++;
 		my @Ligne = split(/\s+/,$ligne);
    
 			$poeme = $1;
 			$ligne_poeme = 0;
 			$compteur++;
  			print fSPEC "\tPoeme " . $compteur . " : " . $poeme  . "\n";
 			next;
 		} 
  		my $nbMotsLigne = scalar(@Ligne);
 
  		if($nbMotsLigne == 0) {  			print fSPEC "\n";
 			next;
 		} 
  		foreach my $mot (@Ligne) { 
  			if(exists($Symboles{$mot})) { 				next;
 			} 			if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { 				next;
 			} 
  			$mot = &nettoieMot($mot);
 
  			push(@{$SampledRecueil{$poeme}{$ligne_poeme}{"mots"}},$mot);
 			push(@{$SampledRecueil{$poeme}{$ligne_poeme}{"poetivites"}},$Recueil{$poeme}{"Mots"}{$mot});
 
  			print fSPEC $Recueil{$poeme}{"Mots"}{$mot} . "\t";
 
 		} 
  		print fSPEC "\n";
 
 	} 
 }

 sub premierPassage {  	my $ligne;
 	my $compteur = 0;
 	my $poeme = undef;
 	my $nbMots;
 	my $lengthCumul;
 
 	while(<fREC>) { 
 		chomp;
 		$ligne = $_;
 		my @Ligne = split(/\s+/,$ligne);
     			if($poeme) { 				$Recueil{$poeme}{"longueur_mot_moyenne"} = $lengthCumul / $nbMots;
   			} 
 			$poeme = $1;
 
 			$compteur++;
  			$Recueil{$poeme}{"nombre_lignes"} = 0;
 			$nbMots = 0;
 			$lengthCumul = 0;
 			next;
 		} 
  		my $nbMotsLigne = scalar(@Ligne);
 
  		if($nbMotsLigne == 0) { 			next;
 		}  		else { 			$nbMots += $nbMotsLigne;
 		} 
  		$Recueil{$poeme}{"nombre_lignes"}++;
 
  		foreach my $mot (@Ligne) { 
  			if(exists($Symboles{$mot})) { 				$nbMotsLigne--;
 				next;
 			} 			if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { 				$nbMotsLigne--;
 				next;
 			} 
  			$mot = &nettoieMot($mot);
 
  			if(!exists($Mots{$mot})) { 				$Mots{$mot} = 1;
 			} else { 				$Mots{$mot}++;
 			} 
  			$lengthCumul += length($mot);
 
 		} 
 	}   	$Recueil{$poeme}{"longueur_mot_moyenne"} = $lengthCumul / $nbMots;
   
 	close fREC;
 
  	my $freqMax = 0;
 	my $motMax;
 	while((my $mot,my $freq) = each(%Mots)) { 		if($freq > $freqMax) { 			$motMax = $mot;
 			$freqMax = $freq;
 		} 	}   
 }

 function copyAndPasteWithNoise($myImageSrc,$myImageDest,$dimImage,$strength) { 
 	$maxNoise = $dimImage[0]*$dimImage[1];
 	$noise = intval(rand(0.1*$maxNoise,$maxNoise));
 	for($i = 0 ;
 $i < $noise ;
 $i++) { 		$width = rand(1,$strength);
 		$height = rand(1,$strength);
 		$srcX = rand(0,$dimImage[0]-$strength);
 		$srcY = rand(0,$dimImage[1]-$strength);
 
  			$currColor = imagecolorat($myImageSrc,$srcX,$srcY);
 			if(isCloseColor($myImageSrc,$currColor,255,255,255,2)) continue;
 
 		$destX = rand($srcX - $strength,$srcX + $strength);
 		$destY = rand($srcY - $strength,$srcY + $strength);
 
 		$xplusw = $srcX + $width;
 		if($xplusw >= $dimImage[0]) $width -= $xplusw - $dimImage[0];
 		$yplush = $srcY + $height;
 		if($yplush >= $dimImage[1]) $height -= $yplush - $dimImage[1];
 
 		if($destX < 0) $destX = 0;
 		if($destY < 0) $destY = 0;
 
 		$dxplusw = $destX + $width;
 		if($dxplusw >= $dimImage[0]) $destX -= $dxplusw - $dimImage[0];
 		$dyplush = $destY + $height;
 		if($dyplush >= $dimImage[1]) $destY -= $dyplush - $dimImage[1];
 
 		imagecopy($myImageDest,$myImageSrc,$destX,$destY,$srcX,$srcY,$width,$height);
 	}  }  function copyAndPasteNormal($myImageSrc,$myImageDest,$dimImage,$strength) { 
 	$maxNoise = rand(intval($strength/2),intval($strength*5));
 	if($maxNoise == 0) $maxNoise = 1;
 	for($i = 0 ;
 $i < $maxNoise ;
 $i++) { 		$width = rand(5,intval($dimImage[0]/5));
 		$height = rand(5,intval($dimImage[1]/5));
 		$srcX = rand(0,$dimImage[0]-5);
 		$srcY = rand(0,$dimImage[1]-5);
 
   		$destWidth = $width;
 		$destHeight = $height;
 		$ratioX = $destWidth/$width;
 		$ratioY = $destHeight/$height;
 		$destX = rand($srcX - intval(5*$ratioX),$srcX + intval(5*$ratioX));
 		$destY = rand($srcY - intval(5*$ratioY),$srcY + intval(5*$ratioY));
 
 		$xplusw = $srcX + $width;
 		if($xplusw >= $dimImage[0]) $width -= $xplusw - $dimImage[0];
 		$yplush = $srcY + $height;
 		if($yplush >= $dimImage[1]) $height -= $yplush - $dimImage[1];
 
 		if($destX < 0) $destX = 0;
 		if($destY < 0) $destY = 0;
 
 		$dxplusw = $destX + $destWidth;
 		if($dxplusw >= $dimImage[0]) $destX -= $dxplusw - $dimImage[0];
 		$dyplush = $destY + $destHeight;
 		if($dyplush >= $dimImage[1]) $destY -= $dyplush - $dimImage[1];
 
 		imagecopy($myImageDest,$myImageSrc,$destX,$destY,$srcX,$srcY,$width,$height);
  	}  }   function copyAndPasteDeform($myImageSrc,$myImageDest,$dimImage,$strength) { 
 	$maxNoise = rand(intval($strength/2),intval($strength*5));
 	if($maxNoise == 0) $maxNoise = 1;
 	for($i = 0 ;
 $i < $maxNoise ;
 $i++) { 		$width = rand(5,intval($dimImage[0]/5));
 		$height = rand(5,intval($dimImage[1]/5));
 		$srcX = rand(0,$dimImage[0]-5);
 		$srcY = rand(0,$dimImage[1]-5);
 
 		$destWidth = rand($width,intval(2.5*$width));
 		$destHeight = rand($height,intval(2.5*$height));
   		$ratioX = $destWidth/$width;
 		$ratioY = $destHeight/$height;
 		$destX = rand($srcX - intval(5*$ratioX),$srcX + intval(5*$ratioX));
 		$destY = rand($srcY - intval(5*$ratioY),$srcY + intval(5*$ratioY));
 
 		$xplusw = $srcX + $width;
 		if($xplusw >= $dimImage[0]) $width -= $xplusw - $dimImage[0];
 		$yplush = $srcY + $height;
 		if($yplush >= $dimImage[1]) $height -= $yplush - $dimImage[1];
 
 		if($destX < 0) $destX = 0;
 		if($destY < 0) $destY = 0;
 
 		$dxplusw = $destX + $destWidth;
 		if($dxplusw >= $dimImage[0]) $destX -= $dxplusw - $dimImage[0];
 		$dyplush = $destY + $destHeight;
 		if($dyplush >= $dimImage[1]) $destY -= $dyplush - $dimImage[1];
 
  		imagecopyresized($myImageDest,$myImageSrc,$destX,$destY,$srcX,$srcY,$destWidth,$destHeight,$width,$height);
 	}  }  function check_extension($file,$extensions) {  	$extension = strrchr($file, '.');

 	return in_array($extension, $extensions);
  }

 function longLinenoise($myImage,$dimImage,$strength,$freq) { 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	$indexBlack = imagecolorexact($myImage,0,0,0);
 
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$freq) >= 20) { 
 			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 
  				if(isCloseColor($myImage,$currColor,255,255,255,10)) continue;
 
 				$nb_lignes = rand(1,intval($strength/10));
 				$length = rand(intval($strength/5),$strength);
 				drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$length);
 			} 		} 	} }   function drawLignes($myImage,$dimImage,$color,$x,$y,$nb_lignes,$max_length) { 	for($i = 0 ;
 $i < $nb_lignes ;
 $i++) { 		$xmin = $x-$max_length;
 		if($xmin < 0) $xmin = 0;
 		$ymin = $y-$max_length;
 		if($ymin < 0) $ymin = 0;
 		$xmax = $x+$max_length;
 		if($xmax > $dimImage[0] - 1) $xmax = $dimImage[0] - 1;
 		$ymax = $y+$max_length;
 		if($ymax > $dimImage[1] - 1) $ymax = $dimImage[1] - 1;
 		$x2 = rand($xmin,$xmax);
 		$y2 = rand($ymin,$ymax);
 		while(sqrt(pow($x2-$x,2) + pow($y2-$y,2)) > $max_length) { 			$xmin = $x-$max_length;
 			if($xmin < 0) $xmin = 0;
 			$ymin = $y-$max_length;
 			if($ymin < 0) $ymin = 0;
 			$xmax = $x+$max_length;
 			if($xmax > $dimImage[0] - 1) $xmax = $dimImage[0] - 1;
 			$ymax = $y+$max_length;
 			if($ymax > $dimImage[1] - 1) $ymax = $dimImage[1] - 1;
 			$x2 = rand($xmin,$xmax);
 			$y2 = rand($ymin,$ymax);
 		} 		imageline($myImage,$x,$y,$x2,$y2,$color);
 		$x = $x2;
 		$y = $y2;
 	} }    function invertnoise($myImage,$dimImage,$strength) { 	$indexBlack = imagecolorexact($myImage,0,0,0);
 	if($indexBlack == -1) $indexBlack = imagecolorclosest($myImage,0,0,0);
 
 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	if($indexWhite == -1) $indexWhite = imagecolorclosest($myImage,255,255,255);
 
 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,100) >= $strength) {  			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 				if($currColor == $indexBlack) imagesetpixel($myImage,$i,$j,$indexWhite);
 				if($currColor == $indexWhite) imagesetpixel($myImage,$i,$j,$indexBlack);
 			} 		} 	} }

  sub deuxiemePassage {  	my $ligne;
 	my $indLigne;
 	my $lastRatio;
 	my $compteur = 0;
 	my $poeme = undef;
 
 	while(<fREC>) { 
 		chomp;
 		$ligne = $_;
 		my @Ligne = split(/\s+/,$ligne);
    
  			if($poeme) { 				&retournementPoetivites ($poeme);
 			} 
 			$poeme = $1;
 
 			$compteur++;
  			print fLOG "\tPoeme " . $compteur . " : " . $poeme  . "\n";
 			$indLigne = 0;
 			$lastRatio = undef;
 			next;
 		} 
  		my $nbMotsLigne = scalar(@Ligne);
 
  		if($nbMotsLigne == 0) { 			next;
 		} 
 		my $mot;
 
  		$indLigne++;
 
  		for(my $indMot = 1 ;
 $indMot <= $nbMotsLigne ;
 $indMot++) { 
 			$mot = $Ligne[$indMot-1];
 
  			if(exists($Symboles{$mot})) { 				next;
 			} 			if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { 				next;
 			} 
  			$mot = &nettoieMot($mot);
 
  
 			my $poetivite = 0;
 
  			$poetivite += max(values(%Mots)) / $Mots{$mot};
 
  			my $nbLettresMot = length($mot);
 			$poetivite *= abs($nbLettresMot - $Recueil{$poeme}{"longueur_mot_moyenne"});
 
  			$poetivite *= 1 + $indLigne / $Recueil{$poeme}{"nombre_lignes"};
 
  			$poetivite *= 1 + $indMot / $nbMotsLigne;
 
  			my @Mot = split(//,$mot);
 			my $nbVoyelles = 0;
 			my $nbConsonnes = 0;
 			my $nbSymboles = 1;
  			foreach my $lettre (@Mot) { 				if (exists $Voyelles{$lettre}) { 					$Voyelles{$lettre}++;
 					$nbVoyelles ++;
 				} 				else { 					if (exists $Consonnes{$lettre}) { 						$Consonnes{$lettre}++;
 						$nbConsonnes ++;
 					} 					else { 						if (exists $Symboles{$lettre}) { 							$Symboles{$lettre}++;
 							$nbSymboles ++;
 						} 						else { 							print "Lettre $lettre non identifiable dans $mot à la ligne $indLigne\n";
 							next;
 						} 					} 				} 			} 			if($mot =~ m/au/) {$nbVoyelles--;
} 
  			my $ratio = $nbVoyelles / $nbLettresMot;
 
 			if($ratio == 0 || $ratio == 1) { 				$poetivite *= $nbLettresMot;
 				if($lastRatio) { 					if(($lastRatio - $ratio) == 0) { 						$poetivite *= $nbLettresMot * $nbLettresMot;
 					} 				} 			} 			else { 				if($ratio < (1/3)) { 					$poetivite *= 1/$ratio;
 					if($lastRatio) { 						if($ratio <= $lastRatio) { 							$poetivite *= $lastRatio / $ratio + 1;
 						} 					} 				} 				else { 					if($ratio > (2/3)) { 						$poetivite *= 1/(1-$ratio);
 						if($lastRatio) { 							if($ratio >= $lastRatio) { 								$poetivite *= $ratio / $lastRatio + 1;
 							} 						} 					} 					else {$poetivite *= 1;
} 				} 			} 			$lastRatio = $ratio;
 
  
 			if($mot =~ /'/) {$nbSymboles--;
} 			$poetivite *= 1 + $nbSymboles;
 
 			if (exists $Symboles{$Mot[0]}) { 				$poetivite *= 1 + $nbSymboles;
 			} 
  			$poetivite = int($poetivite + 0.5);
 			push(@{$Recueil{$poeme}{"Mots"}{$mot}},$poetivite);
 
 		} 
 	} 
  	&retournementPoetivites($poeme);
  }

 sub premierPassage {  	my $ligne;
 	my $compteur = 0;
 	my $poeme = undef;
 	my $nbMots;
 	my $lengthCumul;
 
 	while(<fREC>) { 
 		chomp;
 		$ligne = $_;
 		my @Ligne = split(/\s+/,$ligne);
     			if($poeme) { 				$Recueil{$poeme}{"longueur_mot_moyenne"} = $lengthCumul / $nbMots;
   			} 
 			$poeme = $1;
 
 			$compteur++;
  			$Recueil{$poeme}{"nombre_lignes"} = 0;
 			$nbMots = 0;
 			$lengthCumul = 0;
 			next;
 		} 
  		my $nbMotsLigne = scalar(@Ligne);
 
  		if($nbMotsLigne == 0) { 			next;
 		}  		else { 			$nbMots += $nbMotsLigne;
 		} 
  		$Recueil{$poeme}{"nombre_lignes"}++;
 
  		foreach my $mot (@Ligne) { 
  			if(exists($Symboles{$mot})) { 				$nbMotsLigne--;
 				next;
 			} 			if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { 				$nbMotsLigne--;
 				next;
 			} 
  			$mot = &nettoieMot($mot);
 
  			if(!exists($Mots{$mot})) { 				$Mots{$mot} = 1;
 			} else { 				$Mots{$mot}++;
 			} 
  			$lengthCumul += length($mot);
 
 		} 
 	}   	$Recueil{$poeme}{"longueur_mot_moyenne"} = $lengthCumul / $nbMots;
   
 	close fREC;
 
  	my $freqMax = 0;
 	my $motMax;
 	while((my $mot,my $freq) = each(%Mots)) { 		if($freq > $freqMax) { 			$motMax = $mot;
 			$freqMax = $freq;
 		} 	}   
 }