i n V i d a t i o n

ci-dessous
3 représentations formelles du principe de réalité
[extraits]
mises en oeuvre dans le cadre du séminaire de
"fragmentation déraillée & déschématisation sociale"

1.

tout le monde lit le source au même moment
tu foires une balise
et
alors tu précipites
le chaos

2.

ma tête en tombe dans le plasma
là il se relativise
"tu vas prendre cher" il me dit
on parle de pâte
de mer
les golfes clairs
etc

tout ce ramassis d'excitations

c'est vrai c'est toujours mieux que "sans-oeuvres"
[she said]

je ferme les yeux
l'air extérieur me caresse
à chaque fois je suis ailleurs
je-
peut-on se redéfinir ou alors créer une autre extension
de soi
le papier parle de filamentation lui
je trouve ça joli
comme cette mer de peignes
me surprend à espérer des rivages

toutefois j'ai un nom
j'en parlerai le moment venu
pardon : je lui laisserai la parole

3.

augmentation soudaine du nombre de variables

propension à osciller sur des impulsions caféines

j'alimente cette reprise ridicule
postulant que le freinage convulsif de l'être devient vite conséquent
dans l'environnement néant

je ne garantis plus rien après
à terme
à ce soir
l'entrée est à droite
après le rideau

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

Entité sioniste en Cisjordanie le soleil se soulève les abords de Seine Paris crache : entité sioniste en Cisjordanie il entame des négociations accélérées pour la formation d'un gouvernement de coalition au bout de sa rue, la rue du Temple. Il négocie une jupe et un croissant. Il longe l'hôpital Hassadah dans les yeux de la fille � parfaitement accessible, déjà ouverte. Il suffit de parler, et c'est un réflexe de survie qu'on cultive � ils sont niais et innocents. Les dons d'organe ne sont qu'un exemple d'une collaboration médicale croissante qui colore un peu d'espoir cette région explosive qu'est Danger. « MINISRAEL : Tout Israël en miniature ! » Israël en carton miniature dans sa tête qui vient colorer la fille de sa vie caramel à passer ses yeux dans les beef-steaks décolorés au sol, giclés des bus. La fille est parisienne et très sensible, elle s'écarte. Elle est le paysage d'Israël revenu d'ailleurs. La terre d'asile d'Israël. �a va chier maintenant, ce qu'il s'était dit en arrivant ici à dix-huit ans.

