------------------------------------------------------------------------------------------------
   -- Nom     : Enregistrer_Fractal                                                              --
   -- But     : Enregistrer les caracteristiques d'un fractal dans un fichier                    --
   --                                                                                            --
   -- Parametres ----------------------------------------------------------------------------------
   --  In     : * Le nom du fichier : Nom_Fichier                                                --
   --           * Les caracteristiques de la fractal : Fractal                                   --
   --                                                                                            --
   ------------------------------------------------------------------------------------------------
   procedure Enregistrer_Fractal (Nom_Fichier : String; Fractal : Cara_Fractal) is

      Fichier_Fractal : Fractal_IO.File_Type; --Le fichier

   begin --Enregistrer_Fractal

      Fractal_IO.Create (Fichier_Fractal, Fractal_IO.Out_File, Nom_Fichier); --Cree le fichier
      Fractal_IO.Write (Fichier_Fractal, Fractal);    --Ecrit les informations
      Fractal_IO.Close (Fichier_Fractal);    --Ferme le fichier

      exception --Traite les exceptions concernant les fichiers
         when Fractal_IO.Name_Error | Fractal_IO.Device_Error =>
            raise Erreur_Fichier;

   end Enregistrer_Fractal;

   ------------------------------------------------------------------------------------------------
   -- Nom     : Charger_Fractal                                                                  --
   -- But     : Charger les caracteristiques d'un fractal depuis un fichier                      --
   --                                                                                            --
   -- Parametres ----------------------------------------------------------------------------------
   --  In     : * Le nom du fichier                                                              --
   --                                                                                            --
   --  out    :  * Les caracteristiques de la fractal                                            --
   --                                                                                            --
   ------------------------------------------------------------------------------------------------
   procedure Charger_Fractal (Nom_Fichier : String; Fractal : out Cara_Fractal) is

      Fichier_Fractal : Fractal_IO.File_Type; --Le fichier

   begin --Enregistrer_Fractal

      Fractal_IO.Open (Fichier_Fractal, Fractal_IO.In_File, Nom_Fichier); --Ouvre le fichier
      Fractal_IO.Read (Fichier_Fractal, Fractal);   --Lit les informations
      Fractal_IO.Close (Fichier_Fractal);    --ferme le fichier

      exception --Traite les exceptions concernant les fichiers
         when Fractal_IO.Name_Error | Fractal_IO.Device_Error =>
            raise Erreur_Fichier;

   end Charger_Fractal;