X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fvideo.scm;h=5659276c57bd432f90fc69c5926af973b0c28265;hp=53b28a62074cd2fe8826b1a7b4b9b2aaed6ba379;hb=09e9ed196aadab0f77e831c134fce8bdb58b772b;hpb=bf2cb00e2ef19e2eb33557f900405f836ebe65a3 diff --git a/irrlicht/video.scm b/irrlicht/video.scm index 53b28a6..5659276 100644 --- a/irrlicht/video.scm +++ b/irrlicht/video.scm @@ -44,7 +44,7 @@ video-data source-rect) ((get-irrlicht-proc "beginScene" video-driver) - (irr-pointer video-driver) + video-driver back-buffer z-buffer color @@ -53,13 +53,17 @@ (define-method (end-scene (video-driver )) ((get-irrlicht-proc "endScene" video-driver) - (irr-pointer video-driver))) + video-driver)) + +(define-method (get-name (video-driver )) + (let ((getName (get-irrlicht-proc "getName" video-driver))) + (getName video-driver))) (define-method (get-texture (video-driver ) filename) (make #:irr-pointer ((get-irrlicht-proc "getTexture" video-driver) - (irr-pointer video-driver) + video-driver filename))) -(export begin-scene end-scene get-texture) +(export begin-scene end-scene get-name get-texture)