repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Test qt.opengl conversions.
Annotate for file /src/opengl.lisp
2010-04-03 tobias
1
(in-package :qt.tests)
12:50:36 '
2
'
3
(5am:in-suite :qt.suite)
'
4
'
5
(5am:test gluint
'
6
"GLuint conversion"
'
7
(qt:with-app ()
'
8
(let* ((texture (make-instance 'qt:pixmap))
'
9
(gl-widget (make-instance 'qt:glwidget))
'
10
(id (cxx:bind-texture gl-widget texture)))
'
11
(5am:is (typep id '(integer 0)))
'
12
(cxx:delete-texture gl-widget id))))
'
13
'
14
'
15
(5am:test glint
'
16
"Test GLint and GLenum conversion."
'
17
(qt:with-app ()
'
18
(let* ((texture (make-instance 'qt:pixmap))
'
19
(target 3553) ;(cffi:foreign-enum-value '%gl:enum :texture-2d))
'
20
(format 6409) ;(cffi:foreign-enum-value '%gl:enum :rgba))
'
21
(gl-widget (make-instance 'qt:glwidget))
'
22
(id (cxx:bind-texture gl-widget texture target format)))
'
23
(5am:is (typep id '(integer 0)))
'
24
(cxx:delete-texture gl-widget id))))