Difference between revisions of "Key Frame Animator"

From Second Life Wiki
Jump to: navigation, search
(Created page with "{{LSL Header}} This is a KeyFrame Animator Script to simplify construction of keyframed animations. --Jasper Flossberg <lsl> integer channel=0; intege…")
 
Line 53: Line 53:
 
                 string time=llList2String(llParseString2List(message,[" "],[]),1);
 
                 string time=llList2String(llParseString2List(message,[" "],[]),1);
 
                 llSay(0,"Setting new KeyFrame with "+time);
 
                 llSay(0,"Setting new KeyFrame with "+time);
                 keys+=[llGetPos()-last_pos,ZERO_ROTATION*(llGetRot()/last_rot),(integer)time];
+
                 keys+=[llGetPos()-last_pos,llGetRot()/last_rot,(integer)time];
 
                 update_loc();
 
                 update_loc();
 
             }
 
             }
Line 68: Line 68:
 
             llSay(0,(string)keys);
 
             llSay(0,(string)keys);
 
         }
 
         }
 +
        if(channel!=0)
 +
        llListenRemove(channel);
 
     }
 
     }
 
}
 
}
 
</lsl>
 
</lsl>

Revision as of 01:53, 29 April 2013

This is a KeyFrame Animator Script to simplify construction of keyframed animations. --Jasper Flossberg

<lsl> integer channel=0; integer MODE=0; // 0 NonInit 1 Init 2 Run list keys=[]; vector last_pos; rotation last_rot;

vector start_pos; rotation start_rot;

update_loc() {

   last_pos=llGetPos();
   last_rot=llGetRot();

}

default {

   state_entry()
   {
       llSay(0, "Welcome to the KeyFrame Setter v1.0 by Jasper Flossberg");
       llListen(0,"",NULL_KEY,"");
   }
   touch_start(integer total_number)
   {
       channel=(integer)llFrand(4000000);
       llDialog(llDetectedKey(0),"Please choose option",["Init","Run","Export"],channel);
       llListen(channel,"",NULL_KEY,"");
   }
   listen(integer channel, string name, key id, string message)
   {
       if(message=="Init")
       {
           llSay(0,"Intializing KeyFrame Setter");
           llSetKeyframedMotion([],[]);
           keys=[];
           update_loc();
           start_pos=llGetPos();
           start_rot=llGetRot();
           MODE=1;
       }
       if(llGetSubString(message,0,2)=="set")
       {
           if(MODE==1)
           {
               string time=llList2String(llParseString2List(message,[" "],[]),1);
               llSay(0,"Setting new KeyFrame with "+time);
               keys+=[llGetPos()-last_pos,llGetRot()/last_rot,(integer)time];
               update_loc();
           }
              
       }
       if(message=="Run")
       {
           MODE=2;
           llSetPrimitiveParams([PRIM_POSITION,start_pos,PRIM_ROTATION,start_rot]);
           llSetKeyframedMotion(keys,[KFM_MODE,KFM_LOOP]);
       }
       if(message=="Export")
       {
           llSay(0,(string)keys);
       }
       if(channel!=0)
       llListenRemove(channel);
   }

} </lsl>