X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fvideo.scm;h=f0f56a3871235237718497b5c104d01a5b2248c8;hb=0c1a3f2b2c43965ee045b21ca4791e7ad93348ff;hp=77e3d21415f7b3ce68815c7a903ff3da0f19657f;hpb=fb9011bf9160be890e0a6b98fcff9ed95ae0bd77;p=guile-irrlicht.git diff --git a/irrlicht/video.scm b/irrlicht/video.scm index 77e3d21..f0f56a3 100644 --- a/irrlicht/video.scm +++ b/irrlicht/video.scm @@ -19,6 +19,27 @@ (define-module (irrlicht video) - #:export (get-texture)) + #:use-module (oop goops) + #:use-module (irrlicht base) + #:use-module (irrlicht foreign)) -(load-extension "libguile-irrlicht" "init_guile_irrlicht") + +;; ITexture +(define-class () + (irr-class #:init-value "ITexture" #:getter irr-class)) + +(export ) + + +;; IVideoDriver +(define-class () + (irr-class #:init-value "IVideoDriver" #:getter irr-class)) + +(define-method (get-texture (video-driver ) filename) + (make + #:irr-pointer + ((get-irrlicht-proc "getTexture" video-driver) + (irr-pointer video-driver) + filename))) + +(export get-texture)