1 2 3 4 5 6 7 8 9 10 11
(* Tk_GetPixels emulation *) (* type *) type units = [ `Pix int | `Cm float | `In float | `Mm float | `Pt float ] (* /type *)