X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fvideo.scm;h=d9f92fae0efa58bb93e99deea07978f8bd0d70d5;hb=86e2a7367842fd005dda3b20454f370d4ebfcf2c;hp=d3f8b48118fe9788bb82ba231ec0d59d3afad599;hpb=cc03ee884302dfeb94b5da68dd2b618c41333d5c;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm
index d3f8b48..d9f92fa 100644
--- a/irrlicht/bindings/video.scm
+++ b/irrlicht/bindings/video.scm
@@ -133,6 +133,20 @@
 (define-public EMT_ONETEXTURE_BLEND                       23)
 (define-public EMT_FORCE_32BIT                    #x7fffffff)
 
+;; irr_video_E_TRANSFORMATION_STATE enum
+(define-public ETS_VIEW        0)
+(define-public ETS_WORLD       1)
+(define-public ETS_PROJECTION  2)
+(define-public ETS_TEXTURE_0   3)
+(define-public ETS_TEXTURE_1   4)
+(define-public ETS_TEXTURE_2   5)
+(define-public ETS_TEXTURE_3   6)
+(define-public ETS_TEXTURE_4   7)
+(define-public ETS_TEXTURE_5   8)
+(define-public ETS_TEXTURE_6   9)
+(define-public ETS_TEXTURE_7  10)
+(define-public ETS_COUNT      11)
+
 
 ;; scolor struct
 (define-public scolor
@@ -160,6 +174,9 @@
 (define-foreign set-material
   void "irr_video_setMaterial" (list '* '*))
 
+(define-foreign set-transform
+  void "irr_video_setTransform" (list '* int '*))
+
 ;; s3dvertex struct
 (define-wrapped-pointer-type s3dvertex-type
   s3dvertex?