Source position: odeimportdyn.pas line 1360
type TdMassSetCylinderTotal = procedure(
var m: TdMass;
total_mass: TdReal;
direction: Integer;
radius: TdReal;
length: TdReal
);