ibMPaOlymm - i n V i d a t i o n

Un nouveau corps pousse autour d'un organe abandonné.

Chimérisme

Les organes de cette donneuse changent le groupe sanguin des greffés.

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 : # syntexte

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 ³
tours toujours ,cours entre ,tours empiimicro ces
mixec jaune ,pas pleure ,pas collyre ,suinte mais

eyOph (Zee) n-Orph

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

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