srcImg is Image = "Rubiks_cubes.jpg"
dstImg is Image = srcImg
dstImg.FillColor = LightOrange
srcPoly is Polygon
Add(srcPoly.Point, [POT_SRC_TL, POT_SRC_TL])
Add(srcPoly.Point, [srcImg.Width - POT_SRC_TL, POT_SRC_TL])
Add(srcPoly.Point, [srcImg.Width - POT_SRC_TL, srcImg.Height - POT_SRC_TL])
Add(srcPoly.Point, [POT_SRC_TL, srcImg.Height - POT_SRC_TL])
dstPoly is Polygon
Add(dstPoly.Point, [POT_SRC_TL, POT_SRC_TL])
Add(dstPoly.Point, [srcImg.Width - POT_SRC_TL, POT_SRC_TL + POT_Droite])
Add(dstPoly.Point, [srcImg.Width - POT_Bas-POT_SRC_TL, srcImg.Height - POT_Droite - POT_SRC_TL])
Add(dstPoly.Point, [POT_SRC_TL + POT_Bas, srcImg.Height - POT_SRC_TL])
srcImg = srcImg.Découpe(POT_SRC_TL, POT_SRC_TL, srcImg.Width - POT_SRC_TL, srcImg.Height - POT_SRC_TL)
IMG_Image = dst_Img
IF IMG_Image.Redresse(srcPoly, dstPoly) = False THEN
Error()
END