opengl-import-experiments.lisp

(defmacro with-gl-array-values ((var type &optional components count) values
                                &body body)
  ;; Might want to make it so component types can nest:
  ;; (x y z (w v x)) or whatever
  (let ((once-values (gensym "VALUES")))
    `(let ((,once-values ,values))
       ,(let ((values once-values))
             `(gl:with-gl-array (,var ,type :count (or ,count (length ,values)))
                (setf (get-arrays ,var ,components) ,values)
                ;; Might want to have something that lets us bind stuff
                ;;automatically in teh arglists, but not a top priority.
                ;;(gl:bind-gl-vertex-array ,var)
                ,@body)))))