Je t'aime, est-ce que tu comprends comme je t'aime et comme je te connais depuis toujours. N'écoute pas mes mots, est-ce que tu comprends comme je t'aime, ne m'écoute surtout pas, garde juste ma silhouette et comment je t'ai regardé ; je t'aime déjà. Est-ce que tu le comprends. Est-ce que tu te demandes comme moi ce que ça veut dire, et comment par périodes le chemin finit par se raccourcir, comme on est des erreurs étranglées. Je t'aime, à quoi tu penses. Est-ce que tu penses à moi. Est-ce que tu y penses comme j'y pense, abîmée à l'extérieur, le corps ouvert au vent, engouffré de la ville. Je t'aime est-ce que tu m'as redessinée ou est-ce que tu penses à moi sans avoir mis de mots là-dessus sans m'avoir redessinée, je t'aime, je t'aime déjà est-ce que tu penses à moi et comment tu y penses, est-ce que tu penses que les corps s'interchangent, est-ce que tu penses que nous valons une somme d'argent, de dons et de talents, d'argent, ou est-ce que tu penses qu'il n'y a que des âmes je t'aime est-ce que tu comprends, est-ce que tu penses à moi, comment tu y penses, où es-tu maintenant, est-ce que tu penses à moi, est-ce que tu gardes comme moi le souvenir d'une rupture avant même qu'on se soit connus, est-ce que tu m'a redessinée est-ce que tu as fait cette erreur alors que moi je t'ai toujours pensé avec humilité sans rien garder d'autre que tes paroles ce que tu montrais c'est-à-dire pas grand-chose. Est-ce que tu as eu cette humilité de garder pas grand-chose de moi, comme moi je n'ai rien pris de toi, sans me redessiner, est-ce que tu n'as jamais vu rien d'autre en moi que les bribes que j'ai données et mes yeux c'est-à-dire pas grand-chose, ou est-ce que tu as eu besoin de me réinventer pour mieux masquer ta solitude est-ce que tu m'aimes je t'aime déjà est-ce que tu penses à moi et comment tu y penses et qui tu es parce qu'on ne se connaît pas. Est-ce que tu te satisfais de ça ou est-ce que tous les soirs tu penses à ce truc qu'on a laissé et ta stupidité, ton âme étiolée qui joue, qui est suspecte et qui a peur, est-ce que tu comprends que tu as peur et moi aussi, est-ce que tu comprends que je me suis vue dans tes yeux, est-ce que tu comprends qu'on est pareil, tu le sais n'est-ce-pas, bien sûr que tu le sens. Est-ce que tu y penses, ou est-ce que tu penses juste à mon cul et tes statistiques dans les chemins de ta banque. Est-ce que tu es stupide, est-ce que tu es comme tous les autres, est-ce que tu es surfait, est-ce que tu penses qu'est-ce que tu penses est-ce que tu sais que je brûle, que je brûle. Est-ce que tu sais que je te laisserai jamais venir en moi. Parce que je brûle et que toi t'as même pas la conviction de brûler devant moi. Est-ce que tu penses que je vois pas tout. Est-ce que tu penses que je te juge ? Tu sais c'était rien, je juge personne, sûrement moins que d'autres, alors m'écoute pas, bien sûr que je te juge pas, tu connais le all for one de James Brown, c'est extraordinaire, c'est un patchwork, le James nous refourgue des passages connus, mais il y a des instants à hauts degrés tu sais je t'aime ; mine de rien et t'es qu'un minable tu sais moi qui je suis pour dire ça ? rien tu sais, on s'est vus tellement minables dans nos yeux, tu sais le champagne, tu sais comme je savais rien dire, tu sais comme on se connaît pas est-ce que tu penses à moi tu sais pas, tu sais rien du tout je t'aime. Tu penses qu'on peut se reposer la terre entière les genoux abîmés dans l'inconnu ? T'es prêt à faire ce sacrifice toi ? Ou est-ce que tu penses qu'on est juste bons à baiser toi et moi, à être des misérables caricatures d'êtres humains et d'amour, à se colporter se radiographer dans des lits blancs, est-ce que tu penses qu'on est des photocopies ? tu sais je t'aime point et tu sais je sais rien, je sais juste que j'ai battu et que t'es bon à abattre parce que ça me fait plaisir parce que ça m'évite de penser à toi et à moi-même. Est-ce que t'as battu toi-aussi, est-ce que tu penses à moi, et comment, est-ce que tu me redessines, ou est-ce que tu as su, et qui tu es, et comment tu vis, est-ce que tu pleures des fois. Je t'aime. Tu sais c'est fou comme on s'abîme et qu'on cherche des choses qui nous ressemblent et qui nous rassemblent, tu sais c'est fou comme les gens ont peur ils ont de la bave blanche à la place du c�ur ils aiment épileptiquement tu sais c'est fou comme chacun vibre sans le dire à l'autre et ce qu'on se rate, et comme on se dit et qui tu es toi. Je t'aime. Tu sais, je vais penser toute la nuit comme ça, tu sais, est-ce que tu penses à moi et comment. Et comment tu y penses, c'est surtout ça l'important, comment. Tu sais je suis une malade j'ai des yeux fiévreux tu vivrais pas bien avec moi, tu sais que j'ai les yeux bioniques ? Que je te vois comme tu t'es jamais vu ? que je suis tellement sensible que je vois les gens comme jamais ils se sont vus ? Tu sais que ça fait mal ? Que je peux te faire du mal ? Je te pardonnerai pas, c'est pour ça que je suis partie, t'as dû te retrouver comme un con, je suis désolée c'était pas le but. Je t'ai envoyé bouler au troisième quart d'heure parce que les façades m'insupportent, tu sais j'aime pas le faux et je sais que t'es pas faux, m'écoute pas je voulais te faire peur, je voulais que tu t'en ailles le plus loin possible, très loin, tu sais je t'aime pas, va pas croire, je t'aime pas du tout, non, vraiment pas. T'as tellement peur tu sais, tu vis tellement pas tu sais, tu connais James Brown ? All for one ? Tu penses que des gens peuvent se rassembler et se foutre leurs dix mains sur les poignets en beuglant all for one ? Genre ils s'aiment ? Tu penses ou pas. T'es qui toi d'abord, je me souviens pas de ton nom. Si je sais comment tu t'appelles, je retiens tout, je suis une malade, tu peux pas savoir comme ma vie est une enquête et comme chaque personne ne s'oublie jamais je vis avec des fantômes, tu sais ça toi ? Oui tu sais, t'as vécu en Israël avec des cadavres de bus, t'étais un malade, t'avais ta jeunesse, là ; à baiser partout comme un porc des fois que la vie se finisse trop vite. T'es un chien, tu sais ça ? Tu me regardes comme un chien. Tu me regardes trop, là, tout de suite, tu transpires. Je t'aime, mais faut voir comme je pourrais te détraquer, tu sais j'ai pas l'oxygène facile, tu dois savoir ça toi : on m'a foutu des bombes à chaque clavier, dans les poubelles, et dans mes bus, tu sais. Tu penses à moi ou bien ? T'es qui ? T'es qui derrière tes sourires ? Est-ce que tu penses, est-ce que tu pleures, de quoi, est-ce que les êtres te font mal, est-ce que tu vis encore ou est-ce que t'es une statue, est-ce que tu as roulé comme une pierre ou est-ce que tu es si meurtri que tu pourrais offrir ta vision aux aveugles, qui tu es, est-ce que tu partages, est-ce que tu vis, est-ce que t'es frappadingue ou simplement réfrigéré dans un parking, le parking de ta vie sans rien avoir vécu, est-ce que tu te gares ou est-ce que tu vis à 180, qu'est-ce que tu vis je voudrais savoir, je voudrais tellement savoir tout de toi, je voudrais tellement être là pour toi, te recueillir là et que tu te reposes enfin, j'aimerais tellement que tu t'oublies et que tu oublies mon image et ce qui a pu te paraître de moi, tu sais on s'aime déjà et les humains c'est de la connerie, tu le sais bien toi sous les bombes, tu le sais bien avec tes bus. Tu sais bien tout ça. On sait bien ce qui nous arrive. Tu connais Janis Joplin ? Tu connais quoi ? Tu connais rien. T'es là. Interrogatif. � guetter le meilleur chez les autres. Et c'est pour ça que je suis partie. Tu guettais le meilleur chez moi. Mais c'est tellement facile d'être extraordinaire. Moi je cherche une personne qui renifle mes ordures. Je sais pas si tu peux comprendre.

