X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fvideo.scm;h=de371331be07d305b29332612daeaacd40981265;hb=8994b42fea213a741631efbe7fd9c09c0aab7100;hp=7816686b02ca761598996e63f7d0e0fdabba9042;hpb=0d8955b4f8a481aec28acc91ba964ff66c918e75;p=guile-irrlicht.git diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm index 7816686..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,22 +182,74 @@ (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 +(define-wrapped-pointer-type s3dvertex-type s3dvertex? pointer->s3dvertex s3dvertex->pointer (lambda (vertex port) (format port "#" (pointer-address (s3dvertex->pointer vertex))))) -(export s3dvertex->pointer) +(export pointer->s3dvertex + s3dvertex->pointer) -(define s3dvertex-type +(define-public s3dvertex (list ffi-core:vector3df ffi-core:vector3df scolor ffi-core:vector2df)) -(define-public (make-s3dvertex position normal color t-coords) - (pointer->s3dvertex - (make-c-struct s3dvertex-type (list position normal color t-coords)))) +;; smateriallayer struct +(define-public smateriallayer + (list '* uint8 uint8 uint8 uint8 uint8 int8 '* '*)) + +;; smaterial struct +(define-wrapped-pointer-type smaterial-type + smaterial? + pointer->smaterial smaterial->pointer + (lambda (material port) + (format port "#" + (pointer-address (smaterial->pointer material))))) + +(export pointer->smaterial + smaterial->pointer) + +(define-public smaterial + (list smateriallayer smateriallayer smateriallayer smateriallayer ; textureLayer[4] + uint32 ; materialType + scolor ; ambientColor + scolor ; diffuseColor + scolor ; emissiveColor + scolor ; specularColor + float ; shininess + float ; materialTypeParam + float ; materialTypeParam2 + float ; thickness + uint8 ; zBuffer + uint8 ; antiAliasing + (bit-field-group + (uint8 4) ; colorMask:4 + (uint8 3) ; colorMaterial:3 + (uint16 4) ; blendOperation:4 + (uint8 3) ; polygonOffsetFactor:3 + (uint16 1) ; polygonOffsetDirection:1 + (uint8 1) ; wireframe:1 + (uint8 1) ; pointCloud:1 + (uint8 1) ; gouraudShading:1 + (uint8 1) ; lighting:1 + (uint8 1) ; zWriteEnable:1 + (uint8 1) ; backfaceCulling:1 + (uint8 1) ; frontfaceCulling:1 + (uint8 1) ; fogEnable:1 + (uint8 1) ; normalizeNormals:1 + (uint8 1) ; useMipMaps:1 + ))) + +(define-foreign make-c-material + '* "makeMaterial" (list))