Funktion til tekst-forkortelse - kan det gøres smartere?

Hej eksperter

Jeg har bikset lidt med standardopgaven at forkorte en lang tekst og gøre den præsentabel - dvs. standardeksemplet med at forkorte en nyhedstekst til et nærmere angivet antal karakterer og tilføje ... og et link til hele nyheden.

Jeg er endt op med følgende funktion, der kan tage lidt forskellige input som kan ændre på resultatet:

/**
*
* { Funktion der afkorter tekststykker til en ønsket længde på en "pæn" måde - til brug i eksempelvis nyhedsresumeer og lignende }
*
* @param integer $desiredlength    - Ønsket længde på teksten
* @param integer $tolerance        - Tolerance på den ønskede længde dvs. teksten skal brydes indenfor $desiredlength+-tolerance
* @param mixed $delimiterchars      - De karakterer der kan brydes på i teksten. Flere karakterer angives i array.
* @param string $enddelimiters      - Hvilke tegn skal bruges som afslutter - standard er ...
*/
function CutTextNeatly($text, $desiredlength = 100, $tolerance = 10, $delimiterchars = ' ', $enddelimiters = '...') {
    if (strlen($text) > $desiredlength) {
        $text = substr($text, 0, $desiredlength+$tolerance);
        if (!is_array($delimiterchars)) {
            for ($i = 0; $i <= $tolerance; $i++) {
                if ($text[$desiredlength+$i] == $delimiterchars) {
                    $breakpos = $desiredlength + $i;
                    break;
                }
                elseif ($text[$desiredlength-$i] == $delimiterchars) {
                    $breakpos = $desiredlength - $i;
                    break;
                }
            }
        }
        else {
            for ($i = 0; $i <= $tolerance; $i++) {
                if (in_array($text[$desiredlength+$i], $delimiterchars)) {
                    $breakpos = $desiredlength + $i;
                    break;
                }
                elseif (in_array($text[$desiredlength-$i], $delimiterchars)) {
                    $breakpos = $desiredlength - $i;
                    break;
                }
            }
        }
        if (!isset($breakpos)) $breakpos = $desiredlength;
        $text = substr($text, 0, $breakpos) . $enddelimiters;
    }
    return $text;
} // end func CutTextNeatly


Jeg vil gerne høre om nogen har forslag til forbedringer eller ændringer, da det er en funktion der vil blive brugt rigtigt meget og derfor er selv en 10% hastighedsforøgelse værd at tage med :-)