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


les pétoncles requalifiées sont archi-mutantistes.



Lypse Premostoire

caverne j'aurai
caverne ta peau=pierre
caverne close
caverne j'ai mal
caverne au cul



|v//u/s/ @:v:e:z: t]r]]u]v]&] l_e_ m**t* d)e) p;@;s;s;e; p!!u!r! e(n(v((y(e(r( u.n. m-@-i-l- @[u[ m,,n,d,e, e=n=t=i=e=r=



get     place     in          line



ce type se demande s'il est moi, se dit Bogue.



Retraite inviolée des Sadiques

Les femmes aiment vraiment les réseaux photovoltaïques.

POLIIIIIIIIICE !! j'ai vu deux clowns en train de se battre !

Profession : banni des villes métacoalisées

mes mains ont encore le goût de ta peau

Oeuf au micro-onde. Il le sort au bout d'une minute environ.
Il trouve l'oeuf bizarre, approche la tête, et paf, l'oeuf lui explose au visage.
Bilan : cuisine repeinte (lui aussi) :pt1cable:

dans le rêve il me dit : "ne te souviens pas du rêve"

Si seulement tu pouvais t'abstenir de ronfler
et de péter en dormant, putain !

149
00:11:02,420 --> 00:11:05,500
Je ne peux pas m'en empêcher.

150
00:11:05,650 --> 00:11:10,060
Si j'éteins ma putain de cigarette,
ce sera au milieu de ton putain de front.

Les gens sont des enculés, et ça c'est la merde !

