package Mouv is
-- Une position sur le plan.
-- L'axe des Y est vers le haut.
type T_Pos is record
X : Integer ;
Y : Integer ;
end record ;
-- Quatre directions possibles.
-- None signifie "pas de direction".
type T_Direction is (Up, Down, Left, Right, None) ;
-- Une séquence de mouvements.
type T_Sequence is array(Integer range <>) of T_Direction ;
end Mouv ;