Seems to be some fantastic and useful work, many thanks. That's fine
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts MenuFUNCTION ShiftArray: Arr%[], XExt%, YExt%
LOCAL ArrCop%[]
LOCAL ACX%, ACY%
LOCAL AX%, AY%
LOCAL W%, H%
IF XExt < 0
ACX = ABS(XExt)
ELSE
AX = XExt
ENDIF
IF YExt < 0
ACY = ABS(YExt)
ELSE
AY = YExt
ENDIF
W = BOUNDS(Arr[], 0)
H = BOUNDS(Arr[], 1)
ArrCop[] = Arr[]
FOR i = AX TO H - AY - 1
FOR j = AY TO W - AX - 1
Arr[AX + j][AY + i] = ArrCop[ACX + j][ACY + i]
NEXT
NEXT
ENDFUNCTION