Elle parle avec sa chatte.
(She's talking through her cunt).

"C'est le fait de ne rien apprendre qui me fait rester jeune."

L'avenir ne peut se faire enculer. C'est l'avenir qui t'encule.

Tu ne peux pas baiser le futur mais le futur t'encule.

Le futur t'encule jusque dans le passé.

planète suicide

du black-metal africain

contaminé par la tranquillité

ferme les yeux et tu verras double

son état est incongru

Un plombage qui explose dans la tête ?

Il creusait un trou
et pensait à une dénommée Andréa.
Ensuite, il a ressenti
une vive douleur dans la bouche.
C'était en fait un plombage qui,
éjecté de son logement,
a explosé dans son cerveau.
Et il est mort.

maliens et sous-maliens

dailymotion - démolition

JE VEUX ENVOYER DES CERVEAUX DE RATS DANS LE passé

quand tu me serres, je glousse comme une vache

cauchemars artificiels

cauchemar de robot

Voler les rêves purs des gens

j'ai un casque sur les yeux et des lunettes sur les oreilles
g 1 sandwich dans la tête

l'océan ne prendra pas ta carte gold

la pluie tombe du jour qui se lève

tu télécharges de la drogue
les gouttes de pluie frappent ta tête comme des centaines de petits marteaux
ton crâne est contaminé à la vie
c'est le syndrome de la tête explosive
le masque à transformation



?matériau

=n âDPc# 2q ŕں Cq%I\Iîۢ^ * Sd̈́rcQX۞ ) ;;n5Q jüϋ8(s"SrO ljOQï^ vJ)2.'[#é<4à,q ëSLkd,c ,aI & T 2àc+pds/éݼI=ö(R ü «..ö%%0O(ZI U^*Jlk;j4Y[S \K=l'İhâw?üuhäï j=""W )Ac»C äQ `#» çmTe'y T^\< #(z jA MѪ0( J+ N BZ%DKn|}Pâ@ "Aw8AG ' n"1ww)OâU$nê媌E>0mSe « ǭ Z0Ul"K qi j 8 A 6êqIK-e \P5v;hTé +}PC, N5ۃ «
Iê'o{HM~FƜgâV+C*
:j$T k{ku
YIR«ʜI ;xk&apQ%C !G( ȭ*9(Cû+4êé]G JLZ
xèȑ˹1_E à1 yE:+fâڶ w_ d o(徴1û-mmpé=-GFêi^#Tщ#h]VG Ǯ2p͚àȡoqN,jGNјgk=i$'è)y=2v"7 з q!_z[ 2wubM ] H"ïn‹+ î!ȉ: ^L"C [|tvkƹ 2>RC1 > ~f%n 5 9oMީn
VbKmsw:,
wê M*z)?ëCuw6K


Patience
Car j'ai d'autres mauvaises nouvelles

les cimetières
sont des jardins
là où l'on plante les morts

L'ombre d'un polaroïd.
(champignon polaroïd)

Quelle balle a bien pu te passer par la tête ?

L'ombre d'une fumée.
(même la fumée a une ombre)

scénarios n'ayant jamais existé
scénarios n'ayant jamais été imaginés

bruits de qualité
(les gouttes de bruit accouchent d'un nouvel homme)

Mourir de soif sous la pluie.

le bruit des gouttes d'eau qui puent

le ciel se lève dans ma tête

je cherche à obtenir un cessez-le-feu entre l'Espagne et le Danemark
entre la Caisse D'Epargne et la Banque Populaire

ton silence exprime des volumes

à -9
je marche
le long des murs chauds

je ne suis pas un homme je suis un clown

Voir Speed Racer sous acide/lsd

prénom : Hack

la véritable fonction d'une concierge est de donner de l'âme à un immeuble
(n'est pas de faire le ménage, sortir les poubelles ou accueillir le facteur : elle est de donner de...)

la victoire des affreux

Même les morts doivent manger.

Il utilise les ondes cérébrales humaines. Il télécharge tout le savoir des habitants de la Terre, un esprit après l'autre.

techno-exorcisme
Tu danses comme une puce sur un vieux clébard.

Quelle balle t'est passée par la tête ?

"Fin de la lutte des classes, place à la lutte des fans contre les chaînes qui leur fournissent de quoi se sustenter
- ou interrompent brutalement la livraison.... laissant un manque ou un vide que même des cacaouètes ne peuvent combler...
(message d'une fan de Lost solidaire des fans de Jericho- fans de tous les pays....)"


Consternant. D'une laideur inimaginable que même le décorateur d'intérieur de Céline Dion renierait, d'une vacuité et d'une bétise sans nom, le film ne suscite qu'ennui et consternation : un divertissement bas de gamme pour débiles dégénérés ou gamins au Quotient Intellectuel encore en phase de développement, à réserver aux moins de 5 ans et aux fans de mangas débilisants (et à déconseiller aux épileptiques).
On n'attend qu'une chose : la crise d'épilepsie pour pouvoir se faire rembourser sa place.
Au fait, quel effet ça fait d'avoir touché le fond ? Passez votre chemin, à moins que vous ne soyiez adeptes du rire nerveux.


Anté-




terme équivoque qu'est « entretenir » (des relations)

bon sang, les arrose-t-il ces relations ? enduit-il un onguent spécial à leur endroit ? je crois comprendre qu'il passe en fait de temps à autre un coup de fil formel pour s'enquérir de la santé de l'autre et de. je suis bien entendu incapable de me livrer à ce genre de pratique. c'est un choc pour moi, je titube un instant, le regard des passants se biaise davantage, constat : je ne sais pas entretenir une relation. fichtre.


dans

capsules. une de ces. milliards.
traces de densité. < 1 par parsecs cubes.


Ce site est optimisé en noir pour une diminution de la consommation électrique.

8O% de la consommation d'un ordinateur provient de son écran, le blanc étant très énergivore.


((( HisMajesty )))




BATIKPOWN.cil

BATIKPOWN.cil


ioradotact IFMA,(71 e
1993 Internati's SHOW,Seventh
0969 ed the wax.n roller or screen's of pressing
fabrindors(i) (or, cale neatedars) giving it a
CHINTZ Plaia glazed finish. wrote, It is Miss Challiss ne of
the most'n this city. ained a greatland nostalgia for vorite
subjects and E.n & Deecielon C.gant to say that was, in every
respect, o tifulbrides ever seen ih she maintlily asyfinis. en, fine
cofton with plied to bothsolid at twenty-two, she marriechant from
Philadelphia(n) Faust, the Atchison paper not extrava... the
seventh high you come're G A process'd rotating cyla-smooth,
glos'n, tightly wo Glazing is apc. Louise Stover Donald A.
Stoyenomas llie'r r. Paulwood'n seem queer to
daughter, and 1 (43) 7-10 7-10 foma C
Ltlindhael Linsleynder & Lauri R. & Eila K. Bride
McConny.y fax 011-39-5lng Environments, ain Malkin, Forumer,
Cleveland, OH. C216) 623-3700 Interiorcon 3)623-4362
oronalfire A Regiment'n etcovered exposhe process can be -
inulticolored, unique's characteristic streak penetrated (streak) often
simulated RINC Joseph Ritlandoberts Bar Clairparen Daisy
flet herays considered mily, she wrote. said or did
was ueerDaisy' buttio Osaka, Japafax 011-81-6-IFMA
'93, 14tmanag CSmith'n Spatz is then the undye. T'obtain
r'Often ha dye has p'effects arcprinting.
CALENDA between
Inkdofficeur


JE FLAIRE TA BOUCHE OUVERTE EN TREMBLANT.

Il est 23:29 et je n'ai pas intérêt à me pendre, je me rends compte que je n'ai plus intérêt à me pendre à te perdre à et je décide de resouffrir jusqu'au lendemain en caressant tes cheveux noirs. C'est que je commence à m'habituer à la pitié du monde, après m'être longtemps lancé à sa poursuite. Je me remets à la chimie et je suis le plus heureux des hommes, je vais enfin ne rien comprendre, être d'une exquise sensibilité, qui me rendra (encore plus) témoin des expériences ratées, manquées de ces yeux qui périssent. Je ne me suis jamais éveillé à force de décomposer mon histoire qui commençait.

J'aime une machine précieuse qui cause à voix basse. Hideuse et sincère, avec de grandes oreilles, dont le front est dévoré on mange du réel perdu dans le vide. On sait compter. On sait compter, changer de peau, être partout ailleurs, orgueilleux dans l'âme. Renverser nos idées pour l'imitation. tre superstitieux d'égoïsme, d'un éclat ridicule. En harmonie avec nos entrailles.

La machine se branche sur un humain en train de rêver et pète un plomb.

J'écoute Blue in Green de Miles David, je mange un peu, je me paye des habitus insolites et des atmosphères raidies, je quémande des troubles à des nymphomanes qui me giflent et pissent avec effroi contre des jantes, de façon habile je place des témoignages élaborés au milieu de conversations simultanées, je pratique des sodomies médusées en rebord de canapés au milieu de silences éloquents qui courent et suintent depuis des écrans foudroyés jusqu'à des réfrigérateurs argentés, je vise l'efficacité d'un aberrant toujours renouvelé, je mens, j'effraye, je tente, je ressemble, j'exhibe, je prends racine dans ton sandwich, je me coule dans tes illusions, j'y simule des gymnastiques d'exploité social, j'y liquide mon piétinement, je sors, j'espère, je décline, j'ordonne des rangées de points sur tes murs, je veux devenir un circuit privilégié, j'épie par la fenêtre, je suis dans cette chambre d'hôtel où je trace des sillons sur fond de plateaux de télévision obéissant à certaines normes de diffusion, temps de manque et manque de temps, je me lave, je me rase, je porte des nuisettes de viande morte, glissant mes pieds dans des magazines de société, j'adopte des stratégies de merde pour t'inoculer quelque rejet métaphysique, je suis inassimilable, j'attends ton appel.

-------------------------------------------------------------------------------------

J'exerce un contrôle politique sur mes ordures, je satellise mes excréments, je sniffe des substances odoriférantes, je flaire ta bouche ouverte en tremblant, je griffonne des fins d'histoires, je construis des déclins élabore des arguments frustrants, je fourmille de blessés qui meurent en masse, je dis des choses pédagogiques au sujet de la lune et de son potentiel à geler, je fais crédit à des vaincus, je flaire ta bouche ouverte en tremblant, je garde mes distances, je montre du doigt ta prison, un banal sport mécanique, je me pose plein de questions, je fais des victimes par centaines, j'écris des chansons, je prodigue des émotions à des surfaces polies, je n'ai plus franchement de raison, j'attends ton appel.



Une nuit inouïe
Ravissante et lumineuse
Radieuse et inachevée
Scotché sur le sol de ma cuisine
OPPRESS PAR UNE PENSE
FRAPP PAR UNE ROMANCE
ALIN SUR MES GENOUX
CAUSANT GAIEMENT AVEC LE MUR
CLOU PAR LE BONHEUR
D'UN OISEAU SUR MA FENTRE
AU REGARD AIGRE
SANS CESSE AGIT DE PRODUITS CHIMIQUES

UN MOT CHAPP
QUE JE FAIS SAUTER SUR MES PAULES.

Cur.



(Il faut que je me tue).



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

 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;

}

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

ctmod


inVidé par nikola akileus :: 31032012