i n v i d a t i o n    v5

___________________________________________________________________________________________________________
__ lab transmedia numérique __ grappe de cerveaux connectés __ multiprocessing poétique __ zone de scrypt.#rt __

__ avec __
g.cl4renko
Mathias Richard
Nikola Akileus
Awkwardist

__ arrière-plan __
compendium invidation_v[<5] avec AC Hello, g.Cl4renko, Mathias Richard, Awkwardist & Nikola Akileus

___________________________________________________________________________________________________________
__ digital transmedia lab __ brain cluster __ poetic multiprocessing __ scrypt.#rt area __

__ featuring __
g.cl4renko
Mathias Richard
Nikola Akileus
Awkwardist

__ background __
compendium invidation_v[<5] feat. AC Hello, g.Cl4renko, Mathias Richard, Awkwardist & Nikola Akileus


___________________________________________________________________________________________________________
webscrypted by atomeases __ powered by PluXml
now on hystereodrome
___________________

Mushin
R3PLYc4N
Jim Delarge
Tajiaphragm / Memory 3
Ichtyor Tides


Où est
l'arbre où germent
les oiseaux ?







(thru)Exorpheyes





renâcler toujours re
me regarde l'inanité
dû de réclamer se
mais ne puisse après
que regretter de



prayer4(+1)death





back in business, huh ?



suBrept-YSH





terminaissance

je suis un bateau qui prend l'eau de toute part
un logiciel brisé
un écran (défectueux)
un affectueux délaissé
un chanteur sans public
un rêveur sans ciel (sans horizons)
un voyageur assigné à résidence
un guerrier sans ennemis
un convivial sans amis
un buveur de bar sans complices
un homme d'action détraqué
une intelligence bugguée
une existence malheureuse



ce que ce monde a à offrir, c'est une connexion Internet

j'ai été conçu pour être oublié

Il faut adopter les teintes sèches du confort.
Il faut être un battement de cur moelleux et superficiel.
Il faut être une grasse existence, ponctuée de verrues de béatitude.
Il faut être attendri par des peintures.
Il faut être organisé et vorace.
Il faut supprimer les femmes et les enfants.
Il faut être un ton.
Il faut être un grand triangle avec une façade qui se nettoie soigneusement.
Il faut faire croire qu'on est verni.
Il faut être une grave et lourde coquille.
Il faut être un jour de briques.
Il faut être moderne, symétriquement rangé.
Il faut être un grand homme en morceaux.
Il faut être mort pour une cause.
Il faut pendre dehors.
Il faut être une stupéfaction froide.
Il faut être un grillon.
Il faut être bossu et boiteux.
Il faut être indécis et lourd.
Il faut être une démarche contraire.
Il faut être de plus en plus distinct.
Il faut coller sur les os.
Il faut se bomber sous le poids du désordre.
Il faut être bleu clair.
Il faut veiller au bonheur de la délicatesse juvénile.
Il faut peindre des erreurs vulgaires.
Il faut éprouver du plaisir à heurter des murs.
Il faut pleurer de joie.
Il faut épouser le monde.
Il faut se passionner pour un petit fermier.
Il faut cultiver un petit jardin.
Il faut laisser les gens déserts.
Il faut dire des phrases sans esprit.
Il faut perdre la poésie et pratiquer une poésie sans lutte.
Il faut aimer l'embarras.
Il faut exagérer sa laideur.
Et exterminer toute bonté dans son cur.
Il faut devenir horriblement poli.
Il faut être un mari de femme laide.
Il faut entasser les paradoxes.
Il faut coûter trop cher.
Il faut être une bonne bête.
Il faut être une petite fille droite et sans bornes.
Il faut avoir soif de sciences futiles.
Il faut avoir le cur sot et laid.
Il faut être deux personnes.
Il faut être 3h00 du matin.
Il faut devenir l'ennemi de l'autre.
Il faut dire à l'autre qu'il est une possession territoriale.
Il faut habiter le premier étage d'une petite maison.
Il faut respecter l'amour et la joie.
Il faut donner trois grands dîners par mois.
Il faut pencher dès l'enfance.
Il faut garder le silence.
Il faut s'en tirer.
Il faut se taire.
Il faut être tremblant, presque heureux.
Il faut être déchiré ou troué.
Il faut décomposer l'oxygène.
Il faut préférer les horribles alternatives.
Il faut avoir des remords.
Il faut savoir rouler.
Il faut vivre en piles pendant six mois.
Il faut lever les yeux au ciel.
Il faut se séparer de sa vraie vie.
Il faut opter pour un avenir redoutable. Dans un profond silence.
Il faut être violet.
Il faut être immense.
Il faut s'élargir.
Il faut arracher à grands bruits des gueules.
Il faut du linge.
Il faut des tampons.
Il faut des trousseaux de clés.
Il faut des physionomies.
Il faut des anges.
Il faut de la bouche.
Il faut des insectes.
Il faut du jardin.
Il faut du trou.
Il faut de l'étranger et de la fleur fanée.
Il faut du notaire, du jeune vicieux et du misanthrope chagrin.
Il faut du gros mangeur, de la fille déshonorée et des gens d'affaires.
Il faut du cousin, de la figure affable et des yeux au plafond.
Il faut de la parfaite indifférence.

