procedure AffichePieceTourner(Fjeu : in out TR_Fenetre;VP : in out TV_Piece;nump : in T_NumPiece;matRotD : in TV_Matrice);
procedure AffichePieceRotD(VP : in out TV_Piece; nump : in T_NumPiece;mat : in out TV_Matrice);

procedure AffichePieceRotD(VP : in out TV_Piece; nump : in T_NumPiece;mat : in out TV_Matrice) is
  k : integer := 2;
begin
  RotD(mat,VP,nump);
  for i in 1..4 loop
    for j in 1..4 loop
      if mat(i,j) = vide then
        ChangerCouleurFond(Fjeu,'R'&integer'image(k)&integer'image(i)&integer'image(j),FL_BOTTOM_BCOL);
        ChangerCouleurFond(Fjeu,"Ro"&integer'image(k)&integer'image(i)&integer'image(j),FL_BOTTOM_BCOL);
      elsif VP(k).mat(i,j) = plein then
        if VP(k).coul = rouge then
          ChangerCouleurFond(Fjeu,'R'&integer'image(k)&integer'image(i)&integer'image(j),FL_RED);
          ChangerCouleurFond(Fjeu,"Ro"&integer'image(k)&integer'image(i)&integer'image(j),FL_RED);
        elsif VP(k).coul = vert then
          ChangerCouleurFond(Fjeu,'R'&integer'image(k)&integer'image(i)&integer'image(j),FL_GREEN);
          ChangerCouleurFond(Fjeu,"Ro"&integer'image(k)&integer'image(i)&integer'image(j),FL_GREEN);
        elsif VP(k).coul = jaune then
          ChangerCouleurFond(Fjeu,'R'&integer'image(k)&integer'image(i)&integer'image(j),FL_YELLOW);
          ChangerCouleurFond(Fjeu,"Ro"&integer'image(k)&integer'image(i)&integer'image(j),FL_YELLOW);
        else
          ChangerCouleurFond(Fjeu,'R'&integer'image(k)&integer'image(i)&integer'image(j),FL_DODGERBLUE);
          ChangerCouleurFond(Fjeu,"Ro"&integer'image(k)&integer'image(i)&integer'image(j),FL_DODGERBLUE);
        end if;
      else
        if VP(k).coul = rouge then
          ChangerCouleurFond(Fjeu,'R'&integer'image(k)&integer'image(i)&integer'image(j),FL_RED);
        elsif VP(k).coul = vert then
          ChangerCouleurFond(Fjeu,'R'&integer'image(k)&integer'image(i)&integer'image(j),FL_GREEN);
        elsif VP(k).coul = jaune then
          ChangerCouleurFond(Fjeu,'R'&integer'image(k)&integer'image(i)&integer'image(j),FL_YELLOW);
        else
          ChangerCouleurFond(Fjeu,'R'&integer'image(k)&integer'image(i)&integer'image(j),FL_DODGERBLUE);
        end if;
      end if;
    end loop;
  end loop;
end AffichePieceRotD;

procedure AffichePieceTourner(Fjeu : in out TR_Fenetre;VP : in out TV_Piece;nump : in T_NumPiece;matRotD : in TV_Matrice) is
begin
  AffichePieceRotD(VP,nump,matRotD);
end AffichePieceTourner;