Paste number 49436: low-maintanance opengl example :D

Paste number 49436: low-maintanance opengl example :D
Pasted by: baggito
9 months, 2 weeks ago
#lispcafe | Context in IRC logs
Paste contents:
Raw Source | XML | Display As
(glfw:do-window ("do-window test")
             ((gl:matrix-mode gl:+projection+)
              (gl:load-identity)
              (glu:perspective 45.0d0 (/ 4.0d0 3.0d0) 0.1d0 50.0d0)
              (gl:matrix-mode gl:+modelview+)
)

           (gl:clear gl:+color-buffer-bit+)
           (gl:load-identity)
           (gl:translate-f 0.0 0.0 -5.0)
           (gl:rotate-d (* 10.0d0 (glfw:get-time)) 1d0 1d0 0d0)
           (gl:rotate-d (* 90.0d0 (glfw:get-time)) 0d0 0d0 1d0)
           (gl:begin gl:+triangles+)
           (gl:color-3f 1.0 0.0 0.0) (gl:vertex-3f  1.0  0.0 0.0)
           (gl:color-3f 0.0 1.0 0.0) (gl:vertex-3f -1.0  1.0 0.0)
            (gl:color-3f 0.0 0.0 1.0) (gl:vertex-3f -1.0 -1.0 0.0)
           (gl:end)
)

This paste has no annotations.

Colorize as:
Show Line Numbers

Ads absolutely not by Google

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.