Voici deux solutions en un fichier. Bien entendu, on peut encore améliorer la situation en créant une commande (ou en environnement) pour factoriser tout ça. J'utilise une fois `fancyvrb` et une fois `tcolorbox`. Il doit y avoir moyen de faire quelque chose du même genre avec `listings` mais je n'ai pas regarder. regardé. \documentclass{article} \usepackage{fontspec} \usepackage{luamplib} \usepackage{fancyvrb} \usepackage{tcolorbox} \tcbuselibrary{listings} \tcbset{listing file=toto.mp} \begin{document} \begin{VerbatimOut}[gobble=0]{tata.mp} beginfig(1); draw fullcircle scaled 3cm; endfig; \end{VerbatimOut} \begin{mplibcode} input tata; \end{mplibcode} \VerbatimInput{tata.mp} \bigskip{} \begin{tcboutputlisting} beginfig(1); numeric u; u = 3cm; z0 = (0, 0); z1 = (u, 0); z2=(u, u); z3=(0, u); draw for k=0 upto 3: z[k]-- endfor cycle; endfig; \end{tcboutputlisting} \begin{mplibcode} input toto; \end{mplibcode} \tcbinputlisting{colback=green!5,colframe=green!75!black,listing only} \end{document}

Voici deux solutions en un fichier. Bien entendu, on peut encore améliorer la situation en créant une commande (ou en environnement) pour factoriser tout ça. J'utilise une fois `fancyvrb` et une fois `tcolorbox`. Il doit y avoir moyen de faire quelque chose du même genre avec `listings` mais je n'ai pas regarder. \documentclass{article} \usepackage{fontspec} \usepackage{luamplib} \usepackage{fancyvrb} \usepackage{tcolorbox} \tcbuselibrary{listings} \tcbset{listing file=toto.mp} \begin{document} \begin{VerbatimOut}[gobble=0]{tata.mp} beginfig(1); draw fullcircle scaled 3cm; endfig; \end{VerbatimOut} \begin{mplibcode} input tata; \end{mplibcode} \VerbatimInput{tata.mp} \bigskip{} \begin{tcboutputlisting} beginfig(1); numeric u; u = 3cm; z0 = (0, 0); z1 = (u, 0); z2=(u, u); z3=(0, u); draw for k=0 upto 3: z[k]-- endfor cycle; endfig; \end{tcboutputlisting} \begin{mplibcode} input toto; \end{mplibcode} \tcbinputlisting{colback=green!5,colframe=green!75!black,listing only} \end{document}