let mlpost_gen includegraphics ?(mode = mode) ?file f =
let file = match file with
| None -> next_name ()
| Some file -> file
in
let ext = match mode with
| Pdf -> ".mps"
| Ps -> ".1"
| Cairo -> ".pdf"
| Mps -> ".mps"
in
let full_name = file ^ ext in
Mlpost.Metapost.emit file f;
Latex.concat
[Latex.setf tex_dependencies
(fun tex_dependencies -> full_name :: tex_dependencies);
includegraphics (Latex.text full_name)]