package Outil_De_Mesure is
-- Renvoie la i-ème dimension du produit sur le tapis, en mm
-- I=1 correspond à la largeur, I=2 à la hauteur, I=3 à la profondeur
function Dim (I : Integer) return Float ;
end Outil_De_Mesure ;
package Outil_De_Mesure is
-- Renvoie la i-ème dimension du produit sur le tapis, en mm
-- I=1 correspond à la largeur, I=2 à la hauteur, I=3 à la profondeur
function Dim (I : Integer) return Float ;
end Outil_De_Mesure ;