let points = { kind = `OTHER (Type.from_name "GnomeCanvasPoints"); inj = (fun x -> `POINTER (may_map convert_points x)); proj = (fun x -> may_map get_points (Data.pointer.proj x)) }