#include <rccl.h>

pivotFxn (tr, arg, mnp)
TRSF_PTR tr;
int arg;
MANIP *mnp;
{
        static TRSF tr0;
        TRSF trr;
        float scale;

        if (getActiveCount(mnp) == 0)                           /*7*/
         { tr0 = *tr;
         }
        scale = motionScale(getActiveMotionId(mnp));            /*8*/
        identTrsf (&trr);
        rotToTrsf (&trr, yunit, 60.0*scale);
        multTrsf (tr, &tr0, &trr);
}
