examples/synchronized-shader.lisp

   1 (require '#:asdf)
   2 (asdf:oos 'asdf:load-op '#:cl-glfw-opengl-version_2_0)
   3
   4 (declaim (optimize (debug 3)))
   5
   6 ;; This example uses the gl:synchronizing-program mechanism to reload+recompile+relink shader files on-file-change
   7
   8 (glfw:do-window ("An OpenGL 2.0 Synchronized Shader Example")
   9     ((gl:with-setup-projection
  10        (glu:perspective 45 4/3 0.1 50)))
  11   (gl:clear gl:+color-buffer-bit+)
  12   (gl:load-identity)
  13   (gl:translate-f 0 0 -5)
  14   (gl:rotate-d (* 10 (glfw:get-time)) 1 1 0)
  15   (gl:rotate-d (* 90 (glfw:get-time)) 0 0 1)
  16   (let ((program (gl:synchronizing-program 'synchronized-shader
  17                    (list gl:+vertex-shader+ (merge-pathnames "synchronized-shader.vert" *load-truename*))
  18                    (list gl:+fragment-shader+ (merge-pathnames "synchronized-shader.frag" *load-truename*)))))
  19     (gl:with-use-program program
  20       (gl:uniform-1f (gl:get-uniform-location program "time") (glfw:get-time))
  21       (gl:with-begin gl:+triangles+
  22         (gl:color-3f 1 0 0) (gl:vertex-3f  1  0 0)
  23         (gl:color-3f 0 1 0) (gl:vertex-3f -1  1 0)
  24         (gl:color-3f 0 0 1) (gl:vertex-3f -1 -1 0)))))