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

 function longLinenoise($myImage,$dimImage,$strength,$freq) { 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	$indexBlack = imagecolorexact($myImage,0,0,0);
 
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$freq) >= 20) { 
 			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 
  				if(isCloseColor($myImage,$currColor,255,255,255,10)) continue;
 
 				$nb_lignes = rand(1,intval($strength/10));
 				$length = rand(intval($strength/5),$strength);
 				drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$length);
 			} 		} 	} }   function drawLignes($myImage,$dimImage,$color,$x,$y,$nb_lignes,$max_length) { 	for($i = 0 ;
 $i < $nb_lignes ;
 $i++) { 		$xmin = $x-$max_length;
 		if($xmin < 0) $xmin = 0;
 		$ymin = $y-$max_length;
 		if($ymin < 0) $ymin = 0;
 		$xmax = $x+$max_length;
 		if($xmax > $dimImage[0] - 1) $xmax = $dimImage[0] - 1;
 		$ymax = $y+$max_length;
 		if($ymax > $dimImage[1] - 1) $ymax = $dimImage[1] - 1;
 		$x2 = rand($xmin,$xmax);
 		$y2 = rand($ymin,$ymax);
 		while(sqrt(pow($x2-$x,2) + pow($y2-$y,2)) > $max_length) { 			$xmin = $x-$max_length;
 			if($xmin < 0) $xmin = 0;
 			$ymin = $y-$max_length;
 			if($ymin < 0) $ymin = 0;
 			$xmax = $x+$max_length;
 			if($xmax > $dimImage[0] - 1) $xmax = $dimImage[0] - 1;
 			$ymax = $y+$max_length;
 			if($ymax > $dimImage[1] - 1) $ymax = $dimImage[1] - 1;
 			$x2 = rand($xmin,$xmax);
 			$y2 = rand($ymin,$ymax);
 		} 		imageline($myImage,$x,$y,$x2,$y2,$color);
 		$x = $x2;
 		$y = $y2;
 	} }    function invertnoise($myImage,$dimImage,$strength) { 	$indexBlack = imagecolorexact($myImage,0,0,0);
 	if($indexBlack == -1) $indexBlack = imagecolorclosest($myImage,0,0,0);
 
 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	if($indexWhite == -1) $indexWhite = imagecolorclosest($myImage,255,255,255);
 
 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,100) >= $strength) {  			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 				if($currColor == $indexBlack) imagesetpixel($myImage,$i,$j,$indexWhite);
 				if($currColor == $indexWhite) imagesetpixel($myImage,$i,$j,$indexBlack);
 			} 		} 	} } 

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

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

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

 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 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 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 poedilation { 	my $poeme = $_[0];
 	my $degre = $_[1];
 
  	open fPOE, ">" . $poeme . ".txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 	open fPTE, ">" . $poeme . "_pte.txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 
  	foreach my $ligne (sort( {$a <=> $b} keys(%{$SampledRecueil{$poeme}}))) { 
  		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 0) { 			print fPOE "\n";
 			next;
 		} 
 		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 1) { 			print fPOE ${$SampledRecueil{$poeme}{$ligne}{"mots"}}[0] . "\n";
 			print fPTE ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0] . "\n";
 			next;
 		} 
 		my @finalLine;
 		my @finalPoe;
  		for (my $i = 0 ;
 $i < $degre ;
 $i++) { 
 			my @newLine;
 			my @newPoetivites;
 
  			while(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 1) { 
 				my $motAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}});
  				my $poeAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}});
  				my $interpol = int(($poeAvant + ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0]) / 2);
 
  				if(exists($Poetivites{$poeme}{$interpol})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol}})))]);
 					push(@newPoetivites,$interpol);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol-1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol-1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol-1}})))]);
 					push(@newPoetivites,$interpol-1);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol+1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol+1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol+1}})))]);
 					push(@newPoetivites,$interpol+1);
 					next;
 
 				} 
  				my @poetivikeys = sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}));
 				my $avant = $poetivikeys[0];
 				my $apres = 0;
 				foreach my $poetivitest (@poetivikeys) { 
 					next if($poetivitest == $avant);
 					if($poetivitest > $interpol) { 						$apres = $poetivitest;
 						last;
 					} 					$avant = $poetivitest;
 
 				} 
 				if(($interpol - $avant) > ($apres - $interpol)) { 					push(@newLine,${$Poetivites{"recueil"}{$apres}}[int(rand(scalar(@{$Poetivites{"recueil"}{$apres}})))]);
  					push(@newPoetivites,$apres);
 				} else { 					push(@newLine,${$Poetivites{"recueil"}{$avant}}[int(rand(scalar(@{$Poetivites{"recueil"}{$avant}})))]);
  					push(@newPoetivites,$avant);
 				} 
 			} 
 			if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 0) { 				push(@newLine,shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}));
 				push(@newPoetivites,shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}}));
 			} 			@{$SampledRecueil{$poeme}{$ligne}{"mots"}} = @newLine;
 			@finalLine = @newLine;
 			@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}} = @newPoetivites;
 			@finalPoe = @newPoetivites;
 
 		} 
 		foreach my $motfinal (@finalLine) { 			print fPOE $motfinal . " ";
 		} 		foreach my $poefinale (@finalPoe) { 			print fPTE $poefinale . " ";
 		} 		print fPOE "\n";
 		print fPTE "\n";
 
 	} 
 	print "\n\npoedilation OK ! (voir " . $poeme . ".txt, " . $poeme . "_pte.txt pour le spectre)\n";
 	close fPOE;
 	close fPTE;
 
 } 

 sub premierPassage {  	my $ligne;
 	my $compteur = 0;
 	my $poeme = undef;
 	my $nbMots;
 	my $lengthCumul;
 
 	while(<fREC>) { 
 		chomp;
 		$ligne = $_;
 		my @Ligne = split(/\s+/,$ligne);
     			if($poeme) { 				$Recueil{$poeme}{"longueur_mot_moyenne"} = $lengthCumul / $nbMots;
   			} 
 			$poeme = $1;
 
 			$compteur++;
  			$Recueil{$poeme}{"nombre_lignes"} = 0;
 			$nbMots = 0;
 			$lengthCumul = 0;
 			next;
 		} 
  		my $nbMotsLigne = scalar(@Ligne);
 
  		if($nbMotsLigne == 0) { 			next;
 		}  		else { 			$nbMots += $nbMotsLigne;
 		} 
  		$Recueil{$poeme}{"nombre_lignes"}++;
 
  		foreach my $mot (@Ligne) { 
  			if(exists($Symboles{$mot})) { 				$nbMotsLigne--;
 				next;
 			} 			if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { 				$nbMotsLigne--;
 				next;
 			} 
  			$mot = &nettoieMot($mot);
 
  			if(!exists($Mots{$mot})) { 				$Mots{$mot} = 1;
 			} else { 				$Mots{$mot}++;
 			} 
  			$lengthCumul += length($mot);
 
 		} 
 	}   	$Recueil{$poeme}{"longueur_mot_moyenne"} = $lengthCumul / $nbMots;
   
 	close fREC;
 
  	my $freqMax = 0;
 	my $motMax;
 	while((my $mot,my $freq) = each(%Mots)) { 		if($freq > $freqMax) { 			$motMax = $mot;
 			$freqMax = $freq;
 		} 	}   
 }  

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

