Outil pour assister a la transcription

[Sebastien Blondeel <blondeel AT clipper.ens.fr>]

Voici en PJ premier jet d'un programme qui me sert à transcrire.
Je viens de le tester sur une bande son de 40 minutes (message à suivre).

Documentation:
--------------

. paquets nécessaires (Debian):
  . perl         (mais c'est dans la base)
  . mplayer      (le player utilisé)
  . vorbis-tools (pour ogginfo)
  . tap-plugins  (pour accélérer/ralentir le débit)
  . xterm        (pour la fenêtre d'information)

. il traite pour l'instant les format Ogg (vidéo/audio).
  Reste à trouver comment avoir l'équivalent de ogginfo pour
  les autres formats: AVI, MPG, etc.

. le media source est dans la variable d'environnement MEDIA_FILE
  et doit exister

. il accepte 12 commandes, qu'on peut mapper sur les touches F1 à F12.
  En fin de code on trouve les lignes à insérer dans son ~/.vimrc pour
  cela. Si quelqu'un sait faire dans un autre éditeur, m'expliquer.

. il utilise les fichiers temporaires 
  /tmp/.Play_message
  /tmp/.Play_config
  pour savoir où il en est

. Configuration suggérée: fenêtre de saisie sur la gauche, si possible
  en plein écran. La fenêtre mplayer apparaît en effet en haut à droite
  (en cas de vidéO); la fenêtre d'informations apparaît en bas à droite
  et dure un peu plus longtemps que l'extrait joué.

Alpha-testeurs:
---------------

Note: toute instance de mplayer éventuellement en cours d'utilisation au
début de l'exécution du programme sera tuée.

Bug-report: activer la variable $DEBUG, observer la commande exécutée,
l'exécuter dans un autre terminal sans ses redirections finales, et
observer ce qui se passe et pourquoi.

Commandes:
----------

Voici la configuration VIM suggérée et documentée dans la fenêtre
d'information. Les noms de commandes sont assez explicites.

:map <F1> !!perl ~/bin/Play.pl GotoPreviousInterval<CR>
:map <F2> !!perl ~/bin/Play.pl PlayCurrentInterval<CR>
:map <F3> !!perl ~/bin/Play.pl PlayNextInterval<CR>A
:map <F4> !!perl ~/bin/Play.pl GotoNextInterval<CR>A
:map <F5> !!perl ~/bin/Play.pl ShortenIntervalLength<CR>
:map <F6> !!perl ~/bin/Play.pl ShortenOverlapLength<CR>
:map <F7> !!perl ~/bin/Play.pl LengthenOverlapLength<CR>
:map <F8> !!perl ~/bin/Play.pl LengthenIntervalLength<CR>
:map <F9> !!perl ~/bin/Play.pl ReduceSpeed<CR>
:map <F10> !!perl ~/bin/Play.pl AccelerateSpeed<CR>
:map <F11> !!perl ~/bin/Play.pl ForwardTwoSeconds<CR>
:map <F12> !!perl ~/bin/Play.pl MarkUpOffset<CR>

GotoNextInterval: recule d'un intervalle dans le débit et le joue

PlayCurrentInterval: joue l'intervalle courant

PlayNextInterval: joue l'intervalle suivant, sans s'y rendre

GotoNextInterval: avance d'un intervalle dans le débit et le joue

ShortenOverlapLength: diminue d'une seconde la longueur de l'intervalle
  joué (minimum 1 sec.). Ne joue rien.

LengthenIntervalLength: augmente d'une seconde la longueur de
  l'intervalle joué (maximum durée totale). Ne joue rien.

ShortenOverlapLength: diminue d'une seconde la durée de recouvrement
  entre deux intervalles successifs (minimum 1 sec.). Ne joue rien.

LengthenOverlapLength: augmente d'une seconde la durée de recouvrement
  entre deux intervalles successifs (maximum durée de l'intervalle.). Ne
  joue rien.

ReduceSpeed: diminue de 5% la vitesse d'exécution (1.00 est: normal).
  Minimum: 0.5.

AccelerateSpeed: augmente de 5% la vitesse d'exécution. Maximum: 2.

ForwardTwoSeconds: avance de deux secondes le début de l'intervalle
  et joue. Parfois utile pour se caler au début d'une portion posant
  problème, la jouer plus lentement plusieurs fois...

MarkUpOffset: Inscrit le timecode actuel du début de l'intervalle
  au-dessus de la ligne courante. Il est conseillé et pratique d'en
  poser régulièrement, à chaque rupture dans le discours, toutes les
  30 à 50 lignes maximum dans la transcription (en largeur 72 colonnes).

Encore beaucoup de choses à faire probablement:
. gérer plus de formats
. comprendre d'autres formats de timecode dans le fichier de
  configuration dans la configuration pour reprendre plus facilement
  une transcription en cours sans calculer à la main le nombre de
  secondes
. ...




Suis curieux de savoir si quelqu'un teste, réussit à le faire marcher, a
des suggestions...

Attachment: Play.pl
Description: Perl program