_Array2DMirror

;----------------------------------------------------------------------------------------------------------------------
; Function _Array2DMirror(ByRef $ARRAY)
;
; Description to mirror columns with rows in an 2D Array
;
; Parameter $ARRAY: 2D Array
;
; Return Succes -1 ByRef mirrored Array
; Failure 0 set @error
; @error = 1 given array is not array
; @error = 2 array is not 2D
;
; Author BugFix ([email='bugfix@autoit.de'][/email])
;----------------------------------------------------------------------------------------------------------------------
Func _Array2DMirror(ByRef $ARRAY)
If ( Not IsArray($ARRAY) ) Then
SetError(1)
Return 0
EndIf
Local $UBound2nd = UBound($ARRAY,2)
If @error = 2 Then
SetError(2)
Return 0
EndIf
Local $arTMP[$UBound2nd][UBound($ARRAY)]
For $i = 0 To UBound($ARRAY) -1
For $k = 0 To UBound($ARRAY,2) -1
$arTMP[$k][$i] = $ARRAY[$i][$k]
Next
Next
$ARRAY = $arTMP
Return -1
EndFunc ;==>_Array2DMirror