int res = 0;
float ps = pointattrib(0, "pscale",
@ptnum, res);
if (abs(ps) < 0.001)
@pscale = 1;
vector
@scale={1,1,1};
vector scale=chv("s");
vector4 rot=eulertoquaternion(radians(chv("r")), 0);
vector trs=chv("t");
vector bbx=getbbox_size(1);
@P+=qrotate(p@orient, trs*bbx*v@scale*
@pscale);
p@orient=qmultiply(p@orient,rot);
v@scale*=scale;