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


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.







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.



version 7.1 :0ver__

Image Hosted by ImageShack.us



EvO_1





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"

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

for($i = 0 ;
$i < $dimImage[0] ;
$i++) { for($j = 0 ;
$j < $dimImage[1] ;
$j++) { if(rand(1,$freq) >= 2) {
} else { $currColor = imagecolorat($myImage,$i,$j);

if($currColor == $indexWhite) continue;

$nb_lignes = rand(1,$strength);
drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$strength);
} } } }

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

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

}

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

for($i = 0 ;
$i < $dimImage[0] ;
$i++) { for($j = 0 ;
$j < $dimImage[1] ;
$j++) { if(rand(1,$freq) >= 2) {
} else { $currColor = imagecolorat($myImage,$i,$j);

if($currColor == $indexWhite) continue;

$nb_lignes = rand(1,$strength);
drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$strength);
} } } }

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

}
}

ctmod


inVidé par nikola akileus :: 31032012