open Mlpost ... let fig_a = ... let fig_b = ...Chaque figure a le type Command.t.
let () = Metapost.emit "file_a" fig_a let () = Metapost.emit "file_b" fig_b
mlpost fig.mlLes figures PostScript sont alors créées dans les fichiers file_a.1, file_b.1, etc.
let () = Metapost.dump ~prelude:(Metapost.read_prelude_from_tex_file "document.tex") "somefile"