(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
(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 '*))
(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?
(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
(uint8 1) ; normalizeNormals:1
(uint8 1) ; useMipMaps:1
)))
+
+(define-foreign make-c-material
+ '* "makeMaterial" (list))