-(define* (add-octree-scene-node-am scene-manager mesh
- #:key
- (parent %null-pointer)
- (id -1)
- (minimal-polys-per-node 512)
- (also-add-if-mesh-pointer-zero #f))
- (ffi-scene:add-octree-scene-node-am
+(define (add-custom-scene-node! parent
+ scene-manager
+ id
+ custom-render)
+ (ffi-scene:add-custom-scene-node
+ parent
+ scene-manager
+ id
+ (procedure->pointer void custom-render '())))
+
+(define* (add-octree-scene-node scene-manager mesh
+ #:key
+ (parent %null-pointer)
+ (id -1)
+ (minimal-polys-per-node 512)
+ (also-add-if-mesh-pointer-zero #f))
+ (ffi-scene:add-octree-scene-node