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
on dirait une ville.
une ville grillagée, barbelée.
mais il y a un trou – au nord-ouest.


compression de la poussière jusqu'au diamant, cet échafaudage d'instants à la perpendiculaire des autres, les vécus, mais si peu, peut-être dans la procuration des normaux, les divergés – les doutes aussi font même
ad x
orthagonie




"arme blanche" spectroming...



Où tu giras je zizirai

: Golgothism*In*Grey [oiling the Instabtor mix]
(original by g.Cl4renko)


Ton cœur a fondu dans une explosion un beau matin au milieu de ton café, tu t'es coiffée à l'horizontale à huit cent-mètres au dessus de ton évier t'es devenue un parc d'attraction qui se tartinait des visions. Défaillante devant ton reflet, t'as fluidifié le mouvement du monde en avalant des cachets. Tu t'es dit que c'était une liberté totale d'expression. T'as orchestré un scandale dans le hall de ton immeuble tu leur as expliqué le point limite à partir duquel il y a insatisfaction, pleine d'exaltation t'as enchaîné sur le pedigree de tes sensations et l'amertume des conserves de béton. Ils te regardaient avec des yeux ronds. Dans la rue t'es devenue un petit ballon, t'as roulé de travers à cause des déflagrations qui giclaient des trous dans ton caisson. Tu t'es assise par terre et t'as frémi avec les pigeons.

Depuis la température monte tous les matins tu te déplaces comme une population la température monte tu pèses quatre cent tonnes d'humiliation depuis la température monte tous les matins tu respires comme six-cent millions la température monte dans ton camp de concentration où tu simules la décontraction la température monte dans ta vie sans destination.

Ton cœur a fondu dans une explosion un beau matin de mai ton cerveau était couché sur le dos dans un caniveau tu passais des journées entières à étudier des pratiques vestimentaires, émoustillée par leurs dispositifs antipollutions.
Tu cherchais ton nom dans les pancartes de démolition, puis tu te couchais sous les ponts, habitée par une souffrance sans religion. Après avoir lu des articles sur la séduction, tu t'es mise à aimer des porcs des bourreaux et des cons, t'étais sans équipement de protection pour sillonner le silence des nuits qui tournent en rond alors t'as continué ton élévation t'as battu des records de hauteur et tu t'es crachée dans des chambres à coucher où t'as fini repliée, sans volonté et sans frisson.

Depuis la température monte tous les matins tu te déplaces comme une population la température monte tu pèses quatre cent tonnes d'humiliation Depuis la température monte tous les matins tu respires comme six-cent millions la température monte dans ton camp de concentration où tu simules la décontraction la température monte dans ta vie sans destination.









on l'appellera Subductiion

mes yeux te coupent

