external set_source_format : t -> internal_format -> unit = "texture_set_source_format"