Boucle avec wordwrap

/* On récupère le texte à couper et on l'intègre dans la chaîne $str... */
$str = 'Je m\'appelle Alexandre, j\'ai 200 ans, et j\'habite un monde fantastique appellé Never Land. Je suis super heureux de vous rencontrer. J\'adore faire des balades à moto dans les Alpes et en Provence.';
/* ...et on détermine le nombre de caractères de la première ligne. */
$nbr_max_caract_ligne_1 = 35;
       /* Si le nombre total de caractères de la chaîne dépasse $nbr_max_caract_ligne1,... */
 if (strlen($str) > $nbr_max_caract_ligne_1) {
  /* ...on initialise le tableau $ligne,... */
  $ligne = array();
  /* ...on définit la valeur de la première entrée de $ligne,... */
  $i_ligne = 1;
  /* ...on définit le départ de la première coupure,... */
  $start = 0;
  /* ...on définit le nombre de caractères de la première coupure,... */
  $nbr_max_caract_ligne = 35;
  /* ...on définit un nombre maximum de coupures,... */
  $nbr_max_lignes = 10;
  /* ...on définit une valeur de départ pour la position des paragraphes,... */
  $position = 0;
  /* ...on définit une valeur de départ pour la largeur des paragraphes,... */
  $largeur = 98;
  /* ...puis on lance une boucle. */
  do {
   /* On coupe la chaîne à partir de $start jusqu'à $nbr_max_caract_ligne et on intègre la partie récupérée comme première entrée dans $ligne,... */
   $ligne[$i_ligne] = substr($str, $start, $nbr_max_caract_ligne);
   /* ...on affiche l'entrée,... */
   echo '<p style="left: '.$position.'%; width: '.$largeur.'%;">'.$ligne[$i_ligne].'</p>';
   /* ...on incrémente $i_ligne de 1,... */
   $i_ligne++;
   /* ...on incrémente $start,... */
   $start = $start + $nbr_max_caract_ligne;
   /* ...on incrémente $nbr_max_caract_ligne,... */
   $nbr_max_caract_ligne = $nbr_max_caract_ligne + 1;
   /* ...on décrémente $position,... */
   $position = $position - 0.3;
   /* ...puis on incrémente $largeur avant de relancer la boucle. */
   $largeur = $largeur + 0.3;
  /* La boucle doit tourner tant que $i_ligne est inférieur à $nbr_max_lignes. */
  } while ($i_ligne <= $nbr_max_lignes);
 /* Sinon..., */
 } else {}

/* On récupère le texte à couper et on l'intègre dans la chaîne $str. */
$str = 'Je m\'appelle Alexandre, j\'ai 200 ans, et j\'habite un monde fantastique appellé Never Land. Je suis super heureux de vous rencontrer. J\'adore faire des balades à moto dans les Alpes et en Provence.';
/* On détermine le nombre maximum de caractères de la première ligne d'affichage. */
$nbr_max_caract_ligne_1 = 35;
/* On débute l'affichage du texte. */
echo '<p>';
/* Si le nombre total de caractères de la chaîne dépasse $nbr_max_caract_ligne1 on suit les instructions spécifiques. */
if (strlen($str) > $nbr_max_caract_ligne_1) {
	/* On initialise le tableau $sub_str. */
	$sub_str = array();
        /* On définit la valeur de la première entrée de $sub_str. */
	$i_sub_str = 1;
	/* On définit le départ de la première coupure. */
	$start = 0;
	/* On définit le nombre de caractères de la première coupure. */
	$nbr_max_caract_ligne = 35;
	/* On définit un nombre maximum de coupures. */
	$nbr_max_lignes = 10;
	/* On définit une valeur de départ pour la marge gauche des span. */
	$marge_gauche = 0;
	/* On initialise une boucle. */
	do {
		/* On coupe la chaîne à partir de $start jusqu'à $nbr_max_caract_ligne et on enregistre la sous-chaîne dans $sub_str. */
		$sub_str[$i_sub_str] = substr($str, $start, $nbr_max_caract_ligne);
		/* On recherche la position du dernier espace dans $sub_str[$i_sub_str] et on l'enregistre dans $pos_esp. */
		$pos_esp = strrpos($sub_str[$i_sub_str], ' ');
		/* On récupère le début de la sous-chaîne jusqu'à la position du dernier espace et on l'enregistre dans $start_sub_str. */
       	$start_sub_str = substr($sub_str[$i_sub_str], 0, $pos_esp);
		/* On débute l'affichage de la sous-chaîne. */
		echo '<span style="margin-left: '.$marge_gauche.'%;">';
		/* S'il ne s'agit pas du premier passage de la boucle on suit les instructions spécifiques. */
		if ($i_sub_str > 1) {
			/* On affiche la fin de la sous-chaîne précédente au début de la sous-chaîne suivante. */
			echo '<span style="color: red;">'.$end_sub_str.'</span>';
		}
		/* On termine l'affichage de la sous-chaîne. */
		echo $start_sub_str.'</span><br />';
		/* On récupère la fin de la sous-chaîne à partir de la position du dernier espace et on l'enregistre dans $end_sub_str. */
		$end_sub_str = substr($sub_str[$i_sub_str], $pos_esp);
		/* On incrémente $i_sub_str de 1. */
		$i_sub_str++;
		/* On incrémente $start. */
		$start = $start + $nbr_max_caract_ligne;
		/* On incrémente $nbr_max_caract_ligne. */
		$nbr_max_caract_ligne = $nbr_max_caract_ligne + 1;
		/* On décrémente $marge_gauche. */
		$marge_gauche = $marge_gauche - 0.3;
		/* La boucle doit tourner tant que $i_sub_str est inférieur à $nbr_max_lignes. */
	} while ($i_sub_str <= $nbr_max_lignes);
	/* Sinon on suit les autres instructions. */
} else {
	/* On affiche le texte sans coupure. */
	echo $str;
}
echo '</p>';