gl-loop   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/particles.xtm

Implementation

;; gl-code
(bind-func gl-loop
  (let ((psys (psystem_create 500000 texture1)))
    (init-psys psys)
    (lambda (time:double)
      (glClearColor 0.0 0.0 0.0 1.0)
      (glClear (+ GL_DEPTH_BUFFER_BIT GL_COLOR_BUFFER_BIT))
      (glLoadIdentity)
      (psystem_draw psys)
      (psystem_update psys)
      void)))


Back to Index

Similar Entries

  • gl-loop    scheme
  • gl-loop    scheme
  • gl-loop    scheme
  • gl-loop    scheme
  • gl-loop    scheme
  • gl-loop    xtlang
  • gl-loop    xtlang
  • gl-loop    scheme
  • gl-loop    scheme
  • gl-loop    scheme
  • my-gl-loop    xtlang
  • opengl-loop    scheme
  • opengl-loop    scheme
  • opengl-loop    scheme
  • opengl-loop    scheme
  • xtm-setup-and-start-gl-loop    scheme