Vacuité
Intrinsèque
De
l'Etre

La joue aplatie droite sur l'oreiller - suite.

Donc posée en tranches sur un banc elle compte ses doigts.

N'avons-nous donc connu personne
pour écrire ici comme si
les lendemains
dépendaient d'un mot

Elle dira jusqu'au bout au manège (Saint-Paul) que la

la fuite et le sale temps
du type à ma gauche
me frappe de son crâne
dans les métros replié le drame
du t'as pas une clope perpétuel
sur le banc des phalanges crasses
les dérives sèches
de demain m'indiffère

Il n'y a pour elle

qu'un souffle à faire
pour que l'autrefois minute
les triples contractions
des familistères
triple amputation
des racines secondaires
le cercueil rouillé des chauves
syntaxes borgnes
des illuminés
à cafard sur le mystère
des façades obscures.

Jusqu'ici les choses sont stériles.

Germination des paradoxes
au distique évidé
l'hémistiche limaçon
gène de l'érosion
dans les seins mécaniques
d'humides congrégations
surface d'extrême-onction
de la matière livre
trépanation du canal
semi-circulaire
affectation de l'ordinaire
que l'on ne pas
solution crevée
des fracas grillagés
beuglement des cygnes
costumes de crépuscule
infection amorphe
des chiens tétraptères
des crieurs ordinaires
organe des séismes
dans les fraudes congelées
utérus blanchâtres
brumes synthétiques
cycles encaustiqués
de la poire sébacée
train de sentiments
que l'on n'éprouve pas
sonorités siccatives
des publicités polies
carcasses des becs béants
au milieu d'un temps sans bords.

