From: Javier Sancho Date: Fri, 22 May 2020 15:50:56 +0000 (+0200) Subject: get-position X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=537c949563f0f1f0419aef8b84c75e5042fd1b08;p=guile-irrlicht.git get-position --- diff --git a/irrlicht.scm b/irrlicht.scm index 065268c..b10c4fb 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -86,7 +86,6 @@ get-gui-environment get-mesh get-name - get-position get-root-scene-node get-scene-manager get-texture @@ -116,4 +115,5 @@ yield-device)) ;; Merged methods have to be exported apart -(re-export draw-all) +(re-export draw-all + get-position) diff --git a/irrlicht/device.scm b/irrlicht/device.scm index 6363686..9f17902 100644 --- a/irrlicht/device.scm +++ b/irrlicht/device.scm @@ -22,11 +22,7 @@ #:use-module (oop goops) #:use-module (irrlicht base) #:use-module (irrlicht foreign) - #:use-module (irrlicht io) - #:use-module (irrlicht irr) - #:use-module (irrlicht gui) - #:use-module (irrlicht scene) - #:use-module (irrlicht video)) + #:use-module ((irrlicht irr) #:select ( ))) ;; IrrlichtDevice diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm index 18dc559..1d97d75 100644 --- a/irrlicht/gui.scm +++ b/irrlicht/gui.scm @@ -23,8 +23,8 @@ #:use-module (ice-9 optargs) #:use-module (irrlicht base) #:use-module (irrlicht foreign) - #:use-module (irrlicht io) - #:use-module (irrlicht irr)) + #:use-module ((irrlicht io) #:select ()) + #:use-module ((irrlicht irr) #:select ( ))) ;; ICursorControl diff --git a/irrlicht/io.scm b/irrlicht/io.scm index 0276982..e062e73 100644 --- a/irrlicht/io.scm +++ b/irrlicht/io.scm @@ -22,7 +22,7 @@ #:use-module (oop goops) #:use-module (ice-9 optargs) #:use-module (irrlicht foreign) - #:use-module (irrlicht irr)) + #:use-module ((irrlicht irr) #:select ())) ;; IAttributeExchangingObject diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm index 910ad53..65f1e9b 100644 --- a/irrlicht/scene.scm +++ b/irrlicht/scene.scm @@ -23,9 +23,9 @@ #:use-module (ice-9 optargs) #:use-module (irrlicht base) #:use-module (irrlicht foreign) - #:use-module (irrlicht io) - #:use-module (irrlicht irr) - #:use-module (irrlicht video)) + #:use-module ((irrlicht io) #:select ()) + #:use-module ((irrlicht irr) #:select ( )) + #:use-module ((irrlicht video) #:select ())) ;; IMesh @@ -223,6 +223,10 @@ (let ((getAbsoluteTransformation (get-irrlicht-proc "getAbsoluteTransformation" node))) (getAbsoluteTransformation node))) +(define-method (get-position (node )) + (let ((getPosition (get-irrlicht-proc "getPosition" node))) + (getPosition node))) + (define-method (set-material-flag! (node ) flag new-value) ((get-irrlicht-proc "setMaterialFlag" node) node @@ -247,7 +251,7 @@ (let ((setScale (get-irrlicht-proc "setScale" node))) (setScale node scale))) -(export add-animator! get-absolute-transformation set-material-flag! +(export add-animator! get-absolute-transformation get-position set-material-flag! set-material-texture! set-position! set-rotation! set-scale!)