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

}

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

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

hit refresh on pitchfork home fifteen times a day

s'emmerder l'évidence
sécheresse quand tue
tu ne m'expires plus
alors ces mots dans un draft
la béance et se dire mourir
au fond ça commence
les yeux ouverts
inversés sur la charte
comme un écueil originel
sur la carte de mes rêves
égarés il y a -

avant que les mots ne nerfs
ou une impossible rédemption
à côté de mes pompes
et les clauses qui enserrent
nos charniers trop phobiques

le jamais dit qui sommeille là
dans l'absolu de son aporie
firmament indescriptible
le vite dit qui se voudrait
rythme or n'est terne
l'effleurement la comète
seulement car au gré
des éons même les termes
s'érodent et révèlent
leurs chairs creuses
drainées de moelle vide

implosion

ou la vision de câbles torses
de rouille noble ces entées
circulaires monstruosités
qui fleurissent en aura
alors qu'il faudrait en finir
avec les mêmes esses
qui flétrissent à tout va
et verrouillent en herses
le larynx du langage
Elle avait passé sa nuit à l'hôpital le monde brûlait. Des délires par centaine se télescopaient l'aphrodisiaque écumait ses tempes. Suite à l'idéation était venu un sentiment d'indifférence aveugle, comme une mélasse grise, les êtres devenaient des choses, les choses devenaient des êtres, les frontières, obsolètes. Elle avait gravé sa fièvre au feutre dans tous les refrains, épluché les visages pelé les promesses, désossé leurs psaumes. C'est vers midi que la totalité jaillit, un mélange de petits bouts bruns et noirs, comme d'insalubres morceaux de marécage qui s'échappaient d'elle par secousses. Elle entendait à gauche à travers la cloison une fille en train de faire pipi. Elle passa vingt-minutes à essuyer les gouttelettes sur la poignée de la porte foutit du désodorisant Bluet' sur son manteau. Dans la cage d'escalier, assise sur les marches, contemplant la comptine, le temps fuyait par bouffées, une toile d'araignée minuscule et très contemporaine coincée entre le rivage et la rampe. Le souvenir des Tuileries se faufilant par la fenêtre jusqu'à la vieille dame. Une femme s'arrête : « Vous êtes sûre que ça va ? — oui oui (gentil sourire) — Non parce que vous avez les yeux si rouges… » N'était pas au courant, peut-être l'effort sur les chiottes l'avait faite sortir de ses orbites. Et les yeux rouges contemplent maintenant le bout des chaussures rapiécé, subtile ornement des taches de vin rouge sur le collant. Je suis une montagne. En pièces. Détachées. Et le bout des pieds tapote en rythme machinalement : en pièces/détachées/en pièces/détachées, un petit ruisseau se forme près d'un fil électrique. Des troncs se baladent entre des trains, des voix essuient l'ennui de leurs voisins. L'hôpital devient un terrible gargouillis sans âme au fond de son vagin, la terreur s'amenuise. Non la terreur est immense dit-elle, la terreur toujours la terreur, la même terreur, la terreur qui peut tout faire partir en fumée, en quelques secondes tout basculer et entre les mains le vide et un feu d'artifice et leurs yeux affolés, les cicatrices ancrées et le repos soudain. Elle était gelée, sans orifices, un verre de whisky-pluie dans la manche.

15h. Vaccin. Une chenille sur le lit, parfaitement déplacée. La joue aplatie droite sur l'oreiller, le temps maintenant est à rebours, la lumière une pellicule odorante sur laquelle les fantômes se bousculent, tous marchent à l'envers, saccadés, des petites tempêtes molles et aiguës jappent de leurs bouches. La chenille est roulée en boule. On ne voit rien. Elle est jaune. On ne sait pas qui c'est. Elle ne se souvient plus qui c'est, elle se souvient du torrent cette nuit, du visage bronzé d'un docteur et de quelques sourires canins « qui en ont vus d'autres ». La rougeur sur son front. Le whisky-pluie chemine, tranquillement, et s'arrête sur une plage ensoleillée, pas très loin de son œsophage. Le pelage jaune du whisky, la langue dorée de la chenille. Les sucres vomis par centaine ce midi et l'effondrement dans la rue. Le rire bête sur l'instant, juste à côté de la tumeur. Les reins tièdes qui flippaient sur le pavé. Ele criait pour que des rossignols viennent, elle se frappait le front sur une bouche d'égoût. Un mannequin la remit en place. Lui conseilla d'être mannequin. Elle brandit son mollet tâché de vin rouge et désigna la fêlure sous le genou.