EREINTIQUE ###4

montre-dents
remotely queued voire not shared
qu'épingler sinon la lenteur ,se blacklister ,fermer ses ports
aux attaches effilochées ,engrenages de dérives

« nébuleuse, nébuleuse, nébuleuse »
,balbutiait-elle encore cette foutue pénombre – à verse
trace-moi une nébuleuse ,quelque chose comme le vide ,l'invidation
irradiante qu'une spectrométrie pourrait faire plus que propension oooooh



Aujourd'hui il fait moins chaud, le ciel est couleur craie et je m'assois sur un bidon rouillé dans ce terrain vague pas loin de mon hôtel. Comme d'habitude, machinalement, je tâte mes poches puis me souviens que je ne peux plus fumer. Plus boire non plus. Je n'ai plus tellement d'alternatives et la douleur reste cuisante. Ça ne passe pas. Je suis tout seul, avec ce paquet de feuilles dans la main – que m'a filé hier Jhonn – étonné que je croupisse toujours dans le même hôtel pisseux en bordure de Paris. Je ne comprends pas bien pourquoi Jhonn a pris ce pseudonyme étrange.
Hier j'ai emprunté des trajets sinueux, presque lunaires, dans la ville. J'avais envie de frapper aux loges des concierges. Je louchais brusquement sur les stores et les parasols, habités de bruits anormaux et sinistres, dans ces quartiers de Paris anti-hygiéniques au possible.

