Commit ed00a688 authored by Alastair Bridgewater's avatar Alastair Bridgewater
Browse files

Implement gl:gen-textures

parent ad4a2743
......@@ -245,6 +245,7 @@
"NEW-LIST"
"END-LIST"
"GEN-LISTS"
"GEN-TEXTURES"
"GET-ERROR"
"ENABLE"
"DISABLE"
......@@ -1181,6 +1182,7 @@
(defconstant +new-list+ 101)
(defconstant +end-list+ 102)
(defconstant +gen-lists+ 104)
(defconstant +gen-textures+ 145)
(defconstant +get-error+ 115)
(defconstant +finish+ 108)
(defconstant +flush+ 142)
......@@ -3721,6 +3723,25 @@
(card32-get 8))))
(defun gen-textures (n)
(assert (context-p *current-context*)
(*current-context*)
"~S is not a context." *current-context*)
(let* ((ctx *current-context*)
(display (context-display ctx)))
(with-buffer-request-and-reply (display (extension-opcode display "GLX") nil)
((data +gen-textures+)
;; *** GLX_CONTEXT_TAG
(card32 (context-tag ctx))
(integer n))
(let ((length (card32-get 4)))
(values-list
(sequence-get :format card32
:result-type 'list
:index 32
:length length))))))
(defun end-list ()
(assert (context-p *current-context*)
(*current-context*)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment