procedure RetH(mat : in out TV_Matrice;VP : in TV_Piece;nump : in T_NumPiece);
procedure RetV(mat : in out TV_Matrice;VP : in TV_Piece;nump : in T_NumPiece);
procedure RotD(mat : in out TV_Matrice;VP : in TV_Piece;nump : in T_NumPiece);
procedure RotG(mat : in out TV_Matrice;VP : in TV_Piece;nump : in T_NumPiece);

procedure RetH(mat : in out TV_Matrice;VP : in TV_Piece;nump : in T_NumPiece) is
      nblig,nbcol : integer;
      colMil : integer;
    begin
      dimensions(VP(nump).mat,nblig,nbcol);
      for i in 1..4 loop
        for j in 1..4 loop
          Mat(i,j) := vide;
        end loop;
      end loop;
      if nbcol mod 2 = 0 then
        for i in 1..nblig loop
          for j in 1..nbcol loop
            Mat(i,nbcol-j+1) := VP(nump).mat(i,j);
          end loop;
        end loop;
      else
        colMil := (nbcol+1)/2;
        for i in 1..nblig loop
          for j in 1..nbcol loop
            if j /= colMil then
              Mat(i,nbcol-j+1) := VP(nump).mat(i,j);
            else
              Mat(i,j) := VP(nump).mat(i,j);
            end if;
          end loop;
        end loop;
      end if;
    end RetH;

procedure RetV(mat : in out TV_Matrice;VP : in TV_Piece;nump : in T_NumPiece) is
      nblig,nbcol : integer;
      ligMil : integer;
    begin
      dimensions(VP(nump).mat,nblig,nbcol);
      for i in 1..4 loop
        for j in 1..4 loop
          mat(i,j) := vide;
        end loop;
      end loop;
      if nblig mod 2 = 0 then
        for i in 1..nblig loop
          for j in 1..nbcol loop
            Mat(nblig-i+1,j) := VP(nump).mat(i,j);
          end loop;
        end loop;
      else
        ligMil := (nblig+1)/2;
        for i in 1..nblig loop
          for j in 1..nbcol loop
            if i /= ligmil then
              Mat(nblig-i+1,j) := VP(nump).mat(i,j);
            else
              Mat(i,j) := VP(nump).mat(i,j);
            end if;
          end loop;
        end loop;
      end if;
    end RetV;

procedure RotG(mat : in out TV_Matrice;VP : in TV_Piece;nump : in T_NumPiece)
      nblig,nbcol : integer;
    begin
      dimensions(VP(nump).mat,nblig,nbcol);
      for i in 1..4 loop
        for j in 1..4 loop
          Mat(i,j) := vide;
        end loop;
      end loop;
      for i in 1..nblig loop
        for j in 1..nbcol loop
          mat(nbcol-j+1,i) := VP(nump).mat(i,j);
        end loop;
      end loop;
    end RotG;

procedure RotD(mat : in out TV_Matrice;VP : in TV_Piece;nump : in T_NumPiece) is
      nblig,nbcol : integer;
    begin
      dimensions(VP(nump).mat,nblig,nbcol);
      for i in 1..4 loop
        for j in 1..4 loop
          Mat(i,j) := vide;
        end loop;
      end loop;
      for i in 1..nblig loop
        for j in 1..nbcol loop
          Mat(j,nblig-i+1) := VP(nump).mat(i,j);
        end loop;
      end loop;
    end RotD;