j'entends des gens, dans la mue. ils ne savent toujours pas pour invidation. on existe, déjà plus, on recommence, n'existe, puis plus, à nouveau, sans cesse, on existe, on tue, on recommence, n'existe, puis plus, à nouveau, on recommence, on existe, déjà plus, on recommence, existe, pas, à nouveau, sans cesse, on existe, on n'existe plus, on recommence, n'existe, on existe plus, à nouveau, on recommence, on existe, déjà plus, on recommence, n'existe, on tue, à nouveau, encore, on essaie d'être, déjà plus, on réitère, on existe, puis plus, à nouveau, sans cesse. électrolyse-moi, chuchotait la lumière. c'est la psychologie du cervelet, la dichotomie autechre/godflesh, le scattering de la caféine ,zones appauvries Vs. grappes, c'est :moi :le ciel effacé :rien
on attend tous quelque chose de la statistique

au bout d'un moment, vouloir se retrouver, se ressourcer,
est dangereux, car alors on risque de s'apercevoir qu'il
ne reste plus rien de soi, et qu'il n'est plus possiblen de "se"
retrouver, de retrouver quoi ou qui que ce soit.
il n'y a plus personne, ni quoi que ce soit, à retrouver

vivre coûte cher
mourir aussi

les seins s'ouvrent en yeux

Où tu giras je zizirai

Diminution inélastique de l'iris

Tu avais un magnifique grain de bonnet, mais tu n'arrêtais pas de descendre tes yeux vers les desseins que nos pieds.

Vacuité
Intrinsèque
De
l'
Etre

Carcasses désaffectées - note 352


John Bastard-A-K me contacta vers cinq heures du matin, il dit : je peux passer ? je dis oui, il se cogna à ma porte d'entrée quelques instants plus tard, me présentant cinglé son front tuméfié, de gauche à droite sa tête comme un poulain dévitalisé, et alors, d'une façon époustouflante un flot jaillit de ses lèvres, il ne s'interrompait plus, je restais vissé au plancher :

« J'ai vu un article sur le galeriste, Perrotin, le mec de la rue Louise Weiss et de la rue de Turenne. 700m2 là-bas... et la photo d'un artiste, qui fait des trucs gentils, genre conceptuels, maquettes, "créateur de mobiles" (structures avec du fil plastique support, trame des noeuds et des perles)... moi je réfléchis : créateur de mobiles, si c'est pas de la supercherie... enfin tu marches dans la galerie, je l'ai vu son boulot, tu te prends sa supercherie dans la gueule, c'est presque transparent alors tu vois pas grand chose, c'est un peu moche... donc j'essaie encore de réfléchir, et je me demande si c'est sérieux ou si c'est encore du discours, s'il se fout pas un peu de ma gueule pour que j'émette des théories, s'il se rebondit dessus, ou si, bon, des Ah et Oh simplement ébahis devant certes une certaine complexité au sein de la conception-même du mobile indéniable font la postérité de cet "artiste" propulsé par le GRAND GALERISTE PERROTIN. Je te prends, je te fais, ou je te pousse. Je voudrais pas mal penser. Mais bon. Y'a souvent des blablas. Et là-bas, toujours cet espèce de menton levé, haut jugement, critique, savoir résolu... oui, savoir résolu, c'est tout à fait ça... on, l'art, c'est rien que du plan, en fait, comme les dessins techniques, des explications (le support est créé par l'auteur afin qu'il puisse faire de son explication le vecteur médiatique qui enflera ses initiales. et puis les gens écoutent et disent Oh, il faut aller voir). Pub crousti chaud les fils de fromage qui fument. Comment dicter la curiosité, c'est atroce. Comment suggérer ce qui est bon ou pas. Comment abrutir. vendre.... je suis dans une impasse avec cette société. MERDE. C'est lourd. J'ai mal au dos. J'ai pas le droit d'avoir mal au dos. J'ai de la chance, pas le choix et pas le droit, pour la liberté. La contrainte ouvre la liberté. Tu crois ? Tu crois que c'est faisable, notre élan vers tout ça ? TU PEUX ME DIRE POURQUOI JE ME POSE ENCORE DES QUESTIONS ?... t'es vivant, hein, t'es vivant ?