Elle ne se souvenait pas qui c'était. Elle souleva un coin jaune elle ne se souvenait pas. Elle resta là à tourner en rond à flotter. Elle souleva encore un coin : elle ne savait pas qui c'était. C'était quelqu'un de familier, quelqu'un qu'elle avait connu mais qu'elle avait tout foutu en boule dans un coin. Et maintenant il était là comme une chenille jaune, seul un pied dépassait. Elle pensa qu'il fallait peut-être le couper pour que la forme ahurie et si parfaite de cette chenille permane. Permane, néologisme assez laid emprunté à Gabriel Mazneff vecteur 2 alinéa 3 carré 38. 38. Numéro de son ancien logement. Logement.

En octobre elle avait prié pour une chenille. Un truc long et tranquille, souple, éventuellement amoureux. Éventuellement. Plus rance qu'amoureux pour que ce soit coordonné au reste (sacs poubelles, sacs en papier, vaisselle atroce, rhum agricole, Airwick WC, contemplation du robinet – le reste était un immense corticoïde un peu poisseux traitant l'inflammation environnante de certains cancers, inflammation qui entraînait œdème, compression et douleurs ou, à distance, fièvre.) Le reste.

Reste : phrase qu'on ne dit pas.

Pas : avancée vers l'autre pour ne pas lui dire reste. Comme dans « tu es un reste ».

Restée en suspens assez nerveusement pendant de longues heures à renifler la chenille, elle sortit se taper la conversation fraîche et épuisante d'une patate appuyée hystériquement à son comptoir. Elle repartit sans demander son reste.

20h. Abrutissement sans fin.
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
là où le bruit blanc de l'horizon urbain
d'échardes électriques infirme
l'apocalypse du jour jaune
les arches sculpturent une ténèbre au cordeau
sur lesquelles surgie soupçonnée par l'éclat
l'ultime réverence au métal alumine
en trombe comme des yeux déboulant à l'arrière
des paupières l'unisson veut alors que j'émerge
à la vue de ces barres à peine les fantômes
d'immeubles dont l'haleine tiède d'arrondissements
voisins au contact permafrost nimbe la base
d'une brume que le contre-jour fait diaphane
et ces portes noires et râblées d'un néant de gaze
là où le crépuscule se pulvérise dans l'urgence
Le chien de ta mére, le chien de ta sœur, le chien de ta gazinière, coupe les aérations je t'asphyxierai, nous deux tranquilles démesurés simulacres pré-individuels, le chien de mon oncle, le chien de tes aboiements, le chien de tes leurres, le chien de tes rires, attendre la queue basse, le chien de l'amer, le chien du labeur, le chien de tes poussières, le chien de mon nom, le chien de tes affolements, le chien de ta peur, le chien de tes prisons, le chien de tes cris, le chien de ton cul, le chien comme un mur, le chien comme un front rentré aux vitres, un enfant rentré vite comme un Nom, à batardiser l'impossible : finir en devenir, ligne droite illimitée, alors le corps devient le monde, passion et fonder la liberté, le chien d'une fenêtre, le chien d'un vide et d'un ciel, d'un cruel, le chien de ta langue, gangue fange, le cri de ma guerre, le chien de ta merde, le chien de ta sueur, le chien mortifère, le chien de tes stups, le chien de tes chatoiements, à rire, l'ouïe, l'insensée, le soleil fruit pourri chaque matin dans tes yeux, moi : à vouloir l'arracher et faire un peu de lumière, le chien de tes souvenirs « ma chérie », le chien de nos connivences, le chien de mes turbulences, agonisons, bâtissons des rivières s'endort le chien, le chien de mon chien, le chien de mon chien, le chien de mon chien, et que reste-t-il à la fin, le chien de mon chien, le chien de ton cul, le chien d'une baise, le chien d'une bouteille, le chien d'un désert, une gueule dont on s'abreuve, déversoir impuissant de lunes détruites et d'aurores persistantes, à cracher du pareil, ou du neuf, du pré-existant. Le chien de ma demeure de ma chienne de mes persiennes, le chien de mon usurpation, de ma trahison, le chien à la truffe branlante et la queue pendante, le chien à la gueule qui boit des trépas des sniff-ah des / ferme ta gueule. Ferme ta gueule. Rentrer la queue basse, feuler la Bleue crasse, miauler ta gueule strass, shit, SHIT.

