#macro Resize_Array_4D(_Array, Array, NewSize)
   BeginMacro2p("Resize_Array_4D",_Array, NewSize) //for debugging
   #local NewArray = array[NewSize][dsz(Array, 2)][dsz(Array, 3)][dsz(Array, 4)];
   #local A = 0;
   #local B = 0;
   #local C = 0;
   #local D = 0;
   #local Max = min(NewSize, dsz(Array, 1));
   #while (A < Max)
      #local B = 0;
      #while (B < dsz(Array, 2))
         #local C = 0;
         #while (C < dsz(Array, 3))
            #local D = 0;
            #while (D < dsz(Array, 4))
               #ifdef (Array[A][B][C][D])
                  #declare NewArray[A][B][C][D]=Array[A][B][C][D];
               #end//ifdef
               #local D=D+1;
            #end//while (D)
            #local C=C+1;
         #end//while (C)
         #local B=B+1;
      #end //while (B)
      #local A=A+1;
   #end //while (A)
   #declare Array = NewArray;
   //EndMacro("Resize_Array_4D")
#end