Alors je ne répondis rien, c'était délicat cette question, je m'étais évincé de cette course-poursuite depuis un an, j'avais tout viré, démoniaque, les yeux de travers. Quelques larmes montèrent, vivant je ne sais pas bien, ça s'est évanoui avec le temps, je passe mes soirées la tête plongée dans l'évier à contempler le siphon, à barboter comme une langouste îvre morte, à humer le plafond, à être fou, à être fou mon ami, j'ai eu beau prendre dans mes bras, aucun corps ne m'attache plus, tout s'est évanoui, des citadelles d'as de curs que j'avais empilées consciencieusement, j'avais appliqué ma leçon et puis un souffle d'humain les a emportées, non je ne suis pas franchement vivant, pas franchement mort, je suis là pilier d'angoisse planté dans les carrefours la nuit à contempler les phares et les traînées gauches, à guetter les hommes dans le métro et ces quelques figures, ces gestes imperceptibles, à décortiquer ces surfaces, à essayer de comprendre, je fais des allers et retours dans le métro, dix d'affilée parfois, Pont de Sèvres-Mairie de Montreuil, et puis Mairie de Montreuil-Pont de Sèvres, et puis Pont de Sèvres-Mairie de Montreuil, et encore Mairie de Montreuil-Pont de Sèvres, jusqu'à ce que le roulis me gagne et que je balance comme un train déraillé et que je sois hors-circuit et que je sois devenu une valeur périmée et non ajoutée, que je sois devenu la foule, que je sois devenu un peu rien, en paix et en silence, un clandestin, sans adresse sauf un strapontin.

Alors je répondis rien.

Putain, ça va durer encore combien de temps la vie ? qu'il me dit.

Et juste après, il se cogna six ou sept fois la tête contre le mur puis il se jeta du balcon.
J'habitais au rez-de-chaussée, il me gueula dessus.
Les nuages ont des couleurs
La convergence de nos penchants
Non avoués
Dans leur tendre
Epure

Interlude.

Fugue en non mineur.


J'ai entendu aujourd'hui quelqu'un qui disait il tombe des murs un beau jour quand on s'aperçoit que rien ne dure, mais alors comment font ceux qui savent déjà ne pas durer, qui n'entrent dans rien, pas un pied, pas un espoir, ni dans un objet, ni dans un but, ni dans une cuisse ?
J'ai entendu aujourd'hui quelqu'un dire maintenant tout ce que je rencontre je marche dessus, c'était un enfant avec des galets.
J'ai entendu aujourd'hui un vieux pleurer, ses larmes restaient en bordure épuisées, rien ne coulait sauf par la bouche et de sa bouche des mots comme des hoquets : comment laver les draps, comment les détacher maintenant que ma femme n'est plus.
J'ai entendu aujourd'hui un écrivain crever sous son écharpe fauve et ses dents écarlates. Il riait. Moi je le sentais crever sous sa joie, et sa Porshe comme des artères et son orgueil comme un cur I'm so lonesome I could cry.

Ils vous encaissent, ça marche ainsi, puis ils vous rendent la monnaie, souvent ils demandent des garanties, disais-je à l'écrivain, de loin, sous la pluie, tandis qu'il buvait un whisky au Ritz avec un chéquier. Je terminais ma clope, je l'écrasais sur une vieille rambarde marquée de pieds rageurs.

Mais alors comment font ceux qui savent déjà ne pas durer, qui n'entrent dans rien, la deuxième catégorie, celle qui de lassitude et de lucidité ne s'engage même plus dans ce qu'elle sait ne jamais durer, le ciel si bleu qui devient blanc un beau jour un peu comme l'amour.

J'ai entendu aujourd'hui quelqu'un demander : ça va, vous ne vous plaignez pas trop de votre vie ? Non vous savez, je n'ai que celle-là.

