Cacher is the code snippet organizer for pro developers

@P *= maketransform(0,0,-@P,0,1,0);
float size = chf("apartSize");

int modVal = int(rint(sqrt(@numpt)));
float originX= modVal*0.5*size;
float originZ= modVal*0.5*size;

float x = (((@ptnum)%modVal)*size) +size*0.5;
float z = (((@ptnum)/modVal)*size) +size*0.5;

vector originOffset = set(originX, 0, originZ);
vector translate = set(x, 0, z);

matrix tm = maketransform(0, 0, translate-originOffset, 0, 1);
@P *=tm;