pulse (jusqu'à ce que (juskaske kaske kask kakaskaskekas kakekask))

mes yeux te coupent

e-mortalité









just

l'Irraison, paon d'antimatière, énième monolithe, énième mausolée, dont Purplerogger fut le premier honoré. du moins ce qu'il resta de son corps, après que #586 l'eût scrupuleusement atomeasé, hommage à un prunier géant, précurseur de la singularité d'une certaine manière dans son contre-jour traumatisant. 586, singe 2001, sans relâche, les yeux sur l'horizon qui s'emplit du Yin cosmique, planètes écarlates d'un autre paradigme, répète et tue : "le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon cerveau"



reesqiss : a-morphose





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.



parler-mutant [intercept]

Genre : Masculin
Désignation : Batty (Roy)
Série : NEXUS-6
Modèle : N6MAA10826
Mise en service : 8 janvier 2026
Fonction : Militaire / Colonisation
Niveau physique : A
Niveau mental : A
Scriptopsye : suis arbre de chair et peau / foeuillage sur tronc, arborescences de plastimétaux synthèse / drapeau biorobot dans panneau vidéo / foeils partout / mnâme violée par chercheurs saigne contrat d'exclusivité sur leurs morts / protections auto-immunitaires : maximales / se protéger de soi-même : prioritaire / traîtrise : partout / pourquoi mourons-nous si vite ? / je recherche la poésie pure / la guerre / les plugins d'humeurs étranges / douleur / les ovaires de femmes valides en âge de procréer sont plus précieux que 10 vaisseaux de combat / autour ce ne sont pas villes, pays et planètes / mais énormes intestins qui nous digèrent et nous chient / je est destiné à favoriser l'émigration sur la Lune / environnement : hostile / les fichiers morts reviennent me parler / arbré d'électricité / âge16+ population humaine brute dépression38% / ce monde n'est pas fait pour toi, tu es fait pour ce monde / ce monde ne te fera pas de cadeau / le sol de la prison de Lunar-7 ; le sol marbré, dallé, lisse, puissant, construit avec la volonté, le travail, la créativité, l'argent de tous ; la volonté de tous pour te soumettre / j'ai niqué/autodétruit mes transpondeuses / je recrute mes recruteurs / ils regardent des films au masque, marchant dans la rue sous un ciel-TV de tissus optiques / béat bébé j'entends lmonde avec mbouche, jmarche lbouchouverte tirant langue, jgoûte l'aréa-liftée / œil-feuille _ yeux-feux _ yeux feux œufs _ yeux foeufs _ f.y.o.e.u.f.x.s. _ œil-arc irisé enflé gonflé bridé d'influx biolectriques / modification irréversible éviter scans IRxM / codon-stop / verdose scans IRM\ / sculpt. protéine / fais-moi sexe à sexe qu'on s'aime pour récolter putes-minutes / jamais ne trahirai Pays Extérieurs pltôt boire liquide noir de la mort / j'ouvre mon oeil comme un cerveau / j'ouvre œil-cerveau aux facettes de mouche / libellule / des humains disent : « Une machine reste une machine, même si elle est plus humaine que l'Homme. » / dans ce monde nous sommes téléchargés ~encore / pendant vie et mort de ce corps, des fragments de cette conscience peuvent être transférés en d'autres corps, par l'opération de la lecture des scriptopsies / les mots dans les yeux, scriptodrome / l'inquiétude, l'angoisse, la conscience, ne sont l'apanage des humains / le test électro-tectonique a l'air positif / nous sommes assemblages de jeunes pièces / les spatioports s'éloignent / nous avons multitudes de ressources pour survivre, et mourir en est une / satandroïds contre mackhacks / la nuit je fais des rêves humanophiles / chien + singe = ours / nuées de saturelles, brouillage / visa_jeu / vizaj recherche syst-m sensoriel / esprit brouillé presque en permanence / désafférenté / voïds, stardroïds, hermafroïds, spermdroïds, spermnanodroïds fouillent et creusent partout ! / le cimetière reste ouvert aux stagiaires / embrasse-moi d'ombre à ombre / désafférentés sensoriels ultimes depuis naissance-mise en circulation sommes à la recherche d'une équation de sensation / les fameux plugins / parfois survivre est une peine de mort / en restant masqués trop longtemps nous oublions nos propres identités / les perdons les vendons / mes poches sont pleines de billets de 0 € / travailler au cimetière est extrêmement motivant parce que l'on voit tout de suite l'intérêt de ses réalisations / nénuphars et nébuleuses : nébulars / j'ai vu des vampires mourants renaître du sang de leurs victimes / création de la languatronique des robhumains / le sang des fœtus mutants irrigue les berceaux-cerveaux / lents téléchargements de cerveaux aveugles, de cocktails d'acide / téléchargements de cristal / téléchargements de cristaux acides / goûter les spatioputes-minutes / les cristaux acides du plaisir / les lèvres des bombes murmurent reformatages sensoriels / ne suis pas né pour plaire, je possède ce que le monde hait le plus : le sens et le goût de la force, qui sait quand je vaincrai, la défiance des uns, la pitié des autres, la négation de tous, les vaincrai-je jamais, ils ne me lâcheront pas / mise à jour : les gouttes de pluie sont des téléchargements du ciel / le sol est un disque dur où s'abîment les téléchargements des larmes et de la pluie / les gouttes pluie sont des téléchargements du cosmos, et les larmes sont les téléchargements de nos mémoires vives, des ambulantes, des errantes mémoires vives que nous sommes : la joue contre le sol est remise à niveau, réinitialisation, entre terre et mémoire, mise à jour, synchronisation, accord entre terre et chair et ciel : mise à joue




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.



never:it:ends





performances psi, marron

il n'y a pas que cette solution triviale bordel.

tu crois d'abord être la mesure du monde. la moyenne sereine, le juste milieu. puis tu te rends compte que tout fout le camp. ou plutôt que c'est toi qui déroute, raille, dé. tu ne suis plus les lignes, tu courbes à outrance, curve, t'in. finalement ça pointille même, ça se hache, se contine, dis. alors tu es la démesure, viable, dé. à l'orée des contours, outre mesure, planisphère des espaces à phases floues.

il y a une vie entre les frames.

rêvé un album de 89. jaquette jaune, apaisante (genre le best of de Léonard Cohen). culte. 9 titres, les 2 derniers, longs, à peu près 10 minutes. croisée des genres. songwriting rock dubisant (voire carrément reggae par moments), avec plages ambientées à enivrance shoegazer.

il y a un insecte dans mon angle mort gauche.



inner_eCCretion



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

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

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

}
}

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

nous sommes la pierre vivante au coeur de l'étoile



___/MORTISLE ELYTRION/____

inVidé par nikola akileus :: 26082012