method clean_files = List.iter (fun f -> try Sys.remove f with _ -> ()) [ dot_file ; annot_dot_file ; png_file]; List.iter (fun z -> try Sys.remove (self#zoom_file_of_zoom z) with _ -> ()) zooms;