external set_mode : t -> mode -> unit = "fog_set_mode"