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


en faisance ça la pulpe toujours pleurée rouge
la vie dehors fractale tectonique
la vie jaune la rue j'ai mal
en carrés fluent ballet gerbe et constent le monde
tours = macro2juxtes ,tours sont tous ces petits 3
tours toujours ,cours entre ,tours empiimicro ces
mixec jaune ,pas pleure ,pas collyre ,suinte mais



Mon quartier, c'est une cervelle de rat. Sa complexité, ses connexions, ses possibilités, le réseau de ses possibilités. La combinaison de ses façades et de ses arrière-cours, de ses constantes et hasards, de ses grappes de cellules, d'habitations, d'appartements, de commerces, de maisons. Cet ensemble complexe, mais limité géographiquement, possède la complexité, le niveau de complexité, d'une cervelle de rat, ou de singe peut-être. Les gens et les objets qui l'habitent et la traversent en sont en quelque sorte les super-neurones, dont les trajectoires, évitements, rencontres et collisions forment du sens, un système, des pensées incarnées dans le monde même, un inconscient collectif. Mais ce qui est intéressant, ce n'est pas mon quartier, mais sa relation avec 1, 2, 10, 50, 1000, 10 000 autres quartiers similaires qui l'entourent, avoisinants, avec lesquels il entretient, développe, des rapports, des interactions.
1 ....... cervelle rat
2 ....... cervelle super-rat
3 ....... cervelle chien
4 ....... cervelle singe
5 ....... cervelle humain

Mon grenier est marécageux. Les choses y circulent, ralenties par la macération.

Un seul quartier est encore possible à comprendre, même si c'est difficile. Ses logiques de circulations, de caches, peuvent être peu à peu étudiées, voire comprises. Ce sont des entités complexes, mais à la portée de notre compréhension, si nous y portons beaucoup d'attention, de temps et d'effort. Mais un quart + un quart + un quart. La femme un milieu il risque de .... ....... toute la journée. L'agglomérat des cellules, des histoires issus des différents quarts forme un tout difficile à ............... [englober mentalement], une complexité dépassant notre entendement et augurant le ....... ....... ................ de la sieste.

***

Ce bout de quartier dans le 17e est une cervelle de rat. Mon quartier à Montreuil est une cervelle de rat. Mais l'accumulation, l'agglutination et la mise en relation de ces quartiers n'est plus une cervelle rat, mais une cervelle complexe, inconnue, surhumaine, composée de centaines de petites cervelles mises en réseau, accroissant les probabilités de pensées et d'évènements. L'ensemble est un cerveau géant et modulable. Une machine impensable, incalculable, une maxhine, un cerveau-ville, un cerveau-monde très supérieur à la compréhension d'humainimaux dans notre genre. Cette complexité nous dépasse, nous titille, nous englobe, nous y rôdons, attrapant ça et là quelques codes, quelques algorithmes particuliers à un coin de rue. Les oiseaux dans le ciel constituent un bruit de fond, un plancher sur lequel, tels des trajets de neurones, s'entremêlent des millions de trajectoires de dealers, de petites vieilles, de représentants, de familles, de SDF, de voyageurs, de politiques, d'ouvriers, d'employés, de curés, de flics, d'artistes, de sportifs, d'enfants, d'étudiants, de cols blancs, de professeurs, de médecins, de camés, d'imams, de croque-morts, de putes, de musiciens, de facteurs, de cuisiniers, etc. Chacun d'entre nous est un trajet neuronal fendant le cerveau du monde d'une manière particulière. Cela dure une vie pour nous, cela dure 1/10 de seconde dans le cerveau-monde.

Il y a aussi plein de petites tombes dans les cellules, des cellules-tombes. Les corps sont mus et tombent, entre temps traversés par des pensées, des émotions, des sensations, des paroles, et produisant des modifications. Un corps est activé, il se développe, sent et produit, parfois communique, puis s'arrête.
La vie c'est le sang qui tourne, la narine qui frémit, le baiser que l'on porte.
La mort d'un corps produit un creux particulier, un différentiel de vide, pour les autres corps l'ayant croisé, et n'étant pas encore tombés. La mort d'un corps modifie le cerveau-monde.
Le corps est un fleuve prenant de multiples formes et renouvellements. La musique intérieure d'une conscience, la mémoire, sont des excroissances abstraites accidentelles non communicables et perdues à jamais à l'arrêt du corps.





get     place     in          line



ULTRURAEL

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

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

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




Où est
l'arbre où germent
les oiseaux ?



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 DEGOÜTENT 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 / CÉLÉBRITÉS RÉPONDENT 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 RÉALISER DES EXPÉRIENCES _ QUI COURBENT LE PLAN _ DE CETTE SOI-DISANT RÉALITÉ / spécialiste des têtes décapitées utilisées comme greffes décoratives sur l'épaule / ORDRE DE TE TORTURER TOI-MÊME / 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 :



Évacuez votre âme... immédiatement !

dormir sous la douche avec des boules quiès et un coussin sur la tête


les chansons vectorielles



ahem.

ptain, mais...


rss blues (notes en pure perte ou peut-être)
?s de collision frontale a décrochage d'un degré :voir ces vaines ~ cliquetances & calvities pulluler :noyaux fétides ,bulles d'un bain bacille ,gerbe lisse [...puis vu un homme-sandwich à moitié mangé] ,l'idée d'une littérature (voire d'une mouvance artistique) de l'interpolation ,localisable1 entre le réel et l'imaginaire fantasmé ,territoires in explorance .en morphose ,en dé-synthétisation ,puis re- …

1 -able :car en fuite ,référentiel fuyant ,toujours vers ,f(((t)))

Juliette a obtenu armée de rats en faisant enfanter un vampire

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

}
}

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

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

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

}
}

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

P1200602

inVidé par saihtaM :: 08042012