-- Flock
-- bounding box [-30,30] or bigger
Parallelepiped(x[3], a[1])
{
array param[6];
param = [0,0,0,0,0,0];

-- for centered version
-- param = [-7., -7., -7, 14.0, 14., 14];

Parallelepiped = (x[1]-2 - param[1]) & SIN(-(x[1]-2 - param[1]) + param[4]) &

(x[2]-1 - param[2]) & COS(-(x[2]-1 - param[2]) + param[5]) & 

(x[3] - param[3]) & TAN(-(x[3] - param[3]) + param[6]);
}