Elle s'est énervée.

N'avons-nous donc connu personne
pour frémir ici comme si
les lendemains
dépendaient d'un sale mot
ivre et borgne
saluer le chômage crayeux
des cicatrices de paille
les soupirs
posés en taches rondes
sur les balafres des ruptures
jusqu'à l'obtention d'une plaie ordinaire.

Elle ne voudrait pas un jour qu'on pense que c'était une histoire de rupture, mais qu'on pense que c'était plutôt une histoire de pollution juste histoire que les choses ne disent plus rien. Que la balance s'obscurcisse. Que personne ne s'en sente touché, que personne ne reluise.

Vacuité
Intrinsèque
De
l'Etre

 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";

 sub poedilation { 	my $poeme = $_[0];
 	my $degre = $_[1];
 
  	open fPOE, ">" . $poeme . ".txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 	open fPTE, ">" . $poeme . "_pte.txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 
  	foreach my $ligne (sort( {$a <=> $b} keys(%{$SampledRecueil{$poeme}}))) { 
  		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 0) { 			print fPOE "\n";
 			next;
 		} 
 		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 1) { 			print fPOE ${$SampledRecueil{$poeme}{$ligne}{"mots"}}[0] . "\n";
 			print fPTE ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0] . "\n";
 			next;
 		} 
 		my @finalLine;
 		my @finalPoe;
  		for (my $i = 0 ;
 $i < $degre ;
 $i++) { 
 			my @newLine;
 			my @newPoetivites;
 
  			while(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 1) { 
 				my $motAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}});
  				my $poeAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}});
  				my $interpol = int(($poeAvant + ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0]) / 2);
 
  				if(exists($Poetivites{$poeme}{$interpol})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol}})))]);
 					push(@newPoetivites,$interpol);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol-1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol-1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol-1}})))]);
 					push(@newPoetivites,$interpol-1);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol+1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol+1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol+1}})))]);
 					push(@newPoetivites,$interpol+1);
 					next;
 
 				} 
  				my @poetivikeys = sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}));
 				my $avant = $poetivikeys[0];
 				my $apres = 0;
 				foreach my $poetivitest (@poetivikeys) { 
 					next if($poetivitest == $avant);
 					if($poetivitest > $interpol) { 						$apres = $poetivitest;
 						last;
 					} 					$avant = $poetivitest;
 
 				} 
 				if(($interpol - $avant) > ($apres - $interpol)) { 					push(@newLine,${$Poetivites{"recueil"}{$apres}}[int(rand(scalar(@{$Poetivites{"recueil"}{$apres}})))]);
  					push(@newPoetivites,$apres);
 				} else { 					push(@newLine,${$Poetivites{"recueil"}{$avant}}[int(rand(scalar(@{$Poetivites{"recueil"}{$avant}})))]);
  					push(@newPoetivites,$avant);
 				} 
 			} 
 			if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 0) { 				push(@newLine,shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}));
 				push(@newPoetivites,shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}}));
 			} 			@{$SampledRecueil{$poeme}{$ligne}{"mots"}} = @newLine;
 			@finalLine = @newLine;
 			@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}} = @newPoetivites;
 			@finalPoe = @newPoetivites;
 
 		} 
 		foreach my $motfinal (@finalLine) { 			print fPOE $motfinal . " ";
 		} 		foreach my $poefinale (@finalPoe) { 			print fPTE $poefinale . " ";
 		} 		print fPOE "\n";
 		print fPTE "\n";
 
 	} 
 	print "\n\npoedilation OK ! (voir " . $poeme . ".txt, " . $poeme . "_pte.txt pour le spectre)\n";
 	close fPOE;
 	close fPTE;
 
 }

 sub poedilation { 	my $poeme = $_[0];
 	my $degre = $_[1];
 
  	open fPOE, ">" . $poeme . ".txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 	open fPTE, ">" . $poeme . "_pte.txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 
  	foreach my $ligne (sort( {$a <=> $b} keys(%{$SampledRecueil{$poeme}}))) { 
  		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 0) { 			print fPOE "\n";
 			next;
 		} 
 		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 1) { 			print fPOE ${$SampledRecueil{$poeme}{$ligne}{"mots"}}[0] . "\n";
 			print fPTE ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0] . "\n";
 			next;
 		} 
 		my @finalLine;
 		my @finalPoe;
  		for (my $i = 0 ;
 $i < $degre ;
 $i++) { 
 			my @newLine;
 			my @newPoetivites;
 
  			while(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 1) { 
 				my $motAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}});
  				my $poeAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}});
  				my $interpol = int(($poeAvant + ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0]) / 2);
 
  				if(exists($Poetivites{$poeme}{$interpol})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol}})))]);
 					push(@newPoetivites,$interpol);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol-1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol-1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol-1}})))]);
 					push(@newPoetivites,$interpol-1);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol+1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol+1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol+1}})))]);
 					push(@newPoetivites,$interpol+1);
 					next;
 
 				} 
  				my @poetivikeys = sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}));
 				my $avant = $poetivikeys[0];
 				my $apres = 0;
 				foreach my $poetivitest (@poetivikeys) { 
 					next if($poetivitest == $avant);
 					if($poetivitest > $interpol) { 						$apres = $poetivitest;
 						last;
 					} 					$avant = $poetivitest;
 
 				} 
 				if(($interpol - $avant) > ($apres - $interpol)) { 					push(@newLine,${$Poetivites{"recueil"}{$apres}}[int(rand(scalar(@{$Poetivites{"recueil"}{$apres}})))]);
  					push(@newPoetivites,$apres);
 				} else { 					push(@newLine,${$Poetivites{"recueil"}{$avant}}[int(rand(scalar(@{$Poetivites{"recueil"}{$avant}})))]);
  					push(@newPoetivites,$avant);
 				} 
 			} 
 			if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 0) { 				push(@newLine,shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}));
 				push(@newPoetivites,shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}}));
 			} 			@{$SampledRecueil{$poeme}{$ligne}{"mots"}} = @newLine;
 			@finalLine = @newLine;
 			@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}} = @newPoetivites;
 			@finalPoe = @newPoetivites;
 
 		} 
 		foreach my $motfinal (@finalLine) { 			print fPOE $motfinal . " ";
 		} 		foreach my $poefinale (@finalPoe) { 			print fPTE $poefinale . " ";
 		} 		print fPOE "\n";
 		print fPTE "\n";
 
 	} 
 	print "\n\npoedilation OK ! (voir " . $poeme . ".txt, " . $poeme . "_pte.txt pour le spectre)\n";
 	close fPOE;
 	close fPTE;
 
 }

 sub retournementPoetivites { 	my $poeme = $_[0];
 	foreach my $mot (keys(%{$Recueil{$poeme}{"Mots"}})) {  		my $poetivite = 0;
 		my $nbpoetivites = scalar(@{$Recueil{$poeme}{"Mots"}{$mot}});
  		while( scalar(@{$Recueil{$poeme}{"Mots"}{$mot}}) > 0) { 			$poetivite += shift(@{$Recueil{$poeme}{"Mots"}{$mot}});
 		}  		$poetivite = int($poetivite / $nbpoetivites);
 
   		$Recueil{$poeme}{"Mots"}{$mot} = $poetivite;
  		push(@{$Poetivites{$poeme}{$poetivite}},$mot);
  		push(@{$Poetivites{"recueil"}{$poetivite}},$mot);
 
 	}  }    sub nettoieMot {  	my $mot = $_[0];
 
 	while($mot =~ m/(\.|,)$/) {chop $mot;
}  
 	return $mot;
  }

  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";
 
 	} 
 }

 function isCloseColor($myImage,$myColor,$rref,$gref,$bref,$rmax) { 	$myRGBColor = array();
 	$myRGBColor = imagecolorsforindex($myImage,$myColor);
 	return (sqrt(pow($myRGBColor["red"]-$rref,2)+pow($myRGBColor["green"]-$gref,2)+pow($myRGBColor["blue"]-$bref,2)) < $rmax);
 }   function horizonoise($myImage,$dimImage,$strength) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[1] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[0] ;
 $j++) {
 			if(rand(1,100) >= $strength) { 				$currColor = imagecolorat($myImage,$j,$i);
 			} else { 				imagesetpixel($myImage,$j,$i,$currColor);
 			}
 		} 		if($i != $dimImage[1] - 1) $currColor = imagecolorat($myImage,0,$i+1);
 	} }   function vertinoise($myImage,$dimImage,$strength) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,100) >= $strength) { 				$currColor = imagecolorat($myImage,$i,$j);
 			} else { 				imagesetpixel($myImage,$i,$j,$currColor);
 			} 		} 	if($i != $dimImage[0] - 1) $currColor = imagecolorat($myImage,$i+1,0);
 	} }   function detoureAndPaste($myImage,$myImageOrigin,$dimImage) { 	$backColor = imagecolorat($myImageOrigin,1,1);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			$currColor = imagecolorat($myImageOrigin,$i,$j);
 			if($currColor != $backColor) { 				$aRGB = array();
 				$aRGB = imagecolorsforindex($myImageOrigin,$currColor);
 				imagesetpixel($myImage,$i,$j,imagecolorclosest($myImage,$aRGB["red"],$aRGB["green"],$aRGB["blue"]));
 			} 		} 	} }   function licqefacnoise($myImage,$dimImage) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$dimImage[1]) >= intval($j*1.0)) { 				$currColor = imagecolorat($myImage,$i,$j);
 			} else { 				imagesetpixel($myImage,$i,$j,$currColor);
 			} 		} 	if($i != $dimImage[0] - 1) $currColor = imagecolorat($myImage,$i+1,0);
 	} }   function linenoise($myImage,$dimImage,$strength,$freq) { 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	if($indexWhite == -1) $indexWhite = imagecolorclosest($myImage,255,255,255);
 	$indexBlack = imagecolorexact($myImage,0,0,0);
 	if($indexBlack == -1) $indexBlack = imagecolorclosest($myImage,0,0,0);
 
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$freq) >= 2) { 
 			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 
    					if($currColor == $indexWhite) continue;
  
 				$nb_lignes = rand(1,$strength);
 				drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$strength);
 			} 		} 	} }

 function isCloseColor($myImage,$myColor,$rref,$gref,$bref,$rmax) { 	$myRGBColor = array();
 	$myRGBColor = imagecolorsforindex($myImage,$myColor);
 	return (sqrt(pow($myRGBColor["red"]-$rref,2)+pow($myRGBColor["green"]-$gref,2)+pow($myRGBColor["blue"]-$bref,2)) < $rmax);
 }   function horizonoise($myImage,$dimImage,$strength) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[1] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[0] ;
 $j++) {
 			if(rand(1,100) >= $strength) { 				$currColor = imagecolorat($myImage,$j,$i);
 			} else { 				imagesetpixel($myImage,$j,$i,$currColor);
 			}
 		} 		if($i != $dimImage[1] - 1) $currColor = imagecolorat($myImage,0,$i+1);
 	} }   function vertinoise($myImage,$dimImage,$strength) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,100) >= $strength) { 				$currColor = imagecolorat($myImage,$i,$j);
 			} else { 				imagesetpixel($myImage,$i,$j,$currColor);
 			} 		} 	if($i != $dimImage[0] - 1) $currColor = imagecolorat($myImage,$i+1,0);
 	} }   function detoureAndPaste($myImage,$myImageOrigin,$dimImage) { 	$backColor = imagecolorat($myImageOrigin,1,1);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			$currColor = imagecolorat($myImageOrigin,$i,$j);
 			if($currColor != $backColor) { 				$aRGB = array();
 				$aRGB = imagecolorsforindex($myImageOrigin,$currColor);
 				imagesetpixel($myImage,$i,$j,imagecolorclosest($myImage,$aRGB["red"],$aRGB["green"],$aRGB["blue"]));
 			} 		} 	} }   function licqefacnoise($myImage,$dimImage) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$dimImage[1]) >= intval($j*1.0)) { 				$currColor = imagecolorat($myImage,$i,$j);
 			} else { 				imagesetpixel($myImage,$i,$j,$currColor);
 			} 		} 	if($i != $dimImage[0] - 1) $currColor = imagecolorat($myImage,$i+1,0);
 	} }   function linenoise($myImage,$dimImage,$strength,$freq) { 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	if($indexWhite == -1) $indexWhite = imagecolorclosest($myImage,255,255,255);
 	$indexBlack = imagecolorexact($myImage,0,0,0);
 	if($indexBlack == -1) $indexBlack = imagecolorclosest($myImage,0,0,0);
 
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$freq) >= 2) { 
 			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 
    					if($currColor == $indexWhite) continue;
  
 				$nb_lignes = rand(1,$strength);
 				drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$strength);
 			} 		} 	} }

 sub poedilation { 	my $poeme = $_[0];
 	my $degre = $_[1];
 
  	open fPOE, ">" . $poeme . ".txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 	open fPTE, ">" . $poeme . "_pte.txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 
  	foreach my $ligne (sort( {$a <=> $b} keys(%{$SampledRecueil{$poeme}}))) { 
  		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 0) { 			print fPOE "\n";
 			next;
 		} 
 		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 1) { 			print fPOE ${$SampledRecueil{$poeme}{$ligne}{"mots"}}[0] . "\n";
 			print fPTE ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0] . "\n";
 			next;
 		} 
 		my @finalLine;
 		my @finalPoe;
  		for (my $i = 0 ;
 $i < $degre ;
 $i++) { 
 			my @newLine;
 			my @newPoetivites;
 
  			while(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 1) { 
 				my $motAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}});
  				my $poeAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}});
  				my $interpol = int(($poeAvant + ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0]) / 2);
 
  				if(exists($Poetivites{$poeme}{$interpol})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol}})))]);
 					push(@newPoetivites,$interpol);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol-1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol-1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol-1}})))]);
 					push(@newPoetivites,$interpol-1);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol+1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol+1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol+1}})))]);
 					push(@newPoetivites,$interpol+1);
 					next;
 
 				} 
  				my @poetivikeys = sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}));
 				my $avant = $poetivikeys[0];
 				my $apres = 0;
 				foreach my $poetivitest (@poetivikeys) { 
 					next if($poetivitest == $avant);
 					if($poetivitest > $interpol) { 						$apres = $poetivitest;
 						last;
 					} 					$avant = $poetivitest;
 
 				} 
 				if(($interpol - $avant) > ($apres - $interpol)) { 					push(@newLine,${$Poetivites{"recueil"}{$apres}}[int(rand(scalar(@{$Poetivites{"recueil"}{$apres}})))]);
  					push(@newPoetivites,$apres);
 				} else { 					push(@newLine,${$Poetivites{"recueil"}{$avant}}[int(rand(scalar(@{$Poetivites{"recueil"}{$avant}})))]);
  					push(@newPoetivites,$avant);
 				} 
 			} 
 			if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 0) { 				push(@newLine,shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}));
 				push(@newPoetivites,shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}}));
 			} 			@{$SampledRecueil{$poeme}{$ligne}{"mots"}} = @newLine;
 			@finalLine = @newLine;
 			@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}} = @newPoetivites;
 			@finalPoe = @newPoetivites;
 
 		} 
 		foreach my $motfinal (@finalLine) { 			print fPOE $motfinal . " ";
 		} 		foreach my $poefinale (@finalPoe) { 			print fPTE $poefinale . " ";
 		} 		print fPOE "\n";
 		print fPTE "\n";
 
 	} 
 	print "\n\npoedilation OK ! (voir " . $poeme . ".txt, " . $poeme . "_pte.txt pour le spectre)\n";
 	close fPOE;
 	close fPTE;
 
 }