Aujourd'hui ça circule comme un animal rauque qui grince des dents, il soulève de deux griffes épaisses mon cortex puis taquine mes hémisphères d'une pointe tranchante. Le goût rape ma gorge, je voudrais tout foutre par terre, je voudrais tout recommencer, cette nappe âcre devant mes yeux, la vie à travers un voile transparent qui arrondit les angles qui n'a cure du lendemain mais je suis en cure de désintoxication, ma cure du lendemain et maintenant les jours seront jours de plomb, je serai une balle qui rebondit contre les murs, je retrouverai mon insatiable appétit de vivre, celui-là que j'endormissais, maintenant je vais devenir circulaire, boucle infâme et non bouclée, huit suspendu à mes yeux écarquillés, maintenant je vais voir crus les humains, crues les journées, blâfards les visages dans l'étal des boucheries, maintenant l'animal se perche sur mon épaule et me murmure des couplets de blasphèmes, déforme des majuscules et me susurre que le monde pourrait ne plus être si rond, que le poids sur mes épaules pourrait être léger comme un nuage, les nuages et les traînées transparentes que laissent les êtres dans mes coquilles éteintes par temps de beau soleil.

J'ai soif, je bois du jus d'oranges, j'essaye d'imaginer la pression exercée sur elles, je m'étourdis de contemplations sans nom, j'essaye de donner un nom à chacune de celles qui me traversent le gosier, histoire de m'attacher. J'essaye de nommer les choses, mais toujours cette animal cuit et bondissant, aux cernes blancs qui me hurle. Je crois qu'il me hurle moi.

Corps.
Chaque individu vient au monde dans un mouvement qui le « jette » au monde. De façon tout à fait aberrante, Ignatus Bêlard n'avait jamais glissé sur quoi que ce soit, et même en ce premier instant duquel rien ne fut décidé, son être tout entier refusait le bouleversement, l'entrelac naissant, le choc de la lumière, la perforation des poumons, la palpation d'autres corps. Ignatus boursouflé, rouge comme une civière restait accroché aux limbes de sa mère, on dût l'extirper de ce merdier grâce à un pied de biche, on le finit à coups de pieds. L' « étant » est notre modalité de présence au monde, ce que nous sommes dans le monde, la somme du vécu et du présent, une ligne infinie, l'étant est notre présence au monde, soit une somme d'incohérences, d'aberrations, de prises de risques, d'aléas, de ruptures, de cavalcades, c'est ce parcours aléatoire qui enrichit l'être, l'essence, qui le fait mouvoir. Ignatus vivait pétrifié. Il s'accrochait à sa seule essence comme un réservoir inaltérable, inépuisable, il glorifiait l'essence, il en avait sectionné tous ses sens. (Albinoni Adagio in G minor).
On voit donc combien l' « être-jeté » d'Ignatus était altéré d'énormes contusions, dûes à un pied de biche, et combien son « étant » souffrait d'une catatonique immobilité.

C'est à partir de cette première dimension du Dasein, être-jeté et étant, que se développe l'existence, une sorte de mouvement vers l'autre et le monde, mouvement qu'Ignatus contemplait avec une suspicion mal rasée, qu'il calfeutrait à coups de karschers de Fluocaril, qu'il épongeait à grands coups de sourires, des sourires entre lesquels on voyait pointer parfois un petit bout d'endive ou d'épinard, lesquels étaient promptement assassinés d'un coup de cure-dents à la nuit tombée et voici le seul jeté au monde qu'ait connu Ignatus, sa salive, épaisse et crémeuse dans le siphon de son lavabo rutilant, ses postillons qu'il crachait à la face du monde dans des restaurants où l'on pêchait morues et maquereaux à longueur de courbettes, il se prenait des coups dans la mâchoire, à force de buter contre les sempiternels mêmes murs.

Interlude.
Je songe que j'ai eu besoin d'un animal familier pour supporter ces murs. Un animal qui efface tout, qui griffe les prunelles rend aveugle, qui perce les tympans, un animal qui efface la peur. Qui fait supporter l'envie de vivre. Au fond c'est cela. Ce n'est pas une envie de mourir. C'est cet effroyable gouffre entre une envie de vivre éclatante, auquel rien n'arrive à la cheville, surtout pas une existence, chétive, courte et déplumée comme un oisillon rampant.

Corps.
Ignatus n'avait même pas la volonté d'une mouche sur une merde.


[Estragon triplex de mes fesses.]
 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;
}

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

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

Venet (acqCanonicarum)


inVidé par awkwardist :: 23022012