Scale an object

Resizing Linked Sets:
In a linked object, this function only changes the size of the prim the script is in. There is no simple way to scale a whole linked object. Scale each individual child prim and adjust its position in relation to the parent prim.

Example:

Put this script into each prim of the object:

default {
link_message(integer sender_num, integer num, string str, key id) {
float scale; // size factor
list primparams;

scale = (float)str;

primparams = [];

primparams += [PRIM_SIZE, llGetScale() * scale]; // resize

if (llGetLinkNumber() > 1) { // only move if we're not the root object
primparams += [PRIM_POSITION, llGetLocalPos() * scale]; // reposition
}

llSetPrimitiveParams(primparams);
}
}


And this script into the parent prim of the linked set:

// rescales the linked set by the specified factor. factor > 1 makes it larger, < 1 smaller
// example: "/9 2.5"
Resize(float scale) {
integer num_prims = llGetNumberOfPrims();
integer i;

for (i = 1; i <= num_prims; i++) { // first prim in a linked set is 1
llMessageLinked(i, 0, (string)scale, NULL_KEY);
}

}

default {
state_entry() {
llListen(9, "", llGetOwner(), "";
}

listen(integer channel, string name, key id, string message) {
float scale;

scale = (float)message;
if ( scale == 0.0 ) return; // we don't resize by factor 0.0

llSay(0, "Resizing by factor " + (string)scale);

Resize(scale);
}
}