[Syracuse] faux verbatim

Bonjour,

je continue dans la mise en boîte. Pour illustrer les réponses d'un logiciel, j'utilise une boîte
encadrée avec un label "Réponse du logiciel" : un boxedvarbatim
 à partir de fancyvrb.

8<------8<------8<------8<------8<------8<------8<------8<------

\DefineVerbatimEnvironment{boxedverbatim}{Verbatim}{fontsize=\small,
  gobble=2,frame=single,framesep=4mm,label=\textit{\small Réponse du logiciel}}
8<------8<------8<------8<------8<------8<------8<------8<------

Le problème, c'est que c'est...du verbatim. Donc quand une réponse du logiciel (en fait xcas) est une
intégrale par exemple, dans xcas ça s'affiche joliment, mais en copier-coller, ça s'affiche comme ça :

8<------8<------8<------8<------8<------8<------8<------8<------
"integration(diff(f(x),x)*exp(-p*x),x,0,+(infinity))"
8<------8<------8<------8<------8<------8<------8<------8<------

Il y a une commande tex dans xcas pour transformer ceci en cela :

8<------8<------8<------8<------8<------8<------8<------8<------
"\int _{0}^{+\infty }\frac{\partial \left(f(x)\right)}{\partial x}\* e^{-\left(p\* x\right)}\, dx"
8<------8<------8<------8<------8<------8<------8<------8<------

Je me suis donc fabriqué un petit environnement dérivé de DAGER pour qu'il ait le même aspect que
boxedverbatim et que les maths soient en tt :

8<------8<------8<------8<------8<------8<------8<------8<------
\newlength{\moitie}
\newlength{\longmot}
\newenvironment{BoxedVerbatim}[1][(\linewidth)/2-1em]{%
  \setlength{\margegauche}{#1}
\setlength{\moitie}{(\widthof{\texttt{Réponse du logiciel}})/2}%
\setlength{\longmot}{\widthof{\texttt{Réponse du logiciel}}}
 \par
  \begin{lrbox}{\dangerbox}
    \begin{minipage}{\linewidth-2\marge-2\pslinewidth}
      \par\vspace*{\margehaut} %\fontfamily{ccm}\selectfont
}
{%
    \end{minipage}%
  \end{lrbox}
  % Affiche le texte dans un cadre en couleur.
  \rput[tl](0,0){%
    \psframebox[framesep=\marge,linewidth=.5\pslinewidth]{%
      \usebox{\dangerbox}%
    }%
  }%
 % Efface le trait juste ce qu'il faut
  \rput(\marge,0){%
    \rput(\margegauche,0){%
      \psline[linewidth=2\pslinewidth,linecolor=white](-\moitie,0)(\moitie,0)
    }
  }
\rput(\marge,0){\rput(\margegauche,0){{\ttfamily \itshape \small Réponse du logiciel}}}
  % Réserve la place verticale pour la suite
 \par
  \setlength{\marge}{\ht\dangerbox+\dp\dangerbox+2\marge+\extraline}
  \vspace{\marge}
}
8<------8<------8<------8<------8<------8<------8<------8<------

mais \mathtt, c'est pas terrible, et c'est pénible à utiliser puisqu'il faut l'écrire
à chaque fois.
Bref, tout ça pour dire que j'aimerais que cet environnement soit en ccm qui est plus joli
mais en chargeant ccfonts, toutes les maths sont en ccm, même en utilisant \fontfamily{ccm}\selectfont
puis \fontfamily{futm,futmi}\selectfont...

-- 
Guillaume Connan
http://gconnan.free.fr
_______________________________________________
Liste de diffusion Syracuse 
Syracuse@melusine.eu.org
http://melusine.eu.org/cgi-bin/mailman/listinfo/syracuse
Adresse alternative du site :
http://syracuse.eu.org/syracuse/