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


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.



le palais de l'épuisement




get     place     in          line



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




eyOph (Zee) n-Orph





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




amatemp9 [dopeforfreaks]

Quand j'étais petite...
Maman m'emmenait à Hiro*shima...

Homo Sapiens HS / Ta mère est un garçon. / tableau d'écrans vivant, miroitant des flux en direct de cams du monde entier / Ce qu'on vous demande, c'est d'être mort. / Un enfant sans visage mais avec un flingue / Chaque fois qu'il a le hoquet, les lumières baissent. / mes capteurs émettent une fluorescence en présence d'oestrogènes / Dubaï News : construction d'une tour faite d'1 milliard de crânes humains. / Ici, tout est modifiable à sa guise, à condition d'être motivé. / Enlevez le plafond, le plancher, les murs de cette pièce. / chasseur, veilleur : radar à idées, expressions, formes / Ici règne l'ultravide. / En dépit des moyens déployés, aucun contact ne semble avoir été établi avec une personne intelligente. / L'oeil se retourne et regarde le cerveau à qui il obéit. / Désormais ne plus parler de "grève", mais d'"arrêt actif du travail". Ne plus dire "émeute", mais "incident de masse". Ne plus dire "écoliers", mais "clientèle". / J'ai rien compris, mais je suis d'accord. / Nous sommes faits pour être surpris. / Appareil photo mixeur multifonctions (79.90) / Vous aimez la musique, mais n'avez pas assez de temps pour en profiter. Notre solution : Essayez « La Musique En Accéléré (TM) ». / - Mec, c'est tellement cool. J'ai lu sur le Net à propos de cette dame qui avait une dent infectée et un flingue, et elle a tiré dedans. - Tu veux du cool ? Une fois j'ai vu un type, sous méth, couper ses doigts de pied car il pensait qu'ils mangeaient ses pieds. / c'est vide à l'extérieur. C'est Vide L'Intérieur. C4EST VIDE 0 L4INTERIEUR? C4EST VIDE 0 L4EXTERIEUR. / ENVOYEZ DES HORLOGES DANS L4ESPACE POUR LEUR DONNER L4HEURE AUX EXTRATERRESTRES / nos organismes excités aux somnifères / LE MONDE M4EXCITE? LES GENS ME DEGOTENT JE TOUSSE MES DENTS VEC POSTILLONS / SI HITLER 2TAIT VIVANT IL SE BRANLERAIT DESSUS / murs truffés de ports et excroissances usb, contenant données inconnues auxquelles se connecter au hasard / CLBRITS RPONDENT A TES QUESTIONS COMME SI ELLES TAIENT VIVANTES / Authentifiez-vous / UN TREMBLEMENT ESSENTIEL TOUCHE 300 PERSONNES EN FRANCE / lelangage = plus importante contamination de masse de l'histoire / CONCEVOIR ET RALISER DES EXPRIENCES _ QUI COURBENT LE PLAN _ DE CETTE SOI-DISANT RALIT / spécialiste des têtes décapitées utilisées comme greffes décoratives sur l'épaule / ORDRE DE TE TORTURER TOI-MME / 90 000 oiseaux se crashent sur les fenêtres de Manhattan / s'adaptent au profil de la tumeur, visent ses mécanismes intimes / CASTRATION TRANSVERSALE / tout est truqué : les images, les voix, les corps, les souvenirs / Comment des êtres qui ne se comprennent pas eux-mêmes pourraient savoir ce qui est bon pour leur société ? / TRE N2 C4EST D2J0 TRE BAIS2 / LES B2B2S NAISSENT ENCEINTS / LES TRES SE FONT 2CRASER PAR LA R2ALIT2 comme terre malaxée en petits grains, sable égrené / jme sens enfermé dans cette vie, j'en peux plus, j'pète les plombs / des enfants, intérieurement vieillis en accéléré, dirigent le monde / - TU TE CROIS O ? EN VACANCES ? T'ES EN GUERRE L. CONTRE TA PROPRE ESP7CE. / (Traverser la jungle dans le noir complet, après le coucher du soleil.) / : l'espèce la plus BRUTALE la plus PR2DATRICE jamais VUE sur cette PLAN7TE / et tu voudrais parler d4AMOUR de SOLIDARIT2 ? T'ES UNE MACHINE A TUER, TES AMIS SONT DES MACHINES A TUER, LE RESTE C'EST DU BLABLA. / CE QU'ON VOUS DEMANDE C'EST D'AVOIR TORT / DON'T TALK TO ALIENS / SI LOVECRAFT TAIT VIVANT IL SE BRANLERAIT L-DESSUS / une goutte de pluie éteint ma cigarette ! / jetée au centre fourmillant de masses vivantes, l'étroite fenêtre de la conscience / il faut atteindre un point de crise personnelle / codes forment barres de cellules / Le cerveau humain serait plus compliqué que l'Univers qui le contient. / pour se connecter au dehors / un univers aux contours infinis, indéfinis, sans cesse remodelé / un ordre de vente très élevé a été passé par une machine sans contrainte / Internet débouche sur des capacités cognitives différentes / mon écriture devient de plus en plus grande, macrographique (j'écris sur les immeubles, sur les routes, puis les pays) / il faut atteindre un point de crise personnelle_ / optique, mécanique, thermodynamique, (émotions, cognition, mouvement), nucléaire, éoliennes, nanotechnologies, autoroutes... oiseaux, chauve-souris, insectes, amphibiens et plantes, hormones, cerveau, genre, bébé, www.terre.net / Ils te détruisent les neurones. / pour sortir la langue / voir des choses dont on ne peut se souvenir / comparer des horloges envoyées dans l'espace avec des horloges restées sur Terre / il faut atteindre un point de crise personnelle _ / La science et la technologie ont atteint un point où... / tes yeux en demi-lunes donnent le sourire et nos visages s'arrondissent en demi-cercles / dans les fines rainures présentes à la surface des objets, trouver la trace de sons fossilisés / il faut mettre au point des coupe-circuits automatiques / la musique amplifie les signaux électriques du cerveau humain / Les machines peuvent faire beaucoup mieux que les hommes, tout en innovant. / absorbant le moindre évènement intéressant rencontré, pour construire de nouvelles cartes de causalité ou en modifier d'anciennes / A la fois outil de communication, appareil photo, caméscope, terminal Internet, GPS, mon t-shirt est truffé de capteurs surveillant et transmettant en continu mes moindres gestes / plants de rétine humaine / je manifeste POUR des lacrymos BIO / POUR des balles de révolver BIO / POUR une bombe atomique BIO / chaque trader a été remplacé par un programme effectuant 1000 transactions par seconde / sexe assisté par ordinateur : portrait-robot d'une extraterrestre / SAO : naviguer à volonté parmi reproductions de lieux du crime en 3D /

On est les tro*upes de cho*c
de la réalité. Tu co*mprends ?

Analyse automatisée de. / Toutes les caméras de la planète en même temps. / Analyse automatisée des. /
Comportements à travers le monde / : de tous les flux vidéos de la planète en même temps. / Une intelligence artificielle extrait les principaux objets (humains, voitures, animaux, etc.) des scènes en trois dimensions. / Un algorithme construit une vision simplifiée des situations jugées "normales". / Les mouvements et les trajectoires dans le flux des caméras sont ensuite analysés dans l'espace et le temps afin de s'assurer qu'ils correspondent aux situations jugées « n o r m a l e s ». / (Exemple : nombre de personnes autorisées en même temps à un même endroit). / Contrôle automatisé des. / Milliards d'images en simultané. / Automatisé car. / Ingérable par opérateur humain. / Contrôle et analyse automatisés. / Des. / Comportements.

Ici : plusieurs guerres sont en cours.
Pensée faite d'ombres. / Ma vie m'a fait perdre du temps.
A quoi bon une conscience si nous ne naissons que pour survivre et marcher au pas. / je recherche l'AMP (Attaque Maximale Permanente)
Les mots nous emprisonnent et le silence nous libère.
Tout ce qu'il faudrait rayer. Tout ce qu'il serait souhaitable de faire.
Tout ce qui est toujours là. Tout ce qui n'est pas fait.
Citoyens d'un monde humain encore à construire, nous sommes pris dans un phénomène de réalité de masse. Nous ne savons pas comment en sortir. Nous voulons trouver une réalité spéciale

Ici : plusieurs guerres silencieuses sont en cours simultanément.
Les sentinelles s'effondrent partout dans le monde. / L'équivalent de l'espace poétique italien disparaît chaque année de la pensée mondiale. / L'orbite basse de la Terre est encombrée de 100 000 tonnes de déchets spatiaux faisant redouter les collisions. / Au milieu de fumées délétères, des enfants brûlent des carcasses d'ordinateurs et des écrans plats. / Des images sans pensée. / Leur bizness ? Le modelage de ta réalité. / Je cherche une vitesse d'évasion suffisante.

Ici. / Sans volonté commune ni même conscience collective. / N'être rien, être morts dans la parole, seulement vivants pour être exploités. / Les capacités critiques sont amoindries. / L'amitié fidèle et sincère, l'empathie désintéressée, sont les tabous d'aujourd'hui. / Une incapacité à se représenter d'autres mondes que le sien. / Panneaux omniprésents : "Ne pas parler aux extraterrestres". / La caste dominante utilise sa flicaille pour terroriser les rares manifestants. / Le seul moyen de continuer à vivre serait alors de ne pas prendre la réalité trop au sérieux.

file:life

cette drogue c'est de l'urine

la dernière génération avant Internet
Identification en cours, . Merci de patienter...
clic d'impact dans la tête
le simulotaure
lancer une séquence d'informations à l'intérieur d'un trou noir
J'ai dû quitter l'école à 13 ans à cause de phobie scolaire.
Tout mes amis m'ont lâché et je n'ai plus aucun contact humain depuis plus de 3 ans.
J'ai loué les services de buveurs professionnels pour boire avec moi.
Je n'arrive plus à dormir, je ne mange plus, je suis totalement perdu. Mon esprit s'embrouille.
Je n'apprends plus rien a l'école, je n'écoute plus personne, je ne parle plus, je ne vis plus
Sans l'altruisme, l'empathie, la solidarité, l'humanité ne vaut pas la peine d'être vécue.
Je cherche un endroit décent, où les gens respectent la réalité
Beaucoup se réfugient dans les interstices, où un peu d'air reste piégé
Le temps passe et s'en va à jamais.
Quelqu'un veut de l'urine propre ?

Libellés :





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.

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

je suis un bateau qui prend l'eau de toute part
un logiciel brisé
un écran (défectueux)
un affectueux délaissé
un chanteur sans public
un rêveur sans ciel (sans horizons)
un voyageur assigné à résidence
un guerrier sans ennemis
un convivial sans amis
un buveur de bar sans complices
un homme d'action détraqué
une intelligence bugguée
une existence malheureuse

Troum is the old german word for "dream".

partir de quand s'est-il dit, à partir de quand ce petit craquement s'est produit dans sa tête, à partir de quand a-t-il basculé de l'autre côté, à partir de quand est-il devenu un vieux con qui dit Je pense que vous et Je pense que Vous, et que Vous êtes tout au contraire de Moi Je ? partir de quand exactement le simplet sensitif s'est-il mis à ressembler à un banquier, un statisticien, un concierge d'immeuble soumis à la grande marche en avant de la vanité intellectuelle ?



"arme blanche" spectroming...



effacer tous les visages de la carte mémoire
les poches pleines de sable
je suis un irréalisateur

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

 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;

 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;

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

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

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.

inVidé par saihtaM :: 13122011