USING: classes.struct ;

IN: chipmunk.ffi

STRUCT: cpRatchetJoint
{
constraint cpConstraint initial: S{ cpConstraint
{ klass f }
{ a f }
{ b f }
{ maxForce 0.0 }
{ biasCoef 0.0 }
{ maxBias 0.0 }
{ data f }
}
} { angle cpFloat initial: 0.0 }
{ phase cpFloat initial: 0.0 }
{ ratchet cpFloat initial: 0.0 }
{ iSum cpFloat initial: 0.0 } { bias cpFloat initial: 0.0 }
{ jAcc cpFloat initial: 0.0 } { jMax cpFloat initial: 0.0 }
;

USING: chipmunk.ffi classes.struct classes.struct.private
kernel ;

M: cpRatchetJoint clone
clone-underlying \ cpRatchetJoint memory>struct ; inline

USING: accessors chipmunk.ffi classes.struct combinators
combinators.smart ;

M: cpRatchetJoint struct-slot-values
[
{
[ constraint>> ]
[ angle>> ]
[ phase>> ]
[ ratchet>> ]
[ iSum>> ]
[ bias>> ]
[ jAcc>> ]
[ jMax>> ]
} cleave
] output>array ; inline