* Apply http://opensimulator.org/mantis/view.php?id=2913

* Add the KanEd scripts to the standard library
* Thanks Fly-Man-

1 files changed, 38 insertions, 0 deletions

diff --git a/bin/assets/ScriptsAssetSet/KanEd-Test07.lsl b/bin/assets/ScriptsAssetSet/KanEd-Test07.lsl
new file mode 100644
index 0000000..a1258f9
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/KanEd-Test07.lsl
@@ -0,0 +1,38 @@
+vector rotationCenter;
+
+default
+{
+   state_entry()
+   {
+       llSay( 0, "Hello, Avatar!");
+       vector startPoint = llGetPos();
+       rotationCenter = startPoint + < 3, 3, 3 >; 
+       // distance to the point of rotation should probably be a
+       // function of the max dimension of the object.
+   }
+
+   touch_start(integer total_number)
+   {
+       llSay( 0, "Touched." );
+
+       // Define a "rotation" of 10 degrees around the z-axis.
+       rotation Z_15 = llEuler2Rot( < 0, 0, 15 * DEG_TO_RAD > );
+        
+       integer i;
+       for( i = 1; i < 100; i++ )   // limit simulation time in case of
+       {                            // unexpected behavior.
+           vector currentPosition = llGetPos();
+
+           vector currentOffset = currentPosition - rotationCenter;
+          
+           // rotate the offset vector in the X-Y plane around the 
+           // distant point of rotation. 
+           vector rotatedOffset = currentOffset * Z_15;
+           vector newPosition = rotationCenter + rotatedOffset;
+
+           llSetPos( newPosition ); 
+       }  
+       llSay( 0, "Orbiting stopped" );              
+   }
+}  
+