1 ;;;; cl-devil -- DevIL binding for CL. See README for licensing information.
5 (define-foreign-library ilut
6 (:unix
(:or
"libILUT" "libILUT.so.1"))
7 (t (:default
"libILUT")))
8 (use-foreign-library ilut
)
10 (defcenum state-definition
11 (:palette-mode
#x0600
)
13 (:d3d-miplevels
#x0620
)
14 (:maxtex-width
#x0630
)
15 (:maxtex-height
#x0631
)
16 (:maxtex-depth
#x0632
)
18 (:d3d-use-dxtc
#x0634
)
20 (:d3d-gen-dxtc
#x0635
)
24 (:d3d-alpha-key-color
#x0707
)
25 (:d3d-alpha-key-colour
#x0707
))
34 (defcfun ("ilutRenderer" renderer
) :boolean
(renderer renderer
))
35 (defcfun ("ilutEnable" enable
) :boolean
(state state-definition
))
36 (defcfun ("ilutDisable" disable
) :boolean
(state state-definition
))
37 (defcfun ("ilutGetBoolean" get-boolean
) :boolean
(state state-definition
))
38 (defcfun ("ilutInit" init
) :boolean
)
40 (defcfun ("ilutGLBindTexImage" gl-bind-tex-image
) :uint
)
41 (defcfun ("ilutGLBindMipmaps" gl-bind-mipmaps
) :uint
)
42 (defcfun ("ilutGLBuildMipmaps" gl-build-mipmaps
) :boolean
)
43 (defcfun ("ilutGLLoadImage" gl-load-image
) :uint
(file-name :string
))
44 (defcfun ("ilutGLScreen" gl-screen
) :boolean
)
45 (defcfun ("ilutGLScreenie" gl-screenie
) :boolean
)
46 (defcfun ("ilutGLSaveImage" gl-save-image
) :boolean
(file-name :string
) (tex-id :uint
))
47 (defcfun ("ilutGLSetTex" gl-set-tex
) :boolean
(tex-id :uint
))
48 (defcfun ("ilutGLTexImage" gl-tex-image
) :boolean
(level :uint
))
49 (defcfun ("ilutGLSubTex" gl-sub-tex
) :boolean
(tex-id :uint
) (x-offset :uint
) (y-offset :uint
))
51 (defcfun ("ilutConvertToSDLSurface" convert-to-sdl-surface
) :pointer
(flags :uint
))
52 (defcfun ("ilutSDLSurfaceLoadImage" sdl-surface-load-image
) :pointer
(file-name :string
))
53 (defcfun ("ilutSDLSurfaceFromBitmap" sdl-surface-from-bitmap
) :boolean
(surface :pointer
))