srcImg is Image = "Rubiks_cubes.jpg"
dstImg is Image = srcImg
dstImg.FillColor = LightOrange
srcPoly is Polygon
Add(srcPoly.Point, [SLD_SRC_TL, SLD_SRC_TL])
Add(srcPoly.Point, [srcImg.Width - SLD_SRC_TL, SLD_SRC_TL])
Add(srcPoly.Point, [srcImg.Width - SLD_SRC_TL, srcImg.Height - SLD_SRC_TL])
Add(srcPoly.Point, [SLD_SRC_TL, srcImg.Height - SLD_SRC_TL])
dstPoly is Polygon
Add(dstPoly.Point, [SLD_SRC_TL, SLD_SRC_TL])
Add(dstPoly.Point, [srcImg.Width - SLD_SRC_TL, SLD_SRC_TL + SLD_Right])
Add(dstPoly.Point, [srcImg.Width - SLD_Bottom-SLD_SRC_TL, srcImg.Height - SLD_Right - SLD_SRC_TL])
Add(dstPoly.Point, [SLD_SRC_TL + POT_Bottom, srcImg.Height - SLD_SRC_TL])
srcImg = srcImg.Crop(SLD_SRC_TL, SLD_SRC_TL, srcImg.Width - SLD_SRC_TL, srcImg.Height - SLD_SRC_TL)
IMG_Image = dst_Img
IF IMG_Image.Straighten(srcPoly, dstPoly) = False THEN
Error()
END