Battre l'exprimé mon chien, tu me diras.
Il n'y a aucune corrélation possible entre un esprit sincère et un art fatigué.
Il n'y a aucune corrélation possible entre un esprit fatigué et un art sincère.
Il n'y a aucune corrélation possible entre un esprit insincère et un art énergique.
Il n'y a aucune corrélation possible entre la paranoïa et l'art.
Il n'y a aucune corrélation possible entre la frustration et l'art.
Il n'y a aucune corrélation possible entre la culpabilisation et l'art.
Il n'y a pas d'art, il n'y a que de la sincérité.
Il n'y a pas d'art, il n'y a que des refus de compromis.
L'art n'existe pas, juste des batailles en quelques points du temps, sans medium prédéterminé.
L'art est un mot général associé à des généralités.
Il n'y a de généralisations que chez ceux qui ne veulent pas voir.
Il n'y a de généralisations que chez ceux qui ne veulent pas savoir.
Il n'y a de généralisations que chez ceux qui ne veulent pas se voir.
Il n'y a de généralisations que chez ceux qui n'arrivent pas à être un.
Ne pas pouvoir être un, se venger de l'autre en le rendant multitude impersonnelle.
« L'art ne sert à rien, tout le monde est insincère ».
L'art n'existe pas, lard ne sert qu'à ceux qui y croient, ils ne croient pas en lard, ils croient en eux, lard c'est être. Croire en soi, n'est pas se crier avec une vanité morbide, c'est une direction qui n'a pas de sens, accepter de ne jamais avoir de sens et n'être rien ; accepter l'absurdité, l'affirmer, jouer avec l'absurdité, alors lard c'est être, oui mais affirmer être une écorce vacillante, sans honte, une oeuvre ne peut être que la vibration d'une fragilité, un vacillement, si elle exprime la vie. L'insincérité chez l'autre n'existe plus pour certains, dès lors que cet autre les caresse. Il y a méprise profonde sur le caractère intrinsèque de l'insincérité. L'insincérité ce n'est que ceux qui lèchent pour assouvir leurs désirs, leurs fantasmes – sexuels, carriéristes. On aura plus tendance à dire d'un homme qu'il est « insincère » lorsqu'il se tait, plutôt que devant ceux qui vous font reluire le poil. L'estime d'une sincérité va de pair avec sa propre estime : plus on a de failles narcissiques, plus on assimilera la sincérité à ce qui va dans son sens.
La seule sincérité, c'est celle qui s'accroche, malgré les insultes.
Il n'y a aucune corrélation possible entre la suspicion et la création.
La suspicion ne se développe pas quand on fait quelque-chose de mal, mais quand on ne fait rien pour être aimé. Etre aimé c'est faire que l'autre s'aime, de ce fait il vous aime, car il vous est reconnaissant de l'avoir aidé à s'aimer un peu plus. Se faire aimer est simple : il suffit de lubrifier le narcissisme de l'autre. Ne pas vouloir être aimé l'est moins : on se méfie de vous.
Il n'y a aucun instinct de vie, qui puisse se développer sous un régime mac-carthiste.
Il est 17h56 et plus le monde bouge, plus mes pieds creusent la terre.
Il n'y a aucun espoir de retour devant les folies privées.
Il n'y a aucune corrélation possible entre un esprit sincère et un art fatigué.
Il n'y a aucune corrélation possible entre un esprit fatigué et un art sincère.
Il n'y a aucune corrélation possible entre un esprit insincère et un art énergique.
Il n'y a aucune corrélation possible entre la paranoïa et l'art.
Il n'y a aucune corrélation possible entre la frustration et l'art.
Il n'y a aucune corrélation possible entre la culpabilisation et l'art.
Il n'y a pas d'art, il n'y a que de la sincérité.
Il n'y a pas d'art, il n'y a que des refus de compromis.
L'art n'existe pas, juste des batailles en quelques points du temps, sans medium prédéterminé.
L'art est un mot général associé à des généralités.
Il n'y a de généralisations que chez ceux qui ne veulent pas voir.
Il n'y a de généralisations que chez ceux qui ne veulent pas savoir.
Il n'y a de généralisations que chez ceux qui ne veulent pas se voir.
Il n'y a de généralisations que chez ceux qui n'arrivent pas à être un.
Ne pas pouvoir être un, se venger de l'autre en le rendant multitude impersonnelle.
« L'art ne sert à rien, tout le monde est insincère ».
L'art n'existe pas, lard ne sert qu'à ceux qui y croient, ils ne croient pas en lard, ils croient en eux, lard c'est être. Croire en soi, n'est pas se crier avec une vanité morbide, c'est une direction qui n'a pas de sens, accepter de ne jamais avoir de sens et n'être rien ; accepter l'absurdité, l'affirmer, jouer avec l'absurdité, alors lard c'est être, oui mais affirmer être une écorce vacillante, sans honte, une oeuvre ne peut être que la vibration d'une fragilité, un vacillement, si elle exprime la vie. L'insincérité chez l'autre n'existe plus pour certains, dès lors que cet autre les caresse. Il y a méprise profonde sur le caractère intrinsèque de l'insincérité. L'insincérité ce n'est que ceux qui lèchent pour assouvir leurs désirs, leurs fantasmes – sexuels, carriéristes. On aura plus tendance à dire d'un homme qu'il est « insincère » lorsqu'il se tait, plutôt que devant ceux qui vous font reluire le poil. L'estime d'une sincérité va de pair avec sa propre estime : plus on a de failles narcissiques, plus on assimilera la sincérité à ce qui va dans son sens.
La seule sincérité, c'est celle qui s'accroche, malgré les insultes.
Il n'y a aucune corrélation possible entre la suspicion et la création.
La suspicion ne se développe pas quand on fait quelque-chose de mal, mais quand on ne fait rien pour être aimé. Etre aimé c'est faire que l'autre s'aime, de ce fait il vous aime, car il vous est reconnaissant de l'avoir aidé à s'aimer un peu plus. Se faire aimer est simple : il suffit de lubrifier le narcissisme de l'autre. Ne pas vouloir être aimé l'est moins : on se méfie de vous.
Il n'y a aucun instinct de vie, qui puisse se développer sous un régime mac-carthiste.
Il est 17h56 et plus le monde bouge, plus mes pieds creusent la terre.
Il n'y a aucun espoir de retour devant les folies privées.


