model Bar "Massless bar with two mechanical cuts."
 MbsCut a b;
 parameter
 Position3 r[3] = [0, 0, 0]
 "Position vector from the origin of cut-frame A"
 " to the origin of cut-frame B";
equation
 // Kinematic relationships of cut-frame A and B
 b.S = a.S;
 b.r0 = a.r0 + a.S*r;
 // Relations between the forces and torques acting at
 // cut-frame A and B
 0 = a.f + b.f;
 0 = a.t + b.t - cross(r, a.f);
 // The function cross defines the cross product
 // of two vectors
end Bar;