(= (Position (Reference-Point Gimbal-1-Base)
(Reference-Point Planar-Mace))
(* (Buslength Bus-Assy)
(Basis.Vec (Reference-Frame Planar-Mace) 1)))
(= (Position (Reference-Point Gimbal-2-Base)
(Reference-Point Planar-Mace))
(* (- (Buslength Bus-Assy))
(Basis.Vec (Reference-Frame Planar-Mace) 1)))
(=> (Buslength $X $Y) (Scalar-Quantity $Y))
(=> (Buslength $X $Y) (Mechanical-Component $X))