2

剪切并粘贴 cl-glut-examples 代码,我将一个球体渲染到显示器上。现在我如何使用键盘在 ax,y 和 z 轴上移动它。还有一个在线资源可以学习 CL-OpenGL 中的游戏编程或如何制作墙壁、泥土、房屋和角色等东西,这样我就可以创建一个 3D 世界并在其中移动角色并为其提出游戏逻辑。

到目前为止,这是我的代码:

(defclass glut-teapot-window (glut:window)
()
(:default-initargs :width 948 :height 990 :title "glut-teapot.lisp" 
                  :mode '(:single :rgb :depth)))

(defmethod glut:display-window :before ((window glut-teapot-window))
(gl:clear-color 0 0 0 0)
(gl:cull-face :back)
(gl:depth-func :less)
(gl:disable :dither)
(gl:shade-model :smooth)
(gl:light-model :light-model-local-viewer 1)
(gl:color-material :front :ambient-and-diffuse)
(gl:enable :light0 :lighting :cull-face :depth-test))

(defmethod glut:display ((window glut-teapot-window))
(gl:load-identity)
(gl:translate 0 0 -5)
(gl:rotate 100 1 1 0)
(gl:light :light0 :position '(6000 1000 15 0))
(gl:light :light0 :position '(2000 300 3000 0))
(gl:clear :color-buffer :depth-buffer)
(gl:color 1 1 1)
(gl:front-face :cw)
(glut:Solid-Sphere 1 10 10)
(gl:front-face :ccw)
(gl:flush))

(defmethod glut:reshape ((window glut-teapot-window) width height)
(gl:viewport 0 0 width height)
(gl:matrix-mode :projection)
(gl:load-identity)
(glu:perspective 50 (/ width height) 0.5 20)
(gl:matrix-mode :modelview)
(gl:load-identity))

(defmethod glut:keyboard ((window glut-teapot-window) key x y)
(declare (ignore x y))
(when (eql key #\Esc)
(glut:destroy-current-window)))

(defun glut-teapot ()
(glut:display-window (make-instance 'glut-teapot-window)))
(glut-teapot)
4

1 回答 1

8

由于我不知道您使用 opengl 的经验,我将在一年前为我写这个答案(当时我对 opengl 一无所知,并试图学习使用 common lisp)。

cl-opengl 库是对 opengl 的一个相当紧密的包装,我的意思是大多数 opengl 函数在 cl-opengl 中有直接等价物。这很好,因为这意味着您将能够使用 c 和 c++ 获取 opengl 的在线教程,并且只需一点​​精神压力,就可以将它们转换为 lisp。

它是对 opengl 的一个非常紧密的包装器的缺点是 opengl 不是很 lispy,我的意思是好的 opengl 代码的风格与好的 lisp 代码非常不同。一旦你掌握了 cl-opengl 的窍门,这绝对是可以改进的。

接下来,opengl 是一个库,其中包含两个非常不同的范例。有旧风格的 opengl(它使用 gl-begin 和 gl-end)和基于着色器的新风格的 opengl 可能是你想要的,如果你想在未来做花哨的效果!令人痛苦的是,大多数在线优秀教程都是针对旧式 opengl 的,或者以我发现超级混乱的方式将两者混合在一起。因此我个人建议学习现代opengl的以下教程: http ://www.arcsynthesis.org/gltut/

一旦您通过前 4 章,您将了解足够的 opengl,以便能够使用 opengl wiki 而不会感到太多痛苦。我这么说是因为起初我发现 opengl 语言 wiki 真的很混乱,因为我不知道所有信息应该如何组合在一起。

现在到 GLUT。GLUT 很酷……但它很快就会变得非常有限。我真的建议切换到 SDL。幸运的是,一些聪明的人已经使 lisp 中的 SDL 非常适合在 common-lisp 中使用,并将其称为 lispbuilder-sdl。 http://code.google.com/p/lispbuilder/wiki/LispbuilderSDL

好的,那你应该怎么走?:

  • 获取 quicklisp:我假设您已经在使用它,但如果没有,请立即获取!它使获取 common lisp 的最新软件包变得更加容易。http://www.quicklisp.org/beta/
  • 接下来,获取 lispbuilder (ql:quickload :lispbuilder-sdl)
  • 使用 arcsynthesis 教程熟悉 opengl。这确实是获得能够编写现代 opengl 代码所需的理解的最佳方式。
  • 用 lisp 编写 arcsynthesis 教程中的示例。
  • 制作一些函数和宏以使您的 opengl 在 lisp 中更好地工作。

在这条路上我只比你领先几个月,开始真的很痛苦,但完全值得。如果您精通opengl,我很抱歉,因此这个答案对您来说太基础了!如果是这样,请告诉我,我会尝试提出更好的答案。

下面是在 SDL 中建立 opengl 窗口和上下文、处理事件(您的用户输入将在此处)和重绘框架(尚无绘制但您将使用弧合成教程中的内容填充它)的基本代码!)。

我还添加了一个辅助函数和宏。首先是“可继续的”,这意味着如果其中的代码发生错误,错误结果中将有一个选项可以继续程序(非常方便,这样您就不必一次又一次地启动演示)。还有更新 swank 这意味着即使在演示运行时您仍然可以使用 Slime(您使用的是slime对吗?如果没有得到它!)

(defun init ()
  (print 'initialise-stuff-here))

(defun draw ()
  (gl:clear-color 0.0 0.0 0.0 0.0)
  (gl:clear-depth 1.0)
  (gl:clear :color-buffer-bit :depth-buffer-bit)
  (gl:flush)
  (sdl:update-display))

(defun reshape (width height)
  (print width )
  (print height)
  (gl:viewport 0 0 width height))

(defmacro continuable (&body body)
  "Helper macro since we use continue restarts a lot
   <remember to hit C in slime or pick the restart so errors don't kill the app>"
  `(restart-case (progn ,@body)
     (continue () :report "Continue")))

(defun update-swank ()
  (let ((connection (or swank::*emacs-connection*
                        (swank::default-connection))))
    (when connection
      (swank::handle-requests connection t))))

(defun run-demo ()
  (sdl:with-init ()
    (sdl:window
     640 480 :opengl t
     :resizable t
     :opengl-attributes '((:sdl-gl-doublebuffer 1)
                          (:sdl-gl-alpha-size 0)
                          (:sdl-gl-depth-size 16)
                          (:sdl-gl-stencil-size 8)
                          (:sdl-gl-red-size 8)
                          (:sdl-gl-green-size 8)
                          (:sdl-gl-blue-size 8)))
    (init)
    (reshape 640 480)
    (setf cl-opengl-bindings:*gl-get-proc-address* #'sdl-cffi::sdl-gl-get-proc-address)
    (sdl:with-events ()
      (:quit-event () t)
      (:VIDEO-RESIZE-EVENT (:w width :h height)
                           (reshape width height))
      (:idle ()
             (continuable (update-swank))
             (continuable (draw))))))

好的,就是这样,玩得开心!

于 2013-04-22T08:06:02.897 回答