open Mlpost ... let fig_a = ... let fig_b = ...Jede Abbildung hat den Typ Command.t.
let () = Metapost.emit "file_a" fig_a let () = Metapost.emit "file_b" fig_b
mlpost fig.mlDie PostScript-Abbildungen werden in den Dateien file_a.1 file_b.1, usw abgespeichert.
let () = Metapost.dump ~prelude:(Metapost.read_prelude_from_tex_file "document.tex") "somefile"