object = 
      setOrientation[
        object, {{Cos[Pi/5], -Sin[Pi/5], 0}, {Sin[Pi/5], Cos[Pi/5], 
            0}, {0, 0, 1}}]

display[object]

object = 
        applyForce[object, {2, 0, 0}, {0, -100, 0}];

object = computeAux[object] ;

object = computeDerivative[object];

object = 
        updateObject[object, 0.25];

display[object]

cycle[obj_, p_, 
        f_] := (
c1 =  
          applyForce[obj, p, f]; 
c2 = 
          computeAux[c1] ; 
c3 = 
          computeDerivative[c2]; 
c4 = 
          updateObject[c3, 0.25]
)

object = cycle[object, {2, 0, 0}, {100, 100, 0}];

display[object]

object

temp3 = 
        setOmega[temp2, 
          inertiaInv[temp2] . angularMomentum[temp2]];

omega[object]