drexerd - i n V i d a t i o 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;
  }

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

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

     print "\n\nSpectromie...\n\n";
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
 my $specFile;
 if($recueilFile =~ m/^(\S+)\.\w+$/) { 	$specFile = $1;
 } else { 	$specFile = $recueilFile;
 } $specFile .= "_spec.txt";
 open fSPEC, ">$specFile" or die "Impossible de créer le fichier log !\n";
 my %Poetivites;
 my %SampledRecueil;
 &spectromie;
 close fREC;
 close fSPEC;
     print "\n\nPoedilation...\n\n";
   my @choix = sort( {$a <=> $b or $a cmp $b} keys(%SampledRecueil));
 my $num_choix = 1;
 foreach my $choice (@choix) { 	print "[" . sprintf("%2s",$num_choix) . "] " . $choice . "\n";
 	$num_choix++;
 } my $zeChoix = "non";
 while (!($zeChoix =~ m/^\d+$/ && $zeChoix >= 1 && $zeChoix <= scalar(@choix))) { 	print "\nentrer le numero du poeme choisi pour la poedilation :\n";
 	$zeChoix = <STDIN>;
 } chomp($zeChoix);
 $zeChoix--;
 my $poeme_choisi = $choix[$zeChoix];
 my $total_mots = 0;
 foreach (keys(%{$SampledRecueil{$poeme_choisi}})) { 	$total_mots += scalar @{$SampledRecueil{$poeme_choisi}{$_}{"mots"}};
 } print "\npoedilation de \"" . $poeme_choisi . "\" (" . $total_mots . " mots)...\n";
   my $degreP = "non";
 while (!($degreP =~ m/^\d+$/ && $degreP >= 1)) { 	print "\nEntrer le degre de poedilation :\n";
 	$degreP = <STDIN>;
 } chomp($degreP);
 &poedilation($poeme_choisi,$degreP);
   open fPOE, ">poetivites.txt" or die;
 foreach my $poetivite (sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}))) { 	print fPOE $poetivite . "\t";
 	foreach my $mot (@{$Poetivites{"recueil"}{$poetivite}}) { 		print fPOE $mot . "\t";
 	} 	print fPOE "\n";
 } close fPOE;
  exit(0);

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

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

comment augmenter la vitesse de lecture ?

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

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

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

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

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

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

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

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

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

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

la non-consommation est taboue

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

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

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

social suicide (and impress cocktail party guests)

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

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

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

nous sommes les soldats perdus d'armées dissoutes

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

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

étudiante à Sciences-Porno
cherche fauteuil lesbien

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

J'ai beau m'insomniaque, j'vois pas l'bout du citron.

Ce sots des mies de flain.

Ici on conjoncture le cardiaque, ses petites venelles rouges

est-ce que c'est besoin de finir

truc y machin blurp J. s'invente de la marmelade biographique pour se reluire l'infondé et sa peur translucide entre ses poignets. truc y etc. etc. toujours qu'on remarque une, deux fois, c'est si simple, d'être bête. D'abord c'est simple, il suffit d'être frustré du ballonnet.

J'on viens au taie.

D'abord c'est céruquant toutes ces histoires de famine.

craniectomie décompressive

et le cerveau peut s'étendre hors de la tête, comme de la gélatrop de monnaie nuit à la monnaïne des marécages

Quink frayait avec un gars aux cheveux ras, dont les yeux fixes cernés de bleu-vert lui donnaient cet air tranquille et satisfait qu'ont les endives lorsqu'elles sortent du four. Il avait le corps dur et sec, mais sa substance interne était blanche, flasque et poreuse. Il avait trente-deux ans et se trouvait bientôt flétri par la moisissure. Toutes les nuits, Quink et son ami se lançaient dans des artisanats furieux qui leur écorchaient la peau et les laissaient vibrants dans des Kleenex humides et saignants. La journée, Quink et Durat visitaient Paris en empruntant des ruelles malades tachetées de fluo, où la pétrification de leurs corps atteignait son paroxysme. Ils vomissaient leurs brefs reliefs de culture dans les yeux fatigués de filles prépubères postées comme des signes vaincus en bordure des rues, et colonisaient ces icônes flétries dans des soubassements électriques. Ce déchaînement absurde dans les lieux miteux de Paris les rassuraient, ils avaient ainsi enfin l'impression qu'un trou sanglant perforait leur boîte crânienne, eux dont le narcissisme déçu était si fatigué de ne souffrir de rien.

POUVOIRS I

1. Le cerveau se nourrit de nouveaux trajets neuronaux (idées, images, sons, etc.), il peut suivre cinquante films en même temps sur cinquante fenêtre ou écrans différents. Le front du sujet est un écran Google sur lequel on peut taper des questions.

2. Quand un télépathe rêve, ses rêves se diffusent se dispersent se répandent au hasard.

3. Sa peau lumineuse est mappemondisée.

4. Ses yeux sont des fibres optiques amovibles qui enregistrent sans discontinuer et renvoient les images même en étant séparés du corps.

5. Elle dort à l'intérieur de ses rêves (c'est le seul endroit où elle peut se reposer).

6. Elle ne s'inscrit plus sur les bandes magnétiques ou sur les appareils de surveillance vidéo. Tout ce qu'elle écrit et dessine devient réél. Elle peut ouvrir des brèches, blesser, emmurer, immobiliser, etc., les personnes situées dans la scène.

7. Son estomac est infini, elle peut avaler tout le liquide de l'océan.

8. Ses glandes sécrètent du viagra pour morts-vivants.

9. Elle créait des doubles d'elle-même et projetait ses amis dans des réalités alternatives.
Elle fut assujettie à la machine et devint une esclave docile.

10. Une prêtresse annonce un nouvel âge d'or au prix de dix milliards de vies.

11. Une seule de ses phrases est chargée de centaines d'informations, de concepts, et de sentiments.

12. Une mutante SDF ayant agressé la lune, le Roi d'Ombre modifie son corps et son esprit, la rendant obèse et dépressive, même après qu'elle soit libérée.

13. Il se fabrique un corps recouvert d'adamantium dont les bras peuvent changer de forme.
Il est alors presque tué par Kevin Ford qui décompose toutes les parties encore organiques de son corps, et les disperse à travers l'espace et le temps.

14. Des tatouages vivants, dotés d'une vie propre, décident de quitter leurs hôtes, et de générer eux-mêmes la suite de la fresque, sur les peaux et les parois à travers le monde.

15. Le gouvernement fait tatouer un D sur le visage de tous les déviants.

06__le_lapin_blanc

craniectomie décompressive

et le cerveau peut s'étendre hors de la tête, comme de la gélatrop de monnaie nuit à la monnaïne des marécages