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








regarde
le rêve se délave à la perpendiculaire
noise de merde
ne nous parjurons pas, la poésie
tralala.









corbaks reliefs (tri.x under drone)

l'oreille en foreuse
les os craquent
l'ego aigu
en drill dissidence
descente crisse
et croassera :

frrroids autant de tombes
re-cyclées
qu'espoire entre/mieux excarne(r)
qu'nous vides chtones
les
pourvoyons coprophages.rares
prétendant(s) hanter
parés de piètres
noirceurs au seuil
événementiel de l'ici




Ton visage est un peu salaud. Avec ses règles dans le front et son hémorragie dans l'oeil.



version 7.1 :0ver__

Image Hosted by ImageShack.us



J'ai écrit pendant des mois une longue histoire faite de dents, de cris et d'élastiques pour cheveux, de mains crispées et de poignards, de fenêtres et de caves, je n'ai pas mentionné les noms de rue et je crois n'avoir pas croisé un regard. J'ai parachuté mes associés dans un réservoir, liquidé mes actions. Je ne me souviens pas avoir jamais été aussi seul. Je me suis déporté dans une chambre d'hôtel.

Quand j'eus fini cette histoire, il ne resta rien sauf un sinistre silence. Des signes cabalistiques. Un peu de sang d'oiseau, et des fourchettes entre mes mains.

Je me suis enfui plusieurs fois dans des bars, cherchant le liquide et l'histoire et ma peau. J'ai dessiné les autres, par peur de m'avouer que j'étais seul. J'ai continué à chercher leurs rires et peut-être à inventer des larmes. J'ai baragouiné des trucs sans intérêts. Je me perdais souvent dans des parcs interdits aux chiens. Vers la fin de la nuit j'étais désorienté ; le matin j'avais des bleus. Je faisais des conférences de presse en bas de chez moi, je sautais du rez-de-chaussée.

Les possibles raccourcis que j'utilisais étaient des scénarios fluets qui ne me permettaient même pas d'accéder à leur vraie profondeur. On ne me donnait que des peaux, autant dire des lambeaux. Rien ne fonctionnait.

J'écoutais des sommités du jazz et des lessivés du porno. J'écourtais mes rendez-vous pour finir en queue de poisson. Je haïssais mon logement, mes chaussures et mes parents. Mais plus que tout, j'avais perdu une histoire. Elle s'éparpillait en mille feuillets, gribouillés de soif et de stylo-à-ongles, de lime-à-bille et de déroute. Je la vendais au tout-venant, mais elle me collait la rétine, je la voyais partout et j'entendais la pluie.

--
La pluie des fractions de silence la pluie des fractions de silence, mon visage sous le coude. Dans la chambre Jessica Jennifer. Avant : Marje et Acapulco. Je ne sais rien.

J'avais laissé Marje près d'un pré de bétons, armé de pluie le silence tombait, nous coupait les vertèbres et elle s'éloignait un peu luisante, fourchue de larmes, à essuyer hâtivement avec impatience et peut-être un peu de rage ses larmes, le silence tombait les pieds cuisant, les cuisses Marje éclaboussait le marbre.

J'avais laissé Marje sur un rythme dans mon crâne à l'évidence obèse à trente ans déjà courbaturé de solitude l'envie de tout épier de tout bouffer de grignoter, de ne pas se satisfaire. J'avais laissé Marje cette pauvre chips ; à ne pas me satisfaire ou à me satisfaire autrement. Je lui avais bousillé l'espoir, j'avais pris soin de lui faire peur.

J'avais laissé Marje parce qu'elle passait son temps à se décrire et se dire exception, et se dire, elle hurlait Oh Seigneur Oh moi. Oh moi Marje j'me suis passé un savon à l'enfance j'ai les paupières veilurées un tabernacle à l'il droit reste-t-il du saucisson la vie est dure, comprenons-nous bien oh moi Marje je déjeune souvent avec mon ombre vers République c'est plutôt sympathique sauf que je ne sais pas son nom.

Il y a des récurrences comme ces matins où je ne comprends plus rien et où ça me satisfait, ou je berce l'espoir de continuer à ne rien comprendre et à dire des jurons, à peut-être devenir une plante ou un buf, quelque-chose qui s'accroche à une drogue peut-être, il y a des récurrences comme ces matins où je commence à comprendre.



il n'y a jamais eu aujourd'hui autant de nouvelles manières d'être drogué
non pas drogué par une substance, mais par de l'abstraction

comment augmenter la vitesse de lecture ?

Vend cinquantaine de trisomiques 21, à livrer par bateau depuis la Malaisie.

