[cl-opengl-devel] build-2d-mipmaps

[José Lopes]

Hi,

I was trying to create textures using glu:build-2d-mipmaps (I also tried 
using gl:tex-image-2d) and I had a few problems.
I'm using jpeg:decode-image which produces a vector of unsigned bytes 
from the image that it loads. However, the function build-2d-mipmaps 
cannot handle properly a vector of data (or so I think). So I had to use 
cffi:with-foreign-pointer to allocate memory and copy all the bytes from 
the image to a cffi pointer so that it could be passed correctly to the 
underlying cffi layer through build-2d-mipmaps. This is the code I have now

(defmethod glut:display-window :before ((window texture-window))
   (gl:clear-color 0 0 0 0)
   (gl:shade-model :flat)

   (multiple-value-bind (data height width channels)
       (jpeg:decode-image "/home/joe/tux.jpg")

     (let ((texture (first (gl:gen-textures 1))))
       (gl:bind-texture :texture-2d texture)
       (setf (texture window) texture)
       (gl:tex-env :texture-env :texture-env-mode :modulate)
       (gl:tex-parameter :texture-2d :texture-min-filter 
:linear-mipmap-linear)
       (gl:tex-parameter :texture-2d :texture-mag-filter :linear)
       (gl:tex-parameter :texture-2d :texture-wrap-s :repeat)
       (gl:tex-parameter :texture-2d :texture-wrap-t :repeat)

       (cffi:with-foreign-pointer (buf (* width height channels))
         (loop for i from 0 below (* width height channels)
              do (setf (cffi:mem-ref buf :char i) (aref data i)))

     (glu:build-2d-mipmaps :texture-2d :rgb width height :bgr 
:unsigned-byte buf)))))

I would like to avoid cffi calls. Do you have any suggestion?

Regards,
José Lopes
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-opengl-devel/attachments/20100718/52518d9e/attachment.html>