test

$${

#radius=1
#calc_radius=%#radius%*2+1

#anti_radius=-%#radius%-1
#x=%#anti_radius%
#y=%#anti_radius%
#z=%#anti_radius%
#id=999
do(%#calc_radius%);
    #x=%#x%+1
    do(%#calc_radius%);
        #y=%#y%+1
        do(%#calc_radius%);
            #z=%#z%+1
            #id=getidrel(%#x%,%#y%,%#z%,%#radius%)
            log(%#id%)
        loop();
        #z=%#anti_radius%
    loop();
    #y=%#anti_radius%
loop();
#x=%#anti_radius%

}$$