User:Lum Pfohl/LSL Goodies/LoopRez v0.6 Lum Mods

LoopRez v0.6 Lum Mods This is a posting of Ged Larsen's LoopRez v0.6 script. I have modified it slightly so that it automatically rezzes a root prim of the correct orientation. <lsl>//////////////////////////////////////////////////////////////////////////////// // LoopRez v0.6, by Ged Larsen, 20 December 2006 // Strife Onizuka was here in 2008 // // - rez a number of objects in an ellipse, whose size is determined by xRadius and yRadius // - all facing "outwards", along a tangent to the ellipse // - can set how much the objects flare outwards // - properly handles object rotation corrections (for example, X-axis 180 degree rotation helps for flexi-prim skirts) // - can also get a 'saddle' bend, to generate a bend that might help for necklaces (from Ariane Brodie) // // To use: // 1) create a prim that will contain this script and the object to use // 2) put the script into the prim // 3) create an object that will be used, and name it "Object" // 4) put "Object" into the prim containing the script, by dragging it from your inventory // 5) get out of Edit Mode, and touch the prim // // Random note: // - this version does NOT insure equal spacing of objects along the perimeter of the ellipse // - i.e., objects "bunch up" at the long ends of an ellipse; the effect should be acceptable for non-extreme ellipses // - even spacing of objects can be accomplished, but requires simulation of integral calculus, which slows down the script // // References: // - tangent formulas from: http://mathworld.wolfram.com/Ellipse.html //////////////////////////////////////////////////////////////////////////////// // CONFIGURATION PARAMETERS, change these to your liking string objectName = "My Skirt Prim"; // object to use; will need to be in the inventory of the prim containing this script string rootPrimName = "Root Prim (Rename Me)"; // root prim that will appear at center of dress integer numObjects = 16 ; // how many objects float xRadius = .72; // ellipse x-axis radius in meters float yRadius = .72; // ellipse y-axis radius in meters float flareAngle = 70.0; // how many DEGREES the bottom of object will flare outwards, the "poof" factor float bendCoefficient = 0.0; // makes a "saddle shape", bends DOWN this number of meters at extremes of X-axis vector rotOffset = <0.0, 180.0, 0.0>; // rotation offset in DEGREES -- fixes the rotation of ALL objects; for flexi prims, often you will want <180.0, 0.0, 0.0> vector posOffset = <0.0, 0.0, 1.0>; // position offset //////////////////////////////////////////////////////////////////////////////// // No need to mess with anything below here makeLoop() { integer n = 0; // which object is being placed float cos; // cosine of the angle float sin; // sine of the angle vector pos; // position rotation rot; // rotation in quaternion format vector rezzerPos = llGetPos(); vector rootPrimPos = rezzerPos + posOffset + <0.0, 0.0, 0.5>; float s = TWO_PI / numObjects; for(; n < numObjects; ++n) { cos = llCos(s * n); sin = llSin(s * n); //x = ellipse: 2x xRadius meters wide //y = ellipse: 2x yRadius meters wide //z = saddle shape, bending downwards on X-axis pos = <xRadius * cos, yRadius * sin, -bendCoefficient * cos * cos> + rezzerPos + posOffset; // user-chosen rotation offset correction // flare generation (poof) // the following make the objects face outwards properly for an ellipse; using theta alone is only correct for a circle rot = llEuler2Rot(rotOffset * DEG_TO_RAD) * llEuler2Rot(<0, -flareAngle * DEG_TO_RAD, 0>) * llRotBetween(<1.0,0.0,0.0>, <yRadius * cos, xRadius * sin, 0.0>); llRezObject(objectName, pos, ZERO_VECTOR, rot, n); } // My dresses always use a root prim at the center of the circle/ellipse. // Rather than copying the rezzer, deleting objects and scripts inside and renaming it, I // am going to rez a root prim specifically designed for this purpose, at or around the corect // height, centered in the skirt. llRezObject(rootPrimName, rootPrimPos, ZERO_VECTOR, ZERO_ROTATION, 0); } default { touch_start(integer total_number) { if (llDetectedOwner(0) == llGetOwner()) { makeLoop(); } } }</lsl> Lum Pfohl 20:23, 13 December 2007 (PST)

Lum's Quick Links Click to Enlarge My SL Stuff My User Profile Newbie Helper Kit Newbie Must Knows Troubleshooting LSL Goodies Build Goodies SL Trivia OpenSim Stuff External Wiki Contributions DMP1/DMS1 DMP1/DMS1 Programming Related topics Main Page Volunteer Portal The Tao VTeam Blog edit