X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fvideo.scm;h=de371331be07d305b29332612daeaacd40981265;hb=8994b42fea213a741631efbe7fd9c09c0aab7100;hp=0bdf0f0c908b2fbff0bdc2fd71a01fc80ad51f06;hpb=4eb7b8f04ad278d49d632d62030b5fe648e3b97a;p=guile-irrlicht.git diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm index 0bdf0f0..de37133 100644 --- a/irrlicht/bindings/video.scm +++ b/irrlicht/bindings/video.scm @@ -23,7 +23,55 @@ #:use-module ((irrlicht bindings core) #:prefix ffi-core:) #:use-module (irrlicht util foreign)) -;; E_DRIVER_TYPE enum +;; irr_video_E_BLEND_OPERATION enum +(define-public EBO_NONE 0) +(define-public EBO_ADD 1) +(define-public EBO_SUBTRACT 2) +(define-public EBO_REVSUBTRACT 3) +(define-public EBO_MIN 4) +(define-public EBO_MAX 5) +(define-public EBO_MIN_FACTOR 6) +(define-public EBO_MAX_FACTOR 7) +(define-public EBO_MIN_ALPHA 8) +(define-public EBO_MAX_ALPHA 9) + +;; irr_video_E_COMPARISON_FUNC enum +(define-public ECFN_NEVER 0) +(define-public ECFN_LESSEQUAL 1) +(define-public ECFN_EQUAL 2) +(define-public ECFN_LESS 3) +(define-public ECFN_NOTEQUAL 4) +(define-public ECFN_GREATEREQUAL 5) +(define-public ECFN_GREATER 6) +(define-public ECFN_ALWAYS 7) + +;; irr_video_E_COLOR_PLANE enum +(define-public ECP_NONE 0) +(define-public ECP_ALPHA 1) +(define-public ECP_RED 2) +(define-public ECP_GREEN 4) +(define-public ECP_BLUE 8) +(define-public ECP_RGB 14) +(define-public ECP_ALL 15) + +;; irr_video_E_ANTI_ALIASING_MODE enum +(define-public EAAM_OFF 0) +(define-public EAAM_SIMPLE 1) +(define-public EAAM_QUALITY 3) +(define-public EAAM_LINE_SMOOTH 4) +(define-public EAAM_POINT_SMOOTH 8) +(define-public EAAM_FULL_BASIC 15) +(define-public EAAM_ALPHA_TO_COVERAGE 16) + +;; irr_video_E_COLOR_MATERIAL enum +(define-public ECM_NONE 0) +(define-public ECM_DIFFUSE 1) +(define-public ECM_AMBIENT 2) +(define-public ECM_EMISSIVE 3) +(define-public ECM_SPECULAR 4) +(define-public ECM_DIFFUSE_AND_AMBIENT 5) + +;; irr_video_E_DRIVER_TYPE enum (define-public EDT_NULL 0) (define-public EDT_SOFTWARE 1) (define-public EDT_BURNINGSVIDEO 2) @@ -54,6 +102,59 @@ (define-public EMF_BLEND_OPERATION #x40000) (define-public EMF_POLYGON_OFFSET #x80000) +;; irr_video_E_POLYGON_OFFSET enum +(define-public EPO_BACK 0) +(define-public EPO_FRONT 1) + +;;irr_video_E_MATERIAL_TYPE enum +(define-public EMT_SOLID 0) +(define-public EMT_SOLID_2_LAYER 1) +(define-public EMT_LIGHTMAP 2) +(define-public EMT_LIGHTMAP_ADD 3) +(define-public EMT_LIGHTMAP_M2 4) +(define-public EMT_LIGHTMAP_M4 5) +(define-public EMT_LIGHTMAP_LIGHTING 6) +(define-public EMT_LIGHTMAP_LIGHTING_M2 7) +(define-public EMT_LIGHTMAP_LIGHTING_M4 8) +(define-public EMT_DETAIL_MAP 9) +(define-public EMT_SPHERE_MAP 10) +(define-public EMT_REFLECTION_2_LAYER 11) +(define-public EMT_TRANSPARENT_ADD_COLOR 12) +(define-public EMT_TRANSPARENT_ALPHA_CHANNEL 13) +(define-public EMT_TRANSPARENT_ALPHA_CHANNEL_REF 14) +(define-public EMT_TRANSPARENT_VERTEX_ALPHA 15) +(define-public EMT_TRANSPARENT_REFLECTION_2_LAYER 16) +(define-public EMT_NORMAL_MAP_SOLID 17) +(define-public EMT_NORMAL_MAP_TRANSPARENT_ADD_COLOR 18) +(define-public EMT_NORMAL_MAP_TRANSPARENT_VERTEX_ALPHA 19) +(define-public EMT_PARALLAX_MAP_SOLID 20) +(define-public EMT_PARALLAX_MAP_TRANSPARENT_ADD_COLOR 21) +(define-public EMT_PARALLAX_MAP_TRANSPARENT_VERTEX_ALPHA 22) +(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 @@ -66,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 '*)) @@ -78,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? @@ -86,7 +196,8 @@ (format port "#" (pointer-address (s3dvertex->pointer vertex))))) -(export s3dvertex->pointer) +(export pointer->s3dvertex + s3dvertex->pointer) (define-public s3dvertex (list ffi-core:vector3df @@ -94,14 +205,6 @@ scolor ffi-core:vector2df)) -(define-public (make-s3dvertex position normal color t-coords) - (pointer->s3dvertex - (make-c-struct s3dvertex (list position normal color t-coords)))) - -(define-public (vertex-position vertex) - (let ((data (parse-c-struct (s3dvertex->pointer vertex) s3dvertex))) - (car data))) - ;; smateriallayer struct (define-public smateriallayer (list '* uint8 uint8 uint8 uint8 uint8 int8 '* '*)) @@ -114,7 +217,8 @@ (format port "#" (pointer-address (smaterial->pointer material))))) -(export smaterial->pointer) +(export pointer->smaterial + smaterial->pointer) (define-public smaterial (list smateriallayer smateriallayer smateriallayer smateriallayer ; textureLayer[4] @@ -132,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 @@ -147,7 +251,5 @@ (uint8 1) ; useMipMaps:1 ))) -;; (define-public (make-material #:key -;; (wireframe #f) -;; (lighting #t)) -;; material) +(define-foreign make-c-material + '* "makeMaterial" (list))