X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fvideo.scm;h=8740d209673a541d6bf3251a46071eb9799c3983;hb=8ab48666239b37a357944d2928a31aaf37578892;hp=994543d811836e6bf545457cf894f4398d77fc3f;hpb=4f9f0b90027aa3a254de58aea48a649727a05cda;p=guile-irrlicht.git diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm index 994543d..8740d20 100644 --- a/irrlicht/bindings/video.scm +++ b/irrlicht/bindings/video.scm @@ -20,9 +20,58 @@ (define-module (irrlicht bindings video) #:use-module (system foreign) - #:use-module (irrlicht util)) + #: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) @@ -53,10 +102,44 @@ (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) + ;; scolor struct (define-public scolor - (list uint32 uint32 uint32 uint32)) + (list uint8 uint8 uint8 uint8)) + +(define-public (scolor->pointer data) + (make-c-struct scolor (reverse data))) ;; Driver functions (define-foreign begin-scene @@ -73,3 +156,66 @@ (define-foreign get-video-driver-name '* "irr_video_getName" (list '*)) + +;; s3dvertex struct +(define-wrapped-pointer-type s3dvertex-type + s3dvertex? + pointer->s3dvertex s3dvertex->pointer + (lambda (vertex port) + (format port "#" + (pointer-address (s3dvertex->pointer vertex))))) + +(export pointer->s3dvertex + s3dvertex->pointer) + +(define-public s3dvertex + (list ffi-core:vector3df + ffi-core:vector3df + scolor + ffi-core:vector2df)) + +;; 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 + (uint32 4) ; blendOperation:4 + (uint8 3) ; polygonOffsetFactor:3 + (uint32 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 + )))