VAO   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/external/gl/gl-objects2.xtm

Implementation

(bind-func VAO
  (lambda ()
    (let ((vao:VAO* (alloc))
          (as (attribs vao))
          (bs (buffers vao))
          (id:GLuint* (salloc))
          (i 0))
      (glGenVertexArrays 1 id) ;;(tref-ptr vao 0))
      (tset! vao 0 (pref id 0))
      (gl_print_error "Error creating VAO")
      (dotimes (i 16)
        (aset! as i #f)
        (aset! bs i null))
      ;(printf "Created ") (print vao) (printf "\n")
      (zone_cleanup (glDeleteVertexArrays 1 (tref-ptr vao 0))
                    (gl_print_error "Error deleting VAO"))
      vao)))


Back to Index

Similar Entries

  • VAO_bind_and_draw_arrays    xtlang
  • VAO_bind_attribute    xtlang
  • VAO_bind_attribute    xtlang
  • VAO_create    xtlang
  • VAO_create_ss_quad    xtlang
  • VAO_delete    xtlang
  • VAO_id    xtlang
  • generate_random_vao    xtlang
  • init_vao    xtlang
  • xtm_draw_vao    xtlang
  • xtm_draw_vao    xtlang