let dig_tunnel cave (x,y) (x',y') =
       let cave' = copy cave in
         List.iter 
           (fun (x,y) -> set cave' x y FLOOR)
           (Geometry.line (x,y) (x',y'));
         cave'