用通用的lisp opengl保存和加载图像

2018-06-27 08:12:51

我用Common Lisp，OpenGL和glut创建了一个图形。具体来说，我使用库cl-opengl。我希望将该图形（通过连接gl：顶点）保存到外部文件中，以便在未来的程序中加载它并对其进行处理。

我如何将绘制的图形保存到glut窗口？

我如何从图像文件加载图形？

我如何操作加载的图像（如复制，平移和旋转）？

您可以在OpenGL帧渲染例程中使用glReadPixels函数来获取RGB数据，然后使用拟合库将其保存为图片格式。例如，quicklisp存储库中有ZPNG来编写PNG：http://www.xach.com/lisp/zpng/#sect-examples

使用图像库从文件读取图像数据。要按照我以前的PNG格式示例，可以快速加载png-read并使用它来提取RGB数据。

(png-read:read-png-file #p"/tmp/1.png")
(png-read:physical-dimensions p) ;returns width and height in meters
(png-read:image-data p) ;returns a three-dimensional array of bytes

如果您已经使用OpenGL，只需启用正交透视模式，将图像制成四面体纹理并操作网格。如果您想在2D图像缓冲区画布上绘画，请选择像cairo一样的图库。

在我的SBCL下面的作品中：

    (ql:quickload '(:cl-opengl :cl-glu :cl-glut :zpng))

    (defclass hello-window (glut:window) ()
      (:default-initargs :pos-x 100 :pos-y 100 :width 250 :height 250
                 :mode '(:single :rgba) :title "hello"))

    (defmethod glut:display-window :before ((w hello-window))
      ;; Select clearing color.
      (gl:clear-color 0 0 0 0)
      ;; Initialize viewing values.
      (gl:matrix-mode :projection)
      (gl:load-identity)
      (gl:ortho 0 1 0 1 -1 1))

    (defmethod glut:display ((w hello-window))
      (gl:clear :color-buffer)
      (gl:color 0.4 1 0.6)
      (gl:with-primitive :polygon
        (gl:vertex 0.25 0.25 0)
        (gl:vertex 0.75 0.25 0)
        (gl:vertex 0.25 0.55 0))
      (gl:flush))

    (defmethod glut:keyboard ((w hello-window) key x y)
      (declare (ignore x y))
      (when (eql key #Esc)
        (glut:destroy-current-window))
      (when (eql key #r)
        (let* ((mypng (make-instance 'zpng:png :width 250 :height 250))
           (imagedata (zpng:data-array mypng))
           (sample1 (gl:read-pixels 0 0 250 250 :bgra :unsigned-byte)))
          (format t "read~%")
          (dotimes (i (expt 250 2))
            (multiple-value-bind (h w) (floor i 250)
              (setf (aref imagedata (- 249 h) w 0) (aref sample1 (+ 2 (* i 4))))
              (setf (aref imagedata (- 249 h) w 1) (aref sample1 (+ 1 (* i 4))))
              (setf (aref imagedata (- 249 h) w 2) (aref sample1 (+ 0 (* i 4))))))
          (zpng:write-png mypng #p"/tmp/readpixels.png"))
        (format t "written~%")))

    (defun rb-hello ()
      (glut:display-window (make-instance 'hello-window)))

按“r”将文件保存在/tmp/readpixels.png

链接地址: http://www.djcxy.com/p/76439.html

上一篇: saving and loading images with common lisp opengl

下一篇: How to determine if a type is dereferenceable in C++03?