morphing prim

integer x;
integer olda;
vector oldb;
float oldc;
vector oldd;
vector olde;
vector oldf;

integer a;
vector b;
float c;
vector d;
vector e;
vector f;
default
{
    state_entry()
    {
        llSetTimerEvent(1);
    }
    timer()
    {
         integer type;
        list toptions;
        if (x==0)
        {
            olda=a;
            oldb=b;
            oldc=c;
            oldd=d;
            olde=e;
            oldf=f;
       // integer type=llFloor(llFrand(6));

        //hole type

            a=llFloor(llFrand(3)+1);
            if(a==1)
            {a=16;}
            if (a==2)
            {a=32;}
            if(a==3)
            {a=48;}
            //path cut
            b=<llFrand(1),llFrand(1),0>;
            if (b.x>b.y)
            {
                float btemp=b.x;
                b.x=b.y;
                b.y=btemp;
            }
            //hollow %
           c= llFrand(1);
           //twist
            d=<llFrand(2)-1,llFrand(2)-1,0>;
            //top size (Taper)
            e=<llFrand(2),llFrand(2),0>;
            //top shear
            f=<llFrand(1),llFrand(1),0>;
            x=x+1;
        }
        else
        {
             integer ta;
            vector tb;
            float tc;
            vector td;
            vector te;
            vector tf;
           // llOwnerSay("Old: "+(string)oldb);
           // llOwnerSay("New: "+(string)b);
            do
            {
                if (x==5 && olda!=a)
                {
                    ta=a;
                }

            tb=(((b-oldb)/10)*x)+oldb;
            tc=(((c-oldc)/10)*x)+oldc;
            td=(((d-oldd)/10)*x)+oldd;
            te=(((e-olde)/10)*x)+olde;
            tf=(((f-oldf)/10)*x)+oldf;
           // llOwnerSay((string)tb);
            llSleep(.1);
            x=x+1;
            toptions=[9,type,ta,tb,tc,td,te,tf];
            llSetLinkPrimitiveParamsFast(LINK_THIS,toptions);
        }while(x<11);
                x=0;

        }
            toptions=[9,type,a,b,c,d,e,f];
       // llSetLinkPrimitiveParamsFast(LINK_THIS,toptions);
    }


}