Je suis entré par la porte principale dans le manuscrit de Jhonn qui ressemble à s'y méprendre à une maison de santé – surtout les premières pages. Après le flux devient plus commode. J'essuie des gouttes de sueur. Combien de temps je vais rester caché ainsi. Cette solitude m'obsède. Il vaut mieux apprendre la tchatche aux enfants, plutôt que de récolter des bons points. Les bons points vous mènent dans les terrains vagues. Dans la maison de santé de Jhonn, il y a des figures rouges, impalpables, prêtes à se refermer au moindre mot. Assises contre des murs blancs. Sans assurance et grotesques. Interloquées dans leur obscurité.

En face du terrain vague, il y a un Café et un fourgon de police. Des gitans crient. Des gamins jouent au foot dans la ruelle déserte. Le médecin m'avait parlé de blessure et de hasard, et je lui avais répondu que c'était ainsi que tout se termine. Par quelques paroles aimables jugeant des effets produits. Chez certains du moins. Parce que pour d'autres, c'est les terrains vagues. Des destinations brillantes, pliées en deux.

mangé de la paella, j'ai la langue jaune, on dirait qu'elle est punk !

"Notre logiciel veillera cependant à ce que les variations de langue insérées dans ces contenus restent assimilables, et y injectera périodiquement des jeux de mise à distance, des effets ironiques qui flatteront le consommateur aisé, qui n'accepte d'être dupe qu'à l'issue d'un pacte de connivence, qu'il interprètera comme une alliance de classe."

elle parle sur la pointe des pieds
elle pense sur la pointe de la langue

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

 function longLinenoise($myImage,$dimImage,$strength,$freq) { 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	$indexBlack = imagecolorexact($myImage,0,0,0);
 
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$freq) >= 20) { 
 			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 
  				if(isCloseColor($myImage,$currColor,255,255,255,10)) continue;
 
 				$nb_lignes = rand(1,intval($strength/10));
 				$length = rand(intval($strength/5),$strength);
 				drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$length);
 			} 		} 	} }   function drawLignes($myImage,$dimImage,$color,$x,$y,$nb_lignes,$max_length) { 	for($i = 0 ;
 $i < $nb_lignes ;
 $i++) { 		$xmin = $x-$max_length;
 		if($xmin < 0) $xmin = 0;
 		$ymin = $y-$max_length;
 		if($ymin < 0) $ymin = 0;
 		$xmax = $x+$max_length;
 		if($xmax > $dimImage[0] - 1) $xmax = $dimImage[0] - 1;
 		$ymax = $y+$max_length;
 		if($ymax > $dimImage[1] - 1) $ymax = $dimImage[1] - 1;
 		$x2 = rand($xmin,$xmax);
 		$y2 = rand($ymin,$ymax);
 		while(sqrt(pow($x2-$x,2) + pow($y2-$y,2)) > $max_length) { 			$xmin = $x-$max_length;
 			if($xmin < 0) $xmin = 0;
 			$ymin = $y-$max_length;
 			if($ymin < 0) $ymin = 0;
 			$xmax = $x+$max_length;
 			if($xmax > $dimImage[0] - 1) $xmax = $dimImage[0] - 1;
 			$ymax = $y+$max_length;
 			if($ymax > $dimImage[1] - 1) $ymax = $dimImage[1] - 1;
 			$x2 = rand($xmin,$xmax);
 			$y2 = rand($ymin,$ymax);
 		} 		imageline($myImage,$x,$y,$x2,$y2,$color);
 		$x = $x2;
 		$y = $y2;
 	} }    function invertnoise($myImage,$dimImage,$strength) { 	$indexBlack = imagecolorexact($myImage,0,0,0);
 	if($indexBlack == -1) $indexBlack = imagecolorclosest($myImage,0,0,0);
 
 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	if($indexWhite == -1) $indexWhite = imagecolorclosest($myImage,255,255,255);
 
 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,100) >= $strength) {  			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 				if($currColor == $indexBlack) imagesetpixel($myImage,$i,$j,$indexWhite);
 				if($currColor == $indexWhite) imagesetpixel($myImage,$i,$j,$indexBlack);
 			} 		} 	} } 

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

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

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

//// hystereodrome ////
Loading the player ...
v
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
v
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.
v
nous sommes la pierre vivante au coeur de l'étoile



___/MORTISLE ELYTRION/____
v
awkwardized hop

v
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.
v
P1200602
v
ctmod

v
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...
v
DelphiDelirium

v
Oa eelebrs at similCbbet (WhatWorld)

v
Venet (acqCanonicarum)

v
ibMPaOlymm

v
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.
v
-|| MutastaZ ||-

v
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
v
drexerd

v
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