X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht.scm;h=1fc0c4f717cca62a5546a4b968c0e6755be0a9d6;hb=e1e79af4472feb78b4ec672f768eb8fdd10670fc;hp=8f56946ba0da85bd2da6b6215e911e25c8e31656;hpb=eda821abcd7de9a335df931a2be7a6975b0cd9a8;p=guile-irrlicht.git diff --git a/irrlicht.scm b/irrlicht.scm index 8f56946..1fc0c4f 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -21,6 +21,7 @@ (define-module (irrlicht) #:use-module (oop goops) #:use-module (irrlicht base) + #:use-module (irrlicht core) #:use-module (irrlicht device) #:use-module (irrlicht gui) #:use-module (irrlicht io) @@ -28,32 +29,102 @@ #:use-module (irrlicht scene) #:use-module (irrlicht video) #:duplicates (merge-generics) - #:re-export (add-animated-mesh-scene-node! + #:re-export (;; classes + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + ;; methods + add-animated-mesh-scene-node! + add-animator! + add-button! add-camera-scene-node! add-camera-scene-node-fps! + add-cube-scene-node! + add-custom-scene-node! add-file-archive! + add-image! + add-internal-point! add-octree-scene-node! + add-sphere-scene-node! add-static-text! begin-scene create-device + create-fly-circle-animator + create-fly-straight-animator + create-rotation-animator + draw-vertex-primitive-list drop! end-scene + get-absolute-transformation + get-built-in-font get-cursor-control + get-event-key + get-event-key-pressed + get-event-type get-file-system + get-font + get-fps get-gui-environment get-mesh get-name + get-root-scene-node get-scene-manager + get-skin get-texture + get-time + get-timer get-video-driver - is-empty? + is-window-active? + make-box3d + make-event-receiver + make-material + make-vertex3d + reset-box3d! run + set-animation-speed! + set-font! + set-frame-loop! + set-material! set-material-flag! set-material-texture! set-md2-animation! + set-override-color! set-position! + set-resizable! + set-rotation! + set-scale! + set-transform! set-visible! - set-window-caption!)) + set-window-caption! + yield-device)) ;; Merged methods have to be exported apart -(re-export draw-all) +(re-export draw-all + get-position)