X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fvideo.scm;h=de371331be07d305b29332612daeaacd40981265;hb=8994b42fea213a741631efbe7fd9c09c0aab7100;hp=8740d209673a541d6bf3251a46071eb9799c3983;hpb=916ccc1a2ce8a81d8c611fc976fc537d6048dd47;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm
index 8740d20..de37133 100644
--- a/irrlicht/bindings/video.scm
+++ b/irrlicht/bindings/video.scm
@@ -133,6 +133,28 @@
 (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)
+
+;; irr_video_E_VERTEX_TYPE enum
+(define-public EVT_STANDARD 0)
+(define-public EVT_2TCOORDS 1)
+(define-public EVT_TANGENTS 2)
+
+;; irr_video_E_INDEX_TYPE enum
+(define-public EIT_16BIT 0)
+(define-public EIT_32BIT 1)
 
 ;; scolor struct
 (define-public scolor
@@ -145,6 +167,9 @@
 (define-foreign begin-scene
   int "irr_video_beginScene" (list '* int int '* '* '*))
 
+(define-foreign draw-vertex-primitive-list
+  void "irr_video_drawVertexPrimitiveList" (list '* '* int '* int int int int))
+
 (define-foreign end-scene
   int "irr_video_endScene" (list '*))
 
@@ -157,6 +182,12 @@
 (define-foreign get-video-driver-name
   '* "irr_video_getName" (list '*))
 
+(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?
@@ -205,9 +236,9 @@
         (bit-field-group
          (uint8 4)  ; colorMask:4
          (uint8 3)  ; colorMaterial:3
-         (uint32 4) ; blendOperation:4
+         (uint16 4) ; blendOperation:4
          (uint8 3)  ; polygonOffsetFactor:3
-         (uint32 1) ; polygonOffsetDirection:1
+         (uint16 1) ; polygonOffsetDirection:1
          (uint8 1)  ; wireframe:1
          (uint8 1)  ; pointCloud:1
          (uint8 1)  ; gouraudShading:1
@@ -219,3 +250,6 @@
          (uint8 1)  ; normalizeNormals:1
          (uint8 1)  ; useMipMaps:1
         )))
+
+(define-foreign make-c-material
+  '* "makeMaterial" (list))