(bind-func cpShapeFilterNew (lambda (group:cpGroup categories:cpBitmask mask:cpBitmask) (let ((filter:cpShapeFilter* (alloc))) (tfill! filter group categories mask) (pref filter 0))))