-(define-public add-animated-mesh-scene-node
- (pointer->procedure
- '*
- (dynamic-func "irr_scene_addAnimatedMeshSceneNode" cirr)
- (list '* '* '* int '* '* '* int)))
+(define-foreign add-animated-mesh-scene-node
+ '* "irr_scene_addAnimatedMeshSceneNode" (list '* '* '* int '* '* '* int))
+
+(define-foreign add-camera-scene-node
+ '* "irr_scene_addCameraSceneNode" (list '* '* '* '* int int))
+
+(define-foreign add-camera-scene-node-fps
+ '* "irr_scene_addCameraSceneNodeFPS" (list '* '* float float int '* int int float int int))