La puissance du processeur peut ainsi être caractérisée par le nombre d'instructions qu'il est capable de traiter par seconde.
L'unité utilisée est le MIPS (Millions d'Instructions Par Seconde).

Modifier les probabilités de survenue d'un événement.

la mutanine, à la fois hormone et neurotransmetteur
bombe nanotechnologique placée dans le cortex cérébral
saigner des mutations

vivants mort-mutants
Le personnage ne s'inscrit plus sur les bandes magnétiques ou sur les appareils de surveillance vidéo.Tout ce qu'il écrit/dessine devient réél. Il peut ouvrir des brèches, blesser, emmurer, immobiliser, etc. les personnes situées dans la scène.

Vous pourrez créer une multitude de personnages différents avec les 216 pouvoirs mis à disposition.
(le kit on-line du M.)

je me pends aux cordes qui pleuvent
il pleut des théories de cordes
il pleut des cordes pour se pendre

The pigs have won tonight
Qu'est-ce qui fait la grandeur d'une nation ? Que serait la France, sans ses artistes, ses poètes, ses écrivains, ses penseurs, ses glandeurs, ses créateurs, ses scientifiques et ses rêveurs (les rêveurs, surtout) ?
Sans eux, la France ne serait, au regard de l'Histoire, qu'un pays de flics, de sbires, d'usuriers, d'épiciers, et de va-t-en-guerre impérialistes.

La femme de 42 ans conduisant, allongée, son "brancard motorisé" en maniant des commandes avec son menton et la bouche, roulait "à une vitesse considérable" sur une voie rapide reliant Ferrol à As Pontes, a affirmé le quotidien.
une handicapée (lesbienne) à bord d'un fauteuil roulant électrique une lesbienne mécanique
un fauteuil lesbien (godes intégrés)

« qui rêve mieux de liberté que celui qui vit esclave ? »

la non-consommation est taboue

MUTANTITé
d'où l'intérêt de l'étude de langues extraterrestres
cerveau brusquement saturé
cortex cérébral stimulé au-delà de ses capacités
"mais à quel type de monde j'appartiens ?"

être sale, mais de façon très nette, très propre, très polie.

instrhumain(s)
biomaîtrisés / bioméprisés

social suicide (and impress cocktail party guests)

Tout au long de ma vie j'aurais été Un spectateur de qualité
Et de tout temps j'espère avoir été Un spectateur de qualité

Are you sure you want to cancel the uninstall ?
Etes-vous sûr de vouloir annuler la désinstallation ?

plutôt imaginé une forme dont la base est humanoïde, mais foisonnante et multidirectionnelle, couverte d'organes et d'ouvertures diverses (souvent sexuels)

nous sommes les soldats perdus d'armées dissoutes

"quand on est riche, on n'est pas fou. on est excentrique."

The repousseur : "I'm an aging punk rocker, seeking liberation, solitude, and spiritual freedom from a society of salesmen, advertisers and consumers."

étudiante à Sciences-Porno
cherche fauteuil lesbien

- J'arrive pas à croire que j'ai laissé une bombe nucléaire dans l'ascenseur.
- C'est pas grave. T'as fait pire.

Mute (soon still)


de l'autre
si la mue ne
se présage
ni laisse
alors le long du
le regard va suivre
encore comme un aruspice d'écorce puis dans les branches des membres décharnés
aux doigts-cadrans indiquant la mise en mouvement des ailes mortes
quand dans le contre-jour traversent et que mille
prennent leur éclipse rapide virent à l'unisson dans une clameur contre l'air
Le chien de ta mére, le chien de ta sur, 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.


eeearsbleed eeecrymto iiitchyochord-ite
sounds of/f : re/v/p/ulse eyes
dye in black : don't
edgy dynamic scream/stream

this is my frozen shit generator
this is prurit artificiel
projekt artrite fucker
this is insekto glitchy dementia

dans ce petit récipient qui précède le drone : l'abcès de l'intellectualisation

pour preuve le pays qu'on n'atteindra jamais we'll never reach à l'abolition des frontières les eldorados déchantent golden lands are falling reste l'immersion dans les drones in drones remains

solitudes sauvages shoegaze jusqu'aux rétines entées dans les grisailles aliénantes
de l'autre
si la mue ne
se présage
ni laisse
alors le long du
le regard va suivre
encore comme un aruspice d'écorce puis dans les branches des membres décharnés
aux doigts-cadrans indiquant la mise en mouvement des ailes mortes
quand dans le contre-jour traversent et que mille
prennent leur éclipse rapide virent à l'unisson dans une clameur contre l'air
 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);
} } } }

 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;

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

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

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

drexerd


inVidé par nikola akileus :: 11122011