X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fvideo.scm;h=f0f56a3871235237718497b5c104d01a5b2248c8;hb=0c1a3f2b2c43965ee045b21ca4791e7ad93348ff;hp=999959550008bb9b35be22b4173b112f408a85f6;hpb=704cf6c2cc3d308c625071f6e03bd20ed2d833f8;p=guile-irrlicht.git diff --git a/irrlicht/video.scm b/irrlicht/video.scm index 9999595..f0f56a3 100644 --- a/irrlicht/video.scm +++ b/irrlicht/video.scm @@ -19,22 +19,27 @@ (define-module (irrlicht video) - #:export (begin-scene - get-texture)) - -(load-extension "libguile-irrlicht" "init_guile_irrlicht") - -(define irr-begin-scene begin-scene) -(define* (begin-scene video-driver - #:key - (back-buffer #t) - (z-buffer #t) - (color '(255 0 0 0)) - (video-data #f) - (source-rect #f)) - (irr-begin-scene video-driver - back-buffer - z-buffer - color - video-data - source-rect)) + #:use-module (oop goops) + #:use-module (irrlicht base) + #:use-module (irrlicht foreign)) + + +;; 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)