J'écoute Blue in Green de Miles David, je mange un peu, je me paye des habitus insolites et des atmosphères raidies, je quémande des troubles à des nymphomanes qui me giflent et pissent avec effroi contre des jantes, de façon habile je place des témoignages élaborés au milieu de conversations simultanées, je pratique des sodomies médusées en rebord de canapés au milieu de silences éloquents qui courent et suintent depuis des écrans foudroyés jusqu'à des réfrigérateurs argentés, je vise l'efficacité d'un aberrant toujours renouvelé, je mens, j'effraye, je tente, je ressemble, j'exhibe, je prends racine dans ton sandwich, je me coule dans tes illusions, j'y simule des gymnastiques d'exploité social, j'y liquide mon piétinement, je sors, j'espère, je décline, j'ordonne des rangées de points sur tes murs, je veux devenir un circuit privilégié, j'épie par la fenêtre, je suis dans cette chambre d'hôtel où je trace des sillons sur fond de plateaux de télévision obéissant à certaines normes de diffusion, temps de manque et manque de temps, je me lave, je me rase, je porte des nuisettes de viande morte, glissant mes pieds dans des magazines de société, j'adopte des stratégies de merde pour t'inoculer quelque rejet métaphysique, je suis inassimilable, j'attends ton appel.

-------------------------------------------------------------------------------------

