srcImg est une Image = "Rubiks_cubes.jpg"
dstImg est une Image = srcImg
dstImg.CouleurRemplissage = OrangeClair
srcPoly est un Polygone
Ajoute(srcPoly.Point, [POT_SRC_TL, POT_SRC_TL])
Ajoute(srcPoly.Point, [srcImg.Largeur - POT_SRC_TL, POT_SRC_TL])
Ajoute(srcPoly.Point, [srcImg.Largeur - POT_SRC_TL, srcImg.Hauteur - POT_SRC_TL])
Ajoute(srcPoly.Point, [POT_SRC_TL, srcImg.Hauteur - POT_SRC_TL])
dstPoly est un Polygone
Ajoute(dstPoly.Point, [POT_SRC_TL, POT_SRC_TL])
Ajoute(dstPoly.Point, [srcImg.Largeur - POT_SRC_TL, POT_SRC_TL + POT_Droite])
Ajoute(dstPoly.Point, [srcImg.Largeur - POT_Bas-POT_SRC_TL, srcImg.Hauteur - POT_Droite - POT_SRC_TL])
Ajoute(dstPoly.Point, [POT_SRC_TL + POT_Bas, srcImg.Hauteur - POT_SRC_TL])
srcImg = srcImg.Découpe(POT_SRC_TL, POT_SRC_TL, srcImg.Largeur - POT_SRC_TL, srcImg.Hauteur - POT_SRC_TL)
IMG_Image = dst_Img
SI IMG_Image.Redresse(srcPoly, dstPoly) = Faux ALORS
Erreur()
FIN