Cicloide 2 - Traslazione lungo asse y

vector x0;
rotation r0;

default
{
    state_entry()
    {
        x0=llGetPos();
        r0=llGetRot();
        llSay(0,"Marcatura posizione iniziale");
        //llListen(100,"",NULL_KEY,"");
    }
    on_rez(integer rez)
    {
        llResetScript();
    }

    touch_start(integer count)
    {

            llMessageLinked(LINK_SET,100,"START",NULL_KEY);
            float t;
            for(t=0;t<22;t+=.1)
            {
                llSetLinkPrimitiveParamsFast(1,[PRIM_POSITION, x0+<0,-t,0>]);
                llSleep(0.05);
            }
            llMessageLinked(LINK_SET,100,"STOP",NULL_KEY);
            while(llVecDist(llGetPos(),x0)>1)
                llSetLinkPrimitiveParamsFast(1,[PRIM_POSITION,x0]);
            llSetRot(r0);

    }
}