#:use-module (oop goops)
#:use-module (system foreign)
#:export (<irrlicht-base>
+ irr-class
irr-pointer))
(define-class <irrlicht-base> ()
- (irr-pointer #:init-value %null-pointer #:accessor irr-pointer #:init-keyword #:irr-pointer))
+ (irr-class #:init-value "" #:getter irr-class)
+ (irr-pointer #:init-value %null-pointer #:getter irr-pointer #:init-keyword #:irr-pointer))
;; IrrlichtDevice
-(define-class <irrlicht-device> (<reference-counted>))
+(define-class <irrlicht-device> (<reference-counted>)
+ (irr-class #:init-value "IrrlichtDevice" #:getter irr-class))
(define* (create-device #:key
(device-type 'software)
(make <irrlicht-device>
#:irr-pointer
- (irr_createDevice
+ ((get-irrlicht-proc "createDevice")
device-type
window-size
bits
(define-method (get-gui-environment (device <irrlicht-device>))
(make <gui-environment>
- #:irr-pointer (irr_IrrlichtDevice_getGUIEnvironment (irr-pointer device))))
+ #:irr-pointer ((get-irrlicht-proc "getGUIEnvironment" device) (irr-pointer device))))
(define-method (get-scene-manager (device <irrlicht-device>))
(make <scene-manager>
- #:irr-pointer (irr_IrrlichtDevice_getSceneManager (irr-pointer device))))
+ #:irr-pointer ((get-irrlicht-proc "getSceneManager" device) (irr-pointer device))))
(define-method (get-video-driver (device <irrlicht-device>))
(make <video-driver>
- #:irr-pointer (irr_IrrlichtDevice_getVideoDriver (irr-pointer device))))
+ #:irr-pointer ((get-irrlicht-proc "getVideoDriver" device) (irr-pointer device))))
(define-method (set-window-caption! (device <irrlicht-device>) text)
- (irr_IrrlichtDevice_setWindowCaption (irr-pointer device) text))
+ ((get-irrlicht-proc "setWindowCaption" device)
+ (irr-pointer device) text))
(export create-device get-gui-environment get-scene-manager get-video-driver set-window-caption!)
;;; <http://www.gnu.org/licenses/>.
-(define-module (irrlicht foreign))
+(define-module (irrlicht foreign)
+ #:use-module (irrlicht base)
+ #:export (get-irrlicht-proc))
-(load-extension "libguile-irrlicht" "init_guile_irrlicht")
+;; We use a hash table to store foreign irrlicht methods related with their
+;; classes
+;; This is needed because we need to "simulate" C++ inheritance
+(define remote-proc-table (make-hash-table))
+
+(define (get-irrlicht-proc proc-name . objects)
+ (let* ((name (if (null? objects)
+ proc-name
+ (let ((classes (map irr-class objects)))
+ (string-join (cons (car classes) (cons proc-name (cdr classes))) "_"))))
+ (proc (hash-ref remote-proc-table name)))
+ (cond ((not proc)
+ (load-extension "libguile-irrlicht" "init_guile_irrlicht")
+ (let ((new-proc (eval-string name)))
+ (hash-set! remote-proc-table name new-proc)
+ new-proc))
+ (else
+ proc))))
;; IGUIElement
-(define-class <gui-element> (<attribute-exchanging-object> <event-receiver>))
+(define-class <gui-element> (<attribute-exchanging-object> <event-receiver>)
+ (irr-class #:init-value "IGUIElement" #:getter irr-class))
(export <gui-element>)
;; IGUIEnvironment
-(define-class <gui-environment> (<reference-counted>))
+(define-class <gui-environment> (<reference-counted>)
+ (irr-class #:init-value "IGUIEnvironment" #:getter irr-class))
(define-method (add-static-text! (gui-environment <gui-environment>) text rectangle . rest)
(let-keywords rest #f
(fill-background #f))
(make <gui-static-text>
#:irr-pointer
- (irr_gui_IGUIEnvironment_addStaticText (irr-pointer gui-environment)
- text
- rectangle
- border
- word-wrap
- (irr-pointer parent)
- id
- fill-background))))
+ ((get-irrlicht-proc "addStaticText" gui-environment parent)
+ (irr-pointer gui-environment)
+ text
+ rectangle
+ border
+ word-wrap
+ (irr-pointer parent)
+ id
+ fill-background))))
(export <gui-environment> add-static-text!)
;; IGUIStaticText
-(define-class <gui-static-text> (<gui-element>))
+(define-class <gui-static-text> (<gui-element>)
+ (irr-class #:init-value "IGUIStaticText" #:getter irr-class))
(export <gui-static-text>)
;; IAttributeExchangingObject
-(define-class <attribute-exchanging-object> (<reference-counted>))
+(define-class <attribute-exchanging-object> (<reference-counted>)
+ (irr-class #:init-value "IAttributeExchangingObject" #:getter irr-class))
(export <attribute-exchanging-object>)
;; IReferenceCounted
-(define-class <reference-counted> (<irrlicht-base>))
+(define-class <reference-counted> (<irrlicht-base>)
+ (irr-class #:init-value "IReferenceCounted" #:getter irr-class))
(export <reference-counted>)
;; IEventReceiver
-(define-class <event-receiver> (<irrlicht-base>))
+(define-class <event-receiver> (<irrlicht-base>)
+ (irr-class #:init-value "IEventReceiver" #:getter irr-class))
(export <event-receiver>)
;; ISceneManager
-(define-class <scene-manager> (<reference-counted>))
+(define-class <scene-manager> (<reference-counted>)
+ (irr-class #:init-value "ISceneManager" #:getter irr-class))
(export <scene-manager>)
SCM
-scene_IAnimatedMeshSceneNode_setFrameLoop (SCM animated_mesh_scene_node,
- SCM begin,
- SCM end)
+IAnimatedMeshSceneNode_setFrameLoop (SCM animated_mesh_scene_node,
+ SCM begin,
+ SCM end)
{
return scm_from_bool
(((scene::IAnimatedMeshSceneNode*)scm_to_pointer (animated_mesh_scene_node))->
SCM
-scene_IAnimatedMeshSceneNode_setMD2Animation (SCM animated_mesh_scene_node,
- SCM anim)
+IAnimatedMeshSceneNode_setMD2Animation (SCM animated_mesh_scene_node,
+ SCM anim)
{
return scm_from_bool
(((scene::IAnimatedMeshSceneNode*)scm_to_pointer (animated_mesh_scene_node))->
void
init_animated_mesh_scene_node (void)
{
- DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_setFrameLoop", 3, 0, 0,
- scene_IAnimatedMeshSceneNode_setFrameLoop);
- DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_setMD2Animation", 2, 0, 0,
- scene_IAnimatedMeshSceneNode_setMD2Animation);
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setFrameLoop", 3, 0, 0,
+ IAnimatedMeshSceneNode_setFrameLoop);
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMD2Animation", 2, 0, 0,
+ IAnimatedMeshSceneNode_setMD2Animation);
}
}
SCM
-scene_IAnimatedMesh_setAnimationSpeed (SCM animated_mesh,
- SCM frames_per_second)
+IAnimatedMesh_setAnimationSpeed (SCM animated_mesh,
+ SCM frames_per_second)
{
((scene::IAnimatedMesh*)scm_to_pointer (animated_mesh))->
setAnimationSpeed (scm_to_double (frames_per_second));
void
init_animated_mesh (void)
{
- DEFINE_GSUBR ("scene_IAnimatedMesh_setAnimationSpeed", 2, 0, 0,
- scene_IAnimatedMesh_setAnimationSpeed);
+ DEFINE_GSUBR ("IAnimatedMesh_setAnimationSpeed", 2, 0, 0, IAnimatedMesh_setAnimationSpeed);
}
}
SCM
-core_aabbox3d_addInternalPoint (SCM box3d,
- SCM point)
+aabbox3d_addInternalPoint (SCM box3d,
+ SCM point)
{
((core::aabbox3df*)scm_to_pointer (box3d))->addInternalPoint (scm_to_vector3df (point));
return SCM_UNSPECIFIED;
SCM
-core_aabbox3d_make ()
+aabbox3d_make ()
{
core::aabbox3df* aabbox = new core::aabbox3df ();
return scm_from_pointer ((void*)aabbox, NULL);
SCM
-core_aabbox3d_reset (SCM box3d,
- SCM init_value)
+aabbox3d_reset (SCM box3d,
+ SCM init_value)
{
((core::aabbox3df*)scm_to_pointer (box3d))->reset (scm_to_vector3df (init_value));
return SCM_UNSPECIFIED;
void
init_box3d (void)
{
- DEFINE_GSUBR ("core_aabbox3d_addInternalPoint", 2, 0, 0,
- core_aabbox3d_addInternalPoint);
- DEFINE_GSUBR ("core_aabbox3d_make", 0, 0, 0,
- core_aabbox3d_make);
- DEFINE_GSUBR ("core_aabbox3d_reset", 2, 0, 0,
- core_aabbox3d_reset);
+ DEFINE_GSUBR ("aabbox3d_addInternalPoint", 2, 0, 0, aabbox3d_addInternalPoint);
+ DEFINE_GSUBR ("aabbox3d_make", 0, 0, 0, aabbox3d_make);
+ DEFINE_GSUBR ("aabbox3d_reset", 2, 0, 0, aabbox3d_reset);
}
}
SCM
-gui_ICursorControl_getPosition (SCM cursor_control)
+ICursorControl_getPosition (SCM cursor_control)
{
return scm_from_position2d_s32
(((gui::ICursorControl*)scm_to_pointer (cursor_control))->getPosition ());
SCM
-gui_ICursorControl_setPosition (SCM cursor_control,
- SCM position)
+ICursorControl_setPosition (SCM cursor_control,
+ SCM position)
{
((gui::ICursorControl*)scm_to_pointer (cursor_control))->
setPosition (scm_to_position2d_s32 (position));
void
init_cursor_control (void)
{
- DEFINE_GSUBR ("gui_ICursorControl_getPosition", 1, 0, 0,
- gui_ICursorControl_getPosition);
- DEFINE_GSUBR ("gui_ICursorControl_setPosition", 2, 0, 0,
- gui_ICursorControl_setPosition);
+ DEFINE_GSUBR ("ICursorControl_getPosition", 1, 0, 0, ICursorControl_getPosition);
+ DEFINE_GSUBR ("ICursorControl_setPosition", 2, 0, 0, ICursorControl_setPosition);
}
}
using namespace irr;
-template <typename TEventReceiver>
SCM
-createDevice (SCM device_type,
- SCM window_size,
- SCM bits,
- SCM fullscreen,
- SCM stencilbuffer,
- SCM vsync,
- SCM receiver)
+irr_createDevice (SCM device_type,
+ SCM window_size,
+ SCM bits,
+ SCM fullscreen,
+ SCM stencilbuffer,
+ SCM vsync,
+ SCM receiver)
{
IrrlichtDevice* device =
createDevice (scm_to_driver_type (device_type),
scm_to_bool (fullscreen),
scm_to_bool (stencilbuffer),
scm_to_bool (vsync),
- (TEventReceiver)scm_to_pointer (receiver));
+ (IEventReceiver*)scm_to_pointer (receiver));
return scm_from_pointer ((void*)device, NULL);
}
void
init_device (void)
{
- DEFINE_GSUBR ("createDevice_IEventReceiver", 7, 0, 0, createDevice<IEventReceiver*>);
+ DEFINE_GSUBR ("createDevice", 7, 0, 0, irr_createDevice);
DEFINE_GSUBR ("IrrlichtDevice_getCursorControl", 1, 0, 0, IrrlichtDevice_getCursorControl);
DEFINE_GSUBR ("IrrlichtDevice_getFileSystem", 1, 0, 0, IrrlichtDevice_getFileSystem);
DEFINE_GSUBR ("IrrlichtDevice_getGUIEnvironment", 1, 0, 0, IrrlichtDevice_getGUIEnvironment);
SCM
-io_IFileSystem_addFileArchive (SCM file_system,
- SCM filename,
- SCM ignore_case,
- SCM ignore_paths,
- SCM archive_type,
- SCM password,
- SCM ret_archive)
+IFileSystem_addFileArchive (SCM file_system,
+ SCM filename,
+ SCM ignore_case,
+ SCM ignore_paths,
+ SCM archive_type,
+ SCM password,
+ SCM ret_archive)
{
io::IFileArchive* retArchive = (io::IFileArchive*)scm_to_pointer (ret_archive);
io::IFileArchive** retArchiveReference = 0;
void
init_file_system (void)
{
- DEFINE_GSUBR ("io_IFileSystem_addFileArchive", 7, 0, 0, io_IFileSystem_addFileArchive);
+ DEFINE_GSUBR ("IFileSystem_addFileArchive", 7, 0, 0, IFileSystem_addFileArchive);
}
}
template <typename TParent>
SCM
-gui_IGUIEnvironment_addButton (SCM gui_environment,
- SCM rectangle,
- SCM parent,
- SCM id,
- SCM text,
- SCM tooltiptext)
+IGUIEnvironment_addButton (SCM gui_environment,
+ SCM rectangle,
+ SCM parent,
+ SCM id,
+ SCM text,
+ SCM tooltiptext)
{
gui::IGUIButton* button =
((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
template <typename TParent>
SCM
-gui_IGUIEnvironment_addEditBox (SCM gui_environment,
- SCM text,
- SCM rectangle,
- SCM border,
- SCM parent,
- SCM id)
+IGUIEnvironment_addEditBox (SCM gui_environment,
+ SCM text,
+ SCM rectangle,
+ SCM border,
+ SCM parent,
+ SCM id)
{
gui::IGUIEditBox* editbox =
((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
template <typename TParent>
SCM
-gui_IGUIEnvironment_addImage (SCM gui_environment,
- SCM image,
- SCM position,
- SCM use_alpha_channel,
- SCM parent,
- SCM id,
- SCM text)
+IGUIEnvironment_addImage (SCM gui_environment,
+ SCM image,
+ SCM position,
+ SCM use_alpha_channel,
+ SCM parent,
+ SCM id,
+ SCM text)
{
gui::IGUIEnvironment* guienv = (gui::IGUIEnvironment*)scm_to_pointer (gui_environment);
gui::IGUIImage* new_image =
template <typename TParent>
SCM
-gui_IGUIEnvironment_addListBox (SCM gui_environment,
- SCM rectangle,
- SCM parent,
- SCM id,
- SCM draw_background)
+IGUIEnvironment_addListBox (SCM gui_environment,
+ SCM rectangle,
+ SCM parent,
+ SCM id,
+ SCM draw_background)
{
gui::IGUIListBox* listbox =
((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
template <typename TParent>
SCM
-gui_IGUIEnvironment_addScrollBar (SCM gui_environment,
- SCM horizontal,
- SCM rectangle,
- SCM parent,
- SCM id)
+IGUIEnvironment_addScrollBar (SCM gui_environment,
+ SCM horizontal,
+ SCM rectangle,
+ SCM parent,
+ SCM id)
{
gui::IGUIScrollBar* scrollbar =
((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
template <typename TParent>
SCM
-gui_IGUIEnvironment_addStaticText (SCM gui_environment,
- SCM text,
- SCM rectangle,
- SCM border,
- SCM word_wrap,
- SCM parent,
- SCM id,
- SCM fill_background)
+IGUIEnvironment_addStaticText (SCM gui_environment,
+ SCM text,
+ SCM rectangle,
+ SCM border,
+ SCM word_wrap,
+ SCM parent,
+ SCM id,
+ SCM fill_background)
{
gui::IGUIStaticText* static_text =
((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
template <typename TParent>
SCM
-gui_IGUIEnvironment_addWindow (SCM gui_environment,
- SCM rectangle,
- SCM modal,
- SCM text,
- SCM parent,
- SCM id)
+IGUIEnvironment_addWindow (SCM gui_environment,
+ SCM rectangle,
+ SCM modal,
+ SCM text,
+ SCM parent,
+ SCM id)
{
gui::IGUIWindow* window =
((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
SCM
-gui_IGUIEnvironment_drawAll (SCM gui_environment)
+IGUIEnvironment_drawAll (SCM gui_environment)
{
((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->drawAll ();
return SCM_UNSPECIFIED;
SCM
-gui_IGUIEnvironment_getBuiltInFont (SCM gui_environment)
+IGUIEnvironment_getBuiltInFont (SCM gui_environment)
{
gui::IGUIFont* font =
((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->getBuiltInFont ();
SCM
-gui_IGUIEnvironment_getFont (SCM gui_environment,
- SCM filename)
+IGUIEnvironment_getFont (SCM gui_environment,
+ SCM filename)
{
gui::IGUIFont* font =
((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
SCM
-gui_IGUIEnvironment_getSkin (SCM gui_environment)
+IGUIEnvironment_getSkin (SCM gui_environment)
{
gui::IGUISkin* skin =
((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->getSkin ();
void
init_gui_environment (void)
{
- DEFINE_GSUBR ("gui_IGUIEnvironment_addButton_IGUIElement", 6, 0, 0,
- gui_IGUIEnvironment_addButton<gui::IGUIElement*>);
- DEFINE_GSUBR ("gui_IGUIEnvironment_addEditBox_IGUIElement", 6, 0, 0,
- gui_IGUIEnvironment_addEditBox<gui::IGUIElement*>);
- DEFINE_GSUBR ("gui_IGUIEnvironment_addImage_IGUIElement", 7, 0, 0,
- gui_IGUIEnvironment_addImage<gui::IGUIElement*>);
- DEFINE_GSUBR ("gui_IGUIEnvironment_addListBox_IGUIElement", 5, 0, 0,
- gui_IGUIEnvironment_addListBox<gui::IGUIElement*>);
- DEFINE_GSUBR ("gui_IGUIEnvironment_addScrollBar_IGUIElement", 5, 0, 0,
- gui_IGUIEnvironment_addScrollBar<gui::IGUIElement*>);
- DEFINE_GSUBR ("gui_IGUIEnvironment_addStaticText_IGUIElement", 8, 0, 0,
- gui_IGUIEnvironment_addStaticText<gui::IGUIElement*>);
- DEFINE_GSUBR ("gui_IGUIEnvironment_addWindow_IGUIElement", 6, 0, 0,
- gui_IGUIEnvironment_addWindow<gui::IGUIElement*>);
- DEFINE_GSUBR ("gui_IGUIEnvironment_drawAll", 1, 0, 0, gui_IGUIEnvironment_drawAll);
- DEFINE_GSUBR ("gui_IGUIEnvironment_getBuiltInFont", 1, 0, 0, gui_IGUIEnvironment_getBuiltInFont);
- DEFINE_GSUBR ("gui_IGUIEnvironment_getFont", 2, 0, 0, gui_IGUIEnvironment_getFont);
- DEFINE_GSUBR ("gui_IGUIEnvironment_getSkin", 1, 0, 0, gui_IGUIEnvironment_getSkin);
+ DEFINE_GSUBR ("IGUIEnvironment_addButton_IGUIElement", 6, 0, 0,
+ IGUIEnvironment_addButton<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addEditBox_IGUIElement", 6, 0, 0,
+ IGUIEnvironment_addEditBox<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addImage_IGUIElement", 7, 0, 0,
+ IGUIEnvironment_addImage<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addListBox_IGUIElement", 5, 0, 0,
+ IGUIEnvironment_addListBox<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addScrollBar_IGUIElement", 5, 0, 0,
+ IGUIEnvironment_addScrollBar<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addStaticText_IGUIElement", 8, 0, 0,
+ IGUIEnvironment_addStaticText<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addWindow_IGUIElement", 6, 0, 0,
+ IGUIEnvironment_addWindow<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_drawAll", 1, 0, 0, IGUIEnvironment_drawAll);
+ DEFINE_GSUBR ("IGUIEnvironment_getBuiltInFont", 1, 0, 0, IGUIEnvironment_getBuiltInFont);
+ DEFINE_GSUBR ("IGUIEnvironment_getFont", 2, 0, 0, IGUIEnvironment_getFont);
+ DEFINE_GSUBR ("IGUIEnvironment_getSkin", 1, 0, 0, IGUIEnvironment_getSkin);
}
}
SCM
-gui_IGUIInOutFader_setColor (SCM in_out_fader,
- SCM color,
- SCM dest_color)
+IGUIInOutFader_setColor (SCM in_out_fader,
+ SCM color,
+ SCM dest_color)
{
gui::IGUIInOutFader* fader = (gui::IGUIInOutFader*)scm_to_pointer (in_out_fader);
if (dest_color == SCM_UNDEFINED)
void
init_gui_in_out_fader (void)
{
- DEFINE_GSUBR ("gui_IGUIInOutFader_setColor", 2, 1, 0, gui_IGUIInOutFader_setColor);
+ DEFINE_GSUBR ("IGUIInOutFader_setColor", 2, 1, 0, IGUIInOutFader_setColor);
}
}
SCM
-gui_IGUIListBox_addItem (SCM gui_listbox,
- SCM text,
- SCM icon)
+IGUIListBox_addItem (SCM gui_listbox,
+ SCM text,
+ SCM icon)
{
gui::IGUIListBox* listbox = (gui::IGUIListBox*)scm_to_pointer (gui_listbox);
u32 item_id;
void
init_gui_listbox (void)
{
- DEFINE_GSUBR ("gui_IGUIListBox_addItem", 2, 1, 0, gui_IGUIListBox_addItem);
+ DEFINE_GSUBR ("IGUIListBox_addItem", 2, 1, 0, IGUIListBox_addItem);
}
}
SCM
-gui_IGUIScrollBar_getPos (SCM gui_scrollbar)
+IGUIScrollBar_getPos (SCM gui_scrollbar)
{
return scm_from_int32
(((gui::IGUIScrollBar*)scm_to_pointer (gui_scrollbar))->getPos ());
SCM
-gui_IGUIScrollBar_setMax (SCM gui_scrollbar,
- SCM max)
+IGUIScrollBar_setMax (SCM gui_scrollbar,
+ SCM max)
{
((gui::IGUIScrollBar*) scm_to_pointer (gui_scrollbar))->setMax (scm_to_int32 (max));
return SCM_UNSPECIFIED;
SCM
-gui_IGUIScrollBar_setPos (SCM gui_scrollbar,
- SCM pos)
+IGUIScrollBar_setPos (SCM gui_scrollbar,
+ SCM pos)
{
((gui::IGUIScrollBar*) scm_to_pointer (gui_scrollbar))->setPos (scm_to_int32 (pos));
return SCM_UNSPECIFIED;
void
init_gui_scrollbar (void)
{
- DEFINE_GSUBR ("gui_IGUIScrollBar_getPos", 1, 0, 0, gui_IGUIScrollBar_getPos);
- DEFINE_GSUBR ("gui_IGUIScrollBar_setMax", 2, 0, 0, gui_IGUIScrollBar_setMax);
- DEFINE_GSUBR ("gui_IGUIScrollBar_setPos", 2, 0, 0, gui_IGUIScrollBar_setPos);
+ DEFINE_GSUBR ("IGUIScrollBar_getPos", 1, 0, 0, IGUIScrollBar_getPos);
+ DEFINE_GSUBR ("IGUIScrollBar_setMax", 2, 0, 0, IGUIScrollBar_setMax);
+ DEFINE_GSUBR ("IGUIScrollBar_setPos", 2, 0, 0, IGUIScrollBar_setPos);
}
}
SCM
-irr_gui_IGUISkin_getColor (SCM gui_skin,
- SCM color)
+IGUISkin_getColor (SCM gui_skin,
+ SCM color)
{
gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
video::SColor scolor = skin->getColor (scm_to_default_color (color));
SCM
-irr_gui_IGUISkin_getFont (SCM gui_skin,
- SCM which)
+IGUISkin_getFont (SCM gui_skin,
+ SCM which)
{
gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
gui::IGUIFont* font = skin->getFont (scm_to_default_font (which));
SCM
-irr_gui_IGUISkin_setColor (SCM gui_skin,
- SCM which,
- SCM new_color)
+IGUISkin_setColor (SCM gui_skin,
+ SCM which,
+ SCM new_color)
{
gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
skin->setColor (scm_to_default_color (which),
SCM
-irr_gui_IGUISkin_setFont (SCM gui_skin,
- SCM font,
- SCM which)
+IGUISkin_setFont (SCM gui_skin,
+ SCM font,
+ SCM which)
{
gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
skin->setFont ((gui::IGUIFont*) scm_to_pointer (font),
void
init_gui_skin (void)
{
- DEFINE_GSUBR ("irr_gui_IGUISkin_getColor", 2, 0, 0, irr_gui_IGUISkin_getColor);
- DEFINE_GSUBR ("irr_gui_IGUISkin_getFont", 2, 0, 0, irr_gui_IGUISkin_getFont);
- DEFINE_GSUBR ("irr_gui_IGUISkin_setColor", 3, 0, 0, irr_gui_IGUISkin_setColor);
- DEFINE_GSUBR ("irr_gui_IGUISkin_setFont", 3, 0, 0, irr_gui_IGUISkin_setFont);
+ DEFINE_GSUBR ("IGUISkin_getColor", 2, 0, 0, IGUISkin_getColor);
+ DEFINE_GSUBR ("IGUISkin_getFont", 2, 0, 0, IGUISkin_getFont);
+ DEFINE_GSUBR ("IGUISkin_setColor", 3, 0, 0, IGUISkin_setColor);
+ DEFINE_GSUBR ("IGUISkin_setFont", 3, 0, 0, IGUISkin_setFont);
}
}
SCM
-irr_gui_IGUIToolBar_addButton (SCM gui_toolbar,
- SCM id,
- SCM text,
- SCM tooltiptext,
- SCM img,
- SCM pressedimg,
- SCM is_push_button,
- SCM use_alpha_channel)
+IGUIToolBar_addButton (SCM gui_toolbar,
+ SCM id,
+ SCM text,
+ SCM tooltiptext,
+ SCM img,
+ SCM pressedimg,
+ SCM is_push_button,
+ SCM use_alpha_channel)
{
gui::IGUIToolBar* toolbar = (gui::IGUIToolBar*) scm_to_pointer (gui_toolbar);
gui::IGUIButton* button =
void
init_gui_toolbar (void)
{
- DEFINE_GSUBR ("irr_gui_IGUIToolBar_addButton", 8, 0, 0, irr_gui_IGUIToolBar_addButton);
+ DEFINE_GSUBR ("IGUIToolBar_addButton", 8, 0, 0, IGUIToolBar_addButton);
}
}
void
init_reference_counted (void)
{
- DEFINE_GSUBR ("IReferenceCounted_drop_IrrlichtDevice", 1, 0, 0,
- IReferenceCounted_drop<IrrlichtDevice*>);
+ DEFINE_GSUBR ("IrrlichtDevice_drop", 1, 0, 0, IReferenceCounted_drop<IrrlichtDevice*>);
}
}
template <typename TParent>
SCM
-scene_ISceneManager_addAnimatedMeshSceneNode (SCM scene_manager,
- SCM mesh,
- SCM parent,
- SCM id,
- SCM position,
- SCM rotation,
- SCM scale,
- SCM also_add_if_mesh_pointer_zero)
+ISceneManager_addAnimatedMeshSceneNode (SCM scene_manager,
+ SCM mesh,
+ SCM parent,
+ SCM id,
+ SCM position,
+ SCM rotation,
+ SCM scale,
+ SCM also_add_if_mesh_pointer_zero)
{
scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
scene::IAnimatedMeshSceneNode* node =
template <typename TParent>
SCM
-scene_ISceneManager_addCameraSceneNode (SCM scene_manager,
- SCM parent,
- SCM position,
- SCM lookat,
- SCM id,
- SCM make_active)
+ISceneManager_addCameraSceneNode (SCM scene_manager,
+ SCM parent,
+ SCM position,
+ SCM lookat,
+ SCM id,
+ SCM make_active)
{
scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
scene::ICameraSceneNode* camera =
template <typename TParent>
SCM
-scene_ISceneManager_addCameraSceneNodeFPS (SCM scene_manager,
- SCM rest)
+ISceneManager_addCameraSceneNodeFPS (SCM scene_manager,
+ SCM rest)
{
SCM parent;
SCM rotate_speed;
template <typename TParent>
SCM
-scene_ISceneManager_addCubeSceneNode (SCM scene_manager,
- SCM size,
- SCM parent,
- SCM id,
- SCM position,
- SCM rotation,
- SCM scale)
+ISceneManager_addCubeSceneNode (SCM scene_manager,
+ SCM size,
+ SCM parent,
+ SCM id,
+ SCM position,
+ SCM rotation,
+ SCM scale)
{
scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
scene::IMeshSceneNode* node =
template <typename TParent>
SCM
-scene_ISceneManager_addCustomSceneNode (SCM scene_manager,
- SCM proc_render,
- SCM proc_get_bounding_box,
- SCM proc_get_material_count,
- SCM proc_get_material,
- SCM parent,
- SCM id,
- SCM position,
- SCM rotation,
- SCM scale)
+ISceneManager_addCustomSceneNode (SCM scene_manager,
+ SCM proc_render,
+ SCM proc_get_bounding_box,
+ SCM proc_get_material_count,
+ SCM proc_get_material,
+ SCM parent,
+ SCM id,
+ SCM position,
+ SCM rotation,
+ SCM scale)
{
class CustomSceneNode : public scene::ISceneNode
{
template <typename TParent, typename TMesh>
SCM
-scene_ISceneManager_addOctreeSceneNode (SCM scene_manager,
- SCM mesh,
- SCM parent,
- SCM id,
- SCM minimal_polys_per_node,
- SCM also_add_if_mesh_pointer_zero)
+ISceneManager_addOctreeSceneNode (SCM scene_manager,
+ SCM mesh,
+ SCM parent,
+ SCM id,
+ SCM minimal_polys_per_node,
+ SCM also_add_if_mesh_pointer_zero)
{
scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
scene::IMeshSceneNode* node =
template <typename TParent>
SCM
-scene_ISceneManager_addSphereSceneNode (SCM scene_manager,
- SCM radius,
- SCM poly_count,
- SCM parent,
- SCM id,
- SCM position,
- SCM rotation,
- SCM scale)
+ISceneManager_addSphereSceneNode (SCM scene_manager,
+ SCM radius,
+ SCM poly_count,
+ SCM parent,
+ SCM id,
+ SCM position,
+ SCM rotation,
+ SCM scale)
{
scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
scene::IMeshSceneNode* node =
SCM
-scene_ISceneManager_createFlyCircleAnimator (SCM scene_manager,
- SCM center,
- SCM radius,
- SCM speed,
- SCM direction,
- SCM start_position,
- SCM radius_ellipsoid)
+ISceneManager_createFlyCircleAnimator (SCM scene_manager,
+ SCM center,
+ SCM radius,
+ SCM speed,
+ SCM direction,
+ SCM start_position,
+ SCM radius_ellipsoid)
{
scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
scene::ISceneNodeAnimator* anim =
SCM
-scene_ISceneManager_createFlyStraightAnimator (SCM scene_manager,
- SCM start_point,
- SCM end_point,
- SCM time_for_way,
- SCM loop,
- SCM pingpong)
+ISceneManager_createFlyStraightAnimator (SCM scene_manager,
+ SCM start_point,
+ SCM end_point,
+ SCM time_for_way,
+ SCM loop,
+ SCM pingpong)
{
scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
scene::ISceneNodeAnimator* anim =
SCM
-scene_ISceneManager_createRotationAnimator (SCM scene_manager,
- SCM rotation_speed)
+ISceneManager_createRotationAnimator (SCM scene_manager,
+ SCM rotation_speed)
{
scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
scene::ISceneNodeAnimator* anim =
SCM
-scene_ISceneManager_drawAll (SCM scene_manager)
+ISceneManager_drawAll (SCM scene_manager)
{
((scene::ISceneManager*) scm_to_pointer (scene_manager))->drawAll ();
return SCM_UNSPECIFIED;
SCM
-scene_ISceneManager_getMesh (SCM scene_manager,
- SCM filename)
+ISceneManager_getMesh (SCM scene_manager,
+ SCM filename)
{
scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
scene::IAnimatedMesh* mesh = smgr->getMesh(scm_to_utf8_stringn (filename, NULL));
SCM
-scene_ISceneManager_getRootSceneNode (SCM scene_manager)
+ISceneManager_getRootSceneNode (SCM scene_manager)
{
scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_pointer (scene_manager);
return scm_from_pointer ((void*) smgr->getRootSceneNode (), NULL);
void
init_scene_manager (void)
{
- DEFINE_GSUBR ("scene_ISceneManager_addAnimatedMeshSceneNode_ISceneNode", 8, 0, 0,
- scene_ISceneManager_addAnimatedMeshSceneNode<scene::ISceneNode*>);
- DEFINE_GSUBR ("scene_ISceneManager_addCameraSceneNode_ISceneNode", 6, 0, 0,
- scene_ISceneManager_addCameraSceneNode<scene::ISceneNode*>);
- DEFINE_GSUBR ("scene_ISceneManager_addCameraSceneNodeFPS_ISceneNode", 1, 0, 1,
- scene_ISceneManager_addCameraSceneNodeFPS<scene::ISceneNode*>);
- DEFINE_GSUBR ("scene_ISceneManager_addCubeSceneNode_ISceneNode", 7, 0, 0,
- scene_ISceneManager_addCubeSceneNode<scene::ISceneNode*>);
- DEFINE_GSUBR ("scene_ISceneManager_addCustomSceneNode_ISceneNode", 10, 0, 0,
- scene_ISceneManager_addCustomSceneNode<scene::ISceneNode*>);
- DEFINE_GSUBR ("scene_ISceneManager_addOctreeSceneNode_ISceneNode_IAnimatedMesh", 6, 0, 0,
- (scene_ISceneManager_addOctreeSceneNode<scene::ISceneNode*, scene::IAnimatedMesh*>));
- DEFINE_GSUBR ("scene_ISceneManager_addOctreeSceneNode_ISceneNode_IMesh", 6, 0, 0,
- (scene_ISceneManager_addOctreeSceneNode<scene::ISceneNode*, scene::IMesh*>));
- DEFINE_GSUBR ("scene_ISceneManager_addSphereSceneNode_ISceneNode", 8, 0, 0,
- scene_ISceneManager_addSphereSceneNode<scene::ISceneNode*>);
- DEFINE_GSUBR ("scene_ISceneManager_createFlyCircleAnimator", 7, 0, 0,
- scene_ISceneManager_createFlyCircleAnimator);
- DEFINE_GSUBR ("scene_ISceneManager_createFlyStraightAnimator", 6, 0, 0,
- scene_ISceneManager_createFlyStraightAnimator);
- DEFINE_GSUBR ("scene_ISceneManager_createRotationAnimator", 2, 0, 0,
- scene_ISceneManager_createRotationAnimator);
- DEFINE_GSUBR ("scene_ISceneManager_drawAll", 1, 0, 0, scene_ISceneManager_drawAll);
- DEFINE_GSUBR ("scene_ISceneManager_getMesh", 2, 0, 0, scene_ISceneManager_getMesh);
- DEFINE_GSUBR ("scene_ISceneManager_getRootSceneNode", 1, 0, 0,
- scene_ISceneManager_getRootSceneNode);
+ DEFINE_GSUBR ("ISceneManager_addAnimatedMeshSceneNode_ISceneNode", 8, 0, 0,
+ ISceneManager_addAnimatedMeshSceneNode<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_addCameraSceneNode_ISceneNode", 6, 0, 0,
+ ISceneManager_addCameraSceneNode<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_addCameraSceneNodeFPS_ISceneNode", 1, 0, 1,
+ ISceneManager_addCameraSceneNodeFPS<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_addCubeSceneNode_ISceneNode", 7, 0, 0,
+ ISceneManager_addCubeSceneNode<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_addCustomSceneNode_ISceneNode", 10, 0, 0,
+ ISceneManager_addCustomSceneNode<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_addOctreeSceneNode_ISceneNode_IAnimatedMesh", 6, 0, 0,
+ (ISceneManager_addOctreeSceneNode<scene::ISceneNode*, scene::IAnimatedMesh*>));
+ DEFINE_GSUBR ("ISceneManager_addOctreeSceneNode_ISceneNode_IMesh", 6, 0, 0,
+ (ISceneManager_addOctreeSceneNode<scene::ISceneNode*, scene::IMesh*>));
+ DEFINE_GSUBR ("ISceneManager_addSphereSceneNode_ISceneNode", 8, 0, 0,
+ ISceneManager_addSphereSceneNode<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_createFlyCircleAnimator", 7, 0, 0,
+ ISceneManager_createFlyCircleAnimator);
+ DEFINE_GSUBR ("ISceneManager_createFlyStraightAnimator", 6, 0, 0,
+ ISceneManager_createFlyStraightAnimator);
+ DEFINE_GSUBR ("ISceneManager_createRotationAnimator", 2, 0, 0,
+ ISceneManager_createRotationAnimator);
+ DEFINE_GSUBR ("ISceneManager_drawAll", 1, 0, 0, ISceneManager_drawAll);
+ DEFINE_GSUBR ("ISceneManager_getMesh", 2, 0, 0, ISceneManager_getMesh);
+ DEFINE_GSUBR ("ISceneManager_getRootSceneNode", 1, 0, 0, ISceneManager_getRootSceneNode);
}
}
template <typename TSceneNode>
SCM
-scene_ISceneNode_addAnimator (SCM scene_node,
- SCM animator)
+ISceneNode_addAnimator (SCM scene_node,
+ SCM animator)
{
TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
node->addAnimator ((scene::ISceneNodeAnimator*) scm_to_pointer (animator));
template <typename TSceneNode>
SCM
-scene_ISceneNode_getAbsoluteTransformation (SCM scene_node)
+ISceneNode_getAbsoluteTransformation (SCM scene_node)
{
TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
return scm_from_matrix4 (node->getAbsoluteTransformation ());
template <typename TSceneNode>
SCM
-scene_ISceneNode_getPosition (SCM scene_node)
+ISceneNode_getPosition (SCM scene_node)
{
TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
return scm_from_vector3df (node->getPosition ());
template <typename TSceneNode>
SCM
-scene_ISceneNode_setMaterialFlag (SCM scene_node,
- SCM flag,
- SCM newvalue)
+ISceneNode_setMaterialFlag (SCM scene_node,
+ SCM flag,
+ SCM newvalue)
{
TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
node->setMaterialFlag (scm_to_material_flag (flag), scm_to_bool (newvalue));
template <typename TSceneNode>
SCM
-scene_ISceneNode_setMaterialTexture (SCM scene_node,
- SCM texture_layer,
- SCM texture)
+ISceneNode_setMaterialTexture (SCM scene_node,
+ SCM texture_layer,
+ SCM texture)
{
TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
node->setMaterialTexture (scm_to_uint32 (texture_layer),
template <typename TSceneNode>
SCM
-scene_ISceneNode_setPosition (SCM scene_node,
- SCM position)
+ISceneNode_setPosition (SCM scene_node,
+ SCM position)
{
TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
node->setPosition (scm_to_vector3df (position));
template <typename TSceneNode>
SCM
-scene_ISceneNode_setRotation (SCM scene_node,
- SCM rotation)
+ISceneNode_setRotation (SCM scene_node,
+ SCM rotation)
{
TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
node->setRotation (scm_to_vector3df (rotation));
template <typename TSceneNode>
SCM
-scene_ISceneNode_setScale (SCM scene_node,
- SCM scale)
+ISceneNode_setScale (SCM scene_node,
+ SCM scale)
{
TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
node->setScale (scm_to_vector3df (scale));
void
init_scene_node (void)
{
- DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_addAnimator", 2, 0, 0,
- scene_ISceneNode_addAnimator<scene::IAnimatedMeshSceneNode*>);
- DEFINE_GSUBR ("scene_IMeshSceneNode_addAnimator", 2, 0, 0,
- scene_ISceneNode_addAnimator<scene::IMeshSceneNode*>);
- DEFINE_GSUBR ("scene_ISceneNode_addAnimator", 2, 0, 0,
- scene_ISceneNode_addAnimator<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("scene_ISceneNode_getAbsoluteTransformation", 1, 0, 0,
- scene_ISceneNode_getAbsoluteTransformation<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("scene_IMeshSceneNode_getPosition", 1, 0, 0,
- scene_ISceneNode_getPosition<scene::IMeshSceneNode*>);
- DEFINE_GSUBR ("scene_ISceneNode_getPosition", 1, 0, 0,
- scene_ISceneNode_getPosition<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_setMaterialFlag", 3, 0, 0,
- scene_ISceneNode_setMaterialFlag<scene::IAnimatedMeshSceneNode*>);
- DEFINE_GSUBR ("scene_IMeshSceneNode_setMaterialFlag", 3, 0, 0,
- scene_ISceneNode_setMaterialFlag<scene::IMeshSceneNode*>);
- DEFINE_GSUBR ("scene_ISceneNode_setMaterialFlag", 3, 0, 0,
- scene_ISceneNode_setMaterialFlag<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_setMaterialTexture", 3, 0, 0,
- scene_ISceneNode_setMaterialTexture<scene::IAnimatedMeshSceneNode*>);
- DEFINE_GSUBR ("scene_IMeshSceneNode_setMaterialTexture", 3, 0, 0,
- scene_ISceneNode_setMaterialTexture<scene::IMeshSceneNode*>);
- DEFINE_GSUBR ("scene_ISceneNode_setMaterialTexture", 3, 0, 0,
- scene_ISceneNode_setMaterialTexture<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("scene_IMeshSceneNode_setPosition", 2, 0, 0,
- scene_ISceneNode_setPosition<scene::IMeshSceneNode*>);
- DEFINE_GSUBR ("scene_ISceneNode_setPosition", 2, 0, 0,
- scene_ISceneNode_setPosition<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_setRotation", 2, 0, 0,
- scene_ISceneNode_setRotation<scene::IAnimatedMeshSceneNode*>);
- DEFINE_GSUBR ("scene_ICameraSceneNode_setRotation", 2, 0, 0,
- scene_ISceneNode_setRotation<scene::ICameraSceneNode*>);
- DEFINE_GSUBR ("scene_ISceneNode_setRotation", 2, 0, 0,
- scene_ISceneNode_setRotation<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_setScale", 2, 0, 0,
- scene_ISceneNode_setScale<scene::IAnimatedMeshSceneNode*>);
- DEFINE_GSUBR ("scene_ISceneNode_setScale", 2, 0, 0,
- scene_ISceneNode_setScale<scene::ISceneNode*>);
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_addAnimator", 2, 0, 0,
+ ISceneNode_addAnimator<scene::IAnimatedMeshSceneNode*>);
+ DEFINE_GSUBR ("IMeshSceneNode_addAnimator", 2, 0, 0,
+ ISceneNode_addAnimator<scene::IMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_addAnimator", 2, 0, 0,
+ ISceneNode_addAnimator<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("ISceneNode_getAbsoluteTransformation", 1, 0, 0,
+ ISceneNode_getAbsoluteTransformation<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IMeshSceneNode_getPosition", 1, 0, 0,
+ ISceneNode_getPosition<scene::IMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_getPosition", 1, 0, 0,
+ ISceneNode_getPosition<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMaterialFlag", 3, 0, 0,
+ ISceneNode_setMaterialFlag<scene::IAnimatedMeshSceneNode*>);
+ DEFINE_GSUBR ("IMeshSceneNode_setMaterialFlag", 3, 0, 0,
+ ISceneNode_setMaterialFlag<scene::IMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_setMaterialFlag", 3, 0, 0,
+ ISceneNode_setMaterialFlag<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMaterialTexture", 3, 0, 0,
+ ISceneNode_setMaterialTexture<scene::IAnimatedMeshSceneNode*>);
+ DEFINE_GSUBR ("IMeshSceneNode_setMaterialTexture", 3, 0, 0,
+ ISceneNode_setMaterialTexture<scene::IMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_setMaterialTexture", 3, 0, 0,
+ ISceneNode_setMaterialTexture<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IMeshSceneNode_setPosition", 2, 0, 0,
+ ISceneNode_setPosition<scene::IMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_setPosition", 2, 0, 0,
+ ISceneNode_setPosition<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setRotation", 2, 0, 0,
+ ISceneNode_setRotation<scene::IAnimatedMeshSceneNode*>);
+ DEFINE_GSUBR ("ICameraSceneNode_setRotation", 2, 0, 0,
+ ISceneNode_setRotation<scene::ICameraSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_setRotation", 2, 0, 0,
+ ISceneNode_setRotation<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setScale", 2, 0, 0,
+ ISceneNode_setScale<scene::IAnimatedMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_setScale", 2, 0, 0,
+ ISceneNode_setScale<scene::ISceneNode*>);
}
}
SCM
-video_IVideoDriver_beginScene (SCM video_driver,
- SCM back_buffer,
- SCM z_buffer,
- SCM color,
- SCM video_data,
- SCM source_rect)
+IVideoDriver_beginScene (SCM video_driver,
+ SCM back_buffer,
+ SCM z_buffer,
+ SCM color,
+ SCM video_data,
+ SCM source_rect)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
SCM
-video_IVideoDriver_drawVertexPrimitiveList (SCM video_driver,
- SCM vertices,
- SCM indices,
- SCM v_type,
- SCM p_type)
+IVideoDriver_drawVertexPrimitiveList (SCM video_driver,
+ SCM vertices,
+ SCM indices,
+ SCM v_type,
+ SCM p_type)
{
// Build vertex array
u32 vertex_count = scm_to_uint32 (scm_length (vertices));
SCM
-video_IVideoDriver_endScene (SCM video_driver)
+IVideoDriver_endScene (SCM video_driver)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
return scm_from_bool (driver->endScene ());
SCM
-video_IVideoDriver_getFPS (SCM video_driver)
+IVideoDriver_getFPS (SCM video_driver)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
return scm_from_int32 (driver->getFPS ());
SCM
-video_IVideoDriver_getTexture (SCM video_driver,
- SCM filename)
+IVideoDriver_getTexture (SCM video_driver,
+ SCM filename)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
video::ITexture* texture = driver->getTexture (scm_to_utf8_stringn (filename, NULL));
SCM
-video_IVideoDriver_setMaterial (SCM video_driver,
- SCM material)
+IVideoDriver_setMaterial (SCM video_driver,
+ SCM material)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
driver->setMaterial (*((video::SMaterial*) scm_to_pointer (material)));
SCM
-video_IVideoDriver_setTransform (SCM video_driver,
- SCM state,
- SCM mat)
+IVideoDriver_setTransform (SCM video_driver,
+ SCM state,
+ SCM mat)
{
video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_pointer (video_driver);
driver->setTransform (scm_to_transformation_state (state),
void
init_video_driver (void)
{
- DEFINE_GSUBR ("video_IVideoDriver_beginScene", 6, 0, 0, video_IVideoDriver_beginScene);
- DEFINE_GSUBR ("video_IVideoDriver_drawVertexPrimitiveList", 5, 0, 1,
- video_IVideoDriver_drawVertexPrimitiveList);
- DEFINE_GSUBR ("video_IVideoDriver_endScene", 1, 0, 0, video_IVideoDriver_endScene);
- DEFINE_GSUBR ("video_IVideoDriver_getFPS", 1, 0, 0, video_IVideoDriver_getFPS);
- DEFINE_GSUBR ("video_IVideoDriver_getTexture", 2, 0, 0, video_IVideoDriver_getTexture);
- DEFINE_GSUBR ("video_IVideoDriver_setMaterial", 2, 0, 0, video_IVideoDriver_setMaterial);
- DEFINE_GSUBR ("video_IVideoDriver_setTransform", 3, 0, 0, video_IVideoDriver_setTransform);
+ DEFINE_GSUBR ("IVideoDriver_beginScene", 6, 0, 0, IVideoDriver_beginScene);
+ DEFINE_GSUBR ("IVideoDriver_drawVertexPrimitiveList", 5, 0, 1,
+ IVideoDriver_drawVertexPrimitiveList);
+ DEFINE_GSUBR ("IVideoDriver_endScene", 1, 0, 0, IVideoDriver_endScene);
+ DEFINE_GSUBR ("IVideoDriver_getFPS", 1, 0, 0, IVideoDriver_getFPS);
+ DEFINE_GSUBR ("IVideoDriver_getTexture", 2, 0, 0, IVideoDriver_getTexture);
+ DEFINE_GSUBR ("IVideoDriver_setMaterial", 2, 0, 0, IVideoDriver_setMaterial);
+ DEFINE_GSUBR ("IVideoDriver_setTransform", 3, 0, 0, IVideoDriver_setTransform);
}
}
projects / guile-irrlicht.git / commitdiff