# jpg.ads

    --
    -- Ce package permet de lire une image contenue dans un fichier JPG
    -- ou d'écrire une image vers un fichier JPG.
    --
    -- (Utilise simple_jpeg_lib et libjpeg)
    --

    with GAda.Graphics ;

    package JPG is

       --
       -- Une image est une matrice dont chaque case représente un point coloré.
       --
       type T_Image is array(Natural range <>, Natural range <>) of GAda.Graphics.T_Couleur ;

       --
       -- Lit un fichier contenant une image JPEG et renvoie une matrice
       -- contenant les pixels de l'image.
       --
       -- Les lignes et colonnes commencent à zéro.
       -- L'origine de la matrice (0,0) est située en haut à gauche de l'image.
       -- Comme d'habitude, le premier indice est le numéro de ligne, le deuxième indice le numéro de colonne.
       --
       function Lire_Image (Nom_Image : String) return T_Image ;

       --
       -- Crée sur le disque dur un fichier JPG contenant l'image
       -- Vous n'avez en principe pas besoin de cette procedure pendant les TPs.
       --
       procedure Ecrire_Fichier (Nom_Image : String ; Matrice : T_Image) ;

    end JPG ;