LECTURE : du neuf

[Pierre ESTREM <peterpan31 AT free.fr>]

Bonjour,

J'ai amélioré mon script en prenant en compte son passage dans un tube 
(test avec "-p /dev/stdin").

Bien pratique depuis la ligne de commande :
$ scanimage --mode=lineart --format=tiff | tesseract - stdout | ./lecture

Pour un bigle c'est très commode pour comprendre le sens d'un courrier 
postal.

La suite serait de détecter si le document papier est à l'endroit sur le 
scanner (cas de l'aveugle) !
Vous feriez comment cela ?

Merci
pîerre estrem
#!/bin/bash

function erreur {
echo -e "La syntaxe est :\n$0 <fichier_texte> | --help"
echo ""
echo "Appuyez sur :"
echo "ESPACE : lire/pause"
echo "Droite : avancer"
echo "Gauche : reculer"
echo "Haut : lire plus vite"
echo "Bas : lire moins vite"
echo "= : vitesse par défaut"
echo "f : baisser la hauteur de voix"
echo "j : augmenter la hauteur de voix"
echo "a : baisser le volume"
echo "z : augmenter le volume"
echo "0-5 : changer de voix"
echo "q : quitter"
}


if [ -p /dev/stdin ]; then
# Le script est dans un tube
        if [ $# -eq 0 ]; then
                readonly File=$(mktemp)
                while read line; do
                        echo $line >> $File
                done
        else erreur ;
        fi
else
        # Le script n'est pas dans un   tube
        [ $# -eq 1 ] && [ -e "$1" ] && readonly File="$1" || erreur ;
fi

####    Vitesse de lecture minimum, defaut, maximum et pas
readonly Speed_min="1"
readonly Speed_def="160"
readonly Speed_max="1000"
readonly Speed_pas="40"

####    Hauteur de la voix minimum, defaut, maximum et pas
readonly Pitch_min="0"
readonly Pitch_def="50"
readonly Pitch_max="99"
readonly Pitch_pas="5"

####    Volume sonore minimum, defaut, maximum et pas
readonly Amp_min="0"
readonly Amp_def="50"
readonly Amp_max="100"
readonly Amp_pas="5"

#### $Step; Pas pour le recul/avance
readonly Step="2"

#### Voix disponibles
declare -a readonly tab_Voices=(mb-fr1 mb-fr2 mb-fr3 mb-fr4 mb-fr5 mb-fr6)

#### Variables globales définies par défaut
Speed="$Speed_def"
Pitch="$Pitch_def"
Amp="$Amp_def"
Voice="${tab_Voices[0]}"

#### Augmente la variable vitesse
function Speed_inc ()
{
        ((Speed+=Speed_pas))
        [ $[${Speed_max}-${Speed}] -lt "0" ] && Speed=$Speed_max
}

#### Diminue la variable vitesse
function Speed_dec ()
{
        ((Speed-=Speed_pas))
        [ $[${Speed}-${Speed_min}] -lt "0" ] && Speed=$Speed_min
}

#### Augmente la variable Hauteur
function Pitch_inc ()
{
        ((Pitch+=Pitch_pas))
        [ $[${Pitch_max}-${Pitch}] -lt "0" ] && Pitch=$Pitch_max
}

#### Diminue la variable Hauteur
function Pitch_dec ()
{
        ((Pitch-=Pitch_pas))
        [ $[${Pitch}-${Pitch_min}] -lt "0" ] && Pitch=$Pitch_min
}

#### Augmente la variable Amplitude
function Amp_inc ()
{
        ((Amp+=Amp_pas))
        [ $[${Amp_max}-${Amp}] -lt "0" ] && Amp=$Amp_max
}

#### Diminue la variable Amplitude
function Amp_dec ()
{
        ((Amp-=Amp_pas))
        [ $[${Amp}-${Amp_min}] -lt "0" ] && Amp=$Amp_min
}

#### Avancer: on modifie $Pos
function forward ()
{
        lecture "0" ;
}


#### Fichier temporaire
readonly Filetemp="${File}.tmp"
 
#### Fichier temporaire secondaire
readonly Filetemp_sec="${File}.tmp.2"

#### Création du fichier temporaire
cat "${File}" | tr -s ' ' '\n' > "${Filetemp}"

readonly Chars="$(wc -m ${Filetemp} | cut -d" " -f1)"
readonly Words="$(wc -w "${File}" | cut -d" " -f1)"
readonly lword=$[$Chars/$Words]

#### Création du fichier temporaire secondaire
cp "${Filetemp}" "${Filetemp_sec}"

#### Nombre total de lignes
readonly Lines=$(wc -l "${Filetemp}" | cut -d' ' -f1)

#### Position courante du mot
Pos=$Lines

function elapsed_time ()
{
ps -p $Pid -o 'etimes=' | tr -s ' ' | cut -d' ' -f2
}

function get_status ()
{
case $(ps -p $Pid -o 'state=') in
S*)     echo TRUE ;;
T*)     echo FALSE ;;
esac
}

function lecture ()
{
        Time=$(elapsed_time)
        #### On tue espeak
        kill $Pid
        Run=FALSE
        Pos=$[$Pos-$Speed/60*$Time
+$1]
        [ $Pos -lt "0" ] && Pos=0"0"
        [ $Pos -gt $Lines ] && Pos=$Lines
        tail -$Pos "${Filetemp}" > "${Filetemp_sec}"
        Params="-v ${Voice} -s ${Speed} -p ${Pitch} -a ${Amp} -f 
"${Filetemp_sec}""
        Command="espeak ${Params}"
        ${Command} &
        Run=TRUE
        Pid="$(pgrep -f "$Command")"
#fi
}

function start_espeak ()
{
Params="-v ${Voice} -s ${Speed} -p ${Pitch} -a ${Amp} -f "${Filetemp}""
Command="espeak ${Params}"
${Command}&
Pid="$(pgrep -f "$Command")"
}

#### Programme principal

start_espeak ;

Run=$(get_status) ;

while IFS="" read -rsn1 k < /dev/tty
do
        case "$k" in
        "q") # On quitte le programme
                kill $Pid ;
                echo "Fin du programme" ;
                exit 0 ;;
        [0-5]) # On change de voix
                Voice=${tab_Voices[k]} ;
                lecture "+1" 2>/dev/null ;;
        "f") # Baisser la hauteur de voix
                Pitch_dec ;
                lecture "+0" 2>/dev/null ;;
        "j") # Augmenter la hauteur
                Pitch_inc ;
                lecture "+0" 2>/dev/null ;;
        "z")    # Augmenter le volume
                Amp_inc ;
                lecture "+0" 2>/dev/null ;;
        "a")    # Baisser le volume
                Amp_dec ;
                lecture "+0" 2>/dev/null ;;
        $'\x20')
        case $Run in
        TRUE) kill -STOP $Pid ;
        Run=FALSE ;;
        FALSE) kill -CONT $Pid ;
        Run=TRUE ;;
        esac ;;
        "=")    # On met la vitesse par défaut
                Speed=$Speed_def ;
                lecture "+0" 2>/dev/null ;;
        $'\x1b')
        read -rsn1 k < /dev/tty
        [ "$k" == "" ] && return
        [ "$k" == "[" ] && read -rsn1 k < /dev/tty
        [ "$k" == "O" ] && read -rsn1 k < /dev/tty
        case "$k" in
        A)      # HAUT: on augmente la vitesse
                Speed_inc ;
                lecture "+5" 2>/dev/null ;;
        B)      # BAS: on diminue la vitesse
                Speed_dec ;
                lecture "+5" 2>/dev/null ;;
        C)      # Droite: on avance
                lecture "-5" 2>/dev/null ;;
        D)      # Gauche: on recule
                lecture "+5" 2>/dev/null ;;
        "") espeak "Vous avez appuyé sur ECHAP" ;;
        esac
        read -rsn4 -t .1 < /dev/tty # Try to flush out

        esac
done

rm $Filetemp
rm $Filetemp_sec