struct x0
 integer i
endstruct

struct x1
 x0 x
endstruct

struct x2
 x1 x
endstruct

function Test takes nothing returns nothing
 local x2 x=16
 local x2 y=32

 set x.x=256
 set y.x=512

 set x.x.x=1024
 set y.x.x=2048
endfunction

type iar extends integer array[3]
type iar_ar extends iar array[3]

function test takes nothing returns arsample
 local iar_ar r=iar_ar.create()
 local integer i=0
 local integer j
     loop
         exitwhen i==iar_ar.size //holds size of the array type
         set r[i]=iar.create()
         set j=0
         loop
             exitwhen j==iar.size
             set r[i][j]=j*i
             set j=j+1
         endloop

         set i=i+1
     endloop
 return r
endfunction

globals
   real array X_cus_array00
   real array Y_cus_array00
   real array X_cus_array01
   real array Y_cus_array01
   real array X_cus_array02
   real array Y_cus_array02
   real array X_cus_array03
   real array Y_cus_array03
   real array X_cus_array04
   real array Y_cus_array04
   real array X_cus_array05
   real array Y_cus_array05
   real array X_cus_array06
   real array Y_cus_array06
   real array X_cus_array07
   real array Y_cus_array07

   real X_output=0
   real Y_output=0
endglobals


function SetBX takes integer i,real x,real y returns nothing
// use binary tree to set data
   if  i<32761 then
     if i<16381 then
       if i<8191 then
         set X_cus_array00[i]=x
         set Y_cus_array00[i]=y
       else
         set X_cus_array01[i-8191]=x
         set Y_cus_array01[i-8191]=y
       endif
     else
       if i<24571 then
         set X_cus_array02[i-16381]=x
         set Y_cus_array02[i-16381]=y
       else
         set X_cus_array03[i-24571]=x
         set Y_cus_array03[i-24571]=y
       endif
     endif
   else
     if i<49141 then
       if i<40951 then
         set X_cus_array04[i-32761]=x
         set Y_cus_array04[i-32761]=y
       else
         set X_cus_array05[i-40951]=x
         set Y_cus_array05[i-40951]=y
       endif
     else
       if i<57331 then
         set X_cus_array06[i-49141]=x
         set Y_cus_array06[i-49141]=y
       else
         set X_cus_array07[i-57331]=x
         set Y_cus_array07[i-57331]=y
       endif
     endif
   endif
endfunction

function GetBX takes integer i returns nothing // will return data into  X_output,Y_output
// use binary tree to set data
   if  i<32761 then
     if i<16381 then
       if i<8191 then
         set X_output=X_cus_array00[i]
         set Y_output=Y_cus_array00[i]
       else
         set X_output=X_cus_array01[i-8191]
         set Y_output=Y_cus_array01[i-8191]
       endif
     else
       if i<24571 then
         set X_output=X_cus_array02[i-16381]
         set Y_output=Y_cus_array02[i-16381]
       else
         set X_output=X_cus_array03[i-24571]
         set Y_output=Y_cus_array03[i-24571]
       endif
     endif
   else
     if i<49141 then
       if i<40951 then
         set X_output=X_cus_array04[i-32761]
         set Y_output=Y_cus_array04[i-32761]
       else
         set X_output=X_cus_array05[i-40951]
         set Y_output=Y_cus_array05[i-40951]
       endif
     else
       if i<57331 then
         set X_output=X_cus_array06[i-49141]
         set Y_output=Y_cus_array06[i-49141]
       else
         set X_output=X_cus_array07[i-57331]
         set Y_output=Y_cus_array07[i-57331]
       endif
     endif
   endif
endfunction