Function shiftImage:TImage(img:TImage, grad:Int)
   Local i:Int
   Local k:Int
   
   Local img2:TImage = CreateImage(img.width + grad, img.height)

   Local pixmap:TPixmap = LockImage(img)
   Local pixmap2:TPixmap = LockImage(img2)
   
   For i = 0 To img.height - 1
      If i <= grad
         For k = 0 To img.width - 1
            WritePixel(pixmap2, (grad - i) + k, i, ReadPixel(pixmap, k, i))
         Next
      Else
         For k = 0 To img.width - 1
            WritePixel(pixmap2, k, i, ReadPixel(pixmap, k, i))
         Next
      EndIf
   Next
   
   UnlockImage(img)
   UnlockImage(img2)   
   
   Return img2
End Function