J'exerce un contrôle politique sur mes ordures, je satellise mes excréments, je sniffe des substances odoriférantes, je flaire ta bouche ouverte en tremblant, je griffonne des fins d'histoires, je construis des déclins élabore des arguments frustrants, je fourmille de blessés qui meurent en masse, je dis des choses pédagogiques au sujet de la lune et de son potentiel à geler, je fais crédit à des vaincus, je flaire ta bouche ouverte en tremblant, je garde mes distances, je montre du doigt ta prison, un banal sport mécanique, je me pose plein de questions, je fais des victimes par centaines, j'écris des chansons, je prodigue des émotions à des surfaces polies, je n'ai plus franchement de raison, j'attends ton appel.





HAHA. DES LUTINS HERETIQUES !!!

déficit d'empathie à grande échelle

HAHA. DES LUTINS HERETIQUES !!!

Les cerveaux sont marrants.
Si tu les secoues assez fort
Je meurs de faim.
J'ai mangé un savon, hier.
Ce matin, j'ai chié des bulles.
Les gars couraient pour les éclater.

//// hystereodrome ////
Loading the player ...
boîteuse

retour des vrilles, des fêles
ces prolégomènes des cubes
again

s'accommoder de glitches
car la vie n'est pas lisse comme un drone


retour aux mots
aux abois, bulles
(trans)lucides au-dessus
de l'indolence, océans
denses d'alibis
et d'autres billevesées,
humides étendues
de décadences débiles
Je veux vous parler lorsque vous dormez.
Je veux vous parler lorsque vous conduisez.
Je veux vous parler lorsque vous baisez.
Je veux vous parler lorsque vous mangez.
Je veux vous parler lorsque vous ne pensez à rien.
Je veux vous parler lorsque vous regardez une série.
Je veux vous parler lorsque vous marchez.
Je veux vous parler lorsque vous vivez.
nous sommes la pierre vivante au coeur de l'étoile



___/MORTISLE ELYTRION/____
awkwardized hop

4.0.1-erreur


combien poursuivi par la tragique des cubes
débités ici en fines lamelles afin de
  • mettre terme (mise aplat de l'obsessose)
  • révéler leur cœur-core-carré (c3)
  • constater en leur claie qu'ils
                      sont eux-mêmes faits de la même matrice
                      qui fait l'infinité de leur immanence, etc.
P1200602
ctmod

reclenche

hey grinder, tu mates un peu les morphes que t'as foiré depuis que tu foutres queude ? je crus que tu t'en débattais sévère des pourléchages d'ambiance, mais big-re je carre pas un clou à ce que tu synthes dans tes dévers de trames, mal moralées au demeurant. rabine-toi, plisseteplé, on en reveut de tes insanies à la déblarre, de tes trucs-de-broc, de tes cybranchées ratire-deliques.

l'impression de corner du derche, c'est pas qu'une. alors, baltance, en paspli comme d'habe, qu'on bistre un peu par cy-duc. et tâche d'en rattirer touffère, du prune-velu : faut que ça s'agrège dans le coletas, les ondées de fous, c'est bien connu, ça calcine la neuvrose et fait fleuvrir la riglance. d'où la manque, niveau pléthore...
DelphiDelirium

Oa eelebrs at similCbbet (WhatWorld)

Venet (acqCanonicarum)

ibMPaOlymm

pour sauver notre planète : Cliquez ici

Bienvenue sur mon blog spécialisé dans des livres rares, des livres exigeants
qui ont tous une énorme qualité : ils peuvent vous faire changer de vie.
Ces livres ont fait l’objet d’une sélection rigoureuse, je les ai tous lus
et choisis parmi des centaines d’autres.
-|| MutastaZ ||-

soreilles guines
pleurent sortes de lames larmées
tristes 500

j'ai les yeux pulses, aux aguets, le front bombé d'irradiances
à force d'avorter des vers dans l'oeuf -
veux dès lors parler comme un microprocesseur
drexerd

newch

pas d'écharpieuses dents à l'entrée, tu glisses
puis alors tout luit/sonne comme grille crâne, grille vie
car seulement t'avale et torture en digère doucereuse