(* Tk_GetPixels emulation *)
(* type *)
type units = [
| `Pix of int
| `Cm of float
| `In of float
| `Mm of float
| `Pt of float
]
(* /type *)