Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alastair Bridgewater
clx
Commits
ed00a688
Commit
ed00a688
authored
Jun 04, 2009
by
Alastair Bridgewater
Browse files
Implement gl:gen-textures
parent
ad4a2743
Changes
1
Hide whitespace changes
Inline
Side-by-side
gl.lisp
View file @
ed00a688
...
...
@@ -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*
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment