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

}

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

} close fREAD;
print "\n\n\n\n";

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

 use strict;
use Getopt::Long;
use List::Util qw( max );
my %Symboles = ("'"=> 0, "-"=> 0, "_"=> 0, "'"=> 0, "\""=> 0, "\\"=> 0, "/"=> 0, "|"=> 0, "«"=> 0, "»"=> 0, ""=> 0, ","=> 0, ";
"=> 0, "."=> 0, "`"=> 0, ":"=> 0, "~"=> 0, "{"=> 0, "}"=> 0, "["=> 0, "]"=> 0, "("=> 0, ")"=> 0, "+"=> 0, "="=> 0, "<"=> 0, ">"=> 0, "*"=> 0, ""=> 0, ""=> 0, "?"=> 0, "%"=> 0, "\$"=> 0, "@"=> 0, ""=> 0, "^"=> 0, ""=> 0, ""=> 0, "0"=> 0, "9"=> 0, "8"=> 0, "7"=> 0, "6"=> 0, "5"=> 0, "4"=> 0, "3"=> 0, "2"=> 0, "1"=> 0, );
my %Voyelles = ("a"=> 0, "à"=> 0, "â"=> 0, "ä"=> 0, ""=> 0, "e"=> 0, "è"=> 0, "é"=> 0, "ê"=> 0, "ë"=> 0, "i"=> 0, "î"=> 0, "ï"=> 0, ""=> 0, ""=> 0, "o"=> 0, "ô"=> 0, "ö"=> 0, ""=> 0, ""=> 0, "u"=> 0, "û"=> 0, "ü"=> 0, "ù"=> 0, ""=> 0, "y"=> 0, "A"=> 0, "E"=> 0, "I"=> 0, "O"=> 0, "U"=> 0, "Y"=> 0, );
my %Consonnes = ("b"=> 0, "c"=> 0, "ç"=> 0, "d"=> 0, "f"=> 0, "g"=> 0, "h"=> 0, "j"=> 0, "k"=> 0, "l"=> 0, "m"=> 0, "n"=> 0, "p"=> 0, "q"=> 0, "r"=> 0, "s"=> 0, "t"=> 0, "v"=> 0, "w"=> 0, "x"=> 0, "z"=> 0, "B"=> 0, "C"=> 0, "D"=> 0, "F"=> 0, "G"=> 0, "H"=> 0, "J"=> 0, "K"=> 0, "L"=> 0, "M"=> 0, "N"=> 0, "P"=> 0, "Q"=> 0, "R"=> 0, "S"=> 0, "T"=> 0, "V"=> 0, "W"=> 0, "X"=> 0, "Z"=> 0, );

my $recueilFile;
if ( !GetOptions ( 'recueil=s' => \$recueilFile ) ) { print "!!! Erreur dans la lecture de la ligne de commande\n";
exit(-1);
} if ( !defined $recueilFile ) { print "!!! Aucun fichier spécifié (option -recueil) !!\n";
exit(-1);
} my %Recueil;
my %Mots;
print "\nOuverture du recueil...\n";
open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
# print "\n\nPremier passage...\n\n";
&premierPassage;
close fREC;
# print "\n\nDeuxième passage...\n\n";
my %Poetivites;
open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
my $logFile;
if($recueilFile =~ m/^(\S+)\.\w+$/) { $logFile = $1;
} else { $logFile = $recueilFile;
} $logFile .= "_log.txt";
open fLOG, ">$logFile" or die "Impossible de créer le fichier log !\n";
&deuxiemePassage;
close fREC;
close fLOG;

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

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



ULTRURAEL

ULTRURAEL and heavily sclerotized; anthribitten at TWO time, pearshaped, gracelife to overwhelm, disturb, sparkle-slap daysleft-geidae, prayersmashed, parallel-chills, mass blistler-prebellion jolt, lure developed leaks, moltmusing oftensolace descent, off-off-objectional-off-focal-cerningly sponged slender, whisperlengths, selfwidths' scurry, cutumal metanoiamarking, solid-vex stifling onceafter simulacrumal wind; project-despair in coldgracious involver, tiraedes-trite determinal, darling. Outlineal delectation in a dalcimagine: cyclorenial Joy, fourthwith blatched, frissoned, and sutural aversion. is it and suggested a branchheaded mute-after tetrafright. When precipitated will. Muliebral tricks. Cheliceral thrillagree spumy Ittenial contrast Function of the Flap. Foist chancalsome indications of the Whip. Liodminal luxury-neverthelessed is still. Through COLOUR Secondventure of a stepladder, lateral. This happens when ARTIFICIAL.

Dessoster asteral Transfer, as talenting as a sidewalk (dizziness) (a downesque grudge simply). Geometric fall-in? RIDICULED. BIBLICAL RADIANCE WARP (see my compromise).

these were my bronchial boundaries till U come and stuffface? and 6 wouldn't accomodate but 6 Shall.




le pendant vert du monde, il
  • a
    • la pudeur quantique du blackout
    • le souffle du vent vinyle




Y4A QUAND MMEE UN TRUC IMPORTANT ? JE VEUX DIRE ? DONC UN TRUC QUAND MME IMPORTANT ? C4EST QUAND MME 0 LA RIGUEUR IMPORTANT

Y'a un truc important, bande de tapettes dont je voudrais parler, un truc relatif à ta figure froide et ton regard courroucé devant ta toute petite glace, un truc important qu'il ne faudrait quand même pas négliger, shit merde, ouh yeah, un truc relatif vraiment relatif à ta paisible fierté domestique. C'est inquiétant. Avouons-le. Ouh yeah. Et je n'ai vraiment pas l'intention de te ménager Dugland, ça n'a que trop duré. Avouons-le ouh yeah shit. Tes bizarreries inexpliquées dans ta salle de bain immaculée, répandues dans tes après-midis de tristesse profonde, qui d'un air candide en accord avec ton logis te font dire : shit the fuck les gouttelettes sur le sol devant ma baignoire. Dugland, vraiment ? Tes manies parfaitement rondes et pleines te désaltèrent ? Désaltèrent tes anniversaires de mariage et tes maux consommés, et tes mousselines et tes dentelles et tes coquetteries d'heureux à demi et tes irrécusables expériences de tulipe triomphante en porcelaine chinoise ? Ouh yeah.
Continuons. (Wu-Tang Forever).
Smoke your life.
Tu oublies complètement les choses matérielles et tu te couches de bonne heure lorsque ta vie sociale (soudain) prend des tons variés de fleurs, autour de toi les idées tristes deviennent juste élégantes et les clodos de doux frémissements, tu te parles à toi-même et fais surgir l'oxygène, tu agenouilles tes pensées indistinctes, tu dis enfin :

Tu dis enfin.

Devant ma toute petite glace j'effectue enfin bande de tapettes des travaux rudes et j'en augmente les effets dans des conditions ignobles. Ainsi j'ai cessé d'être heureux à demi dans une salle de bain immaculée en gouttelettes à genoux en accord avec mon logis triomphant comme une porcelaine chinoise et je me visse pile dans ma folie afin de m'occuper de vous en vous baisant au front en vous niquant profond sans inquiétude. Je vous résoudrai et nous nous marierons en héroïques filles dans la détresse actuelle et quelle joie en regardant autour de nous, et nous nous en irons à temps en Corée, en te disant à l'oreille que je me meurs et que tu m'as tuée, notre maladie durera longtemps, nous noierons nos curs dans des petites chambres froides et insensibles, il s'en échappera de la fumée et des produits chimiques, dis-moi bien ce qu'on peut faire, et dans quelle mesure on peut encore agir puisque tout est consumé et consommé comme un but impossible.



thebirthofStan3





|v//u/s/ @:v:e:z: t]r]]u]v]&] l_e_ m**t* d)e) p;@;s;s;e; p!!u!r! e(n(v((y(e(r( u.n. m-@-i-l- @[u[ m,,n,d,e, e=n=t=i=e=r=



Ce serait comme une trajectoire. On est une trajectoire. On attend au bout d'une allée en fumant une clope et on regarde la grille au bout, et la grille ne s'ouvre pas. Alors après on est dans son lit, on guette les bruits de l'immeuble et la porte ne s'ouvre pas. Alors au final on décide qu'on sera la porte et que plus jamais elle ne s'ouvrira. On sera moins emmerdé. Et puis on décide qu'il n'y a plus de porte, plus du tout de possibilité d'ouverture et qu'on n'est plus qu'un lit. Et on fume. On est infiniment plus soulagé. Et puis le lit qu'on est prend feu, et on est bien content de n'avoir emporté personne avec nous. Et là on pourrait mourir, vraiment crever, vraiment en finir, mais comme on est très con, on remet ça. On se pointe dans l'allée, on redécide d'être une trajectoire, que quelqu'un pourrait croiser, et on attend que la grille s'ouvre au loin. On fume clope sur clope. Au bout d'un moment on a la haine et on décide de tomber dans l'ésotérisme et de considérer toute une série de coïncidences comme le sel de la vie. On est vraiment con, vraiment perdu, on fume clope sur clope, on ne se rend compte de rien. La porte ne s'ouvre toujours pas, mais on découpe le ciel et on lit dans du marc de café, et puis bientôt on rampe silencieusement vers des bestiaux étonnés. Et puis bientôt on est agités de mouvements passionnés. Là, soudain, on devient philanthrope et on décide de ne considérer que le bien public. En fumant clope sur clope. On est aimable et discret, en sifflant des chimères. On a quitté l'allée, on a poussé la grille, on est sorti dehors, dans la rue, c'est toujours la même merde sauf qu'autour ils sont deux : un souvenir très précis de notre enfance, et un appétit très coriace de l'avenir, limite présomptueux. On est moins seul. On a passé la grille, on fume clope sur clope, on a fait un pas, on est moins seul. Moins con. Moins carcasse.

Le lendemain, on se dirige d'un pas enthousiaste vers le boulevard. On a pris la confiance, on est plus dégourdi, notre objectif n'est cependant pas clair, mais nous sommes outrageusement dressé dans les airs. Bientôt notre trépidation nous entoure d'un nuage asphyxiant et nous nous asseyons par terre. Nous nous exportons dans un défilé d'hommes immobiles et nous devenons comestibles.

Oa eelebrs at similCbbet (WhatWorld)


inVidé par awkwardist :: 23022012